APLIKASI ENKRIPSI SEDERHANA DENGAN VB

Enkripsi yang paling sederhana adalah dengan menukar posisi karakter dengan posisi karakter yang lainnya. Misalnya posisi karakter a menjadi d, b menjadi e dan seterusnya. Sekarang kita akan membuat sebuah aplikasi enkripsi sederhana tersebut dengan menggunakan Ms. Visual Basic, dengan menukar posisi ASCII dari karakter yang bersangkutan. Dalam artikel ini saya akan menggunakan algoritma sederhana agar mudah dipahami bagi yang baru belajar bahasa pemrograman VB.
Pertama letakkan dua buah textbox di form, kemudian klik ganda textbox yang pertama dan ketikkan blok kode program berikut ini:

Private Sub Text1_Change()
Dim a As String, b As Integer, c As Integer, panjang As Integer
Dim enkripsi As String
Text2.Text = ""
panjang = Len(RTrim(Text1.Text))
On Error GoTo salah
For i = 0 To panjang
   i = i + 1
   a = Mid(Text1.Text, i, 1)
   b = Asc(a)
   c = b + 3
   enkripsi = Chr(c)
   Text2.Text = Text2.Text & enkripsi
   i = i - 1
Next i
salah:
Exit Sub
End Sub