Changeset 30 for trunk/dnsbl/extract-data

Timestamp:

01/25/11 17:10:03 (14 years ago)

Author:

Kris Deugau

Message:

/trunk/dnsbl

Commit added entries in IP skiplist

File:

• trunk/dnsbl/extract-data (modified) (11 diffs)

trunk/dnsbl/extract-data

@@ -91 +91 @@
 # put together an array of netblocks we won't/can't list for various reasons
 my @dontlistme = (
-    # Hotmail/Windows Live Mail
+    # Microsoft/Hotmail/Windows Live Mail
 #IP-Network                    207.68.128.0/18
 #IP-Network                    207.68.192.0/20
@@ -97 +97 @@
         NetAddr::IP->new("65.52.0.0/14"),
         NetAddr::IP->new("207.68.176.96/27"),
+#IP-Network                    157.54.0.0/15
+#IP-Network                    157.56.0.0/14
+#IP-Network                    157.60.0.0/16
+        NetAddr::IP->new("157.55.0.192/27"),
+        NetAddr::IP->new("157.55.0.225"),
+        NetAddr::IP->new("157.55.0.226"),
+#IP-Network                    207.46.0.0/16
+        NetAddr::IP->new("207.46.66.0/28"),
 
     # AOL - note only some IPs show mail-ish rDNS
     #IP-Network                    205.188.0.0/16
     #IP-Network                    64.12.0.0/16 
-        NetAddr::IP->new("205.188.91.96/29"),
-        NetAddr::IP->new("205.188.105.143"),
-        NetAddr::IP->new("205.188.105.144/30"),
-        NetAddr::IP->new("205.188.169.196/29"),
-        NetAddr::IP->new("205.188.249.128/29"),
-        NetAddr::IP->new("205.188.249.64/29"),
         NetAddr::IP->new("64.12.78.136/30"),
         NetAddr::IP->new("64.12.78.142"),
+        NetAddr::IP->new("64.12.100.31"),
         NetAddr::IP->new("64.12.143.144/30"),
         NetAddr::IP->new("64.12.143.152/30"),
@@ -119 +122 @@
         NetAddr::IP->new("64.12.207.176/29"),
     #IP-Network                    205.188.0.0/16
+        NetAddr::IP->new("205.188.91.94/31"),
+        NetAddr::IP->new("205.188.91.96/31"),
+        NetAddr::IP->new("205.188.105.143"),
+        NetAddr::IP->new("205.188.105.144/30"),
+        NetAddr::IP->new("205.188.169.196/29"),
+        NetAddr::IP->new("205.188.249.128/29"),
+        NetAddr::IP->new("205.188.249.64/29"),
         NetAddr::IP->new("205.188.169.200/23"),
 
@@ -158 +168 @@
 #route:          116.214.0.0/20
         NetAddr::IP->new("116.214.12.0/24"),
+        NetAddr::IP->new("202.86.4.0/22"),
+        NetAddr::IP->new("77.238.188/23"),
+        NetAddr::IP->new("217.146.182.0/23"),
+        NetAddr::IP->new("114.111.64.0/18"),
+        NetAddr::IP->new("115.178.12.0/23"),
+        NetAddr::IP->new("121.101.151.212"),
+#inetnum:      121.101.144.0 - 121.101.159.255
+        NetAddr::IP->new("121.101.144.0/20"),
+        NetAddr::IP->new("66.94.224.0/19"),
+        NetAddr::IP->new("203.104.16.0/21"),
 
     # MessageLabs - may add these to trusted_networks instead
@@ -163 +183 @@
 # observed: .35, .51
         NetAddr::IP->new("194.106.220.0/23"),
+        NetAddr::IP->new("193.109.254.0/23"),
+        NetAddr::IP->new("119.161.0.0/19"),
+# buh? rDNS says Yahoo, but...
+#inetnum:        203.209.224.0 - 203.209.255.255
+#descr:          Alibaba (Beijing) Technology Co., Ltd.
+        NetAddr::IP->new("203.209.230.22"),
 
     # Bell Canada - note only some IPs show mail-ish rDNS
@@ -200 +226 @@
     #IP-Network                    24.222.0.0/16
         NetAddr::IP->new("24.222.0.30"),
-        NetAddr::IP->new("24.224.136.8/30"),
+        NetAddr::IP->new("24.224.136.0/27"),
 
     # Cogeco - only a few IPs observed with mail-ish rDNS
     #IP-Network                    216.221.64.0/19
         NetAddr::IP->new("216.221.81.192"),
+        NetAddr::IP->new("216.221.81.25"),
         NetAddr::IP->new("216.221.81.28/30"),
         NetAddr::IP->new("216.221.81.96/30"),
@@ -223 +250 @@
     #inetnum:      61.9.128.0 - 61.9.255.255
     # may miss one or two
+        # .168.135-152
         NetAddr::IP->new("61.9.168.136/29"),
         NetAddr::IP->new("61.9.168.144/29"),
+        # .189.132-152
+        NetAddr::IP->new("61.9.189.132/30"),
+        NetAddr::IP->new("61.9.189.136/29"),
+        NetAddr::IP->new("61.9.189.144/29"),
+    # "TelestraClear" - related to above?
+    #inetnum:      203.97.0.0 - 203.97.127.255
+        NetAddr::IP->new("203.97.33.64"),
+        NetAddr::IP->new("203.97.33.68"),
+        NetAddr::IP->new("203.97.37.64"),
+
+    # Earthlink
+    #IP-Network                    207.69.0.0/16
+        NetAddr::IP->new("207.69.200.28"),
+
+    # Sprint
+    #IP-Network                    68.24.0.0/13
+        # actually their PCS mail relay, so sez rDNS
+        NetAddr::IP->new("68.28.27.84"),
+
+    # Vodafone (New Zealand)
+    # inetnum:        203.109.128.0 - 203.109.159.255
+        NetAddr::IP->new("203.109.136/28"),
 
 ## Edumactional places
@@ -242 +292 @@
     # University of Florida
     #IP-Network                    128.227.0.0/16
+        NetAddr::IP->new("128.227.74.70"),
         NetAddr::IP->new("128.227.74.149"),
         NetAddr::IP->new("128.227.74.165"),
@@ -290 +341 @@
     #IP-Network                    199.111.64.0/19
         NetAddr::IP->new("199.111.84.18"),
+
+    #inetnum:        130.95.0.0 - 130.95.255.255
+    #address:        The University of Western Australia
+        NetAddr::IP->new("130.95.3.211"),
+
+    #inetnum:      130.56.0.0 - 130.56.255.255
+    #address:      IIS, Australian National University
+        NetAddr::IP->new("130.56.64.134"),
+
+    #IP-Network                    129.81.0.0/16
+    #Org-Name                      Tulane University
+        NetAddr::IP->new("129.81.224.84"),
 
 # List servers
@@ -310 +373 @@
     #IP-Network                    72.167.0.0/16
         NetAddr::IP->new("72.167.82.80/29"),
+        NetAddr::IP->new("72.167.82.90"),
     #IP-Network                    173.201.0.0/16
         NetAddr::IP->new("173.201.192.0/24"),
+
+    # EmailBrain - note no actual netblocks of their own.  :(
+        NetAddr::IP->new("66.100.171.162"),
+#163.171.100.66.in-addr.arpa domain name pointer eb08.ebhost9.com.
+#164.171.100.66.in-addr.arpa domain name pointer a.eb08.ebhost9.com.
+#165.171.100.66.in-addr.arpa domain name pointer b.eb08.ebhost9.com.
+#166.171.100.66.in-addr.arpa domain name pointer c.eb08.ebhost9.com.
+
+
+# eBay/PayPal
+        NetAddr::IP->new("66.211.160.0/19"),
+
+# Misc legit
+    # Texas Instruments
+    #IP-Network                    192.94.94.0/24
+        NetAddr::IP->new("192.94.94.40"),
 
     ); # done def for @dontlistme
@@ -404 +484 @@
 }
 foreach my $uri (sort keys %urilist) {
-  my @hout = qx { host '$uri.multi.uribl.com'; host '$uri.uribl.company.com' };
+  my @hout = qx { host '$uri.multi.uribl.com'; host '$uri.company.dnsbl.' };
   if ($hout[0] =~ /NXDOMAIN/ && $hout[1] =~ /NXDOMAIN/) {
     if ($opts{u}) {