Dateien verschlüssen mit Wolgang Ehrhardts Crypt-Units

[Jens01]

Beispiel:

Delphi-Quellcode:

var
  KlarText, VerschluesselterText: string;

begin
  KlarText := 'Testtext';
  VerschluesselterText := Encrypt1(KlarText, '123456');

  KlarText := Decrypt1(VerschluesselterText, '123456');
  
  SameStr(KlarText, 'Testtext'); 
end;