首页
社区
课程
招聘
发一个纯正delphi血统的压缩壳(含源码)
2006-4-20 12:41 39694

发一个纯正delphi血统的压缩壳(含源码)

2006-4-20 12:41
39694
这些天新壳大爆发啊,我也来凑个热闹。
又是一个自娱自乐的产物,和netsowell发布过源码的那个不一样,这个壳90%的代码是用delphi写成的。
仅在win2k+sp4上测试过,不支持9x系统。因为用了一个可能不安全的隐藏oep的方法,xp系统上有可能会出问题。
没花,没anti代码,适合初学者了解壳。
现在只能压缩exe文件。
压缩包里含源码,算是为这里的delphi初学者的小礼物。

[培训]《安卓高级研修班(网课)》月薪三万计划,掌 握调试、分析还原ollvm、vmp的方法,定制art虚拟机自动化脱壳的方法

上传的附件:
收藏
点赞7
打赏
分享
最新回复 (81)
雪    币: 32403
活跃值: (18860)
能力值: (RANK:350 )
在线值:
发帖
回帖
粉丝
kanxue 8 2006-4-20 12:46
2
0
我将帖转到脱壳版块去
雪    币: 217
活跃值: (81)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
ww990 1 2006-4-20 13:14
3
0
强烈支持delphi开源
雪    币: 342
活跃值: (323)
能力值: ( LV9,RANK:450 )
在线值:
发帖
回帖
粉丝
netsowell 11 2006-4-20 13:17
4
0
支持,直接利用delphi语法来写壳的shell部分其实是有很多优势的,我的新壳也差不多90%是直接使用delphi语法。这样就可以玩代码战。
雪    币: 242
活跃值: (163)
能力值: ( LV9,RANK:250 )
在线值:
发帖
回帖
粉丝
林海雪原 6 2006-4-20 13:26
5
0
最初由 ww990 发布
强烈支持delphi开源


9494
雪    币: 217
活跃值: (81)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
ww990 1 2006-4-20 14:05
6
0
JwaWinnt, JwaWinBase
这是啥控件,D10无法编译,不知是什么原因
雪    币: 299
活跃值: (300)
能力值: ( LV9,RANK:290 )
在线值:
发帖
回帖
粉丝
clide2000 7 2006-4-20 14:07
7
0
谢谢啊
雪    币: 243
活跃值: (205)
能力值: ( LV12,RANK:250 )
在线值:
发帖
回帖
粉丝
ttui 6 2006-4-20 14:24
8
0
最初由 ww990 发布
JwaWinnt, JwaWinBase
这是啥控件,D10无法编译,不知是什么原因

delphi-jedi的API Conversion Library:
ftp://delphi-jedi.org/api/win32api.zip
雪    币: 217
活跃值: (81)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
ww990 1 2006-4-20 14:37
9
0
thank you
雪    币: 211
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
wekabc 2006-4-20 14:41
10
0
支持!
雪    币: 236
活跃值: (54)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
ijia 2006-4-20 17:24
11
0
谢谢分享,下下来研究研究
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
fancyman 2006-4-20 17:37
12
0
这个壳强不强压,我来试试看
雪    币: 234
活跃值: (370)
能力值: ( LV9,RANK:530 )
在线值:
发帖
回帖
粉丝
lnn1123 13 2006-4-20 20:42
13
0
支持啊,不懂delphi
雪    币: 207
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
qq7119 2006-4-20 21:12
14
0
压缩效果一般 其他的就 ................
雪    币: 32403
活跃值: (18860)
能力值: (RANK:350 )
在线值:
发帖
回帖
粉丝
kanxue 8 2006-4-20 21:50
15
0
最初由 qq7119 发布
压缩效果一般 其他的就 ................


压缩效果与所使用的压缩引擎有关,这个实例用的是aPlib,当然压缩效果一般了,你想获得好的压缩效果,可以换其他压缩引擎。但这个实例目的不是来展示其压缩效果,而是演示一下如何用delphi写加壳程序,以对其他写壳的朋友有些帮助。
雪    币: 1041
活跃值: (19)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
mfkfpb 2006-4-20 23:18
16
0
支持发布源码,Delphi本人正在学习中
雪    币: 247
活跃值: (18)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
eyesonly 2006-4-21 00:25
17
0
支持一下,谢谢
雪    币: 0
能力值: (RANK:10 )
在线值:
发帖
回帖
粉丝
爱一个人好难 2006-4-21 08:09
18
0
高手出现!
雪    币: 243
活跃值: (205)
能力值: ( LV12,RANK:250 )
在线值:
发帖
回帖
粉丝
ttui 6 2006-4-21 09:03
19
0
最初由 kanxue 发布
压缩效果与所使用的压缩引擎有关,这个实例用的是aPlib,当然压缩效果一般了,你想获得好的压缩效果,可以换其他压缩引擎。但这个实例目的不是来展示其压缩效果,而是演示一下如何用delphi写加壳程序,以对其他写壳的朋友有些帮助。

呵呵,就是这样,仅仅是演示代码,没什么实际用途的,只是没见过类似的,就发出来了。
因为工作和写代码没任何关系,写代码都是打发时间,所以对delphier可能有点帮助的都会发源码上来,大家也不要有什么期望
雪    币: 0
能力值: (RANK:10 )
在线值:
发帖
回帖
粉丝
爱一个人好难 2006-4-21 10:47
20
0
如何使他支持DLL压缩?讨教一下!
雪    币: 32403
活跃值: (18860)
能力值: (RANK:350 )
在线值:
发帖
回帖
粉丝
kanxue 8 2006-4-21 10:53
21
0
最初由 爱一个人好难 发布
如何使他支持DLL压缩?讨教一下!


个人感觉再加上一个重定位表处理部分,就能支持DLL了。
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
qqb 2006-4-21 17:07
22
0
谢谢分享!
雪    币: 6073
活跃值: (2236)
能力值: (RANK:1060 )
在线值:
发帖
回帖
粉丝
forgot 26 2006-4-21 18:24
23
0
好像唯一一个异常的seh handler就是oep

004631F4    55              PUSH    EBP
004631F5    8BEC            MOV     EBP, ESP
004631F7    83C4 F0         ADD     ESP, -10
004631FA    B8 C42F4600     MOV     EAX, 00462FC4
004631FF    E8 2C34FAFF     CALL    00406630
00463204    A1 C8504600     MOV     EAX, [4650C8]
00463209    8B00            MOV     EAX, [EAX]
0046320B    E8 A056FFFF     CALL    004588B0
00463210    8B0D B0514600   MOV     ECX, [4651B0]                    ; V2Packer.00466CE0
00463216    A1 C8504600     MOV     EAX, [4650C8]
0046321B    8B00            MOV     EAX, [EAX]
0046321D    8B15 68134600   MOV     EDX, [461368]                    ; V2Packer.004613B4
00463223    E8 A056FFFF     CALL    004588C8
00463228    A1 C8504600     MOV     EAX, [4650C8]
0046322D    8B00            MOV     EAX, [EAX]
0046322F    E8 1457FFFF     CALL    00458948
00463234    E8 3F0FFAFF     CALL    00404178

遇到int3的时候去[fs:[0]+4]就行了
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
godhack 2006-4-21 20:54
24
0
想学DELPHI,谢谢
雪    币: 671
活跃值: (723)
能力值: ( LV9,RANK:1060 )
在线值:
发帖
回帖
粉丝
wenglingok 26 2006-4-22 07:47
25
0
呵呵,强文一篇
游客
登录 | 注册 方可回帖
返回