readme.txt

采用加密算法进行管理用户密码采用加密算法进行管理用户密码

2007-2-1
修正密码修改后重新启动后密码无效的问题

2005-12-30
增加注册功能


PassAdmin.dll动态库主要用于加密、解密、密码管理功能
密码管理分3种
第1种就是超级管理员，超级管理员密码验证通过后可以其它人的密码，默认密码为8907400willsun
第2种数据库修改：主要用于管理数据库的人，默认密码是123456
第3种是修改系统参数：默认密码是willsun
密码区分大小写。
密码采用MD5加密后保存。
如果忘记密码，可以将passadmin.ini中对应的密码清空后，再用默认密码可以修改。

密码配置文件内容如下
[PassWord]
Pass0=;超级管理员密码
Pass1=81dc9bdb52d04dc20036dbd8313ed055;数据库修改
Pass2=;修改系统参数

动态库的使用说明：
type
  T_ProvaPassForm = procedure (ParentApplication: TApplication; ParentForm: TForm); stdcall;//此处是声明密码管理窗口
  TFrmMain = class(TForm)
  ...

procedure TFrmMain.N8Click(Sender: TObject);
var
   DllHandle: THandle;
   ProcAddr: FarProc;
   ProvaPassForm: T_ProvaPassForm;
begin
   DllHandle := LoadLibrary('PassAdmin.dll');
   ProcAddr := GetProcAddress(DllHandle, 'ProvaPassForm');
   if ProcAddr <> nil then
   begin
      ProvaPassForm := ProcAddr;
      ProvaPassForm(Application,Self);
   end;
   if DllHandle<>0 then
      FreeLibrary(DllHandle);
end;
//功能：从配置文件中读出指定人员的密码
//参数： ntype 人员类型 0 超级管理员，1 数据库修改，2地址修改
//       超级管理员可以修改任何人的密码 地址和数据库
//返回值：指定人员的密码，初始时密码为空，则表示用默认的密码
function GetPassword(nType:byte):String; stdcall;external 'PassAdmin.dll';
//功能：将指定人员的密码加密后写入配置文件中，配置文件在动态库所在目录
//参数： ntype 人员类型 0 超级管理员，1 数据库修改，2地址修改
//       超级管理员可以修改任何人的密码 地址和数据库
//       Password 密码
//返回值：无
procedure Writepassword(nType:byte;Password:String); stdcall;external 'PassAdmin.dll';
//功能：验证指定密码是不是超级管理员的
//参数：
//       Password 待验证的密码
//返回值：正确返回true,否则返回false
function IsAdminiStationPassWord(Password:String):boolean;stdcall;external 'PassAdmin.dll';
//功能：验证指定人员的密码
//参数： ntype 人员类型 0 超级管理员，1 数据库修改，2地址修改
//       超级管理员可以修改任何人的密码 地址和数据库
//       Password 待验证的密码
//返回值：正确返回true,否则返回false
function ConfirmPassWord(nType:byte;Password:String):boolean; stdcall;external 'PassAdmin.dll';

MD5加密函数声明
procedure Encrypt_MD5(Source:String; PassMD5:PChar);stdcall; external 'PassAdmin.dll';

2005-11-4