Returning Invalid Algorithm Specified error, when will it be signed, how to proceed?
Dim data = Encoding.UTF8.GetBytes(Me.txtCNPJEmpresa.Text + Me.txtCNPJSoftwareHouse.Text)
Dim csp As RSACryptoServiceProvider = DirectCast(Certificado.PrivateKey, RSACryptoServiceProvider)
Dim sha As SHA256 = SHA256Managed.Create()
Dim hash As Byte() = New Byte() {}
hash = sha.ComputeHash(data)
Dim encrypted As Byte() = csp.SignHash(hash, "SHA256")
There are several possible causes; however the most common is when the issued certificate does not support the desired signature algorithm.
To verify, open the certificate and select Detalhes . The following must be present:
If necessary, re-issue the certificate with the SHA256 signing algorithm support.
Try this.
Dim csp As SHA256 = DirectCast (Certificate.PrivateKey, SHA256CryptoServiceProvider)
I can not test now, but I think it's conflicting in the application RSA x SHA256.
Look at this simple example, by running the SHA256 directly in a text, debug the methods to add the certificate, in this case, the right certificate id? to use as a keyword.
Private Function Encriptar(ByVal TextoEncriptar As String) As String
Dim TextoEncriptado As String
Dim TextoBytes() As Byte
'Saber os Bytes do texto a encriptar
TextoBytes = System.Text.Encoding.Unicode.GetBytes(TextoEncriptar)
'Nova Instancia SHA256
Dim HashSha As New SHA256Managed
'Calcular hash do texto em bytes
TextoBytes = HashSha.ComputeHash(TextoBytes)
'Converter o array de bytes
TextoEncriptado = Convert.ToBase64String(TextoBytes)
Return TextoEncriptado
End Function