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