Xbase++

Load P7B and Iterate Certificates

See more PEM Examples

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

LOCAL nSuccess
LOCAL oPem
LOCAL nNumCerts
LOCAL i
LOCAL oCert

nSuccess := 0

//  This example assumes the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

nSuccess := 0

//  The Chilkat PEM class was introduced in v9.5.0.49.  
//  It requires the bundle to be unlocked, as shown above.
oPem := CreateObject("Chilkat.Pem")

//  Load the .p7b from a file.
nSuccess := oPem:LoadP7bFile("../myCertFiles/myP7b.p7b")
IF (nSuccess != 1)
    ? oPem:LastErrorText
    oPem:destroy()
    RETURN
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.
nNumCerts := oPem:NumCerts
i := 0

DO WHILE i < nNumCerts

    oCert := oPem:GetCert(i)
    ? "Certificate " + Str(i) + " : " + oCert:SubjectDN
    oCert:destroy()

    i := i + 1
ENDDO

oPem:destroy()