首页
社区
课程
招聘
[分享]HOOK API Lib 0.1 For Delphi
发表于: 2006-12-5 22:33 12850

[分享]HOOK API Lib 0.1 For Delphi

2006-12-5 22:33
12850

周未一个朋友要求用Delphi做了一个东西,用到了API HOOK,于是写了个简单的

SetOnBefore把函数安装到API之前,可在真正的api执行之前先执行我们的函数
SetOnAfter把函数安装到API之后,可在真正的api执行之后再执行我们的函数

代码写得比较急,还有很多地方可以优化,功能上也有些地方可以于改进一下,如:
替换api,能改变api的返回值等。。。以后有时间玩的时候再升级,没时间就算了。。。

如果你有兴趣转成VC的代码请共享一份给我:)

具体代码如下,其中GetOpCodeSize可参考我早期的“aspr中的精彩代码(一)(修正)、(二)


[招生]科锐逆向工程师培训(2024年11月15日实地,远程教学同时开班, 第51期)

收藏
免费 7
支持
分享
最新回复 (13)
雪    币: 2384
活跃值: (766)
能力值: (RANK:410 )
在线值:
发帖
回帖
粉丝
2
强,先收藏起来再慢慢消化。
2006-12-5 22:40
0
雪    币: 390
活跃值: (707)
能力值: ( LV12,RANK:650 )
在线值:
发帖
回帖
粉丝
3
原来你也用d啊
2006-12-6 08:14
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
如何使用呢?能否来个调用的例子...
2006-12-8 15:37
0
雪    币: 62
活跃值: (2032)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
对,如何使用?
2006-12-18 20:51
0
雪    币: 212
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
6
收藏先,我正找它呢
2006-12-19 07:41
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
先收藏起来再慢慢消化
2006-12-20 09:07
0
雪    币: 225
活跃值: (10)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
8
如果我想挂接整个内存空间的莫个API函数,应该如何操作,希望您能够不不吝赐教?
2006-12-20 10:24
0
雪    币: 1312
活跃值: (5164)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
9
收藏!!!!!!!
2007-5-26 03:04
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
10
强。收藏!不过暂时没搞明白怎么用
2007-6-5 10:08
0
雪    币: 1919
活跃值: (901)
能力值: ( LV9,RANK:490 )
在线值:
发帖
回帖
粉丝
11
你太强了,收藏学习~~
2007-6-5 12:00
0
雪    币: 208
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
12
请看这里:
http://bbs.pediy.com/showthread.php?t=48984
2007-8-3 14:12
0
雪    币: 212
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
13
先收藏!慢慢看
2007-8-5 10:30
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
14
先收藏!慢慢看
2007-8-9 23:44
0
游客
登录 | 注册 方可回帖
返回
//