B4X

Example: Crypt2.AddPfxSourceBd method

Demonstrates how to call the AddPfxSourceBd method. B4X

Dim success As Boolean = False

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")
success = False

'  Do public-key decryption (RSA)
crypt.CryptAlgorithm = "pki"

'  ...
'  ...
'  ...

Dim bdPfx As ChilkatBinData
bdPfx.Initialize
success = bdPfx.LoadFile("c:/my_pfx_files/a.pfx")
'  ...

Dim pfxPassword As String = "secret1"
success = crypt.AddPfxSourceBd(bdPfx, pfxPassword)
If success = False Then
    Log(crypt.LastErrorText)
    Return
End If


'  Add as many as PFX sources as desired...
success = bdPfx.LoadFile("c:/my_pfx_files/b.pfx")
pfxPassword = "secret2"
success = crypt.AddPfxSourceBd(bdPfx, pfxPassword)
If success = False Then
    Log(crypt.LastErrorText)
    Return
End If


'  ...
'  ...