如何在delphi中监听和重新映射tcp连接？

Question

我有一个 TCP 连接（代理），它通过 socks4-5 连接并通过它发送 http / https / DNS 流量。 我需要分享一些东西，http / https 等的东西通过 tcp 连接 1 和 dns 解析通过 tcp 连接 2

我尝试创建 IdTCPServer1（但我不确定是否正确），它连接但没有发送给他。 另外，他一直挂到ReadLn才不会记录数据，也是不允许的。

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var str_str:String;
begin
  str_str:=AContext.Connection.Socket.ReadLn();
  if(str_str<>'') then    Memo1.Lines.Add('#TCP_SERVER: EXECUTE: '+str_str);

Answer 1

您需要处理（实现）socks4/5 服务器端协议（参见http://tools.ietf.org/rfc/rfc1928.txt）。在请求中，你可以拦截到端口号，看看是http、dns还是什么的。然后你根据它转发连接。