Hallo
DP,
wie kann ich mit
DEC WideStrings verschlüsseln und dann entschlüsseln?
Standard ist ja folgendes:
Delphi-Quellcode:
function Encode(const Key: String; const Text: String): String;
var
Salt: Binary;
begin
with TCipher_Rijndael.Create do
try
Mode := cmCBCx;
Salt := RandomBinary(16);
Init(THash_SHA1.KDFx(Key, Salt, Context.KeySize));
Result := TFormat_MIME64.Encode(Salt + EncodeBinary(Text));
finally
Free;
end;
end;
Und wie kann ich diesen kodierten WideString dann speichern?
Am besten dann in ein Byte Array
MfG
xZise