Crypt :: Square Crypt :: CBC-kompatible Blockschiffer
Jetzt downloaden

Crypt :: Square Ranking & Zusammenfassung

Crypt :: Square Stichworte

Block Perl-Klasse. Verschlüsselung blockieren. Chiffre

Crypt :: Square Beschreibung

Crypt :: CBC-kompatible Blockschiffer CRYPT :: SQUARE bietet eine Cryption :: CBC-kompatible Block Cipre.Synopsis Verwenden Sie Crypt :: Quadrat; $ Cipher = NEUE CRYPT :: SQUICKEN $ KEY; $ CEHRTEXT = $ CEHRE-> Verschlüsseln ($ Klartext); $ placText = $ CEHRE-> Entschlüsseln ($ CEHRTEXTEXT); Das Quadrat ist eine 128-Bit-Blockschiffe, die eine 128-Bit-Taste akzeptiert. Entworfen von Joan Daemen, Vincent Rijmen und Lars Knudsen, Square, ist der Vorgänger von Rijndael, AKA mit dem Advanced Encryption Standard.Dieses Modul unterstützt die Crypt :: CBC-Schnittstelle mit den folgenden Funktionen .FunctionsblockSise gibt die Größe (in Bytes) der Block (16, in diesem Fall) .Kesize gibt die Größe (in Bytes) der Taste (16, in diesem Fall) der Taste (16, in diesem Fall) zurück. Engecrypt ($ Data) verschlüsselt 16 Bytes von $ Daten und gibt den entsprechenden CIRTETEXT.Decrypt ($ Daten) zurück. Entschlüsselt 16 Bytes von $ Daten und gibt die entsprechende Klartext zurück. 1 #! / Usr / local / bin / perl Diagnose verwenden; Verwenden Sie streng; Warnungen verwenden; Verwenden Sie Crypt :: Square; # Key muss 16 Bytes lang sein, mein $ Key = "0123456789ABCDEF"; Meine $ cipher = Neue Krypta :: Quadrat $ Key; drucken "blockssize =", $ chips-> blockssize, "bytes "; drucken" keysize = ", $ cipher-> kesize," Bytes "; # block muss 16 Bytes lang sein "Wenn ($ plaiderext1 eq $ plaiderext2); Beispiel 2 #! / usr / local / bin / perl Verwenden Sie Diagnose; verwenden Sie streng; verwenden Sie Warnungen verwenden; verwenden Sie CRYPT :: CBC; # CBC automatisch Platz für US # bei der Verwendung von Crypt :: CBC, Schlüssel kann von einer beliebigen Länge sein, meine $ Key = "0123456789ABCDEF"; # IV muss genau 16 Bytes lang sein '=> $ Schlüssel,' Chiffre '=>' Square ',' IV '=> $ IV,' regenerate_key '=> 1,' Padding '=>' Standard ',' Prepend_iv '=> 0}); # wann Mit CRYPT :: CBC, Klartext kann jede Länge von meiner $ plaintext1 = "Dies ist ein Test"; My $ CHREATTEXT = $ CEHRE-> verschlüsselt ($ plaiderext1); Meine $ plaintext2 = $ CEHRE-> Entschlüsseln ($ CEHRTEXT) ; drucken "Entschlüsselung ok "Wenn ($ plaiderext1 eq $ plaiderext2); Anforderungen: · Perl.

Crypt :: Square Zugehörige Software