Xor ?

[308holes]

Can anyone show me how to use XOR in VB ? to encrypt some Chars ??

[Athley]

Well if you create a byte array from the chars (for example CharsBytes()) and then create an password byte array (PassBytes()) you can do something like this I guess....

Dim index As Integer
Dim i As Integer
Dim max As Integer = PassBytes.Length

For index = 0 to CharsBytes.Length - 1
   CharsBytes(index) = CharsBytes(index) Xor PassBytes(i)
   i = (i + 1) Mod max
Next