小蟲不懂delphi現在有一小段delphi的演算法,求助翻譯為Java,非常感謝!!
function DecryptStr(const S: string; Key: Word): string;
var
i: Byte;
t: LongWord;
begin
SetLength(Result, Length(S));
for i := 1 to Length(S) do
begin
Result[i] := Char(Byte(S[i]) xor (Key shr 8));
t := Byte(s[i]) + Key;
Key := Word(t);
end;
end;
uj5u.com熱心網友回復:
該放到java板塊吧?轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/53679.html
標籤:語言基礎/算法/系統設計
