www.pudn.com > llllew.zip > DBPWDlg.pas
unit DBPWDlg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ComCtrls;
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);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
PasswordDialog: TPasswordDialog;
implementation
{$R *.DFM}
procedure TPasswordDialog.EditChange(Sender : TObject);
begin
(*
0047A4B0 55 push ebp
0047A4B1 8BEC mov ebp, esp
0047A4B3 6A00 push $00
0047A4B5 53 push ebx
0047A4B6 56 push esi
0047A4B7 8BF0 mov esi, eax
0047A4B9 33C0 xor eax, eax
0047A4BB 55 push ebp
* Possible String Reference to: '^[Y]ËUj'
|
0047A4BC 682AA54700 push $0047A52A
***** TRY
|
0047A4C1 64FF30 push dword ptr fs:[eax]
0047A4C4 648920 mov fs:[eax], esp
0047A4C7 8D55FC lea edx, [ebp-$04]
* Reference to control TPasswordDialog.Edit : TEdit
|
0047A4CA 8B86D4020000 mov eax, [esi+$02D4]
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
0047A4D0 E88B78FBFF call 00431D60
0047A4D5 837DFC00 cmp dword ptr [ebp-$04], +$00
0047A4D9 0F95C3 setnz bl
0047A4DC 8BD3 mov edx, ebx
* Reference to control TPasswordDialog.AddButton : TButton
|
0047A4DE 8B86D8020000 mov eax, [esi+$02D8]
0047A4E4 8B08 mov ecx, [eax]
* Reference to method TButton.SetEnabled(Boolean)
|
0047A4E6 FF515C call dword ptr [ecx+$5C]
0047A4E9 8BD3 mov edx, ebx
* Reference to control TPasswordDialog.RemoveButton : TButton
|
0047A4EB 8B86DC020000 mov eax, [esi+$02DC]
0047A4F1 8B08 mov ecx, [eax]
* Reference to method TButton.SetEnabled(Boolean)
|
0047A4F3 FF515C call dword ptr [ecx+$5C]
0047A4F6 84DB test bl, bl
0047A4F8 750D jnz 0047A507
* Reference to field TPasswordDialog.OFFS_02EC
|
0047A4FA 80BEEC02000000 cmp byte ptr [esi+$02EC], $00
0047A501 7504 jnz 0047A507
0047A503 33D2 xor edx, edx
0047A505 EB02 jmp 0047A509
0047A507 B201 mov dl, $01
* Reference to control TPasswordDialog.OKButton : TButton
|
0047A509 8B86E4020000 mov eax, [esi+$02E4]
0047A50F 8B08 mov ecx, [eax]
* Reference to method TButton.SetEnabled(Boolean)
|
0047A511 FF515C call dword ptr [ecx+$5C]
0047A514 33C0 xor eax, eax
0047A516 5A pop edx
0047A517 59 pop ecx
0047A518 59 pop ecx
0047A519 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[Y]ËUj'
|
0047A51C 6831A54700 push $0047A531
0047A521 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
0047A524 E8D796F8FF call 00403C00
0047A529 C3 ret
* Reference to: system.@HandleFinally;
|
0047A52A E9E590F8FF jmp 00403614
0047A52F EBF0 jmp 0047A521
****** END
|
0047A531 5E pop esi
0047A532 5B pop ebx
0047A533 59 pop ecx
0047A534 5D pop ebp
0047A535 C3 ret
*)
end;
procedure TPasswordDialog.AddButtonClick(Sender : TObject);
begin
(*
0047A538 55 push ebp
0047A539 8BEC mov ebp, esp
0047A53B 6A00 push $00
0047A53D 53 push ebx
0047A53E 8BD8 mov ebx, eax
0047A540 33C0 xor eax, eax
0047A542 55 push ebp
* Possible String Reference to: '_[Y]ÐUj'
|
0047A543 68B0A54700 push $0047A5B0
***** TRY
|
0047A548 64FF30 push dword ptr fs:[eax]
0047A54B 648920 mov fs:[eax], esp
0047A54E 8D55FC lea edx, [ebp-$04]
* Reference to control TPasswordDialog.Edit : TEdit
|
0047A551 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
0047A557 E80478FBFF call 00431D60
0047A55C 8B45FC mov eax, [ebp-$04]
0047A55F 50 push eax
* Reference to field TPasswordDialog.OFFS_02F0
|
0047A560 8B83F0020000 mov eax, [ebx+$02F0]
* Reference to class TSession
|
0047A566 8B15ECAD4700 mov edx, [$0047ADEC]
* Reference to: system.@AsClass;
|
0047A56C E8D38AF8FF call 00403044
0047A571 5A pop edx
* Reference to : TQueryDataLink._PROC_0047DF74()
|
0047A572 E8FD390000 call 0047DF74
* Reference to field TPasswordDialog.OFFS_02EC
|
0047A577 C683EC02000001 mov byte ptr [ebx+$02EC], $01
* Reference to control TPasswordDialog.Edit : TEdit
|
0047A57E 8B83D4020000 mov eax, [ebx+$02D4]
0047A584 8B10 mov edx, [eax]
* Reference to method TEdit.Clear()
|
0047A586 FF92CC000000 call dword ptr [edx+$00CC]
* Reference to control TPasswordDialog.Edit : TEdit
|
0047A58C 8B83D4020000 mov eax, [ebx+$02D4]
0047A592 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
0047A594 FF92B0000000 call dword ptr [edx+$00B0]
0047A59A 33C0 xor eax, eax
0047A59C 5A pop edx
0047A59D 59 pop ecx
0047A59E 59 pop ecx
0047A59F 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]ÐUj'
|
0047A5A2 68B7A54700 push $0047A5B7
0047A5A7 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
0047A5AA E85196F8FF call 00403C00
0047A5AF C3 ret
* Reference to: system.@HandleFinally;
|
0047A5B0 E95F90F8FF jmp 00403614
0047A5B5 EBF0 jmp 0047A5A7
****** END
|
0047A5B7 5B pop ebx
0047A5B8 59 pop ecx
0047A5B9 5D pop ebp
0047A5BA C3 ret
*)
end;
procedure TPasswordDialog.RemoveButtonClick(Sender : TObject);
begin
(*
0047A5BC 55 push ebp
0047A5BD 8BEC mov ebp, esp
0047A5BF 6A00 push $00
0047A5C1 53 push ebx
0047A5C2 8BD8 mov ebx, eax
0047A5C4 33C0 xor eax, eax
0047A5C6 55 push ebp
0047A5C7 682DA64700 push $0047A62D
***** TRY
|
0047A5CC 64FF30 push dword ptr fs:[eax]
0047A5CF 648920 mov fs:[eax], esp
0047A5D2 8D55FC lea edx, [ebp-$04]
* Reference to control TPasswordDialog.Edit : TEdit
|
0047A5D5 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
0047A5DB E88077FBFF call 00431D60
0047A5E0 8B45FC mov eax, [ebp-$04]
0047A5E3 50 push eax
* Reference to field TPasswordDialog.OFFS_02F0
|
0047A5E4 8B83F0020000 mov eax, [ebx+$02F0]
* Reference to class TSession
|
0047A5EA 8B15ECAD4700 mov edx, [$0047ADEC]
* Reference to: system.@AsClass;
|
0047A5F0 E84F8AF8FF call 00403044
0047A5F5 5A pop edx
* Reference to : TQueryDataLink._PROC_0047F688()
|
0047A5F6 E88D500000 call 0047F688
* Reference to control TPasswordDialog.Edit : TEdit
|
0047A5FB 8B83D4020000 mov eax, [ebx+$02D4]
0047A601 8B10 mov edx, [eax]
* Reference to method TEdit.Clear()
|
0047A603 FF92CC000000 call dword ptr [edx+$00CC]
* Reference to control TPasswordDialog.Edit : TEdit
|
0047A609 8B83D4020000 mov eax, [ebx+$02D4]
0047A60F 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
0047A611 FF92B0000000 call dword ptr [edx+$00B0]
0047A617 33C0 xor eax, eax
0047A619 5A pop edx
0047A61A 59 pop ecx
0047A61B 59 pop ecx
0047A61C 648910 mov fs:[eax], edx
****** FINALLY
|
0047A61F 6834A64700 push $0047A634
0047A624 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
0047A627 E8D495F8FF call 00403C00
0047A62C C3 ret
* Reference to: system.@HandleFinally;
|
0047A62D E9E28FF8FF jmp 00403614
0047A632 EBF0 jmp 0047A624
****** END
|
0047A634 5B pop ebx
0047A635 59 pop ecx
0047A636 5D pop ebp
0047A637 C3 ret
*)
end;
procedure TPasswordDialog.RemoveAllButtonClick(Sender : TObject);
begin
(*
0047A638 53 push ebx
0047A639 8BD8 mov ebx, eax
* Reference to field TPasswordDialog.OFFS_02F0
|
0047A63B 8B83F0020000 mov eax, [ebx+$02F0]
* Reference to class TSession
|
0047A641 8B15ECAD4700 mov edx, [$0047ADEC]
* Reference to: system.@AsClass;
|
0047A647 E8F889F8FF call 00403044
* Reference to : TQueryDataLink._PROC_0047F644()
|
0047A64C E8F34F0000 call 0047F644
* Reference to control TPasswordDialog.Edit : TEdit
|
0047A651 8B83D4020000 mov eax, [ebx+$02D4]
0047A657 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
0047A659 FF92B0000000 call dword ptr [edx+$00B0]
0047A65F 5B pop ebx
0047A660 C3 ret
*)
end;
procedure TPasswordDialog.OKButtonClick(Sender : TObject);
begin
(*
0047A664 55 push ebp
0047A665 8BEC mov ebp, esp
0047A667 6A00 push $00
0047A669 53 push ebx
0047A66A 8BD8 mov ebx, eax
0047A66C 33C0 xor eax, eax
0047A66E 55 push ebp
* Possible String Reference to: 'V[Y]U3UhG'
|
0047A66F 68B9A64700 push $0047A6B9
***** TRY
|
0047A674 64FF30 push dword ptr fs:[eax]
0047A677 648920 mov fs:[eax], esp
0047A67A 8D55FC lea edx, [ebp-$04]
* Reference to control TPasswordDialog.Edit : TEdit
|
0047A67D 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
0047A683 E8D876FBFF call 00431D60
0047A688 8B45FC mov eax, [ebp-$04]
0047A68B 50 push eax
* Reference to field TPasswordDialog.OFFS_02F0
|
0047A68C 8B83F0020000 mov eax, [ebx+$02F0]
* Reference to class TSession
|
0047A692 8B15ECAD4700 mov edx, [$0047ADEC]
* Reference to: system.@AsClass;
|
0047A698 E8A789F8FF call 00403044
0047A69D 5A pop edx
* Reference to : TQueryDataLink._PROC_0047DF74()
|
0047A69E E8D1380000 call 0047DF74
0047A6A3 33C0 xor eax, eax
0047A6A5 5A pop edx
0047A6A6 59 pop ecx
0047A6A7 59 pop ecx
0047A6A8 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]U3UhG'
|
0047A6AB 68C0A64700 push $0047A6C0
0047A6B0 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
0047A6B3 E84895F8FF call 00403C00
0047A6B8 C3 ret
* Reference to: system.@HandleFinally;
|
0047A6B9 E9568FF8FF jmp 00403614
0047A6BE EBF0 jmp 0047A6B0
****** END
|
0047A6C0 5B pop ebx
0047A6C1 59 pop ecx
0047A6C2 5D pop ebp
0047A6C3 C3 ret
*)
end;
end.