不 知 您 是 否 曾 为 数 据 被 人 盗 用 而 苦 恼； 不 知 您 是 否 因 软 件 没 有 一 套 严 密
的 安 全 防 护 系 统 而 不 敢 放 心 使 用； 不 知 您 是 否 曾 经 费 尽 心 机 作 过 数 据 加 密
但 是 对 加 密 效 果 大 不 满 意 ？ 如 果 您 曾 有 过 诸 如 此 类 的 困 惑 的 话，Delphi 为 您
提 供 了 一 个 简 单 而 出 色 的 解 决 办 法。
---- 这 似 乎 是 在 吹 嘘 Delphi 的 功 能， 但 Delphi 的 所 有 版 本 无 一 例 外 地 提 供 了 对 其
Paradox 数 据 库 的 口 令 设 置， 设 置 过 口 令 的 Paradox 数 据 库 的 数 据 也 被 加 密 而 无
法 用 其 它 工 具 查 看。 这 一 特 性 使 得 我 们 用 Delphi 提 高 应 用 程 序 的 安 全 性 变 得
简 单 易 行。 不 过 要 说 明 的 是： 本 方 法 所 论 的 加 密 并 非 万 无 一 失， 因 为 电 脑
黑 客 们 无 所 不 在， 他 们 可 以 轻 易 地 打 破 你 的 任 何 加 密 方 法， 但 就 一 般 人 而
言 本 文 所 论 的 加 密 方 法 就 足 够 了。
---- 一、 首 先， 一 套 软 件 的 安 全 性 包 括 对 数 据 访 问 的 限 制。 未 授 权 的 用 户 不
能 访 问 其 中 的 某 些 数 据 或 者 根 本 不 能 进 入 应 用 程 序。 据 此 可 以 设 计 一 个 数
据 表， 用 来 存 储 用 户 的 级 别、 用 户 的 登 录 名 称 以 及 用 户 密 码， 不 妨 将 此 表
命 名 为 PARA.DB。PARA.DB 的 结 构 如 下：
字段名 字段类型 字段长度注释
Owner A 20 应用程序名
User A 10 用户名
UserLevel A 10 用户级别
PasswordID A 10 登录口令
---- 考 虑 到 您 开 发 的 应 用 程 序 可 能 不 止 一 个， 所 以Owner 字 段 用 来 识 别 PARA.DB
所 属 的 应 用 程 序 以 防 止 一 个 PARA.DB 能 适 用 于 所 有 应 用 程 序； 后 三 个 字 段 用
来 给 用 户 设 置 使 用 权 限。 所 有 的 字 段 都 十 分 重 要， 但 是 如 果 您 的 应 用 程 序
是 单 用 户 的、 只 需 要 一 个 简 单 的 口 令 的 话 则 可 以 省 略User、Userlevel 甚 至Owner 字
段 而 只 留 一 个 登 录 口 令 字 段PasswordID。
---- 二、 然 后， 我 们 需 要 两 个 函 数：
---- 1、GetPassword - 读 取 用 户 的 输 入， 并 判 断 口 令 的 正 确 性 和 用 户 的 级 别。
function GetPassword : Boolean;
{根据返回值来判断是否输入了正确口令}
var
PasswordForm: TPasswordForm;{口令登录屏幕}
begin
Result := False;
PasswordForm := TPasswordForm.Create(Self);
if Passwordform.TablePara.fields[0].asstring = '' then
{如果没有任何口令则不启动口令登录屏幕}
begin
Result := True;
PasswordForm.Free;
end
else
try
with PasswordForm do
begin
if ShowModal = mrOK then
if EditInputPass.Text < >
TablePara.Fields[3].AsString then
Application.MessageBox('密码错误！',
'错误',
mb_OK + mb_iconstop)
else
begin
Result := True;
Table1.Close;
end;
finally
PasswordForm.Free;
end;
end;
2、SetPassword -设置用户级别和登录口令。
function SetPassword : Boolean;
var
Chgpassform : TChgpassform;
begin
Result := False;
Chgpassform := TChgpassform.Create(Self);
if Chgpassform.ShowModal = mrOK then
begin
With TablePara do
beign
{写入库中}
Edit;
Fields[2].AsString := EditPasswordID.Text;
Post;
Close;
end;
Result := True;
Chgpassform.free;
end;
end;
---- ( 注： 限 于 篇 幅， 以 上 均 为 函 数 程 序 示 意， 若 直 接 运 行 可 能 有 误。)
---- 三、 为 了 不 在 每 一 个 应 用 程 序 中 都 重 新 写 一 遍 函 数 代 码， 我 们 可 以 将 这
两 个 函 数 放 进 一 个DLL 文 件chkpword.dll 中， 并 在chkpword.dpr 的project source 中 作 如 下 声
明：
exports GetPassword, SetPassword ;
在包含该函数体的unit中分别作如下声明：
function GetPassword : Boolean; export;
function SetPassword : Boolean; export;
四、在应用程序的有关unit中作如下声明：
function GetPassword : Boolean; far; external 'CHKPWORD';
function SetPassword : Boolean; far; external 'CHKPWORD';
则引用方法为：
unit {unit名};
uses
{uses说明}
function GetPassword : Boolean;
far; external 'CHKPWORD';
begin
if getpassword then
{没有设置口令或得到正确的口令后才执行程序}
begin
{程序段代码}
.
.
.
{或：SetPassword}
end;
end.
---- 五、 注 意 事 项
---- 1、 当 您 用DataBase DeskTop 创 建para.db 的 时 候， 请 注 意 为 其 添 加 密 码mypassword。 在
应 用 程 序 的project source 中 或 调 用para.db 之 前 您 必 须 用 Session.AddPassword('mypassword'); 来
为para.db 作 好 开 启 准 备， 以 免 用 户 发 现paradox 提 供 的 登 录 对 话 框。
---- 2、 用 本 方 法 所 作 的 口 令 是 对 大 小 写 敏 感 的， 这 一 点 请 在 编 制 程 序 的 时
候 予 以 充 分 的 注 意。 若 要 避 免 大 小 写 敏 感 请 改 写 口 令 判 断 代 码 为：
---- UpperCase(EditInputPass.Text) < > UpperCase(TablePara.fields[3].asstring)
---- 3、 要 想 分 别 在delphi 1.0 至 3.0 开 发 的 应 用 程 序 中 调 用 这 两 个 函 数， 最 方 便 的
办 法 是 在 不 同 版 本 的delphi 中 分 别 编 译chkpword.dpr。
---- 这 样， 我 们 就 利 用delphi 的paradox 数 据 库 为 我 们 提 供 的 加 密 功 能 轻 松 地 给 应
用 程 序 加 上 了 安 全 性 维 护 模 块。
