diff options
| author | Damyan Ivanov <dmn@debian.org> | 2017-11-28 12:45:14 +0000 |
|---|---|---|
| committer | Damyan Ivanov <dmn@debian.org> | 2017-11-28 12:45:14 +0000 |
| commit | b3d0c9e280ed278158bcf1d15963b7c6f66057df (patch) | |
| tree | 626803bfa41bcc047c17acaab8304e36baf5ae95 /t/auth_enc_ocb_test_vectors_ietf.t | |
| parent | 4ac9434ab1f94dff0c700cc1def19b773342054b (diff) | |
New upstream version 0.055
Diffstat (limited to 't/auth_enc_ocb_test_vectors_ietf.t')
| -rw-r--r-- | t/auth_enc_ocb_test_vectors_ietf.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/auth_enc_ocb_test_vectors_ietf.t b/t/auth_enc_ocb_test_vectors_ietf.t index 8a25a128..8e29a2cc 100644 --- a/t/auth_enc_ocb_test_vectors_ietf.t +++ b/t/auth_enc_ocb_test_vectors_ietf.t @@ -12,7 +12,7 @@ while (my $l = <DATA>) { chomp($l); next if $l =~ /^#/; $l =~ s/[\s\t]+/ /g; - + if ($l eq '') { next unless defined $d->{C}; my $A = pack('H*', $d->{A}); @@ -21,7 +21,7 @@ while (my $l = <DATA>) { my $K = pack('H*', $d->{K}); my $N = pack('H*', $d->{N}); my $tag_len = $d->{T} * 1; - + { #ENCRYPT my $m = Crypt::AuthEnc::OCB->new('AES', $K, $N, $tag_len); $m->adata_add($A); @@ -48,7 +48,7 @@ while (my $l = <DATA>) { $v =~ s/\s//g; $d->{$k} = $v; } - + } #print $text; @@ -173,4 +173,4 @@ A: 000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F2021222324252 P: 000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F2021222324252627 C: 1792A4E31E0755FB03E31B22116E6C2DDF9EFD6E33D536F1A0124B0A55BAE884ED93481529C76B6AD0C515F4D1CDD4FDAC4F02AA -LAST_ITEM_PLACEHOLDER_DO_NOT_DELETE!!!
\ No newline at end of file +LAST_ITEM_PLACEHOLDER_DO_NOT_DELETE!!! |