by Adam Dean (3 Submissions)
Category: Encryption
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Sun 2nd March 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
VERY EASY ENCRYPTION AND DECRYPTION CODE. VERY VERY VERY SIMPLE FOR
Private Sub txtText_KeyPress(KeyAscii As Integer)
Dim Text
Text = Chr(KeyAscii + 10)
txtEncrypt.Text = txtEncrypt & Text
End Sub
'To Decrypt Use The Following(Put The Encrypted Text In Where You Are To Type, Then Add This Code Instead Of Code Above:
Private Sub txtText_KeyPress(KeyAscii As Integer)
Dim Text
Text = Chr(KeyAscii - 10)
txtEncrypt.Text = txtEncrypt & Text
End Sub