Agregar archivos de proyecto.

TSPdfUtils/ExternalTimestampContainer.vb

@@ -0,0 +1,64 @@
+
+Imports System.IO
+Imports TSpdf.Kernel.Font
+
+Imports System.Security.Cryptography.X509Certificates
+
+Imports System.Security.Cryptography
+Imports TSpdf.Kernel.Pdf
+Imports TSpdf.Kernel.Utils
+Imports TSpdf.Forms
+Imports TSpdf.Signatures
+Imports System.Text
+Imports TSpdf.Kernel.Pdf.Canvas
+Imports TSpdf.Kernel.Geom
+Imports TSpdf.Layout.Element
+Imports System.Text.RegularExpressions
+Imports Org.BouncyCastle.Pkcs
+Imports TSpdf.Commons.Bouncycastle.Cert
+Imports TSpdf.Commons.Bouncycastle.Crypto
+Imports TSpdf.Bouncycastle.Crypto
+Imports TSpdf.Bouncycastle.Cert
+Imports TSpdf
+Imports Org.BouncyCastle.Crypto.Agreement
+Imports TSpdf.Layout
+Imports TSpdf.IO.Font.Constants
+Imports TSpdf.Layout.Properties
+Imports System.Drawing
+Imports System.Drawing.Imaging
+Imports Rectangle = System.Drawing.Rectangle
+Imports TSpdf.Kernel.Pdf.Colorspace.PdfDeviceCs
+Imports TSpdf.Layout.Renderer
+Imports System.Drawing.Text
+Imports System.Runtime.InteropServices
+Imports TSpdf.Forms.Fields
+Imports System.Runtime.CompilerServices
+Imports TSpdf.Signatures.PdfSigner
+Imports tsPDFUtilsCore
+
+Public Class ExternalTimestampContainer
+    Implements IExternalSignatureContainer
+
+    Private ReadOnly tsaClient As ITSAClient
+
+    Public Sub New(ByVal tsaClient As ITSAClient)
+        Me.tsaClient = tsaClient
+    End Sub
+
+    Public Function Sign(ByVal data As Stream) As Byte() Implements IExternalSignatureContainer.Sign
+        ' Calcula el hash del contenido usando SHA256
+        Dim hash As Byte()
+        Using hasher As HashAlgorithm = SHA256.Create()
+            hash = hasher.ComputeHash(data)
+        End Using
+
+        ' Solicita la marca de tiempo a la TSA
+        Return tsaClient.GetTimeStampToken(hash)
+    End Function
+
+    Public Sub ModifySigningDictionary(ByVal signDic As PdfDictionary) Implements IExternalSignatureContainer.ModifySigningDictionary
+        signDic.Put(PdfName.Filter, PdfName.Adobe_PPKLite)
+        signDic.Put(PdfName.SubFilter, PdfName.ETSI_RFC3161)
+    End Sub
+
+End Class

TSPdfUtils/FirmaTiempo.vb

@@ -0,0 +1,52 @@
+Imports System.IO
+Imports Org.BouncyCastle.Pkcs
+Imports TSpdf.Bouncycastle.Cert
+Imports TSpdf.Bouncycastle.Crypto
+Imports TSpdf.Commons.Bouncycastle.Cert
+Imports TSpdf.Commons.Bouncycastle.Crypto
+Imports TSpdf.Kernel.Pdf
+Imports TSpdf.Signatures
+
+Public Class FirmaTiempo
+
+    Public Shared Sub SignPdfWithTimestamp(src As String, dest As String, keystorePath As Stream, keystorePassword As String, tsaUrl As String)
+        Dim reader As New PdfReader(src)
+        Dim output As New FileStream(dest, FileMode.Create)
+        Dim signer As New PdfSigner(reader, output, New StampingProperties())
+
+
+        ' Se coge los datos del certificado
+        Dim cpassword = keystorePassword.ToCharArray
+
+        Dim [alias] As String = Nothing
+        Dim pk12 As Pkcs12Store = New Pkcs12Store(keystorePath, cpassword)
+
+        For Each a In pk12.Aliases
+            [alias] = (CType(a, String))
+
+            If pk12.IsKeyEntry([alias]) Then
+                Exit For
+            End If
+        Next
+
+        Dim pk As IPrivateKey = New PrivateKeyBC(pk12.GetKey([alias]).Key)
+        Dim pks = New PrivateKeySignature(pk, DigestAlgorithms.SHA256)
+
+
+        Dim ce As X509CertificateEntry() = pk12.GetCertificateChain([alias])
+        Dim chain = New IX509Certificate(ce.Length - 1) {}
+
+        For k As Integer = 0 To ce.Length - 1
+            chain(k) = New X509CertificateBC(ce(k).Certificate)
+        Next
+
+        Dim externalSignature As IExternalSignature = New PrivateKeySignature(pk, "SHA-256")
+
+        ' Aqui va la URL del servicio de sellado de tiempo
+        Dim tsaClient As ITSAClient = New TSAClientBouncyCastle(tsaUrl)
+
+        ' Se hace la firma con el sellado de tiempo que se le pasa por parámetro
+        signer.SignDetached(externalSignature, chain, Nothing, Nothing, tsaClient, 0, PdfSigner.CryptoStandard.CADES)
+    End Sub
+
+End Class

TSPdfUtils/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>Form1</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

TSPdfUtils/My Project/Resources.Designer.vb

@@ -0,0 +1,83 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Este código fue generado por una herramienta.
+'     Versión de runtime:4.0.30319.42000
+'
+'     Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
+'     se vuelve a generar el código.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'StronglyTypedResourceBuilder generó automáticamente esta clase
+    'a través de una herramienta como ResGen o Visual Studio.
+    'Para agregar o quitar un miembro, edite el archivo .ResX y, a continuación, vuelva a ejecutar ResGen
+    'con la opción /str o recompile su proyecto de VS.
+    '''<summary>
+    '''  Clase de recurso fuertemente tipado, para buscar cadenas traducidas, etc.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Devuelve la instancia de ResourceManager almacenada en caché utilizada por esta clase.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("TSpdfUtils.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Reemplaza la propiedad CurrentUICulture del subproceso actual para todas las
+        '''  búsquedas de recursos mediante esta clase de recurso fuertemente tipado.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Busca un recurso adaptado de tipo System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property Fogra39L() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Fogra39L", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Busca un recurso adaptado de tipo System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property sRGB2014() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("sRGB2014", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+    End Module
+End Namespace

TSPdfUtils/My Project/Resources.resx

@@ -0,0 +1,127 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="Fogra39L" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Coated_Fogra39L_VIGC_300.icc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="sRGB2014" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\sRGB2014.icc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+</root>

TSPdfUtils/Resource.resx

@@ -0,0 +1,124 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="ilits" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>Resources\ilits.ttf;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+</root>

TSPdfUtils/Sellado.cs

@@ -0,0 +1,75 @@
+using System.Collections.Generic;
+using System.IO;
+
+namespace TSpdfUtils
+{
+
+    public class Sellado
+    {
+        public static void SellaPDF(Stream PdfOrigen, Stream PdfDestino, List<TextoEnPdf> TextosAInsertar, List<string> ImagenesAInsertar)
+        {
+
+        }
+
+
+        public class TextoEnPdf
+        {
+            public string Texto { get; set; }
+            public FuenteEnum Fuente { get; set; }
+            public float TamañoFuente { get; set; }
+            public System.Drawing.Color Color { get; set; }
+            public double Transparencia { get; set; }
+            public EsquinaEnum EsquinaReferencia { get; set; }
+            public float AnguloRotacion { get; set; }
+            public AlineamientoEnum Alineamiento { get; set; }
+            public float CoordenadaX { get; set; }
+            public float CoordenadaY { get; set; }
+            public int PaginaInicio { get; set; }
+            public int PaginaFin { get; set; }
+        }
+
+        public class ImagenEnPdf
+        {
+            public byte[] Imagen { get; set; }
+            public EsquinaEnum EsquinaReferencia { get; set; }
+            public double Transparencia { get; set; }
+            public float CoordenadaX { get; set; }
+            public float CoordenadaY { get; set; }
+            public float AnguloRotacion { get; set; }
+            public int PaginaInicio { get; set; }
+            public int PaginaFin { get; set; }
+        }
+        public enum EsquinaEnum : int
+        {
+            INFERIOR_IZQUIERDA = 0,
+            INFERIOR_DERECHA = 1,
+            SUPERIOR_IZQUIERDA = 2,
+            SUPERIOR_DERECHA = 3
+        }
+
+        public enum AlineamientoEnum : int
+        {
+            IZQUIERDA = 0,
+            DERECHA = 1,
+            CENTRO = 2,
+            JUSTIFICADO = 3
+        }
+        public enum FuenteEnum
+        {
+            COURIER,
+            COURIER_BOLD,
+            COURIER_BOLDOBLIQUE,
+            COURIER_OBLIQUE,
+            HELVETICA,
+            HELVETICA_BOLD,
+            HELVETICA_BOLDOBLIQUE,
+            HELVETICA_OBLIQUE,
+            SYMBOL,
+            TIMES_ROMAN,
+            TIMES_BOLD,
+            TIMES_BOLDITALIC,
+            TIMES_ITALIC,
+            ZAPFDINGBATS
+        }
+    }
+}

TSPdfUtils/TSpdfUtils.vbproj

@@ -0,0 +1,83 @@
+<Project Sdk="Microsoft.NET.Sdk" ToolsVersion="15.0">
+  <PropertyGroup Label="Globals">
+    <SccProjectName>SAK</SccProjectName>
+    <SccProvider>SAK</SccProvider>
+    <SccAuxPath>SAK</SccAuxPath>
+    <SccLocalPath>SAK</SccLocalPath>
+  </PropertyGroup>
+  <PropertyGroup Label="Configuration">
+    <SignAssembly>True</SignAssembly>
+    <DelaySign>False</DelaySign>
+    <DocumentationFile>$(TargetDir)bin\$(Configuration)\$(TargetFramework)\TSpdfUtils.xml</DocumentationFile>
+    <WarningLevel>4</WarningLevel>
+  </PropertyGroup>
+  <PropertyGroup>
+	<TargetFrameworks>netstandard2.0;net48</TargetFrameworks>
+	  <OutputType>library</OutputType>
+	  <GenerateAssemblyInfo>false</GenerateAssemblyInfo>
+	  <RootNamespace>TSpdfUtils</RootNamespace>
+	  <AssemblyName>TSpdfUtils</AssemblyName>
+	  <PackageId>TSpdfUtils</PackageId>
+	  <PackageTags>libreria, netstandard2.0</PackageTags>
+	  <AssemblyVersion>1.0.18</AssemblyVersion>
+	  <FileVersion>1.0.18</FileVersion>
+	  <Version>1.0.18</Version>
+	  <Authors>Manuel</Authors>
+	  <Company>Tecnosis S.A</Company>
+	  <Description>Utilidades de tratamiento de pdf, de firmas digitales e imagenes.</Description>
+	  <PackageReleaseNotes>
+		  - 1.0.18 2026-05-20  Correcciones dependencias Microsoft.Extensions.Logging
+		  - 1.0.16 2025-10-23 Actualización de tspdfutilscore
+		  - 1.0.14 2025-10-09 Limpieza de compilados
+		  - 1.0.13 2025-10-09 Se eliminan destinos del framework 461 y 48
+		  - 1.0.12 2025-10-09 Actualización para paquete baget
+		  - 1.0.11 2025-10-06 Corrección en dependencias en tspPDFUtilsCore
+		  - 1.0.10 2025-10-06 Corrección en dependencias
+		  - 1.0.9 2025-10-03 Corrección en dependencias
+		  - 1.0.8 Corrección en dependencias
+		  - 1.0.7 Corrección en TSpdf.io
+		  - 1.0.6 Corrección en TSpdf.io
+		  - 1.0.4 Corrección en TSpdf.io
+	  </PackageReleaseNotes>
+  </PropertyGroup>
+  <PropertyGroup>
+    <NoWarn>1701;1702;1591;1570;1572;1573;1574;1580;1584;1658</NoWarn>
+  </PropertyGroup>
+  <ItemGroup Condition=" '$(TargetFramework)' == 'net48' ">
+    <Reference Include="System" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Xml.Linq" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Remove="Sellado.cs" />
+  </ItemGroup>
+  <ItemGroup>
+    <PackageReference Include="Microsoft.Extensions.DependencyModel" Version="9.0.0" />
+    <PackageReference Include="Microsoft.Extensions.Options" Version="9.0.9" />
+    <PackageReference Include="Microsoft.VisualBasic" Version="10.3.0" />
+    <PackageReference Include="TSpdf.kernel" Version="3.0.0" />
+    <PackageReference Include="TSpdf.layout" Version="3.0.0" />
+    <PackageReference Include="TSpdf.pdfa" Version="3.0.0" />
+    <PackageReference Include="TSpdf.sign" Version="3.0.0" />
+    <PackageReference Include="TSpdf.X509" Version="3.0.0" />
+<!---->  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\tsPDFUtilsCore\tsPDFUtilsCore.csproj" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Update="My Project\Resources.Designer.vb">
+      <DesignTime>True</DesignTime>
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Update="My Project\Resources.resx">
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+    </EmbeddedResource>
+  </ItemGroup>
+</Project>

TSPdfUtils/Utilidades.vb

@@ -0,0 +1,195 @@
+Imports System.IO
+Imports System.Text
+Imports TSpdf.Kernel.Pdf
+Imports TSpdf.Kernel.Utils
+Imports TSpdf.Pdfa
+
+Public Class Utilidades
+    'Convierte un pdf normal en el formato pdf_A_3B
+    Public Shared Function crearPDFA(ByVal pdfOrigen As Stream) As MemoryStream
+
+        Dim reader As New PdfReader(pdfOrigen)
+        Dim ms As New MemoryStream
+
+        Dim writerProps As New WriterProperties()
+        writerProps.SetPdfVersion(PdfVersion.PDF_2_0)
+
+        Dim writer As New PdfWriter(ms, writerProps)
+        writer.SetSmartMode(True)
+        ' Necesario para que el memorystream no se cierre y siga abieto
+        writer.SetCloseStream(False)
+
+        Dim sourcePdf As New PdfDocument(reader)
+
+        Dim esRGB As Boolean = recorrerPaginas(sourcePdf)
+
+        For page As Integer = 1 To sourcePdf.GetNumberOfPages()
+
+            Dim paginaActual = sourcePdf.GetPage(page)
+            Dim anotaciones = paginaActual.GetAnnotations()
+
+            If anotaciones IsNot Nothing Then
+
+                For Each anotacionActual In anotaciones
+                    Dim diccionario = anotacionActual.GetPdfObject()
+
+                    If Not diccionario.ContainsKey(PdfName.F) Then
+                        diccionario.Put(PdfName.F, New PdfNumber(4))
+                    End If
+                Next
+            End If
+
+
+        Next
+
+        Dim disPDF As PdfADocument
+
+        'If esRGB Then
+
+        '    disPDF = New PdfADocument(writer, PdfAConformanceLevel.PDF_A_3B,
+        '    New PdfOutputIntent("Custom", "", "https://www.color.org", "sRGB",
+        '    New MemoryStream(My.Resources.sRGB2014)))
+
+        'Else
+        '    disPDF = New PdfADocument(writer, PdfAConformanceLevel.PDF_A_3B,
+        '                New PdfOutputIntent("Custom", "", "https://www.color.org", "FOGRA39",
+        '                New MemoryStream(My.Resources.Fogra39L)))
+        'End If
+
+        disPDF = New PdfADocument(writer, PdfAConformanceLevel.PDF_A_3B,
+       New PdfOutputIntent("Custom", "", "https://www.color.org", "sRGB",
+       New MemoryStream(My.Resources.sRGB2014)))
+
+
+
+        disPDF.InitializeOutlines()
+        ' Configurar parámetros requeridos
+        disPDF.SetTagged()
+        disPDF.GetCatalog().SetLang(New PdfString("es-ES"))
+        disPDF.GetCatalog().SetViewerPreferences(New PdfViewerPreferences().SetDisplayDocTitle(True))
+
+        Dim merger As New PdfMerger(disPDF, True, True)
+        merger.Merge(sourcePdf, 1, sourcePdf.GetNumberOfPages())
+
+        sourcePdf.Close()
+        disPDF.Close()
+        reader.Close()
+        writer.Close()
+
+        ' Esto hace falta para volver al inicio del memorystream
+        ms.Position = 0
+
+        Return ms
+    End Function
+    Public Shared Function controlarInterpolate(ByVal resources As PdfDictionary, ByVal tieneRGB As Boolean) As Boolean
+
+
+        Dim xObjects = resources?.GetAsDictionary(PdfName.XObject)
+        Dim tieneRGBActual As Boolean = tieneRGB
+
+        If xObjects IsNot Nothing Then
+            For Each key In xObjects.KeySet()
+                Dim stream = xObjects.GetAsStream(key)
+                Dim subtype = stream.GetAsName(PdfName.Subtype)
+
+                If PdfName.Image.Equals(subtype) Then
+
+                    If stream.GetAsBoolean(PdfName.Interpolate)?.GetValue = True Then
+
+                        stream.Put(PdfName.Interpolate, PdfBoolean.FALSE)
+                    End If
+
+                    Dim colorSpace = stream.Get(PdfName.ColorSpace)
+
+                    If colorSpace IsNot Nothing AndAlso colorSpace.Equals(PdfName.DeviceRGB) Then
+                        tieneRGBActual = True
+                        tieneRGB = True
+                    End If
+
+                ElseIf PdfName.Form.Equals(subtype) Then
+
+                    Dim formRes = stream.GetAsDictionary(PdfName.Resources)
+
+                    If formRes IsNot Nothing Then
+                        Dim hijoTieneRGB As Boolean = controlarInterpolate(formRes, tieneRGBActual)
+
+                        If hijoTieneRGB Then
+                            tieneRGBActual = True
+                        End If
+                    End If
+
+                End If
+            Next
+        End If
+
+        Return tieneRGBActual
+    End Function
+
+
+
+    Public Shared Function recorrerPaginas(ByVal pdf As PdfDocument) As Boolean
+        Dim tieneRGB As Boolean = False
+
+        For i As Integer = 1 To pdf.GetNumberOfPages
+            Dim rgbMinimo As Boolean = False
+
+            Dim diccPaginaActual = pdf.GetPage(i).GetResources().GetPdfObject()
+            rgbMinimo = controlarInterpolate(diccPaginaActual, tieneRGB)
+
+            If rgbMinimo Then
+                tieneRGB = True
+            End If
+        Next
+
+        Return tieneRGB
+    End Function
+    Public Shared Sub RepararAnotacionesSinF(pdfDoc As PdfDocument)
+
+        For page As Integer = 1 To pdfDoc.GetNumberOfPages()
+
+            Dim paginaActual = pdfDoc.GetPage(page)
+            Dim anotaciones = paginaActual.GetAnnotations()
+
+            If anotaciones IsNot Nothing Then
+                For Each anotacionActual In anotaciones
+                    Dim diccionario = anotacionActual.GetPdfObject()
+
+                    If Not diccionario.ContainsKey(PdfName.F) Then
+                        diccionario.Put(PdfName.F, New PdfNumber(4))
+                    End If
+                Next
+            End If
+
+        Next
+
+    End Sub
+
+
+    Public Shared Function TieneMarcaPdfA(pdfStream As Stream) As Boolean
+        Try
+            If pdfStream Is Nothing Then Return False
+
+            If pdfStream.CanSeek Then
+                pdfStream.Position = 0
+            End If
+
+            Using reader As New PdfReader(pdfStream)
+                Using pdf As New PdfDocument(reader)
+
+                    Dim metadata As Byte() = pdf.GetXmpMetadata()
+
+                    If metadata Is Nothing OrElse metadata.Length = 0 Then
+                        Return False
+                    End If
+
+                    Dim xmpString As String = Encoding.UTF8.GetString(metadata)
+
+                    Return xmpString.Contains("pdfaid:part")
+                End Using
+            End Using
+
+        Catch
+            Return False
+        End Try
+    End Function
+End Class

TSPdfUtils/pdf.vb

@@ -0,0 +1,743 @@
+
+Imports System.IO
+Imports TSpdf.Kernel.Font
+
+Imports System.Security.Cryptography.X509Certificates
+
+Imports System.Security.Cryptography
+Imports TSpdf.Kernel.Pdf
+Imports TSpdf.Kernel.Utils
+Imports TSpdf.Forms
+Imports TSpdf.Signatures
+Imports System.Text
+Imports TSpdf.Kernel.Pdf.Action
+Imports TSpdf.Kernel.Pdf.Navigation
+Imports TSpdf.Kernel.Pdf.Canvas
+Imports TSpdf.Kernel.Geom
+Imports TSpdf.Layout.Element
+Imports TSpdf.IO.Font.Constants
+Imports System.Diagnostics.Contracts
+Imports System.Text.RegularExpressions
+Imports Microsoft.VisualBasic.Devices
+Imports Org.BouncyCastle.Asn1
+Imports Org.BouncyCastle.Pkcs
+Imports TSpdf.Commons.Bouncycastle.Cert
+Imports TSpdf.Commons.Bouncycastle.Crypto
+Imports TSpdf.Bouncycastle.Crypto
+Imports TSpdf.Bouncycastle.Cert
+Imports Org.BouncyCastle.Asn1.X509
+Imports Org.BouncyCastle.X509
+Imports Org.BouncyCastle.Crypto.Tls
+Imports TSpdf
+Imports TSpdf.Kernel.Pdf.Canvas.Parser
+Imports TSpdf.Kernel.Pdf.Canvas.Parser.Listener
+
+Public Class pdf
+    Public Shared Sub Aplanar(Origen As String)
+        Dim PdfDocument = New PdfDocument(New PdfReader(Origen))
+        Dim form = PdfAcroForm.GetAcroForm(PdfDocument, False)
+        If form IsNot Nothing Then form.FlattenFields()
+        PdfDocument.Close()
+    End Sub
+
+    Public Shared Sub Aplanar(Origen As String, Destino As String)
+        Dim PdfDocument = New PdfDocument(New PdfReader(Origen), New PdfWriter(Destino))
+        Dim form = PdfAcroForm.GetAcroForm(PdfDocument, False)
+        If form IsNot Nothing Then form.FlattenFields()
+        PdfDocument.Close()
+    End Sub
+
+    Public Shared Function ObtieneFicheroAleatorio(ByVal Extension As String) As String
+        Dim sFichero As String = System.IO.Path.GetTempPath & System.IO.Path.GetRandomFileName & "." & Extension
+        Do While System.IO.File.Exists(sFichero)
+            'Try
+            '    IO.File.Delete(sFichero)
+            'Catch ex As Exception
+            sFichero = System.IO.Path.GetTempPath & "\" & System.IO.Path.GetRandomFileName & "." & Extension
+            ' End Try
+        Loop
+        Return sFichero
+    End Function
+
+    Public Shared Sub UnePdfs(Pdfs()() As Byte, outputPdf As String, Optional UnirTags As Boolean = True, Optional UnirMarcadores As Boolean = True, Optional MarcadoresInicioFichero() As String = Nothing, Optional Aplanar As Boolean = True)
+        Dim lista = Pdfs.Select(Function(x) New MemoryStream(x)).ToArray
+        UnePdfs(lista, outputPdf, UnirTags, UnirMarcadores, MarcadoresInicioFichero, Aplanar)
+    End Sub
+
+    Public Shared Sub UnePdfs(Pdfs() As String, st As Stream, Optional UnirTags As Boolean = True, Optional UnirMarcadores As Boolean = True, Optional MarcadoresInicioFichero() As String = Nothing, Optional Aplanar As Boolean = True)
+        Try
+            Dim pdfw As New PdfWriter(st)
+            Dim pdfDoc As PdfDocument = New PdfDocument(pdfw)
+            Dim merger As PdfMerger = New PdfMerger(pdfDoc, UnirTags, UnirMarcadores)
+            Dim i As Integer = 0
+            Dim NumeroPaginasTotal As Integer = 1
+            Dim rootoutline As PdfOutline = Nothing
+            Dim pagini(Pdfs.Count - 1) As Integer
+            For Each pdf In Pdfs
+                i += 1
+                Dim pdfr As New PdfReader(pdf)
+                pdfr.SetUnethicalReading(True)
+                Dim ms As New MemoryStream
+                Dim pdfwtmp As New PdfWriter(ms)
+                Dim srcDoc As PdfDocument
+
+                If MarcadoresInicioFichero IsNot Nothing AndAlso UnirMarcadores Then
+                    srcDoc = New PdfDocument(pdfr, pdfwtmp)
+                    MueveMarcadorARaiz(srcDoc, MarcadoresInicioFichero(i - 1))
+                    srcDoc.Close()
+                    pdfr = New PdfReader(New MemoryStream(ms.ToArray))
+                    srcDoc = New PdfDocument(pdfr)
+                Else
+                    srcDoc = New PdfDocument(pdfr)
+                End If
+                Dim np = srcDoc.GetNumberOfPages
+                pagini(i - 1) = np
+                If Aplanar Then
+                    Dim form = PdfAcroForm.GetAcroForm(srcDoc, False)
+                    If form IsNot Nothing Then form.FlattenFields()
+                End If
+                merger.SetCloseSourceDocuments(i = Pdfs.Count).Merge(srcDoc, 1, np)
+                srcDoc.Close()
+            Next
+            If MarcadoresInicioFichero IsNot Nothing AndAlso UnirMarcadores = False Then
+                pdfDoc.InitializeOutlines()
+                rootoutline = pdfDoc.GetOutlines(False)
+                For i = 0 To pagini.Length - 1
+                    Dim oul As PdfOutline = rootoutline.AddOutline(MarcadoresInicioFichero(i))
+                    oul.AddDestination(PdfExplicitDestination.CreateFit(pdfDoc.GetPage(NumeroPaginasTotal)))
+                    NumeroPaginasTotal += pagini(i)
+                Next
+            End If
+            pdfDoc.Close()
+            pdfw.Close()
+            merger.Close()
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Sub
+
+    Public Shared Sub UnePdfs(Pdfs() As String, outputPdf As String, Optional UnirTags As Boolean = True, Optional UnirMarcadores As Boolean = True, Optional MarcadoresInicioFichero() As String = Nothing, Optional Aplanar As Boolean = True)
+        Try
+            Dim pdfw As New PdfWriter(outputPdf)
+            Dim pdfDoc As PdfDocument = New PdfDocument(pdfw)
+            Dim merger As PdfMerger = New PdfMerger(pdfDoc, UnirTags, UnirMarcadores)
+            Dim i As Integer = 0
+            Dim NumeroPaginasTotal As Integer = 1
+            Dim rootoutline As PdfOutline = Nothing
+            Dim pagini(Pdfs.Count - 1) As Integer
+            For Each pdf In Pdfs
+                i += 1
+                Dim pdfr As New PdfReader(pdf)
+                pdfr.SetUnethicalReading(True)
+                Dim ms As New MemoryStream
+                Dim pdfwtmp As New PdfWriter(ms)
+                Dim srcDoc As PdfDocument
+
+                If MarcadoresInicioFichero IsNot Nothing AndAlso UnirMarcadores Then
+                    srcDoc = New PdfDocument(pdfr, pdfwtmp)
+                    MueveMarcadorARaiz(srcDoc, MarcadoresInicioFichero(i - 1))
+                    srcDoc.Close()
+                    pdfr = New PdfReader(New MemoryStream(ms.ToArray))
+                    srcDoc = New PdfDocument(pdfr)
+                Else
+                    srcDoc = New PdfDocument(pdfr)
+                End If
+                Dim np = srcDoc.GetNumberOfPages
+                pagini(i - 1) = np
+                If Aplanar Then
+                    Dim form = PdfAcroForm.GetAcroForm(srcDoc, False)
+                    If form IsNot Nothing Then form.FlattenFields()
+                End If
+                merger.SetCloseSourceDocuments(i = Pdfs.Count).Merge(srcDoc, 1, np)
+                srcDoc.Close()
+            Next
+            If MarcadoresInicioFichero IsNot Nothing AndAlso UnirMarcadores = False Then
+                pdfDoc.InitializeOutlines()
+                rootoutline = pdfDoc.GetOutlines(False)
+                For i = 0 To pagini.Length - 1
+                    Dim oul As PdfOutline = rootoutline.AddOutline(MarcadoresInicioFichero(i))
+                    oul.AddDestination(PdfExplicitDestination.CreateFit(pdfDoc.GetPage(NumeroPaginasTotal)))
+                    NumeroPaginasTotal += pagini(i)
+                Next
+            End If
+            pdfDoc.Close()
+            pdfw.Close()
+            merger.Close()
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Sub
+    Public Shared Sub UnePdfs(Pdfs() As Stream, outputPdf As String, Optional UnirTags As Boolean = True, Optional UnirMarcadores As Boolean = True, Optional MarcadoresInicioFichero() As String = Nothing, Optional Aplanar As Boolean = True)
+        Try
+            Dim pdfw As New PdfWriter(outputPdf)
+            Dim pdfDoc As PdfDocument = New PdfDocument(pdfw)
+            Dim merger As PdfMerger = New PdfMerger(pdfDoc, UnirTags, UnirMarcadores)
+            Dim i As Integer = 0
+            Dim NumeroPaginasTotal As Integer = 1
+            Dim rootoutline As PdfOutline = Nothing
+            Dim pagini(Pdfs.Count - 1) As Integer
+            For Each pdf In Pdfs
+                i += 1
+                Dim pdfr As New PdfReader(pdf)
+                pdfr.SetUnethicalReading(True)
+                Dim ms As New MemoryStream
+                Dim pdfwtmp As New PdfWriter(ms)
+                Dim srcDoc As PdfDocument
+
+                If MarcadoresInicioFichero IsNot Nothing AndAlso UnirMarcadores Then
+                    srcDoc = New PdfDocument(pdfr, pdfwtmp)
+                    MueveMarcadorARaiz(srcDoc, MarcadoresInicioFichero(i - 1))
+                    srcDoc.Close()
+                    pdfr = New PdfReader(New MemoryStream(ms.ToArray))
+                    srcDoc = New PdfDocument(pdfr)
+                Else
+                    srcDoc = New PdfDocument(pdfr)
+                End If
+                Dim np = srcDoc.GetNumberOfPages
+                pagini(i - 1) = np
+                If Aplanar Then
+                    Dim form = PdfAcroForm.GetAcroForm(srcDoc, False)
+                    If form IsNot Nothing Then form.FlattenFields()
+                End If
+                merger.SetCloseSourceDocuments(i = Pdfs.Count).Merge(srcDoc, 1, np)
+                srcDoc.Close()
+            Next
+            If MarcadoresInicioFichero IsNot Nothing AndAlso UnirMarcadores = False Then
+                pdfDoc.InitializeOutlines()
+                rootoutline = pdfDoc.GetOutlines(False)
+                For i = 0 To pagini.Length - 1
+                    Dim oul As PdfOutline = rootoutline.AddOutline(MarcadoresInicioFichero(i))
+                    oul.AddDestination(PdfExplicitDestination.CreateFit(pdfDoc.GetPage(NumeroPaginasTotal)))
+                    NumeroPaginasTotal += pagini(i)
+                Next
+            End If
+            pdfDoc.Close()
+            pdfw.Close()
+            merger.Close()
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+
+
+
+    End Sub
+    Public Shared Function UnePdfs(Pdfs()() As Byte, Optional UnirTags As Boolean = True, Optional UnirMarcadores As Boolean = True, Optional MarcadoresInicioFichero() As String = Nothing, Optional Aplanar As Boolean = True) As Byte()
+        Dim lista = Pdfs.Select(Function(x) New MemoryStream(x)).ToArray
+        Return UnePdfs(lista, UnirTags, UnirMarcadores, MarcadoresInicioFichero, Aplanar)
+    End Function
+    Public Shared Function UnePdfs(Pdfs() As Stream, Optional UnirTags As Boolean = True, Optional UnirMarcadores As Boolean = True, Optional MarcadoresInicioFichero() As String = Nothing, Optional Aplanar As Boolean = True) As Byte()
+        Try
+            Dim msw As New MemoryStream
+            Dim pdfw As New PdfWriter(msw)
+            Dim pdfDoc As PdfDocument = New PdfDocument(pdfw)
+            Dim merger As PdfMerger = New PdfMerger(pdfDoc, UnirTags, UnirMarcadores)
+            Dim i As Integer = 0
+            Dim NumeroPaginasTotal As Integer = 1
+            Dim rootoutline As PdfOutline = Nothing
+            Dim pagini(Pdfs.Count - 1) As Integer
+            For Each pdf In Pdfs
+                i += 1
+                Dim pdfr As New PdfReader(pdf)
+                pdfr.SetUnethicalReading(True)
+                Dim ms As New MemoryStream
+                Dim pdfwtmp As New PdfWriter(ms)
+                Dim srcDoc As PdfDocument
+
+                If MarcadoresInicioFichero IsNot Nothing AndAlso UnirMarcadores Then
+                    srcDoc = New PdfDocument(pdfr, pdfwtmp)
+                    MueveMarcadorARaiz(srcDoc, MarcadoresInicioFichero(i - 1))
+                    srcDoc.Close()
+                    pdfr = New PdfReader(New MemoryStream(ms.ToArray))
+                    srcDoc = New PdfDocument(pdfr)
+                Else
+                    srcDoc = New PdfDocument(pdfr)
+                End If
+                Dim np = srcDoc.GetNumberOfPages
+                pagini(i - 1) = np
+                If Aplanar Then
+                    Dim form = PdfAcroForm.GetAcroForm(srcDoc, False)
+                    If form IsNot Nothing Then form.FlattenFields()
+                End If
+                merger.SetCloseSourceDocuments(i = Pdfs.Count).Merge(srcDoc, 1, np)
+                srcDoc.Close()
+            Next
+            If MarcadoresInicioFichero IsNot Nothing AndAlso UnirMarcadores = False Then
+                pdfDoc.InitializeOutlines()
+                rootoutline = pdfDoc.GetOutlines(False)
+                For i = 0 To pagini.Length - 1
+                    Dim oul As PdfOutline = rootoutline.AddOutline(MarcadoresInicioFichero(i))
+                    oul.AddDestination(PdfExplicitDestination.CreateFit(pdfDoc.GetPage(NumeroPaginasTotal)))
+                    NumeroPaginasTotal += pagini(i)
+                Next
+            End If
+            pdfDoc.Close()
+            pdfw.Close()
+            merger.Close()
+            Return msw.ToArray
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Function
+
+    Public Shared Sub UnePdfs(Pdfs() As Stream, Destino As Stream, Optional UnirTags As Boolean = True, Optional UnirMarcadores As Boolean = True, Optional MarcadoresInicioFichero() As String = Nothing, Optional Aplanar As Boolean = True)
+        Try
+            Dim pdfw As New PdfWriter(Destino)
+            Dim pdfDoc As PdfDocument = New PdfDocument(pdfw)
+            Dim merger As PdfMerger = New PdfMerger(pdfDoc, UnirTags, UnirMarcadores)
+            Dim i As Integer = 0
+            Dim NumeroPaginasTotal As Integer = 1
+            Dim rootoutline As PdfOutline = Nothing
+            Dim pagini(Pdfs.Count - 1) As Integer
+            For Each pdf In Pdfs
+                i += 1
+                Dim pdfr As New PdfReader(pdf)
+                pdfr.SetUnethicalReading(True)
+                Dim ms As New MemoryStream
+                Dim pdfwtmp As New PdfWriter(ms)
+                Dim srcDoc As PdfDocument
+
+                If MarcadoresInicioFichero IsNot Nothing AndAlso UnirMarcadores Then
+                    srcDoc = New PdfDocument(pdfr, pdfwtmp)
+                    MueveMarcadorARaiz(srcDoc, MarcadoresInicioFichero(i - 1))
+                    srcDoc.Close()
+                    pdfr = New PdfReader(New MemoryStream(ms.ToArray))
+                    srcDoc = New PdfDocument(pdfr)
+                Else
+                    srcDoc = New PdfDocument(pdfr)
+                End If
+                Dim np = srcDoc.GetNumberOfPages
+                pagini(i - 1) = np
+                If Aplanar Then
+                    Dim form = PdfAcroForm.GetAcroForm(srcDoc, False)
+                    If form IsNot Nothing Then form.FlattenFields()
+                End If
+                merger.SetCloseSourceDocuments(i = Pdfs.Count).Merge(srcDoc, 1, np)
+                srcDoc.Close()
+            Next
+            If MarcadoresInicioFichero IsNot Nothing AndAlso UnirMarcadores = False Then
+                pdfDoc.InitializeOutlines()
+                rootoutline = pdfDoc.GetOutlines(False)
+                For i = 0 To pagini.Length - 1
+                    Dim oul As PdfOutline = rootoutline.AddOutline(MarcadoresInicioFichero(i))
+                    oul.AddDestination(PdfExplicitDestination.CreateFit(pdfDoc.GetPage(NumeroPaginasTotal)))
+                    NumeroPaginasTotal += pagini(i)
+                Next
+            End If
+            pdfDoc.Close()
+            pdfw.Close()
+            merger.Close()
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Sub
+
+    Public Shared Function UnePdfs(Pdfs() As String, Optional UnirTags As Boolean = True, Optional UnirMarcadores As Boolean = True, Optional MarcadoresInicioFichero() As String = Nothing, Optional Aplanar As Boolean = True) As Byte()
+        Try
+            Dim msw As New MemoryStream
+            Dim pdfw As New PdfWriter(msw)
+            Dim pdfDoc As PdfDocument = New PdfDocument(pdfw)
+            Dim merger As PdfMerger = New PdfMerger(pdfDoc, UnirTags, UnirMarcadores)
+            Dim i As Integer = 0
+            Dim NumeroPaginasTotal As Integer = 1
+            Dim rootoutline As PdfOutline = Nothing
+            Dim pagini(Pdfs.Count - 1) As Integer
+            For Each pdf In Pdfs
+                i += 1
+                Dim pdfr As New PdfReader(pdf)
+                pdfr.SetUnethicalReading(True)
+                Dim ms As New MemoryStream
+                Dim pdfwtmp As New PdfWriter(ms)
+                Dim srcDoc As PdfDocument
+
+                If MarcadoresInicioFichero IsNot Nothing AndAlso UnirMarcadores Then
+                    srcDoc = New PdfDocument(pdfr, pdfwtmp)
+                    MueveMarcadorARaiz(srcDoc, MarcadoresInicioFichero(i - 1))
+                    srcDoc.Close()
+                    pdfr = New PdfReader(New MemoryStream(ms.ToArray))
+                    srcDoc = New PdfDocument(pdfr)
+                Else
+                    srcDoc = New PdfDocument(pdfr)
+                End If
+                Dim np = srcDoc.GetNumberOfPages
+                pagini(i - 1) = np
+                If Aplanar Then
+                    Dim form = PdfAcroForm.GetAcroForm(srcDoc, False)
+                    If form IsNot Nothing Then form.FlattenFields()
+                End If
+                merger.SetCloseSourceDocuments(i = Pdfs.Count).Merge(srcDoc, 1, np)
+                srcDoc.Close()
+            Next
+            If MarcadoresInicioFichero IsNot Nothing AndAlso UnirMarcadores = False Then
+                pdfDoc.InitializeOutlines()
+                rootoutline = pdfDoc.GetOutlines(False)
+                For i = 0 To pagini.Length - 1
+                    Dim oul As PdfOutline = rootoutline.AddOutline(MarcadoresInicioFichero(i))
+                    oul.AddDestination(PdfExplicitDestination.CreateFit(pdfDoc.GetPage(NumeroPaginasTotal)))
+                    NumeroPaginasTotal += pagini(i)
+                Next
+            End If
+            pdfDoc.Close()
+            pdfw.Close()
+            merger.Close()
+            Return msw.ToArray
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+
+    End Function
+
+
+    Private Shared Sub MueveMarcadorARaiz(ByVal pdfDocument As PdfDocument, ByVal EtiquetaMarcadorRaiz As String)
+        pdfDocument.InitializeOutlines()
+        Try
+            Dim pp = pdfDocument.GetFirstPage()
+            Dim rootOutline As PdfOutline = pdfDocument.GetOutlines(False)
+            Dim subOutline As PdfOutline = rootOutline.AddOutline(EtiquetaMarcadorRaiz)
+
+
+            Dim dest As PdfDestination = PdfExplicitDestination.CreateFit(pp)
+            subOutline.AddDestination(dest)
+            Dim pdfOutlineChildren As List(Of PdfOutline) = rootOutline.GetAllChildren().ToList
+            If pdfOutlineChildren.Count = 1 Then
+                Return
+            End If
+            Dim i As Integer = 0
+            Dim p As PdfOutline
+
+            For Each p In pdfOutlineChildren
+                If Not p.Equals(subOutline) Then
+                    Dim nd = p.GetDestination
+                    If nd Is Nothing Then nd = dest
+                    dest = nd
+                    Corrigeoutl(p, dest)
+                    subOutline.AddOutline(p)
+                End If
+            Next
+            rootOutline.GetAllChildren().Clear()
+            rootOutline.AddOutline(subOutline)
+            subOutline.AddDestination(PdfExplicitDestination.CreateFit(pdfDocument.GetFirstPage()))
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Sub
+    Private Shared Sub CreaMarcadorInicioFichero(ByVal pdfDocument As PdfDocument, ByVal EtiquetaMarcadorRaiz As String)
+        pdfDocument.InitializeOutlines()
+        Try
+            Dim pp = pdfDocument.GetFirstPage()
+            Dim rootOutline As PdfOutline = pdfDocument.GetOutlines(False)
+            Dim subOutline As PdfOutline = rootOutline.AddOutline(EtiquetaMarcadorRaiz)
+
+
+            Dim dest As PdfDestination = PdfExplicitDestination.CreateFit(pp)
+            subOutline.AddDestination(dest)
+            Dim pdfOutlineChildren As List(Of PdfOutline) = rootOutline.GetAllChildren().ToList
+            If pdfOutlineChildren.Count = 1 Then
+                Return
+            End If
+            Dim i As Integer = 0
+            Dim p As PdfOutline
+
+            For Each p In pdfOutlineChildren
+                If Not p.Equals(subOutline) Then
+                    Dim nd = p.GetDestination
+                    If nd Is Nothing Then nd = dest
+                    dest = nd
+                    Corrigeoutl(p, dest)
+                    subOutline.AddOutline(p)
+                End If
+            Next
+            rootOutline.GetAllChildren().Clear()
+            rootOutline.AddOutline(subOutline)
+            subOutline.AddDestination(PdfExplicitDestination.CreateFit(pdfDocument.GetFirstPage()))
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Sub
+
+    Private Shared Sub Corrigeoutl(p As PdfOutline, ByRef ultimoDestino As PdfDestination)
+        If p.GetDestination Is Nothing Then
+            p.AddDestination(ultimoDestino)
+        End If
+        Dim hijos = p.GetAllChildren
+        For Each h In hijos
+            If h.GetDestination Is Nothing OrElse h.GetDestination.GetPdfObject Is Nothing Then
+                h.AddDestination(ultimoDestino)
+            End If
+            ultimoDestino = h.GetDestination
+            Corrigeoutl(h, ultimoDestino)
+        Next
+    End Sub
+
+
+    Public Shared Function ObtieneNumeroPaginasPDF(PDF As String) As Integer
+        Dim pdfr As New PdfReader(PDF)
+        Dim NP = New PdfDocument(pdfr).GetNumberOfPages
+        pdfr.Close()
+        Return NP
+    End Function
+
+    Public Shared Sub ConvierteAPDFX(PdfOrigen As String, PdfDestino As String)
+        Dim wp As WriterProperties = New WriterProperties()
+        wp.SetPdfVersion(PdfVersion.PDF_1_3)
+        Dim pdfDoc As PdfDocument = New PdfDocument(New PdfReader(PdfOrigen), New PdfWriter(PdfDestino, wp))
+        pdfDoc.Close()
+    End Sub
+
+
+    Public Shared Sub RotarPdf(ByVal PdfOrigen As String, ByVal PdfDestino As String, Grados As Integer)
+
+        Dim pdfDoc As PdfDocument = New PdfDocument(New PdfReader(PdfOrigen), New PdfWriter(PdfDestino))
+        For p As Integer = 1 To pdfDoc.GetNumberOfPages()
+            Dim page As PdfPage = pdfDoc.GetPage(p)
+            Dim rotate As Integer = page.GetRotation()
+            If rotate = 0 Then
+                page.SetRotation(Grados)
+            Else
+                page.SetRotation((rotate + Grados) Mod 360)
+            End If
+        Next
+        pdfDoc.Close()
+
+    End Sub
+
+
+
+
+
+
+
+    Public Shared Sub RecortaPDF(ByVal PdfOrigen As String, PdfRecortado As String, PaginaInicio As Integer, PaginaFin As Integer)
+        Dim pdfDoc As PdfDocument = New PdfDocument(New PdfWriter(PdfRecortado))
+        Dim merger As PdfMerger = New PdfMerger(pdfDoc, False, False)
+        Dim srcDoc As PdfDocument = New PdfDocument(New PdfReader(PdfOrigen))
+        Dim np = srcDoc.GetNumberOfPages
+        merger.SetCloseSourceDocuments(True).Merge(srcDoc, PaginaInicio, PaginaFin)
+        pdfDoc.Close()
+    End Sub
+
+
+
+
+    Public Shared Sub RellenaFormularioPDF(PdfOrigen As String, PdfDestino As String, Valores As Hashtable, Optional Aplanar As Boolean = True)
+        Try
+            Dim fs As New FileStream(PdfDestino, FileMode.CreateNew, FileAccess.Write)
+            RellenaFormularioPDF(PdfOrigen, fs, Valores, Aplanar)
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Sub
+
+    Public Shared Sub RellenaFormularioPDF(PdfOrigen As String, PdfDestino As String, Valores As String, Optional Aplanar As Boolean = True)
+        Try
+            Dim fs As New FileStream(PdfDestino, FileMode.CreateNew, FileAccess.Write)
+            Dim ht As New Hashtable
+            Dim pares = Valores.Split("|")
+            For Each par In pares
+                ht.Add(par.Split(":")(0), par.Split(":")(1))
+            Next
+            RellenaFormularioPDF(PdfOrigen, fs, ht, Aplanar)
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Sub
+
+
+    Public Shared Sub RellenaFormularioPDF(PdfOrigen As String, Destino As Stream, Valores As Hashtable, Optional Aplanar As Boolean = True)
+        Try
+            Dim pdfReader As New PdfReader(PdfOrigen)
+            Dim pdfDoc As New PdfDocument(pdfReader, New PdfWriter(Destino))
+            Dim form = PdfAcroForm.GetAcroForm(pdfDoc, True)
+            For Each Valor As DictionaryEntry In Valores
+                Try
+                    form.GetField(Valor.Key).SetValue(Valor.Value)
+                Catch ex As Exception
+                End Try
+            Next
+            If Aplanar Then
+                form.FlattenFields()
+            End If
+            pdfDoc.Close()
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Sub
+
+
+    Public Shared Function RellenaFormularioPDF(PdfOrigen As Byte(), ListaValores As List(Of Hashtable), Optional Aplanar As Boolean = True) As Byte()
+
+        Try
+
+            Dim i, j As Integer
+            Dim iosPdf(ListaValores.Count - 1)() As Byte
+            For i = 0 To ListaValores.Count - 1
+                Dim pdfReader As New PdfReader(New MemoryStream(PdfOrigen))
+                Dim Valores = ListaValores(i)
+                Dim ms As New MemoryStream
+                Dim pdfDoc As New PdfDocument(pdfReader, New PdfWriter(ms))
+                Dim form = PdfAcroForm.GetAcroForm(pdfDoc, True)
+                For Each Valor As DictionaryEntry In Valores
+                    Try
+                        form.GetField(Valor.Key).SetValue(Valor.Value)
+                    Catch ex As Exception
+                    End Try
+                Next
+                If Aplanar Then
+                    form.FlattenFields()
+                End If
+                pdfDoc.Close()
+                '   ms.Seek(0, 0)
+                iosPdf(i) = ms.ToArray
+            Next
+            If ListaValores.Count = 1 Then
+                Return iosPdf(0).ToArray
+            Else
+                Return UnePdfs(iosPdf)
+            End If
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Function
+
+    Public Shared Function RellenaFormularioPDF(PdfOrigen As Byte(), Valores As Hashtable, Optional Aplanar As Boolean = True) As Byte()
+
+        Try
+            Dim pdfReader As New PdfReader(New MemoryStream(PdfOrigen))
+            Dim ms As New MemoryStream
+            Dim pdfDoc As New PdfDocument(pdfReader, New PdfWriter(ms))
+            Dim form = PdfAcroForm.GetAcroForm(pdfDoc, True)
+            For Each Valor As DictionaryEntry In Valores
+                Try
+                    Dim f = form.GetField(Valor.Key)
+                    If f IsNot Nothing Then f.SetValue(Valor.Value)
+                Catch ex As Exception
+                End Try
+            Next
+            If Aplanar Then
+                form.FlattenFields()
+            End If
+            pdfDoc.Close()
+            If ms.CanSeek Then ms.Seek(0, 0)
+            Return ms.ToArray
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Function
+    Public Shared Sub AñadePropiedadesAPdf(ByVal FicheroPdf As String, ByVal Valores As Hashtable)
+
+        Try
+            Dim ms As New MemoryStream
+            Dim pdfReader As New PdfReader(FicheroPdf)
+            Dim pdfDoc As New PdfDocument(pdfReader, New PdfWriter(ms))
+            Dim info = pdfDoc.GetDocumentInfo()
+
+            Dim newInfo As IDictionary(Of String, String) = New Dictionary(Of String, String)()
+            For Each Valor As DictionaryEntry In Valores
+                Try
+                    newInfo.Add(CStr(Valor.Key), Valor.Value)
+                Catch ex As Exception
+                End Try
+            Next
+            info.SetMoreInfo(newInfo)
+            pdfDoc.Close()
+            Dim b = ms.ToArray
+            pdfReader.Close()
+            System.IO.File.Delete(FicheroPdf)
+            System.IO.File.WriteAllBytes(FicheroPdf, b)
+
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Sub
+    Public Shared Sub AñadePropiedadesAPdf(pdfDoc As PdfDocument, ByVal Valores As Hashtable)
+
+        Try
+            Dim ms As New MemoryStream
+
+            Dim info = pdfDoc.GetDocumentInfo()
+
+            Dim newInfo As IDictionary(Of String, String) = New Dictionary(Of String, String)()
+            For Each Valor As DictionaryEntry In Valores
+                Try
+                    newInfo.Add(Valor.Key, Valor.Value)
+                Catch ex As Exception
+                End Try
+            Next
+            info.SetMoreInfo(newInfo)
+            pdfDoc.Close()
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Sub
+
+    Public Shared Function AñadePropiedadesAPdf(ByVal FicheroPdf As MemoryStream, ByVal Valores As Hashtable) As MemoryStream
+        Try
+            Dim ms As New MemoryStream
+            Dim pdfReader As New PdfReader(FicheroPdf)
+            Dim pdfDoc As New PdfDocument(pdfReader, New PdfWriter(ms))
+            Dim info = pdfDoc.GetDocumentInfo()
+
+            Dim newInfo As IDictionary(Of String, String) = New Dictionary(Of String, String)()
+            For Each Valor As DictionaryEntry In Valores
+                Try
+                    newInfo.Add(Valor.Key, Valor.Value)
+                Catch ex As Exception
+                End Try
+            Next
+            info.SetMoreInfo(newInfo)
+            pdfDoc.Close()
+            If ms.CanSeek Then ms.Seek(0, 0)
+            Return ms
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Function
+
+    Public Shared Function ExtractTextFromPDF(ByVal RutaPdf As String) As String
+        Dim pdfReader As PdfReader = New PdfReader(RutaPdf)
+        Dim pdfDoc As PdfDocument = New PdfDocument(pdfReader)
+        Dim contenido As String = ""
+        Dim Estrategia = New SimpleTextExtractionStrategy
+        For page As Integer = 1 To pdfDoc.GetNumberOfPages()
+            Dim pagina = pdfDoc.GetPage(page)
+            Dim Texto = PdfTextExtractor.GetTextFromPage(pagina, Estrategia)
+            contenido &= Texto & vbCrLf
+        Next
+        pdfDoc.Close()
+        pdfReader.Close()
+        Return contenido
+    End Function
+
+    Public Shared Sub PruebaSellado(FicheroASellar As String, FicheroDestino As String)
+        Dim pdfr As New PdfReader(FicheroASellar)
+        Dim pdfw = New PdfWriter(FicheroDestino)
+        Dim wp As New WriterProperties
+        'Dim cl = pdfr.GetPdfAConformanceLevel()
+
+
+        Dim pdfd As New PdfDocument(pdfr, pdfw)
+
+
+        Dim np = pdfd.GetNumberOfPages
+        Dim fuente = PdfFontFactory.CreateFont(StandardFonts.TIMES_ROMAN)
+
+        For i = 1 To np
+            Dim page As PdfPage = pdfd.GetPage(i)
+            Dim pdfc As New PdfCanvas(page)
+            Dim fc As New PdfCanvas(page.NewContentStreamAfter, page.GetResources, pdfd)
+
+            pdfc.BeginText()
+            pdfc.SetFontAndSize(fuente, 12)
+
+            pdfc.MoveText(0, 0)
+
+            pdfc.ShowText("PRUEBA PRUEBA")
+
+            pdfc.EndText()
+
+        Next
+
+        pdfd.Close()
+        pdfw.Close()
+    End Sub
+End Class
+

TSPdfUtils/tsPDFUtilException.vb

@@ -0,0 +1,8 @@
+Public Class tsPDFUtilException
+    Inherits Exception
+    Public ReadOnly Property ErrorCode As String
+    Public Sub New(ByVal paramName As String, ByVal CodigoError As String)
+        MyBase.New(paramName)
+        ErrorCode = ErrorCode
+    End Sub
+End Class