i know the truth about skuzzy.

he is using the same script that i, the ex-wizzywig, used. however, i re-wrote it for him so that it is on a time delay and uses wayyy better posting technique so it doesnt make itself obvious.

does no one find it suspicious he went from 30ppd to 80?

heres the code to the bot. im not joking. its pos written tho, because i dont believe in perl.

require LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common qw(POST);
use strict;

my $threadid = 0;
my $time_min = 0;
my $posts_to_make = 0;
my $username = '';
my $password = '';

print "skuzzy postwhore daemon v.1nnpostwhoring the corner at s2ki.comnn";

print "threadid: ";
$threadid = <STDIN>;
$threadid =~ s/n//ig;

print "posts to make: ";
$posts_to_make = <STDIN>;
$posts_to_make =~ s/n//ig;

my $min_min = ($posts_to_make * 15) / 60;

while (1) {
print "period of time to run (must be at least $min_min minutes): ";
$time_min = <STDIN>;
$time_min =~ s/n//ig;

if ($time_min >= $min_min) { last; } else {
print "$time_min is not equal to or greater than $min_min. n"; }

}

my $interval = ($time_min*60) / $posts_to_make;

print "ntlogin infonnusername: ";
$username = <STDIN>;
$username =~ s/n//ig;

print "password: ";
$password = <STDIN>;
$password =~ s/n//ig;

srand(time|$$);

my $ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt", autosave => 1));


my $pc_url = "https://www.s2ki.com/forums/showthread.php?s=&threadid=$threadid";
my $pc_req = HTTP::Request->new('GET', $pc_url);
my $count = 0;

#login to s2ki.com


print "nlogging in as $username...n";


my $login_url = "https://www.s2ki.com/user/login/login/?Username=$username&Password=$password&RedirectURL =";
my $res = $ua->request(HTTP::Request->new(GET => $login_url));

print "logged in successfully.nn";


my $num_elements = 0;
open(FILE, "<skuzzyisms.txt");
while (<FILE>) { $num_elements++; }
close(FILE);

my $begin_time = time;

while (1) {

my $text = '';
$count++;

my $line_num = int(rand($num_elements));
my $i = 0;

open(FILE, "<skuzzyisms.txt");
for ($i = 0; $i < $line_num-1; $i++) { <FILE>; }
my $file_data = <FILE>;
close(FILE);

#post text to thread $threadid

print "posting to thread $threadid...";

# https://www.s2ki.com/forums/newreply.php
# s ""
# action postreply
# threadid $threadid
# signature yes
# parseurl yes
# message $text

my $req = POST 'https://www.s2ki.com/forums/newreply.php',
[
s => '',
action => 'postreply',
threadid => $threadid,
signature => 'yes',
parseurl => 'yes',
message => $file_data
];
$ua->request($req)->as_string; #post

my $begin = time;
$ua->request($pc_req)->as_string; #increase views
my $end = time;

sleep($interval-($end-$begin)); #waste time

print "repetition $count complete. n";
if ($count >= $posts_to_make) { last; }


}

my $ppm = $time_min / $posts_to_make;
print "n$count repetitions completed. npostwhore daemon is done. posted $posts_to_make posts over $time_min minutes ($ppm posts per minute).n";


i move for a ban.

 

does NO ONE CARE? WTF~!

 

Did he crash the server? No. Did he make other threads hard to read? No. So..............

 

And I dont have the script anymore, didnt give to to justAyoungMc when he asked to used it, did most of the whoring myself cause the script sucks and doesnt work most of the time, i am guessing it made up 1300-1500 of my whoring....

 

just curious here...

what exactly does that type of whoring actually accomplish?

 

since actual whoring accomplishes nothing, Zoe, I would have to say that this type of whoring accomplishes LESS than nothing!

 

I am the ultimate degraded whore...

I used it because I wanted 100ppd, but it was such a pain in the ass to use, I didnt use it :/

 

my whoring didnt crash the server. and it wasnt a pain the ass to use - hes lying his ass off.

 

Sigh

 

AHAHAH i own all your perl script usin mofos with