Security-55179.13.tar.gz

[apple/security.git] / libsecurity_keychain / lib / TrustAdditions.cpp

/*
 * Copyright (c) 2002-2009,2012 Apple Inc. All Rights Reserved.
 *
 * @APPLE_LICENSE_HEADER_START@
 *
 * This file contains Original Code and/or Modifications of Original Code
 * as defined in and that are subject to the Apple Public Source License
 * Version 2.0 (the 'License'). You may not use this file except in
 * compliance with the License. Please obtain a copy of the License at
 * http://www.opensource.apple.com/apsl/ and read it before using this
 * file.
 *
 * The Original Code and all software distributed under the License are
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
 * Please see the License for the specific language governing rights and
 * limitations under the License.
 *
 * @APPLE_LICENSE_HEADER_END@
 */

//
// TrustAdditions.cpp
//
#include "TrustAdditions.h"
#include "TrustKeychains.h"
#include "SecBridge.h"
#include <security_keychain/SecCFTypes.h>
#include <security_keychain/Globals.h>
#include <security_keychain/Certificate.h>
#include <security_keychain/Item.h>
#include <security_keychain/KCCursor.h>
#include <security_keychain/KCUtilities.h>

#include <sys/stat.h>
#include <sys/file.h>
#include <sys/unistd.h>
#include <string>
#include <AvailabilityMacros.h>
#include <CoreFoundation/CoreFoundation.h>
#include <CommonCrypto/CommonDigest.h>
#include <Security/Security.h>
#include <Security/cssmtype.h>
#include <Security/cssmapplePriv.h>            // for CSSM_APPLE_TP_OCSP_OPTIONS, CSSM_APPLE_TP_OCSP_OPT_FLAGS

#include "SecTrustPriv.h"
#include "SecTrustSettings.h"
#include "SecTrustSettingsPriv.h"

//
// Macros
//
#define BEGIN_SECAPI_INTERNAL_CALL \
        try {
#define END_SECAPI_INTERNAL_CALL \
        } /* status is only set on error */ \
        catch (const MacOSError &err) { status=err.osStatus(); } \
        catch (const CommonError &err) { status=SecKeychainErrFromOSStatus(err.osStatus()); } \
        catch (const std::bad_alloc &) { status=memFullErr; } \
        catch (...) { status=internalComponentErr; }

//
// Static constants
//
static const char *EV_ROOTS_PLIST_SYSTEM_PATH = "/System/Library/Keychains/EVRoots.plist";
static const char *SYSTEM_ROOTS_PLIST_SYSTEM_PATH = "/System/Library/Keychains/SystemRootCertificates.keychain";
static const char *X509ANCHORS_SYSTEM_PATH = "/System/Library/Keychains/X509Anchors";

//
// Static functions
//
static CFArrayRef _allowedRootCertificatesForOidString(CFStringRef oidString);
static CSSM_DATA_PTR _copyFieldDataForOid(CSSM_OID_PTR oid, CSSM_DATA_PTR cert, CSSM_CL_HANDLE clHandle);
static CFStringRef _decimalStringForOid(CSSM_OID_PTR oid);
static CFDictionaryRef _evCAOidDict();
static void _freeFieldData(CSSM_DATA_PTR value, CSSM_OID_PTR oid, CSSM_CL_HANDLE clHandle);
static CFStringRef _oidStringForCertificatePolicies(const CE_CertPolicies *certPolicies);
static SecCertificateRef _rootCertificateWithSubjectOfCertificate(SecCertificateRef certificate);
static SecCertificateRef _rootCertificateWithSubjectKeyIDOfCertificate(SecCertificateRef certificate);

// utility function to safely release (and clear) the given CFTypeRef variable.
//
static void SafeCFRelease(void *cfTypeRefPtr)
{
        CFTypeRef *obj = (CFTypeRef *)cfTypeRefPtr;
        if (obj && *obj) {
                CFRelease(*obj);
                *obj = NULL;
        }
}

// utility function to create a CFDataRef from the contents of the specified file;
// caller must release
//
static CFDataRef dataWithContentsOfFile(const char *fileName)
{
        int rtn;
        int fd;
        struct stat     sb;
        off_t fileSize;
        UInt8 *fileData = NULL;
        CFDataRef outCFData = NULL;

        fd = open(fileName, O_RDONLY, 0);
        if(fd < 0)
                return NULL;

        rtn = fstat(fd, &sb);
        if(rtn)
                goto errOut;

        fileSize = sb.st_size;
        fileData = (UInt8 *) malloc(fileSize);
        if(fileData == NULL)
                goto errOut;

        rtn = lseek(fd, 0, SEEK_SET);
        if(rtn < 0)
                goto errOut;

        rtn = read(fd, fileData, fileSize);
        if(rtn != (int)fileSize) {
                rtn = EIO;
        } else {
                rtn = 0;
                outCFData = CFDataCreate(NULL, fileData, fileSize);
        }
errOut:
        close(fd);
        if (fileData) {
                free(fileData);
        }
        return outCFData;
}

// returns a SecKeychainRef for the system root certificate store; caller must release
//
static SecKeychainRef systemRootStore()
{
    SecKeychainStatus keychainStatus = 0;
    SecKeychainRef systemRoots = NULL;
        OSStatus status = noErr;
        // note: Sec* APIs are not re-entrant due to the API lock
        // status = SecKeychainOpen(SYSTEM_ROOTS_PLIST_SYSTEM_PATH, &systemRoots);
        BEGIN_SECAPI_INTERNAL_CALL
        systemRoots=globals().storageManager.make(SYSTEM_ROOTS_PLIST_SYSTEM_PATH, false)->handle();
        END_SECAPI_INTERNAL_CALL

        // SecKeychainOpen will return noErr even if the file didn't exist on disk.
        // We need to do a further check using SecKeychainGetStatus().
    if (!status && systemRoots) {
                // note: Sec* APIs are not re-entrant due to the API lock
                // status = SecKeychainGetStatus(systemRoots, &keychainStatus);
                BEGIN_SECAPI_INTERNAL_CALL
                keychainStatus=(SecKeychainStatus)Keychain::optional(systemRoots)->status();
                END_SECAPI_INTERNAL_CALL
        }
    if (status || !systemRoots) {
            // SystemRootCertificates.keychain can't be opened; look in X509Anchors instead.
        SafeCFRelease(&systemRoots);
                // note: Sec* APIs are not re-entrant due to the API lock
        // status = SecKeychainOpen(X509ANCHORS_SYSTEM_PATH, &systemRoots);
                BEGIN_SECAPI_INTERNAL_CALL
                systemRoots=globals().storageManager.make(X509ANCHORS_SYSTEM_PATH, false)->handle();
                END_SECAPI_INTERNAL_CALL
        // SecKeychainOpen will return noErr even if the file didn't exist on disk.
                // We need to do a further check using SecKeychainGetStatus().
        if (!status && systemRoots) {
                        // note: Sec* APIs are not re-entrant due to the API lock
            // status = SecKeychainGetStatus(systemRoots, &keychainStatus);
                        BEGIN_SECAPI_INTERNAL_CALL
                        keychainStatus=(SecKeychainStatus)Keychain::optional(systemRoots)->status();
                        END_SECAPI_INTERNAL_CALL
                }
    }
    if (status || !systemRoots) {
                // Cannot get root certificates if there is no trusted system root certificate store.
        SafeCFRelease(&systemRoots);
        return NULL;
    }
        return systemRoots;
}

// returns a CFDictionaryRef created from the specified XML plist file; caller must release
//
static CFDictionaryRef dictionaryWithContentsOfPlistFile(const char *fileName)
{
        CFDictionaryRef resultDict = NULL;
        CFDataRef fileData = dataWithContentsOfFile(fileName);
        if (fileData) {
                CFPropertyListRef xmlPlist = CFPropertyListCreateFromXMLData(NULL, fileData, kCFPropertyListImmutable, NULL);
                if (xmlPlist && CFGetTypeID(xmlPlist) == CFDictionaryGetTypeID()) {
                        resultDict = (CFDictionaryRef)xmlPlist;
                } else {
                        SafeCFRelease(&xmlPlist);
                }
                SafeCFRelease(&fileData);
        }
        return resultDict;
}

// returns the Organization component of the given certificate's subject name,
// or nil if that component could not be found. Caller must release the string.
//
static CFStringRef organizationNameForCertificate(SecCertificateRef certificate)
{
    CFStringRef organizationName = nil;
        OSStatus status = noErr;

#if MAC_OS_X_VERSION_MAX_ALLOWED > MAC_OS_X_VERSION_10_4
    CSSM_OID_PTR oidPtr = (CSSM_OID_PTR) &CSSMOID_OrganizationName;
        // note: Sec* APIs are not re-entrant due to the API lock
        // status = SecCertificateCopySubjectComponent(certificate, oidPtr, &organizationName);
        BEGIN_SECAPI_INTERNAL_CALL
        organizationName = Certificate::required(certificate)->distinguishedName(&CSSMOID_X509V1SubjectNameCStruct, oidPtr);
        END_SECAPI_INTERNAL_CALL
    if (status) {
        return (CFStringRef)NULL;
        }
#else
    // SecCertificateCopySubjectComponent() doesn't exist on Tiger, so we have
        // to go get the CSSMOID_OrganizationName the hard way, ourselves.
    CSSM_DATA_PTR *fieldValues = NULL;
        // note: Sec* APIs are not re-entrant due to the API lock
    // status = SecCertificateCopyFieldValues(certificate, &CSSMOID_X509V1SubjectNameCStruct, &fieldValues);
        BEGIN_SECAPI_INTERNAL_CALL
        fieldValues = Certificate::required(certificate)->copyFieldValues(&CSSMOID_X509V1SubjectNameCStruct);
        END_SECAPI_INTERNAL_CALL
    if (*fieldValues == NULL) {
        return (CFStringRef)NULL;
        }
    if (status || (*fieldValues)->Length == 0 || (*fieldValues)->Data == NULL) {
                // note: Sec* APIs are not re-entrant due to the API lock
                // status = SecCertificateReleaseFieldValues(certificate, &CSSMOID_X509V1SubjectNameCStruct, fieldValues);
                BEGIN_SECAPI_INTERNAL_CALL
                Certificate::required(certificate)->releaseFieldValues(&CSSMOID_X509V1SubjectNameCStruct, fieldValues);
                END_SECAPI_INTERNAL_CALL
        return (CFStringRef)NULL;
    }

    CSSM_X509_NAME_PTR x509Name = (CSSM_X509_NAME_PTR)(*fieldValues)->Data;

    // Iterate over all the relative distinguished name (RDN) entries...
    unsigned rdnIndex = 0;
    bool foundIt = FALSE;
    for (rdnIndex = 0; rdnIndex < x509Name->numberOfRDNs; rdnIndex++) {
        CSSM_X509_RDN *rdnPtr = x509Name->RelativeDistinguishedName + rdnIndex;

        // And then iterate over the attribute-value pairs of each RDN, looking for a CSSMOID_OrganizationName.
        unsigned pairIndex;
        for (pairIndex = 0; pairIndex < rdnPtr->numberOfPairs; pairIndex++) {
            CSSM_X509_TYPE_VALUE_PAIR *pair = rdnPtr->AttributeTypeAndValue + pairIndex;

            // If this pair isn't the organization name, move on to check the next one.
            if (!oidsAreEqual(&pair->type, &CSSMOID_OrganizationName))
                continue;

            // We've found the organization name. Convert value to a string (eg, "Apple Inc.")
            // Note: there can be more than one organization name in any given CSSM_X509_RDN.
                        // In practice, it's OK to use the first one. In future, if we have a means for
                        // displaying more than one name, this would be where they should be collected
                        // into an array.
            switch (pair->valueType) {
                case BER_TAG_PKIX_UTF8_STRING:
                case BER_TAG_PKIX_UNIVERSAL_STRING:
                case BER_TAG_GENERAL_STRING:
                                        organizationName = CFStringCreateWithBytes(NULL, pair->value.Data, pair->value.Length, kCFStringEncodingUTF8, FALSE);
                    break;
                case BER_TAG_PRINTABLE_STRING:
                case BER_TAG_IA5_STRING:
                                        organizationName = CFStringCreateWithBytes(NULL, pair->value.Data, pair->value.Length, kCFStringEncodingASCII, FALSE);
                    break;
                case BER_TAG_T61_STRING:
                case BER_TAG_VIDEOTEX_STRING:
                case BER_TAG_ISO646_STRING:
                                        organizationName = CFStringCreateWithBytes(NULL, pair->value.Data, pair->value.Length, kCFStringEncodingUTF8, FALSE);
                    // If the data cannot be represented as a UTF-8 string, fall back to ISO Latin 1
                    if (!organizationName) {
                                                organizationName = CFStringCreateWithBytes(NULL, pair->value.Data, pair->value.Length, kCFStringEncodingISOLatin1, FALSE);
                    }
                                        break;
                case BER_TAG_PKIX_BMP_STRING:
                                        organizationName = CFStringCreateWithBytes(NULL, pair->value.Data, pair->value.Length, kCFStringEncodingUnicode, FALSE);
                    break;
                default:
                    break;
            }

            // If we found the organization name, there's no need to keep looping.
            if (organizationName) {
                foundIt = TRUE;
                break;
            }
        }
        if (foundIt)
            break;
    }
        // note: Sec* APIs are not re-entrant due to the API lock
        // status = SecCertificateReleaseFieldValues(certificate, &CSSMOID_X509V1SubjectNameCStruct, fieldValues);
        BEGIN_SECAPI_INTERNAL_CALL
        Certificate::required(certificate)->releaseFieldValues(&CSSMOID_X509V1SubjectNameCStruct, fieldValues);
        END_SECAPI_INTERNAL_CALL
#endif
    return organizationName;
}

#if !defined(NDEBUG)
void showCertSKID(const void *value, void *context);
#endif

static ModuleNexus<Mutex> gPotentialEVChainWithCertificatesMutex;

// returns a CFArrayRef of SecCertificateRef instances; caller must release the returned array
//
CFArrayRef potentialEVChainWithCertificates(CFArrayRef certificates)
{
        StLock<Mutex> _(gPotentialEVChainWithCertificatesMutex());

    // Given a partial certificate chain (which may or may not include the root,
    // and does not have a guaranteed order except the first item is the leaf),
    // examine intermediate certificates to see if they are cross-certified (i.e.
    // have the same subject and public key as a trusted root); if so, remove the
    // intermediate from the returned certificate array.

        CFIndex chainIndex, chainLen = (certificates) ? CFArrayGetCount(certificates) : 0;
        secdebug("trusteval", "potentialEVChainWithCertificates: chainLen: %ld", chainLen);
    if (chainLen < 2) {
                if (certificates) {
                        CFRetain(certificates);
                }
        return certificates;
        }

        CFMutableArrayRef certArray = CFArrayCreateMutable(NULL, 0, &kCFTypeArrayCallBacks);
    for (chainIndex = 0; chainIndex < chainLen; chainIndex++) {
        SecCertificateRef aCert = (SecCertificateRef) CFArrayGetValueAtIndex(certificates, chainIndex);
        SecCertificateRef replacementCert = NULL;
                secdebug("trusteval", "potentialEVChainWithCertificates: examining chainIndex: %ld", chainIndex);
        if (chainIndex > 0) {
            // if this is not the leaf, then look for a possible replacement root to end the chain
                        // Try lookup using Subject Key ID first
                        replacementCert = _rootCertificateWithSubjectKeyIDOfCertificate(aCert);
                        if (!replacementCert)
                        {
                                secdebug("trusteval", "  not found using SKID, try by subject");
            replacementCert = _rootCertificateWithSubjectOfCertificate(aCert);
        }
        }
        if (!replacementCert) {
                        secdebug("trusteval", "  No replacement found using SKID or subject; keeping original intermediate");
            CFArrayAppendValue(certArray, aCert);
        }
        SafeCFRelease(&replacementCert);
    }
        secdebug("trusteval", "potentialEVChainWithCertificates: exit: new chainLen: %ld", CFArrayGetCount(certArray));
#if !defined(NDEBUG)
        CFArrayApplyFunction(certArray, CFRangeMake(0, CFArrayGetCount(certArray)), showCertSKID, NULL);
#endif

    return certArray;
}

// returns a reference to a root certificate, if one can be found in the
// system root store whose subject name and public key are identical to
// that of the provided certificate, otherwise returns nil.
//
static SecCertificateRef _rootCertificateWithSubjectOfCertificate(SecCertificateRef certificate)
{
    if (!certificate)
        return NULL;

        StLock<Mutex> _(SecTrustKeychainsGetMutex());

    // get data+length for the provided certificate
    CSSM_CL_HANDLE clHandle = 0;
    CSSM_DATA certData = { 0, NULL };
        OSStatus status = noErr;
        // note: Sec* APIs are not re-entrant due to the API lock
        // status = SecCertificateGetCLHandle(certificate, &clHandle);
        BEGIN_SECAPI_INTERNAL_CALL
        clHandle = Certificate::required(certificate)->clHandle();
        END_SECAPI_INTERNAL_CALL
        if (status)
                return NULL;
        // note: Sec* APIs are not re-entrant due to the API lock
        // status = SecCertificateGetData(certificate, &certData);
        BEGIN_SECAPI_INTERNAL_CALL
        certData = Certificate::required(certificate)->data();
        END_SECAPI_INTERNAL_CALL
        if (status)
                return NULL;

        // get system roots keychain reference
    SecKeychainRef systemRoots = systemRootStore();
        if (!systemRoots)
                return NULL;

    // copy (normalized) subject for the provided certificate
    const CSSM_OID_PTR oidPtr = (const CSSM_OID_PTR) &CSSMOID_X509V1SubjectName;
    const CSSM_DATA_PTR subjectDataPtr = _copyFieldDataForOid(oidPtr, &certData, clHandle);
    if (!subjectDataPtr)
        return NULL;

    // copy public key for the provided certificate
    SecKeyRef keyRef = NULL;
    SecCertificateRef resultCert = NULL;
        // note: Sec* APIs are not re-entrant due to the API lock
        // status = SecCertificateCopyPublicKey(certificate, &keyRef);
        BEGIN_SECAPI_INTERNAL_CALL
        keyRef = Certificate::required(certificate)->publicKey()->handle();
        END_SECAPI_INTERNAL_CALL
    if (!status) {
        const CSSM_KEY *cssmKey = NULL;
                // note: Sec* APIs are not re-entrant due to the API lock
                // status = SecKeyGetCSSMKey(keyRef, &cssmKey);
                BEGIN_SECAPI_INTERNAL_CALL
                cssmKey = KeyItem::required(keyRef)->key();
                END_SECAPI_INTERNAL_CALL
        if (!status) {
            // get SHA-1 hash of the public key
            uint8 buf[CC_SHA1_DIGEST_LENGTH];
            CSSM_DATA digest = { sizeof(buf), buf };
                        if (!cssmKey || !cssmKey->KeyData.Data || !cssmKey->KeyData.Length) {
                                status = paramErr;
                        } else {
                                CC_SHA1(cssmKey->KeyData.Data, cssmKey->KeyData.Length, buf);
                        }
            if (!status) {
                // set up attribute vector (each attribute consists of {tag, length, pointer})
                // we want to match on the public key hash and the normalized subject name
                // as well as ensure that the issuer matches the subject
                SecKeychainAttribute attrs[] = {
                    { kSecPublicKeyHashItemAttr, digest.Length, (void *)digest.Data },
                    { kSecSubjectItemAttr, subjectDataPtr->Length, (void *)subjectDataPtr->Data },
                    { kSecIssuerItemAttr, subjectDataPtr->Length, (void *)subjectDataPtr->Data }
                };
                const SecKeychainAttributeList attributes = { sizeof(attrs) / sizeof(attrs[0]), attrs };
                SecKeychainSearchRef searchRef = NULL;
                                // note: Sec* APIs are not re-entrant due to the API lock
                                // status = SecKeychainSearchCreateFromAttributes(systemRoots, kSecCertificateItemClass, &attributes, &searchRef);
                                BEGIN_SECAPI_INTERNAL_CALL
                                StorageManager::KeychainList keychains;
                                globals().storageManager.optionalSearchList(systemRoots, keychains);
                                KCCursor cursor(keychains, kSecCertificateItemClass, &attributes);
                                searchRef = cursor->handle();
                                END_SECAPI_INTERNAL_CALL
                if (!status && searchRef) {
                    SecKeychainItemRef certRef = nil;
                                        // note: Sec* APIs are not re-entrant due to the API lock
                                        // status = SecKeychainSearchCopyNext(searchRef, &certRef); // only need the first one that matches
                                        BEGIN_SECAPI_INTERNAL_CALL
                                        Item item;
                                        if (!KCCursorImpl::required(searchRef)->next(item)) {
                                                status=errSecItemNotFound;
                                        } else {
                                                certRef=item->handle();
                                        }
                                        END_SECAPI_INTERNAL_CALL
                    if (!status)
                        resultCert = (SecCertificateRef)certRef; // caller must release
                    SafeCFRelease(&searchRef);
                }
            }
        }
    }
    _freeFieldData(subjectDataPtr, oidPtr, clHandle);
    SafeCFRelease(&keyRef);
        SafeCFRelease(&systemRoots);

    return resultCert;
}


#if !defined(NDEBUG)
static void logSKID(const char *msg, const CssmData &subjectKeyID)
{
        const unsigned char *px = (const unsigned char *)subjectKeyID.data();
        char buffer[256]={0,};
        char bytes[16];
        if (px && msg)
        {
                strcpy(buffer, msg);
                for (unsigned int ix=0; ix<20; ix++)
                {
                        sprintf(bytes, "%02X", px[ix]);
                        strcat(buffer, bytes);
                }
                secdebug("trusteval", " SKID: %s",buffer);
        }
}

void showCertSKID(const void *value, void *context)
{
        SecCertificateRef certificate = (SecCertificateRef)value;
        OSStatus status = noErr;
        BEGIN_SECAPI_INTERNAL_CALL
        const CssmData &subjectKeyID = Certificate::required(certificate)->subjectKeyIdentifier();
        logSKID("subjectKeyID: ", subjectKeyID);
        END_SECAPI_INTERNAL_CALL
}
#endif

// returns a reference to a root certificate, if one can be found in the
// system root store whose subject key ID are identical to
// that of the provided certificate, otherwise returns nil.
//
static SecCertificateRef _rootCertificateWithSubjectKeyIDOfCertificate(SecCertificateRef certificate)
{
    SecCertificateRef resultCert = NULL;
        OSStatus status = noErr;

    if (!certificate)
        return NULL;

        StLock<Mutex> _(SecTrustKeychainsGetMutex());

        // get system roots keychain reference
    SecKeychainRef systemRoots = systemRootStore();
        if (!systemRoots)
                return NULL;

        StorageManager::KeychainList keychains;
        globals().storageManager.optionalSearchList(systemRoots, keychains);

        BEGIN_SECAPI_INTERNAL_CALL
        const CssmData &subjectKeyID = Certificate::required(certificate)->subjectKeyIdentifier();
#if !defined(NDEBUG)
        logSKID("search for SKID: ", subjectKeyID);
#endif
        // caller must release
        resultCert = Certificate::required(certificate)->findBySubjectKeyID(keychains, subjectKeyID)->handle();
#if !defined(NDEBUG)
        logSKID("  found SKID: ", subjectKeyID);
#endif
        END_SECAPI_INTERNAL_CALL

        SafeCFRelease(&systemRoots);

    return resultCert;
}

// returns an array of possible root certificates (SecCertificateRef instances)
// for the given EV OID (a hex string); caller must release the array
//
CFArrayRef _possibleRootCertificatesForOidString(CFStringRef oidString)
{
        StLock<Mutex> _(SecTrustKeychainsGetMutex());

    if (!oidString)
        return NULL;
        CFDictionaryRef evOidDict = _evCAOidDict();
        if (!evOidDict)
                return NULL;
        CFArrayRef possibleCertificateHashes = (CFArrayRef) CFDictionaryGetValue(evOidDict, oidString);
    SecKeychainRef systemRoots = systemRootStore();
    if (!possibleCertificateHashes || !systemRoots) {
                SafeCFRelease(&evOidDict);
        return NULL;
        }

        CFMutableArrayRef possibleRootCertificates = CFArrayCreateMutable(NULL, 0, &kCFTypeArrayCallBacks);
        CFIndex hashCount = CFArrayGetCount(possibleCertificateHashes);
        secdebug("evTrust", "_possibleRootCertificatesForOidString: %d possible hashes", (int)hashCount);

        OSStatus status = noErr;
        SecKeychainSearchRef searchRef = NULL;
        // note: Sec* APIs are not re-entrant due to the API lock
        // status = SecKeychainSearchCreateFromAttributes(systemRoots, kSecCertificateItemClass, NULL, &searchRef);
        BEGIN_SECAPI_INTERNAL_CALL
        StorageManager::KeychainList keychains;
        globals().storageManager.optionalSearchList(systemRoots, keychains);
        KCCursor cursor(keychains, kSecCertificateItemClass, NULL);
        searchRef = cursor->handle();
        END_SECAPI_INTERNAL_CALL
        if (searchRef) {
                while (!status) {
                        SecKeychainItemRef certRef = NULL;
                        // note: Sec* APIs are not re-entrant due to the API lock
                        // status = SecKeychainSearchCopyNext(searchRef, &certRef);
                        BEGIN_SECAPI_INTERNAL_CALL
                        Item item;
                        if (!KCCursorImpl::required(searchRef)->next(item)) {
                                certRef=NULL;
                                status=errSecItemNotFound;
                        } else {
                                certRef=item->handle();
                        }
                        END_SECAPI_INTERNAL_CALL
                        if (status || !certRef) {
                                break;
                        }

                        CSSM_DATA certData = { 0, NULL };
                        // note: Sec* APIs are not re-entrant due to the API lock
                        // status = SecCertificateGetData((SecCertificateRef) certRef, &certData);
                        BEGIN_SECAPI_INTERNAL_CALL
                        certData = Certificate::required((SecCertificateRef)certRef)->data();
                        END_SECAPI_INTERNAL_CALL
                        if (!status) {
                                uint8 buf[CC_SHA1_DIGEST_LENGTH];
                                CSSM_DATA digest = { sizeof(buf), buf };
                                if (!certData.Data || !certData.Length) {
                                        status = paramErr;
                                } else {
                                        CC_SHA1(certData.Data, certData.Length, buf);
                                }
                                if (!status) {
                                        CFDataRef hashData = CFDataCreateWithBytesNoCopy(NULL, digest.Data, digest.Length, kCFAllocatorNull);
                                        if (hashData && CFArrayContainsValue(possibleCertificateHashes, CFRangeMake(0, hashCount), hashData)) {
                                                CFArrayAppendValue(possibleRootCertificates, certRef);
                                        }
                                        SafeCFRelease(&hashData);
                                }
                        }
                        SafeCFRelease(&certRef);
                }
    }
        SafeCFRelease(&searchRef);
    SafeCFRelease(&systemRoots);
        SafeCFRelease(&evOidDict);

    return possibleRootCertificates;
}

// returns an array of allowed root certificates (SecCertificateRef instances)
// for the given EV OID (a hex string); caller must release the array.
// This differs from _possibleRootCertificatesForOidString in that each possible
// certificate is further checked for trust settings, so we don't include
// a certificate which is untrusted (or explicitly distrusted).
//
CFArrayRef _allowedRootCertificatesForOidString(CFStringRef oidString)
{
        CFMutableArrayRef allowedRootCertificates = CFArrayCreateMutable(NULL, 0, &kCFTypeArrayCallBacks);
        CFArrayRef possibleRootCertificates = _possibleRootCertificatesForOidString(oidString);
        if (possibleRootCertificates) {
                CFIndex idx, count = CFArrayGetCount(possibleRootCertificates);
                for (idx=0; idx<count; idx++) {
                        SecCertificateRef cert = (SecCertificateRef) CFArrayGetValueAtIndex(possibleRootCertificates, idx);
                        CFStringRef hashStr = SecTrustSettingsCertHashStrFromCert(cert);
                        if (hashStr) {
                                bool foundMatch = false;
                                bool foundAny = false;
                                CSSM_RETURN *errors = NULL;
                                uint32 errorCount = 0;
                                SecTrustSettingsDomain foundDomain = 0;
                                SecTrustSettingsResult result = kSecTrustSettingsResultInvalid;
                                OSStatus status = SecTrustSettingsEvaluateCert(
                                        hashStr,                /* certHashStr */
                                        NULL,                   /* policyOID (optional) */
                                        NULL,                   /* policyString (optional) */
                                        0,                              /* policyStringLen */
                                        0,                              /* keyUsage */
                                        true,                   /* isRootCert */
                                        &foundDomain,   /* foundDomain */
                                        &errors,                /* allowedErrors */
                                        &errorCount,    /* numAllowedErrors */
                                        &result,                /* resultType */
                                        &foundMatch,    /* foundMatchingEntry */
                                        &foundAny);             /* foundAnyEntry */

                                if (status == noErr) {
                                        secdebug("evTrust", "_allowedRootCertificatesForOidString: cert %lu has result %d from domain %d",
                                                idx, (int)result, (int)foundDomain);
                                        // Root certificates must be trusted by the system (and not have
                                        // any explicit trust overrides) to be allowed for EV use.
                                        if (foundMatch && foundDomain == kSecTrustSettingsDomainSystem &&
                                                result == kSecTrustSettingsResultTrustRoot) {
                                                CFArrayAppendValue(allowedRootCertificates, cert);
                                        }
                                } else {
                                        secdebug("evTrust", "_allowedRootCertificatesForOidString: cert %lu SecTrustSettingsEvaluateCert error %d",
                                                idx, (int)status);
                                }
                                if (errors) {
                                        free(errors);
                                }
                                CFRelease(hashStr);
                        }
                }
                CFRelease(possibleRootCertificates);
        }

        return allowedRootCertificates;
}

// return a CSSM_DATA_PTR containing field data; caller must release with _freeFieldData
//
static CSSM_DATA_PTR _copyFieldDataForOid(CSSM_OID_PTR oid, CSSM_DATA_PTR cert, CSSM_CL_HANDLE clHandle)
{
    uint32 numFields = 0;
    CSSM_HANDLE results = 0;
    CSSM_DATA_PTR value = 0;
    CSSM_RETURN crtn = CSSM_CL_CertGetFirstFieldValue(clHandle, cert, oid, &results, &numFields, &value);

        // we aren't going to look for any further fields, so free the results handle immediately
        if (results) {
                CSSM_CL_CertAbortQuery(clHandle, results);
        }

    return (crtn || !numFields) ? NULL : value;
}

// Some errors are ignorable errors because they do not indicate a problem
// with the certificate itself, but rather a problem getting a response from
// the CA server. The EV Certificate spec does not mandate that the application
// software vendor *must* get a response from OCSP or CRL, it is a "best
// attempt" approach which will not fail if the server does not respond.
//
// The EV spec (26. EV Certificate Status Checking) says that CAs have to
// maintain either a CRL or OCSP server. They are not required to maintain
// an OCSP server until after Dec 31, 2010.
//
// As to the responsibility of the application software vendor to perform
// revocation checking, this is only covered by the following section (37.2.):
//
// This [indemnification of Application Software Vendors]
// shall not apply, however, to any claim, damages, or loss
// suffered by such Application Software Vendor related to an EV Certificate
// issued by the CA where such claim, damage, or loss was directly caused by
// such Application Software Vendor’s software displaying as not trustworthy an
// EV Certificate that is still valid, or displaying as trustworthy: (1) an EV
// Certificate that has expired, or (2) an EV Certificate that has been revoked
// (but only in cases where the revocation status is currently available from the
// CA online, and the browser software either failed to check such status or
// ignored an indication of revoked status).
//
// The last section describes what a browser is required to do: it must attempt
// to check revocation status (as indicated by the OCSP or CRL server info in
// the certificate), and it cannot ignore an indication of revoked status
// (i.e. a positive thumbs-down response from the server, which would be a
// different error than the ones being skipped.) However, given that we meet
// those requirements, if the revocation server is down or will not give us a
// response for whatever reason, that is not our problem.

bool isRevocationServerMetaError(CSSM_RETURN statusCode)
{
   switch (statusCode) {
       case CSSMERR_APPLETP_CRL_NOT_FOUND:             // 13. CRL not found
       case CSSMERR_APPLETP_CRL_SERVER_DOWN:           // 14. CRL server down
       case CSSMERR_APPLETP_OCSP_UNAVAILABLE:          // 33. OCSP service unavailable
       case CSSMERR_APPLETP_NETWORK_FAILURE:           // 36. General network failure
       case CSSMERR_APPLETP_OCSP_RESP_MALFORMED_REQ:   // 41. OCSP responder status: malformed request
       case CSSMERR_APPLETP_OCSP_RESP_INTERNAL_ERR:    // 42. OCSP responder status: internal error
       case CSSMERR_APPLETP_OCSP_RESP_TRY_LATER:       // 43. OCSP responder status: try later
       case CSSMERR_APPLETP_OCSP_RESP_SIG_REQUIRED:    // 44. OCSP responder status: signature required
       case CSSMERR_APPLETP_OCSP_RESP_UNAUTHORIZED:    // 45. OCSP responder status: unauthorized
           return true;
       default:
           return false;
   }
}

// returns true if the given status code is related to performing an OCSP revocation check
//
bool isOCSPStatusCode(CSSM_RETURN statusCode)
{
    switch (statusCode)
    {
        case CSSMERR_APPLETP_OCSP_BAD_RESPONSE:         // 31. Unparseable OCSP response
        case CSSMERR_APPLETP_OCSP_BAD_REQUEST:          // 32. Unparseable OCSP request
        case CSSMERR_APPLETP_OCSP_RESP_MALFORMED_REQ:   // 41. OCSP responder status: malformed request
        case CSSMERR_APPLETP_OCSP_UNAVAILABLE:          // 33. OCSP service unavailable
        case CSSMERR_APPLETP_OCSP_STATUS_UNRECOGNIZED:  // 34. OCSP status: cert unrecognized
        case CSSMERR_APPLETP_OCSP_NOT_TRUSTED:          // 37. OCSP response not verifiable to anchor or root
        case CSSMERR_APPLETP_OCSP_INVALID_ANCHOR_CERT:  // 38. OCSP response verified to untrusted root
        case CSSMERR_APPLETP_OCSP_SIG_ERROR:            // 39. OCSP response signature error
        case CSSMERR_APPLETP_OCSP_NO_SIGNER:            // 40. No signer for OCSP response found
        case CSSMERR_APPLETP_OCSP_RESP_INTERNAL_ERR:    // 42. OCSP responder status: internal error
        case CSSMERR_APPLETP_OCSP_RESP_TRY_LATER:       // 43. OCSP responder status: try later
        case CSSMERR_APPLETP_OCSP_RESP_SIG_REQUIRED:    // 44. OCSP responder status: signature required
        case CSSMERR_APPLETP_OCSP_RESP_UNAUTHORIZED:    // 45. OCSP responder status: unauthorized
        case CSSMERR_APPLETP_OCSP_NONCE_MISMATCH:       // 46. OCSP response nonce did not match request
            return true;
        default:
            return false;
    }
}

// returns true if the given status code is related to performing a CRL revocation check
//
bool isCRLStatusCode(CSSM_RETURN statusCode)
{
    switch (statusCode)
    {
        case CSSMERR_APPLETP_CRL_EXPIRED:               // 11. CRL expired
        case CSSMERR_APPLETP_CRL_NOT_VALID_YET:         // 12. CRL not yet valid
        case CSSMERR_APPLETP_CRL_NOT_FOUND:             // 13. CRL not found
        case CSSMERR_APPLETP_CRL_SERVER_DOWN:           // 14. CRL server down
        case CSSMERR_APPLETP_CRL_BAD_URI:               // 15. Illegal CRL distribution point URI
        case CSSMERR_APPLETP_CRL_NOT_TRUSTED:           // 18. CRL not verifiable to anchor or root
        case CSSMERR_APPLETP_CRL_INVALID_ANCHOR_CERT:   // 19. CRL verified to untrusted root
        case CSSMERR_APPLETP_CRL_POLICY_FAIL:           // 20. CRL failed policy verification
            return true;
        default:
            return false;
    }
}

// returns true if the given status code is related to performing a revocation check
//
bool isRevocationStatusCode(CSSM_RETURN statusCode)
{
    if (statusCode == CSSMERR_APPLETP_INCOMPLETE_REVOCATION_CHECK ||  // 35. Revocation check not successful for each cert
        statusCode == CSSMERR_APPLETP_NETWORK_FAILURE ||              // 36. General network error
        isOCSPStatusCode(statusCode) == true ||                       // OCSP error
        isCRLStatusCode(statusCode) == true)                          // CRL error
        return true;
    else
        return false;
}

// returns true if the given revocation status code can be ignored.
//
bool ignorableRevocationStatusCode(CSSM_RETURN statusCode)
{
    if (!isRevocationStatusCode(statusCode))
                return false;

        // if OCSP and/or CRL revocation info was unavailable for this certificate,
        // and revocation checking is not required, we can ignore this status code.

        CFStringRef ocsp_val = (CFStringRef) CFPreferencesCopyValue(kSecRevocationOcspStyle, CFSTR(kSecRevocationDomain), kCFPreferencesCurrentUser, kCFPreferencesAnyHost);
        CFStringRef crl_val = (CFStringRef) CFPreferencesCopyValue(kSecRevocationCrlStyle, CFSTR(kSecRevocationDomain), kCFPreferencesCurrentUser, kCFPreferencesAnyHost);
        bool ocspRequired = (ocsp_val && CFEqual(ocsp_val, kSecRevocationRequireForAll));
        bool crlRequired = (crl_val && CFEqual(crl_val, kSecRevocationRequireForAll));
        if (!ocspRequired && ocsp_val && CFEqual(ocsp_val, kSecRevocationRequireIfPresent))
                ocspRequired = (statusCode != CSSMERR_APPLETP_OCSP_UNAVAILABLE);
        if (!crlRequired && crl_val && CFEqual(crl_val, kSecRevocationRequireIfPresent))
                crlRequired = (statusCode != CSSMERR_APPLETP_CRL_NOT_FOUND);
        if (ocsp_val)
                CFRelease(ocsp_val);
        if (crl_val)
                CFRelease(crl_val);

        if (isOCSPStatusCode(statusCode))
                return (ocspRequired) ? false : true;
        if (isCRLStatusCode(statusCode))
                return (crlRequired) ? false : true;
 
        return false;
}

// returns a CFArrayRef of allowed root certificates for the provided leaf certificate
// if it passes initial EV evaluation criteria and should be subject to OCSP revocation
// checking; otherwise, NULL is returned. (Caller must release the result if not NULL.)
//
CFArrayRef allowedEVRootsForLeafCertificate(CFArrayRef certificates)
{
    // Given a partial certificate chain (which may or may not include the root,
    // and does not have a guaranteed order except the first item is the leaf),
        // determine whether the leaf claims to have a supported EV policy OID.
        //
        // Unless this function returns NULL, a full SSL trust evaluation with OCSP revocation
        // checking must be performed successfully for the certificate to be considered valid.
        // This function is intended to be called before the chain has been evaluated,
        // in order to obtain the list of allowed roots for the evaluation. Once the "regular"
        // TP evaluation has taken place, chainMeetsExtendedValidationCriteria() should be
        // called to complete extended validation checking.

        CFIndex count = (certificates) ? CFArrayGetCount(certificates) : 0;
        if (count < 1)
        return NULL;

    CSSM_CL_HANDLE clHandle = 0;
    CSSM_DATA certData = { 0, NULL };
    SecCertificateRef certRef = (SecCertificateRef) CFArrayGetValueAtIndex(certificates, 0);
        OSStatus status = noErr;
        // note: Sec* APIs are not re-entrant due to the API lock
        // status = SecCertificateGetCLHandle(certRef, &clHandle);
        BEGIN_SECAPI_INTERNAL_CALL
        clHandle = Certificate::required(certRef)->clHandle();
        END_SECAPI_INTERNAL_CALL
        if (status)
                return NULL;
        // note: Sec* APIs are not re-entrant due to the API lock
        // status = SecCertificateGetData(certRef, &certData);
        BEGIN_SECAPI_INTERNAL_CALL
        certData = Certificate::required(certRef)->data();
        END_SECAPI_INTERNAL_CALL
        if (status)
                return NULL;

    // Does the leaf certificate contain a Certificate Policies extension?
    const CSSM_OID_PTR oidPtr = (CSSM_OID_PTR) &CSSMOID_CertificatePolicies;
    CSSM_DATA_PTR extensionDataPtr = _copyFieldDataForOid(oidPtr, &certData, clHandle);
    if (!extensionDataPtr)
        return NULL;

    // Does the extension contain one of the magic EV CA OIDs we know about?
    CSSM_X509_EXTENSION *cssmExtension = (CSSM_X509_EXTENSION *)extensionDataPtr->Data;
    CE_CertPolicies *certPolicies = (CE_CertPolicies *)cssmExtension->value.parsedValue;
    CFStringRef oidString = _oidStringForCertificatePolicies(certPolicies);
        _freeFieldData(extensionDataPtr, oidPtr, clHandle);

    // Fetch the allowed root CA certificates for this OID, if any
    CFArrayRef allowedRoots = (oidString) ? _allowedRootCertificatesForOidString(oidString) : NULL;
        CFIndex rootCount = (allowedRoots) ? CFArrayGetCount(allowedRoots) : 0;
        secdebug("evTrust", "allowedEVRootsForLeafCertificate: found %d allowed roots", (int)rootCount);
        SafeCFRelease(&oidString);
        if (!allowedRoots || !rootCount) {
                SafeCFRelease(&allowedRoots);
                return NULL;
        }

        // The leaf certificate needs extended validation (with revocation checking).
        // Return the array of allowed roots for this leaf certificate.
        return allowedRoots;
}

// returns a CFDictionaryRef of extended validation results for the given chain,
// or NULL if the certificate chain did not meet all EV criteria. (Caller must
// release the result if not NULL.)
//
CFDictionaryRef extendedValidationResults(CFArrayRef certChain, SecTrustResultType trustResult, OSStatus tpResult)
{
        // This function is intended to be called after the "regular" TP evaluation
        // has taken place (i.e. trustResult and tpResult are available), and there
        // is a full certificate chain to examine.

    CFIndex chainIndex, chainLen = (certChain) ? CFArrayGetCount(certChain) : 0;
        if (chainLen < 2) {
                return NULL; // invalid chain length
        }

    if (trustResult != kSecTrustResultUnspecified) {

        // "Recoverable" means the certificate failed to meet all policy requirements, but is intrinsically OK.
        // One of the failures we might encounter is if the OCSP responder tells us to go away. Since this is a
        // real-world case, we'll check for OCSP and CRL meta-errors specifically.
        bool recovered = false;
        if (trustResult == kSecTrustResultRecoverableTrustFailure) {
            recovered = isRevocationServerMetaError((CSSM_RETURN)tpResult);
        }
        if (!recovered) {
            return NULL;
        }
    }

        //
    // What we know at this point:
        //
        // 1. From a previous call to _leafCertificateMeetsExtendedValidationCriteria
        // (or we wouldn't be calling _chainMeetsExtendedValidationCriteria!):
    // - a leaf certificate exists
    // - that certificate contains a Certificate Policies extension
    // - that extension contains an OID from one of the trusted EV CAs we know about
        // - we have found at least one allowed EV root for that OID
        //
        // 2. From the TP evaluation:
    // - the leaf certificate verifies back to a trusted EV root (with no trust settings overrides)
    // - SSL trust evaluation with OCSP revocation checking enabled returned no (fatal) errors
    //
        // Finally, we need to check the following requirements (EV 1.1 specification, Appendix B):
    // - the trusted root, if created after 10/31/2006, must have:
    //      - critical basicConstraints extension with CA bit set
    //      - critical keyUsage extension with keyCertSign and cRLSign bits set
    // - intermediate certs, if present, must have:
    //      - certificatePolicies extension, containing either a known EV CA OID, or anyPolicy
    //      - non-critical cRLDistributionPoint extension
    //      - critical basicConstraints extension with CA bit set
    //      - critical keyUsage extension with keyCertSign and cRLSign bits set
        //

    // check intermediate CA certificates for required extensions per Appendix B of EV 1.1 specification.
    bool hasRequiredExtensions = true;
        CSSM_CL_HANDLE clHandle = 0;
        CSSM_DATA certData = { 0, NULL };
        CSSM_OID_PTR oidPtr = (CSSM_OID_PTR) &CSSMOID_CertificatePolicies;
    for (chainIndex = 1; hasRequiredExtensions && chainLen > 2 && chainIndex < chainLen - 1; chainIndex++) {
        SecCertificateRef intermediateCert = (SecCertificateRef) CFArrayGetValueAtIndex(certChain, chainIndex);
                OSStatus status = noErr;
                // note: Sec* APIs are not re-entrant due to the API lock
                // status = SecCertificateGetCLHandle(intermediateCert, &clHandle);
                BEGIN_SECAPI_INTERNAL_CALL
                clHandle = Certificate::required(intermediateCert)->clHandle();
                END_SECAPI_INTERNAL_CALL
                if (status)
                        return NULL;
                // note: Sec* APIs are not re-entrant due to the API lock
                // status = SecCertificateGetData(intermediateCert, &certData);
                BEGIN_SECAPI_INTERNAL_CALL
                certData = Certificate::required(intermediateCert)->data();
                END_SECAPI_INTERNAL_CALL
                if (status)
                        return NULL;

        CSSM_DATA_PTR extensionDataPtr = _copyFieldDataForOid(oidPtr, &certData, clHandle);
        if (!extensionDataPtr)
            return NULL;

        CSSM_X509_EXTENSION *cssmExtension = (CSSM_X509_EXTENSION *)extensionDataPtr->Data;
        CE_CertPolicies *certPolicies = (CE_CertPolicies *)cssmExtension->value.parsedValue;
                CFStringRef oidString = _oidStringForCertificatePolicies(certPolicies);
        hasRequiredExtensions = (oidString != NULL);
                SafeCFRelease(&oidString);
        _freeFieldData(extensionDataPtr, oidPtr, clHandle);

        // FIX: add checks for the following (not essential to this implementation):
        //      - non-critical cRLDistributionPoint extension
        //      - critical basicConstraints extension with CA bit set
        //      - critical keyUsage extension with keyCertSign and cRLSign bits set
        // Tracked by <rdar://problem/6119322>
    }

    if (hasRequiredExtensions) {
                SecCertificateRef leafCert = (SecCertificateRef) CFArrayGetValueAtIndex(certChain, 0);
                CFStringRef organizationName = organizationNameForCertificate(leafCert);
                if (organizationName != NULL) {
                        CFMutableDictionaryRef resultDict = CFDictionaryCreateMutable(NULL, 0,
                                &kCFTypeDictionaryKeyCallBacks, &kCFTypeDictionaryValueCallBacks);
                        CFDictionaryAddValue(resultDict, kSecEVOrganizationName, organizationName);
                        SafeCFRelease(&organizationName);
                        return resultDict;
                }
        }

        return NULL;
}

// returns a CFDictionaryRef containing extended trust results.
// Caller must release this dictionary.
//
// If the isEVCandidate argument is true, extended validation checking is performed
// and the kSecEVOrganizationName key will be set in the dictionary if EV criteria is met.
// In all cases, kSecTrustEvaluationDate and kSecTrustExpirationDate will be set.
//
CFDictionaryRef extendedTrustResults(CFArrayRef certChain, SecTrustResultType trustResult, OSStatus tpResult, bool isEVCandidate)
{
        CFMutableDictionaryRef resultDict = NULL;
        if (isEVCandidate) {
                resultDict = (CFMutableDictionaryRef) extendedValidationResults(certChain, trustResult, tpResult);
        }
        if (!resultDict) {
                resultDict = CFDictionaryCreateMutable(NULL, 0,
                        &kCFTypeDictionaryKeyCallBacks, &kCFTypeDictionaryValueCallBacks);
                if (!resultDict) {
                        return NULL;
                }
        }
        CFAbsoluteTime at = CFAbsoluteTimeGetCurrent();
        CFDateRef trustEvaluationDate = CFDateCreate(kCFAllocatorDefault, at);
        // by default, permit caching of trust evaluation results for up to 2 hours
        // FIXME: need to modify this based on cert expiration and OCSP/CRL validity
        CFDateRef trustExpirationDate = CFDateCreate(kCFAllocatorDefault, at + (60*60*2));
        CFDictionaryAddValue(resultDict, kSecTrustEvaluationDate, trustEvaluationDate);
        SafeCFRelease(&trustEvaluationDate);
        CFDictionaryAddValue(resultDict, kSecTrustExpirationDate, trustExpirationDate);
        SafeCFRelease(&trustExpirationDate);

        return resultDict;
}

// returns a CFDictionaryRef containing mappings from supported EV CA OIDs to SHA-1 hash values;
// caller must release
//
static CFDictionaryRef _evCAOidDict()
{
    static CFDictionaryRef s_evCAOidDict = NULL;
    if (s_evCAOidDict) {
                CFRetain(s_evCAOidDict);
                secdebug("evTrust", "_evCAOidDict: returning static instance (rc=%d)", (int)CFGetRetainCount(s_evCAOidDict));
        return s_evCAOidDict;
        }
        secdebug("evTrust", "_evCAOidDict: initializing static instance");

        s_evCAOidDict = dictionaryWithContentsOfPlistFile(EV_ROOTS_PLIST_SYSTEM_PATH);
        if (!s_evCAOidDict)
                return NULL;

#if !defined MAC_OS_X_VERSION_10_6 || MAC_OS_X_VERSION_MAX_ALLOWED < MAC_OS_X_VERSION_10_6
        // Work around rdar://6302788 by hard coding a hash that was missed when addressing <rdar://problem/6238289&6238296>
        // This is being addressed in SnowLeopard by rdar://6305989
        CFStringRef oidString = CFSTR("2.16.840.1.114028.10.1.2");
        CFMutableArrayRef hashes = (CFMutableArrayRef) CFDictionaryGetValue(s_evCAOidDict, oidString);
        if (hashes) {
                uint8 hashBytes[] = {0xB3, 0x1E, 0xB1, 0xB7, 0x40, 0xE3, 0x6C, 0x84, 0x02, 0xDA, 0xDC, 0x37, 0xD4, 0x4D, 0xF5, 0xD4, 0x67, 0x49, 0x52, 0xF9};
                CFDataRef hashData = CFDataCreate(NULL, hashBytes, sizeof(hashBytes));
                CFIndex hashCount = CFArrayGetCount(hashes);
                if (hashData && CFArrayContainsValue(hashes, CFRangeMake(0, hashCount), hashData)) {
                        secdebug("evTrust", "_evCAOidDict: added hardcoded hash value");
                        CFArrayAppendValue(hashes, hashData);
                }
                SafeCFRelease(&hashData);
        }
#endif
        CFRetain(s_evCAOidDict);
        secdebug("evTrust", "_evCAOidDict: returning static instance (rc=%d)", (int)CFGetRetainCount(s_evCAOidDict));
    return s_evCAOidDict;
}

// returns a CFStringRef containing a decimal representation of the given OID.
// Caller must release.

static CFStringRef _decimalStringForOid(CSSM_OID_PTR oid)
{
    CFMutableStringRef str = CFStringCreateMutable(NULL, 0);
    if (!str || oid->Length > 32)
        return str;

    // The first two levels are encoded into one byte, since the root level
    // has only 3 nodes (40*x + y).  However if x = joint-iso-itu-t(2) then
    // y may be > 39, so we have to add special-case handling for this.
    unsigned long value = 0;
    unsigned int x = oid->Data[0] / 40;
    unsigned int y = oid->Data[0] % 40;
    if (x > 2) {
        // Handle special case for large y if x = 2
        y += (x - 2) * 40;
        x = 2;
    }

        CFStringAppendFormat(str, NULL, CFSTR("%d.%d"), x, y);

    for (x = 1; x < oid->Length; x++) {
        value = (value << 7) | (oid->Data[x] & 0x7F);
        if(!(oid->Data[x] & 0x80)) {
                        CFStringAppendFormat(str, NULL, CFSTR(".%ld"), value);
            value = 0;
        }
    }

#if !defined(NDEBUG)
        CFIndex nameLen = CFStringGetLength(str);
        CFIndex bufLen = 1 + CFStringGetMaximumSizeForEncoding(nameLen, kCFStringEncodingUTF8);
        char *nameBuf = (char *)malloc(bufLen);
        if (!CFStringGetCString(str, nameBuf, bufLen-1, kCFStringEncodingUTF8))
                nameBuf[0]=0;
        secdebug("evTrust", "_decimalStringForOid: \"%s\"", nameBuf);
        free(nameBuf);
#endif

    return str;
}

static void _freeFieldData(CSSM_DATA_PTR value, CSSM_OID_PTR oid, CSSM_CL_HANDLE clHandle)
{
        if (value && value->Data) {
                CSSM_CL_FreeFieldValue(clHandle, oid, value);
        }
    return;
}

static ModuleNexus<Mutex> gOidStringForCertificatePoliciesMutex;

static CFStringRef _oidStringForCertificatePolicies(const CE_CertPolicies *certPolicies)
{
        StLock<Mutex> _(gOidStringForCertificatePoliciesMutex());

    // returns the first EV OID (as a string) found in the given Certificate Policies extension,
    // or NULL if the extension does not contain any known EV OIDs. (Note that the "any policy" OID
    // is a special case and will be returned if present, although its presence is only meaningful
    // in an intermediate CA.)

    if (!certPolicies) {
                secdebug("evTrust", "oidStringForCertificatePolicies: missing certPolicies!");
        return NULL;
        }

        CFDictionaryRef evOidDict = _evCAOidDict();
        if (!evOidDict) {
                secdebug("evTrust", "oidStringForCertificatePolicies: nil OID dictionary!");
                return NULL;
        }

        CFStringRef foundOidStr = NULL;
    uint32 policyIndex, maxIndex = 10; // sanity check; EV certs normally have EV OID as first policy
    for (policyIndex = 0; policyIndex < certPolicies->numPolicies && policyIndex < maxIndex; policyIndex++) {
        CE_PolicyInformation *certPolicyInfo = &certPolicies->policies[policyIndex];
        CSSM_OID_PTR oid = &certPolicyInfo->certPolicyId;
        CFStringRef oidStr = _decimalStringForOid(oid);
                if (!oidStr)
                        continue;
                if (!CFStringCompare(oidStr, CFSTR("2.5.29.32.0"), 0) ||        // is it the "any" OID, or
                        CFDictionaryGetValue(evOidDict, oidStr) != NULL) {              // a known EV CA OID?
                        foundOidStr = CFStringCreateCopy(NULL, oidStr);
                }
                SafeCFRelease(&oidStr);
                if (foundOidStr)
                        break;
    }
        SafeCFRelease(&evOidDict);

    return foundOidStr;
}