Naja, schwer ist es nun nicht gerade.
Ein Beispiel, wie einfach es mit meinen eigenen Komponenten geht:
Delphi-Quellcode:
procedure TForm1.SaveFileButtonClick(Sender: TObject);
begin
AES.Key.Assign(SHA256.Hash(PasswortEdit.Text)); // Passwort hashen und als Schlüssel zuweisen
AES.EncipherTextFile('C:\test.txt', DatenMemo.Text); // Inhalt von DatenMemo in die Datei test.txt speichern
end;
procedure TForm1.OpenFileButtonClick(Sender: TObject);
begin
AES.Key.Assign(SHA256.Hash(PasswortEdit.Text)); // Passwort hashen und als Schlüssel zuweisen
DatenMemo.Text := AES.DecipherTextFile('C:\test.txt'); // Datei test.txt laden und deren Inhalt DatenMemo.Text zuweisen
end;
(SHA-256 als Hash, AES als Verschlüsselung.)
Hier fehlt eig. nur noch, beim Speichern einen IV zu setzen. Ansonsten ist es vollkommen einsatzbereit
