我的应用程序当前正在使用 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;
感谢您的帮助!
最佳答案
Firebird 中的密码经过哈希处理,因此您无法恢复它们。
关于delphi - 检索 firebird 用户密码,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/12953989/