ipaddrfilter.pas

大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.

unit IPaddrFilter;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmIPaddrFilter=class(TForm)
    BlockListPopupMenu: TPopupMenu;
    BPOPMENU_REFLIST: TMenuItem;
    BPOPMENU_SORT: TMenuItem;
    BPOPMENU_ADD: TMenuItem;
    BPOPMENU_ADDTEMPLIST: TMenuItem;
    BPOPMENU_DELETE: TMenuItem;
    BPOPMENU_CLEAR: TMenuItem;
    TempBlockListPopupMenu: TPopupMenu;
    TPOPMENU_REFLIST: TMenuItem;
    TPOPMENU_SORT: TMenuItem;
    TPOPMENU_ADD: TMenuItem;
    TPOPMENU_BLOCKLIST: TMenuItem;
    TPOPMENU_DELETE: TMenuItem;
    TPOPMENU_CLEAR: TMenuItem;
    ActiveListPopupMenu: TPopupMenu;
    APOPMENU_REFLIST: TMenuItem;
    APOPMENU_SORT: TMenuItem;
    APOPMENU_ADDTEMPLIST: TMenuItem;
    APOPMENU_BLOCKLIST: TMenuItem;
    APOPMENU_KICK: TMenuItem;
    GroupBox5: TGroupBox;
    ListBoxFilterText: TListBox;
    ButtonMod: TButton;
    ButtonDel: TButton;
    ButtonAdd: TButton;
    ButtonOKExClick: TButton;
    ButtonOK: TButton;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    EditMaxConnect: TSpinEdit;
    GroupBox4: TGroupBox;
    Label5: TLabel;
    labIdLimitLevel: TLabel;
    CheckBoxLimitCreateNewId: TCheckBox;
    TrackBarIDLimitLevel: TTrackBar;
    GroupBox1: TGroupBox;
    ListBoxTempList: TListBox;
    GroupBoxActive: TGroupBox;
    ListBoxActiveList: TListBox;
    GroupBox6: TGroupBox;
    GroupBox7: TGroupBox;
    ListBoxCharNameFiltList: TListBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    GroupBox3: TGroupBox;
    RadioAddBlockList: TRadioButton;
    RadioAddTempList: TRadioButton;
    RadioDisConnect: TRadioButton;
    CheckBoxLostLine: TCheckBox;
    CheckBoxGetMsg: TCheckBox;
    CheckBoxAnalyseMsg: TCheckBox;
    Label7: TLabel;
    ListBoxIPAreaFiltList: TListBox;
    GroupBox8: TGroupBox;
    ListBoxBlockList: TListBox;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    CheckBoxIPAreaFilter: TCheckBox;
    procedure FormCreate(Sender : TObject);
    procedure ActiveListPopupMenuPopup(Sender : TObject);
    procedure APOPMENU_KICKClick(Sender : TObject);
    procedure APOPMENU_SORTClick(Sender : TObject);
    procedure APOPMENU_ADDTEMPLISTClick(Sender : TObject);
    procedure APOPMENU_BLOCKLISTClick(Sender : TObject);
    procedure TPOPMENU_SORTClick(Sender : TObject);
    procedure TPOPMENU_BLOCKLISTClick(Sender : TObject);
    procedure TPOPMENU_DELETEClick(Sender : TObject);
    procedure BPOPMENU_SORTClick(Sender : TObject);
    procedure BPOPMENU_ADDTEMPLISTClick(Sender : TObject);
    procedure BPOPMENU_DELETEClick(Sender : TObject);
    procedure TempBlockListPopupMenuPopup(Sender : TObject);
    procedure BlockListPopupMenuPopup(Sender : TObject);
    procedure EditMaxConnectChange(Sender : TObject);
    procedure RadioDisConnectClick(Sender : TObject);
    procedure RadioAddBlockListClick(Sender : TObject);
    procedure RadioAddTempListClick(Sender : TObject);
    procedure APOPMENU_REFLISTClick(Sender : TObject);
    procedure TPOPMENU_REFLISTClick(Sender : TObject);
    procedure BPOPMENU_REFLISTClick(Sender : TObject);
    procedure ButtonOKClick(Sender : TObject);
    procedure TPOPMENU_ADDClick(Sender : TObject);
    procedure BPOPMENU_ADDClick(Sender : TObject);
    procedure CheckBoxLostLineClick(Sender : TObject);
    procedure CheckBoxLimitCreateNewIdClick(Sender : TObject);
    procedure TrackBarIDLimitLevelChange(Sender : TObject);
    procedure ButtonAddClick(Sender : TObject);
    procedure ButtonDelClick(Sender : TObject);
    procedure ButtonModClick(Sender : TObject);
    procedure CheckBoxGetMsgClick(Sender : TObject);
    procedure ListBoxFilterTextClick(Sender : TObject);
    procedure ListBoxFilterTextDblClick(Sender : TObject);
    procedure TPOPMENU_CLEARClick(Sender : TObject);
    procedure BPOPMENU_CLEARClick(Sender : TObject);
    procedure CheckBoxAnalyseMsgClick(Sender : TObject);
    procedure ListBoxCharNameFiltListClick(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure ListBoxCharNameFiltListDblClick(Sender : TObject);
    procedure ListBoxIPAreaFiltListClick(Sender : TObject);
    procedure Button5Click(Sender : TObject);
    procedure Button6Click(Sender : TObject);
    procedure Button7Click(Sender : TObject);
    procedure ListBoxIPAreaFiltListDblClick(Sender : TObject);
    procedure CheckBoxIPAreaFilterClick(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmIPaddrFilter: TfrmIPaddrFilter;

{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TfrmIPaddrFilter.FormCreate(Sender : TObject);
begin
(*
0046A8BC   53                     push    ebx
0046A8BD   8BD8                   mov     ebx, eax
0046A8BF   8B8394030000           mov     eax, [ebx+$0394]
0046A8C5   8B10                   mov     edx, [eax]
0046A8C7   FF92D8000000           call    dword ptr [edx+$00D8]
0046A8CD   8B838C030000           mov     eax, [ebx+$038C]
0046A8D3   8B10                   mov     edx, [eax]
0046A8D5   FF92D8000000           call    dword ptr [edx+$00D8]
0046A8DB   8B83DC030000           mov     eax, [ebx+$03DC]
0046A8E1   8B10                   mov     edx, [eax]
0046A8E3   FF92D8000000           call    dword ptr [edx+$00D8]
0046A8E9   8B834C030000           mov     eax, [ebx+$034C]
0046A8EF   8B10                   mov     edx, [eax]
0046A8F1   FF92D8000000           call    dword ptr [edx+$00D8]
0046A8F7   8B83A0030000           mov     eax, [ebx+$03A0]
0046A8FD   8B10                   mov     edx, [eax]
0046A8FF   FF92D8000000           call    dword ptr [edx+$00D8]
0046A905   8B83D4030000           mov     eax, [ebx+$03D4]
0046A90B   8B10                   mov     edx, [eax]
0046A90D   FF92D8000000           call    dword ptr [edx+$00D8]
0046A913   5B                     pop     ebx
0046A914   C3                     ret

*)
end;

procedure TfrmIPaddrFilter.ActiveListPopupMenuPopup(Sender : TObject);
begin
(*
0046A918   53                     push    ebx
0046A919   56                     push    esi
0046A91A   8BF0                   mov     esi, eax
0046A91C   8B8694030000           mov     eax, [esi+$0394]
0046A922   8B8018020000           mov     eax, [eax+$0218]
0046A928   8B10                   mov     edx, [eax]
0046A92A   FF5214                 call    dword ptr [edx+$14]
0046A92D   85C0                   test    eax, eax
0046A92F   0F9FC2                 setnle  dl
0046A932   8B8638030000           mov     eax, [esi+$0338]

* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0046A938   E82B98FEFF             call    00454168
0046A93D   8B8694030000           mov     eax, [esi+$0394]
0046A943   8B10                   mov     edx, [eax]
0046A945   FF92CC000000           call    dword ptr [edx+$00CC]
0046A94B   85C0                   test    eax, eax
0046A94D   7C25                   jl      0046A974
0046A94F   8B8694030000           mov     eax, [esi+$0394]
0046A955   8B10                   mov     edx, [eax]
0046A957   FF92CC000000           call    dword ptr [edx+$00CC]
0046A95D   8BD8                   mov     ebx, eax
0046A95F   8B8694030000           mov     eax, [esi+$0394]
0046A965   8B8018020000           mov     eax, [eax+$0218]
0046A96B   8B10                   mov     edx, [eax]
0046A96D   FF5214                 call    dword ptr [edx+$14]
0046A970   3BD8                   cmp     ebx, eax
0046A972   7C04                   jl      0046A978
0046A974   33DB                   xor     ebx, ebx
0046A976   EB02                   jmp     0046A97A
0046A978   B301                   mov     bl, $01
0046A97A   8BD3                   mov     edx, ebx
0046A97C   8B863C030000           mov     eax, [esi+$033C]

* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0046A982   E8E197FEFF             call    00454168
0046A987   8BD3                   mov     edx, ebx
0046A989   8B8640030000           mov     eax, [esi+$0340]

* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0046A98F   E8D497FEFF             call    00454168
0046A994   8BD3                   mov     edx, ebx
0046A996   8B8644030000           mov     eax, [esi+$0344]

* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0046A99C   E8C797FEFF             call    00454168
0046A9A1   5E                     pop     esi
0046A9A2   5B                     pop     ebx
0046A9A3   C3                     ret

*)
end;

procedure TfrmIPaddrFilter.APOPMENU_KICKClick(Sender : TObject);
begin
(*
0046A9A4   55                     push    ebp
0046A9A5   8BEC                   mov     ebp, esp
0046A9A7   6A00                   push    $00
0046A9A9   6A00                   push    $00
0046A9AB   53                     push    ebx
0046A9AC   56                     push    esi
0046A9AD   8BD8                   mov     ebx, eax
0046A9AF   33C0                   xor     eax, eax
0046A9B1   55                     push    ebp

* Possible String Reference to: '轳桖