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