Visual Basic 6.0

Examine the Contents of a .p7m by Converting to XML

Examines the contents of a .p7m signature by converting it to XML. 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 asn As New ChilkatAsn

success = asn.LoadBinaryFile("qa_data/p7m/a.p7m")
If (success <> 1) Then
    Debug.Print asn.LastErrorText
    Exit Sub
End If

' Convert to XML.
Dim strXml As String
strXml = asn.AsnToXml()

' The XML returned by AsnToXml will be compact.
' To get the XML indented in human-readable form, load
' into the Chilkat XML object and emit..
Dim xml As New ChilkatXml
success = xml.LoadXml(strXml)

Debug.Print xml.GetXml()
success = xml.SaveXml("qa_output/a.xml")

' -----------------------------------------------------------------------------------------
' Also see Chilkat's online tool to examine a .p7m and generate code to duplicate the .p7m
' -----------------------------------------------------------------------------------------