Visual Basic 6.0

Example: Crypt2.SetDecryptCert method

Demonstrates how to call the SetDecryptCert method. Visual Basic 6.0

Dim success As Long
success = 0

Dim cert As New ChilkatCert

success = cert.LoadPfxFile("c:/pfx_files/my.pfx","password")
If (success <> 1) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

Dim decrypt As New ChilkatCrypt2
decrypt.CryptAlgorithm = "pki"

success = decrypt.SetDecryptCert(cert)
If (success <> 1) Then
    Debug.Print decrypt.LastErrorText
    Exit Sub
End If

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

success = decrypt.DecryptBd(bd)
If (success <> 1) Then
    Debug.Print decrypt.LastErrorText
    Exit Sub
End If

' bd contains the decrypted content.