1 /**
2  * Client for DNS blacklist services.
3  *
4  * License:
5  *   This Source Code Form is subject to the terms of
6  *   the Mozilla Public License, v. 2.0. If a copy of
7  *   the MPL was not distributed with this file, You
8  *   can obtain one at http://mozilla.org/MPL/2.0/.
9  *
10  * Authors:
11  *   Vladimir Panteleev <vladimir@thecybershadow.net>
12  */
13 
14 
15 module ae.net.dns.dnsbl;
16 
17 import std.socket;
18 import std..string;
19 import ae.net.asockets;
20 
21 string getIP(string hostname)
22 {
23 	try
24 		return (new InternetAddress(hostname, 0)).toAddrString;
25 	catch (Exception o)
26 		return null;
27 }
28 
29 int lookupAgainst(string ip, string db)
30 {
31 	string[] sections = split(ip, ".");
32 	assert(sections.length == 4);
33 	string addr = sections[3] ~ "." ~ sections[2] ~ "." ~ sections[1] ~ "." ~ sections[0] ~ "." ~ db;
34 	InternetHost ih = new InternetHost;
35 	if (ih.getHostByName(addr))
36 		return ih.addrList[0] & 0xFF;
37 	else
38 		return 0;
39 }
40 
41 string lookupDroneBL(string ip)
42 {
43 	switch (lookupAgainst(ip, "dnsbl.dronebl.org"))
44 	{
45 		case  0: return null;
46 		case  2: return "Sample";
47 		case  3: return "IRC Drone";
48 		case  5: return "Bottler";
49 		case  6: return "Unknown spambot or drone";
50 		case  7: return "DDOS Drone";
51 		case  8: return "SOCKS Proxy";
52 		case  9: return "HTTP Proxy";
53 		case 10: return "ProxyChain";
54 		case 13: return "Brute force attackers";
55 		case 14: return "Open Wingate Proxy";
56 		case 15: return "Compromised router / gateway";
57 		default: return "Unknown";
58 	}
59 }
60 
61 string lookupEfnetRBL(string ip)
62 {
63 	switch (lookupAgainst(ip, "rbl.efnetrbl.org"))
64 	{
65 		case  0: return null;
66 		case  1: return "Open Proxy";
67 		case  2: return "spamtrap666";
68 		case  3: return "spamtrap50";
69 		case  4: return "TOR";
70 		case  5: return "Drones / Flooding";
71 		default: return "Unknown";
72 	}
73 }
74 
75 string[] blacklistCheck(string hostname)
76 {
77 	string ip = getIP(hostname);
78 
79 	if (!ip)
80 		throw new Exception("Can't resolve hostname to IPv4 address: " ~ hostname);
81 
82 	string result;
83 
84 	result = lookupDroneBL(ip);
85 	if (result) return [result, "DroneBL"  , "http://dronebl.org/lookup?ip="~ip];
86 
87 	result = lookupEfnetRBL(ip);
88 	if (result) return [result, "EFnet RBL", "http://rbl.efnetrbl.org/?i="  ~ip];
89 
90 	return null;
91 }