VBS 偏移量解密工具[算法解密]
程序员文章站
2022-04-10 08:34:49
复制代码 代码如下:if wscript.arguments.count=0 or wscript.arguments.count>1 then msgbox "请将...
复制代码 代码如下:
if wscript.arguments.count=0 or wscript.arguments.count>1 then
msgbox "请将通过偏移量加密过的 vbs 文件拖放到本脚本上即可[请逐个解密]！",48,"提示"
wscript.quit
end if
for each fname in wscript.arguments
if right(fname,3)<> "vbs" then
msgbox "请选择 vbs 文件!",64,"提示"
wscript.quit
else
set fso=createobject("scripting.filesystemobject")
set objf=fso.opentextfile(fname)
str=objf.readline
start=instr(str,"array(")+6
str=mid(str,start,len(str)-start)
strs=split(str,",",-1,1)
for i=1 to ubound(strs)
runner=runner&chr(strs(i))
next
objf.close
set objf=fso.opentextfile(fname,2)
objf.write runner
msgbox "解密成功",64,"提示"
end if
next