Group_99/D7myChuangpin
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7myChuangpin/YSYF/DBPWDlg.pas

529 lines
16 KiB
ObjectPascal
Raw Permalink Normal View History

1
2024-07-23 20:18:14 +08:00
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: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[Y]Ë<>U<EFBFBD><55>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<EFBFBD><55>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: '<27>$<24><><EFBFBD><EFBFBD><EFBFBD>[Y]Ë<>U<EFBFBD><55>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<EFBFBD><55>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: '<27>?<3F><><EFBFBD><EFBFBD><EFBFBD>[Y]ÐU<C390><55>3<EFBFBD>Uh<55>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<C390><55>3<EFBFBD>Uh<55>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.
Reference in New Issue Copy Permalink