我在delphi中有以下代码要解密:
new_size := Length(Source) - 1;
for c := 24 to new_size - 1 do
begin
v := Source[c];
v := v - key;
v := v AND $FF;
x := v XOR (Source[c + 1]);
Source[c] := x;
end;
在哪里
Source: Array of Byte;
Key: Byte;
任何人都知道如何扭转这个(再次加密)?