Next IPTables::IPv4::IPQueue #5            

What can you do with it?

You can write firewall logic in perl

    modprobe ip_queue

    iptables -F INPUT                                # flush
    iptables -A INPUT -i lo -j ACCEPT                # allow loopback
    iptables -A INPUT -s 207.8.132.192/26 -j ACCEPT  # backdoors
    iptables -A INPUT -j QUEUE                       # queue the rest

    iptables -F OUTPUT                               # flush
    iptables -A OUTPUT -o lo -j ACCEPT               # allow loopback
    iptables -A OUTPUT -d 207.8.132.192/26 -j ACCEPT # backdoors
    iptables -A OUTPUT -j QUEUE                      # queue the rest
    use IPTables::IPv4::IPQueue qw(:constants);

    my $ipq = new IPTables::IPv4::IPQueue;

    while (1) {
        my $msg = $ipq->get_message();
        $ipq->set_verdict($msg->packet_id, NF_ACCEPT);
    } 


            Next © 2003 Michael C. Toren