本文最后更新于 48 天前,如有失效请评论区留言。
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文件