Dibuat menggunakan bahasa VB.6 + Notepad
Encrypt :
kopi kode ini di Notepad :>
==============================
Set x = WScript.CreateObject("WScript.Shell")
mySecret = inputbox("enter tex to be encoded")
mySecret = StrReverse(mySecret)
x.Run "%windir%\notepad"
wscript.sleep 1000
x.sendkeys encoded(mySecret)