Kriptografi Caesar Menggunakan Program VB Net

Berikut merupakan kriptografi Caesar menggunkaan program vb net

Design form berikut ini.

Berikut listing kriptofrafi caesar menggunakan program vb net.

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 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 btnDekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDekripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Chiper.Text)
            x = Mid(Chiper.Text, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        Plain.Text = xkalimat
    End Sub
End Class


Hasil program Kriptografi Caesar Menggunakan Program VB Net