我博客很少推荐什么东西，一般每次推荐都是推荐一些比较特别的东西，这次也不例外，是今天去看暗组偶然看到的，咋一看，很牛叉的工具，集合了几个经典漏洞的利用，推荐给大家使用，很郁闷，我一运行就自动安装office 2003 ！


GOLDSWORD功能介绍和使用说明   
Option Explicit
Private Sub Form_Load()
    On Error Resume Next
    Dim i%
    text1.Text = "    GOLDSWORD是一款全自动扫描漏洞利用工具，主要是利用用户名为Administrator，密码为空的远程主机。仅仅用于交流学习，请勿用于非法用途!" _
            + " 1,绿色软件，不向别的目录和注册表写入任何数据。" _
            + " 2,无法判断NTscan扫描是否完成，所以务必手动关闭它，否则程序将一直等待!"
    text2.Text = "本版本主要更新如下:" _
            + " 1,更新ftpwmi135,httpwmi135,tftpwmi135核心代码,成功率更高。" _
            + " 2,更新RTCS批量溢出代码,当远程主机telnet开启时不再关闭。" _
            + " 3,增加了IPC批量135,先默认共享c盘,然后复制执行文件。" _
            + " 4,增加自动获取内网和公网IP功能。" _
            + " 5,增加关闭S扫描器的功能。" _
            + " 6,优化代码，解决占用cpu高的问题。"
    For i = 1 To 8
        If (i = 1) Then
            Label11.Caption = "绿岛批量135，先S扫描135，然后NTSCAN过滤弱口令，最后让绿岛下载运行程序."
        ElseIf (i = 2) Then
            Label12.Caption = "RPMD批量135：利用的RPMD.VBE脚本来实现下载运行程序。"
        ElseIf (i = 3) Then
            Label13.Caption = "FTPWMI135:先连接远程主机然后登陆FTP服务器下载程序运行。"
        ElseIf (i = 4) Then
            Label11.Caption = "HTTPWMI135:利用wmi在远程主机写入脚本下载者然后运行。"
        ElseIf (i = 5) Then
            Label11.Caption = "TFTPWMI135：利用WMI在远程主机执行TFTP命令来下载运行程序。"
        ElseIf (i = 6) Then
            Label11.Caption = "1433批量溢出：扫描出1433后用sqlhello.exe溢出得到shell。"
        ElseIf (i = 7) Then
            Label11.Caption = "42批量溢出：扫描出42后用ms.exe溢出得到shell。"
        ElseIf (i = 8) Then
            Label11.Caption = "RTCS批量溢出:利用RTCS.vbe批量开telnet。"
        End If
    Next i
End Sub

作者：金刀客

MD5：9f80c3b1e7f5f6f7d0c8aea25fe83551  goldsword.exe

下载地址：http://www.fs2you.com/files/2902263a-e155-11dc-9c8f-00142218fc6e/ 
 


     

  添加到网摘