Program Sederhana Metode Kriptografi Caesar Menggunakan VB.Net 2008

Metode Caesar  seperti yang kita ketahui adalah salah satu teknik enkripsipaling sederhana dan paling terkenal. Sandi ini termasuk sandi substitusi dimana setiap huruf pada teks terang (plaintext) digantikan oleh huruf lain yang memiliki selisih posisi tertentu dalam alfabet. Misalnya, jika menggunakan geseran 3, Wakan menjadi Z, I menjadi L, dan K menjadi N sehingga teks terang "wiki" akan menjadi "ZLNL" pada teks tersandi. NamaCaesar diambil dari Julius Caesar, jenderal, konsul, dan diktator Romawi yang menggunakan sandi ini untuk berkomunikasi dengan para panglimanya.

Berikut contoh program Metode Kriptografi Caesar Menggunakan VB.Net 2008.

1. Tampilan Form Kriptografi Caesar

2. Listing Program

Private Sub BtnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim teks As String = ""

        Dim i As Integer

        Dim xkar As String = ""

        For i = 1 To Len(Plaintext.Text)

            xkar = Mid(Plaintext.Text, i, 1)

            xkar = Chr(Asc(xkar) + 3)

            teks = teks + xkar

        Next

        Chipertext.Text = teks

        Plaintext.Text = ""

    End Sub

    Private Sub BtnDeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim teks As String = ""

        Dim i As Integer

        Dim xkar As String = ""

        For i = 1 To Len(Chipertext.Text)

            xkar = Mid(Chipertext.Text, i, 1)

            xkar = Chr(Asc(xkar) - 3)

            teks = teks + xkar

        Next

        Plaintext.Text = teks

        Chipertext.Text = ""

    End Sub

3. Hasil Program

Sekian dulu, terima kasih dan semoga bermanfaat.