Como mostra o requerente do certificado digital?

[w0000]

Prezado colegas da ACBr, boa tarde!

Por favor alguém poderia me dar um help?   

Estou com a seguinte duvida:

Como mostra o requerente do certificado digital?
Exemplo:
Requerente: CN=XX RAZAO SOCIAL LTDA:12345678901234, OU=12345678901234, OU=RFB e-CNPJ A1, OU=Secretaria da Receita Federal do Brasil - RFB, L=Barueri, S=SP, O=ICP-Brasil, C=BR

Por favor alguém poderia me dar um help? Como mostra o requerente do certificado digital, no formato do exemplo acima?
Desde já agradeço. Obrigado.

 

[BigWings]

3 minutos atrás, w0000 disse:

Por favor alguém poderia me dar um help? Como mostra o requerente do certificado digital, no formato do exemplo acima?

No programa exemplo do componente ACBrNFe tem exemplo de como obter as informações do certificado.

[w0000]

Prezado BigWings, boa noite!

Desculpe o incomodo, mas nos exemplos achei diversas propriedades, mas não encontrei como mostra o requerente do certificado digital.

Por favor alguém poderia me dar um help?

Como mostra o requerente do certificado digital?
Formato que preciso:
Requerente: CN=XX RAZAO SOCIAL LTDA:12345678901234, OU=12345678901234, OU=RFB e-CNPJ A1, OU=Secretaria da Receita Federal do Brasil - RFB, L=Barueri, S=SP, O=ICP-Brasil, C=BR

Desde já agradeço. Obrigado.

[BigWings]

14 minutos atrás, w0000 disse:

Desculpe o incomodo, mas nos exemplos achei diversas propriedades, mas não encontrei como mostra o requerente do certificado digital.

Pela opção "Subject Name" ou "Leitura de X509"

[w0000]

Prezado BigWings, boa tarde!

Desculpe o incomodo, fiz exatamente como orientado.

Está apresentando o seguinte erro: "CarregarCertificadoDeNumeroSerie" não suportado em: TDFeSSLCryptClass.

Código fonte:

//Certificado - SubjectName - Mostrar requerente
   Label15.Caption := (ACBrNFe1.SSL.CertSubjectName + sLineBreak + sLineBreak +
                                        'Razão Social: ' + ACBrNFe1.SSL.CertRazaoSocial);
   Edit1.Text      := (ACBrNFe1.SSL.CertSubjectName + sLineBreak + sLineBreak +
                                 'Razão Social: ' + ACBrNFe1.SSL.CertRazaoSocial);

Por favor alguém poderia me dar um help? O que esta´errado no código fonte acima?

Desde já agradeço. Obrigado.

[Juliomar Marchetti]

Antes de efetuar essa chamada tu configurou no ACBrNFe.Configuracoes.Geral.SSLib ???

[w0000]

Prezado Juliomar Marchetti, boa noite!

Obrigado pela atenção. Configurei sim o SSLib.

Veja o código fonte abaixo: (*Em verde a configuração do SSLib e em vermelho onde está com erro)

procedure TFTestaCertificadoDigital.SpeedButton1Click(Sender: TObject);
var
   A: TDFeSSL;
begin
     //Linpa Label´s e Edit
     Label3.Caption  := '';
     Label5.Caption  := '';
     Label7.Caption  := '';
     Label9.Caption  := '';
     Label11.Caption := '';
     Label13.Caption := '';
     Label15.Caption := '';
     Edit1.Text      := '';
     //Configura SSLib
     A               := TDFeSSL.Create;
     A.SSLCryptLib   := cryWinCrypt;
     A.SSLXmlSignLib := xsLibXml2;
     A.SSLType       := LT_TLSv1_2;
     A.SSLDgst       := dgstSHA256;
     {//*Antes de tudo tem que configurar o SSLib (ACBrNFe.Configuracoes.Geral.SSLib para poder usar . preferencia use libWinCrypt}

     //Abre tela para selecionar o Certificado
     A.SelecionarCertificado;
     //Move o número de série selecionado
     ACBrNFe1.Configuracoes.Certificados.NumeroSerie := A.NumeroSerie;
     //Numero de Série do Certificado
     Label3.Caption := ACBrNFe1.Configuracoes.Certificados.NumeroSerie;
     //Razão Social (Normalmente é: Razão Social:CNPJ)
     Label5.Caption := A.CertRazaoSocial;
     //Titular SubjectName
     Label7.Caption := A.CertSubjectName;
     //CNPJ
     Label9.Caption := A.CertCNPJ;
     //Certificadora
     Label11.Caption := A.CertCertificadora;
     //Validade
     Label13.Caption := DateTimeToStr(A.CertDataVenc);
     //Certificado - SubjectName //Mostrar requerente
     Label15.Caption := (ACBrNFe1.SSL.CertSubjectName + sLineBreak + sLineBreak +
                           'Razão Social: ' + ACBrNFe1.SSL.CertRazaoSocial);
     Edit1.Text      := (ACBrNFe1.SSL.CertSubjectName + sLineBreak + sLineBreak +
                           'Razão Social: ' + ACBrNFe1.SSL.CertRazaoSocial);
     try
       ShowMessage ('Certificado Digital carregado com sucesso.');
       //VER VALIDADE DO CERTIFICADO
       if StringToDateTime(Label13.Caption) < date then
          ShowMessage('ERRO: O "Certificado Digital" ESTÁ VENCIDO.' +#13+
                      '      Venceu em: '+ Label13.Caption +#13+
                      '      Favor RENOVAR o seu "Certificado Digital".');
       //AVISO DE VENCIMENTO DO CERTIFICADO COM 30 DIAS ANTES
       if (Date) > (StringToDateTime(Label13.Caption) -30) then
          ShowMessage('ALERTA: O "Certificado Digital" vencerá em: ' +
                      Label13.Caption +#13+
                      '        Providenciar a RENOVAÇÃO do seu "Certificado Digital".' +#13+
                      '        Após a instação do novo Certificado Digital, atualize no sistema BNET".');
     finally
       //
     end;
     A.Free;
end;

Está apresentando o seguinte erro: "CarregarCertificadoDeNumeroSerie" não suportado em: TDFeSSLCryptClass.

Por favor alguém poderia me dar um help? O que está errado no código fonte acima?

Desde já agradeço. Obrigado.

[Rafael Dias]

Cara tu tem que configurar o SSL no componente e não em uma classe a parte, se configurou na classe a parte usar ela para ler os dados.

[w0000]

Prezado Rafael Dia, boa tarde!

Obrigado pela ajuda. deu certo conforme sua orientação.

//Configurar o SSL no componente e não em uma classe a parte
     ACBrNFe1.Configuracoes.Geral.SSLCryptLib       := cryWinCrypt;
     ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib  := xsLibXml2;
     ACBrNFe1.Configuracoes.WebServices.SSLType := LT_TLSv1_2;

Mais uma vez obrigado.

[w0000]

Prezado colegas da ACBr, boa tarde!

Por favor alguém poderia me dar um help?   

Estou com a seguinte duvida:

Como mostra o requerente do certificado digital?
Exemplo:
Requerente: CN=XX RAZAO SOCIAL LTDA:12345678901234, OU=12345678901234, OU=RFB e-CNPJ A1, OU=Secretaria da Receita Federal do Brasil - RFB, L=Barueri, S=SP, O=ICP-Brasil, C=BR

Por favor alguém poderia me dar um help? Como mostra o requerente do certificado digital, no formato do exemplo acima?
Desde já agradeço. Obrigado.

 

[Juliomar Marchetti]

Em 21/05/2020 at 20:00, BigWings disse:

Pela opção "Subject Name" ou "Leitura de X509"

Ele te explicou aqui. tu olhu o exemplo?

[w0000]

Prezado Juliomar Marchetti, boa tarde!

Em primeiro ligar, lhe agradeço pela atenção.

Realmente:

No "Subject name"

ShowMessage(ACBrANe1.SSL.CertSubjectName + sLineBreak + sLineBreak +
                             'Razão Social: ' + ACBrANe1.SSL.CertRazaoSocial);

No "Leitura X509"

with ACBrANe1.SSL do
begin
     CarregarCertificadoPublico(MemoDados.Lines.Text);
     MemoResp.Lines.Add(CertIssuerName);
     MemoResp.Lines.Add(CertRazaoSocial);
     MemoResp.Lines.Add(CertCNPJ);
     MemoResp.Lines.Add(CertSubjectName);
     MemoResp.Lines.Add(CertNumeroSerie);

     pgRespostas.ActivePageIndex := 0;
end;

O dados mostrados no "SubjectName" e no "Leitura x509" acima descritos, estão em ordem diversa da que preciso.

Preciso que a ordem seja igual ao que é mostrado no Intente Explorer, no campo requente do certificado digital.

Exemplo:
Requerente: CN=XX RAZAO SOCIAL LTDA:12345678901234, OU=12345678901234, OU=RFB e-CNPJ A1, OU=Secretaria da Receita Federal do Brasil - RFB, L=Barueri, S=SP, O=ICP-Brasil, C=BR

Por favor alguém poderia me dar um help?

Como mostrar em um Edit.text o campo "requerente" do certificado digital, na mesma ordem que é mostrado no Internet Explorer?

Desde já agradeço. Obrigado.

 

[BigWings]

1 hora atrás, w0000 disse:

Como mostrar em um Edit.text o campo "requerente" do certificado digital, na mesma ordem que é mostrado no Internet Explorer?

Aparentemente é só pegar o resultado de ACBrNFe1.SSL.CertSubjectName e inverter a ordem.

Por que precisa que seja a mesma ordem mostrada no IE?

[w0000]

Prezado colegas da ACBr, boa tarde!

Por favor alguém poderia me dar um help?   

Estou com a seguinte duvida:

Como mostra o requerente do certificado digital na mesma ordem do Internet Explorer?

Código fonte utilizado
Edit1.Text := (sLineBreak +
               sLineBreak +
               A.CertSubjectName +
               A.CertRazaoSocial);

DADOS CAPTURADO NO EDIT1 ACIMA:
===============================
C=BR,
O=ICP-Brasil,
S=SP,
L=Barueri,
OU=Secretaria da Receita Federal do Brasil - RFB,
OU=RFB e-CNPJ A1,
OU=12345678901234,
CN=EMPRESA TESTE LTDA:12345678901234

DADOS QUE PRECISO - EXIBIR NO EDIT1 EXATAMENTE NA ORDEM ABAIXO:
===============================================================
CN = EMPRESA TESTE LTDA:12345678901234
OU = 12345678901234
OU = RFB e-CNPJ A1
OU = Secretaria da Receita Federal do Brasil - RFB
L = Barueri
S = SP
O = ICP-Brasil
C = BR

Por favor alguém poderia me dar um help? Como mostra o requerente do certificado digital na mesma ordem do Internet Explorer?

Preciso que seja nesta ordem, porque infelizmente tenho que interagir com outro sistema, onde a chave é esta ordem que preciso.
Desde já agradeço. Obrigado.

[Juliomar Marchetti]

Veja ele respondeu acima e até fez uma pergunta.

Em 25/05/2020 at 16:52, BigWings disse:

Aparentemente é só pegar o resultado de ACBrNFe1.SSL.CertSubjectName e inverter a ordem.

Por que precisa que seja a mesma ordem mostrada no IE?

já fez o que ele sugeriu? jogou em uma sei lá TStringList e depois leu ao contrário mudando a ordem?

[BigWings]

Configurando SSLCryptLib como cryCapicom também deve retornar em ordem invertida.