--- fierce-orig.pl 2007-12-20 12:01:52.000000000 -0500 +++ fierce.pl 2007-12-20 19:04:18.000000000 -0500 @@ -94,7 +94,7 @@ } my $result = GetOptions ( - 'dns=s' => \$dns, + 'dns=s' => \$dns, 'file=s' => \$filename, 'suppress' => \$suppress, 'help' => \$help, @@ -106,7 +106,7 @@ 'dnsserver=s' => \$dns_server, 'version' => \$version, 'search=s' => \$search, - 'stop=s' => \$stop, + 'stop' => \$stop, 'wordlist=s' => \$wordlist, 'fulloutput' => \$full_output, 'nopattern' => \$nopattern, @@ -131,7 +131,7 @@ if (-e $filename) { # file exists print "File already exists, do you want to overwrite it? [Y|N] "; chomp(my $overwrite = ); - if ($overwrite eq 'y' || $overwrite eq 'Y') { + if ($overwrite =~ /y/i) { open FILE, '>', $filename or quit_early("Having trouble opening $filename anyway"); } else { @@ -202,8 +202,9 @@ } if ($traverse) { - quit_early('The -t flag must contain an integer 0-255') if $traverse !~ /\d/; - quit_early('The -t flag must contain an integer 0-255') if $traverse < 255; + unless ($traverse =~ /\d{1,3}/ && ( $traverse >= 0 || $traverse <= 255 ) && $traverse !~ /0\d{1,2}/){ + quit_early('The -t flag must contain an integer 0-255'); + } } else { $traverse = 5; } @@ -461,9 +462,9 @@ #TODO: add port selection and range support my $socket = new IO::Socket::INET ( PeerAddr => "$ip_and_hostname[0]", - PeerPort => 'http(80)', - Timeout => 10, - Proto => 'tcp', + PeerPort => 'http(80)', + Timeout => 10, + Proto => 'tcp', ) or next; $webservers++;