encrypt.vbs / decrypt.vbs

'encrypt.vbs
set x = createobject("wscript.shell")
txt = inputbox("enter text to be encoded:")
msgbox(encode(""&(txt)))
x.run "notepad"
wscript.sleep "1000"
x.sendkeys(encode(""&(txt)))
function encode(s)
For i = 1 To Len(s)
newtxt = Mid(s, i, 1)
newtxt = Chr(Asc(newtxt) / 3)
coded = coded + (newtxt)
Next
encode = coded
End Function

'decrypt.vbs
set x = createobject("wscript.shell")
txt = inputbox("enter text to be decoded:")
msgbox(encode(""&(txt)))
x.run "notepad"
wscript.sleep "1000"
x.sendkeys(encode(""&(txt)))
function encode(s)
For i = 1 To Len(s)
newtxt = Mid(s, i, 1)
newtxt = Chr(Asc(newtxt) * 3)
coded = coded + (newtxt)
Next
encode = coded
End Function

I had a look at this because I am making a collection of codes and ciphers written in vbscript, I am baffled at why I had to change nearly every line to make it work.

BTW it is "Caesar Cipher"

'encrypt.vbs 
     set x = WScript.CreateObject("WScript.Shell")
     txt = inputbox("enter text to be encoded") 
     msgbox encode(txt) 
     x.Run "%windir%\notepad"
     wscript.sleep 1000 
     x.sendkeys encode(txt)
      
     function encode(s) 
        For i = 1 To Len(s) 
           newtxt = Mid(s, i, 1) 
           newtxt = Chr(Asc(newtxt)+3) 
           coded = coded & newtxt 
        Next 
        encode = coded 
     End Function 
     

     'decrypt.vbs 
     set x = WScript.createobject("wscript.shell") 
     txt = inputbox("enter text to be decoded") 
     msgbox encode(txt) 
     x.Run "%windir%\notepad"
     wscript.sleep 1000 
     x.sendkeys encode(txt)     function encode(s) 
        For i = 1 To Len(s) 
           newtxt = Mid(s, i, 1) 
           newtxt = Chr(Asc(newtxt)-3) 
           coded = coded & newtxt 
        Next 
        encode = coded 
     End Function 

hey this is pretty awesome i like this how long did it take you to figure this out

About 10 mins to turn the code in to something that runs you mean?

It would take under an hour to write it from scratch and i would have done it differently.