当前位置:七道奇文章资讯编程技术Delphi编程
日期:2011-11-10 16:09:00  来源:本站整理

delphi反汇编初探[Delphi编程]

赞助商链接



  本文“delphi反汇编初探[Delphi编程]”是由七道奇为您精心收集,来源于网络转载,文章版权归文章作者所有,本站不对其观点以及内容做任何评价,请读者自行判断,以下是其具体内容:

俺也是菜鸟一名,大概更理解菜鸟的心态吧,偶有小感,写下来与

新手分享,相信对新人还是有效的.

扼要描写下历程:近来手上有个delphi程序要crack,没用过delphi.不管怎么样,OD

它再说,呵呵.有壳,先脱之,脱了,发现所需求的dll也有壳,晕倒,从没脱过DLL的壳呀

,看了加密与解密2中的相关章节再去网上下载有关视频,学习了,再脱之,又发现脱了

壳的DLL导入表不见了,又晕,再学习修复之.一套下来我己经有些怠倦.再翻开delphi

主程序开始研究,发现完好不是自己想像的,脱壳后就一马平地了,里面花指令一个接一

个,再加上对delphi的不熟习,里面的很多东西都看不出思绪来.好的,再来,学下delphi,

把delphi反汇编的思绪理清楚再crack它,磨刀不误砍柴功.

下面走入正题:下载delphi7,安装后,写了一个小程序,一个对话框,两个按钮,按此中一

个按钮会使别的一个按钮灰掉.delphi中使一个按钮灰掉只需求一条语句:

(源码)

procedure TForm1.Button1Click(Sender: TObject);

begin

Button2.Enabled:=false;

end;

(^>^以我对windows程序和理解,要实现使一个按钮变灰,需求调用enableWindow()这个API才

可以)不管哪些个,反汇编这个程序看看再说,OD翻开,跳到这个按钮事件的函数地址(^-^想

知道这个地址可以有多种办法,1.用DEDE程序可以查看,2,pexplorer反汇编后也可以查到,3.

ultraedit查找字符串Button1Click也可以得到这个地址.)

0044D964 /$ 33D2 xor edx, edx //清空了,有效么?呵

0044D966 |? 8B80 FC020000 mov eax, dword ptr [eax+2FC] //看不懂得,不会是传参数吧

0044D96C |? 8B08 mov ecx, dword ptr [eax] //同上

0044D96E |? FF51 64 call dword ptr [ecx+64] //还需求调用函数,看来就这么赋值,delphi还是做了些工作的,进去看看

0044D971 |? C3 retn //****请注意上一行的调用方法,是利用的ecx+64,

//^-^这一点对我们理清delphi编译器的思绪特点很重要,背面会做比较

以下是F7后的后果

0042CDA8 . 3A50 58 cmp dl, byte ptr [eax+58] //对比了一个dl,哦,方才哪个清空的EDX,在这儿用上了,赋值语句的值在这儿.

0042CDAB . 74 11 je short 0042CDBE //通过跟踪多次下断点,这个跳转只会发生一次,也就是已经变灰了,就不用再次履行

0042CDAD . 8850 58 mov byte ptr [eax+58], dl //以下代码对我们已经基本没有,假如要破解的话,上面这个跳转就是关键跳转,但是确不能

0042CDB0 . 6A 00 push 0 //在这里爆,应当在edx清空的地方爆,不能在这里爆的缘由,也是这篇文章的重点.呵

0042CDB2 . 33C9 xor ecx, ecx

0042CDB4 . BA 0CB00000 mov edx, 0B00C

0042CDB9 . E8 36120000 call 0042DFF4

0042CDBE > C3 retn

通过上面的解析,我们已经知道了这些信息:固然只是一条赋值语句,但是delphi做了很多工作.

并且对我们破解来说,深一层次的调用,我们是没必要关心的.因为它是delphi的底层调用.这大概也是

惹起一些爆破软件不好用的缘由.

目前是阐明本篇文章重点的时刻了,就是delphi的反汇编,哪些是delphi内部的底层调用,哪些是用户代码调用.

分清这一点可以让我们在反汇编跟踪的时刻,不把精神浪费在读底层(这个底层不一定是系统层,大概是delphi层)代码里.

以上的是delphi底层调用的经典用例.目前在拿一个用户代码调用的反汇编示例,相信就很很楚了.

以下是增添用户函数调用的delphi源码

function CalculateInterest(Principal,InterestRate: Double):Double;

begin

CalculateInterest := Principal * InterestRate;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Button2.Enabled:=false;

CalculateInterest(3,4);

button2click(Sender);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

MessageBox(0,'cccc','',0);

end;

从源码可以看出来了,一共三个函数,CalculateInterest(自己写的),Button1Click,Button2Click.

会从Button1Click调用自己写的函数CalculateInterest,还有生成的Button2Click(也是用户代码)

我们来看看反汇编后的模样.

老模样,跳到Button1Click的函数事件地址.

0044D986 . 33D2 xor edx, edx

0044D988 . 8B83 FC020000 mov eax, dword ptr [ebx+2FC]

0044D98E . 8B08 mov ecx, dword ptr [eax]

0044D990 . FF51 64 call dword ptr [ecx+64] ;这四行都很熟习了,注意这里是通过ECX举行call的

0044D993 . 68 00000840 push 40080000

0044D998 . 6A 00 push 0

0044D99A . 68 00001040 push 40100000

0044D99F . 6A 00 push 0

0044D9A1 . E8 BEFFFFFF call 0044D964 ;这里是我们和自己写的函数CalculateInterest,注意是直接调用的,明显我们要传的是3,4,怎么成这个模样了,跟进去会发现利用了ST0存放器

0044D9A6 . DDD8 fstp st

0044D9A8 . 8BD6 mov edx, esi

0044D9AA . 8BC3 mov eax, ebx

0044D9AC . E8 03000000 call 0044D9B4 ;这里是调用的button2click(Sender),注意这里也是直接调用的.

0044D9B1 . 5E pop esi

0044D9B2 . 5B pop ebx

0044D9B3 . C3 retn

结论:通过以上的比较,我们可以得出一个结论,delphi的反汇编,假如调用的是用户代码,普通利用直接调用.假如调用的是底层(delphi库)代码,会通过ECX

来做为调用底子.这应当是为了实现面向对象而计划的.引伸猜想,假如用户用delphi计划一个类,在按钮事件的处理里,再调用这个类的对象履行行动,网上有一个说法是delphi的this指针是通过左边数第一个参数传的,没有考证这一点.(VC的实现是把this指针放到ECX中)

此文仅是初探,相信对新手会有帮忙

作者:snowingday


  以上是“delphi反汇编初探[Delphi编程]”的内容,如果你对以上该文章内容感兴趣,你可以看看七道奇为您推荐以下文章:
  • 怎样ASP.NET MVC调用Delphi开辟的Web报表
  • delphi反汇编初探
  • 怎样在vc、delphi中利用mysql(mysql odbc驱动的利用)
  • 怎样在vc、delphi中利用mysql
  • 利用Delphi6的DBExpress组件衔接远程的Mysql数据库
  • Delphi中的Access本领集
  • 在Java与Delphi间交互实现Zlib压缩算法
  • 在C++Builder中利用Delphi文件
  • BCB6/Delphi7下完善调用CHM帮忙
  • BCB及Delphi工程文件扩大名一览
  • 在C++Builder中利用Delphi控件
  • 在Delphi与C++之间实现函数与对象同享
  • 本文地址: 与您的QQ/BBS好友分享!
    • 好的评价 如果您觉得此文章好,就请您
        0%(0)
    • 差的评价 如果您觉得此文章差,就请您
        0%(0)

    文章评论评论内容只代表网友观点,与本站立场无关!

       评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
    Copyright © 2020-2022 www.xiamiku.com. All Rights Reserved .