by James Cox (1 Submission)
Category: Encryption
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Thu 15th March 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Encryption using the XOR operator.
Dim Char As Integer
For Char = 1 To Len(EncString)
Mid(EncString, Char, 1) = Chr(Asc(Mid(EncString, Char, 1)) Xor XORVal)
Next Char
End Sub