全自动扫描漏洞利用工具GOLDSWORD

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