(PureBasic) Load P7B and Iterate Certificates

Demonstrates how to load a .p7b containing one or more certificates access each of them.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCert.pb"
IncludeFile "CkGlobal.pb"
IncludeFile "CkPem.pb"

Procedure ChilkatExample()

    ; Starting in v9.5.0.49, all Chilkat classes can be unlocked at once at the beginning of a program
    ; by calling UnlockBundle.  It requires a Bundle unlock code.
    chilkatGlob.i = CkGlobal::ckCreate()
    If chilkatGlob.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkGlobal::ckUnlockBundle(chilkatGlob,"Anything for 30-day trial.")
    If success <> 1
        Debug CkGlobal::ckLastErrorText(chilkatGlob)
        CkGlobal::ckDispose(chilkatGlob)
        ProcedureReturn
    EndIf

    ; The Chilkat PEM class was introduced in v9.5.0.49.  
    ; It requires the bundle to be unlocked, as shown above.
    pem.i = CkPem::ckCreate()
    If pem.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Load the .p7b from a file.
    success = CkPem::ckLoadP7bFile(pem,"../myCertFiles/myP7b.p7b")
    If success <> 1
        Debug CkPem::ckLastErrorText(pem)
        CkGlobal::ckDispose(chilkatGlob)
        CkPem::ckDispose(pem)
        ProcedureReturn
    EndIf

    ; Note: If the app already has the p7b loaded in memory, the LoadP7b method
    ; may be called instead.  (see the online reference documentation)

    ; Iterate over the certificates.
    numCerts.i = CkPem::ckNumCerts(pem)
    i.i = 0

    While i < numCerts

        cert.i = CkPem::ckGetCert(pem,i)
        Debug "Certificate " + Str(i) + " : " + CkCert::ckSubjectDN(cert)
        CkCert::ckDispose(cert)

        i = i + 1
    Wend


    CkGlobal::ckDispose(chilkatGlob)
    CkPem::ckDispose(pem)


    ProcedureReturn
EndProcedure