Danke erstmal für die Anwtwirt.
Leider finde ich im Forum nicht das, was ich suche bzw. ich such falsch
Irgendwie habe ich es hinbekommen, das o.g. Meldungen nicht mehr erscheinen.
(Fragt sich nur, ob das die richtigen Parameter waren.)
Jetzt wird mir "ENCYPT" angemeckert. Wird nicht erkannt.
Ist es nicht möglich, von den Cracks hier, mir den Code mal zu übersetzen ? Wenn nicht , dann auch gut
Delphi-Quellcode:
Salt_1 = RandomBinary(16);
Salt_2 = RandomBinary(16);
SessonKey = KDF(Salt_1, Passwort);
Checksum = MGF(Salt_2, SessionKey);
CipherText = ENCYPT(SessionKey, Salt_2 + Checksum + PlainText);
FinalData = Salt_1 + CipherText;
und entschlüsselt dann so:
Salt_1 = EXTRACT(FinalData, 1, 16);
SessionKey = KDF(Salt_1, Passwort);
Temp = DECRYPT(SessonKey, EXTRACT(FinalData, 16, MaxInt));
Salt_2 = EXTRACT(Temp, 1, 16);
Checksum = EXTRACT(Temp, 16, 16);
if Checksum <> MGF(Salt_2, SessionKey) then ShowMessage('Falsches Passwort');
PlainText := EXTRACT(Temp, 32, MaxInt);
Gruß
Noway