Get passwords of firebird users

Currently my application is using firebird security to log in for any user of my application.

We are using Delphi7 and Firebird 2.1.

Now we need to change this and we need to manage the access ourselves.

We are thinking about extracting all user passwords from the database (as a conversion procedure) and storing the password inside our tables ....

Is it possible to do this?

I am trying to use the delphi TIBSecurityService component but with no 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 the help!