Belajar Pemograman Visual yokk...

"Kriptografi Caesar"

Listing programnya:

Public Class Form1

 Private Sub Btenkripsi_Click(....)
        Txchiper.Text = ""
        Dim x As String
        Dim bil As Integer
        For i = 1 To Len(Txplain.Text)
            x = Microsoft.VisualBasic.Mid(Txplain.Text, i, 1)
            bil = Asc(x)
            bil = bil + 3
            x = Chr(bil)
            Txchiper.Text = Txchiper.Text & x
        Next i
    End Sub

    Private Sub BThapus_Click(.....)
        Txplain.Text = ""
        Txchiper.Text = ""
    End Sub

    Private Sub Btkeluar_Click(.......)
        End
    End Sub

    Private Sub Btdekripsi_Click(....)
        Txchiper.Text = ""
        Dim x As String
        Dim bil As Integer
        For a = 1 To Len(Txplain.Text)
            x = Microsoft.VisualBasic.Mid(Txplain.Text, a, 1)
            bil = Asc(x)
            bil = bil - 3
            x = Chr(bil)
            Txchiper.Text = Txchiper.Text & x
        Next a
    End Sub

    Private Sub Btabout_Click(.....)
        Form2.Show()
    End Sub
End Class