Daten verschlüsselt speichern

[p80286]

Zitat von strom:

Delphi-Quellcode:

    MyTAble1.Insert;
    MyTAble1.Edit;
    MyTable1.FieldByName('Eingabe').Text := s;
    MyTAble1.Post;
    MyTAble1.Refresh;     
    DBGrid1.Refresh; // Daten verschlüsselt speichern
   for i:=1 to length(s) do begin
    s[i]:=Chr((Ord(s[i])-(3+i)*(5+i)) Xor (i*i-i));
  end;

Hab ich da vllt. etwas falsch verstanden?
hier wird der Inhalt von s doch erst in der DB gespeichert, und dann verschlüsselt oder nicht?

Gruß
K-H