简单文件加解密工具

.如果 (写加密)
要加入的 ＝ { }
随机数 ＝ 取随机数 (1, 9)
要加入的 ＝ 到字节集 (到字节 (取代码 (“j”, ))) ＋ 到字节集 (到字节 (取代码 (“m”, ))) ＋ 到字节集 (到字节 (取文本长度 (编辑框密码.内容))) ＋ 到字节集 (到字节 (随机数))
.计次循环首 (取文本长度 (编辑框密码.内容), i)
要加入的 ＝ 要加入的 ＋ 到字节集 (到字节 (取代码 (取文本中间 (编辑框密码.内容, i, 1), 1) ＋ 随机数))
.计次循环尾 ()
返回 (真)
.否则
.如果真 (字符 (取字节集数据 (取字节集中间 (文件, 1, 1), #整数型, 1)) ＋ 字符 (取字节集数据 (取字节集中间 (文件, 2, 1), #整数型, 1)) ≠ “jm”)
信息框 (“不是加密文件，解密失败！！！”, 0 ＋ #警告图标, “失败”)
返回 (假)
.如果真结束
位 ＝ 取字节集数据 (取字节集中间 (文件, 3, 1), #整数型, )
随机数 ＝ 取字节集数据 (取字节集中间 (文件, 4, 1), #整数型, )
密码 ＝ “”
.计次循环首 (位, i)
密码 ＝ 密码 ＋ 字符 (取字节集数据 (取字节集中间 (文件, i ＋ 4, 1), #整数型, 1) － 随机数)
.计次循环尾 ()
z ＝ 取字节集左边 (文件, 位 ＋ 4)
文件 ＝ 子字节集替换 (文件, z, , , 1)
返回 (真)