(Visual FoxPro) Example: Crypt2.AddPfxSourceBd method

Demonstrates how to call the AddPfxSourceBd method.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCrypt
LOCAL lnSuccess
LOCAL loBdPfx
LOCAL lcPfxPassword

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')
lnSuccess = 0

* Do public-key decryption (RSA)
loCrypt.CryptAlgorithm = "pki"

* ...
* ...
* ...

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBdPfx = CreateObject('Chilkat.BinData')
lnSuccess = loBdPfx.LoadFile("c:/my_pfx_files/a.pfx")
* ...

lcPfxPassword = "secret1"
lnSuccess = loCrypt.AddPfxSourceBd(loBdPfx,lcPfxPassword)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loCrypt
    RELEASE loBdPfx
    CANCEL
ENDIF

* Add as many as PFX sources as desired...
lnSuccess = loBdPfx.LoadFile("c:/my_pfx_files/b.pfx")
lcPfxPassword = "secret2"
lnSuccess = loCrypt.AddPfxSourceBd(loBdPfx,lcPfxPassword)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loCrypt
    RELEASE loBdPfx
    CANCEL
ENDIF

* ...
* ...

RELEASE loCrypt
RELEASE loBdPfx