State table exploder

dumbconn.pl

#!/usr/bin/perl
#

# Tired of your firewall working?  Want to have new connections mysteriously
# rejected?  Look no further!  Use this handy script to flood your iptables
# nf_conntrack table with useless entries!
#
# Originally used to verify nf_conntrack_max settings.  Empirically determined
# that 1 million states ~= 500MB.

use warnings;
use strict;

use IO::Socket::INET;

my $port = 1024;
my $addr = 1;
while(1) {
        my $socket = new IO::Socket::INET (LocalHost => "127.0.0.$addr",
                LocalPort => $port,
                PeerHost => "127.0.0.$addr",
                PeerPort => $port,
                Proto => "udp");
        $socket->send("hi\n");
        $socket->send("hi\n");
        $port++;
        if($port > 65000) {
                $addr++;
                $port = 1024;
        }
        if($addr > 254) {
                exit;
        }
}