tengo un problema al generar la firma de un texto en este caso es un string de un conjunto de tag XML.

el codigo es el siguiente VB.NET

Dim _Certificado As New X509Certificate2("C:\certificadodigital.pfx", "1234")

Mi problema radica en que el certificado al poseer un largo de llave 1024 como resultado me entrega 172 caracteres.
pero si no cargo la llave del certificado y genero un RSACryptoServiceProvider de 512(por defecto crea de 1024) asi q lo cambio RSACryptoServiceProvider(512). esto me genera mis 88 caracteres finales. pero obiamente no me sirve por que no se genera con las llaves del certificado.
estas son las lineas q ocupo la que esta con comentario es la que genera el RSACryptoServiceProvider con la llave del certificado (pero con 1024)

'Dim rsa As RSACryptoServiceProvider = _Certificado.PrivateKey
Dim rsa As New RSACryptoServiceProvider(512)


como puedo generar la firma pero con 512???
gracias de antemano.

Quisiera arreglar el mundo… pero no me dan el codigo fuente!

Estoy teniendo problemas a la hora de desencriptar un masaje mediante certificado, he seguido tus pasos pero obtengo este error cuando intento realizar el decrypt

El mensaje con datos envueltos no contiene el recipiente especificado.

Concretamente en la linea

objEncryptedData.Decrypt();

No entiendo en tu código porque cuando desencriptas no le indicas el certificado pero cuando encriptas si.

un saludo

Dim hasher As New SHA1CryptoServiceProvider()
Dim _Certificado As New X509Certificate2(“certificado”, “pass”)
‘CREO OBTENER LA CLAVE PRIVADA PARA LUEGO CON EL OBJETO rsa poder firmar
Dim rsa As RSACryptoServiceProvider = _Certificado.PrivateKey

Dim msbyt() As Byte

Dim byteconverter As New ASCIIEncoding()

msbyt = byteconverter.GetBytes(“XML a encriptar”)

Dim hshbyt() As Byte

Dim sha As New SHA1CryptoServiceProvider()

hshbyt = sha.ComputeHash(msbyt)

Dim sgnbyt() As Byte

‘FIRMO EL DOCUMENTO
sgnbyt = rsa.SignHash(hshbyt, “SHA1″)

Return Convert.ToBase64String(sgnbyt)

esto no produce errores ni nada sino que me devuelven como que la clave es invalida. Lo que busco hacer es poder levantar la clave privada de mi certificado para poder firmarla el tema es que no logro levantar dicha clave. Cualquier ayuda me sirve sin mas y agradeciendo por adelantado. te mando saludos

Error 1 ‘System.IO.FileStream’ does not contain a definition for ‘CopyTo’ and no extension method ‘CopyTo’ accepting a first argument of type ‘System.IO.FileStream’ could be found (are you missing a using directive or an assembly reference?)

te dejo el Código:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Security.Cryptography;
using System.Security.Cryptography.X509Certificates;
using System.Diagnostics;
using System.Security.Cryptography.Pkcs;
using System.IO;
using System.IO.Compression;

namespace form
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
X509Store objStore = new X509Store(StoreName.My, StoreLocation.CurrentUser); //StoreLocation.LocalMachine);
objStore.Open(OpenFlags.ReadOnly);
foreach (X509Certificate2 objCert in objStore.Certificates)
rtxtCerts.Text = rtxtCerts.Text + objCert.SubjectName.Name + “: ” + objCert.Thumbprint + “\n”;
objStore.Close();
}

private void btnExcrypt_Click(object sender, EventArgs e)
{
try
{
X509Certificate2 objCert = new X509Certificate2(@”C:\Documents and Settings\USERNAME\Datos de programa\Microsoft\SystemCertificates\My\Certificates\THECERTIFICATECODE”);
ContentInfo objContent = new ContentInfo(Encoding.ASCII.GetBytes(txtSource.Text));
SignedCms objSignedData = new SignedCms(objContent, true);
CmsSigner objSigner = new CmsSigner(objCert);
objSignedData.ComputeSignature(objSigner);
byte[] bytSigned = objSignedData.Encode();
rtxtEncrypted.Text = Convert.ToBase64String(bytSigned);
}
catch (Exception ex)
{
MessageBox.Show(“Exception caught ” + ex.ToString());
}
}

private void btnCryptFile_Click(object sender, EventArgs e)
{
try
{
MemoryStream destination = new MemoryStream();
X509Certificate2 objCert = new X509Certificate2(@”C:\Documents and Settings\rerodriguez\Datos de programa\Microsoft\SystemCertificates\My\Certificates\THECERTIFICATECODE”);
using (FileStream fsSource = new
// File 2 Encrypt (pedido en la forma)
FileStream(txtFile2Crypt.Text, FileMode.Open, FileAccess.Read))
using (MemoryStream MS = new MemoryStream())
using (GZipStream Zip = new GZipStream(MS, CompressionMode.Compress, true))
{

// fsSource.CopyTo(Zip); Error no le gusta

byte[] bytes = new byte[fsSource.Length];
int numBytesToRead = (int)fsSource.Length;
int numBytesRead = 0;
while (numBytesToRead > 0)
{
int n = fsSource.Read(bytes, numBytesRead, numBytesToRead);
if (n == 0)
break;

numBytesRead += n;
numBytesToRead -= n;
}
numBytesToRead = bytes.Length;

ContentInfo objContent = new ContentInfo(bytes);
SignedCms objSignedData = new SignedCms(objContent, true);
CmsSigner objSigner = new CmsSigner(objCert);

objSignedData.ComputeSignature(objSigner);

byte[] bytSigned = objSignedData.Encode();
rtxtEncrypted.Text = “Fichero Firmado”; // Convert.ToBase64String(bytSigned);
}
}
catch (Exception ex)
{
MessageBox.Show(“Exception caught here” + ex.ToString());
}
}
}
}

un Saludo-

byte[] bytes;
using (FileStream In = File.OpenRead(“c:\archivo.bin”))
using (MemoryStream MS = new MemoryStream())
using (GZipStream Zip = new GZipStream(MS, CompressionMode.Compress, true))
{
In.CopyTo(Zip);
bytes = MS.GetBuffer();
}
ContentInfo objContent = new ContentInfo(bytes);

Espero que te sirva.
Suerte!

Un Saludo y vuelvo a agradecerte por tu aporte

He visto alguno ejemplos em MSDN pero solo ultizan archivos xml para el RSA
no se si se pueda ultizar los archivos DER PKCS8 en .NET

Espero que me puedas ayudar o darme alguna orientacion donde pueda investigar para poder relizarlo.

Con el código de iTextsharp
1-. “Un valor de tipo “System.Collection.Hastable” no se puede convertir en “System.Collections.Generic.Dictionary(Of iTextSharp.text.pdf.PdfName,Integer)”
Donde ponía:
Dim exc As New Hashtable()
Lo he sustituido por:
Dim exc As New Dictionary(Of PdfName, Integer)()

2-. “No se ha declarado el nombre InlineAssignHelper”
Lo he suprimido y dejado así:
While s.Read(buff, 0, 8192) > 0
sha.TransformBlock(buff, 0, read, buff, 0)
End While

En local me firma el pdf, aunque me deja la alerta de que la firma no es valida porque se ha modificado el documento.
Y en el servidor me da el error de:
(si leo el certificado con iis):
“La clave no existe”
o (si leo el certificado con la funcion de itextsharp)
“The current session is not interactive”

Si teneis alguna idea, os lo agradecería.

Validar certificados (me devuelve):
RevocationStatusUnknown – La función de revocación no puede comprobar la revocación para el certificado.
Firma documento (me devuelve):
La clave no existe.

En cuanto a lo de iTextSharp
Mi intención es leer el certificado de cliente y firmar un pdf, así que supongo que el que me interesa es el último punto:
“How to sign with a smartcard using an external signature dictionary with iTextSharp and .NET 2.0″

Lo estoy intentando traducir de CSharp a VB con la ayuda de (http://www.developerfusion.com/tools/convert/csharp-to-vb/).
Pero el código me marca 2 errores, uno en:
sap.PreClose(exc);
- Me dice que exc “Un valor de tipo “System.Collection.Hastable” no se puede convertir en “System.Collections.Generic.Dictionary(Of iTextSharp.text.pdf.PdfName,Integer)”

y otro en:
While (InlineAssignHelper(read, s.Read(buff, 0, 8192))) > 0
sha.TransformBlock(buff, 0, read, buff, 0)
End While
- Me marca como error: “No se ha declarado el nombre InlineAssignHelper”

Si me pudieses orientar te lo agradecería.
Una vez tengo el código, lo puedo dejar en el foro para aquellos que usen VB y lo necesiten.
Saludos.

saludos.

Muchas gracias por su ayuda,

X509Certificate2 objCert;
X509Store objStore = new X509Store(StoreLocation.CurrentUser);
X509Certificate2Collection objCol = objStore.Certificates.Find(X509FindType.FindByIssuerName, "Gustavo", true);
if (objCol.Count > 0)
{
objCert = objCol[0];
//Sigo usando el certificado
}

Otra posibilidad sería abrir el certificado desde un archivo:

X509Certificate2 objCert = new X509Certificate2("Archivo.pfx");

o también podrias leer el certificado desde la base de datos u otro lado:

byte[] bytCert = //Obtengo el certificado de algún lado, como la base de datos
X509Certificate2 objCert = new X509Certificate2(bytCert);

Espero que esta información te sea de utilidad, cualquier otra cosa no dudes en escribir.
Suerte!

Bueno la solución para que el código pida la clave del certificado digital almacenado en el store es simplemente colocar un false

signedCms.ComputeSignature(cmsSigner, false);

pero ahora tengo otro problema, necesito firmar un archivo extremadamente grande y el código que tenemos hasta el momento solo firma hasta 80 MB con archivos por ejemplo de un archivo de 1 GB no lo puede firmar dado que saca un error de memoria.

si alguien sabe de esto por favor les agradeceria me dieran la solución

cuando tenga el código completo lo pìenso subir… por ahora mi correo es jlqr@hotmail.com por si necesitan algo.. no se mucho pero igual ya tengo funcionando un pedazo de código.. y todo gracias a lo que he visto en esta página y en algunas otras…

objEncryptedData.Decrypt();

Puedo leer certificados, encriptar documentos sin ningun problema.

Por favor si me pueden ayudar,
Saludos,
Jonathan.

he verificado los puntos 1 y 2 accediendo directamente a la URL de la CRL que trae el certificado el cual descarga un archivo .crl, y le modifiqué el tiempo de espera, pero aun asi me sigue presentando el mismo mensaje “RevocationStatusUnknown – La función de revocación no puede comprobar la revocación para el certificado.”

Por otro lado tambien estoy intentando firmar con el ejemplo tuyo, pero todos los certificados que posee mi maquina requieren password, no encontre en el ejemplo como le paso el password, le agradezco si me puede por favor indicar como hacerlo.

saludos

• La PC donde está corriendo la aplicación no tiene conexión a internet
• El servidor donde está la lista está caido o ya no existe
• Demora mucho en obtener la lista. Para esto puedes aumentar el tiempo modificando la propiedad UrlRetrievalTimeout asi: objChain.ChainPolicy.UrlRetrievalTimeout = new TimeSpan(0, 3, 0);

Cualquier otra consulta no dudes en escribirnos.
Suerte!

estoy realizando la validación del certificado, pero después de correr el codigo me muestra el siguiente mensaje:
“RevocationStatusUnknown – La función de revocación no puede comprobar la revocación para el certificado”

que puede estar pasando… entre los parametros se encuentra objChain.ChainPolicy.RevocationMode = X509RevocationMode.Online; que tiene que ver con la CRL pero en donde le puedo decir la URL en la cual debe buscar la CRL o como se hace esta parte.

muchas gracias de antemano.

saludos…