Me alegra que te haya sido útil.
¡Saludos!

Yo tengo este código, que ni se como lo hice o de donde salió:

     int intCSize = 4000;
            //Hashtable objTable = new Hashtable();

            //Dim objTable As New Dictionary(Of PdfName, Integer)
            //Dictionary[PdfName, int] objTable = new Dictionary[PdfName, int]();
            
    Dictionary objTable = new Dictionary() ;


            objTable[PdfName.CONTENTS] = intCSize * 2 + 2;
            objSA.PreClose(objTable);
            
            
            HashAlgorithm objSHA1 = new SHA1CryptoServiceProvider();


            Stream objStream = objSA.RangeStream;
            int intRead = 0;
            byte[] bytBuffer = new byte[8192];
            while ((intRead = objStream.Read(bytBuffer, 0, 8192)) > 0)
                objSHA1.TransformBlock(bytBuffer, 0, intRead, bytBuffer, 0);
            objSHA1.TransformFinalBlock(bytBuffer, 0, 0);

            byte[] bytPK = SignMsg(objSHA1.Hash, Certificate, false);
            byte[] bytOut = new byte[intCSize];

            PdfDictionary objDict = new PdfDictionary();

            Array.Copy(bytPK, 0, bytOut, 0, bytPK.Length);

            objDict.Put(PdfName.CONTENTS  , new PdfString(bytOut).SetHexWriting(true));
            objSA.Close(objDict);

Tiene toda su lógica. Fíjate como lo hace la hacienda tributaria y otras WEB, al final te obligan a instalar un plugin o algo para la firma.

no funciona

Lo resolviste??

Hola de nuevo.. Ya solucione el problema, haciendo lo siguiente:

PdfReader objReader = new PdfReader(Source);
int numberOfPages = objReader.NumberOfPages;

PdfStamper objStamper = PdfStamper.CreateSignature(objReader, new FileStream(Target, FileMode.Create), '\0');
objStamper.InsertPage(numberOfPages + 1, objReader.GetPageSizeWithRotation(1)); // inserta una hoja nueva para agregar la firma.
 PdfSignatureAppearance objSA = objStamper.SignatureAppearance;

if (AddVisibleSign) objSA.SetVisibleSignature(new Rectangle(200, 200, 500, 300), numberOfPages + 1, null);

Saludos y gracias.

y me tira este error, la verdad es que no lo he podido solucionar, favor me podrías ayudar?
PDF header signature not found.

Hola Jonny.
Para utilizar un certificado PKCS12 (archivo .p12) deberías crear la clase X509Certificate2 pasándole como primer parámetro el path al archivo y como segundo parámetro la contraseña. O sea, tomando el ejemplo que puse en la página, deberías eliminar las lineas 29 a 38 de «Form1.cs» y poner algo así:

X509Certificate2 objCert = new X509Certificate2("c:\\miCertificado.p12", "miContraseña");

Por otro lado, para abrir un PDF con contraseña deberías modificar la linea 32 del archivo «PDF.cs» para que quede así:

PdfReader objReader = new PdfReader(Source, new System.Text.ASCIIEncoding().GetBytes("miContraseñaDelPdf"));

Espero te sirva.
¡Suerte!

He descargado tu proyecto y funciona bien pero tengo una duda…. necesito firmar un PDF con un certificado .p12 que tiene una contraseña… adicional necesito quitar los permisos del PDF a solo de lectura para que no se pueda manipular una vez firmado… soy nuevo en firma digital y te agradeceria tu valiosas ayuda…

Saludos amigo

Hola David.
En esta página tenés un ejemplo de cómo firmar con PDF con SHA256: iTextSharp – Frequently asked questions – Part 2.
Suerte!

Gracias a vos por compartir tu código.
Saludos!

Muchas Gracias Gustavo, justamente ayer buscando un poco mas encontre en los libros que pusiste en alguna respuesta el como hacerlo, asi como lo mencionas, cambie el layer2text por el texto que deseaba, mi detalle era que el certificado tenia dos valores en el campo CN, por lo tanto agarraba el ultimo, el cual no pertenecia al nombre del que certificaba, si no a un grupo o una descripcion, modifique el codigo y lo comparto por si alguien mas tiene este pequeño detalle:

objSA.Render = PdfSignatureAppearance.SignatureRender.Description;
ArrayList subjectsName = PdfPKCS7.GetSubjectFields(objChain[0]).GetFieldArray("CN");
objSA.Layer2Text  = "Firmado Digitalmente por: " + subjectsName[1].ToString()+"\n\r"+ DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss");

Muchas Gracias por tu ayuda Gustavo, Saludos!

Para cambiar el texto “Digitally Signed by” por uno personalizado necesitás establecer un valor en la propiedad Layer2Text de la clase PdfSignatureAppearance. Esta clase es la encargada de definir el formato de cómo se verá la firma en el PDF.
Por ejemplo, si quiero que no aparezca el nombre del certificado a la izquierda de la firma, ni el detalle del certicado, pero quiero que diga «Firmado digitalmente por Gustavo Cantero» y que de fondo tenga el logo de Scientia, debería reemplazar la linea 42 por estas:

objSA.Layer2Text = "Firmado digitalmente por Gustavo Cantero";
objSA.SignatureGraphic = Image.GetInstance("logo.jpg");
objSA.Render = PdfSignatureAppearance.SignatureRender.Description;

Suerte!

//objSignature.Name = PdfPKCS7.GetSubjectFields(objChain[0]).GetField("CN");   -----esta es la linea original y las de abajo es la linea que quiero que cambie
ArrayList subjectsName = PdfPKCS7.GetSubjectFields(objChain[0]).GetFieldArray("CN");
objSignature.Name = subjectsName[1].ToString();

obteniendo asi, el segundo nombre de mi certificado, y de paso querer cambiar la leyenda a español, espero puedas ayudarme, de antemano muchas muchas gracias

Hola, Eduardo.
¿Puede ser que al crear el PFX le hayas puesto una contraseña? Si es así deberías agregarla en el constructor de la clase «X509Certificate2», algo así:

X509Certificate2 objCert = new X509Certificate2(@"C:\certificado\Eduardo.pfx", "miContraseña");

Suerte!

X509Store objStore = new X509Store(StoreName.My, StoreLocation.CurrentUser);
objStore.Open(OpenFlags.ReadOnly);
X509Certificate2 objCert = null;
if (objStore.Certificates != null)
    foreach (X509Certificate2 objCertTemp in objStore.Certificates)
        if (objCertTemp.HasPrivateKey)
        {
            objCert = objCertTemp;
            break;
        }

Por

X509Certificate2 objCert = new X509Certificate2(@"C:\certificado\Eduardo.pfx");

Algún detalle se me esta escapando si me puedes ayudar te lo agradecería mucho
…gracias de antemano

Hola, Eduardo.
El ejemplo que dejé funciona. Lamentablemente no tengo otro ejemplo en VB, pero leyendo este de C# lo podés reescribir, es muy parecido, sólo tenés que cambiar algunos detalles propios de la sintaxis.
Saludos.

Hola, Leonardo, gracias por los elogios.
Te comento que en este libro en línea «Digital Signatures for PDF documents«, desde la página 124, se explica cómo hacer lo que necesitás.
Suerte!

Muchas gracias!

X509Store store = new X509Store(StoreLocation.CurrentUser);
store.Open(OpenFlags.ReadOnly);
X509Certificate2Collection sel = X509Certificate2UI.SelectFromCollection(store.Certificates, null, null, X509SelectionFlag.SingleSelection);

X509Certificate2 cert = sel[0];

Org.BouncyCastle.X509.X509CertificateParser cp = new Org.BouncyCastle.X509.X509CertificateParser();
Org.BouncyCastle.X509.X509Certificate[] chain = new Org.BouncyCastle.X509.X509Certificate[] {
cp.ReadCertificate(cert.RawData)};

IExternalSignature externalSignature = new X509Certificate2Signature(cert, "SHA-1");

PdfReader pdfReader = new PdfReader(pathToBasePdf);

signedPdf = new FileStream(pathToBasePdf, FileMode.Create);

pdfStamper = PdfStamper.CreateSignature(pdfReader, signedPdf, '');
PdfSignatureAppearance signatureAppearance = pdfStamper.SignatureAppearance;

signatureAppearance.SignatureGraphic = Image.GetInstance(pathToSignatureImage);
signatureAppearance.SetVisibleSignature(new Rectangle(100, 100, 250, 150), pdfReader.NumberOfPages, "Signature");
signatureAppearance.SignatureRenderingMode = PdfSignatureAppearance.RenderingMode.GRAPHIC_AND_DESCRIPTION;

MakeSignature.SignDetached(signatureAppearance, externalSignature, chain, null, null, null, 0, CryptoStandard.CMS);

Si no tienes conocimientos de certificados ni firmas antes deberías leer estos artículos:

• Conceptos de Certificado Digital y Firma Digital
• Crear certificados de prueba para servidor y cliente
• Cómo calcular el Hash de un vector de bytes o un string
• Utilizar certificados digitales desde .NET

Ahí se explican los conceptos básicos, cómo crear los certificados de prueba (con clave privada), etc.
Suerte!

Es raro el error. ¿Probaste bajando los fuentes o escribiste el código?
Si hiciste lo primero no debería darte error (lo probé antes de subirlo), si hiciste lo segundo te pido que nos pases el código para poder verlo.
Saludos.

tengo un problema con la parte:

 while ((intRead = objStream.Read(bytBuffer, 0, 8192)) > 0)

me dice q el 8192 esta fuera de la instancia

podrian ayudarme

Hola, Juan Pablo.
La verdad es que «creo» (puede ser que me equivoque) que no se puede.
Me parece que para esto lo mejor sería que configures la aplicación web para que se ejecute como un usuario de Window (Suplantación de ASP.NET) y que instales el certificado en el repositorio personal de ese usuario.
Suerte!

Muchas Gracias por las respuestas Gustavo, te hago una pregunta mas por un tema que no estoy encontrando como resolver. Es factible instalar un certificado en el repositorio de Windows con seguridad alta y luego, desde el código, obtenerlo y utilizarlo para firmar un PDF pasándole el PIN de seguridad por código. Actualmente cuando instalo un certificado de esta manera me abre una ventana de Windows para que ingrese el PIN de seguridad pero mi aplicación es web con lo cual tengo que evitar esta ventana.
Muchas Gracias!

Hola, Juan Pablo.
En el ejemplo que subimos no te pide la contraseña del certificado porque buscamos el primer certificado que tenga clave privada y que esté en el repositorio del usuario, por lo cual, el sistema operativo me lo da sin necesidad de claves.
Distinto sería el caso si utilizas, en lugar de un certificado «instalado», un archivo que contenga el certificado con su clave privada.
Para probar esto deberías reemplazar las siguientes lineas del archivo «Form1.cs»:

X509Store objStore = new X509Store(StoreName.My, StoreLocation.CurrentUser);
objStore.Open(OpenFlags.ReadOnly);
X509Certificate2 objCert = null;
if (objStore.Certificates != null)
    foreach (X509Certificate2 objCertTemp in objStore.Certificates)
        if (objCertTemp.HasPrivateKey)
        {
            objCert = objCertTemp;
            break;
        }

por esta linea

X509Certificate2 objCert = new X509Certificate2(@"C:\Path\archivo.pfx");

Suerte!

Muchas gracias por tus palabras, Martín, y disculpas por la demora en responder.
Te comento que para que una firma sea válida necesitás instalar el certificado de la entidad emisora dentro del repositorio «Trusted Root Certification Authorities». O sea, tu certificado debe estar firmado por otro certificado autofirmado de una entidad emisora. Los certificados de estas entidades, las más conocidas, ya vienen instaladas en tu Windows, por ejemplo, GoDaddy, SecureTrust, Microsoft, VeriSign, etc., pero si estás creando uno para probar deberías instalarlo en tu sistema operativo.
En el artículo Crear certificados de prueba para servidor y cliente explico cómo crear tu certificado paso por paso, incluyendo el de la entidad emisora.
También puede servirte el artículo
Conceptos de Certificado Digital y Firma Digital donde explico los conceptos básicos de los certificados y la firma digital.
Espero te sirva.
Suerte!

Muchas gracias.
Santiago, me gustaría que me pasaras ese ejemplo.

Saludos.

Saludos!

Me alegro que te sirviera, y muchas gracias por compartir lo que encontraste.
Suerte!

Me respondó, hay que poner en LA DEFINICIÓN DEL STAMPER línea esto: Dim objStamper As PdfStamper = PdfStamper.CreateSignature(objReader, New FileStream(Target, FileMode.Create), «», vbNull, True)

Adicional si quieren el código completo con elección del certificado desde el almacen de certificados o desde un archivo en disco en vb solo envíen un correo para responderles con el ejemplo.
Y nuevamente gracias por esta página es de muchisima utilidad.

Como primer paso podrías investigar la librería iText (http://itextpdf.com/itext.php) que es la original en Java desde la cual se portó a .NET para crear iTextSharp.
Por otro lado podrías ver esta página que explica cómo «consultar» los repositorios de certificados de Windows usando Java: Accessing MS Certificate Stores in Java.
Seguramente con la información de esas dos páginas podrás resolverlo.
Suerte!

Pues tampoco se ha quitado el error 2

Sigue teniendo los 2 errores

objSA.CertificationLevel = PdfSignatureAppearance.CERTIFIED_NO_CHANGES_ALLOWED;

Con esa línea he quitado el error nº2
Sólo me queda lo del marcador EOL

A ver si alguien puede ayudarme

SysX509.X509Certificate2 Certificate = new SysX509.X509Certificate2(rutaCertificado, pass);

El problema que tengo es que si el original cumple el standard pdf/a-1b, al firmarlo pierde el standard dando los siguientes errores:

1-Problema de sintaxis: el objeto indirecto de palabra clave «obj» no va seguido de un marcador EOL

2-Fuente no incrustada

Y no sé como solucionar esto. Y es importante no romper el standar

Un saludo

Muchas gracias por tu aclaración, Juan.
Seguramente esto se deba a un tema por la versión de las librerías, ya que este artículo lo escribí hace 3 años y los fuentes que se pueden descargar de acá funcionan bien.
Suerte!

Las siguientes líneas me dan error, que creo haber solucionado:

objSA.Render = PdfSignatureAppearance.SignatureRender.NameAndDescription;

Solucion:

objSA.SignatureRenderingMode = PdfSignatureAppearance.RenderingMode.NAME_AND_DESCRIPTION;

Stream objStream = objSA.RangeStream;

Solucion:

Stream objStream = objSA.GetRangeStream();

Pero estas otras no puedo arreglarlas:

objSA.SetCrypto(null, objChain, null, null);
objSignature.Name = PdfPKCS7.GetSubjectFields(objChain[0]).GetField("CN");
objSA.PreClose(objTable);

Quizás deberías crear una nueva entrada actualizada.
Gracias.

Saludos

En el código del formulario del ejemplo que podés descargar está este código:

X509Store objStore = new X509Store(StoreName.My, StoreLocation.CurrentUser);
objStore.Open(OpenFlags.ReadOnly);
X509Certificate2 objCert = null;
if (objStore.Certificates != null)
    foreach (X509Certificate2 objCertTemp in objStore.Certificates)
        if (objCertTemp.HasPrivateKey)
        {
            objCert = objCertTemp;
            break;
        }

Lo que esto hace es buscar el primer certificado instalado que posea clave privada, y ese certificado lo envía como parámetro al método que firma el PDF (PDF.SignHashed).
Para que el usuario pueda elegir el certificado a utilizar deberías reemplazar este código por otro que le muestre un diálogo para seleccionar el deseado. En esta página tenés un ejemplo de cómo hacer esta selección: Compatibilidad con certificados en las aplicaciones con .NET Framework 2.0.
Espero te sirva.
Suerte!

Jorge, perdón por la molestia pero soy nuevo con el tema de firma digital… me podras pasar el codigo que implementas en tu interfaz web?
Necesito que los usuarios ingresen en la web y firmen un pdf que esta alojado en el servidor, luego se guarda el nuevo pdf firmado (uno por cada usuario por supuesto) tambien en el servidor.
Desde ya muchas gracias. leonardo_cwierz@yahoo.com.ar

La verdad es muy raro lo que te pasa. ¿Puede ser por la versión de PDF que usás que, tal vez, el iTextSharp no la soporte? ¿Estás usando la última versión de las librerías?
Saludos.

En esta página te explica cómo hacerlo: Cómo: Firmar documentos XML con firmas digitales.
Suerte!

Danilo, el problema es que los archivos .cer no poseen la clave privada del certificado.
Saludos.

Public Shared Sub SignHashed(ByVal Source As String, ByVal Target As String, ByVal Certificate As SysX509.X509Certificate2, ByVal Reason As String, ByVal Location As String, ByVal AddVisibleSign As Boolean)
        Dim objCP As New X509CertificateParser()
        'NOTA PRUEBAS de X509Certificate (ambiguo “Org.BouncyCastle.X509.X509Certificate()= X509Certificate()”)
        Dim objChain As Org.BouncyCastle.X509.X509Certificate() = New Org.BouncyCastle.X509.X509Certificate() {objCP.ReadCertificate(Certificate.RawData)}

        Dim objReader As New PdfReader(Source)
        Dim objStamper As PdfStamper = PdfStamper.CreateSignature(objReader, New FileStream(Target, FileMode.Create), ControlChars.NullChar)
        Dim objSA As PdfSignatureAppearance = objStamper.SignatureAppearance

        If AddVisibleSign Then
            objSA.SetVisibleSignature(New Rectangle(100, 100, 300, 200), 1, Nothing)
        End If

        objSA.SignDate = DateTime.Now
        objSA.SetCrypto(Nothing, objChain, Nothing, Nothing)
        objSA.Reason = Reason
        objSA.Location = Location
        objSA.Acro6Layers = True
        objSA.Render = PdfSignatureAppearance.SignatureRender.NameAndDescription
        Dim objSignature As New PdfSignature(PdfName.ADOBE_PPKMS, PdfName.ADBE_PKCS7_SHA1)
        objSignature.[Date] = New PdfDate(objSA.SignDate)
        objSignature.Name = PdfPKCS7.GetSubjectFields(objChain(0)).GetField("CN")
        If objSA.Reason IsNot Nothing Then
            objSignature.Reason = objSA.Reason
        End If
        If objSA.Location IsNot Nothing Then
            objSignature.Location = objSA.Location
        End If
        objSA.CryptoDictionary = objSignature
        Dim intCSize As Integer = 4000

        'Dim objTable As New Hashtable()
        Dim objTable As New Dictionary(Of PdfName, Integer)
        objTable(PdfName.CONTENTS) = intCSize * 2 + 2
        objSA.PreClose(objTable)

        Dim objSHA1 As HashAlgorithm = New SHA1CryptoServiceProvider()

        Dim objStream As Stream = objSA.RangeStream
        Dim intRead As Integer = 0
        Dim bytBuffer As Byte() = New Byte(8191) {}
        While (InlineAssignHelper(intRead, objStream.Read(bytBuffer, 0, 8192))) > 0
            objSHA1.TransformBlock(bytBuffer, 0, intRead, bytBuffer, 0)
        End While
        objSHA1.TransformFinalBlock(bytBuffer, 0, 0)

        Dim bytPK As Byte() = SignMsg(objSHA1.Hash, Certificate, False)
        Dim bytOut As Byte() = New Byte(intCSize - 1) {}

        Dim objDict As New PdfDictionary()

        Array.Copy(bytPK, 0, bytOut, 0, bytPK.Length)

        objDict.Put(PdfName.CONTENTS, New PdfString(bytOut).SetHexWriting(True))
        objSA.Close(objDict)
    End Sub

Private Shared Function SignMsg(ByVal Message As Byte(), ByVal SignerCertificate As SysX509.X509Certificate2, ByVal Detached As Boolean) As Byte()
        'Creamos el contenedor

        Dim contentInfo As ContentInfo = New ContentInfo(Message)
        'Dim contentInfo As New ContentInfo(Message)
        'Instanciamos el objeto SignedCms con el contenedor
        Dim objSignedCms As New SignedCms(contentInfo, Detached)
        'Creamos el “firmante”
        Dim objCmsSigner As New CmsSigner(SignerCertificate)
        ' Include the following line if the top certificate in the
        ' smartcard is not in the trusted list.
        objCmsSigner.IncludeOption = SysX509.X509IncludeOption.EndCertOnly
        ' Sign the CMS/PKCS #7 message. The second argument is
        ' needed to ask for the pin.
        objSignedCms.ComputeSignature(objCmsSigner, True) ' False)
''''en este punto es donde me sale que la clave no existe!



        'Encodeamos el mensaje CMS/PKCS #7
        Return objSignedCms.Encode()
    End Function

alguien que me ayude.

Gracias

Dictionary objTable = new Dictionary() ;

debereis incluir el using
using System.Collections.Generic;

Hola, Fabio.
El problema que te da sobre «The current session is not interactive» seguramente sea porque estás intentando abrir el diálogo de selección de certificado del lado del servidor, lo cual no se puede. Si necesitas hacer que el usuario pueda firmar un documento utilizando una aplicación web lo mejor (si no es la única manera) es hacerlo a través de un control COM (con C++ o el viejo Visual Basic 6) ya que sino no vas a poder acceder al repositorio de certificados del cliente. Otra opción es utilizando Silverlight, con el cual aunque no puedas acceder al repositorio (a no ser que sea una aplicación out-of-browser) podés hacer que el usuario elija un archivo donde tiene su certificado y con eso firmarlo del lado del cliente (nosotro hemos hecho un proyecto así).
Sobre la selección del certificado para el acceso a un servicio web: esto lo podés hacer configurando el IIS. En esta página te explica un poco mejor cómo hacerlo con IIS 7: Configurar la autenticación de asignaciones de certificado de cliente (IIS 7).
Saludos.

En primer lugar enhorabuena por tu artículo.

Me pregunto si podemos abrir la pantalla para seleccionar un certificado digital en una aplicación web, de modo que firma un archivo XML y el acceso a un servicio Web?

Traté de alguna manera y cuando llegué a más regalos de error siguiente:

The current session is not interactive

Le doy las gracias,

Abrazos

  Dim intCSize As Integer = 4000
  Dim exc As New Dictionary(Of PdfName, Integer)()
  exc(PdfName.CONTENTS) = intCSize * 2 + 2
  sap.PreClose(exc)

Se cae en la ultima linea PreClose!!!

—————————
prySignDig
—————————
ERROR: System.NullReferenceException: Referencia a objeto no establecida como instancia de un objeto.

en iTextSharp.text.pdf.PdfPKCS7.GetSubjectFields(X509Certificate cert)

en iTextSharp.text.pdf.PdfSignatureAppearance.GetAppearance()

en iTextSharp.text.pdf.PdfSignatureAppearance.PreClose(Dictionary`2 exclusionSizes)

en prySignDig.frmSignDig02.btnPrueba_Click(Object sender, EventArgs e) en D:\prySignDig08\prySignDig\frmSignDig02.vb:línea 102

Para escribir en cada página, lo que hago básicamente es recorrer página a página, e ir creando nuevas páginas en un nuevo archivo e insertado el «contexto» (es decir, el contenido original) más lo que añado.

El caso es que la 1º página viene firmada, y no se como extaer la firma (que quedaría invalida, pero me sirve) y colocarla en la 1º página del nuevo archivo)

Alguna pista??

Gracias y un saludo

El proyecto de ejemplo tiene la misma clase que muestro en este artículo, pero tiene una ventana para ingresar el PDF a firmar y poder probar más rápido esta clase.
Cualquier otra consulta no dudes en escribirla aquí.
Suerte!

El proyecto está hecho en Visual Studio 2008 con C#, pero se podría pasar facilmente a un proyecto de Visual Basic.NET con Visual Studio 2005.
Podrías probar con esta herramienta para migrar código C# a VB.NET: http://www.developerfusion.com/tools/convert/csharp-to-vb.
Cualquier consulta no dudes en escribirla aquí.
Suerte!

Hola, Alberto. Si, como dices, no puedes utilizar la interfaz desde una aplicación web.
Sobre el punto 1, seguramente el problema sea que el certificado a utilizar lo tienes instalado en un repositorio de usario, por lo tanto, cuando la aplicación se ejecuta en producción no lo encuentra. Prueba instalando tu certificado (con la clave privada) en un repositorio de la máquina (no de usuario) en el servidor utilizando la herramienta «certmgr». En este artículo muestro un ejemplo de cómo hacerlo: Crear certificados de prueba para servidor y cliente.
Suerte!

       'Dim objTable As New Hashtable()
        Dim objTable As New Dictionary(Of PdfName, Integer)
        objTable(PdfName.CONTENTS) = intCSize * 2 + 2
        objSA.PreClose(objTable)

———————————————–
Hola Gustavo, estoy retomando el proyecto despues de unas vacacione si aún me encuentro algun problema, a ver si puedes ayudarme o cualquiera que pueda echarme una mano.

– Cuando estoy en desarrollo, el proyecto funciona bien (firma el pdf), pero cuando intento publicarlo en el servidor IIS me da algun fallo.
1-. (OPCION 1)Si publico el proyecto en un directorio virtual que SI requiere canal seguro SSL, a la hora de firmar el documento PDF me da el siguiente error:
«La clave no existe»
2-. (OPCION 2) Si publico el proyecto en un directorio virtual que NO requiere canal seguro SSL, al intentar acceder a la función GetCertificate me da el siguiente error:
«The current session is not interactive»

Os dejo el código en VB.net que estoy usando a ver si alguien da con la solución:

Imports System.Collections
Imports System.IO
Imports System.Security.Cryptography
Imports System.Security.Cryptography.Pkcs
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports Org.BouncyCastle.X509
Imports SysX509 = System.Security.Cryptography.X509Certificates

Imports System.Security
Imports System.Security.Cryptography.X509Certificates
Imports System.Security.Cryptography.X509Certificates.X509Certificate2

''' 
''' Helper para el firmado de PDFs con la librería iTextSharp
''' 
''' 
Partial Class FirmaDigital02
    Inherits System.Web.UI.Page

    Protected Sub btnSignDigital_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSignDigital.Click
        Try
            ''OPCIÓN 1: DIRECTORIO VIRTUAL IIS con SSL (requerir canal seguro)
            Dim objCertHttp As HttpClientCertificate
            objCertHttp = Request.ClientCertificate
            Dim certificate As X509Certificate2
            certificate = New System.Security.Cryptography.X509Certificates.X509Certificate2(objCertHttp.Certificate)
            'certificate = New SysX509.X509Certificate2(objCertHttp.Certificate)
 
            ''OPCIÓN 2: VENTANA SELECCIÓN CERTIFICADO
            'Dim certificate As X509Certificate2 = GetCertificate()

            Dim source As String = "C:\Inetpub\wwwroot\TestVB\documents\signats\PruebaSignatura.pdf"
            Dim target As String = "C:\Inetpub\wwwroot\TestVB\documents\signats\PruebaSignatura_hashed2.pdf"
            SignDigital.SignHashed(source, target, certificate, "Razón", "Localización", True)
            lblSignaPDF.Text = "Finalitzat correctament. Comprobar signa"
        Catch ex As Exception
            lblSignaPDF.Text = lblSignaPDF.Text & "Descripció error: " & ex.Message
        End Try
    End Sub



    Public Shared Function GetCertificate() As X509Certificate2
        Dim st As New X509Store(StoreName.My, StoreLocation.CurrentUser)

        st.Open(OpenFlags.[ReadOnly])
        Dim col As X509Certificate2Collection = st.Certificates
        Dim card As X509Certificate2 = Nothing

        Dim sel As X509Certificate2Collection = X509Certificate2UI.SelectFromCollection(col, "Certificates", "Seleccioni un certificat per a signar", X509SelectionFlag.SingleSelection)
        If sel.Count > 0 Then
            Dim en As X509Certificate2Enumerator = sel.GetEnumerator()
            en.MoveNext()
            card = en.Current
        End If
        st.Close()
        Return card
    End Function

    'Private Sub New()
    'End Sub
    ''' 
    ''' Firma un documento
    ''' 
    ''' Documento origen
    ''' Documento destino
    ''' Certificado a utilizar
    ''' Razón de la firma
    ''' Ubicación
    ''' Establece si hay que agregar la firma visible al documento
    Public Shared Sub SignHashed(ByVal Source As String, ByVal Target As String, ByVal Certificate As SysX509.X509Certificate2, ByVal Reason As String, ByVal Location As String, ByVal AddVisibleSign As Boolean)
        Dim objCP As New X509CertificateParser()
        'NOTA PRUEBAS de X509Certificate (ambiguo "Org.BouncyCastle.X509.X509Certificate()= X509Certificate()")
        Dim objChain As Org.BouncyCastle.X509.X509Certificate() = New Org.BouncyCastle.X509.X509Certificate() {objCP.ReadCertificate(Certificate.RawData)}

        Dim objReader As New PdfReader(Source)
        Dim objStamper As PdfStamper = PdfStamper.CreateSignature(objReader, New FileStream(Target, FileMode.Create), ControlChars.NullChar)
        Dim objSA As PdfSignatureAppearance = objStamper.SignatureAppearance

        If AddVisibleSign Then
            objSA.SetVisibleSignature(New Rectangle(100, 100, 300, 200), 1, Nothing)
        End If

        objSA.SignDate = DateTime.Now
        objSA.SetCrypto(Nothing, objChain, Nothing, Nothing)
        objSA.Reason = Reason
        objSA.Location = Location
        objSA.Acro6Layers = True
        objSA.Render = PdfSignatureAppearance.SignatureRender.NameAndDescription
        Dim objSignature As New PdfSignature(PdfName.ADOBE_PPKMS, PdfName.ADBE_PKCS7_SHA1)
        objSignature.[Date] = New PdfDate(objSA.SignDate)
        objSignature.Name = PdfPKCS7.GetSubjectFields(objChain(0)).GetField("CN")
        If objSA.Reason IsNot Nothing Then
            objSignature.Reason = objSA.Reason
        End If
        If objSA.Location IsNot Nothing Then
            objSignature.Location = objSA.Location
        End If
        objSA.CryptoDictionary = objSignature
        Dim intCSize As Integer = 4000

        'Dim objTable As New Hashtable()
        Dim objTable As New Dictionary(Of PdfName, Integer)
        objTable(PdfName.CONTENTS) = intCSize * 2 + 2
        objSA.PreClose(objTable)

        Dim objSHA1 As HashAlgorithm = New SHA1CryptoServiceProvider()

        Dim objStream As Stream = objSA.RangeStream
        Dim intRead As Integer = 0
        Dim bytBuffer As Byte() = New Byte(8191) {}
        While (InlineAssignHelper(intRead, objStream.Read(bytBuffer, 0, 8192))) > 0
            objSHA1.TransformBlock(bytBuffer, 0, intRead, bytBuffer, 0)
        End While
        objSHA1.TransformFinalBlock(bytBuffer, 0, 0)

        Dim bytPK As Byte() = SignMsg(objSHA1.Hash, Certificate, False)
        Dim bytOut As Byte() = New Byte(intCSize - 1) {}

        Dim objDict As New PdfDictionary()

        Array.Copy(bytPK, 0, bytOut, 0, bytPK.Length)

        objDict.Put(PdfName.CONTENTS, New PdfString(bytOut).SetHexWriting(True))
        objSA.Close(objDict)
    End Sub

    ''' 
    ''' Crea la firma CMS/PKCS #7
    ''' 
    Private Shared Function SignMsg(ByVal Message As Byte(), ByVal SignerCertificate As SysX509.X509Certificate2, ByVal Detached As Boolean) As Byte()
        'Creamos el contenedor
        Dim contentInfo As New ContentInfo(Message)
        'Instanciamos el objeto SignedCms con el contenedor
        Dim objSignedCms As New SignedCms(contentInfo, Detached)
        'Creamos el "firmante"
        Dim objCmsSigner As New CmsSigner(SignerCertificate)
        ' Include the following line if the top certificate in the
        ' smartcard is not in the trusted list.
        objCmsSigner.IncludeOption = SysX509.X509IncludeOption.EndCertOnly
        '  Sign the CMS/PKCS #7 message. The second argument is
        '  needed to ask for the pin.
        objSignedCms.ComputeSignature(objCmsSigner, False)
        'Encodeamos el mensaje CMS/PKCS #7
        Return objSignedCms.Encode()
    End Function

    Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
        target = value
        Return value
    End Function
End Class

Juan, muchas gracias por tus palabras.
Sobre el proyecto, puede ser que tengas una versión distinta del iTextSharp. Acabo de subir en este mismo artículo un proyecto de ejemplo funcionando para que lo puedas descargar y probar.
Cualquier consulta no dudes en escribir.
Suerte!

Error 1 La mejor coincidencia de método sobrecargado para ‘iTextSharp.text.pdf.PdfSignatureAppearance.PreClose(System.Collections.Generic.Dictionary)’ tiene algunos argumentos no válidos

Error 2 Argumento ‘1’: no se puede convertir de ‘System.Collections.Hashtable’ a ‘System.Collections.Generic.Dictionary’

Error 2 Argumento ‘1’: no se puede convertir de ‘System.Collections.Hashtable’ a ‘System.Collections.Generic.Dictionary’

y la verdad es que estoy un poco perdido.

Tienes razón, Álvaro, acabo de actualizar el código, me había faltado un método que justamente es el que crea la firma.
Después cuéntame cómo te anduvo.
Saludos.

Estamos probando a utilizar tu ejemplo, pero nos da error al compilarlo… ya que el método SingMsg no está definido.

¿Podrías añadirlo al ejemplo?

Muchas gracias

I was interested in your article. Well, there are some people who are able to present this issue in such a way. I wish you continued success and looks forward to further articles….

No sé que es lo que hago mal, pero en local me funciona y en el servidor no.
La diferencia entre estas dos pruebas es la manera de obtener el certificado.
En local (a través de la función «GetCertificate» de iTextSharp).
En el servidor a través del Request.ClientCertificate indicando al IIS Requerir Canal Seguro SSL y Requerir certificado cliente.

Dim objCertHttp As HttpClientCertificate
objCertHttp = Request.ClientCertificate
Dim certificate As X509Certificate2
certificate = New System.Security.Cryptography.X509Certificates.X509Certificate2(objCertHttp.Certificate)

A la hora de llamar a la función:
PDF.SignHashed(source, target, certificate, «Razón», «Localización», True)

Donde source es «C:\Inetpub\wwwroot\documentos\Prueba.pdf» y la carpeta documentos con permisos de escritura, lectura.
y target «C:\Inetpub\wwwroot\documentos\Prueba_sign.pdf»

Me persigue el error: «LA CLAVE NO EXISTE».
Creo que en local la clave existe porque cuando le doy al botón de firmar me pide el certificado (funcion getCertificate), mientras que en el servidor cuando entro en la página es cuando me pide el certificado (Request.ClientCertificate) (por el SSL de IIS) y me pide la clave, despues he de picar al botón de firmar y da el error.

Por favor… ya se que abuso, pero necesito algo de luz!.
Saludos