IDC资讯中心
很久没有关心过web开发版，以后可能会来的更少，今天发布一个破解微软脚本加密算法的vbscript 脚本，算是给csdn出把力吧。
这是一个编写的相当精巧的，用于还原script encoder加密后的script代码，用过asp的人应该知道，微软提供的脚本保护技术很弱，本人在csdn 发布过aspdecoder，以前也发布过几个版本，最近得到该源码（来源不记得了），是用vbscript编写的；
复制以下代码到txt文件中，使用前修改后缀为 .vbs 。可以方便的修改为visual basic 或 asp 程序；
option explicit
dim oargs, nomfichier
optional argument : the encoded filename
nomfichier=""
set oargs = wscript.arguments
select case oargs.count
case 0 no arg, popup a dialog box to choose the file
nomfichier=browseforfolder("choose an encoded file", &h4031, &h0011)
case 1
if instr(oargs(0),"?")=0 then -? ou /? => aide
nomfichier=oargs(0)
end if
case else
wscript.echo "too many parameters"
end select
set oargs = nothing
if nomfichier<>"" then
dim fso
set fso=wscript.createobject("scripting.filesystemobject")
if fso.fileexists(nomfichier) then
dim fic,contenu
set fic = fso.opentextfile(nomfichier, 1)
contenu=fic.readall
fic.close
set fic=nothing
const taginit="#@~^" #@~^awqaaa==
const tagfin="==^#~@" & chr(0)
dim debutcode, fincode
do
fincode=0
debutcode=instr(contenu,taginit)
if debutcode>0 then
if (instr(debutcode,contenu,"==")-debutcode)=10 then if "==" follows the tag
fincode=instr(debutcode,contenu,tagfin)
if fincode>0 then
contenu=left(contenu,debutcode-1) & _
decode(mid(contenu,debutcode+12,fincode-debutcode-12-6)) & _
mid(contenu,fincode+6)
end if
end if
end if
loop until fincode=0
wscript.echo contenu
else
wscript.echo nomfichier & " not found"
end if
set fso=nothing
else
wscript.echo "please give a filename"
wscript.echo "usage : " & wscript.fullname & " " & wscript.scriptfullname & " <filename>"
end if
function decode(chaine)
dim se,i,c,j,index,chainetemp
dim tdecode(127)
const combinaison="1231232332321323132311233213233211323231311231321323112331123132"
set se=wscript.createobject("scripting.encoder")
for i=9 to 127
tdecode(i)="jla"
next
for i=9 to 127
chainetemp=mid(se.encodescriptfile(".vbs",string(3,i),0,""),13,3)
for j=1 to 3
c=asc(mid(chainetemp,j,1))
tdecode(c)=left(tdecode(c),j-1) & chr(i) & mid(tdecode(c),j+1)
next
next
next line we correct a bug, otherwise a ")" could be decoded to a ">"
tdecode(42)=left(tdecode(42),1) & ")" & right(tdecode(42),1)
set se=nothing
chaine=replace(replace(chaine,"@&",chr(10)),"@#",chr(13))
chaine=replace(replace(chaine,"@*",">"),"@!","<")
chaine=replace(chaine,"@$","@")
index=-1
for i=1 to len(chaine)
c=asc(mid(chaine,i,1))
if c<128 then index=index+1
if (c=9) or ((c>31) and (c<128)) then
if (c<>60) and (c<>62) and (c<>64) then
chaine=left(chaine,i-1) & mid(tdecode(c),mid(combinaison,(index mod 64)+1,1),1) & mid(chaine,i+1)
end if
end if
next
decode=chaine
end function
function browseforfolder(byval pstrprompt, byval pintbrowsetype, byval pintlocation)
dim shellobject, pstrtempfolder, x
set shellobject=wscript.createobject("shell.application")
on error resume next
set pstrtempfolder=shellobject.browseforfolder(&h0,pstrprompt,pintbrowsetype,pintlocation)
browseforfolder=pstrtempfolder.parentfolder.parsename(pstrtempfolder.title).path
if err.number<>0 then browseforfolder=""
set pstrtempfolder=nothing
set shellobject=nothing
end function
