[VB.NET] da p7m a pdf

[allejo]

Avevo trovato questo esempio ma è trial....

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim crypt As New Chilkat.Crypt2()


        '  Any string argument automatically begins the 30-day trial.
        Dim success As Boolean
        success = crypt.UnlockComponent("30-day trial")
        If (success <> True) Then
            TextBox1.Text = TextBox1.Text & crypt.LastErrorText & vbCrLf
            Exit Sub
        End If




        Dim outFile As String
        outFile = "c:\temp\sample.pdf"
        Dim inFile As String
        inFile = "c:\temp\sample.pdf.p7m"


        '  Verify and restore the original file:
        success = crypt.VerifyP7M(inFile, outFile)
        If (success = False) Then
            TextBox1.Text = TextBox1.Text & crypt.LastErrorText & vbCrLf
            Exit Sub
        End If




        MsgBox("Success!")
    End Sub
End Class