diff --git a/tools/test_modules/m00050.pm b/tools/test_modules/m00050.pm new file mode 100644 index 000000000..560037fb6 --- /dev/null +++ b/tools/test_modules/m00050.pm @@ -0,0 +1,45 @@ +#!/usr/bin/env perl + +## +## Author......: See docs/credits.txt +## License.....: MIT +## + +use strict; +use warnings; + +use Digest::MD5 qw (md5); +use Digest::HMAC qw (hmac hmac_hex); + +sub module_generate_hash +{ + my $word = shift; + my $salt = shift // random_numeric_string (random_count (15)); + + my $hash = hmac_hex ($salt, $word, \&md5, 64) . ":$salt"; + + return $hash; +} + +sub module_verify_hash +{ + my $line = shift; + + my ($hash, $salt, $word) = split (':', $line); + + return unless defined $hash; + return unless defined $salt; + return unless defined $word; + + $word = pack_if_HEX_notation ($word); + + my $new_hash = module_generate_hash ($word, $salt); + + return unless defined $new_hash; + + return unless $new_hash eq "$hash:$salt"; + + return $new_hash; +} + +1; diff --git a/tools/test_modules/m00060.pm b/tools/test_modules/m00060.pm new file mode 100644 index 000000000..7d7d2503b --- /dev/null +++ b/tools/test_modules/m00060.pm @@ -0,0 +1,45 @@ +#!/usr/bin/env perl + +## +## Author......: See docs/credits.txt +## License.....: MIT +## + +use strict; +use warnings; + +use Digest::MD5 qw (md5); +use Digest::HMAC qw (hmac hmac_hex); + +sub module_generate_hash +{ + my $word = shift; + my $salt = shift // random_numeric_string (random_count (15)); + + my $hash = hmac_hex ($word, $salt, \&md5, 64) . ":$salt"; + + return $hash; +} + +sub module_verify_hash +{ + my $line = shift; + + my ($hash, $salt, $word) = split (':', $line); + + return unless defined $hash; + return unless defined $salt; + return unless defined $word; + + $word = pack_if_HEX_notation ($word); + + my $new_hash = module_generate_hash ($word, $salt); + + return unless defined $new_hash; + + return unless $new_hash eq "$hash:$salt"; + + return $new_hash; +} + +1;