elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


  Mostrar Mensajes
Páginas: 1 2 [3]
21  Programación / Scripting / Re: Script en Perl no me arranca en: 7 Agosto 2008, 19:32 pm
Cita de: Novlucker en  7 Agosto 2008, 17:28 pm
Con UserAgent defines la cabecera que enviarás en la consulta  :P

Que navegador quieres tener?  :rolleyes:

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  :D

Saludos
22  Programación / Ingeniería Inversa / Re: Sacar Info de Ejecutable en: 7 Agosto 2008, 00:57 am
Yo uso PeiD
23  Programación / Scripting / Re: Script en Perl no me arranca en: 6 Agosto 2008, 23:15 pm
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
  1. #!/usr/bin/perl
  2.  
  3. use LWP::UserAgent;
  4. use HTTP::Request;
  5.  
  6. print "\n\nDame Sitio:\n> ";
  7. $sitio=<STDIN>;
  8. chop($sitio); # Eliminamos el ultimo caracter - IMPORTANTE
  9.  
  10. print "\n\nCuantas Veces:\n> ";
  11. $times=<STDIN>;
  12. chop($times);
  13.  
  14. for($x=0;$x<=$times;$x++) {
  15.  
  16. $ua = LWP::UserAgent->new;
  17. $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");
  18. $re = HTTP::Request->new(GET => $sitio);
  19. $response = $ua->request($re);
  20.  
  21. print "\nVisitado: \t$x";
  22.  
  23. }
  24.  

Saludos !
24  Programación / Scripting / Instalación de Librerías / Modulos en Perl en: 6 Agosto 2008, 23:08 pm
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:
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:
 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:
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
Páginas: 1 2 [3]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines