| 查看: 551 | 回复: 0 | |||
| 当前主题已经存档。 | |||
sdlj8051金虫 (著名写手)
|
[交流]
[转贴]VB程序逆向浅析
|
||
|
--------------------------------前言-------------------------------- 最近心情很乱，这篇帖子写的也一定条理不清。不过我的目的只是当一个引子，以引出更好的的帖子出来，所以在前面先说声抱歉了。 命运这东西有时很难捉摸，很多事并不按你想的那样发展。未来的路会如何呢？反正我不知道，我懒得去想... ---------------------------让一切从代码开始------------------------- 这段代码很简单，新建一个窗体，然后放上两个Text控件和一个Command控件，然后在Command控件的事件里写下下面的代码： Private Sub Command1_Click() Dim a, b As Integer a = CInt(Text1.Text) b = a + 10 Text2.Text = CStr(b) End Sub 一切都足够了，然后我们看一下反汇编代码。 text:00401DB0 push ebp .text:00401DB1 mov ebp, esp .text:00401DB3 sub esp, 0Ch .text:00401DB6 push (offset dword_4010B4+2) .text:00401DBB mov eax, large fs:0 .text:00401DC1 push eax .text:00401DC2 mov large fs:0, esp .text:00401DC9 sub esp, 4Ch .text:00401DCC push ebx .text:00401DCD push esi .text:00401DCE push edi .text:00401DCF mov [ebp-0Ch], esp .text:00401DD2 mov dword ptr [ebp-8], offset dword_4010A0 .text:00401DD9 mov esi, [ebp+8] //[ebp+8]里是什么呢？其实这里就是VB中的me .text:00401DDC mov eax, esi .text:00401DDE and eax, 1 .text:00401DE1 mov [ebp-4], eax .text:00401DE4 and esi, 0FFFFFFFEh .text:00401DE7 push esi .text:00401DE8 mov [ebp+8], esi .text:00401DEB mov ecx, [esi] .text:00401DED call dword ptr [ecx+4] //EVENT_SINK_AddRef //每个vb程序的事件里都有这么一段 .text:00401DF0 mov edx, [esi] .text:00401DF2 xor eax, eax .text:00401DF4 push esi .text:00401DF5 mov [ebp-24h], eax .text:00401DF8 mov [ebp-2Ch], eax .text:00401DFB mov [ebp-30h], eax .text:00401DFE mov [ebp-40h], eax .text:00401E01 mov [ebp-50h], eax .text:00401E04 call dword ptr [edx+2FCh] //获得TEXT1对象 .text:00401E0A mov ebx, ds:__vbaObjSet .text:00401E10 push eax .text:00401E11 lea eax, [ebp-30h] .text:00401E14 push eax .text:00401E15 call ebx ; __vbaObjSet //[ebp-30h]是临时的对象变量，保存获得的TEXT对象 .text:00401E17 mov edi, eax .text:00401E19 lea edx, [ebp-2Ch] //缓冲区 .text:00401E1C push edx .text:00401E1D push edi .text:00401E1E mov ecx, [edi] .text:00401E20 call dword ptr [ecx+0A0h] //get__ipropTEXTEDIT(void *) 接收TEXT控件的text属性 .text:00401E26 test eax, eax .text:00401E28 fnclex .text:00401E2A jge short loc_401E3E .text:00401E2C push 0A0h .text:00401E31 push offset dword_40181C //注意这个，一会下面要讲到 .text:00401E36 push edi .text:00401E37 push eax .text:00401E38 call ds:__vbaHresultCheckObj .text:00401E3E .text:00401E3E loc_401E3E: .text:00401E3E mov eax, [ebp-2Ch] .text:00401E41 push eax .text:00401E42 call ds:__vbaI2Str //text的内容转换成整数 .text:00401E48 mov edi, 2 .text:00401E4D lea edx, [ebp-50h] .text:00401E50 lea ecx, [ebp-24h] .text:00401E53 mov [ebp-48h], ax //转换成的整数 .text:00401E57 mov [ebp-50h], edi //类型，2代表整数 //象这样的代码经常见到，这里实际上是在堆栈上构造一个 //临时的变量。 .text:00401E5A call ds:__vbaVarMove //把edx指向的变量复制的ecx指向的地方 .text:00401E60 lea ecx, [ebp-2Ch] .text:00401E63 call ds:__vbaFreeStr //释放字符串变量 .text:00401E69 lea ecx, [ebp-30h] .text:00401E6C call ds:__vbaFreeObj //释放对象变量 .text:00401E72 lea ecx, [ebp-24h] //变量1 .text:00401E75 lea edx, [ebp-50h] .text:00401E78 push ecx .text:00401E79 lea eax, [ebp-40h] .text:00401E7C push edx .text:00401E7D push eax .text:00401E7E mov dword ptr [ebp-48h], 0Ah .text:00401E85 mov [ebp-50h], edi //这里构造整数变量10 .text:00401E88 call ds:__vbaVarAdd //两个变量相加 //上面的[ebp-50h]是保存结果的，eax同时也是结果， //vb中的运算大多都这样 .text:00401E8E push eax .text:00401E8F call ds:__vbaI2Var //结果取在eax中 .text:00401E95 lea ecx, [ebp-40h] .text:00401E98 mov edi, eax //先保存在edi .text:00401E9A call ds:__vbaFreeVar //尽管这个变量是临时的，仍然需要释放 .text:00401EA0 mov ecx, [esi] .text:00401EA2 push esi .text:00401EA3 call dword ptr [ecx+300h] //获得TEXT2对象 .text:00401EA9 lea edx, [ebp-30h] .text:00401EAC push eax .text:00401EAD push edx .text:00401EAE call ebx ; __vbaObjSet //获得的TEXT2对象保存在临时对象变量[ebp-30h]中 .text:00401EB0 mov esi, eax .text:00401EB2 push edi .text:00401EB3 mov ebx, [esi] .text:00401EB5 call ds:__vbaStrI2 //保存在edi中的结果转换成字符串 .text:00401EBB mov edx, eax .text:00401EBD lea ecx, [ebp-2Ch] .text:00401EC0 call ds:__vbaStrMove //赋值给[ebp-2ch] .text:00401EC6 push eax .text:00401EC7 push esi .text:00401EC8 call dword ptr [ebx+0A4h] //put__ipropTEXTEDIT(long) 字符串赋值给text2控件 .text:00401ECE test eax, eax .text:00401ED0 fnclex .text:00401ED2 jge short loc_401EE6 .text:00401ED4 push 0A4h .text:00401ED9 push offset dword_40181C .text:00401EDE push esi .text:00401EDF push eax .text:00401EE0 call ds:__vbaHresultCheckObj //注意这个 .text:00401EE6 .text:00401EE6 loc_401EE6: .text:00401EE6 lea ecx, [ebp-2Ch] .text:00401EE9 call ds:__vbaFreeStr //释放字符串变量 .text:00401EEF lea ecx, [ebp-30h] .text:00401EF2 call ds:__vbaFreeObj //释放对象变量 .text:00401EF8 mov dword ptr [ebp-4], 0 .text:00401EFF push offset loc_401F2C .text:00401F04 jmp short loc_401F22 .text:00401F06 lea ecx, [ebp-2Ch] .text:00401F09 call ds:__vbaFreeStr .text:00401F0F lea ecx, [ebp-30h] .text:00401F12 call ds:__vbaFreeObj .text:00401F18 lea ecx, [ebp-40h] .text:00401F1B call ds:__vbaFreeVar .text:00401F21 retn .text:00401F22 .text:00401F22 loc_401F22: .text:00401F22 lea ecx, [ebp-24h] .text:00401F25 call ds:__vbaFreeVar //释放临时变量 .text:00401F2B retn .text:00401F2C .text:00401F2C loc_401F2C: .text:00401F2C mov eax, [ebp+8] .text:00401F2F push eax .text:00401F30 mov ecx, [eax] .text:00401F32 call dword ptr [ecx+8] //EVENT_SINK_Release .text:00401F35 mov eax, [ebp-4] .text:00401F38 mov ecx, [ebp-14h] .text:00401F3B pop edi .text:00401F3C pop esi .text:00401F3D mov large fs:0, ecx .text:00401F44 pop ebx .text:00401F45 mov esp, ebp .text:00401F47 pop ebp .text:00401F48 retn 4 看完这一段后您脑子里大概充满了问号。那些注释是怎么回事？接着往下看。 ------------------------VB内部控件浅探--------------------------------- 如果您安装了vb6，在安装目录下您能找到一个vb6.olb的文件。没错，这个文件里有内部控件的接口信息。不过这个文件只保存了内部控件的接口信息。我们知道，接口只是一种定义，实现这个接口的代码是另一回事，VB中实现这个接口的代码在msvbvm60.dll里。在msvbvm60.dll里使用了一些类来实现vb的内部控件。幸运的是，实现vb的内部控件的属性的函数全部是虚函数，这就是说只要找到它的虚函数表就可以了。 我反汇编了msvbvm60.dll，并且找到了大部分的实现内部控件的属性的函数，这些函数您可以在附件中找到。 好像说的有些远了。先回头看看上面的代码: .text:00401DF0 mov edx, [esi] .text:00401DF2 xor eax, eax .text:00401DF4 push esi .text:00401DF5 mov [ebp-24h], eax .text:00401DF8 mov [ebp-2Ch], eax .text:00401DFB mov [ebp-30h], eax .text:00401DFE mov [ebp-40h], eax .text:00401E01 mov [ebp-50h], eax .text:00401E04 call dword ptr [edx+2FCh] //获得TEXT1对象 .text:00401E0A mov ebx, ds:__vbaObjSet .text:00401E10 push eax .text:00401E11 lea eax, [ebp-30h] .text:00401E14 push eax .text:00401E15 call ebx ; __vbaObjSet //[ebp-30h]是临时的对象变量，保存获得的TEXT对象 .text:00401E17 mov edi, eax .text:00401E19 lea edx, [ebp-2Ch] //缓冲区 .text:00401E1C push edx .text:00401E1D push edi .text:00401E1E mov ecx, [edi] .text:00401E20 call dword ptr [ecx+0A0h] //get__ipropTEXTEDIT(void *) 接收TEXT控件的text属性 .text:00401E26 test eax, eax .text:00401E28 fnclex .text:00401E2A jge short loc_401E3E .text:00401E2C push 0A0h .text:00401E31 push offset dword_40181C .text:00401E36 push edi .text:00401E37 push eax .text:00401E38 call ds:__vbaHresultCheckObj get__ipropTEXTEDIT(void *) 这个函数就是上面所提到的虚函数表里的函数了。 那么我是怎么知道这是一个TEXT控件而不是其他的呢？__vbaHresultCheckObj上面有个地址offset dword_40181C, 在ida里查看一下，前4个dword是 33AD4EE1h, 11CF6699h, 0AA000CB7h, 93D36000h，如果您有查看过vb6.olb,您就知道 这是_TextBox接口的uuid: 33AD4EE1-6699-11CF-B70C-00AA0060D393 。当您知道这是一个TEXT对象时，就可以很容易的 查到call dword ptr [ecx+0A0h] 就是get__ipropTEXTEDIT(void *)函数了。 尽管在vb6.olb中给出的控件属性的接口不能为我们查看反汇编代码里的控件属性操作提供准确的信息，但那里给出的控件事件的接口却是准确的（至少到现在为止我遇到的是这样）。如果查找程序实现的内部控件的事件的代码位置，我在附件中有一篇文章讲的很详细。在这里我就不画蛇添足了。 在附件中我给出了我所能给的所有资料，关于VB6的逆向的资料好像不多，我能找到的目前就有这些了。我可能没有机会更深入的摸索下去，我只能提供我尽可能提供的资料。 --------------------------------一切都结束了吗------------------------------------------- 我不知道该说什么。学习逆向的过程中我学到了太多的东西。仍然象开始说的那样，命运是个很奇怪的东西... [全文完] [ Last edited by sdlj8051 on 2006-10-6 at 11:35 ] |
回复此楼» 猜你喜欢
化工学硕294分，求导师收留
已经有29人回复
-
求调剂
已经有10人回复
-
考研求调剂
已经有13人回复
-
求调剂
已经有3人回复
-
人工智能320调剂08工类还有机会吗
已经有17人回复
-
考研英一数一338分
已经有10人回复
-
求助调剂，跨调
已经有15人回复
-
085600材料与化工329分求调剂
已经有20人回复
-
085600材料与化工349分求调剂
已经有15人回复
-
求调剂
已经有13人回复
