anchor.diff:    Result := Self;
   end;
   
  -function TBigNum.GetDecimalValue: AnsiString;
  +function TBigNum.GetDecimalValue: String;
   var p : PAnsiChar;
   begin
     p := BN_bn2dec(FBN);
  
positive.code:   TBigNum = Class
    private
      FBN : PBIGNUM;
      procedure SetHexaValue(const Value: AnsiString);
      function GetHexaValue: AnsiString;
      procedure SetValue(const Value: Int64);
      function GetValue: Int64;
      function GetDecimalValue: AnsiString;
      procedure SetDecimalValue(const Value: AnsiString);
      function GetRawValue: TRawBytes;
      procedure SetRawValue(const Value: TRawBytes);
    public
      Constructor Create; overload;
      Constructor Create(initialValue : Int64); overload;
      Constructor Create(hexaValue : AnsiString); overload;
      Destructor Destroy; override;
      Function Copy : TBigNum;
      Function Add(BN : TBigNum) : TBigNum; overload;
  
negative.code:   TCrypto = Class
    private
    public
      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;
  