thought I had it all figured out but am having troubles. Try this:

CLEAR
CLOSE DATABASES all
IF NOT ("CIPHER50"  $ UPPER(SET("Library" )))
   SET LIBRARY TO cipher50
ENDIF
CREATE TABLE xxx (char20 c(20), charbin20 c(20)   nocptrans)
lcVar = "Encrypt This"
lcKey = "Key123"
lcEncryptVar = ENCRYPT(lcVar,lcKey)

? "lcVar = ",lcVar
? "lcKey = ", lcKey
? "lcEncryptVar = ", lcEncryptVar
? "Decrypt(lcEncryptVar ) = ", decrypt(lcEncryptVar , lcKey)
APPEND BLANK
REPLACE char20 WITH  lcEncryptvar, charbin20 WITH lcEncryptvar
? "char20 = ", char20
? "charbin20 = ", charbin20

?"DECRYPT(char20,lcKey) = ", DECRYPT(char20,lcKey)
?"DECRYPT(charbin20,lcKey) = ", DECRYPT(charbin20,lcKey)

All works fine until I put the encrypted password into a table and want to decrypt the values. That is what it is all about. Surely someone can help...Sergey, you out there...:>)