ASP文件都加密了，不知道怎么解密，有高手指点下吗？

Question

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim CYCCYC,CYCCCY,CYCCCC,CCYYYY,CCYYYC

Set CYCCCC=Response:Set CYCCCY=Request:Set CCYYYC=Session:Set CYCCYC=Application:Set CCYYYY=Server
CYCCCC.Write(CCYCCC(ChrW(107)&ChrW(80)&ChrW(115)&ChrW(126)&ChrW(114)&ChrW(37)&ChrW(42)&ChrW(33)&ChrW(116)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(32)&ChrW(44)&ChrW(33)&ChrW(38)&ChrW(113)&ChrW(123)&ChrW(120)&ChrW(114)&ChrW(32)&ChrW(44)&ChrW(81)&ChrW(92)&ChrW(94)&ChrW(94)&ChrW(40)&ChrW(98)&ChrW(114)&ChrW(94)&ChrW(94)&ChrW(115)&ChrW(37)&ChrW(115)&ChrW(32)&ChrW(44)&ChrW(41)&ChrW(119)&ChrW(37)&ChrW(124)&ChrW(123)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(93)&ChrW(95)&ChrW(32)&ChrW(44)&ChrW(37)&ChrW(67)&ChrW(50)&ChrW(63)&ChrW(68)&ChrW(58)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(50)&ChrW(61)&ChrW(94)&ChrW(94)&ChrW(116)&ChrW(125)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(81)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(72)&ChrW(98)&ChrW(93)&ChrW(64)&ChrW(67)&ChrW(56)&ChrW(94)&ChrW(37)&ChrW(35)&ChrW(94)&ChrW(73)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(96)&ChrW(94)&ChrW(115)&ChrW(37)&ChrW(115)&ChrW(94)&ChrW(73)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(96)&ChrW(92)&ChrW(69)&ChrW(67)&ChrW(50)&ChrW(63)&ChrW(68)&ChrW(58)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(50)&ChrW(61)&ChrW(93)&ChrW(53)&ChrW(69)&ChrW(53)&ChrW(81)&ChrW(109)) & vbCrLf)
太长了，没办法全部复制过来。
问题是要怎么样才能转换成正常的ASP代码。有没有什么软件可以 直接转换的。

Answer 1

这个其实不是加密，只不过是增加代码的复杂程度和迷惑性而已，它最终仍然是要自觉把代码恢复为正常代码再继续运行的（换句话说就是你无须专门去解密它，它自己会自动解密后再发送到浏览器的），我们要做的就是在它自动解密后即截获它的代码，那么获得的就是解密后的代码了。
就这条题目而言，CCYCCC这个函数就是它的解密函数，是最关键的地方，找到它所有问题就迎刃而解了。这个函数是肯定存在的，如果当前页面没找到，那就肯定在Include文件中。
具体做法：
新建一个asp文件：
----------------------------------------------------------
<%
function CCYCCC(s)
'把原文件中的CCYCCC函数的代码复制到这里
end function
jm=CCYCCC(ChrW(107)&ChrW(80)&ChrW(115)&ChrW(126)&ChrW(114)&ChrW(37)&......把原文件中的那些乱七八糟的代码都复制到这里......ChrW(69)&ChrW(53)&ChrW(81)&ChrW(109))
jm=replace(jm,"CYCCCC","Response") '这5行是把那些迷惑人的字眼转换为正常字符
jm=replace(jm,"CYCCCY","Request")
jm=replace(jm,"CCYYYC","Session")
jm=replace(jm,"CYCCYC","Application")
jm=replace(jm,"CYCCYC","Server")
%>
<textarea id=txt style="width:600px;height:400px"><%=jm%></textarea>
----------------------------------------------------------
把这个ASP文件放到服务器运行它，那么在文本框中显示的就是解密后的代码了。
如果这样的代码有多段，那么可以分别操作进行解密。
附注：代码不一定有效，因为你提供的资料本身就不完整。

Answer 2

CCYCCC就是解密