Original link: https://gallery.technet.microsoft.com/scriptcenter/16439c02-3296-4ec8-9134-6eb6fb599880
How to use: Save the following code as a VBS script, and then drag and drop the VBS script that needs to be encrypted to this script to complete the encryption.
Option ExplicitDimOencoder, Ofilestoencode, file, SdestDimsfileout, Ofile, Oencfile, oFSO, IDimOStream, SsourcefileSetOfilestoencode =wscript.argumentsSetOencoder =CreateObject("Scripting.encoder") fori =0 toOfilestoencode.count-1 SetoFSO =CreateObject("Scripting.FileSystemObject") file=Ofilestoencode (i)SetOfile =ofso.getfile (file)SetOStream = Ofile.openastextstream (1) Ssourcefile=Ostream.readall ostream.close sdest= Oencoder.encodescriptfile (". vbs", Ssourcefile,0,"") Sfileout= Left(File,Len(file)-3) &"VBE" SetOencfile =ofso.createtextfile (sfileout) oencfile.write sdest oencfile.closeNext
VBS encryption code for Microsoft Script Center--encode a script