.NET 4.x Как использовать XOR кодировку? - Visual Basic .NET

Формулировка задачи:

Здравствуйте, подскажите кодом, хочу залить на сервер txt файл с одним словом в XOR кодировке, программа должна получить это слово с сервера и раскодировать для работы в программе

Решение задачи: «.NET 4.x Как использовать XOR кодировку?»

textual
                            Листинг программы 
                        

                            Dim key As Byte = &hA1
Dim inputText As String = "The secret"
'Dim inputText As String = "Важный секрет"
Dim encoded() As Byte  = XorEncode(inputText, key)
Dim outputText As String = XorDecode(encoded, key)
If outputText = inputText Then
    Console.WriteLine("Текст успешно расшифрован")
Else
    Console.WriteLine("Ошибка :(")
End If
 
Shared Function XorEncode(ByVal text As String, ByVal key As Byte) As Byte()
    Dim binText() As Byte = Encoding.UTF8.GetBytes(text)
    For I=0 To binText.Length-1
        binText(I) = binText(I) Xor key
    Next
    Return binText
End Function
 
Shared Function XorDecode(ByVal buf() As Byte, ByVal key As Byte) As String
    For I=0 To buf.Length-1
        buf(I) = buf(I) Xor key
    Next
    Return Encoding.UTF8.GetString(buf)
End Function
                        