(Excel) Get PDF Signer Certs

See more PDF Signatures Examples

This example demonstrates how to validate the signatures in a PDF and also shows how to get each signature's signer certificate.

Note: This example requires Chilkat v9.5.0.87 or greater.

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim pdf As Chilkat.Pdf
Set pdf = Chilkat.NewPdf

' Load a PDF that has cryptographic signatures to be validated

success = pdf.LoadFile("qa_data/pdf/sign_testing_1/helloSigned2.pdf")
If (success = False) Then
    Debug.Print pdf.LastErrorText
    Exit Sub
End If

' Each time we verify a signature, information about the signature is written into
' sigInfo (replacing whatever sigInfo previously contained).
Dim sigInfo As Chilkat.JsonObject
Set sigInfo = Chilkat.NewJsonObject

' Iterate over each signature and validate each.

numSignatures = pdf.NumSignatures

validated = False
Dim cert As Chilkat.Cert
Set cert = Chilkat.NewCert

i = 0
Do While i < numSignatures
    validated = pdf.VerifySignature(i,sigInfo)
    Debug.Print "Signature "; i; " validated: "; validated

    ' The GetSignerCert method was added in Chilkat v9.5.0.87
    ' After calling VerifySignature, you can get the signer certificate by calling
    ' GetSignerCert with the same index. 
    success = pdf.GetSignerCert(i,cert)
    If (success <> False) Then
        Debug.Print "PDF signer certificate: "; cert.SubjectDN
    End If

    i = i + 1
Loop

Debug.Print "Finished."