Nº série certificado errado

[jcmferreira]

Boa tarde pessoal!

Por acaso, alguém já se deparou com um problema na hora de carregar os dados do certificado digital? Em nosso sistema, um único cliente está tendo esse problema.

No cadastro do empregador, alguns dados do certificado, após a sua carga, são salvos no banco de dados. Isso inclui CNPJ/CPF, razão/nome, data de validade e o número de série.

Acontece que na nossa rotina, o número de série fica mudando e em alguns casos, vem uma cadeia de zeros, como se a leitura não houvesse sido feita com sucesso.

Essa é a forma como estamos carregando o certificado e lendo seus dados:

mAcbr.Configuracoes.Geral.SSLLib := libOpenSSL;
mAcbr.Configuracoes.Geral.SSLXmlSignLib := xsXmlSec;
mAcbr.Configuracoes.Certificados.Senha := GetCertSenha;
mAcbr.SSL.DadosPFX := ReadStrFromStream( cert, cert.Size ); //  cert é o objeto Stream do certificado.

try
  mAcbr.SSL.CarregarCertificado;
except on E: Exception do
  SendErrorResponse( e.Message );
end;

Após instalar o certificado no Windows, o número de série exibido é: 55a2808e817b47001285bba956b709a9

Via ACBr, fica alterando os valores: 55A2808E817B47003200630048005300 e 55A2808E817B470069006E0064006F00

Outro detalhe, a data de validade vem com a hora errada.

Agradeço antecipadamente pela ajuda de todos!

[Paulo Aguiar Junior]

Boa tarde,

Aqui no sistema estamos fazendo diferente, a gente atribui apenas o caminho do PFX e a senha para o AcBr, e o mesmo se encarrega de obter os dados.

Temos dezenas de clientes utilizando com PFX e não ocorreu problema em nenhum...

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

Componente.Configuracoes.Certificados.Senha := TMetodos.fncCriptografia(Descriptografar, dmESocial.qryCertificadoDigital.FieldByName('DS_SENHA').AsString);

[jcmferreira]

2 minutos atrás, Paulo Aguiar Junior disse:

Boa tarde,

Aqui no sistema estamos fazendo diferente, a gente atribui apenas o caminho do PFX e a senha para o AcBr, e o mesmo se encarrega de obter os dados.

Temos dezenas de clientes utilizando com PFX e não ocorreu problema em nenhum...

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

Componente.Configuracoes.Certificados.Senha := TMetodos.fncCriptografia(Descriptografar, dmESocial.qryCertificadoDigital.FieldByName('DS_SENHA').AsString);

Paulo, obrigado pelo retorno!

Pelo que vi do teu exemplo, não é tão diferente assim. No nosso caso, no lugar do arquivo PFX, informamos os dados dele, que são gravados no banco de dados da gente.

Aqui, temos mais de 100 clientes funcionando e alguns deles, desde a 1ª fase, sem nenhum problema. Apenas nesse, que adere agora na 2ª, aconteceu essa situação.

[Paulo Aguiar Junior]

É, não sei o que pode ser...

Outra diferença é que aqui estamos utilizando a xsLibXml2.