将VBS脚本编译成加密版本的VBE脚本
- 背景
- 保存下面的VBS程序代码到vbs文件中
- 利用上面的vbs脚本程序为自己的vbs脚本加密。
背景
有些时候我们编写了一个VBS脚本后并不是自己用，想给别人用。但我们又不想使用者看到我们的源代码。原因可能是不想自己辛辛苦苦写的源程序被别人免费占有。也可能是VBS源脚本文件中包含了密码等敏感信息。亦或是仅仅是不希望使用者修改程序，防止出现错误。于是今天就来教大家怎么给vbs脚本加密。
保存下面的VBS程序代码到vbs文件中
Option Explicit dim oEncoder, oFilesToEncode, file, sDest
dim sFileOut, oFile, oEncFile, oFSO, i
dim oStream, sSourceFile set oFilesToEncode = WScript.Arguments
set oEncoder = CreateObject("Scripting.Encoder")
For i = 0 to oFilesToEncode.Count - 1 set oFSO = CreateObject("Scripting.FileSystemObject") file = oFilesToEncode(i) set oFile = oFSO.GetFile(file) Set oStream = oFile.OpenAsTextStream(1) sSourceFile=oStream.ReadAll oStream.Close sDest = oEncoder.EncodeScriptFile(".vbs",sSourceFile,0,"") sFileOut = Left(file, Len(file) - 3) & "vbe" Set oEncFile = oFSO.CreateTextFile(sFileOut) oEncFile.Write sDest oEncFile.Close
Next
假设保存的文件名为encode.vbs。保存在D:\
利用上面的vbs脚本程序为自己的vbs脚本加密。
假设要加密的vbs脚本文件为c:\test.vbs。
在CMD窗口中运行下面的命令。
cscript d:\encode.vbs c:\test.vbs
结果，会在c:\下生成一个名为test.vbe的新文件。就是加密后的脚本文件。
另一种方法是，用鼠标左键拖拽c:\test.vbs文件到d:\encode.vbs上，同样会在本加密文件test.vbs所在目录下生成一个同名的vbe文件。
加密前：
加密：
加密后：
