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