Microsoft 指令碼中心的VBS加密代碼——Encode a Script

標籤：

原文連結：https://gallery.technet.microsoft.com/scriptcenter/16439c02-3296-4ec8-9134-6eb6fb599880

使用方法：先將下面代碼存為VBS指令碼，然後拖拽需要加密的VBS指令碼到此指令碼，即可完成加密。

Option Explicitdim oEncoder, oFilesToEncode, file, sDestdim sFileOut, oFile, oEncFile, oFSO, idim oStream, sSourceFileset oFilesToEncode = WScript.Argumentsset 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.CloseNext

 

Microsoft 指令碼中心的VBS加密代碼——Encode a Script