📄 dbsmain.pas
字号:
unit DBSMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmDBSrv=class(TForm)
ServerSocket: TServerSocket;
StartTimer: TTimer;
MemoLog: TMemo;
Panel1: TPanel;
Label1: TLabel;
Label4: TLabel;
LbAutoClean: TLabel;
LbTransCount: TLabel;
Label2: TLabel;
Label6: TLabel;
LbUserCount: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
CkViewHackMsg: TCheckBox;
MainMenu: TMainMenu;
MENU_CONTROL: TMenuItem;
V1: TMenuItem;
MENU_OPTION: TMenuItem;
MENU_MANAGE: TMenuItem;
MENU_OPTION_GAMEGATE: TMenuItem;
N1: TMenuItem;
G1: TMenuItem;
MENU_MANAGE_DATA: TMenuItem;
MENU_MANAGE_TOOL: TMenuItem;
MENU_TEST: TMenuItem;
MENU_TEST_SELGATE: TMenuItem;
X1: TMenuItem;
L1: TMenuItem;
A1: TMenuItem;
C1: TMenuItem;
Label5: TLabel;
I1: TMenuItem;
C2: TMenuItem;
N3: TMenuItem;
SpeedButtonDBManageTools: TSpeedButton;
BtnEditAddrs: TSpeedButton;
BtnUserDBTool: TSpeedButton;
MainInfoTimer: TTimer;
CheckBoxConnect: TCheckBox;
GridGate: TStringGrid;
F1: TMenuItem;
dTimer: TTimer;
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure FormCloseQuery(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure StartTimerTimer(Sender : TObject);
procedure BtnUserDBToolClick(Sender : TObject);
procedure BtnReloadAddrClick(Sender : TObject);
procedure BtnEditAddrsClick(Sender : TObject);
procedure CkViewHackMsgClick(Sender : TObject);
procedure ServerSocketClientConnect(Sender : TObject);
procedure ServerSocketClientDisconnect(Sender : TObject);
procedure ServerSocketClientError(Sender : TObject);
procedure ServerSocketClientRead(Sender : TObject);
procedure MENU_MANAGE_DATAClick(Sender : TObject);
procedure MENU_MANAGE_TOOLClick(Sender : TObject);
procedure MENU_TEST_SELGATEClick(Sender : TObject);
procedure X1Click(Sender : TObject);
procedure G1Click(Sender : TObject);
procedure L1Click(Sender : TObject);
procedure A1Click(Sender : TObject);
procedure MENU_OPTION_GAMEGATEClick(Sender : TObject);
procedure C1Click(Sender : TObject);
procedure MemoLogDblClick(Sender : TObject);
procedure C2Click(Sender : TObject);
procedure I1Click(Sender : TObject);
procedure SpeedButtonDBManageToolsClick(Sender : TObject);
procedure MainInfoTimerTimer(Sender : TObject);
procedure F1Click(Sender : TObject);
procedure dTimerTimer(Sender : TObject);
procedure _PROC_004DB844(Sender : TObject);
procedure _PROC_004DBAC1(Sender : TObject);
procedure _PROC_004DBCEC(Sender : TObject);
procedure _PROC_004DBE25(Sender : TObject);
procedure _PROC_004DC0A5(Sender : TObject);
procedure _PROC_004DC199(Sender : TObject);
procedure _PROC_004DC405(Sender : TObject);
procedure _PROC_004DC690(Sender : TObject);
procedure _PROC_004DC6AD(Sender : TObject);
procedure _PROC_004DCA59(Sender : TObject);
procedure _PROC_004DD3D8(Sender : TObject);
procedure _PROC_004DD4B8(Sender : TObject);
procedure _PROC_004DD92E(Sender : TObject);
procedure _PROC_004DE075(Sender : TObject);
procedure _PROC_004DE204(Sender : TObject);
procedure _PROC_004DE3B6(Sender : TObject);
procedure _PROC_004DE68B(Sender : TObject);
procedure _PROC_004DE75C(Sender : TObject);
procedure _PROC_004DF2B2(Sender : TObject);
procedure _PROC_004DF520(Sender : TObject);
procedure _PROC_004DF524(Sender : TObject);
procedure _PROC_004DF649(Sender : TObject);
procedure _PROC_004DF729(Sender : TObject);
procedure _PROC_004DF989(Sender : TObject);
procedure _PROC_004DFA5C(Sender : TObject);
procedure _PROC_004DFBEB(Sender : TObject);
procedure _PROC_004DFBF8(Sender : TObject);
procedure _PROC_004DFC28(Sender : TObject);
procedure _PROC_004DFC30(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmDBSrv: TFrmDBSrv;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmDBSrv.FormCreate(Sender : TObject);
begin
(*
004DD4D0 55 push ebp
004DD4D1 8BEC mov ebp, esp
004DD4D3 B92A000000 mov ecx, $0000002A
004DD4D8 6A00 push $00
004DD4DA 6A00 push $00
004DD4DC 49 dec ecx
004DD4DD 75F9 jnz 004DD4D8
004DD4DF 53 push ebx
004DD4E0 56 push esi
004DD4E1 57 push edi
004DD4E2 8BD8 mov ebx, eax
004DD4E4 33C0 xor eax, eax
004DD4E6 55 push ebp
004DD4E7 682ED94D00 push $004DD92E
***** TRY
|
004DD4EC 64FF30 push dword ptr fs:[eax]
004DD4EF 648920 mov fs:[eax], esp
004DD4F2 EB04 jmp 004DD4F8
004DD4F4 45 inc ebp
004DD4F5 50 push eax
004DD4F6 45 inc ebp
004DD4F7 258D95F0FE and eax, $FEF0958D
004DD4FC FFFF DB $FF, $FF //
004DD4FE A17C814E00 mov eax, dword ptr [$004E817C]
|
004DD503 E8A096F2FF call 00406BA8
004DD508 FFB5F0FEFFFF push dword ptr [ebp+$FFFFFEF0]
004DD50E 6844D94D00 push $004DD944
004DD513 8D95ECFEFFFF lea edx, [ebp+$FFFFFEEC]
004DD519 A1007C4E00 mov eax, dword ptr [$004E7C00]
|
004DD51E E88596F2FF call 00406BA8
004DD523 FFB5ECFEFFFF push dword ptr [ebp+$FFFFFEEC]
004DD529 6844D94D00 push $004DD944
004DD52E 8D95E8FEFFFF lea edx, [ebp+$FFFFFEE8]
004DD534 A1DC7D4E00 mov eax, dword ptr [$004E7DDC]
|
004DD539 E86A96F2FF call 00406BA8
004DD53E FFB5E8FEFFFF push dword ptr [ebp+$FFFFFEE8]
004DD544 6844D94D00 push $004DD944
004DD549 8D95E4FEFFFF lea edx, [ebp+$FFFFFEE4]
004DD54F A18C7D4E00 mov eax, dword ptr [$004E7D8C]
|
004DD554 E84F96F2FF call 00406BA8
004DD559 FFB5E4FEFFFF push dword ptr [ebp+$FFFFFEE4]
004DD55F 6844D94D00 push $004DD944
004DD564 8D95E0FEFFFF lea edx, [ebp+$FFFFFEE0]
004DD56A A1307D4E00 mov eax, dword ptr [$004E7D30]
|
004DD56F E83496F2FF call 00406BA8
004DD574 FFB5E0FEFFFF push dword ptr [ebp+$FFFFFEE0]
004DD57A 8D45FC lea eax, [ebp-$04]
004DD57D BA09000000 mov edx, $00000009
* Reference to: System.@LStrCatN;
|
004DD582 E8F177F2FF call 00404D78
004DD587 EB04 jmp 004DD58D
004DD589 45 inc ebp
004DD58A 50 push eax
004DD58B 45 inc ebp
004DD58C 258D95DCFE and eax, $FEDC958D
004DD591 FFFF DB $FF, $FF //
004DD593 A1147E4E00 mov eax, dword ptr [$004E7E14]
|
004DD598 E80B96F2FF call 00406BA8
004DD59D 8B85DCFEFFFF mov eax, [ebp+$FFFFFEDC]
004DD5A3 8B55FC mov edx, [ebp-$04]
|
004DD5A6 E825380000 call 004E0DD0
004DD5AB 84C0 test al, al
004DD5AD 7411 jz 004DD5C0
004DD5AF EB04 jmp 004DD5B5
004DD5B1 45 inc ebp
004DD5B2 50 push eax
004DD5B3 45 inc ebp
004DD5B4 25E94E0300 and eax, $00034EE9
004DD5B9 00EB add bl, ch
004DD5BB 0445 add al, +$45
004DD5BD 50 push eax
004DD5BE 45 inc ebp
004DD5BF 25EB044550 and eax, $504504EB
004DD5C4 45 inc ebp
004DD5C5 258D45FCBA and eax, $BAFC458D
004DD5CA 44 inc esp
004DD5CB D94D DB $D9, $4D //
004DD5CD 00E8 add al, ch
004DD5CF BD74F2FFEB mov ebp, $EBFFF274
004DD5D4 0445 add al, +$45
004DD5D6 50 push eax
004DD5D7 45 inc ebp
004DD5D8 258D95D4FE and eax, $FED4958D
004DD5DD FFFF DB $FF, $FF //
004DD5DF A1C8804E00 mov eax, dword ptr [$004E80C8]
004DD5E4 8B00 mov eax, [eax]
* Reference to: DdeMan.TDdeMgr.GetExeName(TDdeMgr):AnsiString;
| or: Forms.TApplication.GetExeName(TApplication):AnsiString;
|
004DD5E6 E83140FAFF call 0048161C
004DD5EB 8B85D4FEFFFF mov eax, [ebp+$FFFFFED4]
004DD5F1 8D95D8FEFFFF lea edx, [ebp+$FFFFFED8]
* Reference to: SysUtils.ExtractFileName(AnsiString):AnsiString;
|
004DD5F7 E814E2F2FF call 0040B810
004DD5FC 8B85D8FEFFFF mov eax, [ebp+$FFFFFED8]
004DD602 8B55FC mov edx, [ebp-$04]
|
004DD605 E8C6370000 call 004E0DD0
004DD60A 84C0 test al, al
004DD60C 7411 jz 004DD61F
004DD60E EB04 jmp 004DD614
004DD610 45 inc ebp
004DD611 50 push eax
004DD612 45 inc ebp
004DD613 25E9EF0200 and eax, $0002EFE9
004DD618 00EB add bl, ch
004DD61A 0445 add al, +$45
004DD61C 50 push eax
004DD61D 45 inc ebp
004DD61E 25B201A1B8 and eax, $B8A101B2
004DD623 CB ret
004DD624 41 inc ecx
004DD625 00E8 add al, ch
004DD627 4D dec ebp
004DD628 65F2 repne
004DD62A FF8983C40300 dec dword ptr [ecx+$3C483]
004DD630 006804 add [eax+$04], ch
004DD633 0100 add [eax], eax
004DD635 008D85F7FEFF add [ebp+$FFFEF785], cl
004DD63B FF50E8 call dword ptr [eax-$18]
004DD63E 3A9CF2FF8D95D0 cmp bl, byte ptr [edx+esi*8+$D0958DFF]
004DD645 FEFF DB $FE, $FF //
004DD647 FF8D85F7FEFF dec dword ptr [ebp+$FFFEF785]
004DD64D FFE8 jmp ax
004DD64F 21E5 and ebp, esp
004DD651 F2 repne
004DD652 FF8B95D0FEFF dec dword ptr [ebx+$FFFED095]
004DD658 FFA1F0814E00 jmp dword ptr [ecx+$4E81F0]
* Possible String Reference to: '\KModule.ocx'
|
004DD65E B950D94D00 mov ecx, $004DD950
* Reference to: System.@LStrCat3;
|
004DD663 E89C76F2FF call 00404D04
004DD668 8D95CCFEFFFF lea edx, [ebp+$FFFFFECC]
004DD66E B801000000 mov eax, $00000001
|
004DD673 E8A85BF2FF call 00403220
004DD678 8B85CCFEFFFF mov eax, [ebp+$FFFFFECC]
004DD67E 33D2 xor edx, edx
|
004DD680 E80F91FBFF call 00496794
004DD685 8B1538834E00 mov edx, [$004E8338]
004DD68B 8902 mov [edx], eax
004DD68D 8D95C8FEFFFF lea edx, [ebp+$FFFFFEC8]
004DD693 B802000000 mov eax, $00000002
|
004DD698 E8835BF2FF call 00403220
004DD69D 8B85C8FEFFFF mov eax, [ebp+$FFFFFEC8]
004DD6A3 83CAFF or edx, -$01
|
004DD6A6 E8E990FBFF call 00496794
004DD6AB 8BF0 mov esi, eax
004DD6AD 8D95C4FEFFFF lea edx, [ebp+$FFFFFEC4]
004DD6B3 B803000000 mov eax, $00000003
|
004DD6B8 E8635BF2FF call 00403220
004DD6BD 8B85C4FEFFFF mov eax, [ebp+$FFFFFEC4]
004DD6C3 83CAFF or edx, -$01
|
004DD6C6 E8C990FBFF call 00496794
004DD6CB 8BF8 mov edi, eax
004DD6CD 85F6 test esi, esi
004DD6CF 7D04 jnl 004DD6D5
004DD6D1 85FF test edi, edi
004DD6D3 7C12 jl 004DD6E7
004DD6D5 8BD6 mov edx, esi
004DD6D7 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
004DD6D9 E8CE31F8FF call 004608AC
004DD6DE 8BD7 mov edx, edi
004DD6E0 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
004DD6E2 E8E931F8FF call 004608D0
004DD6E7 C683C003000000 mov byte ptr [ebx+$03C0], $00
004DD6EE 8BC3 mov eax, ebx
* Reference to: Controls.TWinControl.GetHandle(TWinControl):HWND;
| or: QComCtrls.TTrackBar.GetHandle(TTrackBar):QClxSliderH;
| or: QComCtrls.TCustomViewControl.GetHandle(TCustomViewControl):QListViewH;
| or: QComCtrls.TCustomViewControl.ViewportHandle(TCustomViewControl):QWidgetH;
| or: QComCtrls.TCustomHeaderControl.GetHandle(TCustomHeaderControl):QHeaderH;
| or: QComCtrls.TCustomSpinEdit.GetHandle(TCustomSpinEdit):QClxSpinBoxH;
|
004DD6F0 E82FA2F8FF call 00467924
004DD6F5 33D2 xor edx, edx
004DD6F7 52 push edx
004DD6F8 50 push eax
004DD6F9 8D85C0FEFFFF lea eax, [ebp+$FFFFFEC0]
|
004DD6FF E8ECD9F2FF call 0040B0F0
004DD704 8B95C0FEFFFF mov edx, [ebp+$FFFFFEC0]
004DD70A 66B8E803 mov ax, $03E8
|
004DD70E E8A5340000 call 004E0BB8
004DD713 BA10000000 mov edx, $00000010
004DD718 8B839C030000 mov eax, [ebx+$039C]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -