From d462e61e5515ae4fb52dd637f3724005eea477f5 Mon Sep 17 00:00:00 2001
From: philsmd <philsmd@hashcat.net>
Date: Sat, 19 Aug 2023 12:09:59 +0200
Subject: [PATCH] verify fix for -m 32200=Kerberos 5,etype 18,AS-REP

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

diff --git a/tools/test_modules/m32200.pm b/tools/test_modules/m32200.pm
index 6a3710621..5f2d1fd9a 100644
--- a/tools/test_modules/m32200.pm
+++ b/tools/test_modules/m32200.pm
@@ -105,9 +105,9 @@ sub module_generate_hash
 
     my $truncated_ticket_decrypted = byte2hex ($b_truncated_ticket_decrypted);
 
-    my $check_correct  = ((substr ($truncated_ticket_decrypted, 16, 4) eq "7981" || substr ($truncated_ticket_decrypted, 16, 4) eq "7a81") && (substr ($truncated_ticket_decrypted, 22, 2) eq "30")) ||
-                         ((substr ($truncated_ticket_decrypted, 16, 2) eq "79" || substr ($truncated_ticket_decrypted, 16, 2) eq "7a") && (substr ($truncated_ticket_decrypted, 20, 2) eq "30")) ||
-                         ((substr ($truncated_ticket_decrypted, 16, 4) eq "7982" || substr ($truncated_ticket_decrypted, 16, 4) eq "7a82")  && (substr ($truncated_ticket_decrypted, 24, 2) eq "30"));
+    my $check_correct  = ((substr ($truncated_ticket_decrypted, 32, 4) eq "7981" || substr ($truncated_ticket_decrypted, 32, 4) eq "7a81") && (substr ($truncated_ticket_decrypted, 38, 2) eq "30")) ||
+                         ((substr ($truncated_ticket_decrypted, 32, 2) eq "79" || substr ($truncated_ticket_decrypted, 32, 2) eq "7a") && (substr ($truncated_ticket_decrypted, 36, 2) eq "30")) ||
+                         ((substr ($truncated_ticket_decrypted, 32, 4) eq "7982" || substr ($truncated_ticket_decrypted, 32, 4) eq "7a82")  && (substr ($truncated_ticket_decrypted, 40, 2) eq "30"));
 
     if ($check_correct == 1)
     {
@@ -145,7 +145,7 @@ sub module_generate_hash
   }
   else
   {
-    if (!defined $edata2)
+    if (! defined $edata2)
     {
       my $nonce = unpack ("H*", random_bytes (16));