Crypt :: Khazad. Crypt :: Khazad è una cripta :: CBC-Compliant Block CIPher.
Scarica ora

Crypt :: Khazad. Classifica e riepilogo

Crypt :: Khazad. Tag

bloccare modulo Perl blocco cifra cifra

Crypt :: Khazad. Descrizione

Crypt :: Khazad è una cripta :: CBC-Compliant Block CIPher. Crypt :: Khazad è una cripta :: Block Compliant CBC CIPHER.ABSATTRACTKHAZAD è un tasto a 128 bit, un blocco a 64 bit, progettato da Vincent Rijmen e Paulo S. L. M. Barreto.synopsis utilizzano Crypt :: Khazad; $ cifra = nuova cripta :: Khazad $ Key; $ ciphertext = $ cifra-> encrypt ($ plusext); $ PLAINNYEXT = $ cipher-> Decrypt ($ ciphertext); Khazad è una chiave a 128 bit, cifra a 64 bit. Progettato da Vincent Rijmen e Paulo S. L. M. Barreto, Khazad è un finalista Nessie per il blocco legacy-Block Cifrers. Khazad ha molte somiglianze con Rijndael e ha un tasso di diffusione estremamente elevato. Questo modulo supporta l'interfaccia CRYPT :: CBC, con le seguenti funzioni.FunctionSblockSize restituisce la dimensione (in byte) del blocco (8, in questo caso). Keysize restituisce la dimensione (in byte) della chiave (16, in questo caso) .encrypt ($ dati) crittografa 8 byte di $ dati e restituisce il corrispondente ciphertext.decrypt ($ Data) Decrypts 8 Byte di $ Dati e restituisce il corrispondente PLAINTOXT.Esempio 1 #! / USR / Locale / Bin / Perl utilizza la diagnostica; usare rigoroso; Utilizzare Avvertenze; Usa Crypt :: Khazad; # chiave deve essere di 16 byte lunghe my $ key = "0123456789ABCDEF"; My $ cipher = New Crypt :: Khazad $ Key; Stampa "Blocksize =", $ cifra-> Blocksize, "bytes n"; Stampa "Keysize =", $ cifra-> Keysize, "bytes n"; # Il blocco deve essere 8 byte lunghi my $ plusext1 = "Test1"; My $ ciphertext = $ cifra-> encrypt ($ plusext1); My $ PLAININTEXT2 = $ cifra-> Decrypt ($ cifratetxt); Stampa "Decryption OKN" se ($ PLAINTOXT1 EQ $ $ PLAININTEXT2); ESEMPIO 2 #! / USR / LOCALE / BIN / PERL UTILIZZA Diagnostica; usare rigoroso; Utilizzare Avvertenze; Usa Crypt :: CBC; # CBC carica automaticamente Khazad per noi # quando si utilizza Crypt :: CBC, il tasto potrebbe essere di qualsiasi lunghezza my $ key = "0123456789ABCDEF"; # IV deve essere esattamente 8 byte lungo il mio $ iv = pack "h16", 0; My $ Cipher = Crypt :: CBC-> Nuovo ({'Key' => $ Key, 'Cipher' => 'Khazad', 'IV' => $ IV, 'REGENERATE_KEY' => 1, 'Padding' => 'Standard', 'prepend_iv' => 0}); # Quando si utilizza Crypt :: CBC, il testo in chiaro potrebbe essere di qualsiasi lunghezza my $ plusext1 = "questo è un test"; My $ ciphertext = $ cifra-> encrypt ($ plusext1); My $ PLAININTEXT2 = $ cifra-> Decrypt ($ cifratetxt); Stampa "Decryption Okn" se ($ PLAINTOXT1 EQ $ $ PLAINTOXT2); Requisiti: · Perl

Crypt :: Khazad. Software correlato