SMB Scanning Vulnerability

#!/usr/bin/perl
# Author : h3ll0s
# Date    : 30 Maret 2012
# SMB Scanning Vulnerabillity
# Used nmap --script smb-check-vulns.nse -p445 <host>
# Spesial Thank's To : [3rr0r c0de | PasuruanCyber] [BinusHacker]
# http://www.nmap.org
# http://pastebin.com/Qdxyra2n

use strict;

system('cls','clear');
system('title SMB Scanning.....');

print"\n";
print "\t//+ + + + + + + + + + + + + + + + + +//\n";
print "\n";;
print "\t  =    SMB Scanning Vulnerability   =\n";
print "\n";;
print "\t//+ + + + + + + + + + + + + + + + + +//\n";
print "\n";;

print "Masukkan Host : ";
chomp(my $net = <STDIN>);
my $host = $net;
print "Menunggu Proses Scan\n";
print "$host\n";
`nmap --script smb-check-vulns.nse -p445 '$host' >> hasil.txt`;
print "Selesai";

Posted in: Hacking