(Lianja) Example: Crypt2.SetSigningCert2 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-----

Chilkat Lianja Extension Download Chilkat Lianja Extension

loCert = createobject("CkCert")
llSuccess = loCert.LoadFromFile("c:/certs_and_keys/certAbc.pem")
// Assume success...

loPrivKey = createobject("CkPrivateKey")
llSuccess = loPrivKey.LoadAnyFormatFile("c:/certs_and_keys/certAbc_key.pem")
// Assume success...

loCrypt = createobject("CkCrypt2")

llSuccess = loCrypt.SetSigningCert2(loCert,loPrivKey)
if (llSuccess = .F.) then
    ? loCrypt.LastErrorText
    release loCert
    release loPrivKey
    release loCrypt
    return
endif

? "Success."


release loCert
release loPrivKey
release loCrypt