简单的VBS加密实现代码.pdfVIP

下面是加密程序，原理很低级，读取源文件的所有代码并计算 Asc 值后写入， Execute 用 Chr 还原后的代码。 代码如下 : On Error Resume Next Set argv = WScript.Arguments If argv.Count = 0 Then WScript.Quit Set fso = CreateObject(scripting.filesystemobject) With fso.OpenTextFile(argv(0),1) data = .ReadAll : .Close End With With fso.OpenTextFile(argv(0)amp;.txt,2,True) .WriteLine data=amp;Chr(34)amp;ASCdata(data)amp;Chr(34) .WriteLine Function ChrData(Data) .WriteLine MyArray = Split(Data, ,, -1, 1) .WriteLine