>I have a DBF that contains a user userid and password. I would like to encrypt the password column and be able to still use its value as normal. What is the best most straightforward way to do this without purchasing a third party product?

_Crypt is in your fll directory:

FUNCTION  EncryptPasswd()

LPARAMETERS StringToDecrypt

#IF .F. 
	LOCAL Request as wwRequest, Response as wwResponse
#ENDIF

LOCAL lcDecryptedString
lcTryToGuessMe	= "MySecretWord"
IF VARTYPE(oCrypto) != "O"
	oCrypto=NEWOBJECT("_CryptAPI",HOME(1)+"FFC\_crypt.vcx")
ENDIF

* Decrypt secure number
oCrypto.DecryptSessionStreamString(ALLTRIM(StringToDecrypt),lcTryToGuessMe, ;
	@lcDecryptedString)

RETURN lcDecryptedString

ENDFUNC	&& EncryptPasswd

and

FUNCTION  DecryptPasswd()

LPARAMETERS StringToEncrypt

#IF .F. 
	LOCAL Request as wwRequest, Response as wwResponse
#ENDIF

* Decrypt secure number

LOCAL lcDecryptedString
lcTryToGuessMe	= "MySecretWord"

IF VARTYPE(oCrypto) != "O"
	oCrypto=NEWOBJECT("_CryptAPI",HOME(1)+"FFC\_crypt.vcx")
ENDIF
oCrypto.DecryptSessionStreamString(ALLTRIM(StringToEncrypt),lcTryToGuessMe, ;
	@lcDecryptedString)
RETURN lcDecryptedString

ENDFUNC	&& DecryptPasswd