1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-21 04:06:46 +00:00
freebsd-ports/dns/dnsenum/files/patch-dnsenum.pl
Pawel Pekala b3315d8863 Multithreaded perl script to enumerate DNS information
of a domain and discover non-contiguous IP blocks.

OPERATIONS:
 Get the host's address (A record).
 Get the nameservers (threaded).
 Get the MX record (threaded).
 Perform axfr queries on nameservers and
 get BIND VERSION (threaded).
 Get extra names and subdomains via google
 scraping (google query = "allinurl: -www site:domain").
 Brute force subdomains from file, can also
 perform recursion on subdomain that have NS records (all threaded).
 Calculate C class domain network ranges
 and perform whois queries on them (threaded).
 Perform reverse lookups on  netranges
 ( C class or/and whois netranges) (threaded).
 Write to domain_ips.txt file
 ip-blocks.

WWW:https://github.com/fwaeytens/dnsenum

PR:		208950
Submitted by:	Rihaz Jerrin <rihaz.jerrin@gmail.com>
2016-05-29 11:33:33 +00:00

33 lines
1018 B
Perl

--- dnsenum.pl.orig 2016-04-22 00:50:16 UTC
+++ dnsenum.pl
@@ -58,6 +58,8 @@ use Net::Netmask;
use XML::Writer;
use Socket;
use String::Random;
+no if $] >= 5.017011, warnings => 'experimental::smartmatch';
+
my ($ithreads_support, $whois_support, $mech_support, $html_support,$xml_support);
@@ -71,7 +73,7 @@ my ($domain, $recur, $table, $extend_b,
my ($timeout, $delay, $pages, $ipcount, $ipvalid) = (10, 3, 5, 0, 0);
my ($output);
my $writer;
-my $program = 'dnsenum.pl';
+my $program = 'dnsenum';
my $string_gen = String::Random->new;
my $wildcards = $string_gen->randpattern("cccccccccccc");
my @wildcardaddress;
@@ -176,11 +178,6 @@ if ($whois && !defined $whois_support) {
"whois queries disabled.\n";
$whois = undef;
}
-if ($whois && !defined $whois_support) {
- warn "Warning: can't load Net::Whois::IP module, ".
- "whois queries disabled.\n";
- $whois = undef;
-}
if ($output && !defined $xml_support) {
warn "Warning: can't load XML::Writer module, ".
"xml output disabled.\n";