level 1
Dim NZNNNZ,NZNNNN,NNZZZZ,NNZZZN,NNZZNZ
Set NNZZZZ=Response:Set NZNNNN=Request:Set NNZZNZ=Session:Set NZNNNZ=Application:Set NNZZZN=Server
NNZZZZ.Write(ChrW(60)&ChrW(104)&ChrW(101)&ChrW(97)&ChrW(100)&ChrW(62) & vbCrLf)
NNZZZZ.Write(ChrW(60)&ChrW(109)&ChrW(101)&ChrW(116)&ChrW(97)&ChrW(32)&ChrW(104)&ChrW(116)&ChrW(116)&ChrW(112)&ChrW(45)&ChrW(101)&ChrW(113)&ChrW(117)&ChrW(105)&ChrW(118)&ChrW(61)&ChrW(34)&ChrW(67)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(45)&ChrW(84)&ChrW(121)&ChrW(112)&ChrW(101)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(61)&ChrW(34)&ChrW(116)&ChrW(101)&ChrW(120)&ChrW(116)&ChrW(47)&ChrW(104)&ChrW(116)&ChrW(109)&ChrW(108)&ChrW(59)&ChrW(32)&ChrW(99)&ChrW(104)&ChrW(97)&ChrW(114)&ChrW(115)&ChrW(101)&ChrW(116)&ChrW(61)&ChrW(103)&ChrW(98)&ChrW(50)&ChrW(51)&ChrW(49)&ChrW(50)&ChrW(34)&ChrW(62) & vbCrLf)
2014年05月16日 15点05分
1
level 1
难道就是简单的替换吗？
可是后面的还有
set NNZNNZZZ=nothing
set NNZNNZZZ=NNZZZN.CreateObject(ChrW(97)&ChrW(100)&ChrW(111)&ChrW(100)&ChrW(98)&ChrW(46)&ChrW(114)&ChrW(101)&ChrW(99)&ChrW(111)&ChrW(114)&ChrW(100)&ChrW(115)&ChrW(101)&ChrW(116))
NNNNNNN=ChrW(115)&ChrW(101)&ChrW(108)&ChrW(101)&ChrW(99)&ChrW(116)&ChrW(32)&ChrW(42)&ChrW(32)&ChrW(102)&ChrW(114)&ChrW(111)&ChrW(109)&ChrW(32)&ChrW(110)&ChrW(122)&ChrW(99)&ChrW(109)&ChrW(115)&ChrW(95)&ChrW(100)&ChrW(117)&ChrW(105)&ChrW(108)&ChrW(105)&ChrW(97)&ChrW(110)&ChrW(32)&ChrW(119)&ChrW(104)&ChrW(101)&ChrW(114)&ChrW(101)&ChrW(32)&ChrW(112)&ChrW(97)&ChrW(115)&ChrW(115)&ChrW(61)&ChrW(48)
NNZNNZZZ.open NNNNNNN,NNNNZNN,1,1
NNZZZZ.Write(vbCrLf)
2014年05月16日 16点05分
2
level 1
Function EnTiFvAz(ByVal c)
Dim v, i, n
c = Replace(c, Chr(36) & ChrW(-243), Chr(36))
c = Replace(c, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For i = 1 To Len(c)
If i <> n Then
v = AscW(Mid(c, i, 1))
If v >= 33 And v <= 79 Then
EnTiFvAz = EnTiFvAz & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
EnTiFvAz = EnTiFvAz & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = EnTiFvAz("o") Then EnTiFvAz = EnTiFvAz & ChrW(v + 5) Else EnTiFvAz = EnTiFvAz & Mid(c, i, 1)
End If
End If
怎么不行呢？解密函数是什么？怎么能看出来？
2014年05月16日 16点05分
3
level 1
v, i, n ，EnTiFvAz，c 等替换成ZN组成的量吗？
2014年05月16日 16点05分
4
level 12
真不知道为啥 有人愿意这样写~~~
这不是什么加密~~
就是自己定义一些难看的变量 替代了本身的一些对象
用 chrw(xxx) 代替直接写字符 chrw()函数 就是根据 字符的unicode 编码 返回字符
2014年05月17日 03点05分
5
level 1
1楼解密：
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
2楼解密并替换优化：
<%
set rs=nothing
set rs=Server.CreateObject("adodb.recordset")
sql="select * from nzcms_duilian where pass=0"
rs.open sql,conn,1,1
Response.Write(vbCrLf)
%>
2014年08月23日 02点08分
6
虽然你回答的不对，但还是谢谢你！我已经解决了。
2014年09月01日 21点09分
回复 梦醒冰海 :我也是在最近解密一个源代码发现的！
2014年09月03日 09点09分
回复
���ѱ���
:请问你的这个问题是怎么解决的呢
2015年03月30日 14点03分
level 1
set fso=createobject("scripting.filesystemobject")
set rx=new RegExp
rx.Global=true
rx.IgnoreCase=true
rx.Pattern="chrw\(-?\d+\)(&chrw\(-?\d+\))*"
*asp的正则有点小问题，替换内容很多的时候会导致rx替换不完整，分段替换后出现字符串连接问题，只好再替换一次
set rx1=new RegExp
rx1.Global=true
rx1.IgnoreCase=true
rx1.Pattern="""&"""
*用于替换需要使用CCYCCC解码的内容
set rx2=new RegExp
rx2.Global=true
rx2.IgnoreCase=true
rx2.Pattern="CCYCCC\(""[^""]+""\)"
function readfile(fn)*读取编码文件的内容
set ts=fso.OpenTextFile(fn,1,false,-2)
readfile=ts.ReadAll
ts.close
set ts=nothing
end function
function decodechrw(fn)
s=readfile(fn)
if rx.Test(s) then
try=0
while try<5 and rx.Test(s)
set mc=rx.Execute(s)
for each m in mc
s=replace(s, m.value,""""&eval(m.value)&"""")
next
set mc=nothing
try=try+1
wend
s=rx1.Replace(s,"")
set mc=rx2.Execute(s)
for each m in mc
s=replace(s, m.value,""""&eval(m.value)&"""")
next
set mc=nothing
set ts=fso.OpenTextFile(replace(fn,".","_decode."),2,true,-2)*写入解码后的内容到原来文件名替换为 _decode的文件里面
ts.write s
ts.close
set ts=nothing
end if
end function
Function CCYCCC(ByVal CYCCCYC)
Dim CCYCYYY, CCYCYYC, CCYCYCY
CYCCCYC = Replace(CYCCCYC, Chr(36) & ChrW(-243), Chr(36))
CYCCCYC = Replace(CYCCCYC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCYCYYC = 1 To Len(CYCCCYC)
If CCYCYYC <> CCYCYCY Then
CCYCYYY = AscW(Mid(CYCCCYC, CCYCYYC, 1))
If CCYCYYY >= 33 And CCYCYYY <= 79 Then
CCYCCC = CCYCCC & Chr(CCYCYYY + 47)
ElseIf CCYCYYY >= 80 And CCYCYYY <= 126 Then
CCYCCC = CCYCCC & Chr(CCYCYYY - 47)
Else
CCYCYCY = CCYCYYC + 1
If Mid(CYCCCYC, CCYCYCY, 1) = CCYCCC("o") Then CCYCCC = CCYCCC & ChrW(CCYCYYY + 5) Else CCYCCC = CCYCCC & Mid(CYCCCYC, CCYCYYC, 1)
End If
End If
Next
End Function
path="C:\inetpub\1\"
Set objFolder1 = fso.GetFolder(path)
For Each objFile in objFolder1.Files
if instr(objFile.Name,".asp")>0 and instr(objFile.Name,"_decode.asp")=0 then decodechrw(path& objFile.Name)
Next
set objFolder1=nothing
set fso=nothing
set rx=nothing
set rx1=nothing
msgbox "解码完毕"
2014年09月25日 09点09分
9
level 1
将9楼的源码保存为.vbs文件，”..vbs”的文件放在在源码根目录上，注意调整.vbs文件中的输出文件夹。如：path="C:\inetpub\1\" 。虽然，不完全破解，但应该能看的懂源码了。
2014年09月25日 09点09分
10
level 12
这么老的贴 翻出来做什么 再说 这也是没什么用的东西
2015年08月17日 12点08分
13
level 1
<%
Function Decode(ByVal str)
Dim bin, tmp, char
str = Replace(str, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For tmp = 1 To Len(str)
If tmp <> char Then
bin = AscW(Mid(str, tmp, 1))
If bin >= 33 And bin <= 79 Then
Decode = Decode & Chr(bin + 47)
ElseIf bin >= 80 And bin <= 126 Then
Decode = Decode & Chr(bin - 47)
Else
char = tmp + 1
If Mid(str, char, 1) = Decode("o") Then Decode = Decode & ChrW(bin + 5) Else Decode = Decode & Mid(str, tmp, 1)
End If
End If
Next
End Function
%>
<form action="" method="post">
<textarea name="text" cols="100" rows="30">
</textarea>
<input type="submit" />
</form>
<textarea name="text" cols="100" rows="30">
<%
response.Write decode(request.Form("text"))
%>
</textarea>
2016年11月30日 09点11分
20
把这个代码保存为asp文件执行。上面窗口输入加密的代码，提交后下面出现解密后的源码。
2016年11月30日 09点11分
大神，已验证，返回乱码，都不认识。 kT s:> }+}}+[}}+}}}[}}}+++[}}}++}[}}}+}+ $6E }}+++l
#6DA@?D6i$6E }+}}}l#
6BF6DEi$6E }}+}+l$6DD:@?i$6E }+}}+lpAA=:42E:@?i$6E }}++}l$6CG6C }}}+++]
2017年02月02日 17点02分
