FUNCTION crypted
LPARAMETERS tcword
LOCAL n,lcpass,lcchar
lcpass=''
FOR n=1 TO LEN(tcword)
  	lcchar=ASC('X') + ASC(SUBSTR(tcword, n, 1))
  	lcpass=lcpass+CHR(lcchar)
NEXT 
RETURN lcpass