2 Unix SMB/CIFS implementation.
4 auto-generate self signed TLS certificates
6 Copyright (C) Andrew Tridgell 2005
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.
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.
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.
26 #include "gnutls/gnutls.h"
27 #include "gnutls/x509.h"
29 #define ORGANISATION_NAME "Samba Administration"
30 #define UNIT_NAME "Samba - temporary autogenerated certificate"
31 #define COMMON_NAME "Samba"
32 #define LIFETIME 700*24*60*60
36 auto-generate a set of self signed certificates
38 void tls_cert_generate(TALLOC_CTX *mem_ctx,
39 const char *keyfile, const char *certfile,
42 gnutls_x509_crt cacrt, crt;
43 gnutls_x509_privkey key, cakey;
44 uint32_t serial = (uint32_t)time(NULL);
45 unsigned char keyid[100];
48 size_t keyidsize = sizeof(keyid);
49 time_t activation = time(NULL), expiry = activation + LIFETIME;
52 if (file_exist(keyfile) || file_exist(certfile) || file_exist(cafile)) {
53 DEBUG(0,("TLS autogeneration skipped - some TLS files already exist\n"));
57 #define TLSCHECK(call) do { \
60 DEBUG(0,("TLS %s - %s\n", #call, gnutls_strerror(ret))); \
65 TLSCHECK(gnutls_global_init());
67 DEBUG(0,("Attempting to autogenerate TLS self-signed keys for https\n"));
69 DEBUG(3,("Generating private key\n"));
70 TLSCHECK(gnutls_x509_privkey_init(&key));
71 TLSCHECK(gnutls_x509_privkey_generate(key, GNUTLS_PK_RSA, DH_BITS, 0));
73 DEBUG(3,("Generating CA private key\n"));
74 TLSCHECK(gnutls_x509_privkey_init(&cakey));
75 TLSCHECK(gnutls_x509_privkey_generate(cakey, GNUTLS_PK_RSA, DH_BITS, 0));
77 DEBUG(3,("Generating CA certificate\n"));
78 TLSCHECK(gnutls_x509_crt_init(&cacrt));
79 TLSCHECK(gnutls_x509_crt_set_dn_by_oid(cacrt,
80 GNUTLS_OID_X520_ORGANIZATION_NAME, 0,
81 ORGANISATION_NAME, strlen(ORGANISATION_NAME)));
82 TLSCHECK(gnutls_x509_crt_set_dn_by_oid(cacrt,
83 GNUTLS_OID_X520_ORGANIZATIONAL_UNIT_NAME, 0,
84 UNIT_NAME, strlen(UNIT_NAME)));
85 TLSCHECK(gnutls_x509_crt_set_dn_by_oid(cacrt,
86 GNUTLS_OID_X520_COMMON_NAME, 0,
87 COMMON_NAME, strlen(COMMON_NAME)));
88 TLSCHECK(gnutls_x509_crt_set_key(cacrt, cakey));
89 TLSCHECK(gnutls_x509_crt_set_serial(cacrt, &serial, sizeof(serial)));
90 TLSCHECK(gnutls_x509_crt_set_activation_time(cacrt, activation));
91 TLSCHECK(gnutls_x509_crt_set_expiration_time(cacrt, expiry));
92 TLSCHECK(gnutls_x509_crt_set_ca_status(cacrt, 0));
93 #ifdef GNUTLS_KP_TLS_WWW_SERVER
94 TLSCHECK(gnutls_x509_crt_set_key_purpose_oid(cacrt, GNUTLS_KP_TLS_WWW_SERVER, 0));
96 TLSCHECK(gnutls_x509_crt_set_version(cacrt, 3));
97 TLSCHECK(gnutls_x509_crt_get_key_id(cacrt, 0, keyid, &keyidsize));
98 #if HAVE_GNUTLS_X509_CRT_SET_SUBJECT_KEY_ID
99 TLSCHECK(gnutls_x509_crt_set_subject_key_id(cacrt, keyid, keyidsize));
101 TLSCHECK(gnutls_x509_crt_sign(cacrt, cacrt, cakey));
103 DEBUG(3,("Generating TLS certificate\n"));
104 TLSCHECK(gnutls_x509_crt_init(&crt));
105 TLSCHECK(gnutls_x509_crt_set_dn_by_oid(crt,
106 GNUTLS_OID_X520_ORGANIZATION_NAME, 0,
107 ORGANISATION_NAME, strlen(ORGANISATION_NAME)));
108 TLSCHECK(gnutls_x509_crt_set_dn_by_oid(crt,
109 GNUTLS_OID_X520_ORGANIZATIONAL_UNIT_NAME, 0,
110 UNIT_NAME, strlen(UNIT_NAME)));
111 TLSCHECK(gnutls_x509_crt_set_dn_by_oid(crt,
112 GNUTLS_OID_X520_COMMON_NAME, 0,
113 COMMON_NAME, strlen(COMMON_NAME)));
114 TLSCHECK(gnutls_x509_crt_set_key(crt, key));
115 TLSCHECK(gnutls_x509_crt_set_serial(crt, &serial, sizeof(serial)));
116 TLSCHECK(gnutls_x509_crt_set_activation_time(crt, activation));
117 TLSCHECK(gnutls_x509_crt_set_expiration_time(crt, expiry));
118 TLSCHECK(gnutls_x509_crt_set_ca_status(crt, 0));
119 #ifdef GNUTLS_KP_TLS_WWW_SERVER
120 TLSCHECK(gnutls_x509_crt_set_key_purpose_oid(crt, GNUTLS_KP_TLS_WWW_SERVER, 0));
122 TLSCHECK(gnutls_x509_crt_set_version(crt, 3));
123 TLSCHECK(gnutls_x509_crt_get_key_id(crt, 0, keyid, &keyidsize));
124 #if HAVE_GNUTLS_X509_CRT_SET_SUBJECT_KEY_ID
125 TLSCHECK(gnutls_x509_crt_set_subject_key_id(crt, keyid, keyidsize));
127 TLSCHECK(gnutls_x509_crt_sign(crt, crt, key));
129 DEBUG(3,("Exporting TLS keys\n"));
131 bufsize = sizeof(buf);
132 TLSCHECK(gnutls_x509_crt_export(crt, GNUTLS_X509_FMT_PEM, buf, &bufsize));
133 file_save(certfile, buf, bufsize);
135 bufsize = sizeof(buf);
136 TLSCHECK(gnutls_x509_crt_export(cacrt, GNUTLS_X509_FMT_PEM, buf, &bufsize));
137 file_save(cafile, buf, bufsize);
139 bufsize = sizeof(buf);
140 TLSCHECK(gnutls_x509_privkey_export(key, GNUTLS_X509_FMT_PEM, buf, &bufsize));
141 file_save(keyfile, buf, bufsize);
143 gnutls_x509_privkey_deinit(key);
144 gnutls_x509_privkey_deinit(cakey);
145 gnutls_x509_crt_deinit(cacrt);
146 gnutls_x509_crt_deinit(crt);
147 gnutls_global_deinit();
149 DEBUG(0,("TLS self-signed keys generated OK\n"));
153 DEBUG(0,("TLS certificate generation failed\n"));
157 void tls_cert_dummy(void) {}