Re: Better way to check reverse DNS entries

#!/usr/bin/perl

use Net::DNS

$res = Net::DNS::Resolver->new;

for($c = 0; $c <= 255; $c++) {
 for($d = 0; $d <= 255; $d++) {
  print "81.86.$c.$d" unless $res->query("81.86.$c.$d", "PTR");
 }
}
[download]

Comment on Re: Better way to check reverse DNS entries Download Code

Replies are listed 'Best First'.
Re: Re: Better way to check reverse DNS entries by Improv (Pilgrim) on Apr 22, 2003 at 13:06 UTC
`foreach $c (0..255) { foreach $d (0..255) { print "81.86.$c.$d" unless $res->query("81.86.$c.$d", "PTR"); } }` [download]	[reply] [d/l]
Re: Re: Better way to check reverse DNS entries by DrManhattan (Chaplain) on Apr 22, 2003 at 18:20 UTC
Here's something a bit different: `#!/usr/bin/perl -l use strict; use Net::Netmask; use Socket; gethostbyaddr(inet_aton($_), AF_INET) or print for Net::Netmask->new("81.86.0.0/16")->enumerate();` [download] -Matt	[reply] [d/l]


Perl-Sensitive Sunglasses
	PerlMonks