亲宝软件园·资讯

展开

VBS 偏移量解密 VBS 偏移量解密工具[算法解密]

人气:0
想了解VBS 偏移量解密工具[算法解密]的相关内容吗,在本文为您仔细讲解VBS 偏移量解密的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:VBS,偏移量解密,下面大家一起来学习吧。
复制代码 代码如下:

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

加载全部内容

相关教程
猜你喜欢
用户评论