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 ?

zusammenfalten · markieren

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

markieren

Delphi-Quellcode:

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

...

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

MyTable2.Post;

DBGrid Text verschlüsseln mit der XOR-Methode

DBGrid Text verschlüsseln mit der XOR-Methode

AW: DBGrid Text verschlüsseln mit der XOR-Methode

AW: DBGrid Text verschlüsseln mit der XOR-Methode

AW: DBGrid Text verschlüsseln mit der XOR-Methode

AW: DBGrid Text verschlüsseln mit der XOR-Methode

AW: DBGrid Text verschlüsseln mit der XOR-Methode

AW: DBGrid Text verschlüsseln mit der XOR-Methode

Forumregeln

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#3 AW: DBGrid Text verschlüsseln mit der XOR-Methode 18. Okt 2012, 08:03 Wenn Du auch nur die Kopie "verschlüsselst" hat das mit dem Original ja nichts zu tun. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

Alterauge Registriert seit: 4. Mär 2011 306 Beiträge Delphi 2010 Professional	#4 AW: DBGrid Text verschlüsseln mit der XOR-Methode 18. Okt 2012, 08:23 Ok, dann suche ich mal eine andere Lösung! Danke für Eure Hilfe
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#5 AW: DBGrid Text verschlüsseln mit der XOR-Methode 18. Okt 2012, 08:27 Einfach noch einmal andersherum zuweisen sollte doch genügen. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

Alterauge Registriert seit: 4. Mär 2011 306 Beiträge Delphi 2010 Professional	#6 AW: DBGrid Text verschlüsseln mit der XOR-Methode 18. Okt 2012, 08:39 Zitat von DeddyH: Einfach noch einmal andersherum zuweisen sollte doch genügen. Hallo DeddyH, wie meinst Du das?
	Zitat