unit DBPWDlg; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls type TPasswordDialog=class(TForm) GroupBox1: TGroupBox; Edit: TEdit; AddButton: TButton; RemoveButton: TButton; RemoveAllButton: TButton; OKButton: TButton; CancelButton: TButton; procedure EditChange(Sender : TObject); procedure AddButtonClick(Sender : TObject); procedure RemoveButtonClick(Sender : TObject); procedure RemoveAllButtonClick(Sender : TObject); procedure OKButtonClick(Sender : TObject); procedure _PROC_005470BC(Sender : TObject); procedure _PROC_005470F8(Sender : TObject); procedure _PROC_00547110(Sender : TObject); private { Private declarations } public { Public declarations } end ; var PasswordDialog: TPasswordDialog; {This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer} implementation {$R *.DFM} procedure TPasswordDialog.EditChange(Sender : TObject); begin (* 00546ED8 55 push ebp 00546ED9 8BEC mov ebp, esp 00546EDB 6A00 push $00 00546EDD 53 push ebx 00546EDE 56 push esi 00546EDF 8BF0 mov esi, eax 00546EE1 33C0 xor eax, eax 00546EE3 55 push ebp * Possible String Reference to: '^[Y]ËUj' | 00546EE4 68526F5400 push $00546F52 ***** TRY | 00546EE9 64FF30 push dword ptr fs:[eax] 00546EEC 648920 mov fs:[eax], esp 00546EEF 8D55FC lea edx, [ebp-$04] * Reference to control TPasswordDialog.Edit : TEdit | 00546EF2 8B86FC020000 mov eax, [esi+$02FC] * Reference to: Controls.TControl.GetText(TControl):TCaption; | 00546EF8 E8F316F4FF call 004885F0 00546EFD 837DFC00 cmp dword ptr [ebp-$04], +$00 00546F01 0F95C3 setnz bl 00546F04 8BD3 mov edx, ebx * Reference to control TPasswordDialog.AddButton : TButton | 00546F06 8B8600030000 mov eax, [esi+$0300] 00546F0C 8B08 mov ecx, [eax] * Reference to method TButton.SetEnabled(Boolean) | 00546F0E FF5164 call dword ptr [ecx+$64] 00546F11 8BD3 mov edx, ebx * Reference to control TPasswordDialog.RemoveButton : TButton | 00546F13 8B8604030000 mov eax, [esi+$0304] 00546F19 8B08 mov ecx, [eax] * Reference to method TButton.SetEnabled(Boolean) | 00546F1B FF5164 call dword ptr [ecx+$64] 00546F1E 84DB test bl, bl 00546F20 750D jnz 00546F2F * Reference to field TPasswordDialog.OFFS_0314 | 00546F22 80BE1403000000 cmp byte ptr [esi+$0314], $00 00546F29 7504 jnz 00546F2F 00546F2B 33D2 xor edx, edx 00546F2D EB02 jmp 00546F31 00546F2F B201 mov dl, $01 * Reference to control TPasswordDialog.OKButton : TButton | 00546F31 8B860C030000 mov eax, [esi+$030C] 00546F37 8B08 mov ecx, [eax] * Reference to method TButton.SetEnabled(Boolean) | 00546F39 FF5164 call dword ptr [ecx+$64] 00546F3C 33C0 xor eax, eax 00546F3E 5A pop edx 00546F3F 59 pop ecx 00546F40 59 pop ecx 00546F41 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '^[Y]ËUj' | 00546F44 68596F5400 push $00546F59 00546F49 8D45FC lea eax, [ebp-$04] * Reference to: System.@LStrClr(void;void); | 00546F4C E8D3E3EBFF call 00405324 00546F51 C3 ret * Reference to: System.@HandleFinally; | 00546F52 E99DDBEBFF jmp 00404AF4 00546F57 EBF0 jmp 00546F49 ****** END | 00546F59 5E pop esi 00546F5A 5B pop ebx 00546F5B 59 pop ecx 00546F5C 5D pop ebp 00546F5D C3 ret *) end; procedure TPasswordDialog.AddButtonClick(Sender : TObject); begin (* 00546F60 55 push ebp 00546F61 8BEC mov ebp, esp 00546F63 6A00 push $00 00546F65 53 push ebx 00546F66 8BD8 mov ebx, eax 00546F68 33C0 xor eax, eax 00546F6A 55 push ebp * Possible String Reference to: '$[Y]ËUj' | 00546F6B 68CB6F5400 push $00546FCB ***** TRY | 00546F70 64FF30 push dword ptr fs:[eax] 00546F73 648920 mov fs:[eax], esp 00546F76 8D55FC lea edx, [ebp-$04] * Reference to control TPasswordDialog.Edit : TEdit | 00546F79 8B83FC020000 mov eax, [ebx+$02FC] * Reference to: Controls.TControl.GetText(TControl):TCaption; | 00546F7F E86C16F4FF call 004885F0 00546F84 8B55FC mov edx, [ebp-$04] * Reference to field TPasswordDialog.OFFS_0318 | 00546F87 8B8318030000 mov eax, [ebx+$0318] 00546F8D 8B08 mov ecx, [eax] 00546F8F FF510C call dword ptr [ecx+$0C] * Reference to field TPasswordDialog.OFFS_0314 | 00546F92 C6831403000001 mov byte ptr [ebx+$0314], $01 * Reference to control TPasswordDialog.Edit : TEdit | 00546F99 8B83FC020000 mov eax, [ebx+$02FC] 00546F9F 8B10 mov edx, [eax] * Reference to method TEdit.Clear() | 00546FA1 FF92E0000000 call dword ptr [edx+$00E0] * Reference to control TPasswordDialog.Edit : TEdit | 00546FA7 8B83FC020000 mov eax, [ebx+$02FC] 00546FAD 8B10 mov edx, [eax] * Reference to method TEdit.SetFocus() | 00546FAF FF92C4000000 call dword ptr [edx+$00C4] 00546FB5 33C0 xor eax, eax 00546FB7 5A pop edx 00546FB8 59 pop ecx 00546FB9 59 pop ecx 00546FBA 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '[Y]ËUj' | 00546FBD 68D26F5400 push $00546FD2 00546FC2 8D45FC lea eax, [ebp-$04] * Reference to: System.@LStrClr(void;void); | 00546FC5 E85AE3EBFF call 00405324 00546FCA C3 ret * Reference to: System.@HandleFinally; | 00546FCB E924DBEBFF jmp 00404AF4 00546FD0 EBF0 jmp 00546FC2 ****** END | 00546FD2 5B pop ebx 00546FD3 59 pop ecx 00546FD4 5D pop ebp 00546FD5 C3 ret *) end; procedure TPasswordDialog.RemoveButtonClick(Sender : TObject); begin (* 00546FD8 55 push ebp 00546FD9 8BEC mov ebp, esp 00546FDB 6A00 push $00 00546FDD 53 push ebx 00546FDE 8BD8 mov ebx, eax 00546FE0 33C0 xor eax, eax 00546FE2 55 push ebp 00546FE3 683C705400 push $0054703C ***** TRY | 00546FE8 64FF30 push dword ptr fs:[eax] 00546FEB 648920 mov fs:[eax], esp 00546FEE 8D55FC lea edx, [ebp-$04] * Reference to control TPasswordDialog.Edit : TEdit | 00546FF1 8B83FC020000 mov eax, [ebx+$02FC] * Reference to: Controls.TControl.GetText(TControl):TCaption; | 00546FF7 E8F415F4FF call 004885F0 00546FFC 8B55FC mov edx, [ebp-$04] * Reference to field TPasswordDialog.OFFS_0318 | 00546FFF 8B8318030000 mov eax, [ebx+$0318] 00547005 8B08 mov ecx, [eax] 00547007 FF5110 call dword ptr [ecx+$10] * Reference to control TPasswordDialog.Edit : TEdit | 0054700A 8B83FC020000 mov eax, [ebx+$02FC] 00547010 8B10 mov edx, [eax] * Reference to method TEdit.Clear() | 00547012 FF92E0000000 call dword ptr [edx+$00E0] * Reference to control TPasswordDialog.Edit : TEdit | 00547018 8B83FC020000 mov eax, [ebx+$02FC] 0054701E 8B10 mov edx, [eax] * Reference to method TEdit.SetFocus() | 00547020 FF92C4000000 call dword ptr [edx+$00C4] 00547026 33C0 xor eax, eax 00547028 5A pop edx 00547029 59 pop ecx 0054702A 59 pop ecx 0054702B 648910 mov fs:[eax], edx ****** FINALLY | 0054702E 6843705400 push $00547043 00547033 8D45FC lea eax, [ebp-$04] * Reference to: System.@LStrClr(void;void); | 00547036 E8E9E2EBFF call 00405324 0054703B C3 ret * Reference to: System.@HandleFinally; | 0054703C E9B3DAEBFF jmp 00404AF4 00547041 EBF0 jmp 00547033 ****** END | 00547043 5B pop ebx 00547044 59 pop ecx 00547045 5D pop ebp 00547046 C3 ret *) end; procedure TPasswordDialog.RemoveAllButtonClick(Sender : TObject); begin (* 00547048 53 push ebx 00547049 8BD8 mov ebx, eax * Reference to field TPasswordDialog.OFFS_0318 | 0054704B 8B8318030000 mov eax, [ebx+$0318] 00547051 8B10 mov edx, [eax] 00547053 FF5214 call dword ptr [edx+$14] * Reference to control TPasswordDialog.Edit : TEdit | 00547056 8B83FC020000 mov eax, [ebx+$02FC] 0054705C 8B10 mov edx, [eax] * Reference to method TEdit.SetFocus() | 0054705E FF92C4000000 call dword ptr [edx+$00C4] 00547064 5B pop ebx 00547065 C3 ret *) end; procedure TPasswordDialog.OKButtonClick(Sender : TObject); begin (* 00547068 55 push ebp 00547069 8BEC mov ebp, esp 0054706B 6A00 push $00 0054706D 53 push ebx 0054706E 8BD8 mov ebx, eax 00547070 33C0 xor eax, eax 00547072 55 push ebp * Possible String Reference to: '?[Y]ÐU3UhpT' | 00547073 68B0705400 push $005470B0 ***** TRY | 00547078 64FF30 push dword ptr fs:[eax] 0054707B 648920 mov fs:[eax], esp 0054707E 8D55FC lea edx, [ebp-$04] * Reference to control TPasswordDialog.Edit : TEdit | 00547081 8B83FC020000 mov eax, [ebx+$02FC] * Reference to: Controls.TControl.GetText(TControl):TCaption; | 00547087 E86415F4FF call 004885F0 0054708C 8B55FC mov edx, [ebp-$04] * Reference to field TPasswordDialog.OFFS_0318 | 0054708F 8B8318030000 mov eax, [ebx+$0318] 00547095 8B08 mov ecx, [eax] 00547097 FF510C call dword ptr [ecx+$0C] 0054709A 33C0 xor eax, eax 0054709C 5A pop edx 0054709D 59 pop ecx 0054709E 59 pop ecx 0054709F 648910 mov fs:[eax], edx ****** FINALLY | * Possible String Reference to: '[Y]ÐU3UhpT' | 005470A2 68B7705400 push $005470B7 005470A7 8D45FC lea eax, [ebp-$04] * Reference to: System.@LStrClr(void;void); | 005470AA E875E2EBFF call 00405324 005470AF C3 ret * Reference to: System.@HandleFinally; | 005470B0 E93FDAEBFF jmp 00404AF4 005470B5 EBF0 jmp 005470A7 ****** END | 005470B7 5B pop ebx 005470B8 59 pop ecx 005470B9 5D pop ebp 005470BA C3 ret *) end; procedure TPasswordDialog._PROC_005470BC(Sender : TObject); begin (* 005470BC 55 push ebp 005470BD 8BEC mov ebp, esp 005470BF 33C0 xor eax, eax 005470C1 55 push ebp 005470C2 68EC705400 push $005470EC ***** TRY | 005470C7 64FF30 push dword ptr fs:[eax] 005470CA 648920 mov fs:[eax], esp 005470CD FF0558328900 inc dword ptr [$00893258] 005470D3 7509 jnz 005470DE *) end; procedure TPasswordDialog._PROC_005470F8(Sender : TObject); begin (* 005470F8 832D5832890001 sub dword ptr [$00893258], +$01 005470FF 730B jnb 0054710C *) end; procedure TPasswordDialog._PROC_00547110(Sender : TObject); begin (* 00547110 5C pop esp 00547111 7154 jno 00547167 00547113 0000 add [eax], al 00547115 0000 add [eax], al 00547117 0000 add [eax], al 00547119 0000 add [eax], al 0054711B 00B0715400D8 add [eax+$D8005471], dh 00547121 7154 jno 00547177 00547123 0000 add [eax], al 00547125 0000 add [eax], al 00547127 0000 add [eax], al 00547129 0000 add [eax], al 0054712B 0000 add [eax], al 0054712D 0000 add [eax], al 0054712F 00C2 add dl, al 00547131 7154 jno 00547187 00547133 005000 add [eax+$00], dl 00547136 0000 add [eax], al 00547138 2C7C sub al, $7C 0054713A 4B dec ebx 0054713B 00A8454000B4 add [eax+$B4004045], ch 00547141 45 inc ebp 00547142 40 inc eax 00547143 00B8454000BC add [eax+$BC004045], bh 00547149 45 inc ebp 0054714A 40 inc eax 0054714B 00B0454000E4 add [eax+$E4004045], dh 00547151 42 inc edx 00547152 40 inc eax 00547153 0000 add [eax], al 00547155 43 inc ebx 00547156 40 inc eax 00547157 00402C add [eax+$2C], al 0054715A 4C dec esp 0054715B 009C3D4200A43D add [ebp+edi+$3DA40042], bl 00547162 42 inc edx 00547163 00B83C420010 add [eax+$1000423C], bh 00547169 95 xchg eax, ebp 0054716A 54 push esp 0054716B 00E4 add ah, ah 0054716D 2F das 0054716E 4C dec esp 0054716F 00E8 add al, ch 00547171 95 xchg eax, ebp 00547172 54 push esp 00547173 00E8 add al, ch 00547175 2F das 00547176 4C dec esp 00547177 00F0 add al, dh 00547179 2F das 0054717A 4C dec esp 0054717B 002C9554005095 add [$95500054+edx*4], ch 00547182 54 push esp 00547183 00682E add [eax+$2E], ch 00547186 4C dec esp 00547187 006030 add [eax+$30], ah 0054718A 4C dec esp 0054718B 0088304C0074 add [eax+$74004C30], cl 00547191 304C00C4 xor [eax+eax-$3C], cl 00547195 2E4C dec esp 00547197 00BC9554008C30 add [ebp+edx*4+$308C0054], bh 0054719E 4C dec esp 0054719F 009895540080 add [eax+$80005495], bl 005471A5 2E4C dec esp 005471A7 00942E4C00C495 add [esi+ebp+$95C4004C], dl 005471AE 54 push esp 005471AF 000E add [esi], cl 005471B1 0000 add [eax], al *) end; end.