| Код |
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdThreadMgr, IdThreadMgrDefault, IdBaseComponent,
IdComponent, IdTCPServer, IdMappedPortTCP, ExtCtrls;
type
TITMAPPER = class(TForm)
PORTSGROUP: TGroupBox;
MAPPEDPORT: TEdit;
DEFAULTPORT: TEdit;
LabelMP: TLabel;
LabelDP: TLabel;
HOSTSGROUP: TGroupBox;
MAPPEDHOST: TEdit;
LabelMH: TLabel;
FILESGROUP: TGroupBox;
FILENAME: TEdit;
LabelMF: TLabel;
MAP: TIdMappedPortTCP;
IdThreadMgrDefault1: TIdThreadMgrDefault;
Button1: TButton;
EXITBUTTON: TButton;
procedure EXITBUTTONClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure MAPOutboundData(AThread: TIdMappedPortThread);
procedure MAPExecute(AThread: TIdMappedPortThread);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ITMAPPER : TITMAPPER;
FS : TFileStream;
Ini : TStringList;
implementation
{$R *.dfm}
CONST
IniFile='Mapper.ini';
cnMAPPEDHOST='Host';
cnMAPPEDPORT='Port';
cnFILENAME='LogFile';
cnDEFAULTPORT='DPort'; //constant for default port
procedure TITMAPPER.EXITBUTTONClick(Sender: TObject);
begin
CLOSE;
end;
procedure TITMAPPER.Button1Click(Sender: TObject);
begin
IF MAP.Active THEN
BEGIN //ShutDown Mapper
MAP.Active := FALSE;
DEFAULTPORT.Enabled :=TRUE;
MAPPEDPORT.Enabled := TRUE;
MAPPEDHOST.Enabled := TRUE;
FILENAME.Enabled := TRUE;
Button1.Caption := 'START';
FS.Free;
END
ELSE
BEGIN // Turn On Mapper
MAP.MappedHost := MAPPEDHOST.Text;
MAP.MappedPort := StrToInt(MAPPEDPORT.Text);
MAP.DefaultPort := StrToInt(DEFAULTPORT.Text);
FS := TFileStream.Create(FILENAME.Text, FMCreate); //Create&Open Log File
DEFAULTPORT.Enabled := FALSE;
MAPPEDPORT.Enabled := FALSE;
MAPPEDHOST.Enabled := FALSE;
FILENAME.Enabled := FALSE;
MAP.Active := TRUE;
Button1.Caption := 'STOP';
END;
end;
procedure TITMAPPER.MAPOutboundData(AThread: TIdMappedPortThread);
begin //Outgoing Packets
FS.Write(#13#10'<<<<<<'#13#10,8); //MARKER of OUTGOING PACKETS
FS.Write(AThread.NetData[1], Length(AThread.NetData));
end;
procedure TITMAPPER.MAPExecute(AThread: TIdMappedPortThread);
begin //Outgoing Packets
FS.Write(#13#10'>>>>>>'#13#10,8); //MARKER of OUTGOING PACKETS
FS.Write(AThread.NetData[1], Length(AThread.NetData));
end;
function GetValue(Name, Def:String):String; //Work with ini
BEGIN
RESULT := ini.Values[Name];
IF RESULT = '' THEN
RESULT := Def;
END;
procedure TITMAPPER.FormCreate(Sender: TObject);
BEGIN
INHERITED;
ini := TStringList.Create; //Load From ini
IF FileExists(iniFile) THEN
ini.LoadFromFile(iniFile);
MAPPEDHOST.Text := GetValue(cnMAPPEDHOST, MAPPEDHOST.Text);
MAPPEDPORT.Text := GetValue(cnMAPPEDPORT, MAPPEDPORT.Text);
DEFAULTPORT.Text := GetValue(cnDEFAULTPORT, DEFAULTPORT.Text);
FILENAME.Text := GetValue(cnFILENAME, FILENAME.Text);
END;
procedure TITMAPPER.FormDestroy(Sender: TObject);
BEGIN //Save to ini
ini.Values[cnMAPPEDHOST] := MAPPEDHOST.Text;
ini.Values[cnMAPPEDPORT] := MAPPEDPORT.Text;
ini.Values[cnDEFAULTPORT] := DEFAULTPORT.Text;
ini.Values[cnFILENAME] := FILENAME.Text;
ini.SaveToFile(iniFile);
END;
end.
|
вот оно ... добавил настройку DefaultPort, немного видоизменил ... ну и конечно кнопка выключения 
даже тестил на сервере ... протоколирует ... радует (даже учитывая лог размером в 5 кб за минуту, при одном юзере онлайн ) ... еще раз спасибо Snowy 
а далее требуется продолжение .... думаю будет это не проще чем до сих пор...
нужно к пакету приписывать айпи отправителя/получателя пакета (получатель - тот кому предназначен пакет идущий через сервер... но это не самое главное );
кстати ... если поймать пакет и получить его в HEX виде ... можно ли его обратно закодировать, и уже в таком виде запихнуть в программу как значение переменной/константы? .... ну а при проходе любого пакета сравнивать его с этой переменной/константой ... и при совпадении блокировать/перенаправлять/уничтожать ... ну в общем лучше начнем с айпи |
)
