Como obtenho o segundo certificado de um arquivo .p12

[williamero]

Boa noite, Pessoal!

Como devo proceder?

Como obtenho o segundo certificado de um arquivo .p12 na biblioteca libeay32.dll, pois a função PKCS12_parse (p12, PAnsiChar (Senha), FPrivKey, FCert, Fca) sempre me traz o primeiro certificado.

Obrigado pela ajuda

[Daniel Simoes]

Provavelmente eles estão em Fca 

https://www.openssl.org/docs/manmaster/man3/PKCS12_parse.html

STACK_OF(X509)

https://zakird.com/2013/10/13/certificate-parsing-with-openssl

procure por: "Misordered Certificate Chains"

[williamero]

Muito obrigado

Editado 1 Dezembro, 2019 por williamero

[williamero]

https://www.openssl.org/docs/manmaster/man3/PKCS12_parse.html

BUGS

Only a single private key and corresponding certificate is returned by this function. More complex PKCS#12 files with multiple private keys will only return the first match.

 

[williamero]

9 horas atrás, Daniel Simoes disse:

Provavelmente eles estão em Fca 

https://www.openssl.org/docs/manmaster/man3/PKCS12_parse.html

STACK_OF(X509)

https://zakird.com/2013/10/13/certificate-parsing-with-openssl

procure por: "Misordered Certificate Chains"

Muito obrigado pela vossa ajuda.
  Por favor, como faço para transformar isso em pascal?

https://zakird.com/2013/10/13/certificate-parsing-with-openssl

 "Misordered Certificate Chains"

  STACK_OF(X509) *r_sk = sk_X509_new_null();
  sk_X509_push(r_sk, sk_X509_value(st, 0));
  for (int i=1; i < sk_X509_num(st); i++) {
      X509 *prev = sk_X509_value(r_sk, i-1);
      X509 *next = NULL;
      for (int j=1; j < sk_X509_num(st); j++) {
              X509 *cand = sk_X509_value(st, j);
              if (!X509_NAME_cmp(cand->cert_info->subject, prev->cert_info->issuer)
                              || j == sk_X509_num(st) - 1) {
                      next = cand;
                      break;
              }
      }
      if (next) {
              sk_X509_push(r_sk, next);
      } else {

              sk_X509_free(r_sk);
              r_sk = sk_X509_dup(st);
              break;
      }
  }
 

[Daniel Simoes]

Não será simples... o primeiro passo é verificar se seus "Binds" em pascal, possuem esses métodos indicados...

Se você não precisar usar OpenSSL... na Unit ACBrDFeWinCrypt.pas,  tem o método:

procedure AddCertContexToStoreMemory(NewCertContext: PCCERT_CONTEXT);

que faz algo semelhante...

 

 

[williamero]

1 hora atrás, Daniel Simoes disse:

Não será simples... o primeiro passo é verificar se seus "Binds" em pascal, possuem esses métodos indicados...

Se você não precisar usar OpenSSL... na Unit ACBrDFeWinCrypt.pas,  tem o método:

procedure AddCertContexToStoreMemory(NewCertContext: PCCERT_CONTEXT);

que faz algo semelhante...

 

 

Muito obrigado pela vossa ajuda.
Vou verificar,  

Unit ACBrDFeWinCrypt.pas,   método:

procedure AddCertContexToStoreMemory(NewCertContext: PCCERT_CONTEXT);

 

 

Editado 2 Dezembro, 2019 por williamero