有人可以帮我弄这个吗?我想将此 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
谢谢
我很惊讶您能够编写一个名为的函数,XOR
因为它是 VB.NET 中的关键字。您必须按如下方式转义名称:[XOR]
使用该名称的方法。
要进行异或运算,您只需要内置的 VB.NETXor
运算符。考虑以下代码。
For i = 0 To Input.Length - 1
sb.Append(ChrW(AscW(input(i)) Xor AscW(key(i Mod key.Length))))
Next
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句