(Classic ASP) Extract XML from FatturaPA .p7m

Demonstrates how to verify the signature and extract the XML from a FatturaPA .p7m file.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bd = Server.CreateObject("Chilkat.BinData")
success = bd.LoadFile("qa_data/p7m/IT01879020517_abc.xml.p7m")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to load the .p7m file") & "</pre>"
    Response.End
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2")
set crypt = Server.CreateObject("Chilkat.Crypt2")

' Verify and extrct the payload contained within the .p7m.
' In this case, the payload is the FatturaPA XML.
' If successful, the resulting bd will contain only the XML.
bVerified = crypt.OpaqueVerifyBd(bd)
If (bVerified <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( crypt.LastErrorText) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to extract and verify.") & "</pre>"
    Response.End
End If

' Save the XML to a file.
success = bd.WriteFile("qa_output/zIT01879020517_abc.xml")

' Alternatively, load into an XML object and emit.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = Server.CreateObject("Chilkat.Xml")
success = xml.LoadXml(bd.GetString("utf-8"))

Response.Write "<pre>" & Server.HTMLEncode( xml.GetXml()) & "</pre>"

%>
</body>
</html>