哪位大哥能用Idtcpserver and idtcpclient 写个端口转发=端口映射=数据转发解决办法

哪位大哥能用Idtcpserver and idtcpclient 写个端口转发=端口映射=数据转发
哪位大哥能用Idtcpserver and idtcpclient 写个端口转发=端口映射=数据转发

我在网络上搜了好久了也没找到啊 我不想用indy自带的那个转发控件 我想转发的同时数据加密

[解决办法]

Delphi(Pascal) code

type  TMySuperMappedPortContext = Class(TIdMappedPortContext)    public      procedure DoEncode;      procedure DoDecode;  End;implementation{自定义加密函数}function EncodeData(Src: String): String;begin  Result := Src;end;{自定义解密函数}function DecodeData(Src: String): String;begin  Result := Src;end;{自定义加密接口}procedure TMySuperMappedPortContext.DoEncode;begin  FNetData := EncodeData(FNetData);end;{自定义解密接口}procedure TMySuperMappedPortContext.DoDecode;begin  FNetData := DecodeData(FNetData);end;