project BLF > class TCrypt > method EncryptString
Parameters
icInputString | input | character | The string that has to be encrypted. |
ocOutputString | output | character | The encrypted string |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
QadFinancials
program code (program1/tcrypt.p)
If icInputString = '' Or
icInputString = ?
Then Do:
Assign ocOutputString = ''.
Return.
End.
if com.qad.qra.config.QraConfig:IsEnabled
then vmcrypted = encrypt(icInputString,vaEKey,?,"AES_CBC_128").
else vmcrypted = encrypt(icInputString,vaEKey).
ocOutputString = "B64:" + base64-encode(vmcrypted).
/*clean up*/
set-size(vmcrypted) = 0.
vmcrypted = ?.