161181 发表于 2015-2-2 18:37:51

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

.版本 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, “配置文件已创建成功”)
页: [1]
查看完整版本: 新手求指教 加解密软件 应用