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