Pessoal,

Disponibilizei um código que utilizo para checar se determinado IP está cadastrado em alguma lista negra.

https://bitbucket.org/kaiorafael/dns_tools/src/

O funcionamento é simples, se você tem o Perl e o módulo Net::DNS, basta rodar

perl mylocalspamdb.pl -s IP

ou

perl mylocalspamdb.pl -f arquivo_com_um_IP_por_linha

O conjunto das listas está no arquivo: spamdnsbl.txt, caso você queria adicionar ou remover alguma DNSBL.

A única coisa que tem que mudar no código é a variável “$HOMEDB”, linha 25. Altere para o caminho que você deseja.

Happy hacking!