Kriptografi Caesar

Listing Program

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 Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.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