Membuat Aplikasi Program Kriptografi Caesar Chiper Pada VB.Net

Membuat Aplikasi Program Kriptografi Caesar Chiper Pada VB.Net

Kali ini saya akan berbagi program Membuat Aplikasi Program Kriftografi Caesar Chiper Pada VB.Net. Kali ini aplikasi yang dibuat adalah Caesar Chiper yaitu aplikasi yang digunakan untuk menyandikan kata sandi pada akun login. 

Dibawah ini merupakan tampilan Aplikasi Program Caesar Chiper :

Ket :

• Label1 = text : plain
• Label2 = text : chiper
• Botton1 = nama  : btnenkripsi
• Botton2= nama : btndeskripsi
• Textbox1 = nama : plain
• Textbox2 = nama : chiper

Listing Program :

1. Public Class Form1
3.     Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.Click
4.         Dim x As String = ""
5.         Dim xkalimat As String = ""
7.         For i = 1 To Len(plain.Text)
8.             x = Mid(plain.Text, i, i)
9.             x = Chr(Asc(x) + 3)
10.             xkalimat = xkalimat + x
11.         Next
12.         chiper.Text = xkalimat
14.     End Sub
16.     Private Sub Dekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dekripsi.Click
17.         Dim X As String = ""
18.         Dim XKALIMAT As String = ""
20.         For i = 1 To Len(chiper.Text)
21.             X = Mid(chiper.Text, i, i)
22.             X = Chr(Asc(X) - 3)
23.             XKALIMAT = XKALIMAT + X
24.         Next
25.         plain.Text = XKALIMAT
26.     End Sub
28. End Class

Demikianlah artikel saya tentang Membuat Aplikasi Program Kriftografi Caesar Chiper Pada VB.Net semoga artikel diatas dapat bermanfaat bagi sobat sekalian........