检测邮件服务器IP是否被列入实时黑名单的脚本

用perl写的，实时黑名单列表可以自己添加。

注意：一定要选择没有被劫持的DNS服务器（比如google的8.8.8.8、8.8.4.4）。如果非得用被劫挂的，需要在后面添加代码判断返回的IP是否为127.X.X.X，如果不是则一般不是被列入黑名单。

#!/usr/bin/perl -w

use Net::Nslookup;

use strict;

my @rbl=qw/l2.apews.org b.barracudacentral.org bl.spamcop.net cblplus.anti-spam.org.cn dnsbl.njabl.org dnsbl.sorbs.net rbl.anti-spam.cn sbl-xbl.spamhaus.org zen.spamhaus.org /;

print "please input the IP:";

chomp(my $IP = <STDIN>);

my @IP = split /\W/,$IP;

@IP = reverse @IP;

my $PI = join ".",@IP;

#my $PI="$IP[3].$IP[2].$IP[1].$IP[0]";

foreach my $rbl (@rbl) {

my $host=($PI.".$rbl");

print "Looking up ",$rbl,"\n";

my $addr = nslookup(host=>$host,type=>"A");

if($addr){

print "*_*!*_*!*_*!In the blacklist $rbl*_*!*_*!*_*!\n";

$addr= "";

}

#else {print "$IP is not in the RBL.\n"}

}