by PulseWave (25 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Wed 24th February 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Encryption and decryption
Public Function Encrypt(ByVal Plain As String, Text As TextBox)
'DUH!'
Dim Letter As String
For i = 1 To Len(Plain)
Letter = Mid$(Plain, i, 1)
Mid$(Plain, i, 1) = Chr(Asc(Letter) + 1)
Next i
Text = Plain
End Function
Public Function Decrypt(ByVal Encrypted As String, Text As TextBox)
'DUH!'
Dim Letter As String
For i = 1 To Len(Encrypted)
Letter = Mid$(Encrypted, i, 1)
Mid$(Encrypted, i, 1) = Chr(Asc(Letter) - 1)
Next i
Text = Encrypted
End Function