Tom,

PADR your value to 20 chars when encrypting.

HTH

-Dan

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