Bugs don't know the Delphi now has a short period of Delphi algorithm, for help translation for Java, thank you very much!!!!!

The function DecryptStr (const S: a string; The Key Word) : string;
Var
I: Byte;
T: LongWord;
The begin
SetLength (Result, Length (S));
For I:=1 to Length (S) do
The begin
Result: [I]=Char (Byte (S) [I] xor (Key SHR 8));
[I] t:=Byte (s) + Key;
Key:=Word (t);
end;
end;

CodePudding user response:

Put the Java plate?