DECRYPT(<expC>, <C password>)
 Unprotects data that was protected with ENCRYPT().
 Returns <expC> of <string> decoded according to <password>.

 <expC> is the data to decrypt
 <password> sets up the decryption algorithm.  Is case sensitive,
    and may contain spaces and non-alpha characters.

 Returns unchanged <expC> if <password> is less than 3 characters.

 Decrypted return string is the same length as <expC> parameter.

 * Protect file for first time
 REPLACE ALL Field WITH ENCRYPT( Field, "My Password" )

 * Display protected data
 @...SAY DECRYPT( Field, "My Password" )

 * Edit data in protected file
 m_password = "My Password"
 memvar = DECRYPT( Field, m_password )
 <edit memvar>
 REPLACE Field WITH ENCRYPT( memvar, m_password )

 * Change encryption scheme in existing file
 REPLACE ALL Field WITH ENCRYPT(;
                        DECRYPT(Field,<old password>),;
                                      <new password> )

 * Unprotect entire file
 REPLACE ALL Field WITH DECRYPT( Field, "My Password" )


             Placed in the Public Domain by Tom Rettig Assoc.