source4/web_server/tlscert.c

   1 /*
   2    Unix SMB/CIFS implementation.
   3
   4    auto-generate self signed TLS certificates
   5
   6    Copyright (C) Andrew Tridgell 2005
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 2 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program; if not, write to the Free Software
  20    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21 */
  22
  23 #include "includes.h"
  24
  25 #if HAVE_LIBGNUTLS
  26 #include "gnutls/gnutls.h"
  27 #include "gnutls/x509.h"
  28
  29 #define ORGANISATION_NAME "Samba Web Administration"
  30 #define UNIT_NAME         "SWAT - temporary autogenerated certificate"
  31 #define COMMON_NAME       "Samba SWAT"
  32 #define LIFETIME          700*24*60*60
  33
  34 /*
  35    auto-generate a set of self signed certificates
  36 */
  37 void tls_cert_generate(TALLOC_CTX *mem_ctx,
  38                        const char *keyfile, const char *certfile,
  39                        const char *cafile)
  40 {
  41         gnutls_x509_crt cacrt, crt;
  42         gnutls_x509_privkey key, cakey;
  43         uint32_t serial = (uint32_t)time(NULL);
  44         char keyid[100];
  45         char buf[4096];
  46         size_t bufsize;
  47         size_t keyidsize = sizeof(keyid);
  48         time_t activation = time(NULL), expiry = activation + LIFETIME;
  49         int ret;
  50
  51         if (file_exist(keyfile) || file_exist(certfile) || file_exist(cafile)) {
  52                 DEBUG(0,("TLS autogeneration skipped - some TLS files already exist\n"));
  53                 return;
  54         }
  55
  56 #define TLSCHECK(call) do { \
  57         ret = call; \
  58         if (ret < 0) { \
  59                 DEBUG(0,("TLS %s - %s\n", #call, gnutls_strerror(ret))); \
  60                 goto failed; \
  61         } \
  62 } while (0)
  63
  64         TLSCHECK(gnutls_global_init());
  65
  66         DEBUG(0,("Attempting to autogenerate TLS self-signed keys for https\n"));
  67
  68         DEBUG(3,("Generating private key\n"));
  69         TLSCHECK(gnutls_x509_privkey_init(&key));
  70         TLSCHECK(gnutls_x509_privkey_generate(key,   GNUTLS_PK_RSA, 1024, 0));
  71
  72         DEBUG(3,("Generating CA private key\n"));
  73         TLSCHECK(gnutls_x509_privkey_init(&cakey));
  74         TLSCHECK(gnutls_x509_privkey_generate(cakey, GNUTLS_PK_RSA, 1024, 0));
  75
  76         DEBUG(3,("Generating CA certificate\n"));
  77         TLSCHECK(gnutls_x509_crt_init(&cacrt));
  78         TLSCHECK(gnutls_x509_crt_set_dn_by_oid(cacrt,
  79                                       GNUTLS_OID_X520_ORGANIZATION_NAME, 0,
  80                                       ORGANISATION_NAME, strlen(ORGANISATION_NAME)));
  81         TLSCHECK(gnutls_x509_crt_set_dn_by_oid(cacrt,
  82                                       GNUTLS_OID_X520_ORGANIZATIONAL_UNIT_NAME, 0,
  83                                       UNIT_NAME, strlen(UNIT_NAME)));
  84         TLSCHECK(gnutls_x509_crt_set_dn_by_oid(cacrt,
  85                                       GNUTLS_OID_X520_COMMON_NAME, 0,
  86                                       COMMON_NAME, strlen(COMMON_NAME)));
  87         TLSCHECK(gnutls_x509_crt_set_key(cacrt, cakey));
  88         TLSCHECK(gnutls_x509_crt_set_serial(cacrt, &serial, sizeof(serial)));
  89         TLSCHECK(gnutls_x509_crt_set_activation_time(cacrt, activation));
  90         TLSCHECK(gnutls_x509_crt_set_expiration_time(cacrt, expiry));
  91         TLSCHECK(gnutls_x509_crt_set_ca_status(cacrt, 0));
  92         TLSCHECK(gnutls_x509_crt_set_key_purpose_oid(cacrt, GNUTLS_KP_TLS_WWW_SERVER, 0));
  93         TLSCHECK(gnutls_x509_crt_set_version(cacrt, 3));
  94         TLSCHECK(gnutls_x509_crt_get_key_id(cacrt, 0, keyid, &keyidsize));
  95         TLSCHECK(gnutls_x509_crt_set_subject_key_id(cacrt, keyid, keyidsize));
  96         TLSCHECK(gnutls_x509_crt_sign(cacrt, cacrt, cakey));
  97
  98         DEBUG(3,("Generating TLS certificate\n"));
  99         TLSCHECK(gnutls_x509_crt_init(&crt));
 100         TLSCHECK(gnutls_x509_crt_set_dn_by_oid(crt,
 101                                       GNUTLS_OID_X520_ORGANIZATION_NAME, 0,
 102                                       ORGANISATION_NAME, strlen(ORGANISATION_NAME)));
 103         TLSCHECK(gnutls_x509_crt_set_dn_by_oid(crt,
 104                                       GNUTLS_OID_X520_ORGANIZATIONAL_UNIT_NAME, 0,
 105                                       UNIT_NAME, strlen(UNIT_NAME)));
 106         TLSCHECK(gnutls_x509_crt_set_dn_by_oid(crt,
 107                                       GNUTLS_OID_X520_COMMON_NAME, 0,
 108                                       COMMON_NAME, strlen(COMMON_NAME)));
 109         TLSCHECK(gnutls_x509_crt_set_key(crt, key));
 110         TLSCHECK(gnutls_x509_crt_set_serial(crt, &serial, sizeof(serial)));
 111         TLSCHECK(gnutls_x509_crt_set_activation_time(crt, activation));
 112         TLSCHECK(gnutls_x509_crt_set_expiration_time(crt, expiry));
 113         TLSCHECK(gnutls_x509_crt_set_ca_status(crt, 0));
 114         TLSCHECK(gnutls_x509_crt_set_key_purpose_oid(crt, GNUTLS_KP_TLS_WWW_SERVER, 0));
 115         TLSCHECK(gnutls_x509_crt_set_version(crt, 3));
 116         TLSCHECK(gnutls_x509_crt_get_key_id(crt, 0, keyid, &keyidsize));
 117         TLSCHECK(gnutls_x509_crt_set_subject_key_id(crt, keyid, keyidsize));
 118         TLSCHECK(gnutls_x509_crt_sign(crt, crt, key));
 119
 120         DEBUG(3,("Exporting TLS keys\n"));
 121
 122         bufsize = sizeof(buf);
 123         TLSCHECK(gnutls_x509_crt_export(crt, GNUTLS_X509_FMT_PEM, buf, &bufsize));
 124         file_save(certfile, buf, bufsize);
 125
 126         bufsize = sizeof(buf);
 127         TLSCHECK(gnutls_x509_crt_export(cacrt, GNUTLS_X509_FMT_PEM, buf, &bufsize));
 128         file_save(cafile, buf, bufsize);
 129
 130         bufsize = sizeof(buf);
 131         TLSCHECK(gnutls_x509_privkey_export(key, GNUTLS_X509_FMT_PEM, buf, &bufsize));
 132         file_save(keyfile, buf, bufsize);
 133
 134         gnutls_x509_privkey_deinit(key);
 135         gnutls_x509_privkey_deinit(cakey);
 136         gnutls_x509_crt_deinit(cacrt);
 137         gnutls_x509_crt_deinit(crt);
 138         gnutls_global_deinit();
 139
 140         DEBUG(0,("TLS self-signed keys generated OK\n"));
 141         return;
 142
 143 failed:
 144         DEBUG(0,("TLS certificate generation failed\n"));
 145 }
 146
 147 #else
 148  void tls_cert_dummy(void) {}
 149 #endif