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，如需轉載請自行聯系原作者