Private Function GetXOR(ByVal Any As String) As String Dim i As Integer Dim curXOR As Byte = 0 Dim curBYTE() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(Any) For i = 0 To curBYTE.Length - 1 curXOR = curXOR Xor curBYTE(i) Next Return Conversion.Hex(curXOR) End Function