Mensajes

[UserAgent]

Con UserAgent defines la cabecera que enviarás en la consulta 

Que navegador quieres tener? 

Saludos

Claro x]

Si quieres haces algo en php que guarde el Navegador del que entre .. lo metes en localhost y pones el script 1 vez a ese site.

Revisas el log y vas a ver el User Agent que se define en la variable.

Si pones " hola " verás " hola " pero no se abren ventanas.

Todo es desde consola 

Saludos

Yo uso PeiD

Pues como dijeron arriba .. el codigo esta mal y EN NINGUNA PARTE LE HACE GET HACIA LA PAGINA.

Puedes hacerlo con LWP Y HTTP::Request :

Código (perl) [Seleccionar] Expandir


#!/usr/bin/perl

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

print "\n\nDame Sitio:\n> ";
$sitio=<STDIN>;
chop($sitio); # Eliminamos el ultimo caracter - IMPORTANTE

print "\n\nCuantas Veces:\n> ";
$times=<STDIN>;
chop($times);

for($x=0;$x<=$times;$x++) {

$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.13) Gecko/20080311 Firefox/2.0.0.13");
$re = HTTP::Request->new(GET => $sitio);
$response = $ua->request($re);

print "\nVisitado: \t$x";

}


Saludos !

Bueno, sucede que en muchos casos necesitamos tener X Libreria para poder usar X script en perl.

Aqui vamos a instalar la libreria WhoIs.

Bueno, para esto vamos a usar el " Perl Module Manager ( PPM ) " Que viene integrado con el ActivePerl.

Las versiones del " PPM " varían, yo tengo el active perl 5.8.8 y en mi caso el " PPM " actúa en modo consola pero no igual que en las otras versiones del ActivePerl.

Si no me equivoco, en las anteriores funciona mas o menos asi:

Código [Seleccionar] Expandir


Microsoft Windows XP [Versión 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\XXXXXXXXXXXXXXX>cd..

C:\Documents and Settings>cd..

C:\>cd perl

C:\Perl>cd bin

C:\Perl\bin>ppm

ppm >


Y en mi versión [ 5.8.8 ] al teclear " PPM " salta una ventana:



--------------------------------------------------------------------------------------------------------
Instalando librerías.

Bueno, abrimos el CMD ( Inicio > ejecutar > cmd ) y nos situamos en el directorio /perl/bin ( Obviamente con ActivePerl ya Instalado ) ...

Tecleamos " PPM " nos saldra una ventana, la hacemos a un lado y en el CMD tecleamos:

PPM search [ Libreria]

En este caso: PPM search Whois

Veremos algo asi ( Nota, las librerias varían ) :

Código [Seleccionar] Expandir


1: Net-ParseWhois v0.62
2: Net-Whois v1.9
3: Net-Whois-ARIN v0.06
4: Net-Whois-IANA v0.21
5: Net-Whois-IP v1.04
6: Net-Whois-Norid v0.04
7: Net-Whois-Proxy v1.9
8: Net-Whois-RIPE v1.22
9: Net-Whois-RIPE-Syncupdates v1.1
10: Net-Whois-Raw v1.34
11: Net-Whois-RegistryFusion v0.04
12: Net-WhoisNG v0.09
13: Net-XWhois v0.90


Ahora, simplemente tecleamos  PPM search [ Numero de la libreria que quieres instalar ]

En este tenemos que instalar 2 ( Net-Whois v1.9 & Net-Whois-Raw v1.34 ]

Asi que hacemos:

PPM Install 2  Y Despues que se instale ..
PPM Install 10

Por ejemplo, si yo quisiera instalar la 3 ( Net-Whois-ARIN v0.06 ) mi log sería algo como este:

Código [Seleccionar] Expandir


Microsoft Windows XP [Versión 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\XXXXXXXXXXX>cd C:\perl\bin

C:\Perl\bin>ppm

C:\Perl\bin>ppm search whois
1: Net-ParseWhois v0.62
2: Net-Whois v1.9
3: Net-Whois-ARIN v0.06
4: Net-Whois-IANA v0.21
5: Net-Whois-IP v1.04
6: Net-Whois-Norid v0.04
7: Net-Whois-Proxy v1.9
8: Net-Whois-RIPE v1.22
9: Net-Whois-RIPE-Syncupdates v1.1
10: Net-Whois-Raw v1.34
11: Net-Whois-RegistryFusion v0.04
12: Net-WhoisNG v0.09
13: Net-XWhois v0.90

C:\Perl\bin>ppm install 3
Downloading Net-Whois-ARIN-0.06...done
Unpacking Net-Whois-ARIN-0.06...done
Generating HTML for Net-Whois-ARIN-0.06...done
Updating files in site area...done
   2 files installed

C:\Perl\bin>




Y Listo, ya tenemos la librería instalada

Espero que les sirva ..

Saludos, Tec-n0x