Visual Basic 6.0

Example: Crypt2.LastSignerCert method

Demonstrates how to call the LastSignerCert method. Visual Basic 6.0

Dim success As Long
success = 0

Dim crypt As New ChilkatCrypt2

Dim p7m_path As String
p7m_path = "qa_data/p7m/Firma.docx.p7m"
Dim out_path As String
out_path = "qa_output/Firma.docx"

success = crypt.VerifyP7M(p7m_path,out_path)
If (success = 0) Then
    Debug.Print crypt.LastErrorText
    Exit Sub
End If

' Examine the certificate(s) used for signing.
Dim numSigners As Long
numSigners = crypt.NumSignerCerts
Dim i As Long
i = 0

Dim cert As New ChilkatCert

Do While i < numSigners
    success = crypt.LastSignerCert(i,cert)
    Debug.Print "Signer: " & cert.SubjectDN
    i = i + 1
Loop