PureBasic

Examine the Contents of a .p7m by Converting to XML

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

IncludeFile "CkAsn.pb"
IncludeFile "CkXml.pb"

Procedure ChilkatExample()

    success.i = 0

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

    asn.i = CkAsn::ckCreate()
    If asn.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkAsn::ckLoadBinaryFile(asn,"qa_data/p7m/a.p7m")
    If success <> 1
        Debug CkAsn::ckLastErrorText(asn)
        CkAsn::ckDispose(asn)
        ProcedureReturn
    EndIf

    ; Convert to XML.
    strXml.s = CkAsn::ckAsnToXml(asn)

    ; 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..
    xml.i = CkXml::ckCreate()
    If xml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::ckLoadXml(xml,strXml)

    Debug CkXml::ckGetXml(xml)
    CkXml::ckSaveXml(xml,"qa_output/a.xml")

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


    CkAsn::ckDispose(asn)
    CkXml::ckDispose(xml)


    ProcedureReturn
EndProcedure