X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=make-probes.tcl;fp=make-probes.tcl;h=a23edff8bf7d816b7011e26e365938c1489e023c;hb=0ddc85f46b744e366e9b7634e8c284accf98f439;hp=ce215a8dbf6addb0346003588c515c9718b29600;hpb=24b39f1b5a44b652b3a122e807fd9478a3e399d0;p=vinegar-ip.git 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 { +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+