qpsmtpd/sme8/qpsmtpd-0.32-dns-random-id.patch

--- qpsmtpd-forkserver.dns-random-id    Sun Feb 26 13:22:16 2006
+++ qpsmtpd-forkserver  Sat Mar 18 23:31:20 2006
@@ -14,6 +14,7 @@
 use Socket;
 use Getopt::Long;
 use POSIX qw(:sys_wait_h :errno_h :signal_h);
+use Net::DNS::Header;
 use strict;
 $| = 1;
 
@@ -232,7 +233,10 @@
     # otherwise child
   
     # all children should have different seeds, to prevent conflicts
-    srand( time ^ ($$ + ($$ << 15)) );
+    srand();
+    for (0 .. rand(65536)) {
+       Net::DNS::Header::nextid();
+    }
   
     close($server);
   
1	slords	1.1	--- qpsmtpd-forkserver.dns-random-id Sun Feb 26 13:22:16 2006
2			+++ qpsmtpd-forkserver Sat Mar 18 23:31:20 2006
3			@@ -14,6 +14,7 @@
4			use Socket;
5			use Getopt::Long;
6			use POSIX qw(:sys_wait_h :errno_h :signal_h);
7			+use Net::DNS::Header;
8			use strict;
9			$\| = 1;
10
11			@@ -232,7 +233,10 @@
12			# otherwise child
13
14			# all children should have different seeds, to prevent conflicts
15			- srand( time ^ ($$ + ($$ << 15)) );
16			+ srand();
17			+ for (0 .. rand(65536)) {
18			+ Net::DNS::Header::nextid();
19			+ }
20
21			close($server);
22