delphi - 检索 firebird 用户密码

Question

我的应用程序当前正在使用 firebird 安全性来登录我的应用程序的任何用户。

我们使用的是 Delphi7 和 Firebird 2.1。

现在我们需要改变这一点，我们需要自己控制访问。

我们正在考虑从数据库中检索所有用户密码(作为转换例程)并将密码保存在我们的表中......

可以这样做吗？

我正在尝试使用delphi组件TIBSecurityService，但没有成功。

看一下:

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;

感谢您的帮助!

Answer 1

Firebird 中的密码经过哈希处理，因此您无法恢复它们。