Assinatura A1 sem PFX e A3

[Joceandro Perin]

Boa tarde amigos..

Estou tentando encontrar uma solução que consiga usar A1 sem PFX e o A3 que no momento ainda não testei.. Atualmente só consigo usando o A1 com PFX..

Ao fazer assinatura com A1 sem PFX, está me retornando o seguinte..

'O Provedor de Criptografia não suporta o algoritmo: dgstSHA256 , erro: $80090008'

estou usando a seguinte configuração conforme exemplo do amigo @Paulo Aguiar Junior

with eSocial.Configuracoes do
begin
  if (Trim(cds.AsStr('ARQUIVOPFX')) <> '') then
  begin
    Geral.SSLLib             := libOpenSSL;
    Geral.SSLHttpLib         := httpWinHttp;
    Certificados.ArquivoPFX  := cds.AsStr('ARQUIVOPFX');
    Certificados.Senha       := cds.AsStr('SENHACERTIFICADO');
  end
  else
  begin
    Geral.SSLLib             := libCustom;
    Geral.SSLHttpLib         := httpWinHttp;
    Geral.SSLCryptLib        := cryWinCrypt;
    Geral.SSLXmlSignLib      := xsLibXml2;
    Certificados.NumeroSerie := cds.AsStr('CERTIFICADO');
    Certificados.Senha       := cds.AsStr('SENHACERTIFICADO');
  end;
end;

 

Edited February 27, 2018 by Joceandro Perin

[Paulo Aguiar Junior]

4 minutos atrás, Joceandro Perin disse:

Boa tarde amigos..

Estou tentando encontrar uma solução que consiga usar A1 sem PFX e o A3 que no momento ainda não testei.. Atualmente só consigo usando o A1 com PFX..

Ao fazer assinatura com A1 sem PFX, está me retornando o seguinte..

'O Provedor de Criptografia não suporta o algoritmo: dgstSHA256 , erro: $80090008'

estou usando a seguinte configuração conforme exemplo do amigo @Paulo Aguiar Junior

with eSocial.Configuracoes do
begin
  if (Trim(cds.AsStr('ARQUIVOPFX')) <> '') then
  begin
    Geral.SSLLib             := libOpenSSL;
    Geral.SSLHttpLib         := httpWinHttp;
    Certificados.ArquivoPFX  := cds.AsStr('ARQUIVOPFX');
    Certificados.Senha       := cds.AsStr('SENHACERTIFICADO');
  end
  else
  begin
    Geral.SSLLib             := libCustom;
    Geral.SSLHttpLib         := httpWinHttp;
    Geral.SSLCryptLib        := cryWinCrypt;
    Geral.SSLXmlSignLib      := xsLibXml2;
    Certificados.NumeroSerie := cds.AsStr('CERTIFICADO');
    Certificados.Senha       := cds.AsStr('SENHACERTIFICADO');
  end;
end;

 

Boa tarde!

Você fez o update do repositório?

Componente.Configuracoes.Geral.SSLLib        := libCustom;
Componente.Configuracoes.Geral.SSLHttpLib    := httpWinHttp;
Componente.Configuracoes.Geral.SSLCryptLib   := cryWinCrypt;
Componente.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;

Componente.Configuracoes.Certificados.NumeroSerie := dmESocial.qryCertificadoDigital.FieldByName('NR_SERIE').AsString;

 

Estou utilizando assim, e está funcionando perfeitamente, inclusive, o Rafael disse que o PFX também funciona com essa config...

[Joceandro Perin]

Conferi aqui e está tudo atualizado.. Existe alguma dll que precisa registrar?

[Rafael Dias]

@Joceandro Perin se instalou o PFX precisa marcar o mesmo como exportavel senão vai dar erro.

[Joceandro Perin]

1 minuto atrás, Rafael Dias disse:

@Joceandro Perin se instalou o PFX precisa marcar o mesmo como exportavel senão vai dar erro.

Certo, vou tentar instalar ele novamente..

[EdmarFrazao]

Também estou usando assim agora.

Componente.Configuracoes.Geral.SSLLib        := libCustom;
Componente.Configuracoes.Geral.SSLHttpLib    := httpWinHttp;
Componente.Configuracoes.Geral.SSLCryptLib   := cryWinCrypt;
Componente.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;

 

em alguns computadores tive que copiar as dlls da pasta acbr

OpenSSL

XMLSec

LibXml2

[Joceandro Perin]

30 minutos atrás, Rafael Dias disse:

@Joceandro Perin se instalou o PFX precisa marcar o mesmo como exportavel senão vai dar erro.

Era isso, tinha que instalar usando como exportável, instalei de novo e deu certo..

Obrigado galera pela ajuda.. Agora próximo passo irei testar o A3..

[ROBERTO COUTO DOS SANTOS]

Joceandro, você conseguiu transmitir utilizando o A3?

 

[Joceandro Perin]

8 horas atrás, ROBERTO COUTO DOS SANTOS disse:

Joceandro, você conseguiu transmitir utilizando o A3?

 

Consegui sim, somente no windows server 2003 que não consegui..

Edited May 30, 2018 by Joceandro Perin