Crypt :: Skipjack Crypt :: CBC-Cumplex Block Cifre.
Descargar ahora

Crypt :: Skipjack Clasificación y resumen

Crypt :: Skipjack Etiquetas

cuadra Módulo perl cifrado de bloque cifrar

Crypt :: Skipjack Descripción

Crypt :: CBC-Cumple en bloque cifrado. Crypt :: Skipjack es un módulo PERL con una cripta :: Bloque compatible con CBC Cipher.Abstractskipjack es una tecla de 80 bits, cifrado de bloque de 64 bits diseñado por el NSA.SYNOPSIS Use Crypt :: Skipjack; $ cipher = New Crypt :: Skipjack $ Key; $ ciphercext = $ cifrado-> cifrado ($ texto simple); $ PLAINTEXT = $ CIPHER-> Decrypt ($ CIPHERTEXT); Skipjack es el algoritmo de cifrado de clave secreto diseñado por la Agencia Nacional de Seguridad, y se usa en la tarjeta Clipper Chip y Fortezza PC. Se implementó en hardware resistente a los tamaños y su estructura se había clasificado desde su introducción en 1993. Skipjack fue sin clasificar el 24 de junio de 1998.Skipjack es una clave de 80 bits, bloqueo de bloque de 64 bits. Este módulo admite la cripta :: La interfaz CBC, con las siguientes funciones. Los problemas de bloques devuelven devuelven el tamaño (en bytes) del bloque (8, en este caso) .keysize devuelve el tamaño (en bytes) de la tecla (10, en este caso) ..crypt ($ datos ) Encripta 8 bytes de $ DATA y DEVOLUCIONES El cifrado correspondiente. Decrypt ($ DATA) descifra 8 bytes de $ DATA Y DEVOLVERSE EL PLAINTEXT.ETSAMPLE 1 #! / USR / local / bin / perl Use Diagnostics; usar estricto; usar advertencias; Usa Crypt :: Skipjack; # La clave debe tener 10 bytes de largo My $ KEY = "0123456789"; My $ cipher = New Crypt :: Skipjack $ Key; Imprimir "BlockSize =", $ cifrado-> BlockSize, "Bytes "; Imprimir" Keysize = ", $ cipher-> Keysize," Bytes "; El bloque debe ser de 8 bytes de largo My $ PlaintExt1 =" ABCDEF01 "; MY $ CIPHERTEXT = $ CIPHER-> CIPT ($ PLAINTEXT1); MIS $ PLAINTEXT2 = $ CIPHER-> Decrypt ($ ciphercext); Imprimir" Descifrado 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 Skipjack 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-> Nueva ({'clave '=> $ Tecla,' cifrado '=>' Skipjack ',' 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 :: Skipjack Software relacionado