Necesito la funcion XOR

[acuellar]

Hola a todos, Necesito la funcion XOR, que creo que es de C

Necesito que me la pasen en texto o en obj para 32Bits

Muchisimas gracias por su colaboracion y ayuda

Saludos

Adhemar

[Antonio Linares]

Adhemar,

FiveWin proporciona nXor( n1, n2, ... ) --> nResultado

[acuellar]

Gracias Distinguido Antonio

Me sale un error, aqui el proceso, no se como tengo que escribirlo el XOR

cConcate:="1234567890"
For I=1 To Len(cConcate)
X:=Mod( (x + 1) , 256 )
Y:=Mod( (aState[X+1]+Y) , 256 )
AuxState:=aState[X+1]
aState[X+1]:=aState[Y+1]
aState[Y+1]:=AuxState

Resto:=aState[ Mod( (aState[X+1] + aState[Y+1]) , 256 )+1 ]

nMen:=XOR( ASC( Subs(cConcate,I,1) ) , Resto )

nMen:=nMen+1

Next I

El error es:

Error: Unresolved external '_HB_FUN_XOR' referenced from D:\SISTEMAS\TAJIBOS\FACTURAS\OBJ\PROCFACT.OBJ

Gracias por su tiempo y colaboracion

Saludos

Adhemar

[ronaldo]

utiliza nXOR()

[Antonio Linares]

Lleva una n delante: nXor()

[acuellar]

Gracias Distinguidos

Ahora me funciona perfecto.

Saludos

Adhemar