Edy-B(Log) — Warum denn nicht gleich so? Firewall 1.0 — Edy-B(Log) — Warum denn nicht gleich so?


Aufgrund der vielen Hackerattacken, habe ich mir eine tolle Firewall gebaut, jetzt bin ich sicher!

`$ perl firewall.pl
Starting firewall……..
Your system is now secure!
Blocked attack from host 158.149.144.136 on port 54878
Blocked attack from host 67.117.149.168 on port 39782
Blocked attack from host 47.242.208.61 on port 40860
Blocked attack from host 150.148.216.248 on port 11812

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";
}