DBGrid Text verschlüsseln mit der XOR-Methode

[Alterauge]

Hallo,
würde gerne mit der XOR-Methode Text verschlüsseln!

Hier der Quelltext!
Leider wird der Text nicht verschüsselt ?

Delphi-Quellcode:

procedure TForm1.AdvGlowButton3Click(Sender: TObject);
var
  s: String;
  i: Integer;
//begin
 //if MyTable2.FieldByName('StatusEinsatz').Text ='Eingang' then
begin
  // Kodieren
MyTable2.Edit;
  s:=MyTable2.FieldByName('Meldung').Text;
  for i:=1 to length(s) do
    s[i]:=char(23 Xor Ord(s[i]));
     MyTable2.FieldByName('StatusEinsatz').Text :='Quittung +';
       MyTable2.Post;
        MyTable2.Refresh;
 //end else begin

 end;
//end;

[Bummi]

Du weist ja s auch nicht mehr dem Feld zu ...
Bei der XOR - Verschlüssung können Zeichen entstehen mit denen ein normales Varcharfeld nicht wie erwartet umgeht.
Die Schlüsselstärke 1 Byte ist recht mau.
Die Einrückungen sind etwas verwirrend ....

[DeddyH]

Wenn Du auch nur die Kopie "verschlüsselst" hat das mit dem Original ja nichts zu tun.

[Alterauge]

Ok, dann suche ich mal eine andere Lösung!
Danke für Eure Hilfe

[DeddyH]

Einfach noch einmal andersherum zuweisen sollte doch genügen.

[Alterauge]

Zitat von DeddyH:

Einfach noch einmal andersherum zuweisen sollte doch genügen.

Hallo DeddyH,
wie meinst Du das?

[DeddyH]

Delphi-Quellcode:

s:=MyTable2.FieldByName('Meldung').Text;
...
MyTable2.FieldByName('Meldung').Text := s;
MyTable2.Post;