Membuat Program Kriptografi Caesar di VB.NET 2008
Kali ini saya akan membahas pembuatan program Kriptografi Caesar di VB.NET 2008 . Tetapi sebelum saya membahas koding-koding programnya, saya akan menjelaskan sedikit pengertian dari Kriptografi
Caesar. Kriptografi Caesar Merupakan salah satuprogram yang bisa dijadikan keamanan terhadap pengiriman data agar tidak dapat diserap oleh pihak lain yang tidak bersangkutan keaslian data pribadi kitakarna melalui kriptografi caesar data kita akan dirubah menjadi kode rahasia dan hanya yang mengetahui atau memiliki program Deskripsinya yang bisa mengubah kembali data asliya.
Okey, setelah anda mengetahui apa itu Kriptografi Caesar, Silahkan anda Lihat pembahasan programnya di bawah ini :
 | ||||
| Gambar |
Public Class Form2
Private Sub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.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 i
chipertext.Text = teks
End Sub
Private Sub deskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deskripsi.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 i
kalimat_awal.Text = teks
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Selain membahas Program Kriptografi Caesar anda bisa juga membaca pembahasan program VB.NET lainnya di Form Nasib Marbun.
Semoga Artikel Membuat Program Kriptografi Caesar di VB.NET 2008 Bermanfaat !