Hallo,
probiere mal den Ansatz (ungetestet):
Delphi-Quellcode:
function TAes.Encrypt(PlainText: string; IV:TBytes):string;
var
AES: TCipher_AES;
Res: TArray<Byte>;
begin
try
AES := TCipher_AES.Create;
try
AES.Mode := cmCBCx;
AES.Init(FAesKeyReader.GetAesKey, IV);
result := DECFormat.TFormat_Base64.Encode(IV + AES.EncodeStringToBytes(RawByteString(PlainText)));
finally
AES.Free;
end;
except
// snip
end;
end;
Liefert gleich alles in Base64 zurück.
Seit XE7 kann man Arrays auch einfach so verketten...