Daten verschlüsselt speichern

[Popov]

Ich hab gerade seinen Code überflogen und glaube, dass er schon selbst auf XOR gekommen ist. Ich vermute, eindeutig kann ich es nicht sagen, dass die Frage an das Forum ist, ob die Verschlüsselung ok ist. Warum storm sich aber immer so kurz mit seinen Fragen hält, weiß ich nicht. Meine beste Theorie bisher ist, dass er noch einen alten CompuServe Account für 5 DM die Stunde hat und einen 14,4 kB/s Modem. Da hält man sich knapp, denn Zeit kostet Geld.

[vagtler]

Warum sollte er sich auch um ein soziales Verhalten bemühen? Er bekommt doch genügend Antworten auf dem Silbertablett serviert.

[strom]

Entschuldigung, hier bin ich wieder!

Die Daten werden verschlüsselt in der Datenbank abgelegt,
und auch wieder ins StringGrid kopiert!

Leider sind die Daten im StringGrid noch verschlüsselt!

[baumina]

Ich denke mal, dass du den Code zusammengesammelt und -kopiert hast. Du benutzt z.B. i in for-Schleifen, die nochmals eine for-Schleife mit i hat. Da weiß das arme Programm gar nimmer was nun i für einen Wert beinhalten soll. EDIT : Ach ne, stimmt ja gar nicht, ist nur ne sauschlechte Code-Formatierung.

Außerdem entschlüsselst du nicht beim Füllen der StringGrid.

[ringli]

Zitat von strom:

Leider sind die Daten im StringGrid noch verschlüsselt!

Klar, du entschlüsselst sie ja auch nicht.

[strom]

Danke für Eure Hilfe

Jetzt geht es! Könnte man was verbessern?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
begin
 //Test Text
 s:='Dies ist ein Test';
  for i:=1 to length(s) do begin
   s[i]:=Chr((Ord(s[i]) Xor (i*i-i))+(3+i)*(5+i));
    Memo1.text := s; // Test Memo1 Ansicht
  end;
   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;
  //Endschlüsseln und im StringGrid kopieren
   StringGrid1.FixedCols := 0;
   StringGrid1.FixedRows := 1;
   StringGrid1.ColCount := MyTable1.FieldCount;
   StringGrid1.RowCount := MyTable1.RecordCount+1;
   Memo2.text:= s; // Test Memo2 Ansicht
 for i := 0 to MyTable1.FieldCount - 1 do begin
  StringGrid1.Cells[i,0] := MyTable1.Fields[i].DisplayName;
   end;
    MyTable1.First;
     while not MyTable1.Eof do begin
      for i := 0 to MyTable1.FieldCount - 1 do begin
     StringGrid1.Cells[0, MyTable1.RecNo] := MyTable1.FieldByName('ID').Text;
     StringGrid1.Cells[1, MyTable1.RecNo] := s;//MyTable1.Fields[i].AsString;
    end;
   MyTable1.Next;
 end;
end;

[Perlsau]

Zitat von vagtler:

Warum sollte er sich auch um ein soziales Verhalten bemühen? Er bekommt doch genügend Antworten auf dem Silbertablett serviert.

Tja, manchmal kommt man nicht umhin, Perlen vor die Säue zu werfen

[Der schöne Günther]

Zitat von Perlsau:

Tja, manchmal kommt man nicht umhin, Perlen vor die Säue zu werfen

Großer Gott, jetzt verstehe ich den Nutzernamen endlich!

Ehrlich.

[Captnemo]

Zitat von Der schöne Günther:

Großer Gott, jetzt verstehe ich den Nutzernamen endlich!

Ehrlich.

Ich lach mich schlapp

[Mavarik]

Zitat von Der schöne Günther:

Zitat von Perlsau:

Tja, manchmal kommt man nicht umhin, Perlen vor die Säue zu werfen

Großer Gott, jetzt verstehe ich den Nutzernamen endlich!

Ehrlich.

Jo und ich dachte es kommt von Perlsau