Lianja

Example: Crypt2.SetDecryptCert method

Demonstrates how to call the SetDecryptCert method. Lianja

llSuccess = .F.

loCert = createobject("CkCert")

llSuccess = loCert.LoadPfxFile("c:/pfx_files/my.pfx","password")
if (llSuccess <> .T.) then
    ? loCert.LastErrorText
    release loCert
    return
endif

loDecrypt = createobject("CkCrypt2")
loDecrypt.CryptAlgorithm = "pki"

llSuccess = loDecrypt.SetDecryptCert(loCert)
if (llSuccess <> .T.) then
    ? loDecrypt.LastErrorText
    release loCert
    release loDecrypt
    return
endif

loBd = createobject("CkBinData")
llSuccess = loBd.LoadFile("c:/someDir/pkcs7_encrypted.dat")

llSuccess = loDecrypt.DecryptBd(loBd)
if (llSuccess <> .T.) then
    ? loDecrypt.LastErrorText
    release loCert
    release loDecrypt
    release loBd
    return
endif

// bd contains the decrypted content.


release loCert
release loDecrypt
release loBd