project BLF > class TCrypt > method MainBlock


Internal usage


BLF
method BBaseDaemon.AdditionalUpdates
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 BDInvoice.VerifySignature
method TOpenSSL.SignStringUsingOpenSSL


program code (program1/tcrypt.p)

vcOrigPolicy = security-policy:symmetric-encryption-algorithm.

if com.qad.qra.config.QraConfig:IsEnabled
then security-policy:symmetric-encryption-algorithm = "AES_CBC_128".

vaEKey = GENERATE-PBE-KEY('R':U + 'o':U + 'B':U + 'B':U + 'i':U + 'N':U + 'H':U + 'o':U + 'o':U + 'D':U).

finally:
    security-policy:symmetric-encryption-algorithm = vcOrigPolicy.
end finally.