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???