From 52fa024c1bb4347d9e0861cc5a385d3d5cbed1bb Mon Sep 17 00:00:00 2001
From: jsteube <jens.steube@gmail.com>
Date: Mon, 27 Feb 2023 11:52:10 +0000
Subject: [PATCH] Fix correct byte pattern and salt length in unit-test for -m
 31200

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

diff --git a/tools/test_modules/m31200.pm b/tools/test_modules/m31200.pm
index 59ce280e8..e6e53dd9b 100644
--- a/tools/test_modules/m31200.pm
+++ b/tools/test_modules/m31200.pm
@@ -13,7 +13,7 @@ use Digest::SHA qw (sha1);
 use Crypt::CBC;
 use Encode;
 
-sub module_constraints { [[0, 256], [32, 32], [-1, -1], [-1, -1], [-1, -1]] }
+sub module_constraints { [[0, 256], [128, 128], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {
@@ -63,7 +63,7 @@ sub module_generate_hash
   }
   else
   {
-    $pt = "\xff" x 16;
+    $pt = "\x30\x30\x30\x30\x0c\x0c\x0c\x0c\x0c\x0c\x0c\x0c\x0c\x0c\x0c\x0c";
   }
 
   my $aes_cbc = Crypt::CBC->new ({