rutine, optæller...

[Lennart Hansen <sslug@sslug>]

Jeg ville lige høre om nogle af jer havde en ide til en rutine der
finder alle IP eller nummer fra F.eks. 10.0.0.2 til 10.5.4.55.

Altså så den(perl) ligger dem i en variabel. så ALLE IP'erne kan bruges
en ad gangen...

Jeg er startet på en program til banne og unbanne IP'ere med ipchains,
det er i dette program jeg vil have den rutine, her kommer det :
banip.pl

---------------------------------------------------

#!/usr/local/bin/perl
#

die "usage: $0 [command] [ip]" if $#ARGV != 1;

$command = $ARGV[0];
$ip      = $ARGV[1];
$iper    = $ip;

if ($command =~ /ban/) {
        print("Banner følgene IPer :\n$iper\n\n");
                system("/sbin/ipchains -A input -s $ip -d 0.0.0.0/0 -j
DENY");
        print("Følgene IPer er blevet bannet:\n$iper \n\n");
}

if ($command =~ /un/) {
        print("Unbanner følgene IPer :\n$iper\n\n");
                system("/sbin/ipchains -D input -s $ip -d 0.0.0.0/0 -j
DENY");
        print("Følgene IPer er blevet Unbannet :\n$iper\n\n");
}

-----------------------------------------------------

Det jeg har skrevet indtil videre kan kun banne/unbanne 1 IP adgangen
men jeg ville nu gerne have det til at kunne banne fra en IP til en
anden.

Hvis du har nogle foreslag til ændringer eller tilføjeleser er du meget
velkommen til at poste en reply.


MVH Lennart Hansen.