NetBios [ Perl ]

#!/usr/bin/perl

use IO::Socket;
use strict;

my $host = $ARGV[0];
if($host) {
} else {
print "\nUsage: netbios.pl 127.0.0.1\n";
exit;
}
my $port = '139';

my $sock = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$host", PeerPort=>"$port", Timeout=>'15') || die "\nThe slave Machine Was Not Found Vulnerable To NetBIOS\n\n";

print "\nThe System You Have Targeted Is Vulnerable To NetBIOS!\n\a";
print $sock;
close(sock);

#Coded by Phizo.