C# nach Delphi aber keine Ahnung wie?

[Schokohase]

Das ist doch gar nicht so schwer mit der Position.

Es gibt da eine Folge von Bytes (Stream) und ab der Position 24hex kommen 10hex Bytes und die repräsentieren den Initialisierungs-Vektor.

Und ab der Position 38hex fangen die echten Daten an.

Delphi-Quellcode:

var
  file_to_load: string;
  bytes, destinationArray, buffer: TArray<byte>;
begin
  bytes := TFile.ReadAllBytes(file_to_load);
  SetLength(buffer,Length(bytes)-$38);
  SetLength(destinationArray,$10);
  TArray.Copy<Byte>(bytes,buffer,$38,0,Length(buffer));
  TArray.Copy<Byte>(bytes,destinationArray,$24,0,$10);
end;

[DieDolly]

Aufbauend auf beider eurer Beispiel habe ich das hier erweitert.

Delphi-Quellcode:

var
 ctx: TAESContext;
 aesblck: TAESBlock;
 i: Integer;
 Res: RawByteString;
begin
 // Das ist scheinbar notwendig ( https://www.delphipraxis.net/1208740-post21.html )
 for i := 1 to 16 do
  aesblck[i - 1] := Byte(initVector[i]);

 ctx.IV := aesblck;
 AES_CBC_Init_Decr(initVector, 256, aesblck, ctx);
 AES_CBC_Decrypt(@EncryptedData[1], @Res[1], Length(EncryptedData), ctx);

Irgendwas mache ich aber noch falsch denn Res ist 0 Zeichen lang.

Im original gibt es eine Key- und BlockSize sowie Padding. Was auch immer die bedeuten.

[Zacherl]

Zitat von DieDolly:

Im original gibt es eine Key- und BlockSize sowie Padding. Was auch immer die bedeuten.

Die befinden sich evtl. auch im Context? Ich kenne die Lib von Wolfgang Erhardt leider nicht.

[DieDolly]

Der AESContext ist folgendermaßen deklariert

Delphi-Quellcode:

  TAESContext = packed record
                  RK      : TKeyArray;  {Key (encr. or decr.)   }
                  IV      : TAESBlock;  {IV or CTR              }
                  buf     : TAESBlock;  {Work buffer            }
                  bLen    : word;       {Bytes used in buf      }
                  Rounds  : word;       {Number of rounds       }
                  KeyBits : word;       {Number of bits in key  }
                  Decrypt : byte;       {<>0 if decrypting key  }
                  Flag    : byte;       {Bit 1: Short block     }
                  IncProc : TIncProc;   {Increment proc CTR-Mode}
                end;

Die KeySize (0x80) sind vermutlich 128. Aber was auch immer die BlockSize ist und das Padding, das gibt es bei den WE's glaube ich nicht.

[Zacherl]

function AES_CBC_Init_Decr(const Key; KeyBits: word; const IV: TAESBlock; var ctx: TAESContext): integer;

Hier musst du sowohl Key, KeyBits (= 128) und IV übergeben. Den Context solltest du meiner Meinung nach nicht per Hand modifizieren. BlockSize sollte normalerweise automatisch gleich der KeySize sein bei CBC. Müsstest du einfach mal probieren, ob was Sinnvolles als Resultat bei rauskommt.

Edit:
Auch wenn es egal sein sollte. Nimm bitte `TBytes` oder `TArray<Byte>` als Typ für Binärdaten anstelle von `RawByteString`.

Edit 2:
Die Rückgabe der AES Funktionen geben dir auch einen Fehlercode. Eventuell den mal prüfen, wenn im Output Buffer komplett gar nichts rauskommt.

[DieDolly]

Zitat:

Den Context solltest du meiner Meinung nach nicht per Hand modifizieren.

Das muss man scheinbar. Wenn wenn ich den IV im Context nicht setze, dann ist der übergebene Context leer.

Delphi-Quellcode:

 for i := 1 to 16 do
  aesblck[i - 1] := Byte(initVector[i]);

 ctx.IV := aesblck;
 AES_CBC_Init_Decr(initVector, 128, aesblck, ctx);
 AES_CBC_Decrypt(@EncryptedData[1], @Res[1], Length(EncryptedData), ctx);

Zitat:

Müsstest du einfach mal probieren, ob was Sinnvolles als Resultat bei rauskommt.

Bisher bekomme ich gar keins

[Zacherl]

Vergleiche mal deinen Aufruf:

Zitat von DieDolly:

AES_CBC_Init_Decr(initVector, 128, aesblck, ctx);

mit der Funktionsdefinition:
function AES_CBC_Init_Decr(const Key; KeyBits: word; const IV: TAESBlock; var ctx: TAESContext): integer;

Richtig wäre:
AES_CBC_Init_Decr(keyBytes, 128, aesblk, ctx);