新手求指教 加解密软件 应用

161181

.版本 2
.支持库 xplib
.支持库 dp1

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

' 重要组件  三个编辑框  两个按钮
XP风格 (3)
信息框 (“本软件是一个带加解密的软件”, 0, “本软件是一个带加解密的软件”)

.子程序 _按钮1_被单击
.局部变量 解密后的数据0, 文本型
.局部变量 解密后的数据1, 文本型

解密后的数据0 ＝ 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () ＋ “\” ＋ 编辑框1.内容 ＋ “.ini”, “展翼软件”, “帐号”, )), 编辑框1.内容, 2))
解密后的数据1 ＝ 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () ＋ “\” ＋ 编辑框1.内容 ＋ “.ini”, “展翼软件”, “密码”, )), 编辑框1.内容, 2))
编辑框2.内容 ＝ 解密后的数据0
编辑框3.内容 ＝ 解密后的数据1

.子程序 _按钮2_被单击
.局部变量 加密后的数据, 文本型
.局部变量 加密后的数据0, 文本型
.局部变量 加密后的数据1, 文本型

加密后的数据 ＝ 到文本 (加密数据 (到字节集 (编辑框1.内容), 编辑框1.内容, 1))
加密后的数据0 ＝ 到文本 (加密数据 (到字节集 (编辑框2.内容), 编辑框1.内容, 2))
加密后的数据1 ＝ 到文本 (加密数据 (到字节集 (编辑框3.内容), 编辑框1.内容, 2))
写配置项 (取运行目录 () ＋ “\” ＋ 编辑框1.内容 ＋ “.ini”, “展翼软件”, “名称”, 加密后的数据)
写配置项 (取运行目录 () ＋ “\” ＋ 编辑框1.内容 ＋ “.ini”, “展翼软件”, “帐号”, 加密后的数据0)
写配置项 (取运行目录 () ＋ “\” ＋ 编辑框1.内容 ＋ “.ini”, “展翼软件”, “密码”, 加密后的数据1)
信息框 (“请存好配置文件！以免丢失！部分数据不能解密回来，请先测试！谢谢！”, 0, “配置文件已创建成功”)