RSAPKCS1SHA256SignatureDescription in VB.NET

Imports System
Imports System.Security.Cryptography
Imports System.Security.Cryptography.Xml
Imports System.Security.Cryptography.X509Certificates
Imports System.Text
Imports System.Xml
Imports System.Collections
Imports System.Reflection

Public Class RSAPKCS1SHA256SignatureDescription
    Inherits SignatureDescription

    Public Sub RSAPKCS1SHA256SignatureDescription()
        KeyAlgorithm = GetType(RSACryptoServiceProvider).FullName
        DigestAlgorithm = GetType(SHA256Managed).FullName   ' Note - SHA256CryptoServiceProvider is not registered with CryptoConfig
        FormatterAlgorithm = GetType(RSAPKCS1SignatureFormatter).FullName
        DeformatterAlgorithm = GetType(RSAPKCS1SignatureDeformatter).FullName
    End Sub



    Public Overrides Function CreateDeformatter(key As AsymmetricAlgorithm) As AsymmetricSignatureDeformatter
        If key Is Nothing Then
            Throw New ArgumentNullException("key")
        End If

        Dim deformatter As RSAPKCS1SignatureDeformatter = New RSAPKCS1SignatureDeformatter(key)
        deformatter.SetHashAlgorithm("SHA256")
        Return deformatter
    End Function

    Public Overrides Function CreateFormatter(key As AsymmetricAlgorithm) As AsymmetricSignatureFormatter
        If key Is Nothing Then
            Throw New ArgumentNullException("key")
        End If

        Dim formatter As RSAPKCS1SignatureFormatter = New RSAPKCS1SignatureFormatter(key)
        formatter.SetHashAlgorithm("SHA256")
        Return formatter
    End Function
End Class