Wie rufe ich den Standard-Windows-Bildschirm auf, um ein Zertifikat auszuwählen?

Question

THTTPRIO-Komponente, in der HTTPWebNode -Eigenschaft, wenn Sie in ClientCertificate klicken, öffnet Delphi ein Formular, um das Zertifikat auszuwählen und seine Informationen in den Eigenschaften der Komponente zu laden. Ist das ein Windows-Bildschirm? Wenn ja, wie kann ich es benutzen? Heute verwende ich SecureBlackBox, um die Zertifikate in einer Combobox zu laden, aber ich würde gerne wissen, ob es möglich ist, diesen Bildschirm zu verwenden. Dank

UPDATE

konnte ich den Dialog zeigen, die ms Funktion CryptUIDlgSelectCertificateFromStore Verwendung JWAPI verwenden. Jetzt habe ich Probleme mit dem Ergebnis der Funktion, der PCCERT_CONTEXT-Struktur.

var 
    P: Pointer; 
    Context: PCCERT_CONTEXT; 
    Issuer: DATA_BLOB; 

    function GetDataBlobText(Data: DATA_BLOB): string; 
    begin 
    SetString(Result, PAnsiChar(Data.pbData), Data.cbData div SizeOf(AnsiChar)); 
    end; 

begin 
    P := CertOpenSystemStore(0, 'MY'); 
    Context := CryptUIDlgSelectCertificateFromStore(P, 0, PChar('test'), nil, CRYPTUI_SELECT_ISSUEDTO_COLUMN, 0, nil); 
    if Context <> nil then 
    begin 
    Issuer := Context.pCertInfo.Issuer; 
    ShowMessage((GetDataBlobText(Issuer))); 
    end; 
end; 

Das Ergebnis in Showmessage ist:

UPDATE2

Dank @RbMm. Um Zeichenfolge von ASN Codierung Felder (Issuer und Betreff)

var 
    P: Pointer; 
    Context: PCCERT_CONTEXT; 
    Subject: DATA_BLOB; 
    SubjectStr: string; 
    size : Cardinal; 
begin 
    P := CertOpenSystemStore(0, PAnsiChar('MY')); 
    Context := CryptUIDlgSelectCertificateFromStore(P, 0, 'test', 'select certificate', 
    CRYPTUI_SELECT_ISSUEDTO_COLUMN, 0, nil); 
    if Context <> nil then 
    begin 
    Subject := Context.pCertInfo.Subject; 
    size := CertNameToStr(X509_ASN_ENCODING or PKCS_7_ASN_ENCODING, @Subject, CERT_X500_NAME_STR, 0, 0); 
    SetString(SubjectStr, PAnsiChar(Subject.pbData), size); 
    CertNameToStr(X509_ASN_ENCODING or PKCS_7_ASN_ENCODING, @Subject, CERT_X500_NAME_STR, PAnsiChar(SubjectStr), size); 
    Result := SubjectStr; 
    end; 

Um die Zeichenfolge von Rohdatenblock (Serial) zu erhalten:

var 
    SerialNumber: CRYPT_INTEGER_BLOB; 
    size : Cardinal; 
    s: PWideChar; 
    ss: string; 
begin 
SerialNumber := Context.pCertInfo.SerialNumber; 
CryptBinaryToStringW(SerialNumber.pbData, SerialNumber.cbData, CRYPT_STRING_HEX, nil, size); 
s := AllocMem(SizeOf(Char) * size); 
CryptBinaryToStringW(SerialNumber.pbData, SerialNumber.cbData, CRYPT_STRING_HEX, s, size); 
ss := s; 
showmessage(ss); 
FreeMem(s, SizeOf(Char) * size); 

Answer 1

alle Daten Blobs in Zertifikat verschlüsselt. also musst du es entschlüsseln. im Allgemeinen mit CryptDecodeObjectEx api. jedoch für Issuer (d. h. CERT_NAME_BLOB) dekodieren Sie können auch CertNameToStrW verwenden. Erst nachdem ein codierter Name in einer Struktur CERT_NAME_BLOB in eine mit Null abgeschlossene Zeichenkette konvertiert wurde, können Sie sie drucken. Codebeispiel auf c/C++:

void PrintIssuer(PCCERT_CONTEXT Context) 
{ 
    CERT_NAME_BLOB Issuer = Context->pCertInfo->Issuer; 

    // option #1 
    if (ULONG len = CertNameToStrW(X509_ASN_ENCODING | PKCS_7_ASN_ENCODING, &Issuer, CERT_X500_NAME_STR, 0, 0)) 
    { 
     PWSTR sz = (PWSTR)alloca(len * sizeof(WCHAR)); 

     if (CertNameToStrW(X509_ASN_ENCODING | PKCS_7_ASN_ENCODING, &Issuer, CERT_X500_NAME_STR, sz, len)) 
     { 
      DbgPrint("%S\n", sz); 
     } 
    } 

    // option #2 
    PCERT_NAME_INFO pcni; 
    ULONG size; 

    if (CryptDecodeObjectEx(X509_ASN_ENCODING | PKCS_7_ASN_ENCODING, X509_NAME, Issuer.pbData, Issuer.cbData, 
     CRYPT_DECODE_ALLOC_FLAG, 0, &pcni, &size)) 
    { 
     if (DWORD cRDN = pcni->cRDN) 
     { 
      PCERT_RDN rgRDN = pcni->rgRDN; 
      do 
      { 
       if (DWORD cRDNAttr = rgRDN->cRDNAttr) 
       { 
        PCERT_RDN_ATTR rgRDNAttr = rgRDN->rgRDNAttr; 
        do 
        { 
         DbgPrint("ObjId = %s\n", rgRDNAttr->pszObjId); 

         switch (rgRDNAttr->dwValueType) 
         { 
         case CERT_RDN_PRINTABLE_STRING: 
          DbgPrint("Value = %s\n", rgRDNAttr->Value.pbData); 
          break; 
         } 

        } while (rgRDNAttr++, --cRDNAttr); 
       } 

      } while (rgRDN++, --cRDN); 
     } 

     LocalFree(pcni); 
    } 
} 

und Ausgang

CN=*** 
ObjId = 2.5.4.3 
Value = *** 

(die Zeichenfolge nach CN = und Wert = das gleiche ist)

können Sie beachten, dass "2.5.4.3" ist szOID_COMMON_NAME oder "CN". also zuerst api wird angehängt CN = vor Ausstellernamen. zweite Variante Rückkehr Sie benennen und weitere ObjId = 2.5.4.3

---

konvertieren Serial in druckbare Zeichenfolge kann neben Art und Weise:

CRYPT_INTEGER_BLOB SerialNumber = Context->pCertInfo->SerialNumber; 
DWORD cb = 0; 
if (CryptBinaryToStringW(SerialNumber.pbData, SerialNumber.cbData, CRYPT_STRING_HEX, 0, &cb)) 
{ 
    PWSTR sz = (PWSTR)alloca(cb * sizeof(WCHAR)); 
    if (CryptBinaryToStringW(SerialNumber.pbData, SerialNumber.cbData, CRYPT_STRING_HEX, sz, &cb)) 
    { 
     DbgPrint("%S\n", sz); 
    } 
}