Crypt :: Skipjack. Crypt :: CBC-kompatible Blockverschlüssele.
Jetzt downloaden

Crypt :: Skipjack. Ranking & Zusammenfassung

Crypt :: Skipjack. Stichworte

Block Perl-Modul Verschlüsselung blockieren. Chiffre

Crypt :: Skipjack. Beschreibung

Crypt :: CBC-kompatible Blockschiffe. Crypt :: Skipjack ist ein Perl-Modul mit einer CRYPT :: CBC-kompatibler Blockschiebe.abractskipjack ist eine 80-Bit-Taste, 64-Bit-Blockschiffe, die von der NSA.synopsis entworfen ist. Crypt :: Skipjack; $ Cipher = New Crypt :: Skipjack $ Key; $ CEHRTEXT = $ CEHRE-> Verschlüsseln ($ Klartext); $ plainext = $ CEHRE-> Entschlüsseln ($ CHRTEPTEXT); Skipjack ist der von der nationalen Sicherheitsagentur entworfene Geheimschlüssel-Verschlüsselungsalgorithmus und wird in der Cliper Chip- und Fortezza-PC-Karte verwendet. Es wurde in tamerresistenter Hardware implementiert, und seine Struktur wurde seit seiner Einführung im Jahr 1993 eingestuft. Der Skipjack wurde am 24. Juni 1998 nicht klassifiziert. CBC-Schnittstelle mit den folgenden Funktionen ) Verschlüsseln Sie 8 Byte von $ Daten und gibt den entsprechenden CERIERTEXT.DECRYPT ($ Data) zurück, entschlüsselt 8 Byte von $-Daten und gibt die entsprechende Klartext zurück. 1 #! / Usr / local / bin / perl Diagnose verwenden; Verwenden Sie streng; Warnungen verwenden; Verwenden Sie Crypt :: Skipjack; # Schlüssel muss 10 Bytes lang sein, meine $ Key = "0123456789"; Meine $ Cipher = NEUE CRYPT :: Skipjack $ Key; drucken "blockssize =", $ chips-> blockssize, "bytes "; drucken" keysize = ", $ cipher-> kesize," Bytes "; # block muss 8 Bytes lange lang sein "Wenn ($ plaiderext1 eq $ plaiderext2); Beispiel 2 #! / usr / local / bin / perl Verwenden Sie Diagnose verwenden; verwenden Sie streng; verwenden Sie Warnungen verwenden; Verwenden Sie CRYPT :: CBC; # CBC automatisch Ladet Skipjack für uns #, wenn Sie Crypt verwenden :: CBC, Schlüssel kann von jeder Länge sein, meine $ Key = "0123456789ABCDEF"; # IV muss genau 8 Bytes lang sein '=> $ KEY,' CIER '=>' Skipjack ',' 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 :: Skipjack. Zugehörige Software