anchor.diff:                  case HeaderData.operation of
                     CT_NetOp_Hello : Begin
                       if TNetData.NetData.IpInfos.ReachesLimits(Client.RemoteHost,CT_NetTransferType[HeaderData.header_type],TNetData.OperationToText(HeaderData.operation),HeaderData.buffer_data_length,
  -                      TArray<TLimitLifetime>.Create(TLimitLifetime.Create(CT_NewLineSecondsAvg * 2,10,20000))) then DisconnectInvalidClient(False,Format('Reached limit %s',[TNetData.OperationToText(HeaderData.operation)]))
  +                      TArray<TLimitLifetime>.Create(TLimitLifetime.Create(CT_NewLineSecondsAvg * 2,20,20000))) then DisconnectInvalidClient(False,Format('Reached limit %s',[TNetData.OperationToText(HeaderData.operation)]))
                       else begin
                         iDebugStep := 1100;
                         DoProcess_Hello(HeaderData,ReceiveDataBuffer);
  
positive.code:       end;
  
        FLastHelloReceivedTS:=TPlatform.GetTickCount;
  
        {$IFDEF HIGHLOG}TLog.NewLog(ltdebug,Classname,'Hello received: '+TPCOperationsComp.OperationBlockToText(FRemoteOperationBlock));{$ENDIF}
        if (HeaderData.header_type in [ntp_request,ntp_response]) then begin
  
negative.code:                   CT_NetOp_GetBlockchainOperations : Begin
                      if HeaderData.header_type=ntp_request then begin
                        if TNetData.NetData.IpInfos.ReachesLimits(Client.RemoteHost,CT_NetTransferType[HeaderData.header_type],TNetData.OperationToText(HeaderData.operation),HeaderData.buffer_data_length,
                          TArray<TLimitLifetime>.Create(TLimitLifetime.Create(60,10,0))) then DisconnectInvalidClient(False,Format('Reached limit %s',[TNetData.OperationToText(HeaderData.operation)]))
                        else DoProcess_GetBlockchainOperations_Request(HeaderData,ReceiveDataBuffer)
                      end else TLog.NewLog(ltdebug,Classname,'Received old response of: '+TNetData.HeaderDataToText(HeaderData));
                    End;
  