Crypt::Square Crypt::CBC-compliant block cipher
Download

Crypt::Square Ranking & Summary

Crypt::Square Tags

block Perl class block cipher cipher

Crypt::Square Description

Crypt::CBC-compliant block cipher Crypt::Square offers a Crypt::CBC compliant block cipher.SYNOPSIS use Crypt::Square; $cipher = new Crypt::Square $key; $ciphertext = $cipher->encrypt($plaintext); $plaintext = $cipher->decrypt($ciphertext);Square is a 128-bit block cipher that accepts a 128-bit key. Designed by Joan Daemen, Vincent Rijmen, and Lars Knudsen, Square is the predecessor of Rijndael, aka the Advanced Encryption Standard.This module supports the Crypt::CBC interface, with the following functions.Functionsblocksize Returns the size (in bytes) of the block (16, in this case).keysize Returns the size (in bytes) of the key (16, in this case).encrypt($data) Encrypts 16 bytes of $data and returns the corresponding ciphertext.decrypt($data) Decrypts 16 bytes of $data and returns the corresponding plaintext.EXAMPLE 1 #!/usr/local/bin/perl use diagnostics; use strict; use warnings; use Crypt::Square; # key must be 16 bytes long my $key = "0123456789abcdef"; my $cipher = new Crypt::Square $key; print "blocksize = ", $cipher->blocksize, " bytes "; print "keysize = ", $cipher->keysize, " bytes "; # block must be 16 bytes long my $plaintext1 = "0123456789abcdef"; my $ciphertext = $cipher->encrypt($plaintext1); my $plaintext2 = $cipher->decrypt($ciphertext); print "Decryption OK " if ($plaintext1 eq $plaintext2);EXAMPLE 2 #!/usr/local/bin/perl use diagnostics; use strict; use warnings; use Crypt::CBC; # CBC automatically loads Square for us # when using Crypt::CBC, key may be of ANY length my $key = "0123456789abcdef"; # IV must be exactly 16 bytes long my $IV = pack "H32", 0; my $cipher = Crypt::CBC->new({'key' => $key, 'cipher' => 'Square', 'iv' => $IV, 'regenerate_key' => 1, 'padding' => 'standard', 'prepend_iv' => 0 }); # when using Crypt::CBC, plaintext may be of ANY length my $plaintext1 = "This is a test"; my $ciphertext = $cipher->encrypt($plaintext1); my $plaintext2 = $cipher->decrypt($ciphertext); print "Decryption OK " if ($plaintext1 eq $plaintext2); Requirements: · Perl

Crypt::Square Related Software