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

Timestamp:

07/04/09 05:02:22 (4 years ago)

Author:

jabra

Message:

use tCheckWildCard in the tBruteForceDNS

File:

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

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

@@ -12 +12 @@
     use Thread::Queue;
     use Net::hostent;
+    use Fierce::Domain::tCheckWildCard;
     use Data::Validate::IP qw(is_public_ipv4 is_ipv4);
 
@@ -33 +34 @@
     # Base Configuration infomation
     my @base : Field : Arg(base) : All(base) : Type(Base);
+    
+    my @has_wildcard : Field : Arg(has_wildcard) : Get(has_wildcard);
 
     ### populated parameters
@@ -61 +64 @@
 
         my $stream = Thread::Queue->new();
+        
+        $wildcard = tCheckWildCard->new();
+        $wildcard = $wildcard->execute($domain_obj);
 
+        $self->has_wildcard($wildcard->check());
+ 
         foreach my $prefix ( @{ $self->prefix_list } ) {
             $stream->enqueue($prefix);
@@ -113 +121 @@
                 );
                 push( @{ $result[$$self] }, $node );
-                my $wildcard_dns = 1e11 - int( rand(1e10) ) . "." . $domain;
-                my $h            = gethost("$wildcard_dns");
-                if ( !$h or $self->test_with_wildcard == 1 ) {
+                if ( $self->test_with_wildcard == 0 or $self->test_with_wildcard == 1 ) {
                     $prefix =~ s/01$|1$//g;
                     while ( $i <= $max ) {