Foro - Perl en Español

por **BigBear** » 2017-04-01 08:19 @388

Hola, tengo este código simple para codificar con vigenere:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Crypt::Vigenere;
 
my $encode = encrypt_vigenere("test","123");
#my $decode = decrypt_vigenere($encode,"123");
 
sub encrypt_vigenere {
        $vigenere = Crypt::Vigenere->new($_[1]);
        return $vigenere->encodeMessage($_[0]);
}
 
sub decrypt_vigenere {
        $vigenere = Crypt::Vigenere->new($_[1]);
        return $vigenere->decodeMessage($_[0]);
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Devuelve:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Can't call method "encodeMessage" on an undefined valueColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Debería funcionar bien, ¿cómo arreglo este error?

El módulo Crypt::Vigenere sólo acepta caracteres alfabéticos en la palabra clave
y devolverá un objeto indefinido si se entra cualquier otro carácter.
El módulo, también, solo (des)codifica caracteres alfabéticos; cualesquiera otros
caracteres serán excluidos del resultado de la (des)codificación.

por **BigBear** » 2017-04-01 19:02 @835

Ok, gracias por la ayuda, explorer. Una pregunta: estoy haciendo lo mismo en Blowfish, este es el código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Crypt::Blowfish;
 
my $key = pack("H16", "12345678");
my $text = pack("H16", "test");
 
my $encode = encrypt_blowfish($text,$key);
my $decode = decrypt_blowfish($encode,$key);
my $text_decode = unpack("H16", $decode);
 
print $encode."\n";
print $decode."\n";
print $text_decode."\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Quería codificar el texto "test". Al parecer la clave tiene que tener un mínimo de 8 caracteres y el texto también

Entonces, ¿no puedo codificar un "test"?, porque lo intento pero solo recibo esta salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

øN■B3j?À

Ì═

decd000000000000Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2017-04-02 09:20 @431

Hay varios problemas...

En la línea 3 estás diciendo que quieres empaquetar 16 códigos hexadecimales, pero solo pasas 8, con lo que estás generando una clave de 4 bytes.

En la línea 4 estás pidiendo lo mismo, pero... "test" no contiene códigos hexadecimales (salvo una 'e').

Según la documentación, efectivamente, hay que pasarle información al módulo en bloques de un cierto tamaño. Pero el problema lo tenemos si esos bloques son más pequeños. Una solución es... rellenar con blancos (o ceros o cualquier otro carácter que luego nos sea fácil quitar).

El tamaño del bloque nos lo da el método blocksize().

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.20;
use Crypt::Blowfish;
 
my $key  = pack "H*", "1234567812345678";       # convertimos 16 códigos hex a binario => 8 bytes
 
my $cipher = Crypt::Blowfish->new($key);
 
# relleno del texto al tamaño que nos pide blocksize()
my $text = "test";
say "[$text]";
$text = substr(($text . ( ' ' x $cipher->blocksize() )), 0, $cipher->blocksize);
say "[$text]";
 
my $encode = $cipher->encrypt($text);
my $decode = $cipher->decrypt($encode);
(my $textdc = $decode) =~ s/ +$//;
 
say "[$key]\n[$text]\n[$encode]\n[$decode]\n[$textdc]";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La salida es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

[test]

[test    ]

[4Vx4Vx]

[test    ]

[6]

[test    ]

[test]Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2017-04-04 13:17 @595

Ok, gracias por la ayuda, explorer. Una duda: ¿si el texto a codificar supera los 8 caracteres entonces no se podría codificar?

por **explorer** » 2017-04-04 13:51 @619

En la sección NOTES de Crypt::Blowfish, dice:

In fact, if you have any intentions of
encrypting more than eight bytes of data with this, or any other block
cipher, you're going to need some type of block chaining help. Crypt::CBC
tends to be very good at this.

Que creo que quiere decir

De hecho, si tiene la intención de
codificar más de ocho bytes de datos, o cualquier otro cifrador
de bloques, va a necesitar la ayuda de algún tipo de encadenamiento de bloques. Crypt::CBC
suele ser muy bueno en esto.

Foro - Perl en Español

Problema con Vigenere

Problema con Vigenere

Publicidad

Re: Problema con Vigenere

Re: Problema con Vigenere

Re: Problema con Vigenere

Re: Problema con Vigenere

Re: Problema con Vigenere

¿Quién está conectado?