易语言保护文件目录源码（易语言文件加密源码）
本文目录一览：
易语言模块怎么保护源代码,不会让哪个易模块分析工具,分析出来里面东西差不多一览无遗
易语言保护文件目录源码你是指文件还是程序 文件就加密 程序就加壳
易语言怎么给文件夹加密
用EDB将文件夹的数据保存到数据库易语言保护文件目录源码，将文件夹名也写到易语言保护文件目录源码，然后删除易语言保护文件目录源码，用的时候使用程序释放出来，当然，文件过大的话不宜。。
易语言怎么 保护资源不被人盗版？
有哦，自己弄个自定义格式的压缩包啊，下面我给你封包的源码和读取的方式，我是直接复制我两个程序的源码，所以你要自己修改：
=========================================================================
.版本 2
.支持库 iext
.支持库 dp1
.子程序 开始打包
.局部变量 文件个数, 整数型
.局部变量 文件名称, 文本型
.局部变量 文件列表, 文本型
.局部变量 分割名称, 文本型, , "0"
.局部变量 循环变量, 整数型
.局部变量 临时数据, 字节集
.局部变量 临时长度, 整数型
.局部变量 写入列表, 文本型
.局部变量 写入文件号, 整数型
.局部变量 加密列表, 字节集
.局部变量 列表长度, 字节集
.局部变量 文件信息, 字节集
文件个数 ＝ 0
文件名称 ＝ 寻找文件 (取运行目录 () ＋ “\data\*.*”, 32)
.判断循环首 (文件名称 ≠ “”)
.如果真 (文件名称 ≠ “.” 且 文件名称 ≠ “..”)
文件个数 ＝ 文件个数 ＋ 1
文件列表 ＝ 文件列表 ＋ 文件名称 ＋ #换行符
.如果真结束
文件名称 ＝ 寻找文件 (, )
.判断循环尾 ()
进度条1.最小位置 ＝ 0
进度条1.最大位置 ＝ 文件个数
重定义数组 (分割名称, 假, 文件个数)
分割名称 ＝ 分割文本 (文件列表, #换行符, )
.如果真 (写到文件 (取运行目录 () ＋ “\bak\” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “.mmc”, 到字节集 (“”)) ＝ 假)
信息框 (“备份数据失败！”, 0, “提示！”)
全部关闭 ()
结束 ()
.如果真结束
写入文件号 ＝ 打开文件 (取运行目录 () ＋ “\bak\” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “.mmc”, , )
.计次循环首 (文件个数, 循环变量)
进度条1.位置 ＝ 循环变量
进度标签.标题 ＝ 取运行目录 () ＋ “\data\” ＋ 分割名称 [循环变量]
临时数据 ＝ 压缩数据 (读入文件 (取运行目录 () ＋ “\data\” ＋ 分割名称 [循环变量]))
临时长度 ＝ 取字节集长度 (临时数据)
移动读写位置 (写入文件号, #文件尾, 0)
写出字节集 (写入文件号, 临时数据)
写入列表 ＝ 写入列表 ＋ 分割名称 [循环变量] ＋ “|” ＋ 到文本 (临时长度) ＋ #换行符
.计次循环尾 ()
加密列表 ＝ 加密数据 (到字节集 (到文本 (文件个数) ＋ #换行符 ＋ 写入列表), “M2C软件工程”, 2)
列表长度 ＝ 加密数据 (到字节集 (到文本 (取字节集长度 (加密列表))), “M2C软件工程”, 2)
文件信息 ＝ 到字节集 (到文本 (列表长度) ＋ #换行符) ＋ 加密列表
移动读写位置 (写入文件号, #文件首, 0)
.如果真 (插入字节集 (写入文件号, 文件信息) ＝ 假)
信息框 (“备份数据失败！”, 0, “提示！”)
全部关闭 ()
结束 ()
.如果真结束
全部关闭 ()
结束 ()
=============================
.版本 2
.支持库 dp1
.程序集 MPK读取类, , 公开
.程序集变量 文件路径, 文本型
.程序集变量 文件密码, 文本型
.程序集变量 MPK文件号, 整数型
.程序集变量 初始长度, 整数型
.程序集变量 文件个数, 整数型
.程序集变量 MPK文件信息, 文件信息, , "0"
.程序集变量 是否销毁, 逻辑型
.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用
.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用
是否销毁 ＝ 真
初始长度 ＝ 0
文件个数 ＝ 0
重定义数组 (MPK文件信息, 假, 0)
.子程序 加载, 逻辑型, 公开, 加载一个已封包好的MPK文件
.参数 MPK文件, 文本型, , MPK文件路径
.参数 密码, 文本型, 可空, MPK文件密码
.局部变量 返回逻辑, 逻辑型
.局部变量 临时文本, 文本型
.局部变量 头部长度, 整数型
.局部变量 读入头部, 文本型
.局部变量 临时分割, 文本型, , "0"
.局部变量 循环变量, 整数型
.局部变量 再次分割, 文本型, , "0"
返回逻辑 ＝ 真
文件路径 ＝ MPK文件
文件密码 ＝ 密码
.如果真 (删全部空 (文件密码) ＝ “”)
文件密码 ＝ #默认密码
.如果真结束
' -------------------------------------------------------
.判断开始 (文件是否存在 (文件路径) ＝ 假)
返回逻辑 ＝ 假
.默认
关闭文件 (MPK文件号)
MPK文件号 ＝ 打开文件 (文件路径, #读入, #禁止写)
.判断开始 (MPK文件号 ＝ 0)
返回逻辑 ＝ 假
关闭文件 (MPK文件号)
' ------------------------------------------------------------------
.默认
移到文件首 (MPK文件号)
临时文本 ＝ 读入一行 (MPK文件号)
.判断开始 (取文本左边 (临时文本, 3) ≠ “MPK”)
返回逻辑 ＝ 假
关闭文件 (MPK文件号)
' ------------------------------------------------------------------
.默认
头部长度 ＝ 到整数 (到文本 (解密数据 (到字节集 (取文本右边 (临时文本, 取文本长度 (临时文本) － 3)), 文件密码, 2)))
初始长度 ＝ 取字节集长度 (到字节集 (临时文本 ＋ #换行符)) ＋ 头部长度
.判断开始 (头部长度 ＝ 0)
返回逻辑 ＝ 假
关闭文件 (MPK文件号)
' ------------------------------------------------------------------
.默认
读入头部 ＝ 到文本 (解压数据 (解密数据 (读入字节集 (MPK文件号, 头部长度), 文件密码, 2)))
.判断开始 (读入头部 ＝ “”)
返回逻辑 ＝ 假
关闭文件 (MPK文件号)
' ------------------------------------------------------------------
.默认
临时分割 ＝ 分割文本 (读入头部, #换行符, )
文件个数 ＝ 取数组成员数 (临时分割)
重定义数组 (MPK文件信息, 假, 文件个数)
.计次循环首 (文件个数, 循环变量)
处理事件 ()
再次分割 ＝ 分割文本 (临时分割 [循环变量], #列表分隔, )
MPK文件信息 [循环变量].文件名称 ＝ 再次分割 [1]
MPK文件信息 [循环变量].文件大小 ＝ 到整数 (再次分割 [2])
MPK文件信息 [循环变量].文件摘要 ＝ 再次分割 [3]
.计次循环尾 ()
.判断结束
.判断结束
.判断结束
.判断结束
.判断结束
返回 (返回逻辑)
.子程序 读取, 字节集, 公开, 读取MPK文件包之内的文件，成功返回文件字节集，失败返回空字节集
.参数 文件名称, 文本型, , MPK文件包之内对应的文件名称
.参数 强制读取, 逻辑型, 可空, 读取过程中会检验文件MD5值，如果值不一样可以命令强制读取，但是不保证文件是正确的
.局部变量 返回数据, 字节集
.局部变量 临时长度, 长整数型
.局部变量 循环变量, 整数型
.局部变量 临时数据, 字节集
返回数据 ＝ 到字节集 (“”)
.如果真 (是否销毁 ＝ 假)
临时长度 ＝ 0
.计次循环首 (文件个数, 循环变量)
处理事件 ()
.判断开始 (MPK文件信息 [循环变量].文件名称 ＝ 文件名称)
处理事件 ()
移动读写位置 (MPK文件号, #文件首, 初始长度 ＋ 临时长度)
临时数据 ＝ 读入字节集 (MPK文件号, MPK文件信息 [循环变量].文件大小)
.判断开始 (取数据摘要 (临时数据) ＝ MPK文件信息 [循环变量].文件摘要)
返回数据 ＝ 解压数据 (临时数据)
.默认
.如果真 (强制读取 ＝ 真)
返回数据 ＝ 解压数据 (临时数据)
.如果真结束
.判断结束
跳出循环 ()
.默认
临时长度 ＝ 临时长度 ＋ MPK文件信息 [循环变量].文件大小
.判断结束
.计次循环尾 ()
.如果真结束
返回 (返回数据)
.子程序 个数, 整数型, 公开, 返回MPK文件包之内的文件个数，失败返回0
返回 (文件个数)
.子程序 列表, 文本型, 公开, 返回MPK文件包之内的文件列表，成功返回换行符分割的文件列表，失败返回空文本
.局部变量 返回文本, 文本型
.局部变量 n, 整数型
返回文本 ＝ “”
.如果真 (是否销毁 ＝ 假)
.计次循环首 (文件个数, n)
处理事件 ()
返回文本 ＝ 返回文本 ＋ MPK文件信息 [n].文件名称 ＋ #换行符
.计次循环尾 ()
.如果真结束
返回 (返回文本)
.子程序 销毁, , 公开, 销毁一个已经加载的MPK文件，继续调用需要重新加载
是否销毁 ＝ 真
初始长度 ＝ 0
文件个数 ＝ 0
关闭文件 (MPK文件号)
重定义数组 (MPK文件信息, 假, 0)
