Imports System
Public Class Program
Public Shared Function XORCipher(ByVal str As String, ByVal key As String) As String
Dim strlen As Integer = str.Length
Dim keyLen As Integer = key.Length
Dim output As Char() = New Char(strlen - 1) {}
For i As Integer = 0 To strlen - 1
output(i) = Convert.ToChar(Convert.ToByte(str(i)) Xor Convert.ToByte(key(i Mod keyLen)))
Next
Return New String(output)
End Function
Public Shared Sub Main()
Dim str As String = "VB.NET Programming Language"
Dim key As String = "secretkey"
Dim cipherText As String = XORCipher(str, key)
Console.WriteLine(cipherText)
Dim decryptText As String = XORCipher(cipherText, key)
Console.WriteLine(decryptText)
End Sub
End Class
' run:
'
' %'M< K5S)
'
' VB.NET Programming Language
'
