project BLF > class TCrypt > method DecryptString


Parameters


icInputStringinputcharacterThe string that has to be decrypted.
ocOutputStringoutputcharacterThe decrypted string.
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method BBaseDaemon.Calculate
method BBaseDaemonProcessor.Initialize
method BSystem.Calculate
method BSystem.ValidateComponent
method TApplication.ActivateSOD
method TApplication.DeactivateSOD
method TApplication.Synchronize
method TDaemon.StartRun
method TSODImport.ImportSODData

QadFinancials
method TOpenSSL.SignStringUsingOpenSSL


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 = ?.