anchor.diff:      AND ((TBaseType.BinStrComp(b1,b0)=0) Or (TBaseType.BinStrComp(b2,b0)=0) Or (TBaseType.BinStrComp(b1,b2)=0)); // b is 0 value or b1=b2 (b = block number)
   end;
   
  -class function TPCOperation.FinalOperationHashAsHexa(const operationHash: TRawBytes): AnsiString;
  -begin
  -  Result := TCrypto.ToHexaString(Copy(operationHash,5,28));
  -end;
  -
  -class function TPCOperation.OperationHashAsHexa(const operationHash: TRawBytes): AnsiString;
  +class function TPCOperation.FinalOperationHashAsHexa(const operationHash: TRawBytes): String;
  +begin
  +  Result := TCrypto.ToHexaString(Copy(operationHash,4,28));
  +end;
  +
  +class function TPCOperation.OperationHashAsHexa(const operationHash: TRawBytes): String;
   begin
     Result := TCrypto.ToHexaString(operationHash);
   end;
  
positive.code:     Property HasValidSignature : Boolean read FHasValidSignature;
      Class function OperationHash_OLD(op : TPCOperation; Block : Cardinal) : TRawBytes;
      Class function OperationHashValid(op : TPCOperation; Block : Cardinal) : TRawBytes;
      class function IsValidOperationHash(const AOpHash : AnsiString) : Boolean;
      class function TryParseOperationHash(const AOpHash : AnsiString; var block, account, n_operation: Cardinal; var md160Hash : TRawBytes) : Boolean;
      Class function DecodeOperationHash(Const operationHash : TRawBytes; var block, account,n_operation : Cardinal; var md160Hash : TRawBytes) : Boolean;
      Class function EqualOperationHashes(Const operationHash1, operationHash2 : TRawBytes) : Boolean;
      Class function FinalOperationHashAsHexa(Const operationHash : TRawBytes) : AnsiString;
      class function OperationHashAsHexa(const operationHash : TRawBytes) : AnsiString;
      class function GetOpReferenceAccount(const opReference : TOpReference) : Cardinal;
      class function GetOpReferenceN_Operation(const opReference : TOpReference) : Cardinal;
      function Sha256 : TRawBytes;
  
negative.code:   end;
  end;
  
  class function TPCOperationsComp.OperationBlockToText(const OperationBlock: TOperationBlock): String;
  begin
    Result := Format('Block:%d Timestamp:%d Reward:%d Fee:%d Target:%d PoW:%s Payload:%s Nonce:%d OperationsHash:%s SBH:%s',[operationBlock.block,
      operationblock.timestamp,operationblock.reward,operationblock.fee, OperationBlock.compact_target, TCrypto.ToHexaString(operationblock.proof_of_work),
  