Program Encripsi Text

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