对ASP chrW加密文件解密

解密代码

1. Chr()返回两字节的字符，只能使用0-255的数字作为它的参数；
2. Asc()将字符转换为对应数字（0-255）；
3. ChrB()返回一个字节的字符；
4. AscB()返回字符第一个字节；
5. ChrW()接受0-65535的参数，转换为两字节的Unicode字符；
6. AscW()将Unicode字符转换为0-65535的数；

<%
Dim AsciiStr 
'将你的那些字串,先做成文本,然后再转码输出
'例子
AsciiStr="ChrW(97)&ChrW(100)&ChrW(111)&ChrW(100)&ChrW(98)&ChrW(46)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(110)&ChrW(101)&ChrW(99)&ChrW(116)&ChrW(105)&ChrW(111)&ChrW(110)"
Function AsciiStr_UN(Str) 'Ascii解密
    Str=Replace(Str," ","")
    Str=Replace(Str,"&","")
    Str=Replace(Lcase(Str),"vbcrlf","")
    Str=Replace(Lcase(Str),"&","")
    Dim StrArr
    StrArr=Split(Lcase(Str),"chrw") '依题义,将ChrW(XX)进行转码,则使用使用小写chrw做为分割
    For i=1 To Ubound(StrArr)
        StrArr(i)=Replace(Replace(StrArr(i),"(",""),")","")'再过滤掉括号'
        AsciiStr_UN=AsciiStr_UN&HTMLEncode(chr(StrArr(i))) '将<>进行转码,适合页面输出
    next
End Function    
Function HTMLEncode(S) '页面标签转码
    If Not isnull(S) then
        S = Replace(S, ">", "&gt;")
        S = Replace(S, "<", "&lt;")
        S = Replace(S, CHR(39), "&#39;")
        S = Replace(S, CHR(34), "&quot;")
        S = Replace(S, CHR(20), "&nbsp;")
        HTMLEncode = S
    End if
End Function
Response.Write AsciiStr_UN(AsciiStr)&"<BR />"
%>