r1609 - ofw/inet

Author: wmb
Date: 2009-12-15 06:01:14 +0100 (Tue, 15 Dec 2009)
New Revision: 1609

Modified:
   ofw/inet/tcp.fth
Log:
TCP - randomize local port numbers to prevent reuse.

Modified: ofw/inet/tcp.fth
===================================================================
--- ofw/inet/tcp.fth	2009-12-15 04:16:21 UTC (rev 1608)
+++ ofw/inet/tcp.fth	2009-12-15 05:01:14 UTC (rev 1609)
@@ -2341,6 +2341,10 @@

first-time?  if
       false to first-time?
+      [ifdef] random-long
+         random-long h# f000 mod h# 555 + to next-tcp-local-port
+      [then]
+
       " next-xid" $call-parent to tcp_iss
    then