📄 dwform.pas
字号:
unit DWForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
type
TDWORDForm=class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
GroupBox1: TGroupBox;
Hexa: TRadioButton;
Decimal: TRadioButton;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
procedure DecimalClick(Sender: TObject);
procedure Edit2Exit(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure HexaClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
DWORDForm: TDWORDForm;
{This file is generated by DeDe Ver 2.50 Copyright (c) 1999-2001 DaFixer}
implementation
{$R *.DFM}
procedure TDWORDForm.DecimalClick(Sender: TObject);
begin
{
0048A058 55 push ebp
0048A059 8BEC mov ebp, esp
0048A05B 6A00 push $00
0048A05D 53 push ebx
0048A05E 8BD8 mov ebx, eax
0048A060 33C0 xor eax, eax
0048A062 55 push ebp
0048A063 68A1A04800 push $0048A0A1
***** TRY
|
0048A068 64FF30 push dword ptr fs:[eax]
0048A06B 648920 mov fs:[eax], esp
* Reference to field TDWORDForm.OFFS_000C
|
0048A06E 8B430C mov eax, [ebx+$0C]
0048A071 33D2 xor edx, edx
0048A073 52 push edx
0048A074 50 push eax
0048A075 8D45FC lea eax, [ebp-$04]
|
0048A078 E8EFE5F7FF call 0040866C
0048A07D 8B55FC mov edx, [ebp-$04]
* Reference to control TDWORDForm.Edit2 : TEdit
|
0048A080 8B83E0020000 mov eax, [ebx+$02E0]
|
0048A086 E80972FAFF call 00431294
0048A08B 33C0 xor eax, eax
0048A08D 5A pop edx
0048A08E 59 pop ecx
0048A08F 59 pop ecx
0048A090 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]肬嬱j'
|
0048A093 68A8A04800 push $0048A0A8
0048A098 8D45FC lea eax, [ebp-$04]
|
0048A09B E8F49AF7FF call 00403B94
0048A0A0 C3 ret
0048A0A1 E90295F7FF jmp 004035A8
0048A0A6 EBF0 jmp 0048A098
****** END
|
0048A0A8 5B pop ebx
0048A0A9 59 pop ecx
0048A0AA 5D pop ebp
0048A0AB C3 ret
}
end ;
procedure TDWORDForm.Edit2Exit(Sender: TObject);
begin
{
0048A0AC 55 push ebp
0048A0AD 8BEC mov ebp, esp
0048A0AF 6A00 push $00
0048A0B1 6A00 push $00
0048A0B3 6A00 push $00
0048A0B5 53 push ebx
0048A0B6 56 push esi
0048A0B7 57 push edi
0048A0B8 8945FC mov [ebp-$04], eax
0048A0BB 33C0 xor eax, eax
0048A0BD 55 push ebp
0048A0BE 6822A24800 push $0048A222
***** TRY
|
0048A0C3 64FF30 push dword ptr fs:[eax]
0048A0C6 648920 mov fs:[eax], esp
0048A0C9 33C0 xor eax, eax
0048A0CB 55 push ebp
0048A0CC 68E4A14800 push $0048A1E4
***** TRY
|
0048A0D1 64FF30 push dword ptr fs:[eax]
0048A0D4 648920 mov fs:[eax], esp
0048A0D7 8B45FC mov eax, [ebp-$04]
* Reference to control TDWORDForm.Hexa : TRadioButton
|
0048A0DA 8B80F0020000 mov eax, [eax+$02F0]
0048A0E0 8B10 mov edx, [eax]
* Possible reference to virtual method TRadioButton.OFFS_00B4
|
0048A0E2 FF92B4000000 call dword ptr [edx+$00B4]
0048A0E8 84C0 test al, al
0048A0EA 0F84C9000000 jz 0048A1B9
0048A0F0 8D55F8 lea edx, [ebp-$08]
0048A0F3 8B45FC mov eax, [ebp-$04]
* Reference to control TDWORDForm.Edit2 : TEdit
|
0048A0F6 8B80E0020000 mov eax, [eax+$02E0]
|
0048A0FC E86371FAFF call 00431264
0048A101 33F6 xor esi, esi
0048A103 8B45F8 mov eax, [ebp-$08]
|
0048A106 E8099DF7FF call 00403E14
0048A10B 8BF8 mov edi, eax
0048A10D 85FF test edi, edi
0048A10F 0F869C000000 jbe 0048A1B1
0048A115 BB01000000 mov ebx, $00000001
0048A11A 8B45F8 mov eax, [ebp-$08]
0048A11D 8A4418FF mov al, byte ptr [eax+ebx-$01]
|
0048A121 E81E88F7FF call 00402944
0048A126 3C46 cmp al, $46
0048A128 7726 jnbe 0048A150
0048A12A 8B45F8 mov eax, [ebp-$08]
0048A12D 8A4418FF mov al, byte ptr [eax+ebx-$01]
0048A131 3C30 cmp al, $30
0048A133 721B jb 0048A150
0048A135 8B45F8 mov eax, [ebp-$08]
0048A138 8A4418FF mov al, byte ptr [eax+ebx-$01]
0048A13C 3C39 cmp al, $39
0048A13E 7627 jbe 0048A167
0048A140 8B45F8 mov eax, [ebp-$08]
0048A143 8A4418FF mov al, byte ptr [eax+ebx-$01]
|
0048A147 E8F887F7FF call 00402944
0048A14C 3C41 cmp al, $41
0048A14E 7317 jnb 0048A167
* Possible String Reference to: '输入错误'
|
0048A150 B838A24800 mov eax, $0048A238
|
0048A155 E89EB5FCFF call 004556F8
0048A15A 33C0 xor eax, eax
0048A15C 5A pop edx
0048A15D 59 pop ecx
0048A15E 59 pop ecx
0048A15F 648910 mov fs:[eax], edx
0048A162 E99D000000 jmp 0048A204
0048A167 8B45F8 mov eax, [ebp-$08]
0048A16A 8A4418FF mov al, byte ptr [eax+ebx-$01]
0048A16E 3C39 cmp al, $39
0048A170 7622 jbe 0048A194
0048A172 8B45F8 mov eax, [ebp-$08]
0048A175 8A4418FF mov al, byte ptr [eax+ebx-$01]
|
0048A179 E8C687F7FF call 00402944
0048A17E 25FF000000 and eax, $000000FF
0048A183 83E807 sub eax, +$07
0048A186 50 push eax
0048A187 8D45F8 lea eax, [ebp-$08]
|
0048A18A E8559EF7FF call 00403FE4
0048A18F 5A pop edx
0048A190 885418FF mov [eax+ebx-$01], dl
0048A194 8B45F8 mov eax, [ebp-$08]
0048A197 8A4418FF mov al, byte ptr [eax+ebx-$01]
0048A19B 2C30 sub al, $30
0048A19D 25FF000000 and eax, $000000FF
0048A1A2 C1E604 shl esi, $04
0048A1A5 0BC6 or eax, esi
0048A1A7 8BF0 mov esi, eax
0048A1A9 43 inc ebx
0048A1AA 4F dec edi
0048A1AB 0F8569FFFFFF jnz 0048A11A
0048A1B1 8B45FC mov eax, [ebp-$04]
* Reference to field TDWORDForm.OFFS_000C
|
0048A1B4 89700C mov [eax+$0C], esi
0048A1B7 EB21 jmp 0048A1DA
0048A1B9 8D55F4 lea edx, [ebp-$0C]
0048A1BC 8B45FC mov eax, [ebp-$04]
* Reference to control TDWORDForm.Edit2 : TEdit
|
0048A1BF 8B80E0020000 mov eax, [eax+$02E0]
|
0048A1C5 E89A70FAFF call 00431264
0048A1CA 8B45F4 mov eax, [ebp-$0C]
|
0048A1CD E84AE5F7FF call 0040871C
0048A1D2 8BF0 mov esi, eax
0048A1D4 8B45FC mov eax, [ebp-$04]
* Reference to field TDWORDForm.OFFS_000C
|
0048A1D7 89700C mov [eax+$0C], esi
0048A1DA 33C0 xor eax, eax
0048A1DC 5A pop edx
0048A1DD 59 pop ecx
0048A1DE 59 pop ecx
0048A1DF 648910 mov fs:[eax], edx
0048A1E2 EB20 jmp 0048A204
****** EXCEPT
|
0048A1E4 E93792F7FF jmp 00403420
0048A1E9 0100 add [eax], eax
0048A1EB 0000 add [eax], al
0048A1ED 747D jz 0048A26C
0048A1EF 40 inc eax
0048A1F0 00F5 add ch, dh
0048A1F2 A14800B838 mov eax, dword ptr [$38B80048]
0048A1F7 A24800E8F9 mov byte ptr [$F9E80048], al
0048A1FC B4FC mov ah, $FC
0048A1FE FFE8 jmp ax
0048A200 4C dec esp
0048A201 94 xchg eax, esp
0048A202 F7FF idiv edi
****** END
|
0048A204 33C0 xor eax, eax
0048A206 5A pop edx
0048A207 59 pop ecx
0048A208 59 pop ecx
0048A209 648910 mov fs:[eax], edx
****** FINALLY
|
0048A20C 6829A24800 push $0048A229
0048A211 8D45F4 lea eax, [ebp-$0C]
|
0048A214 E87B99F7FF call 00403B94
0048A219 8D45F8 lea eax, [ebp-$08]
|
0048A21C E87399F7FF call 00403B94
0048A221 C3 ret
0048A222 E98193F7FF jmp 004035A8
0048A227 EBE8 jmp 0048A211
****** END
|
0048A229 5F pop edi
0048A22A 5E pop esi
0048A22B 5B pop ebx
0048A22C 8BE5 mov esp, ebp
0048A22E 5D pop ebp
0048A22F C3 ret
0048A230 FFFF DB $FF, $FF //
0048A232 FFFF DB $FF, $FF //
0048A234 0800 or [eax], al
0048A236 0000 add [eax], al
0048A238 CA ret
0048A239 E4C8 in al, $C8
0048A23B EBB4 jmp 0048A1F1
0048A23D ED in eax, dx
0048A23E CE into
0048A23F F3 rep
0048A240 0000 add [eax], al
0048A242 0000 add [eax], al
0048A244 55 push ebp
0048A245 8BEC mov ebp, esp
0048A247 33C0 xor eax, eax
0048A249 55 push ebp
* Possible String Reference to: '⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -