帮翻译一个断代码,只剩中文处理出错
源代码ASP
Function Encrypt(PlainStr, key) Dim Char, KeyChar, NewStr Dim Pos Dim i , Side1 , Side2 Pos = 1 For i = 1 To Len(PlainStr) Char = Mid(PlainStr, i, 1) KeyChar = Mid(key, Pos, 1) NewStr = NewStr & Chr(Asc(Char) Xor Asc(KeyChar)) If Pos = Len(key) Then Pos = 0 Pos = Pos + 1 Next If Len(NewStr) Mod 2 = 0 Then Side1 = StrReverse(Left(NewStr, (Len(NewStr) / 2))) Side2 = StrReverse(Right(NewStr, (Len(NewStr) / 2))) NewStr = Side1 & Side2 End If Encrypt = NewStrEnd Function
public string Encode(string PlainStr, string Key) { string tmp = "";//结果 char[] dChar = PlainStr.ToCharArray(); char[] KeyChar = Key.ToCharArray(); int Pos = 0; for (int i = 0; i < PlainStr.Length; i++) { char r = (char)(((int)dChar[i]) ^ ((int)KeyChar[Pos])); tmp += r.ToString(); Pos++; if (Pos == Key.Length) { Pos = 0; } } if (tmp.Length % 2 == 0) { string Side1 = Reverse(Left(tmp, (tmp.Length / 2))); string Side2 = Reverse(Right(tmp, (tmp.Length / 2))); tmp = Side1 + Side2; } return tmp; }