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
Saludos,
Adhemar C.
Adhemar C.
Board index FiveWin para Harbour/xHarbour Necesito la funcion XOR
Adhemar,
FiveWin proporciona nXor( n1, n2, ... ) --> nResultado
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
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
Saludos,
Adhemar C.
Adhemar C.
utiliza nXOR()
Lleva una n delante: nXor()
Gracias Distinguidos
Ahora me funciona perfecto.
Saludos
Adhemar
Saludos,
Adhemar C.
Adhemar C.