by Adam Orenstein (6 Submissions)
Category: Encryption
Compatability: Visual Basic 3.0
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating: 
(5 Votes)
This will logically encrypt a string by deviating its ASC() value. Works perfectly. Its just a VERY Short Algoritm the String gets passed through Charachter by Character. To decrypt just redo the encryption. just like a double negative.
VBcodersPublic Function EncodeText(TheText As String) As String
Dim Letter As String
Dim TextLen As Integer
Dim Crypt As Double
TextLen = Len(TheText)
For Crypt = 1 To TextLen
Letter = Asc(Mid(TheText, Crypt, 1))
Letter = Letter Xor 255
Result$ = Result$ & Chr(Letter)
Next Crypt
EncodeText = Result$
End Function
