1/* ocsp_lib.c */
2/* Written by Tom Titchener <Tom_Titchener@groove.net> for the OpenSSL
3 * project. */
4
5/* History:
6   This file was transfered to Richard Levitte from CertCo by Kathy
7   Weinhold in mid-spring 2000 to be included in OpenSSL or released
8   as a patch kit. */
9
10/* ====================================================================
11 * Copyright (c) 1998-2000 The OpenSSL Project.  All rights reserved.
12 *
13 * Redistribution and use in source and binary forms, with or without
14 * modification, are permitted provided that the following conditions
15 * are met:
16 *
17 * 1. Redistributions of source code must retain the above copyright
18 *    notice, this list of conditions and the following disclaimer.
19 *
20 * 2. Redistributions in binary form must reproduce the above copyright
21 *    notice, this list of conditions and the following disclaimer in
22 *    the documentation and/or other materials provided with the
23 *    distribution.
24 *
25 * 3. All advertising materials mentioning features or use of this
26 *    software must display the following acknowledgment:
27 *    "This product includes software developed by the OpenSSL Project
28 *    for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
29 *
30 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
31 *    endorse or promote products derived from this software without
32 *    prior written permission. For written permission, please contact
33 *    openssl-core@openssl.org.
34 *
35 * 5. Products derived from this software may not be called "OpenSSL"
36 *    nor may "OpenSSL" appear in their names without prior written
37 *    permission of the OpenSSL Project.
38 *
39 * 6. Redistributions of any form whatsoever must retain the following
40 *    acknowledgment:
41 *    "This product includes software developed by the OpenSSL Project
42 *    for use in the OpenSSL Toolkit (http://www.openssl.org/)"
43 *
44 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
45 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
46 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
47 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
48 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
49 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
50 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
51 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
52 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
53 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
54 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
55 * OF THE POSSIBILITY OF SUCH DAMAGE.
56 * ====================================================================
57 *
58 * This product includes cryptographic software written by Eric Young
59 * (eay@cryptsoft.com).  This product includes software written by Tim
60 * Hudson (tjh@cryptsoft.com).
61 *
62 */
63
64#include <stdio.h>
65#include <cryptlib.h>
66#include <openssl/objects.h>
67#include <openssl/rand.h>
68#include <openssl/x509.h>
69#include <openssl/pem.h>
70#include <openssl/x509v3.h>
71#include <openssl/ocsp.h>
72#include <openssl/asn1t.h>
73
74/* Convert a certificate and its issuer to an OCSP_CERTID */
75
76OCSP_CERTID *OCSP_cert_to_id(const EVP_MD *dgst, X509 *subject, X509 *issuer)
77{
78	X509_NAME *iname;
79	ASN1_INTEGER *serial;
80	ASN1_BIT_STRING *ikey;
81#ifndef OPENSSL_NO_SHA1
82	if(!dgst) dgst = EVP_sha1();
83#endif
84	if (subject)
85		{
86		iname = X509_get_issuer_name(subject);
87		serial = X509_get_serialNumber(subject);
88		}
89	else
90		{
91		iname = X509_get_subject_name(issuer);
92		serial = NULL;
93		}
94	ikey = X509_get0_pubkey_bitstr(issuer);
95	return OCSP_cert_id_new(dgst, iname, ikey, serial);
96}
97
98
99OCSP_CERTID *OCSP_cert_id_new(const EVP_MD *dgst,
100			      X509_NAME *issuerName,
101			      ASN1_BIT_STRING* issuerKey,
102			      ASN1_INTEGER *serialNumber)
103        {
104	int nid;
105        unsigned int i;
106	X509_ALGOR *alg;
107	OCSP_CERTID *cid = NULL;
108	unsigned char md[EVP_MAX_MD_SIZE];
109
110	if (!(cid = OCSP_CERTID_new())) goto err;
111
112	alg = cid->hashAlgorithm;
113	if (alg->algorithm != NULL) ASN1_OBJECT_free(alg->algorithm);
114	if ((nid = EVP_MD_type(dgst)) == NID_undef)
115	        {
116		OCSPerr(OCSP_F_OCSP_CERT_ID_NEW,OCSP_R_UNKNOWN_NID);
117		goto err;
118		}
119	if (!(alg->algorithm=OBJ_nid2obj(nid))) goto err;
120	if ((alg->parameter=ASN1_TYPE_new()) == NULL) goto err;
121	alg->parameter->type=V_ASN1_NULL;
122
123	if (!X509_NAME_digest(issuerName, dgst, md, &i)) goto digerr;
124	if (!(ASN1_OCTET_STRING_set(cid->issuerNameHash, md, i))) goto err;
125
126	/* Calculate the issuerKey hash, excluding tag and length */
127	EVP_Digest(issuerKey->data, issuerKey->length, md, &i, dgst, NULL);
128
129	if (!(ASN1_OCTET_STRING_set(cid->issuerKeyHash, md, i))) goto err;
130
131	if (serialNumber)
132		{
133		ASN1_INTEGER_free(cid->serialNumber);
134		if (!(cid->serialNumber = ASN1_INTEGER_dup(serialNumber))) goto err;
135		}
136	return cid;
137digerr:
138	OCSPerr(OCSP_F_OCSP_CERT_ID_NEW,OCSP_R_DIGEST_ERR);
139err:
140	if (cid) OCSP_CERTID_free(cid);
141	return NULL;
142	}
143
144int OCSP_id_issuer_cmp(OCSP_CERTID *a, OCSP_CERTID *b)
145	{
146	int ret;
147	ret = OBJ_cmp(a->hashAlgorithm->algorithm, b->hashAlgorithm->algorithm);
148	if (ret) return ret;
149	ret = ASN1_OCTET_STRING_cmp(a->issuerNameHash, b->issuerNameHash);
150	if (ret) return ret;
151	return ASN1_OCTET_STRING_cmp(a->issuerKeyHash, b->issuerKeyHash);
152	}
153
154int OCSP_id_cmp(OCSP_CERTID *a, OCSP_CERTID *b)
155	{
156	int ret;
157	ret = OCSP_id_issuer_cmp(a, b);
158	if (ret) return ret;
159	return ASN1_INTEGER_cmp(a->serialNumber, b->serialNumber);
160	}
161
162
163/* Parse a URL and split it up into host, port and path components and whether
164 * it is SSL.
165 */
166
167int OCSP_parse_url(char *url, char **phost, char **pport, char **ppath, int *pssl)
168	{
169	char *p, *buf;
170
171	char *host, *port;
172
173	*phost = NULL;
174	*pport = NULL;
175	*ppath = NULL;
176
177	/* dup the buffer since we are going to mess with it */
178	buf = BUF_strdup(url);
179	if (!buf) goto mem_err;
180
181	/* Check for initial colon */
182	p = strchr(buf, ':');
183
184	if (!p) goto parse_err;
185
186	*(p++) = '\0';
187
188	if (!strcmp(buf, "http"))
189		{
190		*pssl = 0;
191		port = "80";
192		}
193	else if (!strcmp(buf, "https"))
194		{
195		*pssl = 1;
196		port = "443";
197		}
198	else
199		goto parse_err;
200
201	/* Check for double slash */
202	if ((p[0] != '/') || (p[1] != '/'))
203		goto parse_err;
204
205	p += 2;
206
207	host = p;
208
209	/* Check for trailing part of path */
210
211	p = strchr(p, '/');
212
213	if (!p)
214		*ppath = BUF_strdup("/");
215	else
216		{
217		*ppath = BUF_strdup(p);
218		/* Set start of path to 0 so hostname is valid */
219		*p = '\0';
220		}
221
222	if (!*ppath) goto mem_err;
223
224	p = host;
225	if(host[0] == '[')
226		{
227		/* ipv6 literal */
228		host++;
229		p = strchr(host, ']');
230		if(!p) goto parse_err;
231		*p = '\0';
232		p++;
233		}
234
235	/* Look for optional ':' for port number */
236	if ((p = strchr(p, ':')))
237		{
238		*p = 0;
239		port = p + 1;
240		}
241	else
242		{
243		/* Not found: set default port */
244		if (*pssl) port = "443";
245		else port = "80";
246		}
247
248	*pport = BUF_strdup(port);
249	if (!*pport) goto mem_err;
250
251	*phost = BUF_strdup(host);
252
253	if (!*phost) goto mem_err;
254
255	OPENSSL_free(buf);
256
257	return 1;
258
259	mem_err:
260	OCSPerr(OCSP_F_OCSP_PARSE_URL, ERR_R_MALLOC_FAILURE);
261	goto err;
262
263	parse_err:
264	OCSPerr(OCSP_F_OCSP_PARSE_URL, OCSP_R_ERROR_PARSING_URL);
265
266
267	err:
268	if (buf) OPENSSL_free(buf);
269	if (*ppath) OPENSSL_free(*ppath);
270	if (*pport) OPENSSL_free(*pport);
271	if (*phost) OPENSSL_free(*phost);
272	return 0;
273
274	}
275
276IMPLEMENT_ASN1_DUP_FUNCTION(OCSP_CERTID)
277