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