高校问答属鼠的戴金手躅什么样:如何解密这串代码？
来源：百度文库 编辑：高校问答 时间：2024/05/08 07:36:21
#@~^RQEAAA==W!x^DkKxP7+ ^W9+c\xd4Kw#@#@&\x/4G24!Y{*@#@&WGMPr'8~YKPsn `\nUktGw*@#@&kW,:bN`7+ dtKwSkBFb@!@*J^r~Y4+x@#@&-+ 'm/^`hr9`-+ dtKwSrBF#bR7+U/4Ga4;D@#@&k0,\U@*8 PDtnU@#@&\U'7+x 1X@#@&+^/nkW~7+U@!2+PDtnU@#@&\nU{\nx31l@#@&x9Pk6@#@&-+ lx\xC'1tDv-+ #@#@&ns/@#@&\nxCx7+UlL^tM`qf*@#@&nU9Pr0@#@& +aD@#@&\+ mK[+{\nxm@#@&n NP6;x1YkKUf10AAA==^#~@
%>
这段代码应该是其他国家的语言，首行调用了这样的语句。<%@ LANGUAGE=VBScript.Encode CodePage=936%>
应该是通过VBScript.Encode 将其他国家的语言转换过来的。用什么方法能转换回去,然后看到真实的代码？
%>
这段代码应该是其他国家的语言，首行调用了这样的语句。<%@ LANGUAGE=VBScript.Encode CodePage=936%>
应该是通过VBScript.Encode 将其他国家的语言转换过来的。用什么方法能转换回去,然后看到真实的代码？
源文如下
function ve-code(venshop)
venshopbut=5
for i=1 to le-(venshop)
if mid(ve-shop,i,1)<>"$" then
ve-=asc(mid(ve-shop,i,1))-venshopbut
if ven>126 then
ven=ven-95
elseif ven<32 then
ven=ven+95
end if
ve-a=vena&chr(ve-)
else
vena=vena&chr(13)
end if
-ext
ve-code=vena
e-d function
%>