我用一个反编译工具反编译了一个Delphi程序,但用Delphi6打开后,里面都是汇编语句,没有思路了,以前没用过Delphi,请大家给个建议,谢谢,下面是一个Form的代码:
unit SignUnit;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TSignDlg=class(TForm)
OKBtn: TButton;
CancelBtn: TButton;
GroupBox1: TGroupBox;
Label1: TLabel;
UniteRadio: TRadioButton;
PDARadio: TRadioButton;
PCRadio: TRadioButton;
procedure FormCreate(Sender : TObject);
procedure _PROC_0043D695(Sender : TObject);
procedure _PROC_0043D6C4(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;var
SignDlg: TSignDlg;{This file is generated by DeDe Ver 3.10b Copyright (c) 1999-2002 DaFixer}implementation{$R *.DFM}procedure TSignDlg.FormCreate(Sender : TObject);
begin
(*
0043D4BC 55 push ebp
0043D4BD 8BEC mov ebp, esp* Possible String Reference to: '上次与本系统进行成功传输的可能不是?
| '
|
0043D4BF BADCD44300 mov edx, $0043D4DC* Reference to control TSignDlg.Label1 : TLabel
|
0043D4C4 8B80E8010000 mov eax, [eax+$01E8]* Reference to : TImageList._PROC_0041B42C()
|
0043D4CA E85DDFFDFF call 0041B42C
0043D4CF 5D pop ebp
0043D4D0 C3 ret*)
end;procedure TSignDlg._PROC_0043D695(Sender : TObject);
begin
(*
0043D695 8BEC mov ebp, esp
0043D697 33C0 xor eax, eax
0043D699 55 push ebp
0043D69A 68B9D64300 push $0043D6B9***** TRY
|
0043D69F 64FF30 push dword ptr fs:[eax]
0043D6A2 648920 mov fs:[eax], esp
0043D6A5 FF05CC574400 inc dword ptr [$004457CC]
0043D6AB 33C0 xor eax, eax
0043D6AD 5A pop edx
0043D6AE 59 pop ecx
0043D6AF 59 pop ecx
0043D6B0 648910 mov fs:[eax], edx****** FINALLY
|* Possible String Reference to: ']脣纼-蘔D'
|
0043D6B3 68C0D64300 push $0043D6C0
0043D6B8 C3 ret0043D6B9 E91A5CFCFF jmp 004032D8
0043D6BE EBF8 jmp 0043D6B8****** END
|
0043D6C0 5D pop ebp
0043D6C1 C3 ret*)
end;procedure TSignDlg._PROC_0043D6C4(Sender : TObject);
begin
(*
0043D6C4 832DCC57440001 sub dword ptr [$004457CC], +$01
0043D6CB C3 ret*)
end;end.//*********************
Reference to : TImageList._PROC_0041B42C()
这句冒号后是代码吗?
unit SignUnit;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TSignDlg=class(TForm)
OKBtn: TButton;
CancelBtn: TButton;
GroupBox1: TGroupBox;
Label1: TLabel;
UniteRadio: TRadioButton;
PDARadio: TRadioButton;
PCRadio: TRadioButton;
procedure FormCreate(Sender : TObject);
procedure _PROC_0043D695(Sender : TObject);
procedure _PROC_0043D6C4(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;var
SignDlg: TSignDlg;{This file is generated by DeDe Ver 3.10b Copyright (c) 1999-2002 DaFixer}implementation{$R *.DFM}procedure TSignDlg.FormCreate(Sender : TObject);
begin
(*
0043D4BC 55 push ebp
0043D4BD 8BEC mov ebp, esp* Possible String Reference to: '上次与本系统进行成功传输的可能不是?
| '
|
0043D4BF BADCD44300 mov edx, $0043D4DC* Reference to control TSignDlg.Label1 : TLabel
|
0043D4C4 8B80E8010000 mov eax, [eax+$01E8]* Reference to : TImageList._PROC_0041B42C()
|
0043D4CA E85DDFFDFF call 0041B42C
0043D4CF 5D pop ebp
0043D4D0 C3 ret*)
end;procedure TSignDlg._PROC_0043D695(Sender : TObject);
begin
(*
0043D695 8BEC mov ebp, esp
0043D697 33C0 xor eax, eax
0043D699 55 push ebp
0043D69A 68B9D64300 push $0043D6B9***** TRY
|
0043D69F 64FF30 push dword ptr fs:[eax]
0043D6A2 648920 mov fs:[eax], esp
0043D6A5 FF05CC574400 inc dword ptr [$004457CC]
0043D6AB 33C0 xor eax, eax
0043D6AD 5A pop edx
0043D6AE 59 pop ecx
0043D6AF 59 pop ecx
0043D6B0 648910 mov fs:[eax], edx****** FINALLY
|* Possible String Reference to: ']脣纼-蘔D'
|
0043D6B3 68C0D64300 push $0043D6C0
0043D6B8 C3 ret0043D6B9 E91A5CFCFF jmp 004032D8
0043D6BE EBF8 jmp 0043D6B8****** END
|
0043D6C0 5D pop ebp
0043D6C1 C3 ret*)
end;procedure TSignDlg._PROC_0043D6C4(Sender : TObject);
begin
(*
0043D6C4 832DCC57440001 sub dword ptr [$004457CC], +$01
0043D6CB C3 ret*)
end;end.//*********************
Reference to : TImageList._PROC_0041B42C()
这句冒号后是代码吗?
反编译的方法不行,就算了!我在想些其他的办法!谢谢大家!