529 lines
16 KiB
ObjectPascal
529 lines
16 KiB
ObjectPascal
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]ËÀU‹ìj'
|
||
|
|
||
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]ËÀU‹ìj'
|
||
|
|
||
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]ËÀU‹ìj'
|
||
|
|
||
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]ËÀU‹ìj'
|
||
|
|
||
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]Ã<>U‹ì3ÀUhìpT'
|
||
|
|
||
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]Ã<>U‹ì3ÀUhìpT'
|
||
|
|
||
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. |