PureBasic

Get Issuer Certificate Information

See more Certificates Examples

A certificate contains information about its issuer. This example demonstrates how to get the issuer information from a certificate. PureBasic

IncludeFile "CkCert.pb"

Procedure ChilkatExample()

    success.i = 0

    cert.i = CkCert::ckCreate()
    If cert.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkCert::ckLoadFromFile(cert,"qa_data/certs/sample.cer")
    If success = 0
        Debug CkCert::ckLastErrorText(cert)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    ; Get issuer information:

    ; -----------------------------------------------------------------------
    ; (Not all subject fields may exist depending on the issuer certificate.)
    ; -----------------------------------------------------------------------

    ; Issuer DN (Distinguished Name, i.e. all the Issuer subject parts)
    Debug "DN: " + CkCert::ckIssuerDN(cert)

    ; Common Subject parts:
    ; Issuer Common Name
    Debug "CN: " + CkCert::ckIssuerCN(cert)

    ; Issuer Country
    Debug "C: " + CkCert::ckIssuerC(cert)

    ; Issuer Email address
    Debug "E: " + CkCert::ckIssuerE(cert)

    ; Issuer Locality
    Debug "L: " + CkCert::ckIssuerL(cert)

    ; Issuer Organization
    Debug "O: " + CkCert::ckIssuerO(cert)

    ; Issuer Organizational Unit
    Debug "OU: " + CkCert::ckIssuerOU(cert)

    ; Issuer State
    Debug "S: " + CkCert::ckIssuerS(cert)


    CkCert::ckDispose(cert)


    ProcedureReturn
EndProcedure