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 44ee1bac 2021-01-27 op #include <errno.h>
 18 44ee1bac 2021-01-27 op #include <string.h>
 19 44ee1bac 2021-01-27 op 
 20 3abf91b0 2021-02-07 op #include <openssl/pem.h>
 21 02be96c6 2021-02-09 op #include <openssl/x509_vfy.h>
 22 02be96c6 2021-02-09 op #include <openssl/x509v3.h>
 23 3abf91b0 2021-02-07 op 
 24 44ee1bac 2021-01-27 op #include "gmid.h"
 25 44ee1bac 2021-01-27 op 
 26 ca21e100 2021-02-04 op static sigset_t set;
 27 ca21e100 2021-02-04 op 
 28 ca21e100 2021-02-04 op void
 29 ca21e100 2021-02-04 op block_signals(void)
 30 ca21e100 2021-02-04 op {
 31 ca21e100 2021-02-04 op 	sigset_t new;
 32 ca21e100 2021-02-04 op 
 33 ca21e100 2021-02-04 op 	sigemptyset(&new);
 34 ca21e100 2021-02-04 op 	sigaddset(&new, SIGHUP);
 35 ca21e100 2021-02-04 op 	sigprocmask(SIG_BLOCK, &new, &set);
 36 ca21e100 2021-02-04 op }
 37 ca21e100 2021-02-04 op 
 38 ca21e100 2021-02-04 op void
 39 ca21e100 2021-02-04 op unblock_signals(void)
 40 ca21e100 2021-02-04 op {
 41 ca21e100 2021-02-04 op 	sigprocmask(SIG_SETMASK, &set, NULL);
 42 ca21e100 2021-02-04 op }
 43 ca21e100 2021-02-04 op 
 44 44ee1bac 2021-01-27 op int
 45 44ee1bac 2021-01-27 op starts_with(const char *str, const char *prefix)
 46 44ee1bac 2021-01-27 op {
 47 44ee1bac 2021-01-27 op 	size_t i;
 48 44ee1bac 2021-01-27 op 
 49 44ee1bac 2021-01-27 op 	if (prefix == NULL)
 50 44ee1bac 2021-01-27 op 		return 0;
 51 44ee1bac 2021-01-27 op 
 52 44ee1bac 2021-01-27 op 	for (i = 0; prefix[i] != '\0'; ++i)
 53 44ee1bac 2021-01-27 op 		if (str[i] != prefix[i])
 54 44ee1bac 2021-01-27 op 			return 0;
 55 44ee1bac 2021-01-27 op 	return 1;
 56 44ee1bac 2021-01-27 op }
 57 44ee1bac 2021-01-27 op 
 58 44ee1bac 2021-01-27 op int
 59 44ee1bac 2021-01-27 op ends_with(const char *str, const char *sufx)
 60 44ee1bac 2021-01-27 op {
 61 44ee1bac 2021-01-27 op 	size_t i, j;
 62 44ee1bac 2021-01-27 op 
 63 44ee1bac 2021-01-27 op 	i = strlen(str);
 64 44ee1bac 2021-01-27 op 	j = strlen(sufx);
 65 44ee1bac 2021-01-27 op 
 66 44ee1bac 2021-01-27 op 	if (j > i)
 67 44ee1bac 2021-01-27 op 		return 0;
 68 44ee1bac 2021-01-27 op 
 69 44ee1bac 2021-01-27 op 	i -= j;
 70 44ee1bac 2021-01-27 op 	for (j = 0; str[i] != '\0'; i++, j++)
 71 44ee1bac 2021-01-27 op 		if (str[i] != sufx[j])
 72 44ee1bac 2021-01-27 op 			return 0;
 73 44ee1bac 2021-01-27 op 	return 1;
 74 44ee1bac 2021-01-27 op }
 75 44ee1bac 2021-01-27 op 
 76 44ee1bac 2021-01-27 op ssize_t
 77 44ee1bac 2021-01-27 op filesize(int fd)
 78 44ee1bac 2021-01-27 op {
 79 44ee1bac 2021-01-27 op 	ssize_t len;
 80 44ee1bac 2021-01-27 op 
 81 44ee1bac 2021-01-27 op 	if ((len = lseek(fd, 0, SEEK_END)) == -1)
 82 44ee1bac 2021-01-27 op 		return -1;
 83 44ee1bac 2021-01-27 op 	if (lseek(fd, 0, SEEK_SET) == -1)
 84 44ee1bac 2021-01-27 op 		return -1;
 85 44ee1bac 2021-01-27 op 	return len;
 86 44ee1bac 2021-01-27 op }
 87 bcf5d929 2021-02-01 op 
 88 bcf5d929 2021-02-01 op char *
 89 bcf5d929 2021-02-01 op absolutify_path(const char *path)
 90 bcf5d929 2021-02-01 op {
 91 bcf5d929 2021-02-01 op 	char *wd, *r;
 92 bcf5d929 2021-02-01 op 
 93 bcf5d929 2021-02-01 op 	if (*path == '/') {
 94 bcf5d929 2021-02-01 op 		if ((r = strdup(path)) == NULL)
 95 bcf5d929 2021-02-01 op 			err(1, "strdup");
 96 bcf5d929 2021-02-01 op 		return r;
 97 bcf5d929 2021-02-01 op 	}
 98 bcf5d929 2021-02-01 op 
 99 bcf5d929 2021-02-01 op 	wd = getcwd(NULL, 0);
100 bcf5d929 2021-02-01 op 	if (asprintf(&r, "%s/%s", wd, path) == -1)
101 bcf5d929 2021-02-01 op 		err(1, "asprintf");
102 bcf5d929 2021-02-01 op 	free(wd);
103 bcf5d929 2021-02-01 op 	return r;
104 bcf5d929 2021-02-01 op }
105 ca21e100 2021-02-04 op 
106 ca21e100 2021-02-04 op char *
107 ca21e100 2021-02-04 op xstrdup(const char *s)
108 ca21e100 2021-02-04 op {
109 ca21e100 2021-02-04 op 	char *d;
110 ca21e100 2021-02-04 op 
111 ca21e100 2021-02-04 op 	if ((d = strdup(s)) == NULL)
112 ca21e100 2021-02-04 op 		err(1, "strdup");
113 ca21e100 2021-02-04 op 	return d;
114 ca21e100 2021-02-04 op }
115 3abf91b0 2021-02-07 op 
116 3abf91b0 2021-02-07 op void
117 3abf91b0 2021-02-07 op gen_certificate(const char *host, const char *certpath, const char *keypath)
118 3abf91b0 2021-02-07 op {
119 3abf91b0 2021-02-07 op 	BIGNUM		e;
120 3abf91b0 2021-02-07 op 	EVP_PKEY	*pkey;
121 3abf91b0 2021-02-07 op 	RSA		*rsa;
122 3abf91b0 2021-02-07 op 	X509		*x509;
123 3abf91b0 2021-02-07 op 	X509_NAME	*name;
124 3abf91b0 2021-02-07 op 	FILE		*f;
125 3abf91b0 2021-02-07 op 	const char	*org = "gmid";
126 3abf91b0 2021-02-07 op 
127 3abf91b0 2021-02-07 op 	log_notice(NULL,
128 3abf91b0 2021-02-07 op 	    "generating new certificate for %s (it could take a while)",
129 3abf91b0 2021-02-07 op 	    host);
130 3abf91b0 2021-02-07 op 
131 3abf91b0 2021-02-07 op 	if ((pkey = EVP_PKEY_new()) == NULL)
132 3abf91b0 2021-02-07 op                 fatal("couldn't create a new private key");
133 3abf91b0 2021-02-07 op 
134 3abf91b0 2021-02-07 op 	if ((rsa = RSA_new()) == NULL)
135 3abf91b0 2021-02-07 op 		fatal("could'nt generate rsa");
136 3abf91b0 2021-02-07 op 
137 3abf91b0 2021-02-07 op 	BN_init(&e);
138 3abf91b0 2021-02-07 op 	BN_set_word(&e, 17);
139 3abf91b0 2021-02-07 op 	if (!RSA_generate_key_ex(rsa, 4096, &e, NULL))
140 3abf91b0 2021-02-07 op 		fatal("couldn't generate a rsa key");
141 3abf91b0 2021-02-07 op 
142 3abf91b0 2021-02-07 op 	if (!EVP_PKEY_assign_RSA(pkey, rsa))
143 3abf91b0 2021-02-07 op 		fatal("couldn't assign the key");
144 3abf91b0 2021-02-07 op 
145 3abf91b0 2021-02-07 op 	if ((x509 = X509_new()) == NULL)
146 3abf91b0 2021-02-07 op 		fatal("couldn't generate the X509 certificate");
147 3abf91b0 2021-02-07 op 
148 3abf91b0 2021-02-07 op 	ASN1_INTEGER_set(X509_get_serialNumber(x509), 1);
149 3abf91b0 2021-02-07 op 	X509_gmtime_adj(X509_get_notBefore(x509), 0);
150 3abf91b0 2021-02-07 op 	X509_gmtime_adj(X509_get_notAfter(x509), 315360000L); /* 10 years */
151 3abf91b0 2021-02-07 op 
152 3abf91b0 2021-02-07 op 	if (!X509_set_pubkey(x509, pkey))
153 3abf91b0 2021-02-07 op 		fatal("couldn't set the public key");
154 3abf91b0 2021-02-07 op 
155 3abf91b0 2021-02-07 op 	name = X509_get_subject_name(x509);
156 3abf91b0 2021-02-07 op 	if (!X509_NAME_add_entry_by_txt(name, "O", MBSTRING_ASC, org, -1, -1, 0))
157 3abf91b0 2021-02-07 op 		fatal("couldn't add N to cert");
158 3abf91b0 2021-02-07 op 	if (!X509_NAME_add_entry_by_txt(name, "CN", MBSTRING_ASC, host, -1, -1, 0))
159 3abf91b0 2021-02-07 op 		fatal("couldn't add CN to cert");
160 3abf91b0 2021-02-07 op 	X509_set_issuer_name(x509, name);
161 3abf91b0 2021-02-07 op 
162 3abf91b0 2021-02-07 op 	if (!X509_sign(x509, pkey, EVP_sha256()))
163 3abf91b0 2021-02-07 op                 fatal("couldn't sign the certificate");
164 3abf91b0 2021-02-07 op 
165 3abf91b0 2021-02-07 op 	if ((f = fopen(keypath, "w")) == NULL)
166 3abf91b0 2021-02-07 op 		fatal("fopen(%s): %s", keypath, strerror(errno));
167 3abf91b0 2021-02-07 op 	if (!PEM_write_PrivateKey(f, pkey, NULL, NULL, 0, NULL, NULL))
168 3abf91b0 2021-02-07 op 		fatal("couldn't write private key");
169 3abf91b0 2021-02-07 op 	fclose(f);
170 3abf91b0 2021-02-07 op 
171 3abf91b0 2021-02-07 op 	if ((f = fopen(certpath, "w")) == NULL)
172 3abf91b0 2021-02-07 op 		fatal("fopen(%s): %s", certpath, strerror(errno));
173 3abf91b0 2021-02-07 op 	if (!PEM_write_X509(f, x509))
174 3abf91b0 2021-02-07 op 		fatal("couldn't write cert");
175 3abf91b0 2021-02-07 op 	fclose(f);
176 3abf91b0 2021-02-07 op 
177 3abf91b0 2021-02-07 op 	X509_free(x509);
178 3abf91b0 2021-02-07 op 	RSA_free(rsa);
179 3abf91b0 2021-02-07 op }
180 02be96c6 2021-02-09 op 
181 02be96c6 2021-02-09 op X509_STORE *
182 02be96c6 2021-02-09 op load_ca(const char *path)
183 02be96c6 2021-02-09 op {
184 02be96c6 2021-02-09 op 	FILE		*f = NULL;
185 02be96c6 2021-02-09 op 	X509		*x = NULL;
186 02be96c6 2021-02-09 op 	X509_STORE	*store;
187 02be96c6 2021-02-09 op 
188 02be96c6 2021-02-09 op 	if ((store = X509_STORE_new()) == NULL)
189 02be96c6 2021-02-09 op 		return NULL;
190 02be96c6 2021-02-09 op 
191 02be96c6 2021-02-09 op 	if ((f = fopen(path, "r")) == NULL)
192 02be96c6 2021-02-09 op 		goto err;
193 02be96c6 2021-02-09 op 
194 02be96c6 2021-02-09 op 	if ((x = PEM_read_X509(f, NULL, NULL, NULL)) == NULL)
195 02be96c6 2021-02-09 op 		goto err;
196 02be96c6 2021-02-09 op 
197 02be96c6 2021-02-09 op 	if (X509_check_ca(x) == 0)
198 02be96c6 2021-02-09 op 		goto err;
199 02be96c6 2021-02-09 op 
200 02be96c6 2021-02-09 op 	if (!X509_STORE_add_cert(store, x))
201 02be96c6 2021-02-09 op 		goto err;
202 02be96c6 2021-02-09 op 
203 02be96c6 2021-02-09 op 	X509_free(x);
204 02be96c6 2021-02-09 op 	fclose(f);
205 02be96c6 2021-02-09 op 	return store;
206 02be96c6 2021-02-09 op 
207 02be96c6 2021-02-09 op err:
208 02be96c6 2021-02-09 op 	X509_STORE_free(store);
209 02be96c6 2021-02-09 op 	if (x != NULL)
210 02be96c6 2021-02-09 op 		X509_free(x);
211 02be96c6 2021-02-09 op 	if (f != NULL)
212 02be96c6 2021-02-09 op 		fclose(f);
213 02be96c6 2021-02-09 op 	return NULL;
214 02be96c6 2021-02-09 op }
215 02be96c6 2021-02-09 op 
216 02be96c6 2021-02-09 op int
217 02be96c6 2021-02-09 op validate_against_ca(X509_STORE *ca, const uint8_t *chain, size_t len)
218 02be96c6 2021-02-09 op {
219 02be96c6 2021-02-09 op 	X509		*client;
220 02be96c6 2021-02-09 op 	BIO		*m;
221 02be96c6 2021-02-09 op 	X509_STORE_CTX	*ctx = NULL;
222 02be96c6 2021-02-09 op 	int		 ret = 0;
223 02be96c6 2021-02-09 op 
224 02be96c6 2021-02-09 op 	if ((m = BIO_new_mem_buf(chain, len)) == NULL)
225 02be96c6 2021-02-09 op 		return 0;
226 02be96c6 2021-02-09 op 
227 02be96c6 2021-02-09 op 	if ((client = PEM_read_bio_X509(m, NULL, NULL, NULL)) == NULL)
228 02be96c6 2021-02-09 op 		goto end;
229 02be96c6 2021-02-09 op 
230 02be96c6 2021-02-09 op 	if ((ctx = X509_STORE_CTX_new()) == NULL)
231 02be96c6 2021-02-09 op 		goto end;
232 02be96c6 2021-02-09 op 
233 02be96c6 2021-02-09 op 	if (!X509_STORE_CTX_init(ctx, ca, client, NULL))
234 02be96c6 2021-02-09 op 		goto end;
235 02be96c6 2021-02-09 op 
236 02be96c6 2021-02-09 op 	ret = X509_verify_cert(ctx);
237 02be96c6 2021-02-09 op 	fprintf(stderr, "openssl x509_verify_cert: %d\n", ret);
238 02be96c6 2021-02-09 op 
239 02be96c6 2021-02-09 op end:
240 02be96c6 2021-02-09 op 	BIO_free(m);
241 02be96c6 2021-02-09 op 	if (client != NULL)
242 02be96c6 2021-02-09 op 		X509_free(client);
243 02be96c6 2021-02-09 op 	if (ctx != NULL)
244 02be96c6 2021-02-09 op 		X509_STORE_CTX_free(ctx);
245 02be96c6 2021-02-09 op 	return ret;
246 02be96c6 2021-02-09 op }