Membuat Aplikasi Program Kriftografi Caesar Chiper Pada VB.Net

Assalamualaikum... Sahabat Blogger....

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 :

Keterangan :

• Label1 = text : plain
• Label2 = text : chiper
• Botton1 = nama  : Buttonenkripsi
• Botton2= nama : Buttondeskripsi
• Textbox1 = nama : plain
• Textbox2 = nama : chiper

Berikut adalah Listing Programnya:

Public Class Kriptografi_caesar

    Private Sub Buttonenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonenkripsi.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(plain.Text)

            x = Mid(plain.Text, i, i)

            x = Chr(Asc(x) + 3)

            xkalimat = xkalimat + x

        Next

        chiper.Text = xkalimat

    End Sub

    Private Sub Buttondeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttondeskripsi.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(plain.Text)

            x = Mid(plain.Text, i, i)

            x = Chr(Asc(x) - 3)

            xkalimat = xkalimat + x

        Next

        chiper.Text = xkalimat

    End Sub

    End Sub

End Class

Sekian artikel dari saya tentang Membuat Aplikasi Program Kriftografi Caesar Chiper Pada VB.Net semoga artikel diatas dapat bermanfaat bagi sahabat blogger...

Wassalamu'alaikum.........