Program Enkripsi - Dekripsi dengan VB

ini ada salah satu contoh program encryption
penggunaanya menggeses 1 bit/lebih

1. buat 1 Form, 3 Textbox, 2 Command Button
2. Copas source code di attachment.

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
x = x + Chr(Asc(Mid(Text1.Text, i, i)) + 1 Mod 255)
Next
Text2.Text = x
End Sub

Private Sub Command2_Click()
For i = 1 To Len(Text2.Text)
x = x + Chr(Asc(Mid(Text2.Text, i, i)) - 1 Mod 255)
Next
Text3.Text = x
End Sub