1 44ee1bac 2021-01-27 op /*
  2 d2b941f3 2021-01-28 op  * Copyright (c) 2021 Omar Polo <op@omarpolo.com>
  3 44ee1bac 2021-01-27 op  *
  4 44ee1bac 2021-01-27 op  * Permission to use, copy, modify, and distribute this software for any
  5 44ee1bac 2021-01-27 op  * purpose with or without fee is hereby granted, provided that the above
  6 44ee1bac 2021-01-27 op  * copyright notice and this permission notice appear in all copies.
  7 44ee1bac 2021-01-27 op  *
  8 44ee1bac 2021-01-27 op  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  9 44ee1bac 2021-01-27 op  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 10 44ee1bac 2021-01-27 op  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 11 44ee1bac 2021-01-27 op  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 12 44ee1bac 2021-01-27 op  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 13 44ee1bac 2021-01-27 op  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 14 44ee1bac 2021-01-27 op  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 15 44ee1bac 2021-01-27 op  */
 16 44ee1bac 2021-01-27 op 
 17 52418c8d 2021-02-12 op #include "gmid.h"
 18 52418c8d 2021-02-12 op 
 19 44ee1bac 2021-01-27 op #include <errno.h>
 20 44ee1bac 2021-01-27 op #include <string.h>
 21 44ee1bac 2021-01-27 op 
 22 4283d65f 2021-02-10 op #include <openssl/bn.h>
 23 3abf91b0 2021-02-07 op #include <openssl/pem.h>
 24 02be96c6 2021-02-09 op #include <openssl/x509_vfy.h>
 25 02be96c6 2021-02-09 op #include <openssl/x509v3.h>
 26 3abf91b0 2021-02-07 op 
 27 ca21e100 2021-02-04 op static sigset_t set;
 28 ca21e100 2021-02-04 op 
 29 ca21e100 2021-02-04 op void
 30 ca21e100 2021-02-04 op block_signals(void)
 31 ca21e100 2021-02-04 op {
 32 ca21e100 2021-02-04 op 	sigset_t new;
 33 ca21e100 2021-02-04 op 
 34 ca21e100 2021-02-04 op 	sigemptyset(&new);
 35 ca21e100 2021-02-04 op 	sigaddset(&new, SIGHUP);
 36 ca21e100 2021-02-04 op 	sigprocmask(SIG_BLOCK, &new, &set);
 37 ca21e100 2021-02-04 op }
 38 ca21e100 2021-02-04 op 
 39 ca21e100 2021-02-04 op void
 40 ca21e100 2021-02-04 op unblock_signals(void)
 41 ca21e100 2021-02-04 op {
 42 ca21e100 2021-02-04 op 	sigprocmask(SIG_SETMASK, &set, NULL);
 43 ca21e100 2021-02-04 op }
 44 ca21e100 2021-02-04 op 
 45 44ee1bac 2021-01-27 op int
 46 44ee1bac 2021-01-27 op starts_with(const char *str, const char *prefix)
 47 44ee1bac 2021-01-27 op {
 48 44ee1bac 2021-01-27 op 	size_t i;
 49 44ee1bac 2021-01-27 op 
 50 44ee1bac 2021-01-27 op 	if (prefix == NULL)
 51 44ee1bac 2021-01-27 op 		return 0;
 52 44ee1bac 2021-01-27 op 
 53 44ee1bac 2021-01-27 op 	for (i = 0; prefix[i] != '\0'; ++i)
 54 44ee1bac 2021-01-27 op 		if (str[i] != prefix[i])
 55 44ee1bac 2021-01-27 op 			return 0;
 56 44ee1bac 2021-01-27 op 	return 1;
 57 44ee1bac 2021-01-27 op }
 58 44ee1bac 2021-01-27 op 
 59 44ee1bac 2021-01-27 op int
 60 44ee1bac 2021-01-27 op ends_with(const char *str, const char *sufx)
 61 44ee1bac 2021-01-27 op {
 62 44ee1bac 2021-01-27 op 	size_t i, j;
 63 44ee1bac 2021-01-27 op 
 64 44ee1bac 2021-01-27 op 	i = strlen(str);
 65 44ee1bac 2021-01-27 op 	j = strlen(sufx);
 66 44ee1bac 2021-01-27 op 
 67 44ee1bac 2021-01-27 op 	if (j > i)
 68 44ee1bac 2021-01-27 op 		return 0;
 69 44ee1bac 2021-01-27 op 
 70 44ee1bac 2021-01-27 op 	i -= j;
 71 44ee1bac 2021-01-27 op 	for (j = 0; str[i] != '\0'; i++, j++)
 72 44ee1bac 2021-01-27 op 		if (str[i] != sufx[j])
 73 44ee1bac 2021-01-27 op 			return 0;
 74 44ee1bac 2021-01-27 op 	return 1;
 75 44ee1bac 2021-01-27 op }
 76 44ee1bac 2021-01-27 op 
 77 44ee1bac 2021-01-27 op ssize_t
 78 44ee1bac 2021-01-27 op filesize(int fd)
 79 44ee1bac 2021-01-27 op {
 80 44ee1bac 2021-01-27 op 	ssize_t len;
 81 44ee1bac 2021-01-27 op 
 82 44ee1bac 2021-01-27 op 	if ((len = lseek(fd, 0, SEEK_END)) == -1)
 83 44ee1bac 2021-01-27 op 		return -1;
 84 44ee1bac 2021-01-27 op 	if (lseek(fd, 0, SEEK_SET) == -1)
 85 44ee1bac 2021-01-27 op 		return -1;
 86 44ee1bac 2021-01-27 op 	return len;
 87 44ee1bac 2021-01-27 op }
 88 bcf5d929 2021-02-01 op 
 89 bcf5d929 2021-02-01 op char *
 90 bcf5d929 2021-02-01 op absolutify_path(const char *path)
 91 bcf5d929 2021-02-01 op {
 92 bcf5d929 2021-02-01 op 	char *wd, *r;
 93 bcf5d929 2021-02-01 op 
 94 bcf5d929 2021-02-01 op 	if (*path == '/') {
 95 bcf5d929 2021-02-01 op 		if ((r = strdup(path)) == NULL)
 96 bcf5d929 2021-02-01 op 			err(1, "strdup");
 97 bcf5d929 2021-02-01 op 		return r;
 98 bcf5d929 2021-02-01 op 	}
 99 bcf5d929 2021-02-01 op 
100 bcf5d929 2021-02-01 op 	wd = getcwd(NULL, 0);
101 bcf5d929 2021-02-01 op 	if (asprintf(&r, "%s/%s", wd, path) == -1)
102 bcf5d929 2021-02-01 op 		err(1, "asprintf");
103 bcf5d929 2021-02-01 op 	free(wd);
104 bcf5d929 2021-02-01 op 	return r;
105 bcf5d929 2021-02-01 op }
106 ca21e100 2021-02-04 op 
107 ca21e100 2021-02-04 op char *
108 ca21e100 2021-02-04 op xstrdup(const char *s)
109 ca21e100 2021-02-04 op {
110 ca21e100 2021-02-04 op 	char *d;
111 ca21e100 2021-02-04 op 
112 ca21e100 2021-02-04 op 	if ((d = strdup(s)) == NULL)
113 ca21e100 2021-02-04 op 		err(1, "strdup");
114 ca21e100 2021-02-04 op 	return d;
115 ca21e100 2021-02-04 op }
116 3abf91b0 2021-02-07 op 
117 3abf91b0 2021-02-07 op void
118 52418c8d 2021-02-12 op gen_certificate(const char *hostname, const char *certpath, const char *keypath)
119 3abf91b0 2021-02-07 op {
120 4283d65f 2021-02-10 op 	BIGNUM		*e;
121 3abf91b0 2021-02-07 op 	EVP_PKEY	*pkey;
122 3abf91b0 2021-02-07 op 	RSA		*rsa;
123 3abf91b0 2021-02-07 op 	X509		*x509;
124 3abf91b0 2021-02-07 op 	X509_NAME	*name;
125 3abf91b0 2021-02-07 op 	FILE		*f;
126 52418c8d 2021-02-12 op 	const unsigned char *org = (const unsigned char*)"gmid";
127 52418c8d 2021-02-12 op 	const unsigned char *host = (const unsigned char*)hostname;
128 3abf91b0 2021-02-07 op 
129 3abf91b0 2021-02-07 op 	log_notice(NULL,
130 3abf91b0 2021-02-07 op 	    "generating new certificate for %s (it could take a while)",
131 3abf91b0 2021-02-07 op 	    host);
132 3abf91b0 2021-02-07 op 
133 3abf91b0 2021-02-07 op 	if ((pkey = EVP_PKEY_new()) == NULL)
134 3abf91b0 2021-02-07 op                 fatal("couldn't create a new private key");
135 3abf91b0 2021-02-07 op 
136 3abf91b0 2021-02-07 op 	if ((rsa = RSA_new()) == NULL)
137 4283d65f 2021-02-10 op 		fatal("couldn't generate rsa");
138 3abf91b0 2021-02-07 op 
139 4283d65f 2021-02-10 op 	if ((e = BN_new()) == NULL)
140 4283d65f 2021-02-10 op 		fatal("couldn't allocate a bignum");
141 4283d65f 2021-02-10 op 
142 4283d65f 2021-02-10 op 	BN_set_word(e, 17);
143 4283d65f 2021-02-10 op 	if (!RSA_generate_key_ex(rsa, 4096, e, NULL))
144 3abf91b0 2021-02-07 op 		fatal("couldn't generate a rsa key");
145 3abf91b0 2021-02-07 op 
146 3abf91b0 2021-02-07 op 	if (!EVP_PKEY_assign_RSA(pkey, rsa))
147 3abf91b0 2021-02-07 op 		fatal("couldn't assign the key");
148 3abf91b0 2021-02-07 op 
149 3abf91b0 2021-02-07 op 	if ((x509 = X509_new()) == NULL)
150 3abf91b0 2021-02-07 op 		fatal("couldn't generate the X509 certificate");
151 3abf91b0 2021-02-07 op 
152 3abf91b0 2021-02-07 op 	ASN1_INTEGER_set(X509_get_serialNumber(x509), 1);
153 3abf91b0 2021-02-07 op 	X509_gmtime_adj(X509_get_notBefore(x509), 0);
154 3abf91b0 2021-02-07 op 	X509_gmtime_adj(X509_get_notAfter(x509), 315360000L); /* 10 years */
155 3abf91b0 2021-02-07 op 
156 3abf91b0 2021-02-07 op 	if (!X509_set_pubkey(x509, pkey))
157 3abf91b0 2021-02-07 op 		fatal("couldn't set the public key");
158 3abf91b0 2021-02-07 op 
159 3abf91b0 2021-02-07 op 	name = X509_get_subject_name(x509);
160 3abf91b0 2021-02-07 op 	if (!X509_NAME_add_entry_by_txt(name, "O", MBSTRING_ASC, org, -1, -1, 0))
161 3abf91b0 2021-02-07 op 		fatal("couldn't add N to cert");
162 3abf91b0 2021-02-07 op 	if (!X509_NAME_add_entry_by_txt(name, "CN", MBSTRING_ASC, host, -1, -1, 0))
163 3abf91b0 2021-02-07 op 		fatal("couldn't add CN to cert");
164 3abf91b0 2021-02-07 op 	X509_set_issuer_name(x509, name);
165 3abf91b0 2021-02-07 op 
166 3abf91b0 2021-02-07 op 	if (!X509_sign(x509, pkey, EVP_sha256()))
167 3abf91b0 2021-02-07 op                 fatal("couldn't sign the certificate");
168 3abf91b0 2021-02-07 op 
169 3abf91b0 2021-02-07 op 	if ((f = fopen(keypath, "w")) == NULL)
170 3abf91b0 2021-02-07 op 		fatal("fopen(%s): %s", keypath, strerror(errno));
171 3abf91b0 2021-02-07 op 	if (!PEM_write_PrivateKey(f, pkey, NULL, NULL, 0, NULL, NULL))
172 3abf91b0 2021-02-07 op 		fatal("couldn't write private key");
173 3abf91b0 2021-02-07 op 	fclose(f);
174 3abf91b0 2021-02-07 op 
175 3abf91b0 2021-02-07 op 	if ((f = fopen(certpath, "w")) == NULL)
176 3abf91b0 2021-02-07 op 		fatal("fopen(%s): %s", certpath, strerror(errno));
177 3abf91b0 2021-02-07 op 	if (!PEM_write_X509(f, x509))
178 3abf91b0 2021-02-07 op 		fatal("couldn't write cert");
179 3abf91b0 2021-02-07 op 	fclose(f);
180 3abf91b0 2021-02-07 op 
181 4283d65f 2021-02-10 op 	BN_free(e);
182 3abf91b0 2021-02-07 op 	X509_free(x509);
183 3abf91b0 2021-02-07 op 	RSA_free(rsa);
184 3abf91b0 2021-02-07 op }
185 02be96c6 2021-02-09 op 
186 02be96c6 2021-02-09 op X509_STORE *
187 02be96c6 2021-02-09 op load_ca(const char *path)
188 02be96c6 2021-02-09 op {
189 02be96c6 2021-02-09 op 	FILE		*f = NULL;
190 02be96c6 2021-02-09 op 	X509		*x = NULL;
191 02be96c6 2021-02-09 op 	X509_STORE	*store;
192 02be96c6 2021-02-09 op 
193 02be96c6 2021-02-09 op 	if ((store = X509_STORE_new()) == NULL)
194 02be96c6 2021-02-09 op 		return NULL;
195 02be96c6 2021-02-09 op 
196 02be96c6 2021-02-09 op 	if ((f = fopen(path, "r")) == NULL)
197 02be96c6 2021-02-09 op 		goto err;
198 02be96c6 2021-02-09 op 
199 02be96c6 2021-02-09 op 	if ((x = PEM_read_X509(f, NULL, NULL, NULL)) == NULL)
200 02be96c6 2021-02-09 op 		goto err;
201 02be96c6 2021-02-09 op 
202 02be96c6 2021-02-09 op 	if (X509_check_ca(x) == 0)
203 02be96c6 2021-02-09 op 		goto err;
204 02be96c6 2021-02-09 op 
205 02be96c6 2021-02-09 op 	if (!X509_STORE_add_cert(store, x))
206 02be96c6 2021-02-09 op 		goto err;
207 02be96c6 2021-02-09 op 
208 02be96c6 2021-02-09 op 	X509_free(x);
209 02be96c6 2021-02-09 op 	fclose(f);
210 02be96c6 2021-02-09 op 	return store;
211 02be96c6 2021-02-09 op 
212 02be96c6 2021-02-09 op err:
213 02be96c6 2021-02-09 op 	X509_STORE_free(store);
214 02be96c6 2021-02-09 op 	if (x != NULL)
215 02be96c6 2021-02-09 op 		X509_free(x);
216 02be96c6 2021-02-09 op 	if (f != NULL)
217 02be96c6 2021-02-09 op 		fclose(f);
218 02be96c6 2021-02-09 op 	return NULL;
219 02be96c6 2021-02-09 op }
220 02be96c6 2021-02-09 op 
221 02be96c6 2021-02-09 op int
222 02be96c6 2021-02-09 op validate_against_ca(X509_STORE *ca, const uint8_t *chain, size_t len)
223 02be96c6 2021-02-09 op {
224 02be96c6 2021-02-09 op 	X509		*client;
225 02be96c6 2021-02-09 op 	BIO		*m;
226 02be96c6 2021-02-09 op 	X509_STORE_CTX	*ctx = NULL;
227 02be96c6 2021-02-09 op 	int		 ret = 0;
228 02be96c6 2021-02-09 op 
229 02be96c6 2021-02-09 op 	if ((m = BIO_new_mem_buf(chain, len)) == NULL)
230 02be96c6 2021-02-09 op 		return 0;
231 02be96c6 2021-02-09 op 
232 02be96c6 2021-02-09 op 	if ((client = PEM_read_bio_X509(m, NULL, NULL, NULL)) == NULL)
233 02be96c6 2021-02-09 op 		goto end;
234 02be96c6 2021-02-09 op 
235 02be96c6 2021-02-09 op 	if ((ctx = X509_STORE_CTX_new()) == NULL)
236 02be96c6 2021-02-09 op 		goto end;
237 02be96c6 2021-02-09 op 
238 02be96c6 2021-02-09 op 	if (!X509_STORE_CTX_init(ctx, ca, client, NULL))
239 02be96c6 2021-02-09 op 		goto end;
240 02be96c6 2021-02-09 op 
241 02be96c6 2021-02-09 op 	ret = X509_verify_cert(ctx);
242 02be96c6 2021-02-09 op 
243 02be96c6 2021-02-09 op end:
244 02be96c6 2021-02-09 op 	BIO_free(m);
245 02be96c6 2021-02-09 op 	if (client != NULL)
246 02be96c6 2021-02-09 op 		X509_free(client);
247 02be96c6 2021-02-09 op 	if (ctx != NULL)
248 02be96c6 2021-02-09 op 		X509_STORE_CTX_free(ctx);
249 02be96c6 2021-02-09 op 	return ret;
250 02be96c6 2021-02-09 op }