觅风论坛

标题: 简易的加密记事本 [打印本页]

作者: 陟遐 时间: 2022-7-14 13:01
标题: 简易的加密记事本
.版本 2
.支持库 dp1

.程序集窗口程序集1
.程序集变量 b, 整数型
.程序集变量文件号, 整数型

.子程序 _打开文件_被选择

通用对话框1.打开 ()
文件号＝打开文件 (通用对话框1.文件名, , 4)
编辑框1.内容＝读入文本 (文件号, )

.子程序 _最大化_被选择

最大化.选中＝取反 (最大化.选中)
.如果 (最大化.选中＝真)
位置＝ 3
.否则
位置＝ 2
.如果结束

.子程序 _保存文件_被选择
.局部变量 a, 文本型
.局部变量 c, 逻辑型

通用对话框2.打开 ()
a ＝通用对话框2.文件名
c ＝写到文件 (a, 到字节集 (编辑框1.内容))
.如果 (c ＝真)
信息框 (“保存成功！”, 0, )
b ＝ 1
.否则
b ＝ 0
.如果结束

.子程序 _关闭程序_被选择

.判断开始 (编辑框1.内容＝ “”)
销毁 ()
.判断 (b ＝ 1)
销毁 ()
.默认
_保存文件_被选择 ()
.判断结束

.子程序 _关闭文件_被选择

关闭文件 (文件号)

.子程序 _加密读取_被选择
.局部变量 a, 字节集

通用对话框1.打开 ()
文件号＝打开文件 (通用对话框1.文件名, , 4)
编辑框1.内容＝到文本 (解密数据 (到字节集 (读入文本 (文件号, )), “010622”, 2))

.子程序 _加密保存_被选择
.局部变量 e, 字节集
.局部变量 f, 文本型
.局部变量 d, 逻辑型

通用对话框2.打开 ()
f ＝通用对话框2.文件名
e ＝加密数据 (到字节集 (编辑框1.内容), “010622”, 2)
d ＝写到文件 (f, e)
.如果 (d ＝真)
信息框 (“保存成功！”, 0, )
b ＝ 1
.否则
b ＝ 0
.如果结束

欢迎光临觅风论坛 (https://www.eyyba.com/)