超级列表框加密保存读取数据

在这里写了一个比较简单的，并且把文本数据.txt加密。

外部超级列表框保存命令，右边编辑框内容是最终保存数据文本效果演示。

.如果真 (外部超级列表框_保存数据 (超级列表框1.取窗口句柄 (), 取运行目录 () ＋ “\加密数据.txt”, 0, ) ＝ 真)
写到文件 (取运行目录 () ＋ “\加密数据.txt”, 加密数据 (读入文件 (取运行目录 () ＋ “\加密数据.txt”), “mima”, 2))
编辑框2.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\加密数据.txt”))
信息框 (“保存成功!” ＋ 到文本 (取现行时间 ()), 0, )
超级列表框1.全部删除 ()