Visual Basic 6.0

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 Visual Basic 6.0

Dim success As Long
success = 0

' 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
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

    ' 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."