Crypt :: Chazad. Crypt :: Khazad é uma cripta :: cifra de bloco compatível com CBC.
Baixe Agora

Crypt :: Chazad. Classificação e resumo

Crypt :: Chazad. Tag

quadra Módulo Perl. bloco de cifra cifra

Crypt :: Chazad. Descrição

Crypt :: Khazad é uma cripta :: cifras de bloco compatível com CBC. Crypt :: Khazad é uma cripta :: Cifras de bloco compatível com CBC.Abstractkhazad é uma chave de 128 bits, uma cifra de bloco de 64 bits, projetada por Vincent Rijmen e Paulo S. L. M. Barreto.Synopsis Use Cripto :: Chazad; $ cifra = nova cripta :: khazad $ chave; $ ciphertext = $ cifra-> criptografar ($ texto simples); $ PlaintExt = $ cifra-> descriptografar ($ ciphertext); khazad é uma chave de 128 bits, uma cifra de bloco de 64 bits. Projetado por Vincent Rijmen e Paulo S. L. M. Barreto, Khazad é um finalista de Nessie para cifras de bloco de nível legado. O Khazad tem muitas semelhanças com o Rijndael, e tem uma taxa extremamente alta de difusão. Este módulo suporta a interface Crypt :: CBC, com as seguintes funções.FunctionsBlockSize retorna o tamanho (em bytes) do bloco (8, neste caso). O Keysize retorna o tamanho (em bytes) da chave (16, neste caso) .Encrypt ($ Data) Criptografa 8 bytes de $ Data e retorna o ciphertext.decrypt ($ Data) correspondente descriptografa 8 bytes de $ dados e retorna o Plajext.Examplo correspondente 1 #! / usr / local / bin / perl Use diagnósticos; Use rigoroso; use avisos; Use Cripto :: Chazad; # chave deve ser 16 bytes longos meus $ key = "0123456789abcdef"; Minha $ Cifra = Nova Cripta :: Khazad $ Key; Imprimir "Blocksize =", $ cifra-> blocksize, "bytes n"; Imprimir "Keysize =", $ cifra-> Keysize, "bytes n"; # bloco deve ter 8 bytes longos meus $ plainext1 = "testing1"; Meu $ CipherText = $ Cifra-> Criptografar ($ PlaintExt1); Meu $ PlAtãoxt2 = $ cifra-> descriptografar ($ ciphertext); Imprimir "Descriptografia OKN" se ($ PlAtãoXT1 eq $ PlainExt2); Exemplo 2 #! / usr / local / bin / perl Use diagnósticos; Use rigoroso; use avisos; Use Cripto :: CBC; # CBC carrega automaticamente o Khazad para nós, ao usar a cripta :: CBC, a tecla pode ser de qualquer comprimento minha $ Key = "0123456789ABCDEF"; # Iv deve ser exatamente 8 bytes longos meus $ iv = pacote "h16", 0; Minha $ cifra = cripto :: cbc-> novo ({'key' => $ chave, 'cifra' => 'khazad', 'iv' => $ iv, 'regenerado_key' => 1, 'preenchimento' => 'Standard', 'Prepend_iv' => 0}); # Ao usar a cripta :: CBC, o texto simples pode ser de qualquer comprimento my $ plainext1 = "Este é um teste"; Meu $ CipherText = $ Cifra-> Criptografar ($ PlaintExt1); Meu $ PlAtãoxt2 = $ cifra-> descriptografar ($ ciphertext); Imprimir "Descryption Okn" se ($ PlAtãoxt1 EQ $ Plainext2); Requisitos: · Perl

Crypt :: Chazad. Software Relacionado