Xbase++

Example: Crypt2.AddPfxSourceBd method

Demonstrates how to call the AddPfxSourceBd method. Xbase++

LOCAL nSuccess
LOCAL oCrypt
LOCAL oBdPfx
LOCAL cPfxPassword

nSuccess := 0

oCrypt := CreateObject("Chilkat.Crypt2")
nSuccess := 0

//  Do public-key decryption (RSA)
oCrypt:CryptAlgorithm := "pki"

//  ...
//  ...
//  ...

oBdPfx := CreateObject("Chilkat.BinData")
nSuccess := oBdPfx:LoadFile("c:/my_pfx_files/a.pfx")
//  ...

cPfxPassword := "secret1"
nSuccess := oCrypt:AddPfxSourceBd(oBdPfx, cPfxPassword)
IF (nSuccess == 0)
    ? oCrypt:LastErrorText
    oCrypt:destroy()
    oBdPfx:destroy()
    RETURN
ENDIF

//  Add as many as PFX sources as desired...
nSuccess := oBdPfx:LoadFile("c:/my_pfx_files/b.pfx")
cPfxPassword := "secret2"
nSuccess := oCrypt:AddPfxSourceBd(oBdPfx, cPfxPassword)
IF (nSuccess == 0)
    ? oCrypt:LastErrorText
    oCrypt:destroy()
    oBdPfx:destroy()
    RETURN
ENDIF

//  ...
//  ...

oCrypt:destroy()
oBdPfx:destroy()