易语言模块添加修改密码工具

file ＝ 打开加密文件 (path, #读入, , raw_password, 8)
.如果真 (file ≠ 0)
读入数据 (file, hdr1)
读入数据 (file, hdr2)
.如果真 (hdr1 ＝ #Magic_加密源码)
移动读写位置 (file, #现行位置, 32)
' 调试输出 (到文本 (读入字节集 (file, 32)), 倒转Hex文本 (取数据摘要 (到字节集 (raw_password))))
读入数据 (file, hdr1)
读入数据 (file, hdr2)
.如果真结束
.如果真 (hdr1 ＝ #Magic_文件标志1 且 hdr2 ＝ #Magic_文件标志2)
data ＝ 读入字节集 (file, 取文件长度 (file))
关闭文件 (file)
file ＝ 打开加密文件 (path, #改写, , new_password, 8)
.如果真 (new_password ≠ “”)
写出数据 (file, #Magic_加密源码)
写出数据 (file, 1)
写出字节集 (file, EncodeKey (new_password)) ' 不可用[写出数据]
.如果真结束
写出数据 (file, #Magic_文件标志1)
写出数据 (file, #Magic_文件标志2)
写出字节集 (file, data) ' 不可用[写出数据]
ok ＝ 真
.如果真结束
关闭文件 (file)