Click above to get retro games delivered to your door ever month!

Function:    ENCRYPTED()

Purpose:     Encrypt a character string

Syntax:      ENCRYPTED( string )

Arguments:   string      - The character to be encrypted.

Returns:     An encrypted version of <string> of identical length.

Description: The are several Encrypt/Decrypt functions available, most of
             which are written in assembly or C.  This is a simple
             encryption scheme done entirely in Clipper which is not only
             functional, but the source is easily altered to provide
             unique algorithms.  Data encrypted with this function is
             decrypted with the companion DECRYPTED() function.

Notes:       Strings encrypted with this function can only be decrypted
             with the companion DECRYPTED() function!  However,
             DECRYPTED() is not bulletproof, it uses a simple data
             encryption scheme and is meant to conceal data from the
             curious.

Example:     *-- get a password, then store it in encrypted format
             @ 5,0 SAY "Enter your password:"

             *-- allow only 40 characters, upper case, and echo dots
             password = KEYINPUT(40, .T., .F.)        && see KEYINPUT()

             USE system.dbf
             REPLACE pword WITH ENCRYPTED(password)

Source:      RL_ENCRY.PRG

See also:    DECRYPTED(), KEYINPUT()