anchor.diff:    TCrypto = Class
     private
     public
  -    class function IsHexString(const AHexString: AnsiString) : boolean;
  -    class function ToHexaString(const raw : TRawBytes) : AnsiString; // DEPRECATED: Use TRawBytes.ToHexaString instead
  -    class function HexaToRaw(const HexaString : AnsiString) : TRawBytes; overload;
  -    class function HexaToRaw(const HexaString : AnsiString; out raw : TRawBytes) : Boolean; overload;
  +    class function IsHexString(const AHexString: String) : boolean;
  +    class function ToHexaString(const raw : TRawBytes) : String; // DEPRECATED: Use TRawBytes.ToHexaString instead
  +    class function HexaToRaw(const HexaString : String) : TRawBytes; overload;
  +    class function HexaToRaw(const HexaString : String; out raw : TRawBytes) : Boolean; overload;
       class function DoSha256(p : PAnsiChar; plength : Cardinal) : TRawBytes; overload;
       class function DoSha256(const TheMessage : TRawBytes) : TRawBytes; overload;
       class procedure DoSha256(const TheMessage : TRawBytes; out ResultSha256 : TRawBytes);  overload;
  
positive.code:   Result := Self;
  end;
  
  function TBigNum.GetDecimalValue: AnsiString;
  var p : PAnsiChar;
  begin
    p := BN_bn2dec(FBN);
  
negative.code:   OpenSSL_free(p);
  end;
  
  function TBigNum.GetHexaValue: String;
  Var p : PAnsiChar;
  begin
    p := BN_bn2hex(FBN);
  