Tool para buscar paginas vulnerables a SQL

#Name program = Google-search
#Version = 1.0
#Autor = Guason

use LWP::UserAgent;
use HTTP::Request;
use LWP::Simple;

my $google = $ARGV[0];
my $pages = $ARGV[1];
my $file = $ARGV[2];

if(!$ARGV[0]) {
print "\n" x 40;
print "google-dos.pl  Busqueda google mode Dos\n\n";
print "\n\n";
print "Sintasis = $0 <GOOGLE>  <NUMBER> <FILE>\n\n";
print "Ejemplo = perl.pl google-dos.pl www.google.com.ar porno 99 porno_file.txt\n";
print "GOOGLE = Tipo de google = ar ,mx\n";
print "NUMBER = Numero de resultados a obtener\n";
print "FILE   = * Opcional  :Archivo de resultados ej resultado.txt\n";
print "\n\n\n";
print "Written by Guason\n";
exit 1;

}
print "\n\n";
print "String a buscar:";
$string = <STDIN>;
chomp $string;
system ("cls");
print "\n";


print "\t\t Datos ingresados\t\t";
print "\n\n\n";
print "\t\tGoogle = $google\t\t";
print "\n";
print "\t\tString  =  $string\t\t";
print "\n";
print "\t\tNumber = $pages\t\t";
print "\n";
print "\t\tFile = $file\t\t";
print "\n\n";

print "Estas de acuerdo con los datos S/N > ";
$stop = <STDIN>;
chomp $stop;

if ($stop eq "N") {
print "\n";
print "OK\n\n";
exit 1;
} else {


my $ua = new LWP::UserAgent;
$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');

for($i=1;$i<$pages;$i++){
my $pedido = new HTTP::Request GET =>"http://$google/search?hl=&q=$string&start=$i";
my $resultado = $ua->request($pedido) or die ">Yet!\n";
$ua->timeout(0);
my $result = $resultado->content;

while ($result =~ m/<h2 class=(.*?)><a href=\"(.*?)\" class=(.*?)>/g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $sites=$2;

open (LOG, ">>$file");
print LOG "$sites\n";
print "$sites\n";
close(LOG);
}
}
}
}


#Agradecimientos = none = 0
#Email = [email protected]
#Web = infierno-hacking.webcindario.com
#blog = guason-cracker.blogspot.com
#Good Bye