FUNCTION ENCRYPT
LPARAMETERS tcStr
LOCAL x
LOCAL lcRetStr
LOCAL lcTrnStr
*validate the parm
IF TYPE('tcStr')<>'C'
RETURN .F.
ENDIF
lcTrnStr=''
FOR x=255 TO 1 STEP -1
lcTrnStr=lcTrnStr+CHR(x)
ENDFOR
lcRetStr = SYS(15,lcTrnStr,tcStr)
RETURN lcRetStr
HTH
Jon