Nachtrag:
Im
irc sieht das word
text wie folgt aus
11HWp1aS5fm.
Der Key ist
testkey
Bei dem Encrypt('text','testkey'); bekomme ich leider folgendes.
j6/LrRj4EbYWho+gC9n38WY81JFOLmIgEHqkOQ==
Gruss
PS.: Das ist der Code dazu. Habe ich hier aus dem Board.
Delphi-Quellcode:
function Encrypt(const AText: String; const APassword: String): String;
var
ASalt: Binary;
AData: Binary;
x :String;
begin
with ValidCipher(ACipherClass).Create, Context do
try
ASalt := RandomBinary(16);
Mode := ACipherMode;
Init(ValidHash(AHashClass).KDFx(APassword, ASalt, KeySize, TFormat_Copy, AKDFIndex));
AData := ASalt + EncodeBinary(AText) + CalcMAC;
Result := ValidFormat(ATextFormat).Encode(AData);
finally
Free;
ProtectBinary(ASalt);
ProtectBinary(AData);
end;
end;