Advertisement
Guest User

MyPTS

a guest
Oct 20th, 2018
109
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.88 KB | None | 0 0
  1. print q(
  2. +-----------------------+
  3. |      SMB PTS v3       |
  4. +-----------------------+
  5. );
  6. print "IP => ";$ip=<STDIN>;chomp($ip);
  7. while(1){
  8. print q(
  9. Choose :-
  10. 1 - information about a target .
  11. 2 - enumerate the shares .
  12. 3 - Lookup about a target .
  13. 4 - access Windows shares.
  14. ----------------------------
  15. 5 - connect to the IPC$
  16. 6 - Brute Force Share Enumeration
  17. 7 - Dump Share Enumeration
  18. 8 - SMB Cracker
  19. > );$do=<STDIN>;chomp($do);
  20. if($do=='1'){system("nbtstat -A $ip");}
  21. if($do=='2'){system("NET VIEW $ip");}
  22. if($do=='3'){system("nmblookup –A $ip");}
  23. if($do=='4'){system("smbclient -L //$ip -N");}
  24. if($do=='5'){system("net use \\$ip\IPC$ '' /u:''");}
  25. if($do=='6'){system("enum4linux -s /usr/share/enum4linux/share-list.txt $ip");}
  26. if($do=='7'){system("python /usr/share/doc/python-impacket-doc/examples/samrdump.py $ip");}
  27. if($do=='8'){system("nmap -script=smb-brute $ip");}
  28. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement