我下载了李颖的dbbackup,不知为什么安装不了.(50分)

  • 主题发起人 主题发起人 knightlzf
  • 开始时间 开始时间
K

knightlzf

Unregistered / Unconfirmed
GUEST, unregistred user!
我下载了李颖的dbbackup,不知为什么安装不了,说找不到password.pas,不知道是为什么?
请各位大侠指点一下。谢谢!!
 
password.pas没有公布只有password.DCU
其实在D4下安装,一切正常。
在D5下
可以将USES //Passwd, //口令加密解密
中的 PASSWd注释掉
编译时出错
出错的句子有两个,
写入密码(改为不加密)
if Password<>'' then
if Length(Password)<MixPasswordChars then
RaiseError(ErrPasswordTooShort)
else
WriteString(Stream,Password);//改
检查密码(改为不解密)
直接与输入的密码比较即可
//取口令
BDInfo_Get_IncludePassword(BDHeader,IncludePassword);
if IncludePassword then
begin
CodedPassword:=ReadString(Stream);
InputPassword:='';
if Assigned(OnPasswordRequest) then
OnPasswordRequest(InputPassword);
if not (CodedPassword=InputPassword) then//改
RaiseError(ErrInvalidPassword);
end;

 
接受答案了.
 

Similar threads

回复
0
查看
804
不得闲
D
回复
0
查看
930
DelphiTeacher的专栏
D
D
回复
0
查看
871
DelphiTeacher的专栏
D
后退
顶部