blob: 5e96195f130fa580eefa3288e3a7237db4b51d8d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#!/usr/bin/perl
# Multi-RBL Query tool, developer Vikram <vr@udel.edu>
use strict;
use Socket;
my $suspect = $ARGV[1];
die "Syntax: $0 -H <ip address>\n" unless $suspect;
my @rblservers=qw[
3y.spam.mrs.kithrup.com
block.blars.org
bl.redhatgate.com
blackholes.five-ten-sg.com
blackholes.intersil.net
blackholes.mail-abuse.org
blackholes.wirehub.net
blacklist.spambag.org
dev.null.dk
dews.qmail.org
dialup.blacklist.jippg.org
dialups.mail-abuse.org
dnsbl.njabl.org
dul.maps.vix.com
dul.orca.bc.ca
dynablock.wirehub.net
formmail.relays.monkeys.com
ipwhois.rfc-ignorant.org
list.dsbl.org
multihop.dsbl.org
okrelays.nthelp.com
pm0-no-more.compu.net
proxies.relays.monkeys.com
rbl-plus.mail-abuse.org
rbl.maps.vix.com
rbl.spam.org.tr
relays.mail-abuse.org
relays.nthelp.com
relays.ordb.org
relays.radparker.com
relays.visi.com
sbl.spamhaus.org
spamguard.leadmon.net
spammers.v6net.org
spamsources.fabel.dk
spews.org
unconfirmed.dsbl.org
xbl.selwerd.cx
];
my $spam = 0;
foreach ( @rblservers ) {
my @s = split('\.',$suspect);
my $req = "$s[3].$s[2].$s[1].$s[0].".$_;
my ($name,$aliases,$addrtype,$length,@addrs) = gethostbyname($req);
next unless (@addrs);
my $result = inet_ntoa($addrs[0]);
#next unless (substr($result, 7) eq '127.0.0');
print "$suspect is listed in the following RBLS: " if ( $spam == 0 );
print $_, " ";
$spam = 1;
}
print "$suspect is not listed in any RBLS" if ( $spam == 0 );
print "\n";
exit( $spam );
|