491 lines
19 KiB
ObjectPascal
491 lines
19 KiB
ObjectPascal
unit DBLogDlg;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Classes, Graphics,
|
||
Controls, Forms, Dialogs, StdCtrls
|
||
type
|
||
TLoginDialog=class(TForm)
|
||
Panel: TPanel;
|
||
Bevel: TBevel;
|
||
DatabaseName: TLabel;
|
||
OKButton: TButton;
|
||
CancelButton: TButton;
|
||
Panel1: TPanel;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
Label3: TLabel;
|
||
Password: TEdit;
|
||
UserName: TEdit;
|
||
procedure FormShow(Sender : TObject);
|
||
procedure _PROC_00546810(Sender : TObject);
|
||
procedure _PROC_00546940(Sender : TObject);
|
||
procedure _PROC_00546B48(Sender : TObject);
|
||
procedure _PROC_00546B58(Sender : TObject);
|
||
procedure _PROC_00546B88(Sender : TObject);
|
||
procedure _PROC_00546BDC(Sender : TObject);
|
||
procedure _PROC_00546C42(Sender : TObject);
|
||
private
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end ;
|
||
|
||
var
|
||
LoginDialog: TLoginDialog;
|
||
|
||
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
|
||
|
||
implementation
|
||
|
||
{$R *.DFM}
|
||
|
||
procedure TLoginDialog.FormShow(Sender : TObject);
|
||
begin
|
||
(*
|
||
00546B00 53 push ebx
|
||
00546B01 56 push esi
|
||
00546B02 8BD8 mov ebx, eax
|
||
|
||
* Reference to control TLoginDialog.Panel : TPanel
|
||
|
|
||
00546B04 8B83F8020000 mov eax, [ebx+$02F8]
|
||
|
||
* Reference to: Controls.TControl.GetClientWidth(TControl):Integer;
|
||
|
|
||
00546B0A E8E514F4FF call 00487FF4
|
||
|
||
* Reference to control TLoginDialog.DatabaseName : TLabel
|
||
|
|
||
00546B0F 8BB300030000 mov esi, [ebx+$0300]
|
||
|
||
* Reference to field TLabel.Width : Integer
|
||
|
|
||
00546B15 8B5648 mov edx, [esi+$48]
|
||
00546B18 035640 add edx, [esi+$40]
|
||
00546B1B 3BC2 cmp eax, edx
|
||
00546B1D 7F24 jnle 00546B43
|
||
|
||
* Reference to control TLoginDialog.Panel : TPanel
|
||
|
|
||
00546B1F 8B83F8020000 mov eax, [ebx+$02F8]
|
||
|
||
* Reference to: Controls.TControl.GetClientWidth(TControl):Integer;
|
||
|
|
||
00546B25 E8CA14F4FF call 00487FF4
|
||
00546B2A 8BD0 mov edx, eax
|
||
|
||
* Reference to control TLoginDialog.DatabaseName : TLabel
|
||
|
|
||
00546B2C 8B8300030000 mov eax, [ebx+$0300]
|
||
00546B32 2B5040 sub edx, dword ptr [eax+$40]
|
||
00546B35 83EA05 sub edx, +$05
|
||
|
||
* Reference to control TLoginDialog.DatabaseName : TLabel
|
||
|
|
||
00546B38 8B8300030000 mov eax, [ebx+$0300]
|
||
|
||
* Reference to: Controls.TControl.SetWidth(TControl;Integer);
|
||
|
|
||
00546B3E E84112F4FF call 00487D84
|
||
00546B43 5E pop esi
|
||
00546B44 5B pop ebx
|
||
00546B45 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TLoginDialog._PROC_00546810(Sender : TObject);
|
||
begin
|
||
(*
|
||
00546810 55 push ebp
|
||
00546811 8BEC mov ebp, esp
|
||
00546813 83C4F0 add esp, -$10
|
||
00546816 53 push ebx
|
||
00546817 56 push esi
|
||
00546818 57 push edi
|
||
00546819 33DB xor ebx, ebx
|
||
0054681B 895DF0 mov [ebp-$10], ebx
|
||
0054681E 895DF4 mov [ebp-$0C], ebx
|
||
00546821 8BF9 mov edi, ecx
|
||
00546823 8BDA mov ebx, edx
|
||
00546825 8BF0 mov esi, eax
|
||
00546827 33C0 xor eax, eax
|
||
00546829 55 push ebp
|
||
0054682A 682C695400 push $0054692C
|
||
|
||
***** TRY
|
||
|
|
||
0054682F 64FF30 push dword ptr fs:[eax]
|
||
00546832 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TLoginDialog._PROC_00546940(Sender : TObject);
|
||
begin
|
||
(*
|
||
00546940 55 push ebp
|
||
00546941 8BEC mov ebp, esp
|
||
00546943 33C9 xor ecx, ecx
|
||
00546945 51 push ecx
|
||
00546946 51 push ecx
|
||
00546947 51 push ecx
|
||
00546948 51 push ecx
|
||
00546949 51 push ecx
|
||
0054694A 53 push ebx
|
||
0054694B 56 push esi
|
||
0054694C 8BF2 mov esi, edx
|
||
0054694E 8BD8 mov ebx, eax
|
||
00546950 33C0 xor eax, eax
|
||
00546952 55 push ebp
|
||
00546953 68EE6A5400 push $00546AEE
|
||
|
||
***** TRY
|
||
|
|
||
00546958 64FF30 push dword ptr fs:[eax]
|
||
0054695B 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TLoginDialog._PROC_00546B48(Sender : TObject);
|
||
begin
|
||
(*
|
||
*)
|
||
end;
|
||
|
||
procedure TLoginDialog._PROC_00546B58(Sender : TObject);
|
||
begin
|
||
(*
|
||
00546B58 55 push ebp
|
||
00546B59 8BEC mov ebp, esp
|
||
00546B5B 33C0 xor eax, eax
|
||
00546B5D 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>r<EFBFBD><72><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-T2<54>'
|
||
|
|
||
00546B5E 687D6B5400 push $00546B7D
|
||
|
||
***** TRY
|
||
|
|
||
00546B63 64FF30 push dword ptr fs:[eax]
|
||
00546B66 648920 mov fs:[eax], esp
|
||
00546B69 FF0554328900 inc dword ptr [$00893254]
|
||
00546B6F 33C0 xor eax, eax
|
||
00546B71 5A pop edx
|
||
00546B72 59 pop ecx
|
||
00546B73 59 pop ecx
|
||
00546B74 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-T2<54>'
|
||
|
|
||
00546B77 68846B5400 push $00546B84
|
||
00546B7C C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00546B7D E972DFEBFF jmp 00404AF4
|
||
00546B82 EBF8 jmp 00546B7C
|
||
|
||
****** END
|
||
|
|
||
00546B84 5D pop ebp
|
||
00546B85 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TLoginDialog._PROC_00546B88(Sender : TObject);
|
||
begin
|
||
(*
|
||
00546B88 832D5432890001 sub dword ptr [$00893254], +$01
|
||
00546B8F 734A jnb 00546BDB
|
||
*)
|
||
end;
|
||
|
||
procedure TLoginDialog._PROC_00546BDC(Sender : TObject);
|
||
begin
|
||
(*
|
||
00546BDC 286C5400 sub [esp+edx*2+$00], ch
|
||
00546BE0 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TLoginDialog._PROC_00546C42(Sender : TObject);
|
||
begin
|
||
(*
|
||
00546C42 48 dec eax
|
||
00546C43 0050D4 add [eax-$2C], dl
|
||
00546C46 42 inc edx
|
||
00546C47 0008 add [eax], cl
|
||
00546C49 2D4A007CD0 sub eax, $D07C004A
|
||
00546C4E 42 inc edx
|
||
00546C4F 00F4 add ah, dh
|
||
00546C51 6B4A00D0 imul ecx, [edx+$00], $D0
|
||
00546C55 1D4A0030F6 sbb eax, $F630004A
|
||
00546C5A 48 dec eax
|
||
00546C5B 004CFB48 add [ebx+edi*8+$48], cl
|
||
00546C5F 0098FA48000C add [eax+$C0048FA], bl
|
||
00546C65 7948 jns 00546CAF
|
||
00546C67 00ACF04800E829 add [eax+esi*8+$29E80048], ch
|
||
00546C6E 4A dec edx
|
||
00546C6F 00E4 add ah, ah
|
||
00546C71 ED in eax, dx
|
||
00546C72 48 dec eax
|
||
00546C73 00547848 add [eax+edi*2+$48], dl
|
||
00546C77 005878 add [eax+$78], bl
|
||
00546C7A 48 dec eax
|
||
00546C7B 00DC add ah, bl
|
||
00546C7D 2A4A00 sub cl, byte ptr [edx+$00]
|
||
00546C80 3CA9 cmp al, $A9
|
||
00546C82 48 dec eax
|
||
00546C83 00C0 add al, al
|
||
00546C85 834800D0 or dword ptr [eax+$00], -$30
|
||
00546C89 7948 jns 00546CD3
|
||
00546C8B 004C8548 add [ebp+eax*4+$48], cl
|
||
00546C8F 00D0 add al, dl
|
||
00546C91 2C4A sub al, $4A
|
||
00546C93 009C2B4A008486 add [ebx+ebp+$8684004A], bl
|
||
00546C9A 48 dec eax
|
||
00546C9B 00482D add [eax+$2D], cl
|
||
00546C9E 4A dec edx
|
||
00546C9F 00C0 add al, al
|
||
00546CA1 A9480038EE test eax, $EE380048
|
||
00546CA6 48 dec eax
|
||
00546CA7 00F4 add ah, dh
|
||
00546CA9 EE out dx, al
|
||
00546CAA 48 dec eax
|
||
00546CAB 00F0 add al, dh
|
||
00546CAD E94800D8EE jmp EF2C6CFA
|
||
00546CB2 48 dec eax
|
||
00546CB3 00D8 add al, bl
|
||
00546CB5 1B4A00 sbb ecx, [edx+$00]
|
||
00546CB8 EC in al, dx
|
||
00546CB9 334A00 xor ecx, [edx+$00]
|
||
00546CBC 20C4 and ah, al
|
||
00546CBE 48 dec eax
|
||
00546CBF 00B0404A0010 add [eax+$10004A40], dh
|
||
00546CC5 44 inc esp
|
||
00546CC6 4A dec edx
|
||
00546CC7 00CC add ah, cl
|
||
00546CC9 42 inc edx
|
||
00546CCA 4A dec edx
|
||
00546CCB 00B8C44800BC add [eax+$BC0048C4], bh
|
||
00546CD1 C44800 les ecx, [eax+$00]
|
||
00546CD4 48 dec eax
|
||
00546CD5 45 inc ebp
|
||
00546CD6 4A dec edx
|
||
00546CD7 001CC3 add [ebx+eax*8], bl
|
||
00546CDA 48 dec eax
|
||
00546CDB 0018 add [eax], bl
|
||
00546CDD F0 lock
|
||
00546CDE 48 dec eax
|
||
00546CDF 00444C4A add [esp+ecx*2+$4A], al
|
||
00546CE3 000C02 add [edx+eax], cl
|
||
00546CE6 49 dec ecx
|
||
00546CE7 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
|
||
00546CEE 4A dec edx
|
||
00546CEF 008C154A003C18 add [ebp+edx+$183C004A], cl
|
||
00546CF6 4A dec edx
|
||
00546CF7 0038 add [eax], bh
|
||
00546CF9 52 push edx
|
||
00546CFA 4A dec edx
|
||
00546CFB 005C224A add [edx+$4A], bl
|
||
00546CFF 00D8 add al, bl
|
||
00546D01 224A00 and cl, byte ptr [edx+$00]
|
||
00546D04 7C68 jl 00546D6E
|
||
00546D06 4A dec edx
|
||
00546D07 00941F4A003C60 add [edi+ebx+$603C004A], dl
|
||
00546D0E 4A dec edx
|
||
00546D0F 001447 add [edi+eax*2], dl
|
||
00546D12 4A dec edx
|
||
00546D13 0034654A00CC2C add [$2CCC004A], dh
|
||
00546D1A 4A dec edx
|
||
00546D1B 000E add [esi], cl
|
||
00546D1D 0000 add [eax], al
|
||
|
||
00546D1F 0000 add [eax], al
|
||
|
||
00546D21 0001 add [ecx], al
|
||
00546D23 0000 add [eax], al
|
||
|
||
00546D25 00748E4B add [esi+ecx*4+$4B], dh
|
||
00546D29 0018 add [eax], bl
|
||
00546D2B 0300 add eax, [eax]
|
||
00546D2D 0007 add [edi], al
|
||
00546D2F 0029 add [ecx], ch
|
||
00546D31 6E outsb
|
||
00546D32 54 push esp
|
||
00546D33 00F8 add al, bh
|
||
00546D35 0200 add al, byte ptr [eax]
|
||
00546D37 0000 add [eax], al
|
||
|
||
00546D39 0009 add [ecx], cl
|
||
00546D3B 47 inc edi
|
||
00546D3C 726F jb 00546DAD
|
||
00546D3E 7570 jnz 00546DB0
|
||
00546D40 42 inc edx
|
||
00546D41 6F outsd
|
||
00546D42 7831 js 00546D75
|
||
00546D44 FC cld
|
||
00546D45 0200 add al, byte ptr [eax]
|
||
00546D47 0001 add [ecx], al
|
||
00546D49 00044564697400 add [$746964+eax*2], al
|
||
00546D50 0300 add eax, [eax]
|
||
00546D52 0002 add [edx], al
|
||
00546D54 0009 add [ecx], cl
|
||
00546D56 41 inc ecx
|
||
00546D57 646442 inc edx
|
||
00546D5A 7574 jnz 00546DD0
|
||
00546D5C 746F jz 00546DCD
|
||
00546D5E 6E outsb
|
||
00546D5F 0403 add al, +$03
|
||
00546D61 0000 add [eax], al
|
||
|
||
00546D63 0200 add al, byte ptr [eax]
|
||
00546D65 0C52 or al, $52
|
||
00546D67 656D insd
|
||
00546D69 6F outsd
|
||
00546D6A 7665 jbe 00546DD1
|
||
00546D6C 42 inc edx
|
||
00546D6D 7574 jnz 00546DE3
|
||
00546D6F 746F jz 00546DE0
|
||
00546D71 6E outsb
|
||
00546D72 0803 or [ebx], al
|
||
00546D74 0000 add [eax], al
|
||
|
||
00546D76 0200 add al, byte ptr [eax]
|
||
00546D78 0F52 DB $0F, $52 //
|
||
00546D7A 656D insd
|
||
00546D7C 6F outsd
|
||
00546D7D 7665 jbe 00546DE4
|
||
00546D7F 41 inc ecx
|
||
00546D80 6C insb
|
||
00546D81 6C insb
|
||
00546D82 42 inc edx
|
||
00546D83 7574 jnz 00546DF9
|
||
00546D85 746F jz 00546DF6
|
||
00546D87 6E outsb
|
||
00546D88 0C03 or al, $03
|
||
00546D8A 0000 add [eax], al
|
||
|
||
00546D8C 0200 add al, byte ptr [eax]
|
||
00546D8E 084F4B or [edi+$4B], cl
|
||
00546D91 42 inc edx
|
||
00546D92 7574 jnz 00546E08
|
||
00546D94 746F jz 00546E05
|
||
00546D96 6E outsb
|
||
00546D97 1003 adc [ebx], al
|
||
00546D99 0000 add [eax], al
|
||
|
||
00546D9B 0200 add al, byte ptr [eax]
|
||
00546D9D 0C43 or al, $43
|
||
00546D9F 61 popa
|
||
00546DA0 6E outsb
|
||
00546DA1 63656C arpl [ebp+$6C], sp
|
||
00546DA4 42 inc edx
|
||
00546DA5 7574 jnz 00546E1B
|
||
00546DA7 746F jz 00546E18
|
||
00546DA9 6E outsb
|
||
00546DAA 05001100D8 add eax, -$27FFEF00
|
||
00546DAF 6E outsb
|
||
00546DB0 54 push esp
|
||
00546DB1 000A add [edx], cl
|
||
00546DB3 45 inc ebp
|
||
00546DB4 6469744368616E6765 imul esi, fs:[ebx+eax*2+$68], $65676E61
|
||
00546DBD 1500606F54 adc eax, $546F6000
|
||
00546DC2 000E add [esi], cl
|
||
00546DC4 41 inc ecx
|
||
00546DC5 646442 inc edx
|
||
00546DC8 7574 jnz 00546E3E
|
||
00546DCA 746F jz 00546E3B
|
||
00546DCC 6E outsb
|
||
00546DCD 43 inc ebx
|
||
00546DCE 6C insb
|
||
00546DCF 69636B1800D86F imul esp, [ebx+$6B], $6FD80018
|
||
00546DD6 54 push esp
|
||
00546DD7 0011 add [ecx], dl
|
||
00546DD9 52 push edx
|
||
00546DDA 656D insd
|
||
00546DDC 6F outsd
|
||
00546DDD 7665 jbe 00546E44
|
||
00546DDF 42 inc edx
|
||
00546DE0 7574 jnz 00546E56
|
||
00546DE2 746F jz 00546E53
|
||
00546DE4 6E outsb
|
||
00546DE5 43 inc ebx
|
||
00546DE6 6C insb
|
||
00546DE7 69636B1B004870 imul esp, [ebx+$6B], $7048001B
|
||
00546DEE 54 push esp
|
||
00546DEF 001452 add [edx+edx*2], dl
|
||
00546DF2 656D insd
|
||
00546DF4 6F outsd
|
||
00546DF5 7665 jbe 00546E5C
|
||
00546DF7 41 inc ecx
|
||
00546DF8 6C insb
|
||
00546DF9 6C insb
|
||
00546DFA 42 inc edx
|
||
00546DFB 7574 jnz 00546E71
|
||
00546DFD 746F jz 00546E6E
|
||
00546DFF 6E outsb
|
||
00546E00 43 inc ebx
|
||
00546E01 6C insb
|
||
00546E02 69636B14006870 imul esp, [ebx+$6B], $70680014
|
||
00546E09 54 push esp
|
||
00546E0A 000D4F4B4275 add [$75424B4F], cl
|
||
00546E10 7474 jz 00546E86
|
||
00546E12 6F outsd
|
||
00546E13 6E outsb
|
||
00546E14 43 inc ebx
|
||
00546E15 6C insb
|
||
00546E16 69636B0F545061 imul esp, [ebx+$6B], $6150540F
|
||
00546E1D 7373 jnb 00546E92
|
||
00546E1F 776F jnbe 00546E90
|
||
00546E21 7264 jb 00546E87
|
||
00546E23 44 inc esp
|
||
00546E24 69616C6F670300 imul esp, [ecx+$6C], $0003676F
|
||
00546E2B 60 pusha
|
||
00546E2C 56 push esi
|
||
00546E2D 47 inc edi
|
||
00546E2E 00B867470000 add [eax+$4767], bh
|
||
00546E34 8E4700 mov es, word ptr [edi+$00]
|
||
00546E37 90 nop
|
||
00546E38 3C6E cmp al, $6E
|
||
00546E3A 54 push esp
|
||
00546E3B 0007 add [edi], al
|
||
00546E3D 0F54 DB $0F, $54 //
|
||
00546E3F 50 push eax
|
||
00546E40 61 popa
|
||
00546E41 7373 jnb 00546EB6
|
||
00546E43 776F jnbe 00546EB4
|
||
00546E45 7264 jb 00546EAB
|
||
00546E47 44 inc esp
|
||
00546E48 69616C6F67286C imul esp, [ecx+$6C], $6C28676F
|
||
00546E4F 54 push esp
|
||
00546E50 00D0 add al, dl
|
||
00546E52 F2 repne
|
||
00546E53 49 dec ecx
|
||
00546E54 005E00 add [esi+$00], bl
|
||
00546E57 07 pop es
|
||
00546E58 44 inc esp
|
||
00546E59 42 inc edx
|
||
00546E5A 50 push eax
|
||
00546E5B 57 push edi
|
||
00546E5C 44 inc esp
|
||
00546E5D 6C insb
|
||
00546E5E 670000 add [bx+si], al
|
||
00546E61 8D4000 lea eax, [eax+$00]
|
||
00546E64 55 push ebp
|
||
00546E65 8BEC mov ebp, esp
|
||
00546E67 83C4F8 add esp, -$08
|
||
00546E6A 53 push ebx
|
||
00546E6B 8BD8 mov ebx, eax
|
||
*)
|
||
end;
|
||
|
||
end. |