diff --git a/tools/test_modules/m00010.pm b/tools/test_modules/m00010.pm new file mode 100644 index 000000000..065f6c0ca --- /dev/null +++ b/tools/test_modules/m00010.pm @@ -0,0 +1,44 @@ +#!/usr/bin/env perl + +## +## Author......: See docs/credits.txt +## License.....: MIT +## + +use strict; +use warnings; + +use Digest::MD5 qw (md5_hex); + +sub module_generate_hash +{ + my $word = shift; + my $salt = shift // random_numeric_string (random_count (15)); + + my $hash = md5_hex ($word . $salt) . ":$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/m00012.pm b/tools/test_modules/m00012.pm new file mode 100644 index 000000000..d2fce3949 --- /dev/null +++ b/tools/test_modules/m00012.pm @@ -0,0 +1,44 @@ +#!/usr/bin/env perl + +## +## Author......: See docs/credits.txt +## License.....: MIT +## + +use strict; +use warnings; + +use Digest::MD5 qw (md5_hex); + +sub module_generate_hash +{ + my $word = shift; + my $salt = shift // random_string (random_count (15)); + + my $hash = md5_hex ($word . $salt) . ":$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;