Vbs加密介绍

背景

VBS脚本并不是自己用，我们都不希望自己辛辛苦苦努力的源码被别人免费占有，当然也可能是VBS源脚本文件包含密码等敏感信息，不希望使用者修改信息，防止出现错误。以下是VBS加密教程

新建一个encode.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

保存以上vbs文件到D盘或者其他磁盘

使用流程

假设要加密的vbs脚本文件为D:\MOG.vbs

在CMD窗口中运行以下命令

cscript d:\encode.vbs D:\MOG.vbs

加密完成会在D:MOG.vbs目录下生产一个新的VBE文件