Spam/IP Blocks

IP Blocks

IP Blocks haben sich als einigermassen effektiv gegen Spammer erwiesen.

Folgendes Skript erleichtert die Einrichtung von IP Range Blocks.

#!/usr/bin/perl -w
# description: generate mediawiki ipblock entries for ipranges
# usage: copy ips of all spammers from  'recent changes' (check entries with diff)
use POSIX qw(strftime);
# get netranges from whois output
while (<>)  {
   chomp;
   if (m/netname:/) {
       my $netname = $_;
       $netname =~ s/netname:\s*//;
       $names{$old} = $netname;
   }
   next unless $_ =~ m/inetnum:/;
   s/inetnum:\s*//;
   s/ //g;
   $seen{$_} = 1;
   $old = $_;
}
# let ipcalc calculate the range
foreach my $line (keys %seen) {
   my $out = `ipcalc $line`;
   my @ranges;
   foreach (split(/\n/,$out)) {
       next if m/deaggregate/;
       chomp;
       push @ranges, $_;
   }
   foreach my $r (@ranges) {
       print "http://wiki.koeln.ccc.de/index.php?title=Special:Blockip&ip=$r\n";
       my $start = strftime "%Y%m%d%H%M%S", localtime;
       print "INSERT INTO ipblocks VALUES (,'$r', 0, 2, 'SPAMMER $names{$line}','$start',0,); \n";
   }
}

Benutzen:

whois 221.194.75.8 | perl ~/whois2iprange.pl

Leider funktioniert dieses Script nur bei IP-Ranges, die in der RIPE verzeichnet sind.
--ScottyTM 03:46, 24 Oct 2005 (CEST)

Zum Beispiel: whois -h whois.apnic.net ip.address | perl ~/whois2iprange.pl

Problem ist: nicht jedes whois info enthaelt einen netname --MM 21:44, 10 July 2007 (CEST)