网络编程
求帮我编译一个ChrW批量转换程序啊，谢谢了。
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区下了一个ASP网站程序，害怕他有后门，想解开他看看。下面是他的ChrW ascii处理的加密信息，想请大家写成转换回来的程序，转换指定目录或者生成的程序根目录以及所有子目录下的ASP转换回来。谢谢了。
<!--#include file="Inc.asp"-->
<%
If AdminIsRoot() <> 2 Then
CloseConn ( conn )
Response.Write = ChrW ( 110 ) & ChrW ( 111 ) & ChrW ( 110 ) & ChrW ( 101 )
Response.End
End If
Call O00OO00OO0OO0
CloseConn ( conn )
Response.CharSet = ChrW ( 103 ) & ChrW ( 98 ) & ChrW ( 107 )
Response.Write vbCrLf
Sub O00OO00OO0OO0
Dim O000O00000OOO0
Dim OOO00OOO0O
Dim OO000OO00000
Dim O000OOO0000OO0
O000O00000OOO0 = SysGetUpdateInfo()
If O000O00000OOO0 ( 0 ) = False Then
OOO00OOO0O = ChrW ( 110 ) & ChrW ( 111 ) & ChrW ( 110 ) & ChrW ( 101 )
Else
OO000OO00000 = ChrW ( 95 ) & ChrW ( 37 ) & ChrW ( 37 ) & ChrW ( 37 ) & ChrW ( 37 ) & ChrW ( 95 )
For O000OOO0000OO0 = 1 To UBound ( O000O00000OOO0 )
OOO00OOO0O = OOO00OOO0O & O000O00000OOO0 ( O000OOO0000OO0 ) & OO000OO00000
Next
OOO00OOO0O = Left ( OOO00OOO0O , Len ( OOO00OOO0O ) - Len ( OO000OO00000 ) )
End If
Response.Write OOO00OOO0O
End Sub
%>
...全文
