A$DECRYPT

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

Syntax:

CALL "A$DECRYPT" USING dataToDecrypt                          encryptionKey                          decryptedData

Parameters:

dataToDecrypt	PIC X(n) or string literal.	Specifies the data to decrypt. Trailing spaces are processed too.   The size of this field must be multiple of 8 bytes.
encryptionKey	PIC X(n) or string literal.	Specifies the key to use during decryption.   The encryption key must be 1 to 16 bytes in size.
decryptedData	PIC X(n)	Returns the decrypted data.

Examples:

Example - Decrypt a previously encrypted text

*> All parameters used by a$decrypt may be defined as pic x(n) *> encrypted-data should come from a saved encrypted source  *> previously encrypted with a$encrypt   move "encpwd9030"        to source-pwd call "a$decrypt" using encrypted-data, source-pwd, decrypted-data