Membuat Aplikasi Encrypt dan Descrypt Sederhana

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)