FUNCTION decrypted
LPARAMETERS tcpass
LOCAL n,lcchar,lcword
lcword=''
FOR n=1 TO LEN(tcpass)
  lcchar=ASC(SUBSTR(tcpass, n, 1))- ASC('X')
  lcword=lcword+CHR(lcchar)
NEXT 
RETURN lcword