这种asp代码用的什么加密方式啊？如何解密？

[lu191834552]

<%
'源码作者：
'官方网站：
'联系方式：
'请勿修改下列任何代码,以保证程序正常运行

Dim WKWKKK,WKWKKW,WKWKWK,WKWKWW,WKWWKK
Set WKWKWK=Response:Set WKWKKW=Request:Set WKWWKK=Session:Set WKWKKK=Application:Set WKWKWW=Server
If Date > CDate(WKWWKW("a_`f\`a\b`")) Then WKWKWK.Write WKWWKW("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):WKWKWK.End
dim WKWWWK
WKWWWK=WKWWKW("52E232D6^;<89C8ERgh5]>53")
dim WKWWWW
dim WWKKKK
on error resume next
WWKKKK=WKWWKW("sq""l")+WKWKWW.mappath(WKWWWK)+WKWWKW("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set WKWWWW=WKWKWW.createobject(WKWWKW("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
WKWWWW.open WWKKKK
if err then
err.clear
end if
end if
If isObject(WKWWWW) Then Set WKWWWW = Nothing
Function WKWWKW(ByVal WWKWKK)
Dim WWKKKW, WWKKWK, WWKKWW
WWKWKK = Replace(WWKWKK, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For WWKKWK = 1 To Len(WWKWKK)
If WWKKWK <> WWKKWW Then
WWKKKW = AscW(Mid(WWKWKK, WWKKWK, 1))
If WWKKKW >= 33 And WWKKKW <= 79 Then
WKWWKW = WKWWKW & Chr(WWKKKW + 47)
ElseIf WWKKKW >= 80 And WWKKKW <= 126 Then
WKWWKW = WKWWKW & Chr(WWKKKW - 47)
Else
WWKKWW = WWKKWK + 1
If Mid(WWKWKK, WWKKWW, 1) = WKWWKW("o") Then WKWWKW = WKWWKW & ChrW(WWKKKW + 5) Else WKWWKW = WKWWKW & Mid(WWKWKK, WWKKWK, 1)
End If
End If
Next
End Function
%>

[lu191834552]

没人知道吗？

[Go 旅城通票]

只是起操蛋的变量名而已，自己response，request这种对象用另外一个变量名替换 类似WKWWKW("a_`f\`a\b`")这种解密的，自己response.write输出解密结果后进行替换

response.write WKWWKW("a_`f\`a\b`"):response.end

[lu191834552]

WWWWKK.Write(WKKWKWK("]E23EIE ,L") & vbCrLf) 这种代码怎么解密啊？

[Go 旅城通票]

引用 3 楼 lu191834552 的回复:

WWWWKK.Write(WKKWKWK("]E23EIE ,L") & vbCrLf) 这种代码怎么解密啊？

不是和你说了，仔细看#2的 WWWWKK.Write其实就是Response.Write WKKWKWK("]E23EIE ,L") 参数乱码一样的是通过WKKWKWK解密的，要用response.write WKKWKWK("]E23EIE ,L") 得到解密后的内容，再讲WKKWKWK("]E23EIE ,L") 替换为输出的内容

[Rotel-刘志东]

这命名命的我眼花，没有一个正规开发规范

[田螺弟弟]

混肴加密，可以解的。

[yunshouhu]

就是代码混淆下而已。

[kissbzm]

混淆的.....

[wcwtitxu]

不知道什么工具加密的 把下面代码保存成 a.wsf 文件。 然后用命令 cscript a.wsf 执。 你会看到部分效果

<?xml version="1.0" encoding="gbk" ?>
<job>
<resource id="code" data-description="原始代码"><![CDATA[
Dim WKWKKK,WKWKKW,WKWKWK,WKWKWW,WKWWKK
Set WKWKWK=Response:Set WKWKKW=Request:Set WKWWKK=Session:Set WKWKKK=Application:Set WKWKWW=Server
If Date > CDate(WKWWKW("a_`f\`a\b`")) Then WKWKWK.Write WKWWKW("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):WKWKWK.End
dim WKWWWK
WKWWWK=WKWWKW("52E232D6^;<89C8ERgh5]>53")
dim WKWWWW
dim WWKKKK
on error resume next
WWKKKK=WKWWKW("sq""l")+WKWKWW.mappath(WKWWWK)+WKWWKW("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set WKWWWW=WKWKWW.createobject(WKWWKW("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
WKWWWW.open WWKKKK
if err then
err.clear
end if
end if
If isObject(WKWWWW) Then Set WKWWWW = Nothing

]]></resource>


<script language="vbscript" data-description="原代码中的解密函数"><![CDATA[
Function WKWWKW(ByVal WWKWKK)
Dim WWKKKW, WWKKWK, WWKKWW
WWKWKK = Replace(WWKWKK, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For WWKKWK = 1 To Len(WWKWKK)
If WWKKWK <> WWKKWW Then
WWKKKW = AscW(Mid(WWKWKK, WWKKWK, 1))
If WWKKKW >= 33 And WWKKKW <= 79 Then
WKWWKW = WKWWKW & Chr(WWKKKW + 47)
ElseIf WWKKKW >= 80 And WWKKKW <= 126 Then
WKWWKW = WKWWKW & Chr(WWKKKW - 47)
Else
WWKKWW = WWKKWK + 1
If Mid(WWKWKK, WWKKWW, 1) = WKWWKW("o") Then WKWWKW = WKWWKW & ChrW(WWKKKW + 5) Else WKWWKW = WKWWKW & Mid(WWKWKK, WWKKWK, 1)
End If
End If
Next
End Function

]]></script>


<script language="jscript" data-description="解密"><![CDATA[
var code = getResource('code');
code = code.replace(/WKWWKW\("((?:[^"]|"")+)"\)/g, function($, $1) {
	return '"'+ WKWWKW($1.split('""').join('"')) +'"';
});
WScript.Echo(code);
]]></script>

</job>

[Dogfish]

好像就是混淆变量名字。和C#的反编译效果一样的。就是要猜变量的意义。

[自渡96]

混淆的.....