从C＃到VB.NET的Xor函数

Question

can some one help me with this? I want to convert this CSharp function to VB.

Function in CSharp:

public static string XOR(string key, string input)
    {
        StringBuilder sb = new StringBuilder();
        for (int i = 0; i < input.Length; i++)
            sb.Append((char)(input[i] ^ key[(i % key.Length)]));
        String result = sb.ToString();

        return result;
    }

What I have in VB:

Public Function XOR(Key As String, Input As String) As String
    Dim sb As StringBuilder = New StringBuilder()

    For i As Integer = 0 To Input.Length - 1
        sb.Append(Chr(Asc(Input(i))) ... )
    Next

    Dim Result As String = sb.ToString()
    Return Result
End Function

Thanks

Answer 1

I'm surprised you were able to write a function called XOR because that's a keyword in VB.NET. You'll have to escape the name as follows: [XOR] to have a method with that name.

To do your Xor operation, you just need the built in VB.NET Xor operator. Consider the following code.

For i = 0 To Input.Length - 1
    sb.Append(ChrW(AscW(input(i)) Xor AscW(key(i Mod key.Length))))
Next