Comunidad Underground Hispana  

Retroceder   Comunidad Underground Hispana > Programacion > Scripts: Python, Perl y Otros > Perl


Respuesta Crear Nuevo Tema
 
Compartir en twitter LinkBack Herramientas Desplegado
Antiguo 16-dic-2008, 07:25   #1
Habitual
 
Fecha de Ingreso: noviembre-2008
Amigos 0
Mensajes: 166
Gracias: 0
Agradecido 1 vez en 1 mensaje.
Predeterminado Usar buscador google

#!/usr/bin/perl
# update 09-04-08
# basado en

[Solo usuarios registrados pueden ver los links. REGISTRARSE]


require LWP::UserAgent;
use POSIX qw(strftime);
my($resultfile,$ua,$quote,$goo,$dork,$page,$url,$p agestart,$response,$con);
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.4");
$ua->timeout(30);

if ( @ARGV != 3) {

die "\nUse: $0 <cantidad de resultados> <string> <reporte>\n\n"
. " <cantidad de resultados> Cantidad de resultados a mostrar [ej -> 100]\n"
. " <string> String a buscar [ej -> admin.php]\n"
. " <reporte> Archivo donde veremos el resultado final [ej -> reporte.html]\n\n"
;
}
$cantidad = $ARGV[0];
$busque = $ARGV[1];
$resultfile = $ARGV[2];

#Google stuff
$busque =~ s/ /+/g;
$goo = "http://www.google.com.ar/search?hl=es&meta=cr%3DcountryAR&num=$cantidad&q=" ;
$pagestart = "&start=";
$url = $goo . $busque . $pagestart;
print "[+] Resultado:$dork\n[+] Reporte:$resultfile\n";
request("0");
sub request{
$hora= strftime("%Y-%m-%d", localtime);
$page = $_[0];
$response = $ua->get($url . $page);
if($response->is_success){
$con = $response->content;

open (F,">> $resultfile");
print F "<html><head>\n";
print F "<meta http-equiv=Content-Type content='text/html;charset=iso-8859-1' />\n";
print F "<title>Busqueda en google argentina - $hora</title>\n";
print F "</head>\n";
print F "<body>\n";
print F " <table border='0' align=center width=650 cellpadding='0' cellspacing='0' bgcolor=#333333>\n";
print F " <tr><td bgcolor=#6666ff><font color=#ffffff face=Verdana size=1>Informacion</font></td></tr>\n";
print F " <tr><td><font color=#ffffff face=Verdana size=1><strong>Date:</strong> $hora</font></td></tr>\n";
print F " <tr><td><font color=#ffffff face=Verdana size=1><strong>String:</strong> $busque</font></td></tr>\n";
print F " <tr><td><font color=#ffffff face=Verdana size=1><strong>Cantidad de resultados:</strong> $cantidad</font></td></tr>\n";
print F " <tr><td><font color=#ffffff face=Verdana size=1><strong>Reporte:</strong> $resultfile</font></td></tr>\n";
print F " <tr><td bgcolor=#6666ff><font color=#ffffff face=Verdana size=1>Resultados encontrados:</font></td></tr>\n";

while ($con =~ m/<h2 class=(.*?)><a href=\"(.*?)\" class=(.*?)>/g){

print F "<tr><td bgcolor=#cccccc><font color=#ffffff face=Verdana size=1><a href=$2>$2</a></font></td></tr>\n";

}
if ($con =~ m/<td nowrap class=b><a href=(.*?)&hl=en&start=(.*?)&sa=N\">/){
#Recursing
print "[+] Another page: $2\n";
request($2)
}
}
else{
if($response->status_line =~ m/403/){
print "[e] Forbidden request\n";
exit;
}
else{
print "[e] Connection error\n";
exit;
}
}
print F " <tr><td bgcolor=#c0c0c0 align=right><font face=Verdana size=1>Busqueda en google - wikipeando</font></td></tr>\n";
print F " </table></body></html>\n";
close(F);
}

Guazon está desconectado   Responder Citando
Respuesta

Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder mensajes
No puedes subir archivos adjuntos
No puedes editar tus mensajes

Los Códigos BB están Activado
Las Caritas están Activado
[IMG] está Activado
El Código HTML está Desactivado
Trackbacks están Activado
Pingbacks están Activado
Refbacks están Activado



Temas Similares
Tema Autor Foro Respuestas Último mensaje
Google, buscador en perfiles BUSik49 Noticias Tecnologicas 0 22-abr-2009 09:05
Microsoft paga por usar su buscador Banker25 Noticias Tecnologicas 0 21-may-2008 15:22
¿No puedes usar el BUSCADOR? Aqui la solucion benjaminn2 Novedades 32 24-mar-2007 06:36
Google llevar su buscador a los celulares Banfield_Critico Off-Topic 0 28-feb-2006 16:06
Google mejora su buscador avanzado popeye1556 Off-Topic 0 24-nov-2005 12:12



Portal Hacker
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0