Underc0de
[In]Seguridad Informática => Bugs y Exploits => Mensaje iniciado por: dracko.rx en Febrero 24, 2010, 02:56:59 PM
#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