aps解密asp网页被ASCII加密了，请问如何解密

aps解密asp网页被ASCII加密了，请问如何解密

你试着直接在页面上输出啊,,这里还有什么,页面输出的结果就是最终解密结果...追问页面输出，，意思是另存为吗，另存为别的方式，对么。追答直接把这一段源码
另存成一个ASP文件,然后通过IIS网页访问追问我访问了，然后查看的源代码，，但是貌似功能消失了，只能显示页面，不能登陆的，有什么别的办法解密么。追答<%
Dim AsciiStr 
'将你的那些字串,先做成文本,然后再转码输出
'这里,文章长度有限制,我就出一段给你
AsciiStr="ChrW(60) &  ChrW(33) &  ChrW(68) & vbCrLf "
Function AsciiStr_En(Str) 'Ascii加密
For i=1 to Len(Str)
AsciiStr_En=AsciiStr_En&"ChrW("&Mid(Str,i,i+1)&")&"
Next
AsciiStr_En=Left(Str,Len(Str)-1)
End Function
Function AsciiStr_UN(Str) 'Ascii解密
Str=Replace(Str," ","") '过滤掉字符串间的空格
Str=Replace(Str,"&","") '过滤掉字符串中的&号
Str=Replace(Lcase(Str),"vbcrlf","") '过滤掉字符串中的 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, ">", ">")
S = Replace(S, "<", "<")
S = Replace(S, CHR(39), "'")
S = Replace(S, CHR(34), """)
S = Replace(S, CHR(20), " ")
HTMLEncode = S
End if
End Function
Response.Write AsciiStr_UN(AsciiStr)&""
%>

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息