FoxPro/Visual FoxPro - alguien q conosca VBasic

necesito traducir a FOX esta pequeña función
For i = 1 To Len(Mensaje)
LRCrx = LRCrx Xor Asc(Mid(Mensaje, i, 1))
Next

lo que n o entiendo es Xor y Mid.. desde ya gracias

Hola amigo..
el XOR es como el OR y el MID es para pasar de caracter en caracter..
si lo que quieres es incriptar algo (como tu clave)
escribeme tengo ejemplos..
bye..

y como seria este ejemplo?, traducido a FoxPro digo.:
For i = 1 To Len(Mensaje)
LRCrx = LRCrx Xor Asc(Mid(Mensaje, i, 1))
Next
please, su equivalente el VFoxPro

for i = 1 to len(mensaje)
lrcrx= bitxor(lrcrx,asc(subs(mensaje,i,1)))
endfor

Muchas gracias. muy amable. y sorry por los comentarios anteriores.