[Tugas Pemrograman Visual] Kriptografi Caesar Pada VB.Net

Metode Caesar seperti yang kita ketahui adalah salah satu teknik enkripsipaling sederhana dan paling terkenal. Sandi ini termasuk sandi substitusi di mana setiap huruf pada teks terang (plaintext) digantikan oleh huruf lain yang memiliki selisih posisi tertentu dalam alfabet. Misalnya, jika menggunakan geseran 3, W akan menjadi Z, I menjadi L, dan K menjadi N sehingga teks terang "wiki" akan menjadi "ZLNL" pada teks tersandi. Nama Caesar 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.

 Berikut listing programnya:

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



Maka hasil program akan seperti ini ketika dijalankan. Selamat mencoba.