b83992896fcf75fd2fcc942a9c8b616fc75bee4a
[openssl.git] / crypto / ocsp / ocsp_srv.c
1 /* ocsp_srv.c */
2 /* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL
3  * project 2001.
4  */
5 /* ====================================================================
6  * Copyright (c) 1998-2001 The OpenSSL Project.  All rights reserved.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  *
12  * 1. Redistributions of source code must retain the above copyright
13  *    notice, this list of conditions and the following disclaimer. 
14  *
15  * 2. Redistributions in binary form must reproduce the above copyright
16  *    notice, this list of conditions and the following disclaimer in
17  *    the documentation and/or other materials provided with the
18  *    distribution.
19  *
20  * 3. All advertising materials mentioning features or use of this
21  *    software must display the following acknowledgment:
22  *    "This product includes software developed by the OpenSSL Project
23  *    for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
24  *
25  * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
26  *    endorse or promote products derived from this software without
27  *    prior written permission. For written permission, please contact
28  *    openssl-core@openssl.org.
29  *
30  * 5. Products derived from this software may not be called "OpenSSL"
31  *    nor may "OpenSSL" appear in their names without prior written
32  *    permission of the OpenSSL Project.
33  *
34  * 6. Redistributions of any form whatsoever must retain the following
35  *    acknowledgment:
36  *    "This product includes software developed by the OpenSSL Project
37  *    for use in the OpenSSL Toolkit (http://www.openssl.org/)"
38  *
39  * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
40  * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
41  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
42  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
43  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
44  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
45  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
46  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
47  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
48  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
49  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
50  * OF THE POSSIBILITY OF SUCH DAMAGE.
51  * ====================================================================
52  *
53  * This product includes cryptographic software written by Eric Young
54  * (eay@cryptsoft.com).  This product includes software written by Tim
55  * Hudson (tjh@cryptsoft.com).
56  *
57  */
58
59 #include <stdio.h>
60 #include <cryptlib.h>
61 #include <openssl/objects.h>
62 #include <openssl/rand.h>
63 #include <openssl/x509.h>
64 #include <openssl/pem.h>
65 #include <openssl/x509v3.h>
66 #include <openssl/ocsp.h>
67
68 /* Utility functions related to sending OCSP responses and extracting
69  * relevant information from the request.
70  */
71
72 int OCSP_request_onereq_count(OCSP_REQUEST *req)
73         {
74         return sk_OCSP_ONEREQ_num(req->tbsRequest->requestList);
75         }
76
77 OCSP_ONEREQ *OCSP_request_onereq_get0(OCSP_REQUEST *req, int i)
78         {
79         return sk_OCSP_ONEREQ_value(req->tbsRequest->requestList, i);
80         }
81
82 OCSP_CERTID *OCSP_onereq_get0_id(OCSP_ONEREQ *one)
83         {
84         return one->reqCert;
85         }
86
87 int OCSP_id_get0_info(ASN1_OCTET_STRING **piNameHash, ASN1_OBJECT **pmd,
88                         ASN1_OCTET_STRING **pikeyHash,
89                         ASN1_INTEGER **pserial, OCSP_CERTID *cid)
90         {
91         if (!cid) return 0;
92         if (pmd) *pmd = cid->hashAlgorithm->algorithm;
93         if(piNameHash) *piNameHash = cid->issuerNameHash;
94         if (pikeyHash) *pikeyHash = cid->issuerKeyHash;
95         if (pserial) *pserial = cid->serialNumber;
96         return 1;
97         }
98
99 /* Create an OCSP response and encode an optional basic response */
100 OCSP_RESPONSE *OCSP_response_create(int status, OCSP_BASICRESP *bs)
101         {
102         OCSP_RESPONSE *rsp = NULL;
103
104         if (!(rsp = OCSP_RESPONSE_new())) goto err;
105         if (!(ASN1_ENUMERATED_set(rsp->responseStatus, status))) goto err;
106         if (!bs) return rsp;
107         if (!(rsp->responseBytes = OCSP_RESPBYTES_new())) goto err;
108         rsp->responseBytes->responseType = OBJ_nid2obj(NID_id_pkix_OCSP_basic);
109         if (!ASN1_item_pack(bs, &OCSP_BASICRESP_it, &rsp->responseBytes->response))
110                                 goto err;
111         return rsp;
112 err:
113         if (rsp) OCSP_RESPONSE_free(rsp);
114         return NULL;
115         }
116
117
118 OCSP_SINGLERESP *OCSP_basic_add1_status(OCSP_BASICRESP *rsp,
119                                                 OCSP_CERTID *cid,
120                                                 int status, int reason,
121                                                 ASN1_TIME *revtime,
122                                         ASN1_TIME *thisupd, ASN1_TIME *nextupd)
123         {
124         OCSP_SINGLERESP *single = NULL;
125         OCSP_CERTSTATUS *cs;
126         OCSP_REVOKEDINFO *ri;
127
128         if(!rsp->tbsResponseData->responses &&
129             !(rsp->tbsResponseData->responses = sk_OCSP_SINGLERESP_new_null()))
130                 goto err;
131
132         if (!(single = OCSP_SINGLERESP_new()))
133                 goto err;
134
135
136
137         if (!ASN1_TIME_to_generalizedtime(thisupd, &single->thisUpdate))
138                 goto err;
139         if (nextupd &&
140                 !ASN1_TIME_to_generalizedtime(nextupd, &single->nextUpdate))
141                 goto err;
142
143         OCSP_CERTID_free(single->certId);
144
145         if(!(single->certId = OCSP_CERTID_dup(cid)))
146                 goto err;
147
148         cs = single->certStatus;
149         switch(cs->type = status)
150                 {
151         case V_OCSP_CERTSTATUS_REVOKED:
152                 if (!revtime)
153                         {
154                         OCSPerr(OCSP_F_OCSP_BASIC_ADD1_STATUS,OCSP_R_NO_REVOKED_TIME);
155                         goto err;
156                         }
157                 if (!(cs->value.revoked = ri = OCSP_REVOKEDINFO_new())) goto err;
158                 if (!ASN1_TIME_to_generalizedtime(revtime, &ri->revocationTime))
159                         goto err;       
160                 if (reason != OCSP_REVOKED_STATUS_NOSTATUS)
161                         {
162                         if (!(ri->revocationReason = ASN1_ENUMERATED_new())) 
163                                 goto err;
164                         if (!(ASN1_ENUMERATED_set(ri->revocationReason, 
165                                                   reason)))
166                                 goto err;       
167                         }
168                 break;
169
170         case V_OCSP_CERTSTATUS_GOOD:
171                 cs->value.good = ASN1_NULL_new();
172                 break;
173
174         case V_OCSP_CERTSTATUS_UNKNOWN:
175                 cs->value.unknown = ASN1_NULL_new();
176                 break;
177
178         default:
179                 goto err;
180
181                 }
182         if (!(sk_OCSP_SINGLERESP_push(rsp->tbsResponseData->responses, single)))
183                 goto err;
184         return single;
185 err:
186         OCSP_SINGLERESP_free(single);
187         return NULL;
188         }
189
190 /* Add a certificate to an OCSP request */
191
192 int OCSP_basic_add1_cert(OCSP_BASICRESP *resp, X509 *cert)
193         {
194         if (!resp->certs && !(resp->certs = sk_X509_new_null()))
195                 return 0;
196
197         if(!sk_X509_push(resp->certs, cert)) return 0;
198         CRYPTO_add(&cert->references, 1, CRYPTO_LOCK_X509);
199         return 1;
200         }
201
202 int OCSP_basic_sign(OCSP_BASICRESP *brsp, 
203                         X509 *signer, EVP_PKEY *key, const EVP_MD *dgst,
204                         STACK_OF(X509) *certs, unsigned long flags)
205         {
206         int i;
207         OCSP_RESPID *rid;
208
209         if(!(flags & OCSP_NOCERTS) && !OCSP_basic_add1_cert(brsp, signer))
210                 goto err;
211
212         for (i = 0; i < sk_X509_num(certs); i++)
213                 {
214                 X509 *tmpcert = sk_X509_value(certs, i);
215                 if(!OCSP_basic_add1_cert(brsp, tmpcert))
216                                 goto err;
217                 }
218
219         rid = brsp->tbsResponseData->responderId;
220         if (flags & OCSP_RESPID_KEY)
221                 {
222                 unsigned char md[SHA_DIGEST_LENGTH];
223                 X509_pubkey_digest(signer, EVP_sha1(), md, NULL);
224                 if (!(rid->value.byKey = ASN1_OCTET_STRING_new()))
225                         goto err;
226                 if (!(ASN1_OCTET_STRING_set(rid->value.byKey, md, SHA_DIGEST_LENGTH)))
227                                 goto err;
228                 rid->type = V_OCSP_RESPID_KEY;
229                 }
230         else
231                 {
232                 if (!X509_NAME_set(&rid->value.byName,
233                                         X509_get_subject_name(signer)))
234                                 goto err;
235                 rid->type = V_OCSP_RESPID_NAME;
236                 }
237
238         if (!(flags & OCSP_NOTIME) &&
239                 !X509_gmtime_adj(brsp->tbsResponseData->producedAt, 0))
240                 goto err;
241
242         /* Right now, I think that not doing double hashing is the right
243            thing.       -- Richard Levitte */
244
245         if (!OCSP_BASICRESP_sign(brsp, key, dgst, 0)) goto err;
246
247         return 1;
248 err:
249         return 0;
250         }