Crypt :: skipjack. cripto :: cifras de bloco compatível com CBC.
Baixe Agora

Crypt :: skipjack. Classificação e resumo

Crypt :: skipjack. Tag

quadra Módulo Perl. bloco de cifra cifra

Crypt :: skipjack. Descrição

Cripto :: Cifra de bloco compatível com CBC. Crypt :: Skipjack é um módulo Perl com uma cripta :: Cibliant Cifrado CifractsKipJack é uma chave de 80 bits, uma cifra de bloco de 64 bits projetada pela NSA.Synopsis Use Cripto :: Skipjack; $ cifra = nova cripta :: skipjack $ chave; $ ciphertext = $ cifra-> criptografar ($ texto simples); $ blintext = $ cifra-> descriptografar ($ ciphertext); skipjack é o algoritmo chave secreto criptografia projetado pela National Security Agency e é usado no chip clipper e Fortezza PC. Foi implementado em hardware resistente a adulterios e sua estrutura foi classificada desde a sua introdução em 1993. Skipjack foi não classificado em 24 de junho de 1998.Skipjack é uma chave de 80 bits, um bloco de 64 bits cifra. Este módulo suporta a cripta :: Interface CBC, com as seguintes funções.FunctionsBlockSize retorna o tamanho (em bytes) do bloco (8, neste caso) .keysize retorna o tamanho (em bytes) da chave (10, neste caso) .Encrypt ($ data ) Criptografa 8 bytes de $ Data e retorna o ciphertext.decrypt ($ Data) correspondente descriptografa 8 bytes de $ dados e retorna o texto simples correspondente.Example 1 #! / Usr / local / bin / perl Use diagnósticos de uso; Use rigoroso; use avisos; Use Crypt :: Skipjack; # chave deve ser 10 bytes longos meus $ key = "0123456789"; Minha $ cifra = nova cripta :: skipjack $ chave; Imprimir "Blocksize =", $ cifra-> blocksize ", bytes "; Imprimir" Keysize = ", $ cifra-> Keysize" bytes "; # bloco deve ser de 8 bytes Long My $ PlainExt1 =" ABCDEF01 "; Minha $ cifras = $ cifra-> criptoxt ($ PlaintExt1); Minha $ Plaintext2 = $ cifra-> descriptografar ($ Ciphertext); Imprimir" Decryption OK "If ($ PlaintExt1 EQ $ Plantext2); Exemplo 2 #! / usr / local / bin / perl Use diagnósticos; use avisos rigorosos; use avisos; use cripta :: CBC; # CBC carrega automaticamente skipjack para nós # ao usar a cripta :: CBC, chave pode ser de qualquer comprimento my $ key = "0123456789ABCDEF"; # iv deve ser exatamente 8 bytes longos meus $ iv = pacote "H16", 0; Minha $ cifra = Crypt :: CBC-> New ({'Key '=> $ chave,' cifra '=>' skipjack ',' iv '=> $ iv,' regenerado_key '=> 1,' Padding '=>' Standard ',' PREPTEND_IV '=> 0}); # quando Usando a cripta :: CBC, o texto simples pode ser de qualquer comprimento Meu $ PlainExt1 = "Este é um teste"; Minha $ cifras = $ cifra-> criptoxt ($ PlaintExt1); Minha $ PlaintExt2 = $ Cifrado-> descriptoxto ($ Ciphertext) ; imprimir "descriptografia ok "if ($ PlAtãoXt1 EQ $ PlainExt2); requisitos: · Perl.

Crypt :: skipjack. Software Relacionado