From 0cb3d83b5e0a03cef6b043c1c969be761e85f178 Mon Sep 17 00:00:00 2001
From: jsteube <jens.steube@gmail.com>
Date: Fri, 15 Feb 2019 20:36:45 +0100
Subject: [PATCH] Add -m 6800 unit test

---
 tools/test_modules/m06800.pm | 71 ++++++++++++++++++++++++++++++++++++
 1 file changed, 71 insertions(+)
 create mode 100644 tools/test_modules/m06800.pm

diff --git a/tools/test_modules/m06800.pm b/tools/test_modules/m06800.pm
new file mode 100644
index 000000000..0ede05c5e
--- /dev/null
+++ b/tools/test_modules/m06800.pm
@@ -0,0 +1,71 @@
+#!/usr/bin/env perl
+
+##
+## Author......: See docs/credits.txt
+## License.....: MIT
+##
+
+use strict;
+use warnings;
+
+use Crypt::CBC;
+use Crypt::PBKDF2;
+
+sub module_constraints { [[0, 255], [1, 15], [0, 255], [1, 15], [-1, -1]] }
+
+sub module_generate_hash
+{
+  my $word = shift;
+  my $salt = shift;
+  my $iter = shift // 500;
+
+  my $iv = "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00";
+
+  my $hasher = Crypt::PBKDF2->hasher_from_algorithm ('HMACSHA2', 256);
+
+  my $pbkdf2 = Crypt::PBKDF2->new (
+    hasher       => $hasher,
+    iterations   => $iter,
+    output_len   => 32
+  );
+
+  my $key = $pbkdf2->PBKDF2 ($salt, $word);
+
+  my $cipher = Crypt::CBC->new ({
+    key         => $key,
+    cipher      => "Crypt::Rijndael",
+    iv          => $iv,
+    literal_key => 1,
+    header      => "none",
+    keysize     => 32
+  });
+
+  my $encrypt = $cipher->encrypt (substr ($salt, 0, 16));
+
+  my $hash_buf = substr (unpack ("H*", $encrypt), 0, 32);
+
+  my $hash = sprintf ("%s:%i:%s", $hash_buf, $iter, $salt);
+
+  return $hash;
+}
+
+sub module_verify_hash
+{
+  my $line = shift;
+
+  my ($hash, $iter, $salt, $word) = split ":", $line;
+
+  return unless defined $hash;
+  return unless defined $iter;
+  return unless defined $salt;
+  return unless defined $word;
+
+  $word = pack_if_HEX_notation ($word);
+
+  my $new_hash = module_generate_hash ($word, $salt, $iter);
+
+  return ($new_hash, $word);
+}
+
+1;
+