generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add DES3 CFB1 mode tests.

Browse Source
This commit is contained in:
Dr. Stephen Henson 2009-04-18 22:41:46 +00:00
parent 374941f727
commit d9a55422c7
1 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
fips/fipsalgtest.pl
View File

@ -304,6 +304,24 @@ my @fips_des3_test_list = (
); );
my @fips_des3_cfb1_test_list = (
# DES3 CFB1 tests
[ "TCFB1invperm", "fips_desmovs -f" ],
[ "TCFB1MMT1", "fips_desmovs -f" ],
[ "TCFB1MMT2", "fips_desmovs -f" ],
[ "TCFB1MMT3", "fips_desmovs -f" ],
[ "TCFB1Monte1", "fips_desmovs -f" ],
[ "TCFB1Monte2", "fips_desmovs -f" ],
[ "TCFB1Monte3", "fips_desmovs -f" ],
[ "TCFB1permop", "fips_desmovs -f" ],
[ "TCFB1subtab", "fips_desmovs -f" ],
[ "TCFB1varkey", "fips_desmovs -f" ],
[ "TCFB1vartext", "fips_desmovs -f" ],
);
# Verification special cases. # Verification special cases.
# In most cases the output of a test is deterministic and # In most cases the output of a test is deterministic and
# it can be compared to a known good result. A few involve # it can be compared to a known good result. A few involve
@ -351,7 +369,8 @@ my %fips_enabled = (
"rand-des2" => 0, "rand-des2" => 0,
aes => 1, aes => 1,
"aes-cfb1" => 0, "aes-cfb1" => 0,
des3 => 1 des3 => 1,
"des3-cfb1" => 0
); );
foreach (@ARGV) { foreach (@ARGV) {
@ -427,6 +446,7 @@ push @fips_test_list, @fips_rand_des2_test_list if $fips_enabled{"rand-des2"};
push @fips_test_list, @fips_aes_test_list if $fips_enabled{"aes"}; push @fips_test_list, @fips_aes_test_list if $fips_enabled{"aes"};
push @fips_test_list, @fips_aes_cfb1_test_list if $fips_enabled{"aes-cfb1"}; push @fips_test_list, @fips_aes_cfb1_test_list if $fips_enabled{"aes-cfb1"};
push @fips_test_list, @fips_des3_test_list if $fips_enabled{"des3"}; push @fips_test_list, @fips_des3_test_list if $fips_enabled{"des3"};
push @fips_test_list, @fips_des3_cfb1_test_list if $fips_enabled{"des3-cfb1"};
if ($list_tests) { if ($list_tests) {
my ( $test, $en ); my ( $test, $en );
@ -806,11 +826,11 @@ sub cmp_file {
return 1; return 1;
} }
if ( !defined($rspline) ) { if ( !defined($rspline) ) {
print STDERR "ERROR: $tname EOF on $rspf\n"; print STDERR "ERROR: $tname EOF on $rsp\n";
return 0; return 0;
} }
if ( !defined($tstline) ) { if ( !defined($tstline) ) {
print STDERR "ERROR: $tname EOF on $tstf\n"; print STDERR "ERROR: $tname EOF on $tst\n";
return 0; return 0;
} }
@ -821,7 +841,7 @@ sub cmp_file {
if ( $tstline ne $rspline ) { if ( $tstline ne $rspline ) {
print STDERR "ERROR: $tname mismatch:\n"; print STDERR "ERROR: $tname mismatch:\n";
print STDERR "\t $tstline != $rspline\n"; print STDERR "\t \"$tstline\" != \"$rspline\"\n";
return 0; return 0;
} }
} }
@ -842,6 +862,8 @@ sub next_line {
# Translate multiple space into one # Translate multiple space into one
s/\s+/ /g; s/\s+/ /g;
# Delete trailing whitespace
s/\s+$//;
return $_; return $_;
} }
return undef; return undef;