-
- Publicidad
Módulo Crypt
8 mensajes
• Página 1 de 1
Publicidad
Re: Módulo Crypt
por explorer » 2013-07-07 13:37 @609
Si no lo encuentras en CPAN, a lo mejor te refieres a la función incorporada crypt().
Más información en perldoc -f crypt
Más información en perldoc -f crypt
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Módulo Crypt
por primitivo » 2013-07-07 13:47 @616
Lo que necesito, es usar TEA.
Pero ActivePerl, no lo tiene, y no encuentro en el 'Perl Package Manager'.
Pero ActivePerl, no lo tiene, y no encuentro en el 'Perl Package Manager'.
- primitivo
- Perlero nuevo
- Mensajes: 80
- Registrado: 2013-03-22 23:05 @004
Re: Módulo Crypt
por explorer » 2013-07-07 17:51 @786
No sé lo que es TEA. ¿Quizás Crypt::Tea?
Mira el hilo Instalación de módulos y bibliotecas en Perl para la instalación de módulos. También hay un hilo que explica la personalización de PPM.
Mira el hilo Instalación de módulos y bibliotecas en Perl para la instalación de módulos. También hay un hilo que explica la personalización de PPM.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Módulo Crypt
por primitivo » 2013-07-07 19:17 @845
Si, Crypt::Tea;
Pero ahora me decidí por usar un tea.c, lo compilé con GCC, pero tengo un problema.
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
Pero ahora me decidí por usar un tea.c, lo compilé con GCC, pero tengo un problema.
Using perl Syntax Highlighting
- 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.006 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
- primitivo
- Perlero nuevo
- Mensajes: 80
- Registrado: 2013-03-22 23:05 @004
Re: Módulo Crypt
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í:
aunque lo más moderno es así:
Mas información en perldoc -f open
Las líneas 21 a 25 las puedes simplificar así:
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í:
Using perl Syntax Highlighting
- open( CRYPT, "./Encrypt \"$nickR\" $passcrypt |" );
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Using perl Syntax Highlighting
- open my $CRYPT, '-|', qq(./Encrypt "$nickR" $passcrypt);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Las líneas 21 a 25 las puedes simplificar así:
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Módulo Crypt
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'
¿Cómo entro al directorio? Acaso debo usar...
¿Usar la función para entrar al directorio a través de Perl por línea de comandos?
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'
Using perl Syntax Highlighting
- open(TEA,"crypter/ ./cifranick \"$nickR\" $clave|");
- my @tea = <TEA>;
- return @tea;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
¿Cómo entro al directorio? Acaso debo usar...
Using perl Syntax Highlighting
- system("cd crypter");
- system("./cifranick \"$nickR\" $clave|");
Coloreado en 0.002 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?
- primitivo
- Perlero nuevo
- Mensajes: 80
- Registrado: 2013-03-22 23:05 @004
Re: Módulo Crypt
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.
El problema es que seguimos estando dentro de 'crypter/', por lo que podría afectar al resto del programa.
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).
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
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
Más información en Ruta (informática).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
8 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 28 invitados