HEX解码

<%

On Error Resume Next

Response.Buffer = True 

Response.ExpiresAbsolute = Now() - 1 

Response.Expires = 0 

Response.CacheControl = "no-cache" 

Response.AddHeader "Pragma", "No-Cache"

Response.Charset ="GB2312"

temp_url = "%77%77%77%2e%66%6f%72%61%73%70%2e%63%6e"'这里没有HTTp://

temp_url_array = Split(temp_url,"%")

For i = 1 To UBound(temp_url_array)

end_code = end_code& Chr(CLng("&H"&temp_url_array(i)))

Next

response.write end_code '解密后输出www.ynpxrz.com

%>

本文转自 卓行天下  51CTO博客，原文链接：http://blog.51cto.com/9951038/1745934，如需转载请自行联系原作者