求助：内存搜索和修改山寨游戏FZ

成功山寨了一个FZ，需要在主程度和功能DLL里修改软件ID串和密钥串，主程序脱壳后可以直接修改，DLL是注入游戏里的，在论坛找了个易语言补丁源码自己修改了下成功山寨，
不过更新后DLL要修改的地址会变，经常重新找地址改源码编译好麻烦，想弄一个通用的补丁程度，直接搜索内存里的软件ID串和密钥串进行修改补丁，不过没编程能力，望高手
帮忙提供下源码，或帮忙添加修改下

附上在论坛找的用来参照修改的易语言源码

[C] 纯文本查看 复制代码

.版本 2
.支持库 spec

.程序集 程序集1
.程序集变量 skin, Ex_DirectUI
.程序集变量 hwnd, 整数型
.程序集变量 btn1, 按钮_Ex, , , 启动
.程序集变量 btn2, 按钮_Ex
.程序集变量 btn3, 按钮_Ex
.程序集变量 ctrpic, 图片框_Ex, , , 图片框
.程序集变量 ctrradbox, 单选框_Ex, , , 单选框
.程序集变量 ctrselbox1, 选择框_Ex, , , 显示单位
.程序集变量 ctrselbox2, 选择框_Ex, , , 显示技能
.程序集变量 ctrselbox3, 选择框_Ex, , , 顶部信息
.程序集变量 ctrselbox4, 选择框_Ex, , , anticheck
.程序集变量 ctrselbox5, 选择框_Ex, , , 更换bgm
.程序集变量 ctrselbox6, 选择框_Ex
.程序集变量 ctrselbox7, 选择框_Ex
.程序集变量 ctrselbox8, 选择框_Ex
.程序集变量 ctrlistbox, 列表框_Ex, , , 列表框
.程序集变量 war3Pid, 整数型
.程序集变量 game基址, 整数型
.程序集变量 war3路径, 文本型
.程序集变量 war3句柄, 整数型
.程序集变量 War3Version, 文本型
.程序集变量 自ID, 整数型

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行

进程_提升进程权限 ()
' 初始化 ()
' 自ID ＝ 当前进程ID ()
' 调试输出 (最大保护 ())
' 添加保护 (自ID)
' 添加白名单 (自ID)
' 锁定保护 ()
' 线程防御 ()
' 如果真 (是否为64位_ () ＝ 假)
' 隐藏进程 (自ID)


' 判断 (是否挂钩 () ＝ 假)
' 反调试 ()
' 如果真 (是否为64位_ () ＝ 假)
' 恢复隐藏 (自ID)

' 结束程序 ()
' 卸载 (2323)
' MemoryRW.安装 ()
子程序_启动窗口 ()



返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 子程序_启动窗口
.局部变量 count, 整数型
.局部变量 index, 整数型, , , 表项索引

hwnd ＝ 窗口_创建 (, “11 FIM专用”, , , 600, 400, , , , , )
skin.挂接窗口 (, hwnd, , , #图片_lily, , , 200, #底图方式_居中, , , , , )
skin.事件_将被销毁 (&skin将被销毁)

' 图片框
' ctrpic.创建 (hwnd, 400, 300, 216, 108, #图片_11LOGO, )

' 选择框

ctrselbox1.创建 (hwnd, 100, 100, 250, 50, “显示单位”, RGB2ARGB (取颜色值 (234, 21, 217)), “华文行楷”, 20, )
ctrselbox2.创建 (hwnd, 100, 150, 250, 50, “显示技能”, RGB2ARGB (取颜色值 (238, 17, 12)), “华文行楷”, 20, )
ctrselbox3.创建 (hwnd, 100, 200, 250, 50, “头顶信息”, RGB2ARGB (取颜色值 (51, 97, 204)), “华文行楷”, 20, )
ctrselbox4.创建 (hwnd, 100, 250, 250, 50, “过自检测”, RGB2ARGB (取颜色值 (51, 255, 0)), “华文行楷”, 20, )

' 分割线

ctrselbox5.创建 (hwnd, 380, 100, 250, 50, “更换BGM”, RGB2ARGB (取颜色值 (102, 0, 153)), “华文行楷”, 20, )
ctrselbox6.创建 (hwnd, 380, 150, 250, 50, “盟友显血”, RGB2ARGB (取颜色值 (0, 51, 204)), “华文行楷”, 20, )
ctrselbox7.创建 (hwnd, 380, 200, 250, 50, “敌军显血”, RGB2ARGB (取颜色值 (255, 153, 0)), “华文行楷”, 20, )
ctrselbox8.创建 (hwnd, 380, 250, 250, 50, “数显冷却”, RGB2ARGB (取颜色值 (154, 119, 19)), “华文行楷”, 20, )

' 选择框挂接事件

ctrselbox1.事件_被单击 (&_ctrselbox_1被单击)
ctrselbox2.事件_被单击 (&_ctrselbox_2被单击)
ctrselbox3.事件_被单击 (&_ctrselbox_3被单击)
ctrselbox4.事件_被单击 (&_ctrselbox_4被单击)
ctrselbox5.事件_被单击 (&_ctrselbox_5被单击)
ctrselbox6.事件_被单击 (&_ctrselbox_6被单击)
ctrselbox8.事件_被单击 (&_ctrselbox_8被单击)

' 按钮
btn1.创建 (hwnd, 120, 300, 100, 50, “启动”, RGB2ARGB (取颜色值 (217, 38, 199)), “华文彩云”, 20, , , )
btn2.创建 (hwnd, 270, 300, 100, 50, “卸载”, RGB2ARGB (取颜色值 (217, 38, 199)), “华文彩云”, 20, , , )
btn3.创建 (hwnd, 420, 300, 100, 50, “保护”, RGB2ARGB (取颜色值 (217, 38, 199)), “华文彩云”, 20, , , )
' 按钮挂接事件

btn1.事件_被单击 (&_btn1_被单击)
btn2.事件_被单击 (&_btn2_被单击)
btn3.事件_被单击 (&_btn3_被单击)

skin.置进入特效 (0)
窗口_消息循环 (hwnd)


.子程序 _ctrselbox_1被单击



.子程序 _ctrselbox_2被单击



.子程序 _ctrselbox_3被单击



.子程序 _ctrselbox_4被单击



.子程序 _ctrselbox_5被单击



.子程序 _ctrselbox_6被单击



.子程序 _ctrselbox_7被单击



.子程序 _ctrselbox_8被单击



.子程序 _btn1_被单击
.局部变量 COM对象, 对象
.局部变量 i, 整数型
.局部变量 模块信息, 类型_模块信息, , "255"
.局部变量 完整路径, 文本型


war3Pid ＝ 取进程ID (“war3.exe”)
.如果真 (war3Pid ＞ 0)
    ' 添加白名单 (war3Pid)
    war3路径 ＝ 进程_取模块路径 (war3Pid, “war3.exe”)
    war3句柄 ＝ 打开进程 (war3Pid)

    .变量循环首 (1, 进程_取进程模块 (war3Pid, 模块信息), 1, i)
        .如果真 (到文本 (模块信息 [i].模块名) ＝ “game.dll” 或 到文本 (模块信息 [i].模块名) ＝ “Game.dll” 或 到文本 (模块信息 [i].模块名) ＝ “GAME.DLL”)
            完整路径 ＝ 到文本 (模块信息 [i].模块路径)
            game基址 ＝ 模块信息 [i].模块基址
            COM对象.创建 (“Scripting.FileSystemObject”, )
            War3Version ＝ COM对象.文本方法 (“GetFileVersion”, 完整路径)
            COM对象.清除 ()
            调试输出 (game基址)
            调试输出 (完整路径)
            调试输出 (war3路径)
            调试输出 (War3Version)
            跳出循环 ()

        .如果真结束

    .变量循环尾 ()

.如果真结束
' 判断 (MemoryRW.是否安装成功 () ＝ 假)
' 信息框_Ex (hwnd, “开启失败！”, #确认钮, “提示：”, , , , , , 真, , , )
' MemoryRW.安装 ()
' 判断 (MemoryRW.是否安装成功 () ＝ 假)
' 信息框_Ex (hwnd, “开启失败！请重启软件！”, #确认钮, “提示：”, , , , , , 真, , , )
' 信息框_Ex (hwnd, “开启成功！”, #确认钮, “提示：”, , , , , , 真, , , )

' 信息框_Ex (hwnd, “开启成功！”, #确认钮, “提示：”, , , , , , 真, , , )
.如果真 (ctrselbox1.选中 ())
    ' 显示单位
    ' 写到文件 (war3路径 ＋ “wars.mixtape”, #显蓝)
    ' 写到文件 (war3路径 ＋ “ManaColor_99uxi.com.txt”, #蓝条颜色)
    ' 大地图单位
    写内存字节集 (war3Pid, game基址 ＋ 十六到十 (“39EBBC”), { 117 }, )

    写内存字节集 (war3Pid, game基址 ＋ 十六到十 (“3A2030”), { 144, 144 }, )

    写内存字节集 (war3Pid, game基址 ＋ 十六到十 (“3A20DB”), { 144, 144 }, )

    ' 大地图隐形
    写内存字节集 (war3Pid, game基址 ＋ 十六到十 (“362391”), { 59 }, )
    写内存字节集 (war3Pid, game基址 ＋ 十六到十 (“362394”), { 133 }, )
    写内存字节集 (war3Pid, game基址 ＋ 十六到十 (“39A51B”), { 144, 144, 144, 144, 144, 144 }, )
    写内存字节集 (war3Pid, game基址 ＋ 十六到十 (“39A52E”), { 144, 144, 144, 144, 144, 144, 144, 144, 51, 192, 64 }, )

这是什么语言代码，怎么是中文的？

15351732017 发表于 2016-11-10 16:16
这是什么语言代码，怎么是中文的？

这是国语。输入亚洲中GUO专属的一种语言。（C）