B4X

Examine the Contents of a .p7m by Converting to XML

Examines the contents of a .p7m signature by converting it to XML. B4X

Dim success As Boolean = False

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

Dim asn As ChilkatAsn
asn.Initialize

success = asn.LoadBinaryFile("qa_data/p7m/a.p7m")
If success <> True Then
    Log(asn.LastErrorText)
    Return
End If


'  Convert to XML.
Dim strXml As String = 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 ChilkatXml
xml.Initialize
xml.LoadXml(strXml)

Log(xml.GetXml)
xml.SaveXml("qa_output/a.xml")

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