Visual FoxPro

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 FoxPro

LOCAL lnSuccess
LOCAL loCert
LOCAL loPrivKey
LOCAL loCrypt

lnSuccess = 0

loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadFromFile("c:/certs_and_keys/certAbc.pem")
* Assume success...

loPrivKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loPrivKey.LoadAnyFormatFile("c:/certs_and_keys/certAbc_key.pem")
* Assume success...

loCrypt = CreateObject('Chilkat.Crypt2')

loCrypt.CryptAlgorithm = "pki"

* ...
* ...

lnSuccess = loCrypt.SetDecryptCert2(loCert,loPrivKey)
IF (lnSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loCert
    RELEASE loPrivKey
    RELEASE loCrypt
    CANCEL
ENDIF

? "Success."

RELEASE loCert
RELEASE loPrivKey
RELEASE loCrypt