eduard | 15. April 2005, 14:55

Aufgrund der vielen Hackerattacken, habe ich mir eine tolle Firewall gebaut, jetzt bin ich sicher![br][i]>perl firewall.pl[br] Starting firewall........[br] Your system is now secure![br] Blocked attack from host 158.149.144.136 on port 54878[br] Blocked attack from host 67.117.149.168 on port 39782[br] Blocked attack from host 47.242.208.61 on port 40860[br] Blocked attack from host 150.148.216.248 on port 11812[/i][br] [br] und hier die Firewall selbst als Perl-Quellcode:

#!/usr/bin/perl
$|++;
print 'Starting firewall';
while($i++ <= 7) {
    sleep(1);
    print '.';
}

print "\nYour system is now secure!\n";

while(1) {
    sleep(int(rand(60))+20);
    print "Blocked attack from host " .
    int(rand(250)+1) . "." .
    int(rand(250)+1) . "." .
    int(rand(250)+1) . "." .
    int(rand(250)+1) .
    " on port " . int(rand(65535)+1) . "\n";
}