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

[perl] add SHA3 digest algorithms

Browse Source
This commit is contained in:
Michael Rash 2016-10-04 22:16:34 -04:00
parent f5509bcd0c
commit d287d14283
2 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
perl/FKO/lib/FKO_Constants.pl
View File

@ -31,6 +31,8 @@ our @DIGEST_TYPES = qw(
FKO_DIGEST_SHA256 FKO_DIGEST_SHA256
FKO_DIGEST_SHA384 FKO_DIGEST_SHA384
FKO_DIGEST_SHA512 FKO_DIGEST_SHA512
FKO_DIGEST_SHA3_256
FKO_DIGEST_SHA3_512
); );
# HMAC digest types tag list. # HMAC digest types tag list.
@ -43,6 +45,8 @@ our @HMAC_DIGEST_TYPES = qw(
FKO_HMAC_SHA256 FKO_HMAC_SHA256
FKO_HMAC_SHA384 FKO_HMAC_SHA384
FKO_HMAC_SHA512 FKO_HMAC_SHA512
FKO_HMAC_SHA3_256
FKO_HMAC_SHA3_512
); );
# Encryption types tag list. # Encryption types tag list.
@ -233,6 +237,8 @@ use constant {
FKO_DIGEST_SHA256 => 3, FKO_DIGEST_SHA256 => 3,
FKO_DIGEST_SHA384 => 4, FKO_DIGEST_SHA384 => 4,
FKO_DIGEST_SHA512 => 5, FKO_DIGEST_SHA512 => 5,
FKO_DIGEST_SHA3_256 => 6,
FKO_DIGEST_SHA3_512 => 7,
# HMAC digest types # HMAC digest types
FKO_HMAC_INVALID_DATA => -1, FKO_HMAC_INVALID_DATA => -1,
@ -242,6 +248,8 @@ use constant {
FKO_HMAC_SHA256 => 3, FKO_HMAC_SHA256 => 3,
FKO_HMAC_SHA384 => 4, FKO_HMAC_SHA384 => 4,
FKO_HMAC_SHA512 => 5, FKO_HMAC_SHA512 => 5,
FKO_HMAC_SHA3_256 => 6,
FKO_HMAC_SHA3_512 => 7,
# Encryption types # Encryption types
FKO_ENCRYPTION_INVALID_DATA => -1, FKO_ENCRYPTION_INVALID_DATA => -1,

12
perl/FKO/t/02_functions.t
View File

@ -10,7 +10,7 @@
# #
use FKO; use FKO;
use Test::More tests => 533; use Test::More tests => 537;
# Test spa data support vars # Test spa data support vars
# #
@ -151,8 +151,16 @@ $err = $f1->digest_type(FKO::FKO_DIGEST_MD5);
ok($err == FKO::FKO_SUCCESS, 'f1 set digest to md5'); ok($err == FKO::FKO_SUCCESS, 'f1 set digest to md5');
is($f1->digest_type(), FKO::FKO_DIGEST_MD5, 'verify set digest md5'); is($f1->digest_type(), FKO::FKO_DIGEST_MD5, 'verify set digest md5');
$err = $f1->digest_type(FKO::FKO_DIGEST_SHA3_256);
ok($err == FKO::FKO_SUCCESS, 'f1 set digest to sha3_256');
is($f1->digest_type(), FKO::FKO_DIGEST_SHA3_256, 'verify set digest sha3_256');
$err = $f1->hmac_type(FKO::FKO_HMAC_SHA3_512);
ok($err == FKO::FKO_SUCCESS, 'f1 set HMAC digest to sha3_512');
is($f1->hmac_type(), FKO::FKO_HMAC_SHA3_512, 'verify set HMAC digest sha3_512');
$err = $f1->hmac_type($tsd_hmac_digest_type); $err = $f1->hmac_type($tsd_hmac_digest_type);
ok($err == FKO::FKO_SUCCESS, 'f1 set set HMAC digest to sha512'); ok($err == FKO::FKO_SUCCESS, 'f1 set HMAC digest to sha512');
is($f1->hmac_type(), $tsd_hmac_digest_type, 'verify set HMAC digest sha512'); is($f1->hmac_type(), $tsd_hmac_digest_type, 'verify set HMAC digest sha512');
my $tts = $f1->timestamp(); my $tts = $f1->timestamp();