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

126 lines
3.7 KiB
Perl

use strict;
use warnings;
use Test::More tests => 56;
use Crypt::AuthEnc::EAX qw( eax_encrypt_authenticate eax_decrypt_verify );
sub do_test {
my %a = @_;
my $key = pack("H*", $a{key});
my $nonce = pack("H*", $a{nonce});
my $header = pack("H*", $a{header});
my $plaintext = pack("H*", $a{plaintext});
my $ciphertext = pack("H*", $a{ciphertext});
my $tag = pack("H*", $a{tag});
# encrypt
my $m1 = Crypt::AuthEnc::EAX->new("AES", $key, $nonce);
$m1->header_add($header);
my $ct = $m1->encrypt_add($plaintext);
my $tag1 = $m1->encrypt_done;
is(unpack('H*', $ct), $a{ciphertext}, "enc: ciphertext");
is(unpack('H*', $tag1), $a{tag}, "enc: tag");
# decrypt
my $d1 = Crypt::AuthEnc::EAX->new("AES", $key, $nonce);
$d1->header_add($header);
my $pt = $d1->decrypt_add($ciphertext);
my $tag2 = $d1->decrypt_done();
is(unpack('H*', $pt), $a{plaintext}, "dec: plaintext");
is(unpack('H*', $tag2), $a{tag}, "dec: tag");
# all-in-one
my ($ct3, $tag3) = eax_encrypt_authenticate('AES', $key, $nonce, $header, $plaintext);
is(unpack('H*', $ct3), $a{ciphertext}, "enc: ciphertext");
is(unpack('H*', $tag3), $a{tag}, "enc: tag");
my $pt3 = eax_decrypt_verify('AES', $key, $nonce, $header, $ciphertext, $tag);
is(unpack('H*', $pt3), $a{plaintext}, "dec: plaintext");
}
do_test(%$_) for (
#/* NULL message */
{
#16, 0, 0, 0,
key => '000102030405060708090a0b0c0d0e0f',
nonce => '',
header => '',
plaintext => '',
ciphertext => '',
tag => '9ad07e7dbff301f505de596b9615dfff',
},
#/* test with nonce */
{
#16, 16, 0, 0,
key => '000102030405060708090a0b0c0d0e0f',
nonce => '000102030405060708090a0b0c0d0e0f',
header => '',
plaintext => '',
ciphertext => '',
tag => '1ce10d3effd4cadbe2e44b58d60ab9ec',
},
#/* test with header [no nonce] */
{
#16, 0, 16, 0,
key => '000102030405060708090a0b0c0d0e0f',
nonce => '',
header => '000102030405060708090a0b0c0d0e0f',
plaintext => '',
ciphertext => '',
tag => '3a698f7a270e51b0f65b3d3e47193cff',
},
#/* test with header + nonce + plaintext */
{
#16, 16, 16, 32,
key => '000102030405060708090a0b0c0d0e0f',
nonce => '000102030405060708090a0b0c0d0e0f',
header => '000102030405060708090a0b0c0d0e0f',
plaintext => '000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f',
ciphertext => '29d878d1a3be857b6fb8c8ea5950a778331fbf2ccf33986f35e8cf121dcb30bc',
tag => '4fbe0338be1c8c7e1d7ae7e45b92c587',
},
#/* test with header + nonce + plaintext [not even sizes!] */
{
#16, 15, 14, 29,
key => '000102030405060708090a0b0c0d0e0f',
nonce => '000102030405060708090a0b0c0d0e',
header => '000102030405060708090a0b0c0d',
plaintext => '000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c',
ciphertext => 'dd25c754c5b17c5928b69b73155f7bb8888faf37091ad92c8a24db868b',
tag => '0d1a14e52224ffd23a05fa02cdef52da',
},
#/* Vectors from Brian Gladman */
{
#16, 16, 8, 0,
key => '233952dee4d5ed5f9b9c6d6ff80ff478',
nonce => '62ec67f9c3a4a407fcb2a8c49031a8b3',
header => '6bfb914fd07eae6b',
plaintext => '',
ciphertext => '',
tag => 'e037830e8389f27b025a2d6527e79d01',
},
{
#16, 16, 8, 2,
key => '91945d3f4dcbee0bf45ef52255f095a4',
nonce => 'becaf043b0a23d843194ba972c66debd',
header => 'fa3bfd4806eb53fa',
plaintext => 'f7fb',
ciphertext => '19dd',
tag => '5c4c9331049d0bdab0277408f67967e5',
},
{
#16, 16, 8, 5,
key => '01f74ad64077f2e704c0f60ada3dd523',
nonce => '70c3db4f0d26368400a10ed05d2bff5e',
header => '234a3463c1264ac6',
plaintext => '1a47cb4933',
ciphertext => 'd851d5bae0',
tag => '3a59f238a23e39199dc9266626c40f80',
},
);