Export Certificate to DER or PEM

Demonstrates how to export a digital certificate to PEM or DER format.

LOCAL loCert
LOCAL lnSuccess

loCert = CreateObject('Chilkat.Cert')

*  Th LoadByCommonName method searches the Windows
*  Current User Certificate Store and Local Machine Certificate
*  Store for a certificate whose common name (CN) matches
*  the argument:

lnSuccess = loCert.LoadByCommonName("Chilkat Software, Inc.")
IF (lnSuccess = 0) THEN
    =MESSAGEBOX("Failed to find certificate!")
ELSE

    *  Export certificate to a PEM file
    loCert.ExportCertPemFile("cert.pem")

    *  Export certificate to a DER file
    loCert.ExportCertDerFile("cert.der")

    *  Export cert to a PEM string:
    ? loCert.ExportCertPem()

ENDIF

*  The Chilkat Certificate, Certificate Store, Private Key,
*  Public Key, and Key Container classes / objects are freeware.

*  They are used by and included with the Chilkat Email,
*  Crypt, S/MIME, and other commercial Chilkat components.