Foro - Perl en Español

por **primitivo** » 2013-07-07 13:28 @603

¿Saben dónde puedo encontrar el módulo Crypt?

sub do_regn {
    my $nickR         = $USUARIOS{$UserDest};
    my $passcrypt     = &DoEncrypt;
    my $options       = int( rand() * 99999 );
    my $validate_user = $nickR;
    if ( nick_database("$validate_user") == 1 ) {
 
        screen(qq($BOTS{"nick"} P $UserDest :Ese usuario ya se encuentra registrado, Por favor escoja otro.\n));
        screen(qq($BOTS{"nick"} P $UserDest :Por ejemplo '$nickR$options'\n));
    }
    else {
        open( CRYPT, "./Encrypt \"$nickR\" $passcrypt" );
        my $pass = <CRYPT>;
        $pass =~ s/^$nickR//;
        $pass =~ s/^(\s)://;
        screen(qq($BOTS{"nick"} P $UserDest :Lo obtenido fué -> $pass -> $passcrypt\n));
    }
}
 
sub DoEncrypt {
    my @AleatoryChar = (
        'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r',
        's', 't', 'u', 'v', 'w', 'x', 'y', 'z', 'A', 'B', 'C', 'D', 'F', 'G', 'H', 'I', 'J', 'K',
        'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z'
    );
    my $PassAleatory = int( rand() * 999999999 );
    my $tmp_pass .= $AleatoryChar[ int( rand(53) ) ];
    $tmp_pass    .= $AleatoryChar[ int( rand(53) ) ];
    $tmp_pass    .= $AleatoryChar[ int( rand(53) ) ];
    $tmp_pass    .= $AleatoryChar[ int( rand(53) ) ];
    $tmp_pass    .= $AleatoryChar[ int( rand(53) ) ];
    $tmp_pass    .= $PassAleatory;
    return $tmp_pass;
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Pero no logro que me lea la rutina DoEncrypt.

Lo que quiero es crear un 'letras' y 'numeros' aleatorios, para luego pasárselos a el 'Encrypt' por open();

p.d.: Encrypt fue el resultado de compilar tea.c

por **explorer** » 2013-07-07 20:06 @879

Comprueba la matriz de compatibilidad para ver que tienes el Perl correcto.

Lo puedes bajar con el PPM desde el repositorio de trouchelle.com. Al menos, en Perl v5.14 sí que está.

Para hacer un open(), con una tubería hacia otro proceso, depende de si quieres obtener su respuesta o si quieres enviarle información.

Como veo en el código que lo que quieres es obtener una respuesta, debes abrirlo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        open( CRYPT, "./Encrypt \"$nickR\" $passcrypt |" );
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

aunque lo más moderno es así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        open my $CRYPT, '-|', qq(./Encrypt "$nickR" $passcrypt);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Mas información en perldoc -f open

Las líneas 21 a 25 las puedes simplificar así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my @AleatoryChar = ( 'a' .. 'z', 'A' .. 'Z');
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **primitivo** » 2013-07-09 18:21 @806

Estimado explorar, usted siempre tan oportuno, muchas gracias.

Ahora pido una segunda mano, por favor.

Resolví el TEA 'The Tiny Encryption Algorithm' que necesitaba con un código escrito en C.

Pero lo que necesito, ahora en Perl, es entrar al directorio 'crypter' y ejecutar 'cifranick' para obtener una clave la cual me la devolverá codificada.

Intenté de esta forma, pero me dice que 'sh: crypter/: is a directory'

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(TEA,"crypter/ ./cifranick \"$nickR\" $clave|");
my @tea = <TEA>;
 
return @tea;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Cómo entro al directorio? Acaso debo usar...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

system("cd crypter");
system("./cifranick \"$nickR\" $clave|");
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Usar la función para entrar al directorio a través de Perl por línea de comandos?

por **explorer** » 2013-07-10 05:36 @275

Tienes dos formas básicas: entrar en el directorio donde está el comando, y ejecutarlo, o ejecutar el comando indicando la ruta completa.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# solución 1
chdir 'crypter/';           # entramos en el subdirectorio 'crypter/'
 
open(TEA, qq(./cifranick "$nickR" $clave|));
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El problema es que seguimos estando dentro de 'crypter/', por lo que podría afectar al resto del programa.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# solución 2
open(TEA, qq(./crypter/cifranick "$nickR" $clave|));
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En este caso, decimos la ruta completa al comando. './crypter/cifranick' indica que queremos ejecutar el comando 'cifranick' que está dentro del subdirectorio 'crypter/', que a su vez cuelga del directorio actual ('./').

Más información en Ruta (informática).

Foro - Perl en Español

Módulo Crypt

Módulo Crypt

Publicidad

Re: Módulo Crypt

Re: Módulo Crypt

Re: Módulo Crypt

Re: Módulo Crypt

Re: Módulo Crypt

Re: Módulo Crypt

Re: Módulo Crypt

¿Quién está conectado?