Cifrado y descifrado VBS

Ans = InPutBox("Ingrese la acción a realizar: 1. cifrar, 2. descifrar, 3. salir.")

Ans = Int(Ans)

If Ans = 1 Luego

set fso=createobject("scripting.filesystemobject")

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = " vbs File|*.vbs|Todos los archivos|*.*"

objDialog.InitialDir = ""

objDialog.ShowOpen

strLoadFile = objDialog.FileName

si no strLoadFile = "" entonces

establecer op=fso.openentextfile(strLoadFile)

dow=13

hacer mientras op. atendofstream=false

line=op.readline

para i=1 a len( línea)

achar=mid(line,i,1)

dow=dow&chr(44)&asc(achar)

dow=dow&chr(44)& "13"&chr(44) & "10"

bucle

op.Close