Hi Jim,

>Is there a FREE Encryption add-in for VFP6?

IIRC, Mike Helland? wrote a FAQ on how to do simple encrypttion on a string using character translation.

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