A$ENCRYPT

This routine encrypts data using a given key. It uses the Blowfish algorithm.

Syntax:

CALL "A$ENCRYPT" USING dataToEncrypt                          encryptionKey                         encryptedData

Parameters:

dataToEncrypt	PIC X(n) or string literal.	Specifies the data to encrypt. Trailing spaces are processed too.
encryptionKey	PIC X(n) or string literal.	Specifies the key to use during ecryption.   The encryption key must be 1 to 16 bytes in size.
encryptedData	PIC X(n)	Returns the encrypted data.   The size of this field must be multiple of 8 bytes an d greater than the size of dataToDecrypt.

Examples:

Example - Encrypt a text with specific password

*> All parameters used by a$encrypt may be defined as pic x(n)   move "this is test data" to source-str move "encpwd9030"        to source-pwd call "a$encrypt" using source-str, source-pwd, encrypted-data   *> Some characters in the encrypted-data could be not displayable *> You may use function dec2hex to convert it to displayable hex codes