Load Base64-encoded X.509 Certificate (.cer)

Loads a digital certificate from a base64 encoded DER X.509 Certificate (.cer, .crt) and fetches information about the cert.

LOCAL loCert
LOCAL lnSuccess

loCert = CreateObject('Chilkat.Cert')

*  LoadFromFile will load virtually any certificate format file.
*  It will auto-recognize the format and load appropiately.
*  A base64-encoded DER X.509 certificate file
*  contains the binary DER in base64 encoded form.
*  Therefore, it is a text file that will begin like this:
*  -----BEGIN CERTIFICATE-----
*  MIIFbjCCBFagAwIBAgIGdDPNv/L0MA0GCSqGSIb3DQEBBQUAMIHKMQswCQYDVQQG
*  EwJVUzEQMA4GA1UECBMHQXJpem9uYTETMBEGA1UEBxMKU2NvdHRzZGFsZTEaMBgG
*  ...

lnSuccess = loCert.LoadFromFile("/Users/chilkat/testData/cer/chilkat_base64.cer")
IF (lnSuccess <> 1) THEN
    ? loCert.LastErrorText
    QUIT
ENDIF

*  DN = "Distinguished Name"
? "SubjectDN:" + loCert.SubjectDN

? "Common Name:" + loCert.SubjectCN
? "Issuer Common Name:" + loCert.IssuerCN

? "Serial Number:" + loCert.SerialNumber