Xojo Plugin

Example: Crypt2.SetDecryptCert method

Demonstrates how to call the SetDecryptCert method. Xojo Plugin

Dim success As Boolean
success = False

Dim cert As New Chilkat.Cert

success = cert.LoadPfxFile("c:/pfx_files/my.pfx","password")
If (success <> True) Then
    System.DebugLog(cert.LastErrorText)
    Return
End If

Dim decrypt As New Chilkat.Crypt2
decrypt.CryptAlgorithm = "pki"

success = decrypt.SetDecryptCert(cert)
If (success <> True) Then
    System.DebugLog(decrypt.LastErrorText)
    Return
End If

Dim bd As New Chilkat.BinData
success = bd.LoadFile("c:/someDir/pkcs7_encrypted.dat")

success = decrypt.DecryptBd(bd)
If (success <> True) Then
    System.DebugLog(decrypt.LastErrorText)
    Return
End If

// bd contains the decrypted content.