(Visual Basic 6.0) Get PDF Signer Certs

See more PDF Signatures Examples

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

Dim pdf As New ChilkatPdf

' Load a PDF that has cryptographic signatures to be validated
Dim success As Long
success = pdf.LoadFile("qa_data/pdf/sign_testing_1/helloSigned2.pdf")
If (success = 0) 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 New ChilkatJsonObject

' Iterate over each signature and validate each.
Dim numSignatures As Long
numSignatures = pdf.NumSignatures
Dim validated As Long
validated = 0
Dim cert As New ChilkatCert
Dim i As Long
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 <> 0) Then
        Debug.Print "PDF signer certificate: " & cert.SubjectDN
    End If

    i = i + 1
Loop

Debug.Print "Finished."