myqsl passwort verschlüsseln ?

[fadz]

hi,
also ich nehme immomment die ZeosLib kompo, nur jetzt meine frage, wie kann ich das passwort verschlüssenl für die myqsl datenbank so das man es nur noch sehr sehr schwer rausbekommt ?


thx für eure hilfe

[Sharky]

Hai fadz,

Du könntest es z.B. in einem anderen String verstecken.

Delphi-Quellcode:

function TForm1.GetOnLinePasswort: string;
const
  s_pw: string[55] = 'dsSöEA2h4Ya"$23424rs2kfsdfy34U34sfg1sge34C3434sS3434$%$';
begin
  result := s_pw[3] + s_pw[8] + s_pw[11] + s_pw[19] + s_pw[22] + s_pw[27];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := GetOnLinePasswort;
end;

[Neelix]

Guten Morgen fadz,

mir stellt sich die Frage, willst Du es in Deinem Programm verschlüsseln (so wie es unser Hai verstanden hat) oder willst Du das Kennwort verschlüsselt an die Datenbank senden?

[fadz]

hi, wenn es geht beides, so das die verbindung möglicht sicher ist und schwer geknackt werden kann, also das passwort

[Shivan]

Soweit ich das gesehen habe, kann ZEOS offiziell keine verschlüsselte Verbindung herstellen. Es gab aber mal für eine ältere Version einen inoffiziellen Patch der das konnte oder so.