myqsl passwort verschlüsseln ?

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