求帮我编译一个ChrW批量转换程序啊，谢谢了。

下了一个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

%>

8 个解决方案

#1

有人吗。

#2

#3

光看你chrw出现的地方,似乎不太可能放后门吧,感觉只是混淆一下代码而已

#4

引用 3 楼 bcrun 的回复:

光看你chrw出现的地方,似乎不太可能放后门吧,感觉只是混淆一下代码而已

上面那个ASP代码是我随便找的一个比较少的代码，还有其他代码呢，太多。所以我想批量解开。

#5

正则匹配，然后替换。

#6

代码不全，Inc.asp没有，SysGetUpdateInfo()也没有实现的代码。

这种苦力最好花钱请人弄吧。超出技术讨论的范畴了。你怕“后门”多半是没有给足开发者钱所以心虚。

#7

引用 6 楼 caozhy 的回复:

代码不全，Inc.asp没有，SysGetUpdateInfo()也没有实现的代码。

这种苦力最好花钱请人弄吧。超出技术讨论的范畴了。你怕“后门”多半是没有给足开发者钱所以心虚。

有可能……

#8

<!--#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 a 
CloseConn ( conn )  
Response.CharSet = ChrW ( 103 ) & ChrW ( 98 ) & ChrW ( 107 )  
Response.Write vbCrLf 

Sub a
    Dim b
    Dim c
    Dim d
    Dim e
    b = SysGetUpdateInfo() 
    If b ( 0 ) = False Then 
        c = ChrW ( 110 ) & ChrW ( 111 ) & ChrW ( 110 ) & ChrW ( 101 )  
    Else 
        d = ChrW ( 95 ) & ChrW ( 37 ) & ChrW ( 37 ) & ChrW ( 37 ) & ChrW ( 37 ) & ChrW ( 95 )  
        For e = 1 To UBound ( b )  
            c = c & b ( e ) & d 
        Next 
        c = Left ( c , Len ( c ) - Len ( d ) )  
    End If 
    Response.Write c 
End Sub

%>