VBS的加密跟解密

Ans = InPutBox("请输入要执行的操作：1.加密，2.解密,3.退出。") Ans = Int(Ans) If Ans =1 Then set fso=createobject("scripting.filesystemobject") Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "vbs File|*