CRYPT()
 Encrypts and decrypts a string
------------------------------------------------------------------------------
 Syntax

     CRYPT(<cString>,<cKeystring>) --> cString

 Arguments

     <cString>  Designates the string that is that is encrypted.

     <cKeystring>  Designates the password with which the string is
     encrypted.

 Returns

     CRYPT() returns the encrypted string.

 Description

     In contrast to a simple lock using CHARXOR(), this function has a random
     number generator that uses a "random seed" algorithm.  This makes the
     lock even more secure, at least as long as this additional algorithm is
     not known.  Of course, this additional security costs some computer
     time.

     Encrypted character strings can be decrypted with the same password.
     With multiple encryptions, the decryption must occur in reverse order.

 Notes

     .  Passwords should be as long as possible -- a minimum of six
        characters, preferably more.

     .  The return value of this function can be suppressed by
        implementing CSETREF() to save space in working memory.

 Examples

     .  This example shows a simple encryption:

        cVar:= CRYPT("CLIPPER", "CA")

     .  This example shows the decryption:

        ? CRYPT(cVar, "CA")         // "CLIPPER"