【Asp】ASP十六进制加密源码并执行

ASP十六进制加密执行(需要加密的脚本/源码首尾不需要"<%"和"%>")：

<%
'On Error Resume Next
Function HTS(X)
For i=1 to Len(X)/2
HTS = HTS & Chr(Chr(38) & Chr(72) & Mid(X,i*2-1,2))
NeXt
End Function

EXecute(HTS("526573706F6E73652E577269746520224F6B22"))
%>

十六进制转换字符串：

<%
Function HexToStr(x) '十六进制转换字符串(非汉字)
For i=1 to Len(x)/2
HexToStr = HexToStr & Chr("&H" & Mid(X,i*2-1,2))
Next
End Function

Response.Write HexToStr("6675636B")
%>

字符串转换十六进制：

<%
Function StrToHex(x) '十六进制转换字符串(支持汉字)
For i=1 to Len(x)
StrToHex = StrToHex & Hex(Asc(Mid(X,i,2)))
Next
End Function

Response.Write StrToHex("Fuck")
%>