DeforaNetworks/fwknop
DeforaNetworks/fwknop
3
0
Fork 0
Code Releases Activity

[perl FKO module] switch to CBC mode tests from ECB

Browse Source
This commit is contained in:
Michael Rash 2013-10-10 22:43:45 -04:00
parent ab0d5ac3e2
commit 431a5e3ecd
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
perl/FKO/t/00_init.t
View File

@ -20,7 +20,7 @@ my $test_spa_data = '';
my $test_spa_data_pw = 'test1234567890';
my $test_hmac_key = '0987654321test this is only a test';
my $test_encryption_mode = $FKO::FKO_ENC_MODE_ECB;
my $test_encryption_mode = $FKO::FKO_ENC_MODE_CBC;
my $test_hmac_type = $FKO::FKO_HMAC_SHA256;
my $test_spa_data_pw_len = length($test_spa_data_pw);

8
perl/FKO/t/03_errors.t
View File

@ -65,7 +65,7 @@ ok($err == FKO_ERROR_INCOMPLETE_SPA_DATA, "invalid spa_data_final error test: go
# 7 - Good spa data final for further tests.
#
$f1->spa_message("0.0.0.0,tcp/22");
$f1->encryption_mode(FKO_ENC_MODE_ECB);
$f1->encryption_mode(FKO_ENC_MODE_CBC);
$f1->hmac_type(FKO_HMAC_SHA256);
$err = $f1->spa_data_final($tuser_pw, $thmac_key);
@ -73,17 +73,17 @@ ok($err == FKO_SUCCESS, "spa_data_final: got($err)");
# 8-10 - New object from f1 data with good pw, bad pw, then no pw
#
my $f2 = FKO->new($f1->spa_data(), $tuser_pw, FKO_ENC_MODE_ECB, $thmac_key, FKO_HMAC_SHA256);
my $f2 = FKO->new($f1->spa_data(), $tuser_pw, FKO_ENC_MODE_CBC, $thmac_key, FKO_HMAC_SHA256);
ok(defined($f2), 'create fko object f2 (good pw)');
$f2->destroy();
$f2 = FKO->new($f1->spa_data(), 'bad_pw', FKO_ENC_MODE_ECB, $thmac_key, FKO_HMAC_SHA256);
$f2 = FKO->new($f1->spa_data(), 'bad_pw', FKO_ENC_MODE_CBC, $thmac_key, FKO_HMAC_SHA256);
is($f2, undef, 'create fko object f2 (bad pw)');
$f2->destroy() if($f2); #Just in case
$f2 = FKO->new($f1->spa_data(), undef, FKO_ENC_MODE_ECB, $thmac_key, FKO_HMAC_SHA256);
$f2 = FKO->new($f1->spa_data(), undef, FKO_ENC_MODE_CBC, $thmac_key, FKO_HMAC_SHA256);
ok($f2, 'create fko object f2 (no pw)');
# 11 - Bad decrypt pw