首页
社区
课程
招聘
[分享]Delphi的LPK的APIHOOK源码
发表于: 2009-4-27 13:27 16492

[分享]Delphi的LPK的APIHOOK源码

2009-4-27 13:27
16492
搞个东西,用易语言写的注入不成,写中间假DLL也不能,只能安装个Delphi看别人的代码试着玩,unpack上弄了个LPK的源码,,这里弄了个APIHOOK的(Anskya
在05年发的)源码,,两个加了下,弄出来。。编译成功,原码放上,,例中是HOOK了MessageBoxA函数,有测试小程序。

大鸟们玩的不要玩的东西了。

[课程]FART 脱壳王!加量不加价!FART作者讲授!

上传的附件:
收藏
免费 7
支持
分享
最新回复 (15)
雪    币: 506
活跃值: (383)
能力值: ( LV7,RANK:100 )
在线值:
发帖
回帖
粉丝
2
我现在有个问题是,dll中的函数被HOOK了,先到我们的函数里去过一下。。那自己的函数怎样才能去调用真正的dll里的API函数呢。。前辈们给点提示或示例代码哦。。。
2009-4-27 14:26
0
雪    币: 182
活跃值: (55)
能力值: ( LV6,RANK:90 )
在线值:
发帖
回帖
粉丝
3
实现被HOOK函数的头几次字节然后跳回原来的,直接CALL之。
2009-4-27 14:51
0
雪    币: 232
活跃值: (10)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
4
看你怎么Hook了,Hook函数地址的话,就保存下来然后Call之。

inline hook也可以,比如用Hot fix方法:
lkd> u MessageBoxA-5
77d507e5 90              nop                      // 这里埋上 jmp (你的函数)
77d507e6 90              nop
77d507e7 90              nop
77d507e8 90              nop
77d507e9 90              nop
USER32!MessageBoxA:
77d507ea 8bff            mov     edi,edi          // jmp -5 (跳向 77d507e5)
// 你的函数处理完了,跳回 77d507ec (MessageBoxA+2) 这里
77d507ec 55              push    ebp
77d507ed 8bec            mov     ebp,esp
2009-4-27 15:33
0
雪    币: 612
活跃值: (961)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
5
可以先保存函数入口的数据,然后修改这个函数入口跳到我们自己的函数,然后还原入口数据,这时就可以调用真正的函数了,调完后再修改下这个函数入口又跳到我们的函数..这样就可以继续HOOK.
2009-4-27 16:35
0
雪    币: 506
活跃值: (383)
能力值: ( LV7,RANK:100 )
在线值:
发帖
回帖
粉丝
6
恩,我去试试。。
2009-4-27 20:04
0
雪    币: 4161
活跃值: (3372)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
下来看看 改造下或许能用于提权.
2009-4-27 22:03
0
雪    币: 104
活跃值: (68)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
8
修改-调用-还原 的模式在多线程被调用容易出问题
2009-4-28 10:23
0
雪    币: 214
活跃值: (27)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
9
谢谢了 网上看了几个代码发现有很多BUG 可能是原来是 2000 现在W7 不兼容吧 下载下来继续研究
2010-1-23 22:11
0
雪    币: 191
活跃值: (1983)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
10
看看madcodehook的就知道了
2010-1-24 22:20
0
雪    币: 201
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
11
LPK相关的资料真少。。。来看看楼主的。
2010-2-28 20:49
0
雪    币: 33
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
12
这个算是精华了
2010-8-15 10:40
0
雪    币: 199
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
13
刚才看了下,这个代码算是在网上比较不错的了
2010-10-12 20:24
0
雪    币: 732
活跃值: (192)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
14
呵呵,本人在unpack上发的LPK(delphi)能发挥点作用 ,开心 !

留个脚印,
2010-10-28 18:03
0
雪    币: 221
活跃值: (11)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
15
今天我也遇上这个文件,还真怪,
2010-11-30 19:50
0
雪    币: 333
活跃值: (46)
能力值: ( LV3,RANK:30 )
在线值:
发帖
回帖
粉丝
16
学习一下.....
2011-1-20 15:20
0
游客
登录 | 注册 方可回帖
返回
//