Posted By

bhubbard on 03/26/09

Tagged

ruby

Versions (?)

Last Edited at 03/26/09 10:18am

Statistics

Viewed 1158 times

Favorited by 1 user(s)

Related snippets

Ruby script to check if IP Address is listed in a DNSBL (RBLs)

/ Published in: Ruby

Highlighted TextExpand

#!/usr/bin/env ruby # ==DNSBL Checker

# Checks your IP address against dozens of blacklists and reports

# which ones you may be listed on.

# Author:: Michael Behan (jabberwock /at tenebrous /dot com)

# ===Usage::

# ./dnsblcheck.rb <ip-address>

# ------------------------------------------------------------------

require 'resolv'

$lists = %w[

3y.spam.mrs.kithrup.com
access.redhawk.org
all.rbl.kropka.net
all.spamblock.unit.liu.se
assholes.madscience.nl
bl.borderworlds.dk
bl.csma.biz
bl.redhatgate.com
bl.spamcannibal.org
bl.spamcop.net
bl.starloop.com
bl.technovision.dk
blackholes.five-ten-sg.com
blackholes.intersil.net
blackholes.mail-abuse.org
blackholes.sandes.dk
blackholes.uceb.org
blackholes.wirehub.net
blacklist.sci.kun.nl
blacklist.spambag.org
block.dnsbl.sorbs.net
blocked.hilli.dk
blocklist.squawk.com
blocklist2.squawk.com
cart00ney.surriel.com
cbl.abuseat.org
dev.null.dk
dews.qmail.org
dialup.blacklist.jippg.org
dialup.rbl.kropka.net
dialups.mail-abuse.org
dialups.visi.com
dnsbl.ahbl.org
dnsbl.antispam.or.id  
dnsbl.cyberlogic.net
dnsbl.kempt.net   
dnsbl.njabl.org
dnsbl.solid.net   
dnsbl.sorbs.net   
dnsbl-1.uceprotect.net
dnsbl-2.uceprotect.net  
dnsbl-3.uceprotect.net  
dsbl.dnsbl.net.au
duinv.aupads.org  
dul.dnsbl.sorbs.net   
dul.ru
dun.dnsrbl.net  
dynablock.njabl.org   
dynablock.wirehub.net
fl.chickenboner.biz  
forbidden.icm.edu.pl
form.rbl.kropka.net
hil.habeas.com
http.dnsbl.sorbs.net
http.opm.blitzed.org
intruders.docs.uu.se
ip.rbl.kropka.net
korea.services.net
l1.spews.dnsbl.sorbs.net
l2.spews.dnsbl.sorbs.net
lame-av.rbl.kropka.net
list.dsbl.org
mail-abuse.blacklist.jippg.org
map.spam-rbl.com
misc.dnsbl.sorbs.net
msgid.bl.gweep.ca
multihop.dsbl.org
no-more-funn.moensted.dk
ohps.bl.reynolds.net.au
ohps.dnsbl.net.au
omrs.bl.reynolds.net.au
omrs.dnsbl.net.au
op.rbl.kropka.net
opm.blitzed.org
or.rbl.kropka.net
orbs.dorkslayers.com
orid.dnsbl.net.au
orvedb.aupads.org
osps.bl.reynolds.net.au
osps.dnsbl.net.au
osrs.bl.reynolds.net.au
osrs.dnsbl.net.au
owfs.bl.reynolds.net.au
owfs.dnsbl.net.au
owps.bl.reynolds.net.au
owps.dnsbl.net.au
pdl.dnsbl.net.au
probes.dnsbl.net.au
proxy.bl.gweep.ca
psbl.surriel.com
pss.spambusters.org.ar
rbl.cluecentral.net
rbl.rangers.eu.org
rbl.schulte.org
rbl.snark.net
rbl.triumf.ca
rblmap.tu-berlin.de
rdts.bl.reynolds.net.au
rdts.dnsbl.net.au
relays.bl.gweep.ca
relays.bl.kundenserver.de
relays.dorkslayers.com
relays.mail-abuse.org
relays.nether.net
relays.visi.com
ricn.bl.reynolds.net.au
ricn.dnsbl.net.au
rmst.bl.reynolds.net.au
rmst.dnsbl.net.au
rsbl.aupads.org
satos.rbl.cluecentral.net
sbl.csma.biz
sbl.spamhaus.org
sbl-xbl.spamhaus.org
smtp.dnsbl.sorbs.net
socks.dnsbl.sorbs.net
socks.opm.blitzed.org
sorbs.dnsbl.net.au
spam.dnsbl.sorbs.net
spam.dnsrbl.net
spam.olsentech.net
spam.wytnij.to
spamguard.leadmon.net
spamsites.dnsbl.net.au
spamsources.dnsbl.info
spamsources.fabel.dk
spamsources.yamta.org
spews.dnsbl.net.au
t1.bl.reynolds.net.au
t1.dnsbl.net.au
ucepn.dnsbl.net.au
unconfirmed.dsbl.org
vbl.messagelabs.com
vox.schpider.com
web.dnsbl.sorbs.net
whois.rfc-ignorant.org
will-spam-for-food.eu.org
wingate.opm.blitzed.org
xbl.spamhaus.org
zombie.dnsbl.sorbs.net
ztl.dorkslayers.com

]

$stdout.sync=true

raise ArgumentError, "You must specify an IP address to check" if !ARGV[0]

$ip = ARGV[0].chomp

raise ArgumentError, "Invalid IP specified" if !$ip.match(/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/)

$check = $ip.split('.').reverse.join('.')

$listed = []

puts "Checking blacklists for #{$ip}..."

$lists.each do |list|

begin

$host = $check+'.'+list

printf "%-50s", $host

Resolv::getaddress($host)

printf(": \e[0;31mLISTED on %s\e[0m\n", list)

$listed << list

rescue Exception => e

case e
when Resolv::ResolvError

puts ": \e[0;32mOK\e[0m\n"

when Interrupt

puts "\nCaught signal SIGINT. Exiting..."

exit 1

else

puts ": \e[0;47mTIMEOUT\e[0m\n"

end

puts "SUMMARY"

puts "-------"

if $listed.size > 0

printf "You are listed on the following #{$listed.size} blacklists\n\n"

$listed.each do |list|

printf "%5s\n", list

end

else

puts "Your IP was not found on any of the blacklists. Congratulations!"

end

Report this snippet Tweet

Comments

Subscribe to comments

Comment:

You need to login to post a comment.