数据库加密和解密的软件

写到文件 (取运行目录 () ＋ “\” ＋ 编辑框3.内容 ＋ “.txt”, 到字节集 (编辑框2.内容))
打开 (取运行目录 () ＋ “\加密数据库.edb”, , , , , , )
.如果 (取文本长度 (编辑框2.内容) ≤ 512)
加记录 (编辑框4.内容, 取文本左边 (编辑框2.内容, 512))
.否则

.如果结束
.判断循环首 (取反 (尾记录后 ()))
列表框1.加入项目 (读 (#验证号), )
跳过 (1)
.判断循环尾 ()

.计次循环首 (_启动窗口.列表框1.取项目数 (), )
.如果 (编辑框1.内容 ＝ _启动窗口.列表框1.取项目文本 (_启动窗口.列表框1.现行选中项))
_启动窗口._列表框1_列表项被选择 ()
_启动窗口.编辑框5.内容 ＝ _启动窗口.编辑框6.内容 ＋ _启动窗口.编辑框7.内容 ＋ _启动窗口.编辑框8.内容
跳出循环 ()
.否则
_启动窗口.列表框1.现行选中项 ＝ _启动窗口.列表框1.现行选中项 ＋ 1
.如果结束

.计次循环尾 ()