function TForm1.Encrypt(const S: String): String;
var
I : Integer;
Key: Word;
begin
Result := S;
Key:=3;
for I := 1 to Length(S) do
begin
Result[I] := char(byte(S[I]) xor (Key shr 8));
Key := (byte(Result[I]) + Key) * 21 + 31;
if Result[I] = Chr(0) then
Result[I] := S[I];
end;
Result := Result;
end;
------解决方案--------------------------------------------------------
急急急，在线等！部分已转换人，但有出现错误
Private Function Encrypt(ByVal sIn As String) As String
Dim i As Integer
Dim Key As Int64
Dim s1 As String
Dim Array_sIn As Char() = sIn.ToCharArray
s1 = sIn
Key = 3
Dim Array_s1 As Char() = s1.ToCharArray
For i = 1 To sIn.Length - 1
Array_s1(i) = ChrW(CByte(AscW(Array_sIn(i))) Xor (Key >> 8))
Key = (CByte(AscW(Array_s1(i))) + Key) * 21 + 31 '这段运行出错，数据溢出
If Array_s1(i) = ChrW(0) Then
Array_s1(i) = Array_sIn(i)
End If
Next i
Return s1
End Function