Program.vb
Imports Bytescout.PDF Module Program Sub Main() Try 'Files Dim fileName As String = "ProtectedPDFFile.pdf" Dim fileName_UnProtected As String = "UnProtectedPDFFile.pdf" 'Protected file password Dim filePassword As String = "admin@123" 'Process file to remove password Dim document As Document = New Document() document.RegistrationName = "demo" document.RegistrationKey = "demo" document.Load(fileName, filePassword) ' Remove password protection and encryption document.Security.OwnerPassword = String.Empty document.Security.UserPassword = String.Empty document.Security.EncryptionAlgorithm = EncryptionAlgorithm.None ' Remove restrictions document.Security.AllowAccessibilitySupport = True document.Security.AllowAssemlyDocument = True document.Security.AllowContentExtraction = True document.Security.AllowFillForms = True document.Security.AllowModifyAnnotations = True document.Security.AllowModifyDocument = True document.Security.AllowPrintDocument = True document.Security.PrintQuality = PrintQuality.HightResolution 'Save Unprotected file document.Save(fileName_UnProtected) Console.WriteLine("PDF restrictions removed successfully!") Process.Start(fileName_UnProtected) Catch ex As Exception Console.WriteLine(ex.Message) End Try Console.WriteLine("Press any key to continue...") Console.ReadLine() End Sub End Module
Click here to get your Free Trial version of the SDK
also available as: