Lianja

Examine the Contents of a .p7m by Converting to XML

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

llSuccess = .F.

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

loAsn = createobject("CkAsn")

llSuccess = loAsn.LoadBinaryFile("qa_data/p7m/a.p7m")
if (llSuccess <> .T.) then
    ? loAsn.LastErrorText
    release loAsn
    return
endif

// Convert to XML.
lcStrXml = loAsn.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..
loXml = createobject("CkXml")
loXml.LoadXml(lcStrXml)

? loXml.GetXml()
loXml.SaveXml("qa_output/a.xml")

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


release loAsn
release loXml