operator ^^ como puedo solucionar?

[MGA]

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

[leandro]

Ya intentaste con el doble asterisco? **

[Antonio Linares]

Tal vez quiere hacer una operación Xor ?

[MGA]

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

[Antonio Linares]

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

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

[MGA]

Sr. Antonio,

CHAR = chr

ok?

[Antonio Linares]

Sr. Antonio,

CHAR = chr

ok?

Yes!