Crypt :: Khazad. Crypt :: Khazad ist eine Krypta :: CBC-kompatible Blockschiffe.
Jetzt downloaden

Crypt :: Khazad. Ranking & Zusammenfassung

Crypt :: Khazad. Stichworte

Block Perl-Modul Verschlüsselung blockieren. Chiffre

Crypt :: Khazad. Beschreibung

Crypt :: Khazad ist eine Krypta :: CBC-kompatible Blockschiffe. Crypt :: Khazad ist eine Crypt: $ Cipher = NEUE CRYPT :: Khazad $ Key; $ CEHRTEXT = $ CEHRE-> Verschlüsseln ($ Klartext); $ placText = $ CEHRE-> Entschlüsseln ($ CEHRTEXT); Khazad ist eine 128-Bit-Taste, 64-Bit-Blockschiffe. Entworfen von Vincent Rijmen und Paulo S. L. M. Barreta Khazad hat viele Ähnlichkeiten mit Rijndael und hat eine extrem hohe Diffusionsrate. Dieses Modul unterstützt die CRYPT :: CBC-Schnittstelle mit den folgenden Funktionen.FunctionSclockSise gibt die Größe (in Bytes) des Blocks (in diesem Fall 8 in Bytes) des Blocks (in diesem Fall in Bytes) des Blocks (in diesem Fall in Bytes) des Blocks (in diesem Fall in Bytes) des Blocks zurück. Keyssize gibt die Größe (in Bytes) des Schlüssels (16, in diesem Fall). Engecrypt ($ Data) verschlüsselt 8 Byte von $ Daten verschlüsselt und gibt den entsprechenden CEHRTEXT.DECRYPT ($ Data) zurück, entschlüsselt 8 Byte von $ Daten und gibt das zurück entsprechende Klartext.Example 1 #! / usr / local / bin / perl Diagnose verwenden; Verwenden Sie streng; Warnungen verwenden; Verwenden Sie Crypt :: Khazad; # Key muss 16 Bytes lang sein, mein $ Key = "0123456789ABCDEF"; Meine $ cipher = Neue Krypta :: Khazad $ Key; drucken "blockssize =", $ CEHRE-> blockssize, "Bytes n"; drucken "keysize =", $ Cips-> Keysize, "Bytes n"; # BLOCK MUSS 8 BYTE S lang sein, mein $ plaiderext1 = "testing1"; Meine $ ciphertext = $ CEHRE-> Verschlüsseln ($ placText1); Meine $ plaiderext2 = $ CEHRE-> Entschlüsseln ($ CEHRTEXT); drucken "Entschlüsselung OKN" Wenn ($ plaiderext1 EQ $ placText2); Beispiel 2 #! / usr / local / bin / perl Diagnose verwenden; Verwenden Sie streng; Warnungen verwenden; Verwenden Sie Crypt :: CBC; # CBC lädt Khazad automatisch für uns #, wenn Sie Crypt :: CBC verwenden, kann der Schlüssel von Länge meiner $ Key = "0123456789ABCDEF" sein; # IV muss genau 8 Bytes lang sein, mein $ IV = Pack "H16", 0; Meine $ cipher = crypt :: CBC-> NEU ({'Key' => $ Key, 'Chiffre' => 'khazad', 'IV' => $ IV, 'regenerate_key' => 1, 'Padding' => 'Standard', 'prepend_iv' => 0}); # Wenn Sie Crypt :: CBC verwenden, kann der Klartext von einer beliebigen Länge sein, die mein $ placText1 = "Dies ist ein Test"; Meine $ ciphertext = $ CEHRE-> Verschlüsseln ($ placText1); Meine $ plaiderext2 = $ CEHRE-> Entschlüsseln ($ CEHRTEXT); Drucken "Entschlüsselung OKN", wenn ($ plaiderext1 EQ $ plaiderext2); Anforderungen: · Perl

Crypt :: Khazad. Zugehörige Software