unit Access;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, ComCtrls, Buttons, Menus;

type
  TAccessForm=class(TForm)
    IPView: TListView;
    CloseBtn: TBitBtn;
    PopupMenu1: TPopupMenu;
    AddItem: TMenuItem;
    RemoveItem: TMenuItem;
    procedure AddItemClick(Sender: TObject);
    procedure CloseBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RemoveItemClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  AccessForm: TAccessForm;


{This file is generated by DeDe v2.30 (c) 1999 by DaFixer}

implementation

{$R *.DFM}


procedure TAccessForm.AddItemClick(Sender: TObject);
begin
{
004C5A7C   55                     push    ebp
004C5A7D   8BEC                   mov     ebp, esp
004C5A7F   83C4F0                 add     esp, -$10
004C5A82   33C9                   xor     ecx, ecx
004C5A84   894DF8                 mov     [ebp-$08], ecx
004C5A87   8955F0                 mov     [ebp-$10], edx
004C5A8A   8945FC                 mov     [ebp-$04], eax
004C5A8D   33C0                   xor     eax, eax
004C5A8F   55                     push    ebp
004C5A90   68E95A4C00             push    $004C5AE9

***** TRY
|
004C5A95   64FF30                 push    dword ptr fs:[eax]
004C5A98   648920                 mov     fs:[eax], esp
004C5A9B   8D4DF8                 lea     ecx, [ebp-$08]

* Possible String Reference to: "Type an allowed IP-range:"
|
004C5A9E   BAFC5A4C00             mov     edx, $004C5AFC

* Possible String Reference to: "IP-range"
|
004C5AA3   B8205B4C00             mov     eax, $004C5B20
004C5AA8   E8BB13F9FF             call    00456E68
004C5AAD   84C0                   test    al, al
004C5AAF   7422                   jz      004C5AD3
004C5AB1   8B45FC                 mov     eax, [ebp-$04]
004C5AB4   8B80C4020000           mov     eax, [eax+$02C4]
004C5ABA   8B8008020000           mov     eax, [eax+$0208]
004C5AC0   E8630CFAFF             call    00466728
004C5AC5   8945F4                 mov     [ebp-$0C], eax
004C5AC8   8B55F8                 mov     edx, [ebp-$08]
004C5ACB   8B45F4                 mov     eax, [ebp-$0C]
004C5ACE   E8A907FAFF             call    0046627C
004C5AD3   33C0                   xor     eax, eax
004C5AD5   5A                     pop     edx
004C5AD6   59                     pop     ecx
004C5AD7   59                     pop     ecx
004C5AD8   648910                 mov     fs:[eax], edx

****** FINALLY
|
004C5ADB   68F05A4C00             push    $004C5AF0
004C5AE0   8D45F8                 lea     eax, [ebp-$08]
004C5AE3   E898E1F3FF             call    00403C80
004C5AE8   C3                     ret

004C5AE9   E9B2DBF3FF             jmp     004036A0
004C5AEE   EBF0                   jmp     004C5AE0

****** END
|
004C5AF0   8BE5                   mov     esp, ebp
004C5AF2   5D                     pop     ebp
004C5AF3   C3                     ret


}
 end ; 

procedure TAccessForm.CloseBtnClick(Sender: TObject);
begin
{
004C58CC   55                     push    ebp
004C58CD   8BEC                   mov     ebp, esp
004C58CF   83C4EC                 add     esp, -$14
004C58D2   8955EC                 mov     [ebp-$14], edx
004C58D5   8945FC                 mov     [ebp-$04], eax
004C58D8   8B45FC                 mov     eax, [ebp-$04]
004C58DB   E8B858F8FF             call    0044B198
004C58E0   B201                   mov     dl, $01
004C58E2   A1B4F94000             mov     eax, dword ptr [$40F9B4]
004C58E7   E8D0D6F3FF             call    00402FBC
004C58EC   8945F8                 mov     [ebp-$08], eax
004C58EF   33C0                   xor     eax, eax
004C58F1   55                     push    ebp
004C58F2   6870594C00             push    $004C5970

***** TRY
|
004C58F7   64FF30                 push    dword ptr fs:[eax]
004C58FA   648920                 mov     fs:[eax], esp
004C58FD   8B45FC                 mov     eax, [ebp-$04]
004C5900   8B80C4020000           mov     eax, [eax+$02C4]
004C5906   8B8008020000           mov     eax, [eax+$0208]
004C590C   E8570EFAFF             call    00466768
004C5911   48                     dec     eax
004C5912   85C0                   test    eax, eax
004C5914   7C35                   jl      004C594B
004C5916   40                     inc     eax
004C5917   8945F0                 mov     [ebp-$10], eax
004C591A   C745F400000000         mov     dword ptr [ebp-$0C], $00000000
004C5921   8B45FC                 mov     eax, [ebp-$04]
004C5924   8B80C4020000           mov     eax, [eax+$02C4]
004C592A   8B8008020000           mov     eax, [eax+$0208]
004C5930   8B55F4                 mov     edx, [ebp-$0C]
004C5933   E8600EFAFF             call    00466798
004C5938   8B5024                 mov     edx, [eax+$24]
004C593B   8B45F8                 mov     eax, [ebp-$08]
004C593E   8B08                   mov     ecx, [eax]
004C5940   FF5134                 call    dword ptr [ecx+$34]
004C5943   FF45F4                 inc     dword ptr [ebp-$0C]
004C5946   FF4DF0                 dec     dword ptr [ebp-$10]
004C5949   75D6                   jnz     004C5921
004C594B   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004C5950   8B00                   mov     eax, [eax]
004C5952   8B55F8                 mov     edx, [ebp-$08]
004C5955   E826BCFCFF             call    00491580
004C595A   33C0                   xor     eax, eax
004C595C   5A                     pop     edx
004C595D   59                     pop     ecx
004C595E   59                     pop     ecx
004C595F   648910                 mov     fs:[eax], edx

****** FINALLY
|
004C5962   6877594C00             push    $004C5977
004C5967   8B45F8                 mov     eax, [ebp-$08]
004C596A   E87DD6F3FF             call    00402FEC
004C596F   C3                     ret

004C5970   E92BDDF3FF             jmp     004036A0
004C5975   EBF0                   jmp     004C5967

****** END
|
004C5977   8BE5                   mov     esp, ebp
004C5979   5D                     pop     ebp
004C597A   C3                     ret


}
 end ; 

procedure TAccessForm.FormCreate(Sender: TObject);
begin
{
004C597C   55                     push    ebp
004C597D   8BEC                   mov     ebp, esp
004C597F   83C4F8                 add     esp, -$08
004C5982   8955F8                 mov     [ebp-$08], edx
004C5985   8945FC                 mov     [ebp-$04], eax
004C5988   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004C598D   8B00                   mov     eax, [eax]
004C598F   8B55FC                 mov     edx, [ebp-$04]
004C5992   8990A8000000           mov     [eax+$00A8], edx

* Possible String Reference to: "U‹ìƒÄäS3Û‰]ä‰Mø‰Uè‰Eü3ÀUhmZL"
|
004C5998   C780A4000000D0594C00   mov     dword ptr [eax+$00A4], $004C59D0
004C59A2   8B45FC                 mov     eax, [ebp-$04]
004C59A5   8B80CC020000           mov     eax, [eax+$02CC]
004C59AB   E8D0BEFAFF             call    00471880
004C59B0   8BC8                   mov     ecx, eax
004C59B2   A154CC4C00             mov     eax, dword ptr [$4CCC54]
004C59B7   8B00                   mov     eax, [eax]
004C59B9   8B80B4030000           mov     eax, [eax+$03B4]
004C59BF   BA40000000             mov     edx, $00000040
004C59C4   E8B77FF7FF             call    0043D980
004C59C9   59                     pop     ecx
004C59CA   59                     pop     ecx
004C59CB   5D                     pop     ebp
004C59CC   C3                     ret


}
 end ; 

procedure TAccessForm.FormShow(Sender: TObject);
begin
{
004C58B0   55                     push    ebp
004C58B1   8BEC                   mov     ebp, esp
004C58B3   83C4F8                 add     esp, -$08
004C58B6   8955F8                 mov     [ebp-$08], edx
004C58B9   8945FC                 mov     [ebp-$04], eax
004C58BC   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004C58C1   8B00                   mov     eax, [eax]
004C58C3   E8A0BCFCFF             call    00491568
004C58C8   59                     pop     ecx
004C58C9   59                     pop     ecx
004C58CA   5D                     pop     ebp
004C58CB   C3                     ret


}
 end ; 

procedure TAccessForm.RemoveItemClick(Sender: TObject);
begin
{
004C5B2C   55                     push    ebp
004C5B2D   8BEC                   mov     ebp, esp
004C5B2F   83C4F8                 add     esp, -$08
004C5B32   8955F8                 mov     [ebp-$08], edx
004C5B35   8945FC                 mov     [ebp-$04], eax
004C5B38   8B45FC                 mov     eax, [ebp-$04]
004C5B3B   8B80C4020000           mov     eax, [eax+$02C4]
004C5B41   E87237FAFF             call    004692B8
004C5B46   85C0                   test    eax, eax
004C5B48   7413                   jz      004C5B5D
004C5B4A   8B45FC                 mov     eax, [ebp-$04]
004C5B4D   8B80C4020000           mov     eax, [eax+$02C4]
004C5B53   E86037FAFF             call    004692B8
004C5B58   E8DB05FAFF             call    00466138
004C5B5D   59                     pop     ecx
004C5B5E   59                     pop     ecx
004C5B5F   5D                     pop     ebp
004C5B60   C3                     ret


}
 end ; 

end.
