Einzelnen Beitrag anzeigen

Gehstock

Registriert seit: 28. Jan 2006
Ort: Görlitz / Sachsen
489 Beiträge
 
Delphi 2007 Professional
 
#4

AW: Probleme beim Übersetzen vom C# Code

  Alt 17. Aug 2010, 18:30
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
Marcel
  Mit Zitat antworten Zitat