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.