Desain Form :


Ketikkan Programnya...

Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
        Dim x As String = ""
        Dim w As String = ""
        For i = 1 To Len(Plain.Text)
            x = Mid(Plain.Text, i, i)
            x = Chr(Asc(x) + 3)
            w = w + x
        Next
        Chiper.Text = w
    End Sub

    Private Sub btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeskripsi.Click
        Dim x As String = ""
        Dim n As String = ""
        For i = 1 To Len(Chiper.Text)
            x = Mid(Chiper.Text, i, i)
            x = Chr(Asc(x) - 3)
            n = n + x
        Next
        Plain.Text = n
    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Plain.Text = ""
        Chiper.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class

Kemudian jalankan programnya dengan menekan F5. Kemudian ketik nama anda di kolom PLAIN dan pilih "ENKRIPSI"


Hasilnya :


Pemrograman Kiptografi dengan menggunakan "CAESAR CHIPER" Semoga bermanfaat.