VB.NET

Example: Crypt2.LastSignerCert method

Demonstrates how to call the LastSignerCert method. VB.NET

Dim success As Boolean = False

Dim crypt As New Chilkat.Crypt2

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

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


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

Dim cert As New Chilkat.Cert

While i < numSigners
    crypt.LastSignerCert(i,cert)
    Debug.WriteLine("Signer: " & cert.SubjectDN)
    i = i + 1
End While