Lianja

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

Lianja

llSuccess = .F.

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

loCrypt.CryptAlgorithm = "pki"

// ...
// ...

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

? "Success."


release loCert
release loPrivKey
release loCrypt