Changeset 120 for fierce2/branch/lib/Fierce/Domain/tBruteForceDNS.pm

Timestamp:

06/14/09 20:45:58 (4 years ago)

Author:

jabra

Message:

validate IPs to be public

File:

• fierce2/branch/lib/Fierce/Domain/tBruteForceDNS.pm (modified) (2 diffs)

fierce2/branch/lib/Fierce/Domain/tBruteForceDNS.pm

@@ -12 +12 @@
     use Thread::Queue;
     use Net::hostent;
+    use Data::Validate::IP qw(is_public_ipv4 is_ipv4);
 
     ### required parameters
@@ -104 +105 @@
                 $inet = inet_aton("$prefix.$domain");
             }
-
-            if ( defined $inet ) {
+            
+            if ( defined $inet and is_public_ipv4(inet_ntoa($inet)) ) {
                 my $node = Node->new(
                     hostname => "$prefix.$domain",