VBS的加密跟解密

不好意思，加密代码给错了。应该是这个。 QQ问吧补充回答，老是在一行显示，所以我就换了个QQ贴出来。 '代码开始 Set fso = CreateObject("scripting.filesystemobject") Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "vbs File|*.vbs|All Files|*.*&qu