Visual FoxPro

Example: Crypt2.AddPfxSourceBd method

Demonstrates how to call the AddPfxSourceBd method. Visual FoxPro

LOCAL lnSuccess
LOCAL loCrypt
LOCAL loBdPfx
LOCAL lcPfxPassword

lnSuccess = 0

loCrypt = CreateObject('Chilkat.Crypt2')
lnSuccess = 0

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

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

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