Visual Basic 6.0

Example: Crypt2.SetDecryptCert2 method

Demonstrates how to call the SetDecryptCert2 method. This example loads the certificate and private key from PEM files:

PEM Format

Certificate file (cert.pem or cert.crt):

-----BEGIN CERTIFICATE-----
MIID... (base64-encoded data)
-----END CERTIFICATE-----

Private key file (key.pem or key.key):

-----BEGIN PRIVATE KEY-----
MIIE... (base64-encoded data)
-----END PRIVATE KEY-----

Visual Basic 6.0

Dim success As Long
success = 0

Dim cert As New ChilkatCert
success = cert.LoadFromFile("c:/certs_and_keys/certAbc.pem")
' Assume success...

Dim privKey As New PrivateKey
success = privKey.LoadAnyFormatFile("c:/certs_and_keys/certAbc_key.pem")
' Assume success...

Dim crypt As New ChilkatCrypt2

crypt.CryptAlgorithm = "pki"

' ...
' ...

success = crypt.SetDecryptCert2(cert,privKey)
If (success = 0) Then
    Debug.Print crypt.LastErrorText
    Exit Sub
End If

Debug.Print "Success."