Forum: Algorithmen, Datenstrukturen und Klassendesign
by Jens01,
5. Jan 2021
Hier noch mal eine Demo im Anhang zu der Verwendung von Gammatesters Code.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Jens01,
31. Dez 2020
Beispiel:
var
KlarText, VerschluesselterText: string;
begin
KlarText := 'Testtext';
VerschluesselterText := Encrypt1(KlarText, '123456');
KlarText := Decrypt1(VerschluesselterText, '123456');
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Jens01,
31. Dez 2020
Mit der Zeit muss ich die Methoden etwas geändert haben. Hier die letzte Version aus meinem Gesamtcode.
Sollten Dir die verlinkten Units fehlen, kann ich sie Dir geben.
Probier mal aus...
uses
TSC, Hash, Whirl512, fcaes256, AES_EAX, mem_util;
procedure GetSalt(var salt: TFCA256Salt);
{ -generate salt for key derivation }