SHARE
TWEET

SMB Scanning Vulnerabillity

a guest Mar 30th, 2012 337 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. # Author : h3ll0s
  3. # Date   : 30 Maret 2012
  4. # SMB Scanning Vulnerabillity
  5. # Used nmap --script smb-check-vulns.nse -p445 <host>
  6. # Spesial Thank's To : [3rr0r c0de | PasuruanCyber] [BinusHacker]
  7. # http://www.nmap.org
  8.  
  9. use strict;
  10.  
  11. system('cls','clear');
  12.    system('title SMB Scanning.....');
  13.  
  14.       print"\n";
  15.       print "\t//+ + + + + + + + + + + + + + + + + +//\n";
  16.       print "\n";;
  17.       print "\t  =    SMB Scanning Vulnerability   =\n";
  18.       print "\n";;
  19.       print "\t//+ + + + + + + + + + + + + + + + + +//\n";
  20.       print "\n";;
  21.  
  22. print "Masukkan Host : ";
  23. chomp(my $net = <STDIN>);
  24. my $host = $net;
  25. print "Menunggu Proses Scan\n";
  26. print "$host\n";
  27. `nmap --script smb-check-vulns.nse -p445 '$host' >> hasil.txt`;
  28. print "Selesai";
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top