(易语言)如何编写配置项记住密码?

记住密码主要是用户名及密码的加密写出/读取过程.提供一段简单的加密代码作为参考.

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

.程序集 窗口程序集_启动窗口

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

.如果真 (文件是否存在 (取运行目录 () ＋ “\config.ini”))
    选择框_记住密码.选中 ＝ 真
    编辑框_用户名.内容 ＝ 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () ＋ “\config.ini”, “用户信息”, “用户名”, )), “密码随意”, #RC4算法))
    编辑框_密码.内容 ＝ 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () ＋ “\config.ini”, “用户信息”, “密码”, )), “密码随意”, #RC4算法))
.如果真结束


.子程序 _按钮_登录_被单击

.判断开始 (编辑框_用户名.内容 ＝ “数据库用户名” 且 编辑框_密码.内容 ＝ “数据库密码”)
    ' 验证信息正确后 执行动作.
    .判断开始 (选择框_记住密码.选中)
        写配置项 (取运行目录 () ＋ “\config.ini”, “用户信息”, “用户名”, 到文本 (加密数据 (到字节集 (编辑框_用户名.内容), “密码随意”, #RC4算法)))
        写配置项 (取运行目录 () ＋ “\config.ini”, “用户信息”, “密码”, 到文本 (加密数据 (到字节集 (编辑框_密码.内容), “密码随意”, #RC4算法)))
    .默认
        删除文件 (取运行目录 () ＋ “\config.ini”)
    .判断结束

.默认
    信息框 (“错误的登录信息”, 0, , )
    返回 ()
.判断结束

调试输出 (“RC4算法可以避免用户名或密码中的数字丢失问题”)