密码由外部文件存储,或者写到注册表,用到的时候读取即可,例程如下
‘-------------------------------------------------------------------------------------------------
.版本 2
.支持库 dp1
.程序集 窗口程序集1
.程序集变量 临时密码, 文本型
.子程序 __启动窗口_创建完毕
临时密码 = 到文本 (解密数据 (读入文件 (取运行目录 () + “\mima.dat”), “mima”, 2))
.子程序 _按钮1_被单击
.判断开始 (编辑框1.内容 ≠ 临时密码)
信息框 (“修改密码失败,原始密码输入错误!”, 0, )
.默认
写到文件 (取运行目录 () + “\mima.dat”, 加密数据 (到字节集 (编辑框2.内容), “mima”, 2))
临时密码 = 编辑框2.内容
信息框 (“密码修改成功!”, 0, )
.判断结束