(Visual Basic 6.0) Extract XML File from a .p7m (e.g. FATTURA ELETTRONICA, ITALY)

Visual Basic 6.0 example to extract the original file from a .p7m (Signed-Data PKCS7 Format) The .p7m contains the signed contents of the original file.

One use for this example is to extract the XML file from a Fattura Elettronica .p7m signature.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

Dim crypt As New ChilkatCrypt2

Dim outputFile As String
outputFile = "testData/xml/original.xml"
Dim inFile As String
inFile = "testData/p7m/fattura_signature.p7m"

' Verify the signature and extract the XML file.
Dim success As Long
success = crypt.VerifyP7M(inFile,outputFile)
If (success = 0) Then
    Debug.Print crypt.LastErrorText
    Exit Sub
End If

Debug.Print "Success!"