ENKRIPSI DEKRIPSI STRING SEDERHANA DENGAN METODE CAESAR CHIPER DI VB.NET 2010

Assalammualaikum programer muda, disini penulis akan menshare sedikit tentang Algoritma kunci simetris Caesar cipher untuk mengenkripsi dan mendekripsi string . berikut Source codenya

kali ini proses Enkripsinya terlebih dulu akan dibahas :)

Enkripsi

1. Pertama sediakan 3 buah textbox dengan nama  Textbox1.text , textbox2.text , textbox3.text (sesuai selera :)

2.  sediakan sebuah button dan beri nama Enkipsi

3. klik 2 kali button tersebut lalu isikan kode berikut !!



Dim plain as string=""
Dim key as string=""
Dim cipher as string=""
Dim x as String=""

plain=textbox1.text
key=val(textbox2.text)

for i = 1 to len(plain)
x=mid(plain,i,i)
x=Asc(x)+key
cipher=cipher+ chr(x)
next i

textbox3.text= cipher


setelah selesai , Run kan program dan masukan String yang akan di enkripsi dan masukan angka untuk keynya !!!

Selesai :)