#!/usr/bin/perl
# [DkL] bind scan by NeMeS||y [DkL]
# nemesiiy@37.com - dragon@shellnow.it
# >=8.2.3-REL -> not vulnerable
######################################
$file_in = @ARGV[0];
$file_out = @ARGV[1];
$display = @ARGV[2];
$not_vuln = "8.2.3-REL";
unless ($file_in) {
 print "[DkL]               by Nemes||y                 [DkL]\n";
 print "Usage : ./bind_scan.pl <file in> [file out] [display]\n";
 }
else {
 if ($file_out eq "" ) {
  $file_out = "bs_output.txt";
 }
 if ($display eq "" ) {
  $display = 1;
 }
open(IP,"<$file_in");
while (!eof(IP)) {
      $host = <IP>;
@bind_ver = `dig @$host version.bind chaos txt | grep \\\"8`;
foreach $tmp(@bind_ver)
  {
    @bind_tmp =split(" ",$tmp);
    if ($bind_tmp[4] =~ /$not_vuln/i ) {
     if ($display == 1) {
     print "\n:. ".$host." Bind Version --> ".$bind_tmp[4]." Not Vulnerable .:\n";
     }
    }

    else {
     $vuln = ":. ".$host." Bind Version --> ".$bind_tmp[4]." Vulnerable .:";
     print $vuln."\n";
     open (NEW,">$file_out");
     foreach ($vuln) {print NEW}
     close NEW;
    }
  }
 }
print "\n\n EOF! -dkl- Bind Scan -dkl- by Nemes||y dragon\@shallnow.it\n\n";
}