汇编_取类中变量地址 ; 乘法

呵呵仙

取类中变量地址,得到变量地址,并非没用,可以直接改变相关的数据.


ASM4(取类中变量地址).rar (7.29 KB, 下载次数: 67)

2016-3-23 11:01 上传

点击文件名下载附件

yiyi111122

谢谢分享

chaoke

非常不错！谢谢

肉鱼

呵呵仙 发表于 2016-3-26 19:24
[e=1].版本 2

.子程序 取类中变量地址_ASM, 整数型

这样是没问题的。别人说的崩溃估计是没释放原来的指针。是别人的问题
因为易语言中，非基本数据类型都是以指针方式储存的，比如a类中有个成员b为文本型，那么取到成员b的指针的值，实际为一个指针，指向一串以\0为结束标记的文本。如果用此方法置入新值而不释放原来的文本指针。内存飙升算是轻的了

呵呵仙

多发了一贴

呵呵仙

  

子程序名	返回值类型	公开	备 注
取类中变量地址_ASM	整数型
参数名	类 型	参考	可空	数组	备 注
类变量	通用型				类变量
第几个变量	整数型				取类中的第几个变量地址

置入代码 ({ 139, 69, 8, 139, 8, 139, 69, 12, 107, 192, 4, 1, 200, 201, 194, 8, 0 })
返回 (0)
' mov eax,[ebp+8]
' mov ecx,[eax]
' mov eax,[ebp+12]
' IMUL eax,4
' add  eax,ecx
' leave
' retn 8
' 谢谢,我是这样写的不知可不可以?

.版本 2<br /> <br /> .子程序 取类中变量地址_ASM, 整数型<br /> .参数 类变量, 通用型, 参考, 类变量<br /> .参数 第几个变量, 整数型, , 取类中的第几个变量地址<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 8, 139, 69, 12, 107, 192, 4, 1, 200, 201, 194, 8, 0 })<br /> 返回 (0)<br /> ' mov eax,[ebp+8]<br /> ' mov ecx,[eax]<br /> ' mov eax,[ebp+12]<br /> ' IMUL eax,4<br /> ' add  eax,ecx<br /> ' leave<br /> ' retn 8<br /> '谢谢,我是这样写的不知可不可以?

肉鱼

也可以这样，方法是一样的，没有乱用寄存

  

子程序名	返回值类型	公开	备 注
取私有成员指针	整数型
参数名	类 型	参考	可空	数组	备 注
类	通用型
成员索引

置入代码 ({ 139, 24, 139, 69, 12, 185, 4, 0, 0, 0, 247, 225, 1, 216, 201, 194, 8, 0 })
' mov ebx,[eax]
' mov eax,[ebp+0Ch]
' mov ecx,4
' mul ecx
' add eax,ebx
' leave
' ret 8
返回 (0)

.版本 2<br /> <br /> .子程序 取私有成员指针, 整数型, 公开<br /> .参数 类, 通用型, 参考<br /> .参数 成员索引<br /> <br /> 置入代码 ({ 139, 24, 139, 69, 12, 185, 4, 0, 0, 0, 247, 225, 1, 216, 201, 194, 8, 0 })<br /> ' mov ebx,[eax]<br /> ' mov eax,[ebp+0Ch]<br /> ' mov ecx,4<br /> ' mul ecx<br /> ' add eax,ebx<br /> ' leave<br /> ' ret 8<br /> 返回 (0)

肉鱼

如图所示，如果知道了类的This，This+0指向的地址是类的函数指针集，+4就是私有成员1的指针，+8就是成员2的指针。这样可以直接用乘法算。

肉鱼

呵呵仙 发表于 2016-3-25 23:14
你的英文子程序,还是看不明白.有人说我这个取类中变量地址_asm().乱用寄存器,以后会各种崩,我应 ...

没下载你的代码，但是我拷贝的代码中第一个子程序就是取类私有成员指针的：
返回 (指针到整数 (lpThis) ＋ 4 × index)

呵呵仙

肉鱼 发表于 2016-3-25 19:35
此处用汇编和直接算效率相差不大，另外调用一个函数后寄存器基本“小命不保”，实在想保存寄存器的值可以先 ...

你的英文子程序,还是看不明白.有人说我这个取类中变量地址_asm().乱用寄存器,以后会各种崩,我应该如何改进呢?谢谢
但是,我又试过N次计次和再次赋值也没出错.

肉鱼

不用汇编写法：

  

窗口程序集名	保 留	保 留	备 注
程序集_ObjSdk
变量名	类 型	数组	备 注
m_ThisObj		0
m_dwTypeObj		0

子程序名	返回值类型	公开	备 注
Obj_lpData	整数型
参数名	类 型	参考	可空	数组	备 注
lpThis
index

如果真 (lpThis ≠ 0)
返回 (指针到整数 (lpThis) ＋ 4 × index)
返回 (0)

子程序名	返回值类型	公开	备 注
Obj_GetData	整数型
参数名	类 型	参考	可空	数组	备 注
lpThis
index

变量名	类 型	静态	数组	备 注
lpData

lpData ＝ Obj_lpData (lpThis, index)
如果真 (lpData ≠ 0)
返回 (指针到整数 (lpData))
返回 (0)

子程序名	返回值类型	公开	备 注
Obj_SetData	整数型
参数名	类 型	参考	可空	数组	备 注
lpThis
index
dwValue

变量名	类 型	静态	数组	备 注
lpData
dwLast

lpData ＝ Obj_lpData (lpThis, index)
如果真 (lpData ≠ 0)
dwLast ＝ 指针到整数 (lpData)
写到内存 (dwValue, lpData, )
返回 (dwLast)

子程序名	返回值类型	公开	备 注
Obj_SetThis	整数型		成功返回LastThisDest
参数名	类 型	参考	可空	数组	备 注
lpThisDest
lpThisSrc					只需要一个指向ThisSrc的指针即可，不必要求一定是对象本身的lpThis

变量名	类 型	静态	数组	备 注
LastThis

如果真 (lpThisDest ＝ 0 或 lpThisSrc ＝ 0)
返回 (0)
LastThis ＝ 指针到整数 (lpThisDest)
写到内存 (指针到整数 (lpThisSrc), lpThisDest, )
返回 (LastThis)

子程序名	返回值类型	公开	备 注
Obj_GetMethodAddr	整数型
参数名	类 型	参考	可空	数组	备 注
lpThis
index

如果真 (lpThis ≠ 0)
返回 (指针到整数 (指针到整数 (指针到整数 (lpThis)) ＋ index × 4))
返回 (0)

子程序名	返回值类型	公开	备 注
Obj_CallMethod	整数型
参数名	类 型	参考	可空	数组	备 注
lpThis
index
Param01
Param02
Param03
Param04
Param05
Param06
Param07
Param08
Param09
Param10
Param11
Param12
Param13
Param14

变量名	类 型	静态	数组	备 注
addr

如果真 (lpThis ＝ 0)
返回 (0)
addr ＝ Obj_GetMethodAddr (lpThis, index)
如果真 (addr ＝ 0)
返回 (0)
返回 (Call (addr, lpThis, Param01, Param02, Param03, Param04, Param05, Param06, Param07, Param08, Param09, Param10, Param11, Param12, Param13, Param14))

子程序名	返回值类型	公开	备 注
Obj_Regist	逻辑型
参数名	类 型	参考	可空	数组	备 注
dwTypeObj
lpThisObj

变量名	类 型	静态	数组	备 注
i
This				-8

如果真 (lpThisObj ＝ 0 或 BinSearch (m_dwTypeObj, dwTypeObj, i) ≠ 0)
返回 (假)
插入成员 (m_dwTypeObj, i, dwTypeObj)
This ＝ 指针到整数 (lpThisObj)
置入代码 ({ 139, 69, 248, 139, 24, 255, 83, 4, 137, 69, 248 })
' mov eax,[ebp-8]
' mov ebx,[eax]
' call dword [ebx+4]
' mov [ebp-8],eax
插入成员 (m_ThisObj, i, This)
返回 (真)

子程序名	返回值类型	公开	备 注
Obj_Unregist	逻辑型
参数名	类 型	参考	可空	数组	备 注
dwTypeObj

变量名	类 型	静态	数组	备 注
i
lpThis

i ＝ BinSearch (m_dwTypeObj, dwTypeObj)
如果真 (i ＝ 0)
返回 (假)
lpThis ＝ GetStackPtr (m_ThisObj [i])
如果真 (Obj_Destroy (lpThis))
删除成员 (m_dwTypeObj, i, )
删除成员 (m_ThisObj, i, )
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
Obj_UnregistAll

子程序名	返回值类型	公开	备 注
Obj_Create	整数型		创建一个已注册的类，成功返回lpThis，失败返回0
参数名	类 型	参考	可空	数组	备 注
dwObjType

变量名	类 型	静态	数组	备 注
i
This

i ＝ BinSearch (m_dwTypeObj, dwObjType)
如果真 (i ＝ 0)
返回 (0)
This ＝ m_ThisObj [i]
置入代码 ({ 139, 69, 248, 139, 24, 255, 83, 4, 137, 69, 248 })
' mov eax,[ebp-8]
' mov ebx,[eax]
' call dword [ebx+4]
' mov [ebp-8],eax
i ＝ 申请内存_ (4)
如果真 (i ≠ 0)
写到内存 (This, i, )
返回 (i)

子程序名	返回值类型	公开	备 注
Obj_Destroy	逻辑型
参数名	类 型	参考	可空	数组	备 注
lpThis

变量名	类 型	静态	数组	备 注
This

如果真 (lpThis ＝ 0)
返回 (假)
This ＝ 指针到整数 (lpThis)
置入代码 ({ 139, 69, 252, 139, 24, 141, 69, 252, 80, 255, 83, 8 })
' mov eax,[ebp-4]
' mov ebx,[eax]
' lea eax,[ebp-4]
' push eax
' call dword [ebx+8]
释放内存_ (lpThis)
返回 (释放内存_ (This))

.版本 2<br /> <br /> .程序集 程序集_ObjSdk<br /> .程序集变量 m_ThisObj, , , "0"<br /> .程序集变量 m_dwTypeObj, , , "0"<br /> <br /> .子程序 Obj_lpData, 整数型, 公开<br /> .参数 lpThis<br /> .参数 index<br /> <br /> .如果真 (lpThis ≠ 0)<br />     返回 (指针到整数 (lpThis) ＋ 4 × index)<br /> .如果真结束<br /> 返回 (0)<br /> <br /> .子程序 Obj_GetData, 整数型, 公开<br /> .参数 lpThis<br /> .参数 index<br /> .局部变量 lpData<br /> <br /> lpData ＝ Obj_lpData (lpThis, index)<br /> .如果真 (lpData ≠ 0)<br />     返回 (指针到整数 (lpData))<br /> .如果真结束<br /> 返回 (0)<br /> <br /> .子程序 Obj_SetData, 整数型, 公开<br /> .参数 lpThis<br /> .参数 index<br /> .参数 dwValue<br /> .局部变量 lpData<br /> .局部变量 dwLast<br /> <br /> lpData ＝ Obj_lpData (lpThis, index)<br /> .如果真 (lpData ≠ 0)<br />     dwLast ＝ 指针到整数 (lpData)<br />     写到内存 (dwValue, lpData, )<br /> .如果真结束<br /> 返回 (dwLast)<br /> <br /> .子程序 Obj_SetThis, 整数型, 公开, 成功返回LastThisDest<br /> .参数 lpThisDest<br /> .参数 lpThisSrc, , , 只需要一个指向ThisSrc的指针即可，不必要求一定是对象本身的lpThis<br /> .局部变量 LastThis<br /> <br /> .如果真 (lpThisDest ＝ 0 或 lpThisSrc ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> LastThis ＝ 指针到整数 (lpThisDest)<br /> 写到内存 (指针到整数 (lpThisSrc), lpThisDest, )<br /> 返回 (LastThis)<br /> <br /> .子程序 Obj_GetMethodAddr, 整数型, 公开<br /> .参数 lpThis<br /> .参数 index<br /> <br /> .如果真 (lpThis ≠ 0)<br />     返回 (指针到整数 (指针到整数 (指针到整数 (lpThis)) ＋ index × 4))<br /> .如果真结束<br /> 返回 (0)<br /> <br /> .子程序 Obj_CallMethod, 整数型, 公开<br /> .参数 lpThis<br /> .参数 index<br /> .参数 Param01, , 可空<br /> .参数 Param02, , 可空<br /> .参数 Param03, , 可空<br /> .参数 Param04, , 可空<br /> .参数 Param05, , 可空<br /> .参数 Param06, , 可空<br /> .参数 Param07, , 可空<br /> .参数 Param08, , 可空<br /> .参数 Param09, , 可空<br /> .参数 Param10, , 可空<br /> .参数 Param11, , 可空<br /> .参数 Param12, , 可空<br /> .参数 Param13, , 可空<br /> .参数 Param14, , 可空<br /> .局部变量 addr<br /> <br /> .如果真 (lpThis ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> addr ＝ Obj_GetMethodAddr (lpThis, index)<br /> .如果真 (addr ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> 返回 (Call (addr, lpThis, Param01, Param02, Param03, Param04, Param05, Param06, Param07, Param08, Param09, Param10, Param11, Param12, Param13, Param14))<br /> <br /> .子程序 Obj_Regist, 逻辑型, 公开<br /> .参数 dwTypeObj<br /> .参数 lpThisObj<br /> .局部变量 i<br /> .局部变量 This, , , , -8<br /> <br /> .如果真 (lpThisObj ＝ 0 或 BinSearch (m_dwTypeObj, dwTypeObj, i) ≠ 0)<br />     返回 (假)<br /> .如果真结束<br /> 插入成员 (m_dwTypeObj, i, dwTypeObj)<br /> This ＝ 指针到整数 (lpThisObj)<br /> 置入代码 ({ 139, 69, 248, 139, 24, 255, 83, 4, 137, 69, 248 })<br /> ' mov eax,[ebp-8]<br /> ' mov ebx,[eax]<br /> ' call dword [ebx+4]<br /> ' mov [ebp-8],eax<br /> 插入成员 (m_ThisObj, i, This)<br /> 返回 (真)<br /> <br /> .子程序 Obj_Unregist, 逻辑型, 公开<br /> .参数 dwTypeObj<br /> .局部变量 i<br /> .局部变量 lpThis<br /> <br /> i ＝ BinSearch (m_dwTypeObj, dwTypeObj)<br /> .如果真 (i ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> lpThis ＝ GetStackPtr (m_ThisObj <i>)<br /> .如果真 (Obj_Destroy (lpThis))<br />     删除成员 (m_dwTypeObj, i, )<br />     删除成员 (m_ThisObj, i, )<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 Obj_UnregistAll, , 公开<br /> <br /> <br /> <br /> .子程序 Obj_Create, 整数型, 公开, 创建一个已注册的类，成功返回lpThis，失败返回0<br /> .参数 dwObjType<br /> .局部变量 i<br /> .局部变量 This<br /> <br /> i ＝ BinSearch (m_dwTypeObj, dwObjType)<br /> .如果真 (i ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> This ＝ m_ThisObj <i><br /> 置入代码 ({ 139, 69, 248, 139, 24, 255, 83, 4, 137, 69, 248 })<br /> ' mov eax,[ebp-8]<br /> ' mov ebx,[eax]<br /> ' call dword [ebx+4]<br /> ' mov [ebp-8],eax<br /> i ＝ 申请内存_ (4)<br /> .如果真 (i ≠ 0)<br />     写到内存 (This, i, )<br /> .如果真结束<br /> 返回 (i)<br /> <br /> .子程序 Obj_Destroy, 逻辑型, 公开<br /> .参数 lpThis<br /> .局部变量 This<br /> <br /> .如果真 (lpThis ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> This ＝ 指针到整数 (lpThis)<br /> 置入代码 ({ 139, 69, 252, 139, 24, 141, 69, 252, 80, 255, 83, 8 })<br /> ' mov eax,[ebp-4]<br /> ' mov ebx,[eax]<br /> ' lea eax,[ebp-4]<br /> ' push eax<br /> ' call dword [ebx+8]<br /> 释放内存_ (lpThis)<br /> 返回 (释放内存_ (This))