加密怎么写啊、、、、、、、

kkt

.版本 2
结果 ＝ { 176, 230, 177, 190, 61 }
结果 ＝ 结果 ＋ 到字节集 (到文本 (#版本)) ＋ { 13, 10 }
次数 ＝ 取数组成员数 (过滤)
数据头位置 ＝ 取字节集长度 (结果) ＋ 1
数据区位置 ＝ 数据头位置 ＋ 次数 × 35  ' 35为每个封包的数据头长度
结果 ＝ 结果 ＋ 取空白字节集 (次数 × 35)
.计次循环首 (次数, I)
    结果 [数据头位置] ＝ 13
    结果 [数据头位置 ＋ 1] ＝ 10
    值 ＝ 取字节集长度 (结果) ＋ 1
    结果 [数据头位置 ＋ 2] ＝ 绝对取整 (值 ÷ 65536 ％ 256)  ' 连续3个值合起是封包名称开始位置
    结果 [数据头位置 ＋ 3] ＝ 绝对取整 (值 ÷ 256 ％ 256)
    结果 [数据头位置 ＋ 4] ＝ 绝对取整 (值 ％ 256)
    结果 ＝ 结果 ＋ 到字节集 (过滤 [I].名称)
    结果 [数据头位置 ＋ 5] ＝ 取文本长度 (过滤 [I].名称)  ' 封包名称长度值
    值 ＝ 取字节集长度 (结果) ＋ 1
    结果 [数据头位置 ＋ 6] ＝ 绝对取整 (值 ÷ 65536 ％ 256)  ' 连续3个值合起是待修改数据的位置
    结果 [数据头位置 ＋ 7] ＝ 绝对取整 (值 ÷ 256 ％ 256)
    结果 [数据头位置 ＋ 8] ＝ 绝对取整 (值 ％ 256)
    结果 ＝ 结果 ＋ 过滤 [I].待修改数据
    值 ＝ 取字节集长度 (过滤 [I].待修改数据)
    结果 [数据头位置 ＋ 9] ＝ 绝对取整 (值 ÷ 256 ％ 256)  ' 连续2个值合起是待修改数据长度值
    结果 [数据头位置 ＋ 10] ＝ 绝对取整 (值 ％ 256)
    值 ＝ 取字节集长度 (结果) ＋ 1
    结果 [数据头位置 ＋ 11] ＝ 绝对取整 (值 ÷ 65536 ％ 256)  ' 连续3个值合起是修改后数据的位置
    结果 [数据头位置 ＋ 12] ＝ 绝对取整 (值 ÷ 256 ％ 256)
    结果 [数据头位置 ＋ 13] ＝ 绝对取整 (值 ％ 256)
    结果 ＝ 结果 ＋ 过滤 [I].修改后数据
    值 ＝ 取字节集长度 (过滤 [I].修改后数据)
    结果 [数据头位置 ＋ 14] ＝ 绝对取整 (值 ÷ 256 ％ 256)  ' 连续2个值合起是修改后数据长度值
    结果 [数据头位置 ＋ 15] ＝ 绝对取整 (值 ％ 256)
    结果 [数据头位置 ＋ 16] ＝ 过滤 [I].修改次数
    字节集 ＝ 过滤 [I].动作事件
    结果 [数据头位置 ＋ 17] ＝ 字节集 [1]
    结果 [数据头位置 ＋ 18] ＝ 字节集 [2]
    结果 [数据头位置 ＋ 19] ＝ 字节集 [3]
    结果 [数据头位置 ＋ 20] ＝ 字节集 [4]
    结果 [数据头位置 ＋ 21] ＝ 字节集 [5]
    结果 [数据头位置 ＋ 22] ＝ 字节集 [6]
    结果 [数据头位置 ＋ 23] ＝ 字节集 [7]
    结果 [数据头位置 ＋ 24] ＝ 字节集 [8]
    结果 [数据头位置 ＋ 25] ＝ 字节集 [9]
    结果 [数据头位置 ＋ 26] ＝ 字节集 [10]
    结果 [数据头位置 ＋ 27] ＝ 选择 (过滤 [I].执行 ＝ 真, 0, 1)
    结果 [数据头位置 ＋ 28] ＝ 过滤 [I].动作
    .如果 (次数 ＝ I)
        结果 [数据头位置 ＋ 29] ＝ 0
        结果 [数据头位置 ＋ 30] ＝ 0
    .否则
        结果 [数据头位置 ＋ 29] ＝ 13
        结果 [数据头位置 ＋ 30] ＝ 10
    .如果结束
    数据头位置 ＝ 数据头位置 ＋ 35
.计次循环尾 ()
.如果真 (写到文件 (文件名, 结果 ＋ { 189, 225, 202, 248 }) ＝ 假)
    信息框 (“保存文件失败!”, #错误图标, “错误”)
-----------------------------------------------------------------------------------------------------------------------------------------


解密数据 (读入文件 (文件名), 到文本 ({ 52, 52, 51, 68, 71, 72, 66, 78, 51, 53 }), 1)  ' 134DFGBN15

解密是这样子的。。。 加密该怎么写

秋风萧瑟

自己参考论坛的  精易模块 的代码！
模块开源下载地址 http://bbs.125.la/thread-13687387-1-1.html

NeverLoveAgain

真MB繁琐