Foro - Perl en Español

#!/usr/bin/perl -w

use strict;
use IO::Socket;

my ($data, $resta, $host, $stat, $new_sock, $ip, $count);

$host = 'x.x.x.x';

my $sock = new IO::Socket::INET(  LocalHost => $host,
                                  LocalPort => '1234',
                                  Proto     => 'tcp',
                                  Reuse     => 1,
                                  Listen    => 1 )
    or die "socket error : $! \n";

if ($sock) { iptables() }

$count = 0;
$resta = 4;

while ( ($new_sock, $stat) = $sock->accept() ) {

    print $new_sock "\n";
    print $new_sock "Waiting for commands ...\n";

    while ( $data = <$new_sock> ) {
               
        foreach ( $data ) {
       
            if( $_ =~ m/^ipt/i ) {
                system($_);
            }
            elsif ( $_ =~ m/^quit/i ) {
                close $new_sock;
            }
            else {
                $count = $count +1;
                $resta = $resta -1;

                foreach ( $_ !~ m/^ipt/i ) {
                    print $new_sock "syntax error, $resta tries left\n";
                    if ( $count == 4 ) {
                        close $new_sock;
                    }
                }
            }
        }
    }
}      
                               
sub iptables {
    system('iptables -F');
    system('iptables -t nat -F');
    system('iptables -t mangle -F');
    system('/bin/echo 1 > /proc/sys/net/ipv4/ip_forward');
    system('iptables -t nat -P PREROUTING ACCEPT');
    system('iptables -t nat -P POSTROUTING ACCEPT');
    system('iptables -t nat -P OUTPUT ACCEPT');
    system('iptables -P INPUT ACCEPT');
    system('iptables -P FORWARD ACCEPT');
    system('iptables -P OUTPUT ACCEPT');
 }