Yuk...belajar sedikit mengenai KRIPTOGRAFI

 Desaign from berikut:

Buatlah Programnya sebabagai berikut:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Plaint.Text = ""

        Chip.Text = ""

    End Sub

    Private Sub BtnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnkripsi.Click

        Dim jumlah As Double = Len(Plaint.Text)

        Dim x As String

        Dim xkalimat As String = "Dim bil as integer"

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(Plaint.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        Chip.Text = xkalimat

    End Sub

End Class

Dan hasil programnya kira seperti di bawah ini

Semoga bermanfaat...