Question

有人可以帮我这个吗？我想将这个CSharp函数转换为VB。

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;
    }

我在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

由于

Answer 1

我很惊讶您能够编写一个名为XOR的函数，因为它是VB.NET中的关键字。您必须按如下方式转义名称：[XOR]以获得具有该名称的方法。

要执行Xor操作，只需要内置的VB.NET Xor运算符。请考虑以下代码。

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

Xor函数从C＃到VB.NET

1 个答案: