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)
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)
Saludos y gracias de antemano.