195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley/* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL 295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * project 2001. */ 395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley/* ==================================================================== 495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * Copyright (c) 2001 The OpenSSL Project. All rights reserved. 595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * Redistribution and use in source and binary forms, with or without 795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * modification, are permitted provided that the following conditions 895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * are met: 995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 1095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 1. Redistributions of source code must retain the above copyright 1195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * notice, this list of conditions and the following disclaimer. 1295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 1395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 2. Redistributions in binary form must reproduce the above copyright 1495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * notice, this list of conditions and the following disclaimer in 1595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * the documentation and/or other materials provided with the 1695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * distribution. 1795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 1895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 3. All advertising materials mentioning features or use of this 1995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * software must display the following acknowledgment: 2095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * "This product includes software developed by the OpenSSL Project 2195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" 2295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 2395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to 2495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * endorse or promote products derived from this software without 2595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * prior written permission. For written permission, please contact 2695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * licensing@OpenSSL.org. 2795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 2895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 5. Products derived from this software may not be called "OpenSSL" 2995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * nor may "OpenSSL" appear in their names without prior written 3095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * permission of the OpenSSL Project. 3195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 3295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 6. Redistributions of any form whatsoever must retain the following 3395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * acknowledgment: 3495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * "This product includes software developed by the OpenSSL Project 3595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" 3695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 3795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY 3895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 3995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 4095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR 4195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 4295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 4395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 4495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 4595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 4695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 4795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED 4895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * OF THE POSSIBILITY OF SUCH DAMAGE. 4995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * ==================================================================== 5095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * 5195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * This product includes cryptographic software written by Eric Young 5295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * (eay@cryptsoft.com). This product includes software written by Tim 5395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * Hudson (tjh@cryptsoft.com). */ 5495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley 5595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley#include <openssl/asn1.h> 5695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley#include <openssl/evp.h> 5795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley#include <openssl/obj.h> 5895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley#include <openssl/x509.h> 5995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley 6095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley 6195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langleyint X509_CRL_set_version(X509_CRL *x, long version) 6295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 6395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if (x == NULL) return(0); 6495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if (x->crl->version == NULL) 6595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 6695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if ((x->crl->version=M_ASN1_INTEGER_new()) == NULL) 6795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley return(0); 6895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 6995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley return(ASN1_INTEGER_set(x->crl->version,version)); 7095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 7195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley 7295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langleyint X509_CRL_set_issuer_name(X509_CRL *x, X509_NAME *name) 7395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 7495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if ((x == NULL) || (x->crl == NULL)) return(0); 7595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley return(X509_NAME_set(&x->crl->issuer,name)); 7695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 7795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley 7895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley 7995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langleyint X509_CRL_set_lastUpdate(X509_CRL *x, const ASN1_TIME *tm) 8095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 8195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley ASN1_TIME *in; 8295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley 8395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if (x == NULL) return(0); 8495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley in=x->crl->lastUpdate; 8595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if (in != tm) 8695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 8795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley in=M_ASN1_TIME_dup(tm); 8895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if (in != NULL) 8995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 9095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley M_ASN1_TIME_free(x->crl->lastUpdate); 9195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley x->crl->lastUpdate=in; 9295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 9395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 9495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley return(in != NULL); 9595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 9695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley 9795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langleyint X509_CRL_set_nextUpdate(X509_CRL *x, const ASN1_TIME *tm) 9895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 9995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley ASN1_TIME *in; 10095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley 10195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if (x == NULL) return(0); 10295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley in=x->crl->nextUpdate; 10395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if (in != tm) 10495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 10595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley in=M_ASN1_TIME_dup(tm); 10695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if (in != NULL) 10795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 10895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley M_ASN1_TIME_free(x->crl->nextUpdate); 10995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley x->crl->nextUpdate=in; 11095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 11195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 11295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley return(in != NULL); 11395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 11495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley 11595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langleyint X509_CRL_sort(X509_CRL *c) 11695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 11795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley size_t i; 11895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley X509_REVOKED *r; 11995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley /* sort the data so it will be written in serial 12095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley * number order */ 12195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley sk_X509_REVOKED_sort(c->crl->revoked); 12295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley for (i=0; i<sk_X509_REVOKED_num(c->crl->revoked); i++) 12395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 12495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley r=sk_X509_REVOKED_value(c->crl->revoked,i); 12595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley r->sequence=i; 12695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 12795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley c->crl->enc.modified = 1; 12895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley return 1; 12995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 13095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley 13195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langleyint X509_REVOKED_set_revocationDate(X509_REVOKED *x, ASN1_TIME *tm) 13295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 13395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley ASN1_TIME *in; 13495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley 13595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if (x == NULL) return(0); 13695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley in=x->revocationDate; 13795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if (in != tm) 13895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 13995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley in=M_ASN1_TIME_dup(tm); 14095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if (in != NULL) 14195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 14295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley M_ASN1_TIME_free(x->revocationDate); 14395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley x->revocationDate=in; 14495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 14595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 14695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley return(in != NULL); 14795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 14895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley 14995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langleyint X509_REVOKED_set_serialNumber(X509_REVOKED *x, ASN1_INTEGER *serial) 15095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 15195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley ASN1_INTEGER *in; 15295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley 15395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if (x == NULL) return(0); 15495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley in=x->serialNumber; 15595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if (in != serial) 15695c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 15795c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley in=M_ASN1_INTEGER_dup(serial); 15895c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley if (in != NULL) 15995c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley { 16095c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley M_ASN1_INTEGER_free(x->serialNumber); 16195c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley x->serialNumber=in; 16295c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 16395c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 16495c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley return(in != NULL); 16595c29f3cd1f6c08c6c0927868683392eea727ccAdam Langley } 166