'''' This code is part of Document Solutions for PDF .NET demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.DrawingImports GrapeCity.Documents.PdfImports GrapeCity.Documents.Pdf.AcroFormsImports GrapeCity.Documents.TextImports System.Security.Cryptography.X509Certificates
'' This sample demonstrates how to sign the created PDF with a .pfx file,'' using a SignatureField.'' The sample then loads the signed file back into another GcPdfDocument instance'' and verifies the signature.Public Class SignDoc    Function CreatePDF(ByVal stream As Stream) As Integer        Dim doc = New GcPdfDocument()        Dim page = doc.NewPage()        Dim tf = New TextFormat() With {.Font = StandardFonts.Times, .FontSize = 14}        page.Graphics.DrawString("Hello, World!" + vbLf +            "Signed by DsPdfWeb SignDoc sample.",                tf, New PointF(72, 72))
        '' Init a test certificate:        Dim pfxPath = Path.Combine("Resources", "Misc", "DsPdfTest.pfx")        Dim cert = New X509Certificate2(File.ReadAllBytes(pfxPath), "qq",            X509KeyStorageFlags.MachineKeySet Or X509KeyStorageFlags.PersistKeySet Or X509KeyStorageFlags.Exportable)        Dim sp = New SignatureProperties() With {            .SignatureBuilder = New Pkcs7SignatureBuilder() With {.CertificateChain = New X509Certificate2() {cert}},            .Location = "DsPdfWeb Demo Browser",            .SignerName = "DsPdfWeb",            .SigningDateTime = Util.TimeNow()        }
        '' Init a signature field to hold the signature:        Dim sf = New SignatureField()        sf.Widget.Rect = New RectangleF(72, 72 * 2, 72 * 4, 36)        sf.Widget.Page = page        sf.Widget.BackColor = Color.LightSeaGreen        sf.Widget.DefaultAppearance.Font = StandardFonts.Helvetica        sf.Widget.ButtonAppearance.Caption = $"Signer: {sp.SignerName}{vbCrLf}Location: {sp.Location}"        '' Add the signature field to the document:        doc.AcroForm.Fields.Add(sf)
        '' Connect the signature field and signature props:        sp.SignatureField = sf
        '' Sign and save the document:        '' NOTES:        '' - Signing and saving is an atomic operation, the two cannot be separated.        '' - The stream passed to the Sign() method must be readable.        doc.Sign(sp, stream)
        '' Rewind the stream to read the document just created        '' into another GcPdfDocument and verify the signature:        stream.Seek(0, SeekOrigin.Begin)        Dim doc2 = New GcPdfDocument()        doc2.Load(stream)        Dim sf2 = DirectCast(doc2.AcroForm.Fields(0), SignatureField)        If Not sf2.Value.VerifySignatureValue() Then            Throw New Exception("Failed to verify the signature")        End If        ''        '' Done (the generated and signed document has already been saved to 'stream').        Return doc.Pages.Count    End FunctionEnd Class