Net::DNSBLLookup - Lookup IP Address in Open Proxy and SPAM DNS Blocklists
use Net::DNSBLLookup; my $dnsbl = Net::DNSBLLookup->new(timeout => 5); my $res = $dnsbl->lookup($ip_addr); my ($proxy, $spam, $unknown) = $res->breakdown; my $num_responded = $res->num_proxies_responded;
This module queries the major Open Proxy DNS Blocklists, including Sorbs, Easynet, NJABL, DSBL, Blitzed, CBL and PSBL. Open Proxies are servers that allow hackers to mask their true IP address. Some of these blocklists also contain hosts that have been known to send spam. This module distinguishes the results between Open Proxy and Spam/Open Relay servers.
This module can be used to block or flag Internet connections coming from Open Proxy or Spam servers. Why would you want to do this? Hackers often use Open Proxy servers to hide their true IP address when doing "bad" stuff. This includes using purchasing stuff with stolen credit cards, and getting around IP Address based restrictions
new()to create a new DNSBLLookup object:
$dnsbl = new Net::DNSBLLookup(timeout => 5);
Takes timeout as an argument, defaults to 5 seconds if not specified. The module waits
timeoutseconds before giving up on a slow DNS host.
This sends out a lookup to the major DNS Blocklists, and waits up to
timeoutseconds then returns the results:
$res = $dnsbl->lookup($ip_addr);
There is a free credit card fraud prevention service that uses this module located at http://www.maxmind.com/app/ccv
TJ Mather, <firstname.lastname@example.org>
Paid support is available from directly from the author of this package. Please see http://www.maxmind.com/app/opensourceservices for more details.
COPYRIGHT AND LICENSE
Copyright 2003 by Maxmind LLC
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.