Hallo,
möchte gerne den DBMemo Text (Inhalt) vorm speichern verschlüsseln!
Delphi-Quellcode:
procedure TForm1.Timer7Timer(Sender: TObject);
var
i : integer;
s :
string;
begin
if filelistbox1.Count > 0
then
fileListbox1.ItemIndex:=0;
if filelistbox1.ItemIndex= 0
then
begin
DBMemo1.Lines.LoadFromFile(filelistbox1.FileName);
MyTable1.FieldByName('
Status').Text:='
Eingang';
MyTable1.FieldByName('
Meldung').AsString := DBMemo1.Text;
DBMemo1.Lines.SaveToFile(FormatDateTime('
yyyy-mm-dd_hh-nn-ss__',now)+('
MySQL')+ '
.asc');
MyTable1.Post;
MyTable1.Refresh;
MyTable1.Insert;
DBMemo1.Clear;
i := 0;
while i < fileListBox1.Items.count
do begin
deletefile (filelistbox1.FileName);
inc ( i );
FileListBox1.Update;
MyConnection1.Connected:=false;
MyTable1.Active:=false;
end;
end;
end;
Zurzeit wird der TEXT unverschlüsselt gespeichert!
Wie könnte ich es umsetzen!
Kann ein einfacher Schlüssel sein, der auch nicht so sicher ist!
Möchte nur das der Text halt verschlüsselt ist.
Wenn ich die Daten mit einem DBGrid lese,
müssen diese natürlich wieder entschlüsselt werden.
Hier brauche ich auch eine Idee!
Danke