From 0ddc85f46b744e366e9b7634e8c284accf98f439 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sun, 3 Mar 2002 03:28:02 +0000
Subject: [PATCH] Fix broken length of some ah dgrams

---
 make-probes.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/make-probes.tcl b/make-probes.tcl
index ce215a8..a23edff 100755
--- a/make-probes.tcl
+++ b/make-probes.tcl
@@ -727,7 +727,7 @@ define ip-proto 51 ah {mtu} {
     get next number 0 255
     get reserved hex 0 0xffff
     get spi hex32
-    get auth_data rand 0 [expr {$mtu-8}] 4
+    get auth_data rand 0 [expr {$mtu-8 > 50 ? 50 : $mtu-8}] 4
     set length [packet-len $auth_data]
     assemble ah {
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
-- 
2.30.2