unit PortRedir;

interface

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

type
  TPortRedirForm=class(TForm)
    PortLabel: TLabel;
    HostLabel: TLabel;
    PortLabel2: TLabel;
    PortEdit: TEdit;
    HostEdit: TEdit;
    PortEdit2: TEdit;
    RedirectBtn: TBitBtn;
    CloseBtn: TBitBtn;
    procedure CloseBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RedirectBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  PortRedirForm: TPortRedirForm;


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

implementation

{$R *.DFM}


procedure TPortRedirForm.CloseBtnClick(Sender: TObject);
begin
{
004AD010   55                     push    ebp
004AD011   8BEC                   mov     ebp, esp
004AD013   83C4F8                 add     esp, -$08
004AD016   8955F8                 mov     [ebp-$08], edx
004AD019   8945FC                 mov     [ebp-$04], eax
004AD01C   8B45FC                 mov     eax, [ebp-$04]
004AD01F   E874E1F9FF             call    0044B198
004AD024   59                     pop     ecx
004AD025   59                     pop     ecx
004AD026   5D                     pop     ebp
004AD027   C3                     ret


}
 end ; 

procedure TPortRedirForm.FormCreate(Sender: TObject);
begin
{
004AD154   55                     push    ebp
004AD155   8BEC                   mov     ebp, esp
004AD157   83C4F8                 add     esp, -$08
004AD15A   8955F8                 mov     [ebp-$08], edx
004AD15D   8945FC                 mov     [ebp-$04], eax
004AD160   8B45FC                 mov     eax, [ebp-$04]
004AD163   C680E402000000         mov     byte ptr [eax+$02E4], $00
004AD16A   8B45FC                 mov     eax, [ebp-$04]
004AD16D   8B80E0020000           mov     eax, [eax+$02E0]
004AD173   E80847FCFF             call    00471880
004AD178   8BC8                   mov     ecx, eax
004AD17A   A154CC4C00             mov     eax, dword ptr [$4CCC54]
004AD17F   8B00                   mov     eax, [eax]
004AD181   8B80B4030000           mov     eax, [eax+$03B4]
004AD187   BA40000000             mov     edx, $00000040
004AD18C   E8EF07F9FF             call    0043D980
004AD191   59                     pop     ecx
004AD192   59                     pop     ecx
004AD193   5D                     pop     ebp
004AD194   C3                     ret


}
 end ; 

procedure TPortRedirForm.RedirectBtnClick(Sender: TObject);
begin
{
004AD028   55                     push    ebp
004AD029   8BEC                   mov     ebp, esp
004AD02B   83C4F0                 add     esp, -$10
004AD02E   33C9                   xor     ecx, ecx
004AD030   894DF4                 mov     [ebp-$0C], ecx
004AD033   894DF0                 mov     [ebp-$10], ecx
004AD036   8955F8                 mov     [ebp-$08], edx
004AD039   8945FC                 mov     [ebp-$04], eax
004AD03C   33C0                   xor     eax, eax
004AD03E   55                     push    ebp

* Possible String Reference to: "éteõÿëë‹å]Ã"
|
004AD03F   6827D14A00             push    $004AD127

***** TRY
|
004AD044   64FF30                 push    dword ptr fs:[eax]
004AD047   648920                 mov     fs:[eax], esp
004AD04A   8B45FC                 mov     eax, [ebp-$04]
004AD04D   80B8E402000000         cmp     byte ptr [eax+$02E4], $00
004AD054   757E                   jnz     004AD0D4
004AD056   8B45FC                 mov     eax, [ebp-$04]
004AD059   C680E402000001         mov     byte ptr [eax+$02E4], $01
004AD060   8D55F4                 lea     edx, [ebp-$0C]
004AD063   8B45FC                 mov     eax, [ebp-$04]
004AD066   8B80D0020000           mov     eax, [eax+$02D0]
004AD06C   E81749F8FF             call    00431988
004AD071   8B45F4                 mov     eax, [ebp-$0C]
004AD074   50                     push    eax
004AD075   8D55F0                 lea     edx, [ebp-$10]
004AD078   8B45FC                 mov     eax, [ebp-$04]
004AD07B   8B80D8020000           mov     eax, [eax+$02D8]
004AD081   E80249F8FF             call    00431988
004AD086   8B45F0                 mov     eax, [ebp-$10]
004AD089   E882BCF5FF             call    00408D10
004AD08E   50                     push    eax
004AD08F   8D55F0                 lea     edx, [ebp-$10]
004AD092   8B45FC                 mov     eax, [ebp-$04]
004AD095   8B80C8020000           mov     eax, [eax+$02C8]
004AD09B   E8E848F8FF             call    00431988
004AD0A0   8B45F0                 mov     eax, [ebp-$10]
004AD0A3   E868BCF5FF             call    00408D10
004AD0A8   8BC8                   mov     ecx, eax
004AD0AA   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004AD0AF   8B00                   mov     eax, [eax]
004AD0B1   8B55FC                 mov     edx, [ebp-$04]
004AD0B4   8A92E4020000           mov     dl, byte ptr [edx+$02E4]
004AD0BA   E81D51FEFF             call    004921DC

* Possible String Reference to: "Stop"
|
004AD0BF   BA3CD14A00             mov     edx, $004AD13C
004AD0C4   8B45FC                 mov     eax, [ebp-$04]
004AD0C7   8B80DC020000           mov     eax, [eax+$02DC]
004AD0CD   E8E648F8FF             call    004319B8
004AD0D2   EB38                   jmp     004AD10C
004AD0D4   8B45FC                 mov     eax, [ebp-$04]
004AD0D7   C680E402000000         mov     byte ptr [eax+$02E4], $00
004AD0DE   6A00                   push    $00
004AD0E0   6A00                   push    $00
004AD0E2   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004AD0E7   8B00                   mov     eax, [eax]
004AD0E9   33C9                   xor     ecx, ecx
004AD0EB   8B55FC                 mov     edx, [ebp-$04]
004AD0EE   8A92E4020000           mov     dl, byte ptr [edx+$02E4]
004AD0F4   E8E350FEFF             call    004921DC

* Possible String Reference to: "Start"
|
004AD0F9   BA4CD14A00             mov     edx, $004AD14C
004AD0FE   8B45FC                 mov     eax, [ebp-$04]
004AD101   8B80DC020000           mov     eax, [eax+$02DC]
004AD107   E8AC48F8FF             call    004319B8
004AD10C   33C0                   xor     eax, eax
004AD10E   5A                     pop     edx
004AD10F   59                     pop     ecx
004AD110   59                     pop     ecx
004AD111   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: "‹å]Ã"
|
004AD114   682ED14A00             push    $004AD12E
004AD119   8D45F0                 lea     eax, [ebp-$10]
004AD11C   BA02000000             mov     edx, $00000002
004AD121   E87E6BF5FF             call    00403CA4
004AD126   C3                     ret

004AD127   E97465F5FF             jmp     004036A0
004AD12C   EBEB                   jmp     004AD119

****** END
|
004AD12E   8BE5                   mov     esp, ebp
004AD130   5D                     pop     ebp
004AD131   C3                     ret


}
 end ; 

end.
