Programa Para Fazer A Assinatura Para Certificados A3 Em C#

[rtkuca]

Pessoal Boa tarde,

testei todos os programas todos me retornam os mesmo 344 caracteres, mas na hora de eu assinar junto ao SAT me retorna sempre o mesmo erro 13004 "CNPJ da Software House + CNPJ do emitente assinado no campo 'signAC' difere do informado no campo 'CNPJvalue'

usando o linker manager 

o que pode ser?

[Marcelo Moya Dias]

'Para quem quiser, segue um exemplo em VB.NET que gera a chave para certificados A3.

'Caso o certificado não possua CNPJ no subject, localizar pelo número serial.

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Collections
Imports System.Security
Imports System.Security.Cryptography
Imports System.Security.Cryptography.X509Certificates
Imports System.Security.Cryptography.Pkcs
Imports System.Security.Cryptography.Xml
Imports System.Xml
Imports System.Xml.Schema

 

   Private Function GetChaveSAT(CNPJSoftwareHouse As String, CNPJEstbComercial As String) As String

        'Procura pelo certificado da sofwarehouse no repositório do Windows
        Dim cert As X509Certificate2 = FindCertOnStore(CNPJEstbComercial)

        'Se não achar o certificado, finaliza
        If cert Is Nothing Then
            MessageBox.Show("Certificado não encontrado")
            Return ""
        End If

        'Cria chave criptografada
        Dim rsa As RSACryptoServiceProvider = cert.PrivateKey
        Dim data As Byte() = Encoding.UTF8.GetBytes(CNPJSoftwareHouse + CNPJEstbComercial)
        Dim sig As Byte() = rsa.SignData(data, "SHA256")
        Dim base64sign As String = Convert.ToBase64String(sig)

        Return base64sign

    End Function

    Private Function FindCertOnStore(CNPJ As String) As X509Certificate

        Dim st As New X509Store(StoreLocation.CurrentUser)
        st.Open(OpenFlags.ReadOnly)
        For Each cert As X509Certificate In st.Certificates
            If cert.Subject.IndexOf(CNPJ) > -1 Then
                Return cert
            End If
        Next

        Return Nothing

    End Function

'E se for A1, mais fácil ainda:

 Private Function GetChaveSAT(CNPJSoftwareHouse As String, CNPJEstbComercial As String) As String

        'Cria o certificado A1
        Dim cert As New X509Certificate2("C:\meucertificado.pfx", "senha1234")

        'Se não achar o certificado, finaliza
        If cert Is Nothing Then
            MessageBox.Show("Certificado não encontrado")
            Return ""
        End If

        'Cria chave criptografada
        Dim rsa As RSACryptoServiceProvider = cert.PrivateKey
        Dim data As Byte() = Encoding.UTF8.GetBytes(CNPJSoftwareHouse + CNPJEstbComercial)
        Dim sig As Byte() = rsa.SignData(data, "SHA256")
        Dim base64sign As String = Convert.ToBase64String(sig)

        Return base64sign

    End Function

 

[ReginaldoSilva]

pessoal testei aqui e aque funcionou comigo e passou no teste de validade do site do sefaz foi a SatCVSign.zip

Parabéns.