📄 unit1.pas
字号:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TForm1=class(TForm)
Image1: TImage;
GroupBox1: TGroupBox;
RichEdit1: TRichEdit;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender : TObject);
procedure _PROC_00493690(Sender : TObject);
procedure _PROC_00493698(Sender : TObject);
procedure _PROC_004936FE(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Form1: TForm1;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TForm1.SpeedButton1Click(Sender : TObject);
begin
(*
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00493658 E87FE7FCFF call 00461DDC
0049365D C3 ret
*)
end;
procedure TForm1._PROC_00493690(Sender : TObject);
begin
(*
00493690 832D8C9C490001 sub dword ptr [$00499C8C], +$01
00493697 C3 ret
*)
end;
procedure TForm1._PROC_00493698(Sender : TObject);
begin
(*
00493698 E436 in al, $36
0049369A 49 dec ecx
0049369B 0000 add [eax], al
*)
end;
procedure TForm1._PROC_004936FE(Sender : TObject);
begin
(*
004936FE 44 inc esp
004936FF 0054DF41 add [edi+ebx*8+$41], dl
00493703 0054EB45 add [ebx+ebp*8+$45], dl
00493707 0034DC add [esp+ebx*8], dh
0049370A 41 inc ecx
0049370B 00F4 add ah, dh
0049370D 2646 inc esi
0049370F 002CDC add [esp+ebx*8], ch
00493712 45 inc ebp
00493713 00ACC54400C8CA add [ebp+eax*8+$CAC80044], ch
0049371A 44 inc esp
0049371B 0014CA add [edx+ecx*8], dl
0049371E 44 inc esp
0049371F 00A44A440028C0 add [edx+ecx*2+$C0280044], ah
00493726 44 inc esp
00493727 0034E8 add [eax+ebp*8], dh
0049372A 45 inc ebp
0049372B 0028 add [eax], ch
0049372D BD4400EC49 mov ebp, $49EC0044
00493732 44 inc esp
00493733 00F0 add al, dh
00493735 49 dec ecx
00493736 44 inc esp
00493737 0028 add [eax], ch
00493739 E94500187A jmp 7A613783
0049373E 44 inc esp
0049373F 0030 add [eax], dh
00493741 55 push ebp
00493742 44 inc esp
00493743 00684B add [eax+$4B], ch
00493746 44 inc esp
00493747 00BC5644001CEB add [esi+edx*2+$EB1C0044], bh
0049374E 45 inc ebp
0049374F 00E8 add al, ch
00493751 E94500F457 jmp 583D379B
00493756 44 inc esp
00493757 0094EB45009C7A add [ebx+ebp*8+$7A9C0045], dl
0049375E 44 inc esp
0049375F 00B4BD440070BE add [ebp+edi*4+$BE700044], dh
00493766 44 inc esp
00493767 0034B9 add [ecx+edi*4], dh
0049376A 44 inc esp
0049376B 0054BE44 add [esi+edi*4+$44], dl
0049376F 002CDB add [ebx+ebx*8], ch
00493772 45 inc ebp
00493773 0038 add [eax], bh
00493775 F2 repne
00493776 45 inc ebp
00493777 00E8 add al, ch
00493779 93 xchg eax, ebx
0049377A 44 inc esp
0049377B 00FC add ah, bh
0049377D FE4500 inc byte ptr [ebp+$00]
00493780 5C pop esp
00493781 024600 add al, byte ptr [esi+$00]
00493784 1801 sbb [ecx], al
00493786 46 inc esi
00493787 008094440084 add [eax+$84004494], al
0049378D 94 xchg eax, esp
0049378E 44 inc esp
0049378F 0094034600E492 add [ebx+eax+$92E40046], dl
00493796 44 inc esp
00493797 0094BF4400880A add [edi+edi*4+$A880044], dl
0049379E 46 inc esi
0049379F 0088D14400D8 add [eax+$D80044D1], cl
004937A5 BB44009C1F mov ebx, $1F9C0044
004937AA 46 inc esi
004937AB 0020 add [eax], ah
004937AD D5 aad
004937AE 45 inc ebp
004937AF 00D0 add al, dl
004937B1 D7 xlat
004937B2 45 inc ebp
004937B3 007C1046 add [eax+edx+$46], bh
004937B7 00B8E0450034 add [eax+$340045E0], bh
004937BD E145 loope +$45
004937BF 007C2346 add [ebx+$46], bh
004937C3 00F0 add al, dh
004937C5 DD4500 fld qword ptr [ebp+$00]
004937C8 801E46 sbb byte ptr [esi], $46
004937CB 006005 add [eax+$05], ah
004937CE 46 inc esi
004937CF 003420 add [eax], dh
004937D2 46 inc esi
004937D3 0018 add [eax], bl
004937D5 EB45 jmp 0049381C
004937D7 0003 add [ebx], al
004937D9 002F add [edi], ch
004937DB 384900 cmp [ecx+$00], cl
004937DE F8 clc
004937DF 0200 add al, byte ptr [eax]
004937E1 0000 add [eax], al
004937E3 0006 add [esi], al
004937E5 49 dec ecx
004937E6 6D insd
004937E7 61 popa
004937E8 676531FC xor esp, edi
004937EC 0200 add al, byte ptr [eax]
004937EE 0001 add [ecx], al
004937F0 0009 add [ecx], cl
004937F2 52 push edx
004937F3 69636845646974 imul esp, [ebx+$68], $74696445
004937FA 3100 xor [eax], eax
004937FC 0300 add eax, [eax]
004937FE 0002 add [edx], al
00493800 000C53 add [ebx+edx*2], cl
00493803 7065 jo 0049386A
00493805 656442 inc edx
00493808 7574 jnz 0049387E
0049380A 746F jz 0049387B
0049380C 6E outsb
0049380D 3101 xor [ecx], eax
0049380F 0018 add [eax], bl
00493811 006038 add [eax+$38], ah
00493814 49 dec ecx
00493815 0011 add [ecx], dl
00493817 53 push ebx
00493818 7065 jo 0049387F
0049381A 656442 inc edx
0049381D 7574 jnz 00493893
0049381F 746F jz 00493890
00493821 6E outsb
00493822 31436C xor [ebx+$6C], eax
00493825 69636B0654466F imul esp, [ebx+$6B], $6F465406
0049382C 726D jb 0049389B
0049382E 3203 xor al, byte ptr [ebx]
00493830 008CDB4200C04C add [ebx+ebx*8+$4CC00042], cl
00493837 43 inc ebx
00493838 00A80443008D add [eax+$8D004304], ch
0049383E 40 inc eax
0049383F 00443849 add [eax+edi+$49], al
00493843 0007 add [edi], al
00493845 06 push es
00493846 54 push esp
00493847 46 inc esi
00493848 6F outsd
00493849 726D jb 004938B8
0049384B 32E4 xor ah, ah
0049384D 3649 dec ecx
0049384F 00E0 add al, ah
00493851 B245 mov dl, $45
00493853 005E00 add [esi+$00], bl
00493856 05556E6974 add eax, +$74696E55
0049385B 3200 xor al, byte ptr [eax]
0049385D 008BC0E877E5 add [ebx+$E577E8C0], cl
00493863 FC cld
00493864 FFC3 inc ebx
00493866 8BC0 mov eax, eax
00493868 55 push ebp
00493869 8BEC mov ebp, esp
0049386B 33C0 xor eax, eax
0049386D 55 push ebp
0049386E 688D384900 push $0049388D
***** TRY
|
00493873 64FF30 push dword ptr fs:[eax]
00493876 648920 mov fs:[eax], esp
00493879 FF05949C4900 inc dword ptr [$00499C94]
0049387F 33C0 xor eax, eax
00493881 5A pop edx
00493882 59 pop ecx
00493883 59 pop ecx
00493884 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']脣纼-敎I'
|
00493887 6894384900 push $00493894
0049388C C3 ret
* Reference to: System.@HandleFinally;
|
0049388D E96E01F7FF jmp 00403A00
00493892 EBF8 jmp 0049388C
****** END
|
00493894 5D pop ebp
00493895 C3 ret
00493896 8BC0 mov eax, eax
00493898 832D949C490001 sub dword ptr [$00499C94], +$01
0049389F C3 ret
004938A0 EC in al, dx
004938A1 384900 cmp [ecx+$00], cl
004938A4 0000 add [eax], al
004938A6 0000 add [eax], al
004938A8 0000 add [eax], al
004938AA 0000 add [eax], al
004938AC 0000 add [eax], al
004938AE 0000 add [eax], al
004938B0 44 inc esp
004938B1 3A4900 cmp cl, byte ptr [ecx+$00]
004938B4 E039 loopn +$39
004938B6 49 dec ecx
004938B7 0013 add [ebx], dl
004938B9 3A4900 cmp cl, byte ptr [ecx+$00]
004938BC 0000 add [eax], al
*)
end;
end.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -