Textfile verschlüsseln

[Kompon Ente]

Hi,

habe gerade nochmal meinen Kollegen gefragt, der mir sagte, dass ich eine Datei nicht ohne weiteres schreibgeschützt "schützen" kann. Also man kann sie danach einfach in den Eigenschaften "ungeschützt" öffnen und sieht die Wörter ja dann.

Nun ja, bleibt mir nichts anderes übrig als die Wörter einzeln (schon klar, Sharky ) zu verschlüsseln.

Ich dachte an sowas (mit freundlicher Hilfe meines Kollegen):

Delphi-Quellcode:

function TForm1.verschluesseln(einWort: String): String;
var
   unvW: String;
   vW: String;
   B: String;
   i: Integer;

begin
  unvW := einWort;
  vW := '';

  for i := 1 to length(einWort) do
  begin
    B := copy(einWort,i,1);
    // B verschlüsseln
    vW := vW + B;
  end;

  Result := vW;

end;

Aber wie genau mach ich das mit meinen Wörtern???