Kriptografi Caesar, Sederhana, Mudah dan Terkenal

Sandi Caesar atau sandi geser merupakan algoritma simestris yang paling sederhana dalam memahami sekelumit kecil mengenai Kriptografi. Ini merupakan teknik enkripsi paling sederhana namun terkenal.



Cara kerjanya cukup gampang, tinggal menggeser deretan huruf sebanyak 3 posisi, seperti gambar di bawah ini. Cukup mudah bukan?

 

Rumus untuk Enkripsi Caesar yaitu :

C = P + 3 mod 26

Sedangkan untuk Dekripsinya :

P = C - 3 mod 26

Diketahui :
C = Cipherteks
P = Plainteks

Gampang bukan.

Designlah seperti gambar Kriptografi Caesar di bawah.

 

Berikut listing programnya.

Public Class Form1

    Private Sub btnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnkripsi.Click
        Dim x As String
        Dim bil As Integer
        Cipher.Text = ""
        For i = 1 To Len(Plain.Text)
            x = Microsoft.VisualBasic.Mid(Plain.Text, i, 1)
            bil = Asc(x)
            bil = bil + 3
            x = Chr(bil)
            Cipher.Text = Cipher.Text & x
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Plain.Text = ""
        Cipher.Text = ""

    End Sub
End Class

Sumber : Mesran.net