Daten verschlüsselt speichern

[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:

Zitat von strom (Beitrag 1303039)

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:

Zitat von vagtler (Beitrag 1303037)

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 :stupid:

[Der schöne Günther]

Zitat:

Zitat von Perlsau (Beitrag 1303054)

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

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

Ehrlich.

[Captnemo]

Kleiner Tipp:

Pack dir die XOR-Verschlüsselung in eine kleine Funktion ala:

Delphi-Quellcode:

Function StrXor(Str: string; key: integer): string;

Da du XOR-Verschlüsselst kannst du das so machen, dass sowohl für die Verschlüsselung als auch für die Entschlüsselung den gleichen Code benutzt.

Diese Funktionen nutzt du dann ein deine Procedure. Denn so, wie du es zur Zeit machst, ist das Käse und in einem halben Jahr steigst du da selber nicht mehr durch.

[Captnemo]

Zitat:

Zitat von Der schöne Günther (Beitrag 1303060)

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

Ehrlich.

Ich lach mich schlapp :lol::lol::lol:

[Mavarik]

Zitat:

Zitat von Der schöne Günther (Beitrag 1303060)

Zitat:

Zitat von Perlsau (Beitrag 1303054)

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

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

Ehrlich.

Jo und ich dachte es kommt von Perlsau

[Perlsau]

Ich kann doch gar kein Perl ... 8-)

[Captnemo]

Zitat:

Zitat von Perlsau (Beitrag 1303065)

Ich kann doch gar kein Perl ... 8-)

Ach was, ein bisschen Perl kann jeder :D