project BLF > class TCrypt > method DecryptString
Parameters
icInputString | input | character | The string that has to be decrypted. |
ocOutputString | output | character | The decrypted 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 icInputString begins "B64:"
then vmDaemonPwd = base64-decode(substring(icInputString,5,-1,"CHARACTER")).
else do:
/*Do not set terminating 0, thats why explicit length*/
Set-size(vmDaemonPwd) = Length(icInputString,"RAW":U).
/*Do not set terminating 0, thats why explicit length in put-string*/
Put-string(vmDaemonPwd,1,Length(icInputString,"RAW":U)) = icInputString.
end.
if com.qad.qra.config.QraConfig:IsEnabled
then ocOutputString = String(DECRYPT(vmDaemonPwd,vaEKey,?,"AES_CBC_128")).
else ocOutputString = String(DECRYPT(vmDaemonPwd,vaEKey)).
/*clean up*/
Set-size(vmDaemonPwd) = 0.
vmDaemonPwd = ?.