FUNCIONA: (pero tengo que instalar OpenSSL)
Código: Seleccionar todo
Dim privateCert As New X509Certificate2(ArchivoPFX, Password, X509KeyStorageFlags.Exportable)
Dim privateKey1 As New RSACryptoServiceProvider()
Dim privateKey As New RSACryptoServiceProvider = DirectCast(privateCert.PrivateKey, RSACryptoServiceProvider)
NO FUNCIONA: Me da sello inválido
Código: Seleccionar todo
Dim privateCert As New X509Certificate2(ArchivoCer, Password, X509KeyStorageFlags.Exportable)
Dim privateKey1 As New RSACryptoServiceProvider()
Dim privateKey As New RSACryptoServiceProvider ' = DirectCast(privateCert.PrivateKey, RSACryptoServiceProvider)
En vez de ArchivoPFX usar solo el Certificado (.cer) y la Llave Privada (.key) para evitar instalar OpenSSL
Saludos y gracias de antemano.