【蠢新学汇编】取子程序指针 の 四种姿势

笨来无一悟

曾经走过的弯路 邀请大家一起走走


最方便的方法是安装汇编插件 直接就能取


之所以非得追求不用汇编插件的写法 是因为之前写的源码发给别人 别人跑不起来


有人不学汇编也不安装插件 所以就很麻


哪怕我写的代码是坨屎 我也要在屎上雕朵花再次优化如下↓

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
下行地址	子程序指针
本层地址	子程序指针

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

回调测试 (&套娃测试)
回调测试 (&首参测试)
下行地址 ＝ 取下层测试地址 ()
回调测试 (下行地址)
本层测试 ({  })  ' 启动窗口创建完毕 执行一次 就可以了 里面套的参数值为0 就获取了再返回 不会继续执行 没有副作用
回调测试 (本层地址)

子程序名	返回值类型	公开	备 注
回调测试
参数名	类 型	参考	可空	数组	备 注
回调指针	子程序指针

变量名	类 型	静态	数组	备 注
计次	整数型
数组	整数型		0

计次循环首 (5, 计次)
加入成员 (数组, 计次)
调用子程序 (回调指针, , , 取变量地址 (数组))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
套娃测试
参数名	类 型	参考	可空	数组	备 注
参数一	整数型

套娃 ({  })

子程序名	返回值类型	公开	备 注
套娃			参数任意传 反正解套之后参数的指针会变成上层函数的参数指针
参数名	类 型	参考	可空	数组	备 注
数组	整数型				参数可以是任意类型 非数值类/字节集 其他类型请传局部静态变量

解套 ()  ' 解套之后 本层子程序 局部变量 和 参数 等价于上层子程序
调试输出 (数组, “参 数”)

子程序名	返回值类型	公开	备 注
解套			本层转上层

置入代码 ({ 93, 139, 109, 0, 195 })
' POP EBP
' MOV EBP,[EBP]
' RET

子程序名	返回值类型	公开	备 注
首参测试
参数名	类 型	参考	可空	数组	备 注
参数一	整数型

变量名	类 型	静态	数组	备 注
首变量	整数型		0	如果存在其他局部变量 那就优先显式调用一次这个变量 因为易语言把第一个被调用的当成 [ebp-4]

首参到首变量_获取 ()
调试输出 (首变量, “变 量”)
首参到首变量_释放 ()

子程序名	返回值类型	公开	备 注
首参到首变量_获取			首参须指针

置入代码 ({ 93, 139, 69, 8, 139, 0, 137, 69, 252, 195 })
' POP EBP
' MOV EAX,[EBP+8]
' MOV EAX,[EAX]
' MOV DWORD [EBP-4],EAX
' RET

子程序名	返回值类型	公开	备 注
首参到首变量_释放			变量空指针

置入代码 ({ 139, 101, 0, 199, 68, 36, 252, 0, 0, 0, 0 })
' MOV ESP,[EBP]
' MOV DWORD [ESP-4],0

子程序名	返回值类型	公开	备 注
取下层测试地址	子程序指针		针对 参数为 字节集 数组 或者 自定义类型

变量名	类 型	静态	数组	备 注
数组	整数型		0

返回 (下层地址 ())  ' 除了局部自定义非静态 别的都能获取 因为局部非静态自定义数据会call一个 构造函数(自定义数据类型初始化)
下层测试 (数组)  ' 取指针的时候比另外三种麻烦 但是效率比另外三种高

子程序名	返回值类型	公开	备 注
下层测试	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型

调试输出 (参数一, “下 层”)
返回 (0)

子程序名	返回值类型	公开	备 注
下层地址	子程序指针		返回(下层地址()) 所取子程序(须带参数,来源不限) 若传局部变量必须静态

置入代码 ({ 83, 81, 82, 139, 69, 4 })
' PUSH EBX
' PUSH ECX
' PUSH EDX
' MOV EAX,DWORD [EBP+4]
置入代码 ({ 64, 128, 56, 195, 117, 34, 128, 120, 255, 93, 117, 244, 128, 120, 254, 229, 117, 8, 128, 120, 253, 139, 117, 232, 235, 50 })
' 向下:
' INC EAX
' CMP BYTE[EAX],195
' JNE 带参
' 平栈:
' CMP BYTE[EAX-1],93
' JNE 向下
' CMP BYTE[EAX-2],229
' JNE 等价
' CMP BYTE[EAX-3],139
' JNE 向下
' JMP 向上
置入代码 ({ 128, 120, 254, 236, 117, 224, 128, 120, 253, 137, 117, 218, 235, 36 })
' 等价:
' CMP BYTE[EAX-2],236
' JNE 向下
' CMP BYTE[EAX-3],137
' JNE 向下
' JMP 向上
置入代码 ({ 128, 56, 194, 117, 211, 128, 120, 2, 0, 117, 205, 137, 193, 80, 49, 210, 49, 192, 138, 65, 1, 187, 4, 0, 0, 0, 247, 243, 88, 131, 250, 0, 117, 182, 235, 186 })
' 带参:
' CMP BYTE[EAX],194
' JNE 向下
' CMP BYTE [EAX+2],0
' JNE 向下
' MOV ECX,EAX
' PUSH EAX
' XOR EDX,EDX
' XOR EAX,EAX
' MOV AL,BYTE [ECX+1]
' MOV EBX,4
' DIV EBX
' POP EAX
' CMP EDX,0
' JNE 向下
' JMP 平栈
置入代码 ({ 72, 128, 56, 232, 117, 250, 128, 120, 251, 104, 117, 2, 235, 12 })
' 向上:
' DEC EAX
' CMP BYTE [EAX],232
' JNE 向上
' CMP BYTE[EAX-5],104
' JNE 传参
' JMP 找到
置入代码 ({ 128, 120, 253, 255, 117, 236, 128, 120, 254, 117, 117, 230, 139, 72, 1, 141, 76, 8, 5, 128, 57, 85, 117, 218 })
' 传参:
' CMP BYTE[EAX-3],255
' JNE 向上
' CMP BYTE[EAX-2],117
' JNE 向上
' 找到:
' MOV ECX,DWORD [EAX+1]
' LEA ECX,DWORD [EAX+ECX+5]
' CMP BYTE [ECX],85
' JNE 向上
置入代码 ({ 137, 200, 90, 89, 91, 201, 195 })
' MOV EAX,ECX
' POP EDX
' POP ECX
' POP EBX
' LEAVE
' RET
返回 (&下层地址)

子程序名	返回值类型	公开	备 注
下层地址_简版	子程序指针		返回(下层地址_简版()) 所取子程序(须带参数,且,来自局部) 需传静态变量

置入代码 ({ 81, 139, 69, 4, 64, 128, 56, 232, 117, 250, 128, 120, 251, 104, 117, 244, 139, 72, 1, 141, 76, 8, 5, 128, 57, 85, 117, 232, 137, 200, 89, 201, 195 })
返回 (&下层地址_简版)
' PUSH ECX
' MOV EAX, DWORD [EBP+4]
' 向下:
' INC EAX
' CMP BYTE[EAX],232
' JNE 向下
' CMP BYTE[EAX-5],104
' JNE 向下
' MOV ECX, DWORD [EAX+1]
' LEA ECX, DWORD [EAX+ECX+5]
' CMP BYTE [ECX],85
' JNE 向下
' MOV EAX, ECX
' POP ECX
' LEAVE
' RET

子程序名	返回值类型	公开	备 注
本层测试
参数名	类 型	参考	可空	数组	备 注
参数一	整数型

本层地址 (本层地址)  ' 本层地址 ( ) 里面的参数 数值为0就执行获取地址 取得地址之后绕行 非0则继续正常执行
调试输出 (参数一, “本 层”)

子程序名	返回值类型	公开	备 注
本层地址			参数只接受 整数型 子程序指针
参数名	类 型	参考	可空	数组	备 注
为零则取	通用型				程序集变量 或 全局变量

置入代码 ({ 139, 85, 8, 139, 2, 133, 192, 117, 53, 54, 139, 69, 0, 62, 139, 64, 4, 62, 3, 64, 252, 137, 2, 201, 90, 131, 196, 4 })
' MOV EDX,[EBP+8]
' MOV EAX,[EDX]
' TEST EAX,EAX
' JNE 不取
' MOV EAX, DWORD PTR SS:[EBP]
' MOV EAX, DWORD PTR DS:[EAX+4]
' ADD EAX, DWORD PTR DS:[EAX-4]
' MOV DWORD [EDX],EAX
' LEAVE
' POP EDX
' ADD ESP,4
置入代码 ({ 66, 128, 58, 139, 117, 250, 128, 122, 1, 229, 117, 244, 128, 122, 2, 93, 117, 238, 128, 122, 3, 195, 117, 2, 255, 226, 128, 122, 3, 194, 117, 224, 255, 226, 201, 194, 4, 0 })
' 循环:
' INC EDX
' CMP BYTE [EDX],139
' JNE 循环
' CMP BYTE [EDX+1],229
' JNE 循环
' CMP BYTE [EDX+2],93
' JNE 循环
' CMP BYTE [EDX+3],195
' JNE 有参
' JMP EDX
' 有参:
' CMP BYTE [EDX+3],194
' JNE 循环
' JMP EDX
' 不取:
' LEAVE
' RET 4

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 下行地址, 子程序指针<br /> .程序集变量 本层地址, 子程序指针<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 回调测试 (&套娃测试)<br /> <br /> 回调测试 (&首参测试)<br /> <br /> 下行地址 ＝ 取下层测试地址 ()<br /> 回调测试 (下行地址)<br /> <br /> 本层测试 ({  })  ' 启动窗口创建完毕 执行一次 就可以了 里面套的参数值为0 就获取了再返回 不会继续执行 没有副作用<br /> 回调测试 (本层地址)<br /> <br /> .子程序 回调测试<br /> .参数 回调指针, 子程序指针<br /> .局部变量 计次, 整数型<br /> .局部变量 数组, 整数型, , "0"<br /> <br /> .计次循环首 (5, 计次)<br />     加入成员 (数组, 计次)<br />     调用子程序 (回调指针, , , 取变量地址 (数组))<br /> .计次循环尾 ()<br /> <br /> .子程序 套娃测试<br /> .参数 参数一, 整数型<br /> <br /> 套娃 ({  })<br /> <br /> .子程序 套娃, , , 参数任意传 反正解套之后参数的指针会变成上层函数的参数指针<br /> .参数 数组, 整数型, 数组, 参数可以是任意类型 非数值类/字节集 其他类型请传局部静态变量<br /> <br /> 解套 ()  ' 解套之后 本层子程序 局部变量 和 参数 等价于上层子程序<br /> 调试输出 (数组, “参 数”)<br /> <br /> .子程序 解套, , 公开, 本层转上层<br /> <br /> 置入代码 ({ 93, 139, 109, 0, 195 })<br /> ' POP EBP<br /> ' MOV EBP,[EBP]<br /> ' RET<br /> <br /> .子程序 首参测试<br /> .参数 参数一, 整数型<br /> .局部变量 首变量, 整数型, , "0", 如果存在其他局部变量 那就优先显式调用一次这个变量 因为易语言把第一个被调用的当成 [ebp-4]<br /> <br /> 首参到首变量_获取 ()<br /> 调试输出 (首变量, “变 量”)<br /> 首参到首变量_释放 ()<br /> <br /> .子程序 首参到首变量_获取, , 公开, 首参须指针<br /> <br /> 置入代码 ({ 93, 139, 69, 8, 139, 0, 137, 69, 252, 195 })<br /> ' POP EBP<br /> ' MOV EAX,[EBP+8]<br /> ' MOV EAX,[EAX]<br /> ' MOV DWORD [EBP-4],EAX<br /> ' RET<br /> <br /> .子程序 首参到首变量_释放, , 公开, 变量空指针<br /> <br /> 置入代码 ({ 139, 101, 0, 199, 68, 36, 252, 0, 0, 0, 0 })<br /> ' MOV ESP,[EBP]<br /> ' MOV DWORD [ESP-4],0<br /> <br /> .子程序 取下层测试地址, 子程序指针, , 针对 参数为 字节集 数组 或者 自定义类型<br /> .局部变量 数组, 整数型, 静态, "0"<br /> <br /> 返回 (下层地址 ())  ' 除了局部自定义非静态 别的都能获取 因为局部非静态自定义数据会call一个 构造函数(自定义数据类型初始化)<br /> 下层测试 (数组)  ' 取指针的时候比另外三种麻烦 但是效率比另外三种高<br /> <br /> .子程序 下层测试, 整数型<br /> .参数 参数一, 整数型, 数组<br /> <br /> 调试输出 (参数一, “下 层”)<br /> 返回 (0)<br /> <br /> .子程序 下层地址, 子程序指针, , 返回(下层地址()) 所取子程序(须带参数,来源不限) 若传局部变量必须静态<br /> <br /> 置入代码 ({ 83, 81, 82, 139, 69, 4 })<br /> ' PUSH EBX<br /> ' PUSH ECX<br /> ' PUSH EDX<br /> ' MOV EAX,DWORD [EBP+4]<br /> 置入代码 ({ 64, 128, 56, 195, 117, 34, 128, 120, 255, 93, 117, 244, 128, 120, 254, 229, 117, 8, 128, 120, 253, 139, 117, 232, 235, 50 })<br /> ' 向下:<br /> ' INC EAX<br /> ' CMP BYTE[EAX],195<br /> ' JNE 带参<br /> ' 平栈:<br /> ' CMP BYTE[EAX-1],93<br /> ' JNE 向下<br /> ' CMP BYTE[EAX-2],229<br /> ' JNE 等价<br /> ' CMP BYTE[EAX-3],139<br /> ' JNE 向下<br /> ' JMP 向上<br /> 置入代码 ({ 128, 120, 254, 236, 117, 224, 128, 120, 253, 137, 117, 218, 235, 36 })<br /> ' 等价:<br /> ' CMP BYTE[EAX-2],236<br /> ' JNE 向下<br /> ' CMP BYTE[EAX-3],137<br /> ' JNE 向下<br /> ' JMP 向上<br /> 置入代码 ({ 128, 56, 194, 117, 211, 128, 120, 2, 0, 117, 205, 137, 193, 80, 49, 210, 49, 192, 138, 65, 1, 187, 4, 0, 0, 0, 247, 243, 88, 131, 250, 0, 117, 182, 235, 186 })<br /> ' 带参:<br /> ' CMP BYTE[EAX],194<br /> ' JNE 向下<br /> ' CMP BYTE [EAX+2],0<br /> ' JNE 向下<br /> ' MOV ECX,EAX<br /> ' PUSH EAX<br /> ' XOR EDX,EDX<br /> ' XOR EAX,EAX<br /> ' MOV AL,BYTE [ECX+1]<br /> ' MOV EBX,4<br /> ' DIV EBX<br /> ' POP EAX<br /> ' CMP EDX,0<br /> ' JNE 向下<br /> ' JMP 平栈<br /> 置入代码 ({ 72, 128, 56, 232, 117, 250, 128, 120, 251, 104, 117, 2, 235, 12 })<br /> ' 向上:<br /> ' DEC EAX<br /> ' CMP BYTE [EAX],232<br /> ' JNE 向上<br /> ' CMP BYTE[EAX-5],104<br /> ' JNE 传参<br /> ' JMP 找到<br /> 置入代码 ({ 128, 120, 253, 255, 117, 236, 128, 120, 254, 117, 117, 230, 139, 72, 1, 141, 76, 8, 5, 128, 57, 85, 117, 218 })<br /> ' 传参:<br /> ' CMP BYTE[EAX-3],255<br /> ' JNE 向上<br /> ' CMP BYTE[EAX-2],117<br /> ' JNE 向上<br /> ' 找到:<br /> ' MOV ECX,DWORD [EAX+1]<br /> ' LEA ECX,DWORD [EAX+ECX+5]<br /> ' CMP BYTE [ECX],85<br /> ' JNE 向上<br /> 置入代码 ({ 137, 200, 90, 89, 91, 201, 195 })<br /> ' MOV EAX,ECX<br /> ' POP EDX<br /> ' POP ECX<br /> ' POP EBX<br /> ' LEAVE<br /> ' RET<br /> 返回 (&下层地址)<br /> <br /> .子程序 下层地址_简版, 子程序指针, , 返回(下层地址_简版()) 所取子程序(须带参数,且,来自局部) 需传静态变量<br /> <br /> 置入代码 ({ 81, 139, 69, 4, 64, 128, 56, 232, 117, 250, 128, 120, 251, 104, 117, 244, 139, 72, 1, 141, 76, 8, 5, 128, 57, 85, 117, 232, 137, 200, 89, 201, 195 })<br /> 返回 (&下层地址_简版)<br /> ' PUSH ECX<br /> ' MOV EAX, DWORD [EBP+4]<br /> ' 向下:<br /> ' INC EAX<br /> ' CMP BYTE[EAX],232<br /> ' JNE 向下<br /> ' CMP BYTE[EAX-5],104<br /> ' JNE 向下<br /> ' MOV ECX, DWORD [EAX+1]<br /> ' LEA ECX, DWORD [EAX+ECX+5]<br /> ' CMP BYTE [ECX],85<br /> ' JNE 向下<br /> ' MOV EAX, ECX<br /> ' POP ECX<br /> ' LEAVE<br /> ' RET<br /> <br /> .子程序 本层测试<br /> .参数 参数一, 整数型, 数组<br /> <br /> 本层地址 (本层地址)  ' 本层地址 ( ) 里面的参数 数值为0就执行获取地址 取得地址之后绕行 非0则继续正常执行<br /> 调试输出 (参数一, “本 层”)<br /> <br /> .子程序 本层地址, , 公开, 参数只接受 整数型 子程序指针<br /> .参数 为零则取, 通用型, 参考, 程序集变量 或 全局变量<br /> <br /> 置入代码 ({ 139, 85, 8, 139, 2, 133, 192, 117, 53, 54, 139, 69, 0, 62, 139, 64, 4, 62, 3, 64, 252, 137, 2, 201, 90, 131, 196, 4 })<br /> ' MOV EDX,[EBP+8]<br /> ' MOV EAX,[EDX]<br /> ' TEST EAX,EAX<br /> ' JNE 不取<br /> ' MOV EAX, DWORD PTR SS:[EBP]<br /> ' MOV EAX, DWORD PTR DS:[EAX+4]<br /> ' ADD EAX, DWORD PTR DS:[EAX-4]<br /> ' MOV DWORD [EDX],EAX<br /> ' LEAVE<br /> ' POP EDX<br /> ' ADD ESP,4<br /> 置入代码 ({ 66, 128, 58, 139, 117, 250, 128, 122, 1, 229, 117, 244, 128, 122, 2, 93, 117, 238, 128, 122, 3, 195, 117, 2, 255, 226, 128, 122, 3, 194, 117, 224, 255, 226, 201, 194, 4, 0 })<br /> ' 循环:<br /> ' INC EDX<br /> ' CMP BYTE [EDX],139<br /> ' JNE 循环<br /> ' CMP BYTE [EDX+1],229<br /> ' JNE 循环<br /> ' CMP BYTE [EDX+2],93<br /> ' JNE 循环<br /> ' CMP BYTE [EDX+3],195<br /> ' JNE 有参<br /> ' JMP EDX<br /> ' 有参:<br /> ' CMP BYTE [EDX+3],194<br /> ' JNE 循环<br /> ' JMP EDX<br /> ' 不取:<br /> ' LEAVE<br /> ' RET 4

来自群组: 热心网友

wiwj2323

不明觉厉，谢谢分享！

用LOvE寫歌

支持开源~！感谢分享    支持开源~！感谢分享

用LOvE寫歌

    支持开源~！感谢分享    支持开源~！感谢分享

不离01

66666666666666666666666

wuxinglong71

        支持开源~！感谢分享

year1970

感谢分享

bianyuan456

请问楼主，为啥我复制代码编译，提示
错误(4): 没有找到名为“通用型”的数据类型。
而直接下载你的源码，编译就能运行，为啥呢！？
通用型 的类型怎么会没有呢！？请楼主给我解答一下，我给楼主加精币！谢谢

bianyuan456

已经顶贴，感谢您对论坛的支持！

亿万

感谢分享