Code consuming the "crypto/tlscreds*.h" APIs doesn't need to access its internals. Move the structure definitions to the "tlscredspriv.h" private header (only accessible by implementations). The public headers (in include/) still forward-declare the structures typedef. Note, tlscreds.c and 3 of the 5 modified source files already include "tlscredspriv.h", so only add it to tls-cipher-suites.c and tlssession.c. Removing the internals from the public header solves a bug introduced by commit7de2e85653("yank: Unregister function when using TLS migration") which made migration/qemu-file-channel.c include "io/channel-tls.h", itself sometime depends on GNUTLS, leading to a build failure on OSX: [2/35] Compiling C object libmigration.fa.p/migration_qemu-file-channel.c.o FAILED: libmigration.fa.p/migration_qemu-file-channel.c.o cc -Ilibmigration.fa.p -I. -I.. -Iqapi [ ... ] -o libmigration.fa.p/migration_qemu-file-channel.c.o -c ../migration/qemu-file-channel.c In file included from ../migration/qemu-file-channel.c:29: In file included from include/io/channel-tls.h:26: In file included from include/crypto/tlssession.h:24: include/crypto/tlscreds.h:28:10: fatal error: 'gnutls/gnutls.h' file not found #include <gnutls/gnutls.h> ^~~~~~~~~~~~~~~~~ 1 error generated. Reported-by: Stefan Weil <sw@weilnetz.de> Suggested-by: Daniel P. Berrangé <berrange@redhat.com> Resolves: https://gitlab.com/qemu-project/qemu/-/issues/407 Fixes:7de2e85653("yank: Unregister function when using TLS migration") Signed-off-by: Philippe Mathieu-Daudé <philmd@redhat.com> Signed-off-by: Daniel P. Berrangé <berrange@redhat.com>
		
			
				
	
	
		
			888 lines
		
	
	
		
			26 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			888 lines
		
	
	
		
			26 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
/*
 | 
						|
 * QEMU crypto TLS x509 credential support
 | 
						|
 *
 | 
						|
 * Copyright (c) 2015 Red Hat, Inc.
 | 
						|
 *
 | 
						|
 * This library is free software; you can redistribute it and/or
 | 
						|
 * modify it under the terms of the GNU Lesser General Public
 | 
						|
 * License as published by the Free Software Foundation; either
 | 
						|
 * version 2.1 of the License, or (at your option) any later version.
 | 
						|
 *
 | 
						|
 * This library is distributed in the hope that it will be useful,
 | 
						|
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 | 
						|
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 | 
						|
 * Lesser General Public License for more details.
 | 
						|
 *
 | 
						|
 * You should have received a copy of the GNU Lesser General Public
 | 
						|
 * License along with this library; if not, see <http://www.gnu.org/licenses/>.
 | 
						|
 *
 | 
						|
 */
 | 
						|
 | 
						|
#include "qemu/osdep.h"
 | 
						|
#include "crypto/tlscredsx509.h"
 | 
						|
#include "tlscredspriv.h"
 | 
						|
#include "crypto/secret.h"
 | 
						|
#include "qapi/error.h"
 | 
						|
#include "qemu/module.h"
 | 
						|
#include "qom/object_interfaces.h"
 | 
						|
#include "trace.h"
 | 
						|
 | 
						|
 | 
						|
#ifdef CONFIG_GNUTLS
 | 
						|
 | 
						|
#include <gnutls/gnutls.h>
 | 
						|
#include <gnutls/x509.h>
 | 
						|
 | 
						|
 | 
						|
static int
 | 
						|
qcrypto_tls_creds_check_cert_times(gnutls_x509_crt_t cert,
 | 
						|
                                   const char *certFile,
 | 
						|
                                   bool isServer,
 | 
						|
                                   bool isCA,
 | 
						|
                                   Error **errp)
 | 
						|
{
 | 
						|
    time_t now = time(NULL);
 | 
						|
 | 
						|
    if (now == ((time_t)-1)) {
 | 
						|
        error_setg_errno(errp, errno, "cannot get current time");
 | 
						|
        return -1;
 | 
						|
    }
 | 
						|
 | 
						|
    if (gnutls_x509_crt_get_expiration_time(cert) < now) {
 | 
						|
        error_setg(errp,
 | 
						|
                   (isCA ?
 | 
						|
                    "The CA certificate %s has expired" :
 | 
						|
                    (isServer ?
 | 
						|
                     "The server certificate %s has expired" :
 | 
						|
                     "The client certificate %s has expired")),
 | 
						|
                   certFile);
 | 
						|
        return -1;
 | 
						|
    }
 | 
						|
 | 
						|
    if (gnutls_x509_crt_get_activation_time(cert) > now) {
 | 
						|
        error_setg(errp,
 | 
						|
                   (isCA ?
 | 
						|
                    "The CA certificate %s is not yet active" :
 | 
						|
                    (isServer ?
 | 
						|
                     "The server certificate %s is not yet active" :
 | 
						|
                     "The client certificate %s is not yet active")),
 | 
						|
                   certFile);
 | 
						|
        return -1;
 | 
						|
    }
 | 
						|
 | 
						|
    return 0;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static int
 | 
						|
qcrypto_tls_creds_check_cert_basic_constraints(QCryptoTLSCredsX509 *creds,
 | 
						|
                                               gnutls_x509_crt_t cert,
 | 
						|
                                               const char *certFile,
 | 
						|
                                               bool isServer,
 | 
						|
                                               bool isCA,
 | 
						|
                                               Error **errp)
 | 
						|
{
 | 
						|
    int status;
 | 
						|
 | 
						|
    status = gnutls_x509_crt_get_basic_constraints(cert, NULL, NULL, NULL);
 | 
						|
    trace_qcrypto_tls_creds_x509_check_basic_constraints(
 | 
						|
        creds, certFile, status);
 | 
						|
 | 
						|
    if (status > 0) { /* It is a CA cert */
 | 
						|
        if (!isCA) {
 | 
						|
            error_setg(errp, isServer ?
 | 
						|
                       "The certificate %s basic constraints show a CA, "
 | 
						|
                       "but we need one for a server" :
 | 
						|
                       "The certificate %s basic constraints show a CA, "
 | 
						|
                       "but we need one for a client",
 | 
						|
                       certFile);
 | 
						|
            return -1;
 | 
						|
        }
 | 
						|
    } else if (status == 0) { /* It is not a CA cert */
 | 
						|
        if (isCA) {
 | 
						|
            error_setg(errp,
 | 
						|
                       "The certificate %s basic constraints do not "
 | 
						|
                       "show a CA",
 | 
						|
                       certFile);
 | 
						|
            return -1;
 | 
						|
        }
 | 
						|
    } else if (status == GNUTLS_E_REQUESTED_DATA_NOT_AVAILABLE) {
 | 
						|
        /* Missing basicConstraints */
 | 
						|
        if (isCA) {
 | 
						|
            error_setg(errp,
 | 
						|
                       "The certificate %s is missing basic constraints "
 | 
						|
                       "for a CA",
 | 
						|
                       certFile);
 | 
						|
            return -1;
 | 
						|
        }
 | 
						|
    } else { /* General error */
 | 
						|
        error_setg(errp,
 | 
						|
                   "Unable to query certificate %s basic constraints: %s",
 | 
						|
                   certFile, gnutls_strerror(status));
 | 
						|
        return -1;
 | 
						|
    }
 | 
						|
 | 
						|
    return 0;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static int
 | 
						|
qcrypto_tls_creds_check_cert_key_usage(QCryptoTLSCredsX509 *creds,
 | 
						|
                                       gnutls_x509_crt_t cert,
 | 
						|
                                       const char *certFile,
 | 
						|
                                       bool isCA,
 | 
						|
                                       Error **errp)
 | 
						|
{
 | 
						|
    int status;
 | 
						|
    unsigned int usage = 0;
 | 
						|
    unsigned int critical = 0;
 | 
						|
 | 
						|
    status = gnutls_x509_crt_get_key_usage(cert, &usage, &critical);
 | 
						|
    trace_qcrypto_tls_creds_x509_check_key_usage(
 | 
						|
        creds, certFile, status, usage, critical);
 | 
						|
 | 
						|
    if (status < 0) {
 | 
						|
        if (status == GNUTLS_E_REQUESTED_DATA_NOT_AVAILABLE) {
 | 
						|
            usage = isCA ? GNUTLS_KEY_KEY_CERT_SIGN :
 | 
						|
                GNUTLS_KEY_DIGITAL_SIGNATURE | GNUTLS_KEY_KEY_ENCIPHERMENT;
 | 
						|
        } else {
 | 
						|
            error_setg(errp,
 | 
						|
                       "Unable to query certificate %s key usage: %s",
 | 
						|
                       certFile, gnutls_strerror(status));
 | 
						|
            return -1;
 | 
						|
        }
 | 
						|
    }
 | 
						|
 | 
						|
    if (isCA) {
 | 
						|
        if (!(usage & GNUTLS_KEY_KEY_CERT_SIGN)) {
 | 
						|
            if (critical) {
 | 
						|
                error_setg(errp,
 | 
						|
                           "Certificate %s usage does not permit "
 | 
						|
                           "certificate signing", certFile);
 | 
						|
                return -1;
 | 
						|
            }
 | 
						|
        }
 | 
						|
    } else {
 | 
						|
        if (!(usage & GNUTLS_KEY_DIGITAL_SIGNATURE)) {
 | 
						|
            if (critical) {
 | 
						|
                error_setg(errp,
 | 
						|
                           "Certificate %s usage does not permit digital "
 | 
						|
                           "signature", certFile);
 | 
						|
                return -1;
 | 
						|
            }
 | 
						|
        }
 | 
						|
        if (!(usage & GNUTLS_KEY_KEY_ENCIPHERMENT)) {
 | 
						|
            if (critical) {
 | 
						|
                error_setg(errp,
 | 
						|
                           "Certificate %s usage does not permit key "
 | 
						|
                           "encipherment", certFile);
 | 
						|
                return -1;
 | 
						|
            }
 | 
						|
        }
 | 
						|
    }
 | 
						|
 | 
						|
    return 0;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static int
 | 
						|
qcrypto_tls_creds_check_cert_key_purpose(QCryptoTLSCredsX509 *creds,
 | 
						|
                                         gnutls_x509_crt_t cert,
 | 
						|
                                         const char *certFile,
 | 
						|
                                         bool isServer,
 | 
						|
                                         Error **errp)
 | 
						|
{
 | 
						|
    int status;
 | 
						|
    size_t i;
 | 
						|
    unsigned int purposeCritical;
 | 
						|
    unsigned int critical;
 | 
						|
    char *buffer = NULL;
 | 
						|
    size_t size;
 | 
						|
    bool allowClient = false, allowServer = false;
 | 
						|
 | 
						|
    critical = 0;
 | 
						|
    for (i = 0; ; i++) {
 | 
						|
        size = 0;
 | 
						|
        status = gnutls_x509_crt_get_key_purpose_oid(cert, i, buffer,
 | 
						|
                                                     &size, NULL);
 | 
						|
 | 
						|
        if (status == GNUTLS_E_REQUESTED_DATA_NOT_AVAILABLE) {
 | 
						|
 | 
						|
            /* If there is no data at all, then we must allow
 | 
						|
               client/server to pass */
 | 
						|
            if (i == 0) {
 | 
						|
                allowServer = allowClient = true;
 | 
						|
            }
 | 
						|
            break;
 | 
						|
        }
 | 
						|
        if (status != GNUTLS_E_SHORT_MEMORY_BUFFER) {
 | 
						|
            error_setg(errp,
 | 
						|
                       "Unable to query certificate %s key purpose: %s",
 | 
						|
                       certFile, gnutls_strerror(status));
 | 
						|
            return -1;
 | 
						|
        }
 | 
						|
 | 
						|
        buffer = g_new0(char, size);
 | 
						|
 | 
						|
        status = gnutls_x509_crt_get_key_purpose_oid(cert, i, buffer,
 | 
						|
                                                     &size, &purposeCritical);
 | 
						|
 | 
						|
        if (status < 0) {
 | 
						|
            trace_qcrypto_tls_creds_x509_check_key_purpose(
 | 
						|
                creds, certFile, status, "<none>", purposeCritical);
 | 
						|
            g_free(buffer);
 | 
						|
            error_setg(errp,
 | 
						|
                       "Unable to query certificate %s key purpose: %s",
 | 
						|
                       certFile, gnutls_strerror(status));
 | 
						|
            return -1;
 | 
						|
        }
 | 
						|
        trace_qcrypto_tls_creds_x509_check_key_purpose(
 | 
						|
            creds, certFile, status, buffer, purposeCritical);
 | 
						|
        if (purposeCritical) {
 | 
						|
            critical = true;
 | 
						|
        }
 | 
						|
 | 
						|
        if (g_str_equal(buffer, GNUTLS_KP_TLS_WWW_SERVER)) {
 | 
						|
            allowServer = true;
 | 
						|
        } else if (g_str_equal(buffer, GNUTLS_KP_TLS_WWW_CLIENT)) {
 | 
						|
            allowClient = true;
 | 
						|
        } else if (g_str_equal(buffer, GNUTLS_KP_ANY)) {
 | 
						|
            allowServer = allowClient = true;
 | 
						|
        }
 | 
						|
 | 
						|
        g_free(buffer);
 | 
						|
        buffer = NULL;
 | 
						|
    }
 | 
						|
 | 
						|
    if (isServer) {
 | 
						|
        if (!allowServer) {
 | 
						|
            if (critical) {
 | 
						|
                error_setg(errp,
 | 
						|
                           "Certificate %s purpose does not allow "
 | 
						|
                           "use with a TLS server", certFile);
 | 
						|
                return -1;
 | 
						|
            }
 | 
						|
        }
 | 
						|
    } else {
 | 
						|
        if (!allowClient) {
 | 
						|
            if (critical) {
 | 
						|
                error_setg(errp,
 | 
						|
                           "Certificate %s purpose does not allow use "
 | 
						|
                           "with a TLS client", certFile);
 | 
						|
                return -1;
 | 
						|
            }
 | 
						|
        }
 | 
						|
    }
 | 
						|
 | 
						|
    return 0;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static int
 | 
						|
qcrypto_tls_creds_check_cert(QCryptoTLSCredsX509 *creds,
 | 
						|
                             gnutls_x509_crt_t cert,
 | 
						|
                             const char *certFile,
 | 
						|
                             bool isServer,
 | 
						|
                             bool isCA,
 | 
						|
                             Error **errp)
 | 
						|
{
 | 
						|
    if (qcrypto_tls_creds_check_cert_times(cert, certFile,
 | 
						|
                                           isServer, isCA,
 | 
						|
                                           errp) < 0) {
 | 
						|
        return -1;
 | 
						|
    }
 | 
						|
 | 
						|
    if (qcrypto_tls_creds_check_cert_basic_constraints(creds,
 | 
						|
                                                       cert, certFile,
 | 
						|
                                                       isServer, isCA,
 | 
						|
                                                       errp) < 0) {
 | 
						|
        return -1;
 | 
						|
    }
 | 
						|
 | 
						|
    if (qcrypto_tls_creds_check_cert_key_usage(creds,
 | 
						|
                                               cert, certFile,
 | 
						|
                                               isCA, errp) < 0) {
 | 
						|
        return -1;
 | 
						|
    }
 | 
						|
 | 
						|
    if (!isCA &&
 | 
						|
        qcrypto_tls_creds_check_cert_key_purpose(creds,
 | 
						|
                                                 cert, certFile,
 | 
						|
                                                 isServer, errp) < 0) {
 | 
						|
        return -1;
 | 
						|
    }
 | 
						|
 | 
						|
    return 0;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static int
 | 
						|
qcrypto_tls_creds_check_cert_pair(gnutls_x509_crt_t cert,
 | 
						|
                                  const char *certFile,
 | 
						|
                                  gnutls_x509_crt_t *cacerts,
 | 
						|
                                  size_t ncacerts,
 | 
						|
                                  const char *cacertFile,
 | 
						|
                                  bool isServer,
 | 
						|
                                  Error **errp)
 | 
						|
{
 | 
						|
    unsigned int status;
 | 
						|
 | 
						|
    if (gnutls_x509_crt_list_verify(&cert, 1,
 | 
						|
                                    cacerts, ncacerts,
 | 
						|
                                    NULL, 0,
 | 
						|
                                    0, &status) < 0) {
 | 
						|
        error_setg(errp, isServer ?
 | 
						|
                   "Unable to verify server certificate %s against "
 | 
						|
                   "CA certificate %s" :
 | 
						|
                   "Unable to verify client certificate %s against "
 | 
						|
                   "CA certificate %s",
 | 
						|
                   certFile, cacertFile);
 | 
						|
        return -1;
 | 
						|
    }
 | 
						|
 | 
						|
    if (status != 0) {
 | 
						|
        const char *reason = "Invalid certificate";
 | 
						|
 | 
						|
        if (status & GNUTLS_CERT_INVALID) {
 | 
						|
            reason = "The certificate is not trusted";
 | 
						|
        }
 | 
						|
 | 
						|
        if (status & GNUTLS_CERT_SIGNER_NOT_FOUND) {
 | 
						|
            reason = "The certificate hasn't got a known issuer";
 | 
						|
        }
 | 
						|
 | 
						|
        if (status & GNUTLS_CERT_REVOKED) {
 | 
						|
            reason = "The certificate has been revoked";
 | 
						|
        }
 | 
						|
 | 
						|
        if (status & GNUTLS_CERT_INSECURE_ALGORITHM) {
 | 
						|
            reason = "The certificate uses an insecure algorithm";
 | 
						|
        }
 | 
						|
 | 
						|
        error_setg(errp,
 | 
						|
                   "Our own certificate %s failed validation against %s: %s",
 | 
						|
                   certFile, cacertFile, reason);
 | 
						|
        return -1;
 | 
						|
    }
 | 
						|
 | 
						|
    return 0;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static gnutls_x509_crt_t
 | 
						|
qcrypto_tls_creds_load_cert(QCryptoTLSCredsX509 *creds,
 | 
						|
                            const char *certFile,
 | 
						|
                            bool isServer,
 | 
						|
                            Error **errp)
 | 
						|
{
 | 
						|
    gnutls_datum_t data;
 | 
						|
    gnutls_x509_crt_t cert = NULL;
 | 
						|
    g_autofree char *buf = NULL;
 | 
						|
    gsize buflen;
 | 
						|
    GError *gerr = NULL;
 | 
						|
    int ret = -1;
 | 
						|
    int err;
 | 
						|
 | 
						|
    trace_qcrypto_tls_creds_x509_load_cert(creds, isServer, certFile);
 | 
						|
 | 
						|
    err = gnutls_x509_crt_init(&cert);
 | 
						|
    if (err < 0) {
 | 
						|
        error_setg(errp, "Unable to initialize certificate: %s",
 | 
						|
                   gnutls_strerror(err));
 | 
						|
        goto cleanup;
 | 
						|
    }
 | 
						|
 | 
						|
    if (!g_file_get_contents(certFile, &buf, &buflen, &gerr)) {
 | 
						|
        error_setg(errp, "Cannot load CA cert list %s: %s",
 | 
						|
                   certFile, gerr->message);
 | 
						|
        g_error_free(gerr);
 | 
						|
        goto cleanup;
 | 
						|
    }
 | 
						|
 | 
						|
    data.data = (unsigned char *)buf;
 | 
						|
    data.size = strlen(buf);
 | 
						|
 | 
						|
    err = gnutls_x509_crt_import(cert, &data, GNUTLS_X509_FMT_PEM);
 | 
						|
    if (err < 0) {
 | 
						|
        error_setg(errp, isServer ?
 | 
						|
                   "Unable to import server certificate %s: %s" :
 | 
						|
                   "Unable to import client certificate %s: %s",
 | 
						|
                   certFile,
 | 
						|
                   gnutls_strerror(err));
 | 
						|
        goto cleanup;
 | 
						|
    }
 | 
						|
 | 
						|
    ret = 0;
 | 
						|
 | 
						|
 cleanup:
 | 
						|
    if (ret != 0) {
 | 
						|
        gnutls_x509_crt_deinit(cert);
 | 
						|
        cert = NULL;
 | 
						|
    }
 | 
						|
    return cert;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static int
 | 
						|
qcrypto_tls_creds_load_ca_cert_list(QCryptoTLSCredsX509 *creds,
 | 
						|
                                    const char *certFile,
 | 
						|
                                    gnutls_x509_crt_t *certs,
 | 
						|
                                    unsigned int certMax,
 | 
						|
                                    size_t *ncerts,
 | 
						|
                                    Error **errp)
 | 
						|
{
 | 
						|
    gnutls_datum_t data;
 | 
						|
    g_autofree char *buf = NULL;
 | 
						|
    gsize buflen;
 | 
						|
    GError *gerr = NULL;
 | 
						|
 | 
						|
    *ncerts = 0;
 | 
						|
    trace_qcrypto_tls_creds_x509_load_cert_list(creds, certFile);
 | 
						|
 | 
						|
    if (!g_file_get_contents(certFile, &buf, &buflen, &gerr)) {
 | 
						|
        error_setg(errp, "Cannot load CA cert list %s: %s",
 | 
						|
                   certFile, gerr->message);
 | 
						|
        g_error_free(gerr);
 | 
						|
        return -1;
 | 
						|
    }
 | 
						|
 | 
						|
    data.data = (unsigned char *)buf;
 | 
						|
    data.size = strlen(buf);
 | 
						|
 | 
						|
    if (gnutls_x509_crt_list_import(certs, &certMax, &data,
 | 
						|
                                    GNUTLS_X509_FMT_PEM, 0) < 0) {
 | 
						|
        error_setg(errp,
 | 
						|
                   "Unable to import CA certificate list %s",
 | 
						|
                   certFile);
 | 
						|
        return -1;
 | 
						|
    }
 | 
						|
    *ncerts = certMax;
 | 
						|
 | 
						|
    return 0;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
#define MAX_CERTS 16
 | 
						|
static int
 | 
						|
qcrypto_tls_creds_x509_sanity_check(QCryptoTLSCredsX509 *creds,
 | 
						|
                                    bool isServer,
 | 
						|
                                    const char *cacertFile,
 | 
						|
                                    const char *certFile,
 | 
						|
                                    Error **errp)
 | 
						|
{
 | 
						|
    gnutls_x509_crt_t cert = NULL;
 | 
						|
    gnutls_x509_crt_t cacerts[MAX_CERTS];
 | 
						|
    size_t ncacerts = 0;
 | 
						|
    size_t i;
 | 
						|
    int ret = -1;
 | 
						|
 | 
						|
    memset(cacerts, 0, sizeof(cacerts));
 | 
						|
    if (certFile &&
 | 
						|
        access(certFile, R_OK) == 0) {
 | 
						|
        cert = qcrypto_tls_creds_load_cert(creds,
 | 
						|
                                           certFile, isServer,
 | 
						|
                                           errp);
 | 
						|
        if (!cert) {
 | 
						|
            goto cleanup;
 | 
						|
        }
 | 
						|
    }
 | 
						|
    if (access(cacertFile, R_OK) == 0) {
 | 
						|
        if (qcrypto_tls_creds_load_ca_cert_list(creds,
 | 
						|
                                                cacertFile, cacerts,
 | 
						|
                                                MAX_CERTS, &ncacerts,
 | 
						|
                                                errp) < 0) {
 | 
						|
            goto cleanup;
 | 
						|
        }
 | 
						|
    }
 | 
						|
 | 
						|
    if (cert &&
 | 
						|
        qcrypto_tls_creds_check_cert(creds,
 | 
						|
                                     cert, certFile, isServer,
 | 
						|
                                     false, errp) < 0) {
 | 
						|
        goto cleanup;
 | 
						|
    }
 | 
						|
 | 
						|
    for (i = 0; i < ncacerts; i++) {
 | 
						|
        if (qcrypto_tls_creds_check_cert(creds,
 | 
						|
                                         cacerts[i], cacertFile,
 | 
						|
                                         isServer, true, errp) < 0) {
 | 
						|
            goto cleanup;
 | 
						|
        }
 | 
						|
    }
 | 
						|
 | 
						|
    if (cert && ncacerts &&
 | 
						|
        qcrypto_tls_creds_check_cert_pair(cert, certFile, cacerts,
 | 
						|
                                          ncacerts, cacertFile,
 | 
						|
                                          isServer, errp) < 0) {
 | 
						|
        goto cleanup;
 | 
						|
    }
 | 
						|
 | 
						|
    ret = 0;
 | 
						|
 | 
						|
 cleanup:
 | 
						|
    if (cert) {
 | 
						|
        gnutls_x509_crt_deinit(cert);
 | 
						|
    }
 | 
						|
    for (i = 0; i < ncacerts; i++) {
 | 
						|
        gnutls_x509_crt_deinit(cacerts[i]);
 | 
						|
    }
 | 
						|
    return ret;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static int
 | 
						|
qcrypto_tls_creds_x509_load(QCryptoTLSCredsX509 *creds,
 | 
						|
                            Error **errp)
 | 
						|
{
 | 
						|
    char *cacert = NULL, *cacrl = NULL, *cert = NULL,
 | 
						|
        *key = NULL, *dhparams = NULL;
 | 
						|
    int ret;
 | 
						|
    int rv = -1;
 | 
						|
 | 
						|
    trace_qcrypto_tls_creds_x509_load(creds,
 | 
						|
            creds->parent_obj.dir ? creds->parent_obj.dir : "<nodir>");
 | 
						|
 | 
						|
    if (creds->parent_obj.endpoint == QCRYPTO_TLS_CREDS_ENDPOINT_SERVER) {
 | 
						|
        if (qcrypto_tls_creds_get_path(&creds->parent_obj,
 | 
						|
                                       QCRYPTO_TLS_CREDS_X509_CA_CERT,
 | 
						|
                                       true, &cacert, errp) < 0 ||
 | 
						|
            qcrypto_tls_creds_get_path(&creds->parent_obj,
 | 
						|
                                       QCRYPTO_TLS_CREDS_X509_CA_CRL,
 | 
						|
                                       false, &cacrl, errp) < 0 ||
 | 
						|
            qcrypto_tls_creds_get_path(&creds->parent_obj,
 | 
						|
                                       QCRYPTO_TLS_CREDS_X509_SERVER_CERT,
 | 
						|
                                       true, &cert, errp) < 0 ||
 | 
						|
            qcrypto_tls_creds_get_path(&creds->parent_obj,
 | 
						|
                                       QCRYPTO_TLS_CREDS_X509_SERVER_KEY,
 | 
						|
                                       true, &key, errp) < 0 ||
 | 
						|
            qcrypto_tls_creds_get_path(&creds->parent_obj,
 | 
						|
                                       QCRYPTO_TLS_CREDS_DH_PARAMS,
 | 
						|
                                       false, &dhparams, errp) < 0) {
 | 
						|
            goto cleanup;
 | 
						|
        }
 | 
						|
    } else {
 | 
						|
        if (qcrypto_tls_creds_get_path(&creds->parent_obj,
 | 
						|
                                       QCRYPTO_TLS_CREDS_X509_CA_CERT,
 | 
						|
                                       true, &cacert, errp) < 0 ||
 | 
						|
            qcrypto_tls_creds_get_path(&creds->parent_obj,
 | 
						|
                                       QCRYPTO_TLS_CREDS_X509_CLIENT_CERT,
 | 
						|
                                       false, &cert, errp) < 0 ||
 | 
						|
            qcrypto_tls_creds_get_path(&creds->parent_obj,
 | 
						|
                                       QCRYPTO_TLS_CREDS_X509_CLIENT_KEY,
 | 
						|
                                       false, &key, errp) < 0) {
 | 
						|
            goto cleanup;
 | 
						|
        }
 | 
						|
    }
 | 
						|
 | 
						|
    if (creds->sanityCheck &&
 | 
						|
        qcrypto_tls_creds_x509_sanity_check(creds,
 | 
						|
            creds->parent_obj.endpoint == QCRYPTO_TLS_CREDS_ENDPOINT_SERVER,
 | 
						|
            cacert, cert, errp) < 0) {
 | 
						|
        goto cleanup;
 | 
						|
    }
 | 
						|
 | 
						|
    ret = gnutls_certificate_allocate_credentials(&creds->data);
 | 
						|
    if (ret < 0) {
 | 
						|
        error_setg(errp, "Cannot allocate credentials: '%s'",
 | 
						|
                   gnutls_strerror(ret));
 | 
						|
        goto cleanup;
 | 
						|
    }
 | 
						|
 | 
						|
    ret = gnutls_certificate_set_x509_trust_file(creds->data,
 | 
						|
                                                 cacert,
 | 
						|
                                                 GNUTLS_X509_FMT_PEM);
 | 
						|
    if (ret < 0) {
 | 
						|
        error_setg(errp, "Cannot load CA certificate '%s': %s",
 | 
						|
                   cacert, gnutls_strerror(ret));
 | 
						|
        goto cleanup;
 | 
						|
    }
 | 
						|
 | 
						|
    if (cert != NULL && key != NULL) {
 | 
						|
        char *password = NULL;
 | 
						|
        if (creds->passwordid) {
 | 
						|
            password = qcrypto_secret_lookup_as_utf8(creds->passwordid,
 | 
						|
                                                     errp);
 | 
						|
            if (!password) {
 | 
						|
                goto cleanup;
 | 
						|
            }
 | 
						|
        }
 | 
						|
        ret = gnutls_certificate_set_x509_key_file2(creds->data,
 | 
						|
                                                    cert, key,
 | 
						|
                                                    GNUTLS_X509_FMT_PEM,
 | 
						|
                                                    password,
 | 
						|
                                                    0);
 | 
						|
        g_free(password);
 | 
						|
        if (ret < 0) {
 | 
						|
            error_setg(errp, "Cannot load certificate '%s' & key '%s': %s",
 | 
						|
                       cert, key, gnutls_strerror(ret));
 | 
						|
            goto cleanup;
 | 
						|
        }
 | 
						|
    }
 | 
						|
 | 
						|
    if (cacrl != NULL) {
 | 
						|
        ret = gnutls_certificate_set_x509_crl_file(creds->data,
 | 
						|
                                                   cacrl,
 | 
						|
                                                   GNUTLS_X509_FMT_PEM);
 | 
						|
        if (ret < 0) {
 | 
						|
            error_setg(errp, "Cannot load CRL '%s': %s",
 | 
						|
                       cacrl, gnutls_strerror(ret));
 | 
						|
            goto cleanup;
 | 
						|
        }
 | 
						|
    }
 | 
						|
 | 
						|
    if (creds->parent_obj.endpoint == QCRYPTO_TLS_CREDS_ENDPOINT_SERVER) {
 | 
						|
        if (qcrypto_tls_creds_get_dh_params_file(&creds->parent_obj, dhparams,
 | 
						|
                                                 &creds->parent_obj.dh_params,
 | 
						|
                                                 errp) < 0) {
 | 
						|
            goto cleanup;
 | 
						|
        }
 | 
						|
        gnutls_certificate_set_dh_params(creds->data,
 | 
						|
                                         creds->parent_obj.dh_params);
 | 
						|
    }
 | 
						|
 | 
						|
    rv = 0;
 | 
						|
 cleanup:
 | 
						|
    g_free(cacert);
 | 
						|
    g_free(cacrl);
 | 
						|
    g_free(cert);
 | 
						|
    g_free(key);
 | 
						|
    g_free(dhparams);
 | 
						|
    return rv;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static void
 | 
						|
qcrypto_tls_creds_x509_unload(QCryptoTLSCredsX509 *creds)
 | 
						|
{
 | 
						|
    if (creds->data) {
 | 
						|
        gnutls_certificate_free_credentials(creds->data);
 | 
						|
        creds->data = NULL;
 | 
						|
    }
 | 
						|
    if (creds->parent_obj.dh_params) {
 | 
						|
        gnutls_dh_params_deinit(creds->parent_obj.dh_params);
 | 
						|
        creds->parent_obj.dh_params = NULL;
 | 
						|
    }
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
#else /* ! CONFIG_GNUTLS */
 | 
						|
 | 
						|
 | 
						|
static void
 | 
						|
qcrypto_tls_creds_x509_load(QCryptoTLSCredsX509 *creds G_GNUC_UNUSED,
 | 
						|
                            Error **errp)
 | 
						|
{
 | 
						|
    error_setg(errp, "TLS credentials support requires GNUTLS");
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static void
 | 
						|
qcrypto_tls_creds_x509_unload(QCryptoTLSCredsX509 *creds G_GNUC_UNUSED)
 | 
						|
{
 | 
						|
    /* nada */
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
#endif /* ! CONFIG_GNUTLS */
 | 
						|
 | 
						|
 | 
						|
static void
 | 
						|
qcrypto_tls_creds_x509_prop_set_loaded(Object *obj,
 | 
						|
                                       bool value,
 | 
						|
                                       Error **errp)
 | 
						|
{
 | 
						|
    QCryptoTLSCredsX509 *creds = QCRYPTO_TLS_CREDS_X509(obj);
 | 
						|
 | 
						|
    qcrypto_tls_creds_x509_unload(creds);
 | 
						|
    if (value) {
 | 
						|
        qcrypto_tls_creds_x509_load(creds, errp);
 | 
						|
    }
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
#ifdef CONFIG_GNUTLS
 | 
						|
 | 
						|
 | 
						|
static bool
 | 
						|
qcrypto_tls_creds_x509_prop_get_loaded(Object *obj,
 | 
						|
                                       Error **errp G_GNUC_UNUSED)
 | 
						|
{
 | 
						|
    QCryptoTLSCredsX509 *creds = QCRYPTO_TLS_CREDS_X509(obj);
 | 
						|
 | 
						|
    return creds->data != NULL;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
#else /* ! CONFIG_GNUTLS */
 | 
						|
 | 
						|
 | 
						|
static bool
 | 
						|
qcrypto_tls_creds_x509_prop_get_loaded(Object *obj G_GNUC_UNUSED,
 | 
						|
                                       Error **errp G_GNUC_UNUSED)
 | 
						|
{
 | 
						|
    return false;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
#endif /* ! CONFIG_GNUTLS */
 | 
						|
 | 
						|
 | 
						|
static void
 | 
						|
qcrypto_tls_creds_x509_prop_set_sanity(Object *obj,
 | 
						|
                                       bool value,
 | 
						|
                                       Error **errp G_GNUC_UNUSED)
 | 
						|
{
 | 
						|
    QCryptoTLSCredsX509 *creds = QCRYPTO_TLS_CREDS_X509(obj);
 | 
						|
 | 
						|
    creds->sanityCheck = value;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static void
 | 
						|
qcrypto_tls_creds_x509_prop_set_passwordid(Object *obj,
 | 
						|
                                           const char *value,
 | 
						|
                                           Error **errp G_GNUC_UNUSED)
 | 
						|
{
 | 
						|
    QCryptoTLSCredsX509 *creds = QCRYPTO_TLS_CREDS_X509(obj);
 | 
						|
 | 
						|
    creds->passwordid = g_strdup(value);
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static char *
 | 
						|
qcrypto_tls_creds_x509_prop_get_passwordid(Object *obj,
 | 
						|
                                           Error **errp G_GNUC_UNUSED)
 | 
						|
{
 | 
						|
    QCryptoTLSCredsX509 *creds = QCRYPTO_TLS_CREDS_X509(obj);
 | 
						|
 | 
						|
    return g_strdup(creds->passwordid);
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static bool
 | 
						|
qcrypto_tls_creds_x509_prop_get_sanity(Object *obj,
 | 
						|
                                       Error **errp G_GNUC_UNUSED)
 | 
						|
{
 | 
						|
    QCryptoTLSCredsX509 *creds = QCRYPTO_TLS_CREDS_X509(obj);
 | 
						|
 | 
						|
    return creds->sanityCheck;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
#ifdef CONFIG_GNUTLS
 | 
						|
 | 
						|
 | 
						|
static bool
 | 
						|
qcrypto_tls_creds_x509_reload(QCryptoTLSCreds *creds, Error **errp)
 | 
						|
{
 | 
						|
    QCryptoTLSCredsX509 *x509_creds = QCRYPTO_TLS_CREDS_X509(creds);
 | 
						|
    Error *local_err = NULL;
 | 
						|
    gnutls_certificate_credentials_t creds_data = x509_creds->data;
 | 
						|
    gnutls_dh_params_t creds_dh_params = x509_creds->parent_obj.dh_params;
 | 
						|
 | 
						|
    x509_creds->data = NULL;
 | 
						|
    x509_creds->parent_obj.dh_params = NULL;
 | 
						|
    qcrypto_tls_creds_x509_load(x509_creds, &local_err);
 | 
						|
    if (local_err) {
 | 
						|
        qcrypto_tls_creds_x509_unload(x509_creds);
 | 
						|
        x509_creds->data = creds_data;
 | 
						|
        x509_creds->parent_obj.dh_params = creds_dh_params;
 | 
						|
        error_propagate(errp, local_err);
 | 
						|
        return false;
 | 
						|
    }
 | 
						|
 | 
						|
    if (creds_data) {
 | 
						|
        gnutls_certificate_free_credentials(creds_data);
 | 
						|
    }
 | 
						|
    if (creds_dh_params) {
 | 
						|
        gnutls_dh_params_deinit(creds_dh_params);
 | 
						|
    }
 | 
						|
    return true;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
#else /* ! CONFIG_GNUTLS */
 | 
						|
 | 
						|
 | 
						|
static bool
 | 
						|
qcrypto_tls_creds_x509_reload(QCryptoTLSCreds *creds, Error **errp)
 | 
						|
{
 | 
						|
    return false;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
#endif /* ! CONFIG_GNUTLS */
 | 
						|
 | 
						|
 | 
						|
static void
 | 
						|
qcrypto_tls_creds_x509_complete(UserCreatable *uc, Error **errp)
 | 
						|
{
 | 
						|
    object_property_set_bool(OBJECT(uc), "loaded", true, errp);
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static void
 | 
						|
qcrypto_tls_creds_x509_init(Object *obj)
 | 
						|
{
 | 
						|
    QCryptoTLSCredsX509 *creds = QCRYPTO_TLS_CREDS_X509(obj);
 | 
						|
 | 
						|
    creds->sanityCheck = true;
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static void
 | 
						|
qcrypto_tls_creds_x509_finalize(Object *obj)
 | 
						|
{
 | 
						|
    QCryptoTLSCredsX509 *creds = QCRYPTO_TLS_CREDS_X509(obj);
 | 
						|
 | 
						|
    g_free(creds->passwordid);
 | 
						|
    qcrypto_tls_creds_x509_unload(creds);
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static void
 | 
						|
qcrypto_tls_creds_x509_class_init(ObjectClass *oc, void *data)
 | 
						|
{
 | 
						|
    UserCreatableClass *ucc = USER_CREATABLE_CLASS(oc);
 | 
						|
    QCryptoTLSCredsClass *ctcc = QCRYPTO_TLS_CREDS_CLASS(oc);
 | 
						|
 | 
						|
    ctcc->reload = qcrypto_tls_creds_x509_reload;
 | 
						|
 | 
						|
    ucc->complete = qcrypto_tls_creds_x509_complete;
 | 
						|
 | 
						|
    object_class_property_add_bool(oc, "loaded",
 | 
						|
                                   qcrypto_tls_creds_x509_prop_get_loaded,
 | 
						|
                                   qcrypto_tls_creds_x509_prop_set_loaded);
 | 
						|
    object_class_property_add_bool(oc, "sanity-check",
 | 
						|
                                   qcrypto_tls_creds_x509_prop_get_sanity,
 | 
						|
                                   qcrypto_tls_creds_x509_prop_set_sanity);
 | 
						|
    object_class_property_add_str(oc, "passwordid",
 | 
						|
                                  qcrypto_tls_creds_x509_prop_get_passwordid,
 | 
						|
                                  qcrypto_tls_creds_x509_prop_set_passwordid);
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
static const TypeInfo qcrypto_tls_creds_x509_info = {
 | 
						|
    .parent = TYPE_QCRYPTO_TLS_CREDS,
 | 
						|
    .name = TYPE_QCRYPTO_TLS_CREDS_X509,
 | 
						|
    .instance_size = sizeof(QCryptoTLSCredsX509),
 | 
						|
    .instance_init = qcrypto_tls_creds_x509_init,
 | 
						|
    .instance_finalize = qcrypto_tls_creds_x509_finalize,
 | 
						|
    .class_size = sizeof(QCryptoTLSCredsX509Class),
 | 
						|
    .class_init = qcrypto_tls_creds_x509_class_init,
 | 
						|
    .interfaces = (InterfaceInfo[]) {
 | 
						|
        { TYPE_USER_CREATABLE },
 | 
						|
        { }
 | 
						|
    }
 | 
						|
};
 | 
						|
 | 
						|
 | 
						|
static void
 | 
						|
qcrypto_tls_creds_x509_register_types(void)
 | 
						|
{
 | 
						|
    type_register_static(&qcrypto_tls_creds_x509_info);
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
type_init(qcrypto_tls_creds_x509_register_types);
 |