Visual FoxPro

Example: Crypt2.AddPfxSourceFile method

Demonstrates how to call the AddPfxSourceFile method. Visual FoxPro

LOCAL lnSuccess
LOCAL loCrypt
LOCAL lcPfxPath
LOCAL lcPfxPassword

lnSuccess = 0

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

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

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

lcPfxPath = "c:/my_pfx_files/a.pfx"
lcPfxPassword = "secret1"
lnSuccess = loCrypt.AddPfxSourceFile(lcPfxPath,lcPfxPassword)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loCrypt
    CANCEL
ENDIF

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

* ...
* ...

RELEASE loCrypt