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)


function encoded(s)
for i = 1 To Len(s)
newtxt = Mid(s,i,1)
newtxt = Chr(Asc(newtxt)+5)
coded = coded & newtxt
Next
encoded = coded
End Function
==============================



Descrypt
(untuk descrypt,cukup merubah +5 jd -5)
seperti ini :>
 ==============================
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)

function encoded(s)
for i = 1 To Len(s)
newtxt = Mid(s,i,1)
newtxt = Chr(Asc(newtxt)-5)
coded = coded & newtxt
Next
encoded = coded
End Function
==============================
save as .vbs (att: All file)
 >> coba sekarang ketik "Hello" maka hasilnya "tqqjM"