用DeDe反编译的代码，远程验证功能，谁可以破解！

xuhao1 2010-12-12 03:16:18
interface

uses
Classes {
T:TComponent, A:.TComponent, A:TComponent.DefineProperties,
A:TComponent.Loaded, A:TComponent.Notification, A:TComponent.ReadState,
A:TComponent.SetName, A:TComponent.UpdateRegistry,
A:TComponent.ValidateRename, A:TComponent.WriteState,
A:TComponent.QueryInterface, A:TComponent.Destroy,
A:TComponent.BeforeDestruction, A:TComponent.SafeCallException,
A:TPersistent.AssignTo, A:TPersistent.Assign, A:TComponent.Create},
SysInit,
System {
T:AnsiString, A:TObject.AfterConstruction, A:TObject.Dispatch,
A:TObject.DefaultHandler, A:TObject.NewInstance,
A:TObject.FreeInstance, T:String, A:@ClassCreate, A:@LStrAsg,
A:@AfterConstruction, A:@LStrCatN, A:@HandleFinally};

type
TIMBase=class (Classes.TComponent)
private
FLicenseServer: System.AnsiString;
protected
FLicensePassword: System.AnsiString;
FLicenseUser: System.AnsiString;
function FmtLicenseServer (Self: TIMBase): System.AnsiString;
public
constructor Create (Self: TIMBase; _Dv_: false..true;
AOwner: Classes.TComponent); override{; virtual};
end;

procedure Finalization;

procedure BSIMBase;

implementation

var
_DV_2: -$80000000..$7FFFFFFF;

constructor TIMBase.Create (Self: TIMBase; _Dv_: false..true;
AOwner: Classes.TComponent);
begin
00000000 : // -- Line #46 --
00000000 : 55 PUSH EBP
00000001 : 8B EC MOV EBP,ESP
00000003 : 83 C4 F4 ADD ESP,-12
00000006 : 84 D2 TEST DL,DL
00000008 : 74 08 JE +8; (0x12)
0000000A : 83 C4 F0 ADD ESP,-16
0000000D : E8(00 00 00 00 CALL @ClassCreate{0x1D}
00000012 : 89 4D F4 MOV DWORD PTR [EBP-12{AOwner}],ECX
00000015 : 88 55 FB MOV BYTE PTR [EBP-5{_Dv_}],DL
00000018 : 89 45 FC MOV DWORD PTR [EBP-4{Self}],EAX
00000000 : // -- Line #47 --
0000001B : 8B 4D F4 MOV ECX,DWORD PTR [EBP-12{AOwner}]
0000001E : 33 D2 XOR EDX,EDX
00000020 : 8B 45 FC MOV EAX,DWORD PTR [EBP-4{Self}]
00000023 : E8(00 00 00 00 CALL TComponent.Create{0x13}
00000000 : // -- Line #49 --
00000028 : 8B 45 FC MOV EAX,DWORD PTR [EBP-4{Self}]
0000002B : 83 C0 30 ADD EAX,48
0000002E : BA(60 00 00 00 MOV EDX,TIMBase.Create{0x27}+96 //远程验证服务器网址
00000033 : E8(00 00 00 00 CALL @LStrAsg{0x1E}
00000038 : 8B 45 FC MOV EAX,DWORD PTR [EBP-4{Self}]
0000003B : 80 7D FB 00 CMP BYTE PTR [EBP-5{_Dv_}],$00
0000003F : 74 0F JE +15; (0x50)
00000041 : E8(00 00 00 00 CALL @AfterConstruction{0x1F}
00000046 : 64 8F 05 00 00 00 00 POP DWORD PTR FS:[$00000000]
0000004D : 83 C4 0C ADD ESP,12
00000050 : 8B 45 FC MOV EAX,DWORD PTR [EBP-4{Self}]
00000000 : // -- Line #50 --
00000053 : 8B E5 MOV ESP,EBP
00000055 : 5D POP EBP
00000056 : C3 RET NEAR
00000057 : 00 FF ADD BH,BH
00000059 : FF FF ? EDI
0000005B : FF 14 00 CALL DWORD PTR [EAX+EAX],NEAR
0000005E : 00 00 ADD BYTE PTR [EAX],AL
00000060 : 77 77 JA +119; (0xD9)
00000062 : 77 2E JA +46; (0x92)
00000064 : 6D INSW
00000065 : 79 69 JNS +105; (0xD0)
00000067 : 6D INSW
00000068 : 73 65 JNB +101; (0xCF)
0000006A : 72 76 JB +118; (0xE2)
0000006C : 69 63 65 73 2E 63 6F IMUL DWORD PTR [EBX+101],$6F632E73
00000073 : 6D INSW
00000074 : 00 00 ADD BYTE PTR [EAX],AL
00000076 : 00 00 ADD BYTE PTR [EAX],AL
end;

function TIMBase.FmtLicenseServer (Self: TIMBase): System.AnsiString;
var
result Result: System.AnsiString;
begin
00000000 : // -- Line #53 --
00000000 : 55 PUSH EBP
00000001 : 8B EC MOV EBP,ESP
00000003 : 83 C4 F8 ADD ESP,-8
00000006 : 89 55 F8 MOV DWORD PTR [EBP-8{Result}],EDX
00000009 : 89 45 FC MOV DWORD PTR [EBP-4{Self}],EAX
00000000 : // -- Line #54 --
0000000C : 68(38 00 00 00 PUSH TIMBase.FmtLicenseServer{0x2B}+56
00000011 : 8B 45 FC MOV EAX,DWORD PTR [EBP-4{Self}]
00000014 : FF 70 30 PUSH DWORD PTR [EAX+48]
00000017 : 68(4C 00 00 00 PUSH TIMBase.FmtLicenseServer{0x2B}+76
0000001C : 8B 45 F8 MOV EAX,DWORD PTR [EBP-8{Result}]
0000001F : BA 03 00 00 00 MOV EDX,$00000003
00000024 : E8(00 00 00 00 CALL @LStrCatN{0x20}
00000000 : // -- Line #55 --
00000029 : 59 POP ECX
0000002A : 59 POP ECX
0000002B : 5D POP EBP
0000002C : C3 RET NEAR
0000002D : 00 00 ADD BYTE PTR [EAX],AL
0000002F : 00 FF ADD BH,BH
00000031 : FF FF ? EDI
00000033 : FF 08 DEC DWORD PTR [EAX]
00000035 : 00 00 ADD BYTE PTR [EAX],AL
00000037 : 00 68 74 ADD BYTE PTR [EAX+116],CH
0000003A : 74 70 JE +112; (0xAC)
0000003C : 73 3A JNB +58; (0x78)
0000003E : 2F DAS
0000003F : 2F DAS
00000040 : 00 00 ADD BYTE PTR [EAX],AL
00000042 : 00 00 ADD BYTE PTR [EAX],AL
00000044 : FF FF ? EDI
00000046 : FF FF ? EDI
00000048 : 0C 00 OR AL,$00
0000004A : 00 00 ADD BYTE PTR [EAX],AL
0000004C : 2F DAS
0000004D : 69 6D 73 65 72 76 69 IMUL DWORD PTR [EBP+115],$69767265
00000054 : 63 ARPL
00000055 : 65 32 2F XOR CH,BYTE PTR GS:[EDI]
00000058 : 00 00 ADD BYTE PTR [EAX],AL
0000005A : 00 00 ADD BYTE PTR [EAX],AL
end;

procedure Finalization;
begin
00000000 : // -- Line #55 -- <<51
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{0x2E}+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_2{0x26}]
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{0x2E}+44
00000024 : C3 RET NEAR
00000025 : E9(00 00 00 00 JMP @HandleFinally{0x21}
0000002A : EB F8 JMP -8; (0x24)
0000002C : 5D POP EBP
0000002D : C3 RET NEAR
end;

procedure BSIMBase;
begin
00000000 : // -- Line #70 --
00000000 : 83 2D(00 00 00 00 01 SUB DWORD PTR [_DV_2{0x26}],1
00000000 : // -- Line #70 --
00000007 : C3( RET NEAR
end;

end.


...全文
338 11 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
CSZ_12315 2011-09-05
  • 打赏
  • 举报
 回复
要想把破解后的汇编代码还原成DELPHI源码，我看难。
ffwin 2010-12-13
  • 打赏
  • 举报
 回复
eb 跳转
90 nop
keeley20 2010-12-13
  • 打赏
  • 举报
 回复
想破解肯定得Ollydbg 动态调试，DEDE静态反编译只能起一个辅助性的作用。
haitao 2010-12-13
  • 打赏
  • 举报
 回复
[Quote=引用 7 楼 xuhao1 的回复:]
Delphi(Pascal) code

8B 4D F4 | MOV ECX,DWORD PTR [EBP-12{AOwner}]
33 D2 | XOR EDX,EDX
8B 45 FC | MOV EAX,DWORD PTR [EBP-4{Self}]
E8(00 00 00 00 | CALL TI……
[/Quote]

换为0x90，记得0x90的空语句
xuhao1 2010-12-12
  • 打赏
  • 举报
 回复 


8B 4D F4            | MOV ECX,DWORD PTR [EBP-12{AOwner}]

33 D2               | XOR EDX,EDX

8B 45 FC            | MOV EAX,DWORD PTR [EBP-4{Self}]

E8(00 00 00 00      | CALL TIMBase.Create{0xA8}

8D 55 F0            | LEA EDX,DWORD PTR [EBP-16]


想把 CALL TIMBase.Create{0xA8} 取消，应该怎么改？
frtrnr 2010-12-12
  • 打赏
  • 举报
 回复
追错位置了，验证部分不在这两个过程里面。
gyk120 2010-12-12
  • 打赏
  • 举报
 回复
不是说客户端的问题
比如服务器发送加密的数据包给客户端，验证某些注册码，你在本地做手脚没用，还是会被揪出来
除非你按照数据包格式自己去模拟验证过程进行欺骗，那个和外挂没什么区别了
xuhao1 2010-12-12
  • 打赏
  • 举报
 回复
把验证去掉就可以了，客户端没有问题的
bdmh 2010-12-12
  • 打赏
  • 举报
 回复
破解那得汇编调试， 看看关键在哪，如果验证在服务器，那客户端破解是没有意义的
xuhao1 2010-12-12
  • 打赏
  • 举报
 回复 


function TIMBase.FmtLicenseServer (Self: TIMBase): System.AnsiString;

var

  result Result: System.AnsiString;

begin

 00000000 :                               // -- Line #53 --

   00000000 : 55                            PUSH EBP

   00000001 : 8B EC                         MOV EBP,ESP

   00000003 : 83 C4 F8                      ADD ESP,-8

   00000006 : 89 55 F8                      MOV DWORD PTR [EBP-8{Result}],EDX

   00000009 : 89 45 FC                      MOV DWORD PTR [EBP-4{Self}],EAX

 00000000 :                               // -- Line #54 --

   0000000C : 68(38 00 00 00                PUSH TIMBase.FmtLicenseServer{0x2B}+56

   00000011 : 8B 45 FC                      MOV EAX,DWORD PTR [EBP-4{Self}]

   00000014 : FF 70 30                      PUSH DWORD PTR [EAX+48]

   00000017 : 68(4C 00 00 00                PUSH TIMBase.FmtLicenseServer{0x2B}+76

   0000001C : 8B 45 F8                      MOV EAX,DWORD PTR [EBP-8{Result}]

   0000001F : BA 03 00 00 00                MOV EDX,$00000003

   00000024 : E8(00 00 00 00                CALL @LStrCatN{0x20}

 00000000 :                               // -- Line #55 --

   00000029 : 59                            POP ECX

   0000002A : 59                            POP ECX

   0000002B : 5D                            POP EBP

   0000002C : C3                            RET NEAR

   0000002D : 00 00                         ADD BYTE PTR [EAX],AL

   0000002F : 00 FF                         ADD BH,BH

   00000031 : FF FF                         ? EDI

   00000033 : FF 08                         DEC DWORD PTR [EAX]

   00000035 : 00 00                         ADD BYTE PTR [EAX],AL

   00000037 : 00 68 74                      ADD BYTE PTR [EAX+116],CH

   0000003A : 74 70                         JE +112; (0xAC)

   0000003C : 73 3A                         JNB +58; (0x78)

   0000003E : 2F                            DAS

   0000003F : 2F                            DAS

   00000040 : 00 00                         ADD BYTE PTR [EAX],AL

   00000042 : 00 00                         ADD BYTE PTR [EAX],AL

   00000044 : FF FF                         ? EDI

   00000046 : FF FF                         ? EDI

   00000048 : 0C 00                         OR AL,$00

   0000004A : 00 00                         ADD BYTE PTR [EAX],AL

   0000004C : 2F                            DAS

   0000004D : 69 6D 73 65 72 76 69          IMUL DWORD PTR [EBP+115],$69767265

   00000054 : 63                            ARPL

   00000055 : 65 32 2F                      XOR CH,BYTE PTR GS:[EDI]

   00000058 : 00 00                         ADD BYTE PTR [EAX],AL

   0000005A : 00 00                         ADD BYTE PTR [EAX],AL

end;



procedure Finalization;

begin

 00000000 :                               // -- Line #55 -- <<51

   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{0x2E}+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_2{0x26}]

   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{0x2E}+44

   00000024 : C3                            RET NEAR

   00000025 : E9(00 00 00 00                JMP @HandleFinally{0x21}

   0000002A : EB F8                         JMP -8; (0x24)

   0000002C : 5D                            POP EBP

   0000002D : C3                            RET NEAR

end;



procedure BSIMBase;

begin

 00000000 :                               // -- Line #70 --

   00000000 : 83 2D(00 00 00 00 01          SUB DWORD PTR [_DV_2{0x26}],1

 00000000 :                               // -- Line #70 --

   00000007 : C3(                           RET NEAR

end;
xuhao1 2010-12-12
  • 打赏
  • 举报
 回复 


constructor TIMBase.Create (Self: TIMBase; _Dv_: false..true;

  AOwner: Classes.TComponent);

begin

 00000000 :                               // -- Line #46 --

   00000000 : 55                            PUSH EBP

   00000001 : 8B EC                         MOV EBP,ESP

   00000003 : 83 C4 F4                      ADD ESP,-12

   00000006 : 84 D2                         TEST DL,DL

   00000008 : 74 08                         JE +8; (0x12)

   0000000A : 83 C4 F0                      ADD ESP,-16

   0000000D : E8(00 00 00 00                CALL @ClassCreate{0x1D}

   00000012 : 89 4D F4                      MOV DWORD PTR [EBP-12{AOwner}],ECX

   00000015 : 88 55 FB                      MOV BYTE PTR [EBP-5{_Dv_}],DL

   00000018 : 89 45 FC                      MOV DWORD PTR [EBP-4{Self}],EAX

 00000000 :                               // -- Line #47 --

   0000001B : 8B 4D F4                      MOV ECX,DWORD PTR [EBP-12{AOwner}]

   0000001E : 33 D2                         XOR EDX,EDX

   00000020 : 8B 45 FC                      MOV EAX,DWORD PTR [EBP-4{Self}]

   00000023 : E8(00 00 00 00                CALL TComponent.Create{0x13}

 00000000 :                               // -- Line #49 --

   00000028 : 8B 45 FC                      MOV EAX,DWORD PTR [EBP-4{Self}]

   0000002B : 83 C0 30                      ADD EAX,48

   0000002E : BA(60 00 00 00                MOV EDX,TIMBase.Create{0x27}+96

   00000033 : E8(00 00 00 00                CALL @LStrAsg{0x1E}

   00000038 : 8B 45 FC                      MOV EAX,DWORD PTR [EBP-4{Self}]

   0000003B : 80 7D FB 00                   CMP BYTE PTR [EBP-5{_Dv_}],$00

   0000003F : 74 0F                         JE +15; (0x50)

   00000041 : E8(00 00 00 00                CALL @AfterConstruction{0x1F}

   00000046 : 64 8F 05 00 00 00 00          POP DWORD PTR FS:[$00000000]

   0000004D : 83 C4 0C                      ADD ESP,12

   00000050 : 8B 45 FC                      MOV EAX,DWORD PTR [EBP-4{Self}]

 00000000 :                               // -- Line #50 --

   00000053 : 8B E5                         MOV ESP,EBP

   00000055 : 5D                            POP EBP

   00000056 : C3                            RET NEAR

   00000057 : 00 FF                         ADD BH,BH

   00000059 : FF FF                         ? EDI

   0000005B : FF 14 00                      CALL DWORD PTR [EAX+EAX],NEAR

   0000005E : 00 00                         ADD BYTE PTR [EAX],AL

   00000060 : 77 77                         JA +119; (0xD9)

   00000062 : 77 2E                         JA +46; (0x92)

   00000064 : 6D                            INSW

   00000065 : 79 69                         JNS +105; (0xD0)

   00000067 : 6D                            INSW

   00000068 : 73 65                         JNB +101; (0xCF)

   0000006A : 72 76                         JB +118; (0xE2)

   0000006C : 69 63 65 73 2E 63 6F          IMUL DWORD PTR [EBX+101],$6F632E73

   00000073 : 6D                            INSW

   00000074 : 00 00                         ADD BYTE PTR [EAX],AL

   00000076 : 00 00                         ADD BYTE PTR [EAX],AL

end;
破解PE文件
★工具用法 1.OllyICE/OllyDB (1)标题栏中"模块-"后的程序名就是程序领空；双击命令字节码设置/取消断点，双击...使用右键快捷菜单里"超级字串参考->"插件的功能更强大,可以查出许多内置查找功能无法找到的有用信息.
PHP面试题大全
... PHP的运行环境最优搭配为Apache+MySQL+PHP，此运行环境可以在不同操作系统(例如windows、Linux等)上配置，不受操作系统...百度使用哪种方式？ Get与post两种方式 区别： (1)url可见性：get 方式url参数可见，...
我的Delphi开发经验谈(本人修改版) 收藏
我的Delphi开发经验谈(本人修改版) 收藏 开发环境-------- Delphi 7是一个很经典的版本，在Win2000/XP下推荐安装Delphi 7来开发软件，在Vista下推荐使用Delphi 2007开发软件。安装好Delphi 7后，应立即安装Delphi 7...
信息收集道道之外网信息收集
但是域名如果使用泛解析的话，则会导致所有的域名都能成功解析，使得子域名枚举变得不精准。nslookup验证下~泛解析域名，成功解析不存在的域名。普通解析，不存在的域名解析会失败。泛解析：使用通配符*来匹配所有的...
2024版最新超全信息收集工具（非常详细）零基础入门到精通，收藏这一篇就够了
但是域名如果使用泛解析的话，则会导致所有的域名都能成功解析，使得子域名枚举变得不精准。nslookup验证下~泛解析域名，成功解析不存在的域名。普通解析，不存在的域名解析会失败。泛解析：使用通配符来匹配所有的...
网络通信/分布式开发

1,594

社区成员

32,958

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章