>>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) >>>>