(Visual FoxPro) 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.

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

LOCAL loCert
LOCAL lnSuccess

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
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
    RELEASE loCert
    CANCEL
ENDIF

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

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

? "Serial Number:" + loCert.SerialNumber

RELEASE loCert