Xojo Plugin

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-----

Xojo Plugin

Dim success As Boolean
success = False

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

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

Dim crypt As New Chilkat.Crypt2

crypt.CryptAlgorithm = "pki"

// ...
// ...

success = crypt.SetDecryptCert2(cert,privKey)
If (success = False) Then
    System.DebugLog(crypt.LastErrorText)
    Return
End If

System.DebugLog("Success.")