Crypt :: Square cripto :: cifra de bloco compatível com CBC
Baixe Agora

Crypt :: Square Classificação e resumo

Crypt :: Square Tag

quadra Classe perl. bloco de cifra cifra

Crypt :: Square Descrição

Crypt :: cifra de bloco compatível com CBC Crypt :: Square oferece uma cripta :: CIBC Cifra de bloco compatível.synopsis usa cripta :: quadrado; $ cifra = nova cripta :: quadrado $ chave; $ ciphertext = $ cifra-> criptografar ($ texto simples); $ blintext = $ cifra-> descriptografar ($ ciphertext); quadrado é uma cifra de bloco de 128 bits que aceita uma chave de 128 bits. Projetado por Joan Daemen, Vincent Rijmen, e Lars Knudsen, Square é o antecessor do Rijndael, também conhecido como o avançado padrão de criptografia.Este módulo suporta a interface Crypt :: CBC, com as seguintes funções.FunctionsBlocksize retorna o tamanho (em bytes) do bloco (16, neste caso) .keysize retorna o tamanho (em bytes) da chave (16, neste caso) .Encrypt ($ data) criptografa 16 bytes de $ dados e retorna o cifrógrafo correspondente ($ data) Descriptografa 16 bytes de $ Data e retorna o texto simples correspondente.Example 1 #! / Usr / local / bin / perl Use diagnósticos; Use rigoroso; use avisos; usar cripto :: quadrado; # chave deve ser 16 bytes longos meus $ key = "0123456789abcdef"; Minha $ Cifra = Nova Cripta :: Square $ Key; Imprimir "Blocksize =", $ cifra-> blocksize ", bytes "; Imprimir" Keysize = ", $ cifra-> Keysize" bytes "; # bloco deve ser de 16 bytes de comprimento Meu $ PlaintExt1 =" 0123456789abcdef "; Meu $ cifrómetro = $ cifra-> criptoxt ($ PlaintExt1); Minha $ Plaintext2 = $ cifra-> descriptoxto ($ Ciphertext); Imprimir" Decryption OK "IF ($ PlAtãoxt1 EQ $ Plantext2); Exemplo 2 #! / usr / local / bin / perl Use diagnósticos; use rigorosos; use avisos; usar a cripta :: CBC; # CBC automaticamente carrega quadrada para nós # ao usar a cripta :: CBC, chave pode ser de qualquer comprimento my $ Key = "0123456789ABCDEF"; # iv deve ser exatamente 16 bytes longos meus $ iv = pacote "H32", 0; Minha $ cifra = crypt :: CBC-> New ({'tecla '=> $ chave,' cifra '=>' quadrado ',' iv '=> $ iv,' regenerado_key '=> 1,' Padding '=>' Standard ',' Prepend_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 :: Square Software Relacionado