From a86235a68c775d0f43a67bdfceb511ecaaf92721 Mon Sep 17 00:00:00 2001
From: philsmd <921533+philsmd@users.noreply.github.com>
Date: Mon, 6 Jan 2020 13:25:58 +0100
Subject: [PATCH] fixes #2009: padding problem in -m 13400 tests

---
 tools/test_modules/m13400.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tools/test_modules/m13400.pm b/tools/test_modules/m13400.pm
index 51dd1c326..f4a641df5 100644
--- a/tools/test_modules/m13400.pm
+++ b/tools/test_modules/m13400.pm
@@ -299,6 +299,8 @@ sub module_generate_hash
 
     $expected_bytes = $cipher->decrypt ($contents_hash);
 
+    $expected_bytes = substr ($expected_bytes . "\x00" x 32, 0, 32); # padding
+
     $hash = sprintf ('$keepass$*%d*%d*%d*%s*%s*%s*%s*%s%s',
           $version,
           $iteration,