(Visual FoxPro) Load Certificate (.cer) and Private Key (.pvk) generated from makecert

See more Certificates Examples

Demonstrates how to load a certificate (.cer) and private key (.pvk) from the files produced by makecert, such as in the following command:

makecert -sv mycertificate.pvk -n "CN=My Simple Certificate" mycertificate.cer -sky Exchange

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCert
LOCAL lnSuccess
LOCAL loPrivKey
LOCAL loPdf

* First load the .cer file.
* The certificate file (.cer) contains only the certificate (does not include the private key)
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadFromFile("qa_data/certs_and_keys/makecert/mycertificate.cer")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

* Next, load the .pvk file.
* Note: The password "secret" is what you entered when makecert displayed the dialog asking for a password..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PrivateKey')
loPrivKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loPrivKey.LoadPvkFile("qa_data/certs_and_keys/makecert/mycertificate.pvk","secret")
IF (lnSuccess = 0) THEN
    ? loPrivKey.LastErrorText
    RELEASE loCert
    RELEASE loPrivKey
    CANCEL
ENDIF

* Finally, associate the private key with the certificate.
lnSuccess = loCert.SetPrivateKey(loPrivKey)
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    RELEASE loPrivKey
    CANCEL
ENDIF

* At this point, the certificate can be used for signing.  For example..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Pdf')
loPdf = CreateObject('Chilkat.Pdf')

* ....
* ....

lnSuccess = loPdf.SetSigningCert(loCert)

* ...
* ....

* Some Chilkat classes also provide a method where the cert and private key can be passed separately.
* For example, if SetSigningCert2 is called, then we don't need to explicitly associate the private key with the cert.
lnSuccess = loPdf.SetSigningCert2(loCert,loPrivKey)

* ...
* ....

RELEASE loCert
RELEASE loPrivKey
RELEASE loPdf