Passwortverschlüsselung

[arest]

hallo an alle,

leidiges thema und schon hundertfach diskutiert.. sorry dafür! dennoch die frage, da mir die sufu nicht so richtig weiter hilft
ich habe einen datensatz, den ich über nachfolgende funktion in eine datei abspeichere:

Code:

procedure TForm1.Listespeichernunter1Click(Sender: TObject);
var Datf:File of TDaten;
Daten1:TDaten;
begin
      aenderung:=false;
      Edit1.Clear;
      lauf:=TKnoten.Init;
      if SaveDialog1.Execute
      then begin
              dateiname:=SaveDialog1.FileName;
              if copy(dateiname,length(dateiname)-3,4)<>'.mbf'
              then begin
                      dateiname:=dateiname+'.mbf';
                   end;
              Assignfile(Datf,dateiname);
              Rewrite(Datf);
              lauf:=anfang;
              repeat lauf:=lauf.nachfolger;
                 if (lauf <> ende)
                 then begin
                         write(Datf,lauf.Daten);
                      end;
              until (lauf.nachfolger=ende);
              closefile(Datf);
           end;
end;

wie euch sicherlich aufgefallen ist, speichert das in normal lesbarer version alle datensätze aus meiner liste. ich möchte nun, dass diese daten verschlüsselt abgespeichert werden und bei meiner datei öffnen funktion nur dann korrekt eingelesen werden, wenn das mitgespeicherte und ebenfalls verschlüsselte passwort korrekt eingegeben wurde... (bei meiner speichermethode kann die datei logischerweise einfach per wordpad geöffnet und gelesen werden)

muss ich dabei wirklich so aufwändig werden, wie in einigen schon vorhandenen posts besprochen wurde? oder kann man das auch einfacher haben? ich brauch da nicht unbedingt eine 128bit verschlüsselte file.. es soll bloß für den normalen user, der die file halt per wordpad öffnet nicht mehr lesbar sein und in meinem programm halt nur bei korrekter eingabe entschlüsselt werden!

danke für alle beiträge vorab!
greedings