注册
登录
| 关键词： rbl IP org print nbsp my addr host spamhaus Nslookup |
用perl写的，实时黑名单列表可以自己添加。 注意：一定要选择没有被劫持的DNS服务器（比如google的8.8.8.8、8.8.4.4）。如果非得用被劫挂的，需要在后面添加代码判断返回的IP是否为127.X.X.X，如果不是则一般不是被列入黑名单。 #!/usr/bin/perl -wuse 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," ";my $addr = nslookup(host=>$host,type=>"A");if($addr){print "*_*!*_*!*_*!In the blacklist $rbl*_*!*_*!*_*! ";$addr= "";}#else {print "$IP is not in the RBL. "} } 本文出自 “辛－碌－力－成” 博客，请务必保留此出处http://orzorz.blog.51cto.com/4228156/756870 |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
