project BLF > class TCrypt > method MainBlock

Internal usage

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.