FiveTech Support Forums

Al compilar me da error con el operador ^^ ¿como puedo solucionar la siguiente función?

function ...

cHex := ""

cChar := ""

For Each cChar IN cResposta

  if HB_EnumIndex( cChar ) < Len( cResposta )

     if HB_EnumIndex( cChar ) == nStartEvaluate

        cHex := cChar

     endif

     cHex := cHex ^^ cResposta[ HB_EnumIndex( cChar ) + 1 ]

  endif

next

return cHex

Ya intentaste con el doble asterisco? **

Tal vez quiere hacer una operación Xor ?

Sr Antonio, não entendo muito bem a função, mas acredito que sim.

Seria referente esta linha de código:

cHex := cHex ^^ cResposta[ HB_EnumIndex( cChar ) + 1 ]

static function BitXorString( cResposta, nStartEvaluate )

Local cHex, cChar

Default nStartEvaluate := 1

cHex := ""

cChar := ""

For Each cChar IN cResposta

  if HB_EnumIndex( cChar ) < Len( cResposta )

     if HB_EnumIndex( cChar ) == nStartEvaluate

        cHex := cChar

     endif

    cHex := cHex ^^ cResposta[ HB_EnumIndex( cChar ) + 1 ]

  endif

next

return cHex

Entonces puedes usar la función NumXor() de Harbour:

cHex := Chr( NumXor( Asc( cHex ), Asc( cResposta[ HB_EnumIndex( cChar ) + 1 ] ) ) )

Sr. Antonio,

CHAR = chr

ok?

MGA wrote: Sr. Antonio,

CHAR = chr

ok?