libcryptx-perl/t/cipher_idea_compat.t
2018-03-22 15:54:03 +01:00

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] });
}