Probleme beim Übersetzen vom C# Code

[Gimp]

Hallo liebe Delphi Community!

Ich würde gerne die folgende kleine C# Funktion nach Delphi portieren, dabei komme ich als kleiner Anfänger noch nicht ganz zurecht. Der Rest des Projektes klappte schon ganz gut, nur die Portierung der RC4 Funktion bereitet mir Probleme:

Code:

public static byte[] Crypt(byte[] key, byte[] data)
        {
            for (int i = 0; i < data.Length; i++)
            {
                key[0x100]++;
                key[0x101] += key[key[0x100] & 0x0FF];
                byte temp = key[key[0x101] & 0x0FF];
                key[key[0x101] & 0x0FF] = key[key[0x100] & 0x0FF];
                key[key[0x100] & 0x0FF] = temp;

                data[i] = (byte)(data[i] ^ key[(key[key[0x101] & 0x0FF] + key[key[0x100] & 0x0FF]) & 0x0FF]);
            }

            return data;
        }

Da ich gerne das Projekt nachezu 1:1 übernehmen möchte, möchte ich hier nicht zu fertigen RC4 Units greifen.

Mein bisheriger Code:

Delphi-Quellcode:

procedure RC4Crypt(pKey, pData: Pointer; KeyLength, DataLength: Integer);
var
  i: Integer;
  key: Array of Byte;
  data: Array of Byte;
  temp: Byte;
begin
  SetLength(key, KeyLength);
  Move(pKey^, key[0], KeyLength);
  SetLength(data, DataLength);
  Move(pData^, data[0], DataLength);

  for i := 0 to DataLength - 1 do
  begin
    Inc(key[$100], 1);
    key[$101] := key[$101] xor key[key[$100] or $FF];
    temp := key[key[$101] or $FF];
    key[key[$101] or $FF] := key[key[$100] or $FF];
    key[key[$100] or $FF] := temp;

  end;

end;

Rückgabe Parameter sind noch keine definiert, die ganze Funktion funktioniert ja nun leider noch nicht so wie sie soll.

Gerade die Operatoren bereiten mir hier große Probleme. Würde mich freuen wenn mir jemand auf die Sprünge helfen könnte.

Gruß
Gimp

[totti14]

Hi,
so müsste es sein ?

Delphi-Quellcode:

 for i := 0 to DataLength - 1 do
  begin
    Inc(key[$100], 1);
    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 $0FF] + key[key[$100] and $0FF]) and $FF]);

[Medium]

Also dass '+' nicht 'xor', und '&' nicht 'or' heissen kann, da müsste man eigentlich so schon drauf kommen

[Gehstock]

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

[Gimp]

Mhm wird einen gleich fertiger Code geliefert
Danke euch, wieder ein wenig dazugelernt. Werde es nachher mal ausprobieren.

lg