Xbase++

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

Xbase++

LOCAL nSuccess
LOCAL oCert
LOCAL oPrivKey
LOCAL oCrypt

nSuccess := 0

oCert := CreateObject("Chilkat.Cert")
nSuccess := oCert:LoadFromFile("c:/certs_and_keys/certAbc.pem")
//  Assume success...

oPrivKey := CreateObject("Chilkat.PrivateKey")
nSuccess := oPrivKey:LoadAnyFormatFile("c:/certs_and_keys/certAbc_key.pem")
//  Assume success...

oCrypt := CreateObject("Chilkat.Crypt2")

oCrypt:CryptAlgorithm := "pki"

//  ...
//  ...

nSuccess := oCrypt:SetDecryptCert2(oCert, oPrivKey)
IF (nSuccess == 0)
    ? oCrypt:LastErrorText
    oCert:destroy()
    oPrivKey:destroy()
    oCrypt:destroy()
    RETURN
ENDIF

? "Success."

oCert:destroy()
oPrivKey:destroy()
oCrypt:destroy()