anchor.diff:  
   procedure TNetConnection.DoProcess_Message(HeaderData: TNetHeaderData; DataBuffer: TStream);
   Var   errors : AnsiString;
  -  decrypted,messagecrypted : AnsiString;
  +  decrypted,messagecrypted : TRawBytes;
     DoDisconnect : boolean;
   begin
     errors := '';
  
positive.code:   protected
      procedure Notification(AComponent: TComponent; Operation: TOperation); override;
      Procedure Send(NetTranferType : TNetTransferType; operation, errorcode : Word; request_id : Integer; DataBuffer : TStream);
      Procedure SendError(NetTranferType : TNetTransferType; operation, request_id : Integer; error_code : Integer; error_text : AnsiString);
    public
      Constructor Create(AOwner : TComponent); override;
      Destructor Destroy; override;
  
negative.code:           Connection.DisconnectInvalidClient(false,'Invalid received chunk: '+errors);
            exit;
          end;
          If (Not (TBaseType.Equals(safeBoxHeader.safeBoxHash,sbh))) or (safeBoxHeader.startBlock<>from_block) or (safeBoxHeader.endBlock<>c) or
            (safeBoxHeader.blocksCount<>safebox_blockscount) or (safeBoxHeader.protocol<CT_PROTOCOL_2) or
            (safeBoxHeader.protocol>CT_BlockChain_Protocol_Available) then begin
            errors := Format('Invalid received chunk based on call: Blockscount:%d %d - from:%d %d to %d %d - SafeboxHash:%s %s',
                [safeBoxHeader.blocksCount,safebox_blockscount,safeBoxHeader.startBlock,from_block,safeBoxHeader.endBlock,c,
                 safeBoxHeader.safeBoxHash.ToHexaString,sbh.ToHexaString]);
            Connection.DisconnectInvalidClient(false,'Invalid received chunk: '+errors);
            exit;
          end;
  