Crypt :: Square Crypt :: CBC-Cumplex Block Cifre
Descargar ahora

Crypt :: Square Clasificación y resumen

Crypt :: Square Etiquetas

cuadra Clase perl cifrado de bloque cifrar

Crypt :: Square Descripción

Crypt :: CBC-Cumplex Block Cifre Crypt :: Square ofrece una cripta :: Bloque compatible con CBC Cipher.Synopsis Use Crypt :: Square; $ cipher = nueva cripta :: cuadrado $ clave; $ ciphercext = $ cifrado-> cifrado ($ texto simple); $ PlaintExt = $ cifrado-> descifrado ($ ciphercext); cuadrado es un cifrado de bloque de 128 bits que acepta una tecla de 128 bits. Diseñado por Joan Daemen, Vincent Rijmen, y Lars Knudsen, Square es el predecesor de Rijndael, también conocido como el estándar de cifrado avanzado. Este módulo es compatible con la interfaz CRIP :: CBC, con las siguientes funciones. OunciSblockSize devuelve el tamaño (en bytes) de la BLOQUE (16, en este caso) .keysize Devuelve el tamaño (en bytes) de la clave (16, en este caso) .Encrypt ($ DATA) cifra 16 bytes de $ DATA y devuelve el cifrado correspondiente ($ DATOS) Declicts 16 bytes de $ DATA y devuelve el PlaintExpreso correspondiente.Explume 1 #! / Usr / local / bin / perl usa diagnósticos; usar estricto; usar advertencias; usar crypt :: cuadrado; # La clave debe tener 16 bytes de largo My $ KEY = "0123456789ABCDEF"; MY $ CIPHER = NUEVA CRIPT :: CLAVE DE CUADRO $; Imprimir "BlockSize =", $ cifrado-> BlockSize, "Bytes "; Imprimir" Keysize = ", $ cipher-> Keysize," Bytes "; # bloque debe tener 16 bytes de largo My $ PLAINTEXT1 =" 0123456789ABCDEF "; MY $ CIPHERTEXT = $ CIPHER-> CIPTO ($ PLAINTEXT1); MY $ PLAINTEXT2 = $ CIPHER-> Decrypt ($ ciphercext); Imprimir" OK OK "Si ($ PlaintExt1 EQ $ PlaintExt2); Ejemplo 2 #! / usr / local / bin / perl usa diagnósticos; use estrictos; use las advertencias; use crypt :: CBC; # CBC carga automáticamente cuadrado para nosotros # cuando use crypt :: CBC, la clave puede ser de cualquier longitud My $ KEY = "0123456789ABCDEF"; # IV debe tener exactamente 16 bytes de largo My $ IV = Pack "H32", 0; My $ Cipher = Crypt :: CBC-> NUEVO ({'KEY '=> $ clave,' cifrado '=>' cuadrado ',' IV '=> $ IV,' RegeneRe_key '=> 1,' rellenando '=>' estándar ',' prepend_iv '=> 0}); # cuando Uso de Crypt :: CBC, PLAINTEXT puede ser de cualquier longitud My $ PlaintExt1 = "Esto es una prueba"; My $ CIPHERTEXT = $ CIPHER-> Cifrado ($ PlaintExt1); My $ PlaintExt2 = $ cifrado-> descifrado ($ cifrado) ; imprimir "descifrado ok "Si ($ PlaintExt1 EQ $ PlaintExt2); Requisitos: · Perl

Crypt :: Square Software relacionado