繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > VBS 偏移量解密工具[算法解密]
- VBScript
- VBS教程：方法-Skip 方法
- VBS教程：方法-Remove 方法
- VBS教程：方法-ReadLine 方法
- VBS教程：方法-ReadAll 方法
- VBS教程：方法-Read 方法
- VBS教程：方法-OpenTextFile 方法
- VBS教程：方法-OpenAsTextStream 方法
- VBS教程：方法-MoveFolder 方法
- VBS教程：方法-MoveFile 方法
- VBS教程：方法-Move 方法
- VBS教程：方法-Keys 方法
- VBS教程：方法-Items 方法
- VBS教程：方法-GetTempName 方法
- VBS教程：方法-GetSpecialFolder 方法
- VBS教程：方法-GetParentFolderName 方法
- VBS教程：方法-GetFolder 方法
- VBS教程：方法-GetFileName 方法
- VBS教程：方法-GetFile 方法
- VBS教程：方法-GetExtensionName 方法
- VBS教程：方法-GetDriveName 方法
VBScript 中的 VBS 偏移量解密工具[算法解密]
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 345 ::
收藏到网摘: n/a
请将通过偏移量加密过的 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
评论 (0) All
