【开源】文件补制作工具Bate1.0尝鲜版

DDSGXQ

软件地址：https://bbs.125.la/forum.php?mod=viewthread&tid=14167834

软件名称：文件补制作工具Bate1.0尝鲜版软件版本：Bate1.0尝鲜版
程序作者：DDSGXQ
功能状态：不完整。
编程平台：易语言
备注信息：仿dUP2偏移补丁界面。


软件说明：
  1.目前仅支持2个文件对比分析，即破J前的原文件+已破J的文件，经过文件偏移地址对比后生成偏移数据表，可随时更改和保存。
  2.经过对比的数据或添加的数据，可以在数据表中右键——>生成易调用代码，打开易语言粘贴即可使用，随时生成自己的补丁。
  3.目前仅支持静态文件补丁（原文件和已破J的），对于内存补丁（运行找基址的）后续会继续增加。
  4.本软件目前只能简单对比分析，不能生成可直接运行的exe打补丁文件。


一个基础版，分享给大家，参考一下，有的人可能会用到。


源码涉及到的其他功能我已经写好了（生成补丁文件等等。），而且这个源码是最初始的。其他部分不开源。
源码中生成易调用代码部分算法有点慢，自己琢磨吧。


转载请注明：来自精易 DDSGXQ
偏移补丁_补充更改2 - 副本.e (75.74 KB, 下载次数: 58)

2018-6-1 22:32 上传

点击文件名下载附件




补充内容 (2018-6-4 09:24):
生成易代码部分参考https://bbs.125.la/thread-14174045-1-1.html 生成的源码

补充内容 (2018-6-4 11:59):
不懂的看17楼https://bbs.125.la/forum.php?mod=viewthread&tid=14175708&pid=13296087&page=1&extra=#pid13296087

DDSGXQ

转化参考地址：https://bbs.125.la/forum.php?mod=viewthread&tid=14170646

可以和这个做个对比，https://bbs.125.la/forum.php?mod=viewthread&tid=14174045

做文件补丁思路：1.把地址连起来，加分隔符分割，转换成字节集（有标志1）
2.把地址数据连起来，加分隔符分割，转换成字节集（有标志2）
两者1和2写到运行补丁的文件尾

运行补丁读取数据：
读取自身字节集，通过标志1和标志2分割地址和地址数据（此时为字节集）
字节集转换成文本，分割文本（把分隔符去掉）转换成数组，加入成员，转换成整数数组和字节集数组。
附：源码优化

  

子程序名	返回值类型	公开	备 注
数据处理1

变量名	类 型	静态	数组	备 注
索引
计次
开始索引	文本型
上次索引	文本型
本次索引	文本型
本次文本	文本型
临时文本	文本型
临时文本2	文本型
文本数组	文本型		0
文本数组2	文本型		0
M	整数型
N	整数型
数值	整数型		0
数据	文本型		0
局_数据	文本型
局_数值	文本型

超级列表框_模式2.全部删除 ()
开始索引 ＝ 超级列表框_模式1.取标题 (0, 1)
计次循环首 (超级列表框_模式1.取表项数 (), 计次)
本次索引 ＝ 超级列表框_模式1.取标题 (计次 － 1, 1)
如果 (到整数 (本次索引) － 到整数 (上次索引) ＝ 1)  ' 连续数字
如果 (临时文本 ＝ “”)
临时文本 ＝ 超级列表框_模式1.取标题 (计次 － 1, 2)
临时文本 ＝ 临时文本 ＋ “ ” ＋ 超级列表框_模式1.取标题 (计次 － 1, 2)
如果 (临时文本2 ＝ “”)
临时文本2 ＝ 超级列表框_模式1.取标题 (计次 － 1, 3)
临时文本2 ＝ 临时文本2 ＋ “ ” ＋ 超级列表框_模式1.取标题 (计次 － 1, 3)

文本数组 ＝ 分割文本 (临时文本, “ ”, )  ' 不连续数字
' 文本数组2 ＝ 分割文本 (临时文本2, “ ”, )  ' 不连续数字
索引 ＝ 超级列表框_模式2.插入表项 (, , , , , )
超级列表框_模式2.置标题 (索引 － 1, 0, 进制_十到十六 (到整数 (开始索引)))  ' 16进制地址
超级列表框_模式2.置标题 (索引 － 1, 1, 临时文本)  ' 原数据
超级列表框_模式2.置标题 (索引 － 1, 2, 临时文本2)  ' 现数据
超级列表框_模式2.置标题 (索引 － 1, 3, 到文本 (取数组成员数 (文本数组)))  ' 长度
加入成员 (数据, 临时文本2)
加入成员 (数值, 到整数 (开始索引))
开始索引 ＝ 本次索引
临时文本 ＝ 超级列表框_模式1.取标题 (计次 － 1, 2)
临时文本2 ＝ 超级列表框_模式1.取标题 (计次 － 1, 3)
上次索引 ＝ 本次索引
计次循环尾 ()
' '最后一个
文本数组 ＝ 分割文本 (临时文本, “ ”, )
超级列表框_模式2.置标题 (索引, 0, 进制_十到十六 (到整数 (开始索引)))  ' 16进制地址
超级列表框_模式2.置标题 (索引, 1, 临时文本)  ' 原数据
超级列表框_模式2.置标题 (索引, 2, 临时文本2)  ' 现数据
超级列表框_模式2.置标题 (索引, 3, 到文本 (取数组成员数 (文本数组)))  ' 长度
加入成员 (数据, 临时文本2)
加入成员 (数值, 到整数 (开始索引))
删除成员 (数据, 1, 1)
删除成员 (数值, 1, 1)
' 调试输出 (数据)
' 调试输出 (数值)
计次循环首 (取数组成员数 (数据), M)
局_数据 ＝ 局_数据 ＋ “Buffer [ ” ＋ 到文本 (M) ＋ “ ]” ＋ “ = ” ＋ 字节集_查看 (字节集_十六进制到字节集 (删全部空 (数据 [M]))) ＋ #换行符
计次循环尾 ()
计次循环首 (取数组成员数 (数值), N)
局_数值 ＝ 局_数值 ＋ “，” ＋ 到文本 (数值 [N] ＋ 1)
计次循环尾 ()
' 调试输出 (局_数据)
全局_Buffer数组 ＝ 局_数据
全局_Address数组 ＝ “Address ＝  { ” ＋ 取文本右边 (局_数值, 取文本长度 (局_数值) － 2) ＋ “ }”
标签_数据行数_模式2.标题 ＝ “共获取到 ” ＋ 到文本 (超级列表框_模式2.取表项数 ()) ＋ “ 行数据” ＋ “  ” ＋ “总字节数：” ＋ 到文本 (全局_项目数)
调试输出 (全局_Buffer数组)
调试输出 (全局_Address数组)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 数据处理1<br /> .局部变量 索引<br /> .局部变量 计次<br /> .局部变量 开始索引, 文本型<br /> .局部变量 上次索引, 文本型<br /> .局部变量 本次索引, 文本型<br /> .局部变量 本次文本, 文本型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 临时文本2, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 文本数组2, 文本型, , "0"<br /> .局部变量 M, 整数型<br /> .局部变量 N, 整数型<br /> .局部变量 数值, 整数型, , "0"<br /> .局部变量 数据, 文本型, , "0"<br /> .局部变量 局_数据, 文本型<br /> .局部变量 局_数值, 文本型<br /> <br /> 超级列表框_模式2.全部删除 ()<br /> 开始索引 ＝ 超级列表框_模式1.取标题 (0, 1)<br /> .计次循环首 (超级列表框_模式1.取表项数 (), 计次)<br />     本次索引 ＝ 超级列表框_模式1.取标题 (计次 － 1, 1)<br />     .如果 (到整数 (本次索引) － 到整数 (上次索引) ＝ 1)  ' 连续数字<br />         .如果 (临时文本 ＝ “”)<br />             临时文本 ＝ 超级列表框_模式1.取标题 (计次 － 1, 2)<br />         .否则<br />             临时文本 ＝ 临时文本 ＋ “ ” ＋ 超级列表框_模式1.取标题 (计次 － 1, 2)<br />         .如果结束<br />         .如果 (临时文本2 ＝ “”)<br />             临时文本2 ＝ 超级列表框_模式1.取标题 (计次 － 1, 3)<br />         .否则<br />             临时文本2 ＝ 临时文本2 ＋ “ ” ＋ 超级列表框_模式1.取标题 (计次 － 1, 3)<br />         .如果结束<br /> <br />     .否则<br />         文本数组 ＝ 分割文本 (临时文本, “ ”, )  ' 不连续数字<br />         ' 文本数组2 ＝ 分割文本 (临时文本2, “ ”, )  ' 不连续数字<br />         索引 ＝ 超级列表框_模式2.插入表项 (, , , , , )<br />         超级列表框_模式2.置标题 (索引 － 1, 0, 进制_十到十六 (到整数 (开始索引)))  ' 16进制地址<br />         超级列表框_模式2.置标题 (索引 － 1, 1, 临时文本)  ' 原数据<br />         超级列表框_模式2.置标题 (索引 － 1, 2, 临时文本2)  ' 现数据<br />         超级列表框_模式2.置标题 (索引 － 1, 3, 到文本 (取数组成员数 (文本数组)))  ' 长度<br />         加入成员 (数据, 临时文本2)<br />         加入成员 (数值, 到整数 (开始索引))<br /> <br />         开始索引 ＝ 本次索引<br />         临时文本 ＝ 超级列表框_模式1.取标题 (计次 － 1, 2)<br />         临时文本2 ＝ 超级列表框_模式1.取标题 (计次 － 1, 3)<br />     .如果结束<br />     上次索引 ＝ 本次索引<br /> .计次循环尾 ()<br /> ' '最后一个<br /> 文本数组 ＝ 分割文本 (临时文本, “ ”, )<br /> 超级列表框_模式2.置标题 (索引, 0, 进制_十到十六 (到整数 (开始索引)))  ' 16进制地址<br /> 超级列表框_模式2.置标题 (索引, 1, 临时文本)  ' 原数据<br /> 超级列表框_模式2.置标题 (索引, 2, 临时文本2)  ' 现数据<br /> 超级列表框_模式2.置标题 (索引, 3, 到文本 (取数组成员数 (文本数组)))  ' 长度<br /> 加入成员 (数据, 临时文本2)<br /> 加入成员 (数值, 到整数 (开始索引))<br /> 删除成员 (数据, 1, 1)<br /> 删除成员 (数值, 1, 1)<br /> ' 调试输出 (数据)<br /> ' 调试输出 (数值)<br /> <br /> .计次循环首 (取数组成员数 (数据), M)<br />     局_数据 ＝ 局_数据 ＋ “Buffer [ ” ＋ 到文本 (M) ＋ “ ]” ＋ “ = ” ＋ 字节集_查看 (字节集_十六进制到字节集 (删全部空 (数据 [M]))) ＋ #换行符<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (数值), N)<br />     局_数值 ＝ 局_数值 ＋ “，” ＋ 到文本 (数值 [N] ＋ 1)<br /> .计次循环尾 ()<br /> <br /> ' 调试输出 (局_数据)<br /> 全局_Buffer数组 ＝ 局_数据<br /> 全局_Address数组 ＝ “Address ＝  { ” ＋ 取文本右边 (局_数值, 取文本长度 (局_数值) － 2) ＋ “ }”<br /> 标签_数据行数_模式2.标题 ＝ “共获取到 ” ＋ 到文本 (超级列表框_模式2.取表项数 ()) ＋ “ 行数据” ＋ “  ” ＋ “总字节数：” ＋ 到文本 (全局_项目数)<br /> 调试输出 (全局_Buffer数组)<br /> 调试输出 (全局_Address数组)

万里晴空

这么快的嘛，，，，，
学无止境

DDSGXQ

枫叶果果吖 发表于 2018-6-1 22:46
这么快的嘛，，，，，
学无止境

一个初始版，之前的，没啥功能。新的我就不发了（不想开源┭┮﹏┭┮）。

万里晴空

DDSGXQ 发表于 2018-6-1 22:47
一个初始版，之前的，没啥功能。新的我就不发了（不想开源┭┮﹏┭┮）。

我懂你

asfor78

支持开源 不错的源码

fyh505099

厉害6666666666

hhhql

        感谢分享，很给力！~

maxthon

实用哦，支持了

SureFire2

感谢分享，学无止境

网络注册会员

支持一下哦