My Cesar C[i]pher

Cesar cipher adalah cipher sederhana yang menggunakan shift cipher.. dimana kata asli digeser berdasarkan shiftnya. contoh seperti berikut :

------------------------A B C D E F G H I J
shift sebanyak 3 huruf--D E F G H I J A B C

contoh :
plaint text : A N E H
A B C D E F G H I J K L M N
shift 5 huruf F G H I J K L M N A B C D E
cipher text : F E J M

jadi : ANEH -> FEJM...

logika permograman :

PlainText = Aneh
Shift = 3

Cesar = Ubah huruf "A" menjadi keyacii, lalu keyascii + shift
Keyascii "A" = 65

CipherText = keyascii "A" + Shift
= 65 + 3
= 68
Cesar = ubah 68 menjadi keyascii..
Keyascii(68) = "D"

Ciphertext = "D"

diulang hingga keseluruhan plaintext

hingga hasilnya : "Dqhk"

Code ( in Vb :p ) :

- Encrypt -

form_load()
dim i as integer,Pt as string, Ct as string, Cesar as string, Shift as integer

Pt = "0r4ng324n3h My Cesar C[i]pher"
Shift = 5

for i=1 to len(Pt)
Cesar = replace(Pt,mid(Pt,i,1),Chr(Asc(Mid(Pt,i,1)) + Shift ))
Ct = Ct & mid(Cesar,i,1)
next i

msgbox Ct

- Decrypt -

Cukup dikurangi saja......

untuk source code bisa di download di :

http://h1.ripway.com/0r4ng324n3h/MyCesarC[i]pher.rar