使用Scripting.Encoder加密VBS脚本

我《VBS加密 & VBE解密》中提到过可以用Script Encoder来加密VBS脚本，但是不知为何，微软官方现在已经不提供Script Encoder的下载。当然，你可以到其他网站上去下载Script Encoder来加密VBS，如果你不怕中病毒的话。

其实不必如此麻烦，加密VBS的组件Scripting.Encoder默认就安装在我们的系统中，我们可以调用Scripting.Encoder对象的EncodeScriptFile方法来加密VBS脚本。

Option Explicit
Dim se, fso
Dim argv, file, str
'VBScript Encoder
'Author: Demon
'Website: https://demon.tw
Set se  = CreateObject("Scripting.Encoder")
Set fso = CreateObject("Scripting.FilesystemObject")
For Each argv In WScript.Arguments
    Set file = fso.OpenTextFile(argv)
    str = file.ReadAll
    file.Close
    str = se.EncodeScriptFile(".vbs", str, 0 , "")
    argv = Left(argv, Len(argv)-3) & ".vbe"
    Set file = fso.OpenTextFile(argv, 2, True)
    file.Write str
    file.Close
Next
MsgBox "OK", vbInformation

最后Demon奉劝大家不要以为把VBS加密成VBE就高枕无忧了，在高手面前，一切VBS加密都是浮云。

随机文章:

1. VBS 自动登录论坛
2. VB6拾遗：序
3. Dr.Batcher 2.3.3 注册码
4. wprintf输出中文
5. 用C语言实现PHP的urlencode函数

这篇文章发布于 2012年11月10日，星期六，16:24，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。