Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 509

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 512

Warning: Illegal string offset 'membergroupids' in [path]/includes/functions.php on line 441

Warning: Illegal string offset 'membergroupids' in [path]/includes/functions.php on line 443

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 452

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 509

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 509

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'usergroupid' in [path]/includes/functions.php on line 518

Warning: Illegal string offset 'userid' in [path]/includes/functions.php on line 518
Usar buscador google
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, 08: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 10:05
Microsoft paga por usar su buscador Banker25 Noticias Tecnologicas 0 21-may-2008 16:22
¿No puedes usar el BUSCADOR? Aqui la solucion benjaminn2 Novedades 32 24-mar-2007 07:36
Google llevar su buscador a los celulares Banfield_Critico Off-Topic 0 28-feb-2006 17:06
Google mejora su buscador avanzado popeye1556 Off-Topic 0 24-nov-2005 13:12



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