Crypt :: Khazad Crypt :: Khazad es una cripta :: CBC-Compatible Block Cifre.
Descargar ahora

Crypt :: Khazad Clasificación y resumen

Crypt :: Khazad Etiquetas

cuadra Módulo perl cifrado de bloque cifrar

Crypt :: Khazad Descripción

Crypt :: Khazad es una cripta :: CBC-Compatible Block Cifre. Crypt :: Khazad es una cripta :: CBC-Block Capher.Abstractkhazad es una tecla de 128 bits, un bloqueo de bloque de 64 bits, diseñado por Vincent Rijmen y Paulo S. L. M. Barreto.Synopsis Use Crypt :: Khazad; $ cipher = nueva cripta :: khazad $ clave; $ ciphercext = $ cifrado-> cifrado ($ texto simple); $ PlaintExt = $ cifrado-> descifrado ($ ciphercext); Khazad es una tecla de 128 bits, cifrado de bloque de 64 bits. Diseñado por Vincent Rijmen y Paulo S. L. M. Barreto, Khazad es un finalista Nessie para los cifras de bloques de nivel heredado. Khazad tiene muchas similitudes con Rijndael, y tiene una tasa de difusión extremadamente alta. Este módulo es compatible con la interfaz Crypt :: CBC, con las siguientes funciones. Los obstáculosBlocksize devuelven el tamaño (en bytes) del bloque (8, en este caso). Keysize devuelve el tamaño (en bytes) de la clave (16, en este caso) .Encrypt ($ DATA) cifra 8 bytes de $ DATA Y DEVOLUCIONES El cifrado correspondiente ($ DATA) descifra 8 bytes de $ DATOS y devuelve el PlaintExtExtample correspondiente 1 #! / usr / local / bin / perl usa diagnósticos; usar estricto; usar advertencias; Usa Crypt :: Khazad; # La clave debe tener 16 bytes de largo My $ KEY = "0123456789ABCDEF"; MY $ CIPHER = NUEVA CRIPT :: KHAZAD $ KEY; Imprimir "BlockSize =", $ cifrado-> BlockSize, "Bytes N"; Imprima "Keysize =", $ cipher-> Keysize, "Bytes N"; # bloque debe tener 8 bytes de largo My $ PlaintExt1 = "Testing1"; MY $ CIPHERTEXT = $ CIPHER-> CIPT ($ PLAINTEXT1); My $ PLAINTEXT2 = $ CIPHER-> Decrypt ($ ciphercext); Imprimir "descifrado OKN" si ($ PlaintExt1 EQ $ PlaintExt2); Ejemplo 2 #! / usr / local / bin / perl usa diagnósticos; usar estricto; usar advertencias; Use Crypt :: CBC; # CBC carga automáticamente Khazad para nosotros # Cuando use Crypt :: CBC, la clave puede ser de cualquier longitud My $ KEY = "0123456789ABCDEF"; # IV debe tener exactamente 8 bytes de largo My $ IV = Paquete "H16", 0; MY $ CIPHER = Crypt :: CBC-> Nuevo ({'clave' => $ clave, 'cipher' => 'khazad', 'IV' => $ IV, 'RegeneReDe_Key' => 1, 'Padding' => 'estándar', 'prepend_iv' => 0}); # Cuando use Crypt :: CBC, PLAINTEXT puede ser de cualquier longitud My $ PlaintExt1 = "Esto es una prueba"; MY $ CIPHERTEXT = $ CIPHER-> CIPT ($ PLAINTEXT1); My $ PLAINTEXT2 = $ CIPHER-> Decrypt ($ ciphercext); Imprimir "descifrado okn" si ($ PlaintExt1 EQ $ PlaintExt2); Requisitos: · Perl

Crypt :: Khazad Software relacionado