首页
社区
课程
招聘
[求助]有没有办法破解DELPHI的BPL文件?
发表于: 2008-4-19 21:12 11511

[求助]有没有办法破解DELPHI的BPL文件?

2008-4-19 21:12
11511
请教下各位朋友:
我找到一个DELPHI控件,没有功能和时间限制,就是在每次运行有这个控件的EXE程序的时候,会弹出一个对话窗。
这个控件是通过bpl来安装,不知道有没有办法解除这个对话窗。

希望能够得到点思路,谢谢!

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

收藏
免费 0
支持
分享
最新回复 (6)
雪    币: 47147
活跃值: (20410)
能力值: (RANK:350 )
在线值:
发帖
回帖
粉丝
2
编译成EXE,用DEDE反汇编,配合OD动态调试,找到对话窗的那个代码,找到跳过的修改方法。然后,你尝试在原控件里找相同的代码,将其Crack。
2008-4-19 21:29
0
雪    币: 157
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
谢谢坛主。
我刚刚初学,先自己尝试,估计对于我来说难度有点大,那些工具都只听说过。特别是如何动态调试不太明白。

在坛里看了些帖子,说是看DCU文件里面的代码,不知道又是怎么一回事情?
2008-4-19 22:38
0
雪    币: 157
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
我再详细说明一下:
1.将此控件放在FORM上,什么都不做,然后运行,就会出现一个没有标题FORM,上面会提示这不是注册版本;
2.我用记事本打开相关的BPL文件,能够看到1中所说的文字。
2008-4-20 08:36
0
雪    币: 157
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
我用DEDE来看它的一个DCU,发现以下代码,请指点下迷津,是不是就是运行的时候提示弹出注册界面的那段代码,应该如何修改,谢谢。
procedure Register;
begin
   00000000 : 51                            PUSH ECX
   00000001 : A1(00 00 00 00                MOV EAX,DWORD PTR [_DV_TAsaAlert{0xC2}]
   00000006 : 89 04 24                      MOV DWORD PTR [ESP],EAX
   00000009 : 8B D4                         MOV EDX,ESP
   0000000B : 33 C9                         XOR ECX,ECX
   0000000D : B8(24 00 00 00                MOV EAX,Register{0x112}+36
   00000012 : E8(00 00 00 00                CALL RegisterComponents{0x54}
   00000017 : 5A                            POP EDX
   00000018 : C3                            RET NEAR
   00000019 : 00 00                         ADD BYTE PTR [EAX],AL
   0000001B : 00 FF                         ADD BH,BH
   0000001D : FF FF                         ? EDI
   0000001F : FF 08                         DEC DWORD PTR [EAX]
   00000021 : 00 00                         ADD BYTE PTR [EAX],AL
   00000023 : 00 4E 61                      ADD BYTE PTR [ESI+97],CL
   00000026 : 74 69                         JE +105; (0x91)
   00000028 : 76 65                         JBE +101; (0x8F)
   0000002A : 44                            INC ESP
   0000002B : 42                            INC EDX
   0000002C : 00 00                         ADD BYTE PTR [EAX],AL
   0000002E : 00 00                         ADD BYTE PTR [EAX],AL
end;

procedure Finalization;
begin
   00000000 : 55                            PUSH EBP
   00000001 : 8B EC                         MOV EBP,ESP
   00000003 : 33 C0                         XOR EAX,EAX
   00000005 : 55                            PUSH EBP
   00000006 : 68(25 00 00 00                PUSH Finalization{0x113}+37
   0000000B : 64 FF 30                      PUSH DWORD PTR FS:[EAX]
   0000000E : 64 89 20                      MOV DWORD PTR FS:[EAX],ESP
   00000011 : FF 05(00 00 00 00             INC DWORD PTR [_DV_4{0xC6}]
   00000017 : 33 C0                         XOR EAX,EAX
   00000019 : 5A                            POP EDX
   0000001A : 59                            POP ECX
   0000001B : 59                            POP ECX
   0000001C : 64 89 10                      MOV DWORD PTR FS:[EAX],EDX
   0000001F : 68(2C 00 00 00                PUSH Finalization{0x113}+44
   00000024 : C3                            RET NEAR
   00000025 : E9(00 00 00 00                JMP @HandleFinally{0x73}
   0000002A : EB F8                         JMP -8; (0x24)
   0000002C : 5D                            POP EBP
   0000002D : C3                            RET NEAR
end;

procedure NdbAlert;
begin
   00000000 : 83 2D(00 00 00 00 01          SUB DWORD PTR [_DV_4{0xC6}],1
   00000007 : C3(                           RET NEAR
end;
2008-4-20 09:59
0
雪    币: 222
活跃值: (11)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
6
bpl文件发上来看看.坛主把思路都给你了...发上来看看,有点兴趣.
2008-4-20 15:00
0
雪    币: 157
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
呵呵,等你的完整破解文章哦。
希望能给我们超级菜鸟指点迷津
2008-4-21 11:21
0
游客
登录 | 注册 方可回帖
返回
//