Algoritma Caesar Cipher - Penarapan dan Pengujian

Metode Caesar Cipher yang digunakan oleh Julius Caesar.  Pada prinsipnya, setiap huruf digantikan dengan huruf yang berada tiga (3) posisi dalam urutan alfabet. Transformasi yang digunakan adalah:

pi : A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

ci : D E F G H I J K L M N O P Q R S T U V W X Y Z A B C

Contoh :

Plainteks: SISTEM

Cipherteks: VLVWHP

__

Caesar cipher merupakan salah satu algoritma cipher tertua dan paling diketahui dalam perkembangan ilmu kriptografi. Caesar cipher merupakan salah satu jenis cipher substitusi yang membentuk cipher dengan cara melakukan penukaran karakter pada plainteks menjadi tepat satu karakter pada cipherteks.(http://repositori.usu.ac.id/)

berikut script untuk penerapan algoritma diatas

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim x As String = ""
        Dim kalimat As String = ""

        For i = 1 To Len(txtPlain.Text)
            x = Mid(txtPlain.Text, i, i)
            x = Chr(Asc(x) + 3)
            kalimat = kalimat + x
        Next
        txtCipher.Text = kalimat
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim x As String = ""
        Dim kalimat As String = ""

        For i = 1 To Len(txtPlain.Text)
            x = Mid(txtPlain.Text, i, i)
            x = Chr(Asc(x) - 3)
            kalimat = kalimat + x
        Next
        txtCipher.Text = kalimat
    End Sub