Module Module1 Sub Main() 'Load the (unencrypted) input file Dim pdf As Pdf.pdfdoc = Cpdflib.FromFile("C:\\input.pdf") 'Resolve any rotation of pages Cpdflib.Upright(pdf, Cpdflib.All(pdf)) 'Add page numbers Cpdflib.AddText _ (pdf, Cpdflib.All(pdf), "Page %Page of %EndPage", _ Cpdf.position.Top(20.0), 1.0, 0, _ Pdftext.standard_font.TimesBold, _ 12.0, Cpdflib.Black, False) 'Write to file, encrypted with AES encryption Dim permissions As Pdfcrypt.permission() = _ {Pdfcrypt.permission.NoEdit, Pdfcrypt.permission.NoAssemble} Cpdflib.ToFileEncrypted _ (pdf, _ Pdfwrite.encryption_method.AES128bit(False), _ permissions, "fred", "charles", _ False, "C:\\output.pdf") End Sub End Module