big HASH +1 how ?

[Jimmy]

hi,

guess i have a bit HASH (HEX) and want to add 1

Code: Select all  Expand view  RUN

6965129d6c68406c93fa74c7ef2696b6 +1 -> ?

how can i do it

[Antonio Linares]

Dear Jimmy,

0x6965129d6c68406c93fa74c7ef2696b6 + 1

[nageswaragunupudi]

Code: Select all  Expand view  RUN

  n := NUMTOHEX( 0x6965129d6c68406c93fa74c7ef2696b6 + 1 )
 

64-bit Exe only can handle this large value.
But 32 bit exe can not handle such large numbers
With 32-bit exe this is the result:

Code: Select all  Expand view  RUN

93FA74C7EF2696B7

For 32-bit exe, we can use this function with the same result:

Code: Select all  Expand view  RUN

function HexAddOne( cStr )

   HB_INLINE( cStr ) {
      char * text = ( char * ) hb_parc( 1 );
      int iPos = hb_parclen( 1 );
      char c   = '0';

      while ( iPos > 0 && c == '0' )
      {
         c  = text[ --iPos ];
         c  = ( ( c == 'f' || c == 'F' ) ? '0' : ( c == '9' ? 'a' : c + 1 ) );
         text[ iPos ] = c;
      }
      hb_ret();
   }

return cStr

Using this function

Code: Select all  Expand view  RUN

? c := hexaddone( "6965129d6c68406c93fa74c7ef2696b6" ) // --> 6965129d6c68406c93fa74c7ef2696b7

This function works without any limit on the size. Even hex strings larger than 32 bytes.