• 欢迎访问金刀客博客!
  • 2019,春节快乐!

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

原创天空 admin 20952次浏览 已收录 8个评论

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
www.daokers.com
daokers 2008.2.16
------------------- -------------------



点击下载此文件
MD5:d0255384834c8efdb8649407c2cc95eb goldsword..exe
2个演示动画:
goldsword(RPMD135)演示动画
goldsword(httpwmi135)演示动画


金刀客博客 , 版权所有丨如未注明 , 均为原创丨本网站采用BY-NC-SA协议进行授权 , 转载请注明全自动漏洞扫描利用工具GOLDSWORD
喜欢 (6)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到
(8)个小伙伴在吐槽
  1. 引用来自 cbqandlws
    下载不了
    被服务器的杀软删除了
    admin2008-11-10 23:26 回复
  2. 下载不了
    cbqandlws2008-11-10 10:41 回复
  3. 引用来自 shuiwx
    怎么报有毒啊`````?
    都发布快一年了,当然会报了,另外很多组件本来就是非正常程序
    admin2008-09-23 08:27 回复
  4. 怎么报有毒啊`````?
    shuiwx2008-09-23 08:08 回复
  5. 可以下的下过来了
    qtcpl2008-06-13 00:43 回复
  6. 有谁知道网吧怎么扫1433自动扫描溢出吗?
    萱紫2008-04-10 13:25 回复
  7. 引用来自 xiaingtai0408
    怎么下不下来
    有防盗链,不要用下载软件下载,直接左击或右键另存为下
    admin2008-03-31 19:14 回复
  8. 怎么下不下来
    xiaingtai04082008-03-31 11:01 回复