如何使用 TO Telnet 抑制回声？

Question

使用 Indy10 - DelphiXE。 如何告诉我正在使用TIdTelnet 连接的 telnet 服务器不回显我发送给 telnet 服务器的命令？

这是我当前的尝试（不起作用），我尝试在每次 telnet 写入时发送序列 IAC DO SUPPRESS_LOCAL_ECHO，但我相信这必须在协商阶段完成？

uses
  TIdTelnet,

...
procedure TIOTelnetConnection.SendSupressEcho;

var
  Resp: TIdBytes;

begin
 SetLength(Resp, 3);
 Resp[0] := TNC_IAC;
 Resp[1] := TNC_DO;
 Resp[2] := TNO_SUPLOCALECHO;
 FIOConnection.IOHandler.Write(Resp);
end;

procedure TIOTelnetConnection.Write(Str: AnsiString);
begin
 SendSupressEcho;
 if Str <> '' then
  FIOConnection.IOHandler.Write(Str);
end;

查看TIdTelnet 源，我看到Negotiate 过程，但它受到保护，我该如何覆盖它的行为？

Answer 1

如果服务器向您发送IAC WILL ECHO，则TIdTelnet 被硬编码为发送IAC DO ECHO 响应，然后触发OnTelnetCommand(tncNoLocalEcho) 事件告诉您不要在本地回显您发送的内容。

如果服务器向您发送IAC WONT ECHO，则TIdTelnet 被硬编码为发送IAC DONT ECHO 响应，然后触发OnTelnetCommand(tncLocalEcho) 事件以告诉您在本地回显您发送的内容。

如果服务器向您发送IAC DO ECHO，则TIdTelnet 被硬编码为发送IAC WILL ECHO 响应，然后触发OnTelnetCommand(tncEcho) 事件告诉您回显收到的任何内容。

如果服务器向您发送IAC DONT ECHO，则TIdTelnet 被硬编码为发送IAC WONT ECHO 响应，然后触发OnTelnetCommand(tncLocalEcho) 事件告诉您回显收到的任何内容。

因此，如果您不希望服务器回显给您，您可以向服务器发送IAC DONT ECHO 命令，而不是IAC DO SUPLOCALECHO 命令。然后服务器将相应地回复IAC WONT ECHO或IAC WILL ECHO（显然TIdTelnet将回复，但服务器不会再次回复，因为它的ECHO当前状态没有改变，避免了无休止的响应循环)。

Answer 2

@Remy Lebeau：据我了解，您是在说： 如果服务器发送一个 IAC DO ECHO 给你，TIdTelnet 被硬编码发送一个 IAC WILL ECHO 响应，然后触发一个 OnTelnetCommand( tncEcho ) 事件告诉你回显您收到的任何内容。

这是有道理的，并且与 RFC857 所要实现的目标一致......

但是，在我们的代码中：

procedure TIdTelnet.Negotiate;
...
      TNC_DONT:
        begin
          b := IOHandler.ReadByte;
          case b of
            TNO_ECHO:
              begin
                DoTelnetCommand(tncEcho);
                //DoStatus('ECHO');    {Do not Localize}
                Reply := TNC_WONT;
              end;
            else
              Reply := TNC_WONT;
          end;

和

  TNC_DO:
    begin
      b := IOHandler.ReadByte;
      case b of
        TNO_ECHO:
          begin
            Reply := TNC_WILL;
            DoTelnetCommand(tncLocalEcho);
          end;

这个代码肯定不正确吗？ （在 Indy 的 10.6.0.497 版本中）

我相信这会更有意义：

 procedure TIdTelnet.Negotiate;
 ...
      TNC_DONT:
         begin
           b := IOHandler.ReadByte;
           case b of
             TNO_ECHO:
               begin
               // Agree not to echo back everything received from server 
               // (This being the default - you shouldn't echo unless asked to)
                  Reply := TNC_WONT;            
               // Therefore only print locally what is sent to server
               // (Again: this is the default behavior without negotiation) 
                  DoTelnetCommand(tncLocalEcho);
               end;
             else
               Reply := TNC_WONT;
           end;

和

   TNC_DO:
     begin
       b := IOHandler.ReadByte;
       case b of
         TNO_ECHO:
           begin
           // Agree to echo back everything received from server 
              Reply := TNC_WILL;
              DoTelnetCommand(tncEcho); 
           // Therefore you may still have to locally print what you send
           // (i.e. local echo is usually still implicit in this)
           end;   

换句话说，我相信代码现在已经从它应该是交换的 - 即发送 DO ECHO 的服务器应该得到 tncEcho 令牌 - 这就是你在上面的引用中所说的！

这个错误是如何存活这么久的？ （可能是因为大多数 Telnet 服务器不再需要 RFC857 回显协商）

不幸的是，目前我认为“补偿”此错误的唯一方法是创建 IDTelnet.pas 文件的副本；在项目管理器中将其链接到您的项目；然后按照上面的说明对该副本进行更正。

Answer 3

要解决最初的问题：“如何使用 TIdTelnet 抑制回声？”，我建议采取以下步骤：

1. 在您的表单中添加一个 TIdConnectionIntercept 并将其挂接到您的 TIdTelnet 组件通过使用 Object 的 Intercept 属性 督察。

2. 为 TIdConnectionIntercept OnSend 生成事件处理程序 事件。

3. 使用它来检测它的 var ABuffer: TIdBytes 参数何时获取 响应服务器关于回显的协商命令。 请注意，缓冲区将完全且仅具有 由于响应填充和发送的方式，其中的响应 TIdTelnet.协商

4. 根据需要更改中间字节（即强制将 WILL 更改为 WONT 或 DO 更改为 DONT 以适应您要强制执行的内容）。

乔布斯是个“好人”

当然请记住，此技术会在调用 TidTelnet OnTelnetCommand 之后注入更改，因此您必须更改您在该处理程序中设置的任何内容以适应您修改后的响应。