Crypt :: Square CRYPT :: CBC-Compliant blokcijfer
Download nu

Crypt :: Square Rangschikking & Samenvatting

Crypt :: Square Tags

blok Perl-klasse blokcijfer cijfer

Crypt :: Square Beschrijving

Crypt :: CBC-compatibel blokcijfer Crypt :: Square biedt een crypt :: CBC-compatibele blokcipher.synopsis gebruik Crypt :: vierkant; $ cipher = nieuw crypt :: vierkante $ sleutel; $ ciphertext = $ cipher-> codering ($ plaintext); $ Plaintext = $ cipher-> decoderen ($ ciphertext); vierkant is een 128-bits blokcijfer dat een 128-bits sleutel accepteert. Ontworpen door Joan Daemen, Vincent Rijmen en Lars Knudsen, plein is de voorganger van Rijndael, ook bekend als de geavanceerde coderingsstandaard. Deze module ondersteunt de CRYPT :: CBC-interface, met de volgende functies.FunctiesBeblocksize Retourneert de grootte (in bytes) van de Block (16, in dit geval) .Keysize retourneert de grootte (in bytes) van de sleutel (16, in dit geval) .Crypt ($ gegevens) codeert 16 bytes van $ gegevens en retourneert de overeenkomstige ciphertext.decrypt ($ gegevens) Decodeert 16 bytes van $ gegevens en retourneert de bijbehorende PlainText.Example 1 #! / Usr / local / bin / Perl-gebruik Diagnostics; strikt gebruik; gebruik waarschuwingen; Gebruik Crypt :: Square; # sleutel moet 16 bytes lang zijn, mijn $ sleutel = "0123456789ABCDEF"; mijn $ cipher = NIEUW CRYPT :: vierkante $ -toets; Print "blocksize =", $ cipher-> blocksize, "bytes "; print" toetsen ellende = ", $ cipher-> toetsens," bytes "; # Blok moet 16 bytes lang zijn, mijn $ plaintext1 =" 0123456789ABCDEF "; mijn $ ciphertext = $ cipher-> codering ($ plainext1); mijn $ plaintext2 = $ cipher-> decoderen ($ ciphertext); print" decodering ok "IF ($ PlainExt1 EQ $ PLAINTECTEXT2); Voorbeeld 2 #! / USR / LOKALE / BIN / PERL GEBRUIK Diagnose; gebruik strikte; gebruik waarschuwingen; gebruik Crypt :: CBC; # CBC laadt automatisch vierkant voor ons # bij het gebruik van Crypt :: CBC, sleutel kan van elke lengte mijn $ sleutel zijn = "0123456789ABCDEF"; # IV MOET PRECIES 16 BYTES LANG MIJN $ IV = PACK "H32", 0; MY $ CERDE = CRYPT :: CBC-> NIEUWE ({'-toets '=> $ -toets,' Cipher '=>' Square ',' IV '=> $ IV,' Regenerate_key '=> 1,' PADDING '=>' standaard ',' prepend_iv '=> 0}); # Wanneer Crypt gebruiken :: CBC, Plaintext kan van elke lengte mijn $ Plaintext1 = "dit is een test"; mijn $ ciphertext = $ cipher-> codering ($ plainext1); mijn $ plaintext2 = $ cipher-> decoderen ($ ciphertext) ; print "decodering ok "if ($ plainext1 eq $ plainext2); vereisten: · Perl

Crypt :: Square Gerelateerde software