' Online VB Compiler.
' Code, Compile, Run and Debug VB program online.
' Write your code in this editor and press "Run" button to execute it.
Module VBModule
Sub Main()
Dim i As Byte
Dim a() = {102, 109, 99, 100, 127, 100, 53, 62, 105, 57, 61, 106, 62, 62, 55, 110, 113, 114, 118, 39, 36, 118, 47, 35, 32, 125, 34, 46, 46, 124, 43, 124, 25, 71, 26, 71, 21, 88}
Dim b As String
For i = 0 To UBound(a)
b = b & Chr(a(i) Xor i)
Console.WriteLine(b)
Next
End Sub
End Module