Search code examples
delphifirebird

retrieve firebird users passwords


My application currently is using the firebird security to logon for any user of my application.

We are using Delphi7 and Firebird 2.1.

Now we need to change this and we need to control de access by ourself.

We are thinking about retrieve all users passwords from the database (as a conversion routine) and save the password inside our tables....

Is possible to do this?

I'm trying to use the delphi component TIBSecurityService, but without success.

Take a look:

var
  i: integer;
  l: TStrings;
  pwd: string;
begin
  IBSecurityService1.Attach;
  IBSecurityService1.DisplayUsers;
  l := TStringList.Create;
  try
    for i := 0 to IBSecurityService1.UserInfoCount-1 do
      l.add(IBSecurityService1.UserInfo[i].UserName);

    while l.Count > 0 do
      try
        IBSecurityService1.DisplayUser(l[0]);
        pwd := IBSecurityService1.Password;
        // pwd = ''
      finally
        l.Delete(0);
      end;
  finally
    l.Free;
  end;
end;

Thanks for help!


Solution

  • Passwords in Firebird are hashed, so you cannot recover them.