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;