51 lines
1.8 KiB
Perl
51 lines
1.8 KiB
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
# tests from Crypt::IDEA
|
||
|
|
|
||
|
|
use Test::More tests => 55;
|
||
|
|
use Crypt::Cipher::IDEA;
|
||
|
|
|
||
|
|
my @TEST_SUITE = (
|
||
|
|
[qw( 00010002000300040005000600070008 0000000100020003 11FBED2B01986DE5 )],
|
||
|
|
[qw( 00010002000300040005000600070008 0102030405060708 540E5FEA18C2F8B1 )],
|
||
|
|
[qw( 00010002000300040005000600070008 0019324B647D96AF 9F0A0AB6E10CED78 )],
|
||
|
|
[qw( 00010002000300040005000600070008 F5202D5B9C671B08 CF18FD7355E2C5C5 )],
|
||
|
|
[qw( 00010002000300040005000600070008 FAE6D2BEAA96826E 85DF52005608193D )],
|
||
|
|
[qw( 00010002000300040005000600070008 0A141E28323C4650 2F7DE750212FB734 )],
|
||
|
|
[qw( 00010002000300040005000600070008 050A0F14191E2328 7B7314925DE59C09 )],
|
||
|
|
[qw( 0005000A000F00140019001E00230028 0102030405060708 3EC04780BEFF6E20 )],
|
||
|
|
[qw( 3A984E2000195DB32EE501C8C47CEA60 0102030405060708 97BCD8200780DA86 )],
|
||
|
|
[qw( 006400C8012C019001F4025802BC0320 05320A6414C819FA 65BE87E7A2538AED )],
|
||
|
|
[qw( 9D4075C103BC322AFB03E7BE6AB30006 0808080808080808 F5DB1AC45E5EF9F9 )],
|
||
|
|
);
|
||
|
|
|
||
|
|
# Run a cipher test case
|
||
|
|
sub test {
|
||
|
|
my ($case, $key, $in, $out) = @_;
|
||
|
|
|
||
|
|
# Pack structures
|
||
|
|
my ($p_key, $p_in, $p_out) = map { pack("H*", $_) } ($key, $in, $out);
|
||
|
|
|
||
|
|
# Create a new cipher
|
||
|
|
my $cipher = Crypt::Cipher::IDEA->new($p_key);
|
||
|
|
isa_ok( $cipher, "Crypt::Cipher", "(c$case) Test object construction" );
|
||
|
|
|
||
|
|
# Key tests
|
||
|
|
is( $cipher->blocksize(), 8, "(c$case) Test cipher block size" );
|
||
|
|
is( $cipher->keysize(), 16, "(c$case) Test cipher key size" );
|
||
|
|
|
||
|
|
# Encrypt
|
||
|
|
my $e_test = uc unpack("H*", $cipher->encrypt($p_in));
|
||
|
|
is( $e_test, $out, "(c$case) Test Encryption" );
|
||
|
|
|
||
|
|
# Decrypt
|
||
|
|
my $d_test = uc unpack("H*", $cipher->decrypt($p_out));
|
||
|
|
is( $d_test, $in, "(c$case) Test Decryption" );
|
||
|
|
}
|
||
|
|
|
||
|
|
# Run all test cases
|
||
|
|
for (my $i = 0; $i <= $#TEST_SUITE; $i++) {
|
||
|
|
test($i, @{ $TEST_SUITE[$i] });
|
||
|
|
}
|