-
-
[旧帖]
[求助]一个奇怪的DELPHI程序
0.00雪花
-
发表于:
2008-3-7 13:29
3563
-
[旧帖] [求助]一个奇怪的DELPHI程序
0.00雪花
我用DeDe搞一个delphi程序，没有想到“注册”按钮点击事件是这样的－－－直接弹出对话框提示注册码有误！根本没有经过注册判断。。。
莫非这软件属于功能不完整版，不具备注册验证功能吗？？？
谢谢各位！
procedure TfrmRegister.btnRegisterClick(Sender : TObject);
begin
(*
0045E250 55 push ebp
0045E251 8BEC mov ebp, esp
0045E253 6A00 push $00
0045E255 6A00 push $00
0045E257 6A00 push $00
0045E259 53 push ebx
0045E25A 8BD8 mov ebx, eax
0045E25C 33C0 xor eax, eax
0045E25E 55 push ebp
* Possible String Reference to: '轭V?腚[嬪]?
|
0045E25F 68CDE24500 push $0045E2CD
***** TRY
|
0045E264 64FF30 push dword ptr fs:[eax]
0045E267 648920 mov fs:[eax], esp
0045E26A 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '很抱歉，您的注册码不对！'
|
0045E26D BAE4E24500 mov edx, $0045E2E4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0045E272 E8DD5DFAFF call 00404054
0045E277 8D55F4 lea edx, [ebp-$0C]
0045E27A A1AC204600 mov eax, dword ptr [$004620AC]
0045E27F 8B00 mov eax, [eax]
* Reference to: Forms.TApplication.GetTitle(TApplication):AnsiString;
|
0045E281 E8128DFFFF call 00456F98
0045E286 8B45F4 mov eax, [ebp-$0C]
0045E289 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0045E28C E82B9DFAFF call 00407FBC
0045E291 6A10 push $10
0045E293 8B45F8 mov eax, [ebp-$08]
* Reference to: System.@LStrToPChar(String):PAnsiChar;
|
0045E296 E8E161FAFF call 0040447C
0045E29B 50 push eax
0045E29C 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrToPChar(String):PAnsiChar;
|
0045E29F E8D861FAFF call 0040447C
0045E2A4 50 push eax
0045E2A5 8BC3 mov eax, ebx
* Reference to: Controls.TWinControl.GetHandle(TWinControl):HWND;
| or: QComCtrls.TTrackBar.GetHandle(TTrackBar):QClxSliderH;
| or: QComCtrls.TCustomViewControl.GetHandle(TCustomViewControl):QListViewH;
| or: QComCtrls.TCustomViewControl.ViewportHandle(TCustomViewControl):QWidgetH;
| or: QComCtrls.TCustomHeaderControl.GetHandle(TCustomHeaderControl):QHeaderH;
| or: QComCtrls.TCustomSpinEdit.GetHandle(TCustomSpinEdit):QClxSpinBoxH;
|
0045E2A7 E80002FEFF call 0043E4AC
0045E2AC 50 push eax
* Reference to: user32.MessageBoxA()
|
0045E2AD E83687FAFF call 004069E8
0045E2B2 33C0 xor eax, eax
0045E2B4 5A pop edx
0045E2B5 59 pop ecx
0045E2B6 59 pop ecx
0045E2B7 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[嬪]?
|
0045E2BA 68D4E24500 push $0045E2D4
0045E2BF 8D45F4 lea eax, [ebp-$0C]
0045E2C2 BA03000000 mov edx, $00000003
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0045E2C7 E8145DFAFF call 00403FE0
0045E2CC C3 ret
* Reference to: System.@HandleFinally;
|
0045E2CD E9EE56FAFF jmp 004039C0
0045E2D2 EBEB jmp 0045E2BF
****** END
|
0045E2D4 5B pop ebx
0045E2D5 8BE5 mov esp, ebp
0045E2D7 5D pop ebp
0045E2D8 C3 ret
*)
end;
[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！
