mal ins Blinde übersetzt bitte nicht Steinigen
Delphi-Quellcode:
for I := 0 to SizeOf(Data) - 1 do
Begin
Inc(Key[$100]);
Key[$101] := Key[$101] + Key[Key[$100] and $FF];
Temp := Key[Key[$101] and $FF];
Key[Key[$101] and $FF] := Key[Key[$100] and $FF];
Key[Key[$100] and $FF] := Temp;
Data[i] = (byte)(data[i] xor Key[(Key[Key[$101] and $FF] + Key[Key[$100] and $FF]) and $FF]);
End;
Result := Data;
Edit: Mist zu Spät