Dekripsi String Dengan Metode Caesar Cipher

melanjutkan enkripsi string selanjutnya, kali ini penulis akan membahas tentang proses dekripsinya, tanpa berlama lama langsung saja



1. buat 3 buah textboxt (textbox1, 2, 3)
2.sebuah button dekripsi
3. kemudian masukan source code berikut ke dalam button

       Dim plain As String = ""
        Dim Kunci As String = ""
        Dim cipher As String = ""
        Dim x As String = ""

        Kunci = Val(TextBox2.Text)
      cipher = TextBox1.Text
        For i = 1 To Len(cipher)
            x = Mid(cipher,i, 1)
            x = Asc(x) - Kunci
            plain= plain + Chr(x)
        Next
        TextBox3.Text = plain
    End Sub


masukan cipertext ke dalam textbox1 kemudian masukan key yang sama pada  saat anda melakukan proses enkripsi sebelumnya ,, klik button dekripsi, maka string akan dapat dibaca .


selesaiii :)

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 :)