Dictionary objTable = new Dictionary() ;

debereis incluir el using
using System.Collections.Generic;

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

- 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

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.

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