(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCert
    Boolean iSuccess
    String sTemp1

    Get Create (RefClass(cComChilkatCert)) To hoCert
    If (Not(IsComObjectCreated(hoCert))) Begin
        Send CreateComObject of hoCert
    End

    // 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
    // ...

    Get ComLoadFromFile Of hoCert "/Users/chilkat/testData/cer/chilkat_base64.cer" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // DN = "Distinguished Name"
    Get ComSubjectDN Of hoCert To sTemp1
    Showln "SubjectDN:" sTemp1

    Get ComSubjectCN Of hoCert To sTemp1
    Showln "Common Name:" sTemp1
    Get ComIssuerCN Of hoCert To sTemp1
    Showln "Issuer Common Name:" sTemp1

    Get ComSerialNumber Of hoCert To sTemp1
    Showln "Serial Number:" sTemp1


End_Procedure