1ebfedea0SLionel Sambuc /* crypto/x509/x509_set.c */
2ebfedea0SLionel Sambuc /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
3ebfedea0SLionel Sambuc * All rights reserved.
4ebfedea0SLionel Sambuc *
5ebfedea0SLionel Sambuc * This package is an SSL implementation written
6ebfedea0SLionel Sambuc * by Eric Young (eay@cryptsoft.com).
7ebfedea0SLionel Sambuc * The implementation was written so as to conform with Netscapes SSL.
8ebfedea0SLionel Sambuc *
9ebfedea0SLionel Sambuc * This library is free for commercial and non-commercial use as long as
10ebfedea0SLionel Sambuc * the following conditions are aheared to. The following conditions
11ebfedea0SLionel Sambuc * apply to all code found in this distribution, be it the RC4, RSA,
12ebfedea0SLionel Sambuc * lhash, DES, etc., code; not just the SSL code. The SSL documentation
13ebfedea0SLionel Sambuc * included with this distribution is covered by the same copyright terms
14ebfedea0SLionel Sambuc * except that the holder is Tim Hudson (tjh@cryptsoft.com).
15ebfedea0SLionel Sambuc *
16ebfedea0SLionel Sambuc * Copyright remains Eric Young's, and as such any Copyright notices in
17ebfedea0SLionel Sambuc * the code are not to be removed.
18ebfedea0SLionel Sambuc * If this package is used in a product, Eric Young should be given attribution
19ebfedea0SLionel Sambuc * as the author of the parts of the library used.
20ebfedea0SLionel Sambuc * This can be in the form of a textual message at program startup or
21ebfedea0SLionel Sambuc * in documentation (online or textual) provided with the package.
22ebfedea0SLionel Sambuc *
23ebfedea0SLionel Sambuc * Redistribution and use in source and binary forms, with or without
24ebfedea0SLionel Sambuc * modification, are permitted provided that the following conditions
25ebfedea0SLionel Sambuc * are met:
26ebfedea0SLionel Sambuc * 1. Redistributions of source code must retain the copyright
27ebfedea0SLionel Sambuc * notice, this list of conditions and the following disclaimer.
28ebfedea0SLionel Sambuc * 2. Redistributions in binary form must reproduce the above copyright
29ebfedea0SLionel Sambuc * notice, this list of conditions and the following disclaimer in the
30ebfedea0SLionel Sambuc * documentation and/or other materials provided with the distribution.
31ebfedea0SLionel Sambuc * 3. All advertising materials mentioning features or use of this software
32ebfedea0SLionel Sambuc * must display the following acknowledgement:
33ebfedea0SLionel Sambuc * "This product includes cryptographic software written by
34ebfedea0SLionel Sambuc * Eric Young (eay@cryptsoft.com)"
35ebfedea0SLionel Sambuc * The word 'cryptographic' can be left out if the rouines from the library
36ebfedea0SLionel Sambuc * being used are not cryptographic related :-).
37ebfedea0SLionel Sambuc * 4. If you include any Windows specific code (or a derivative thereof) from
38ebfedea0SLionel Sambuc * the apps directory (application code) you must include an acknowledgement:
39ebfedea0SLionel Sambuc * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
40ebfedea0SLionel Sambuc *
41ebfedea0SLionel Sambuc * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
42ebfedea0SLionel Sambuc * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
43ebfedea0SLionel Sambuc * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
44ebfedea0SLionel Sambuc * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
45ebfedea0SLionel Sambuc * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
46ebfedea0SLionel Sambuc * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
47ebfedea0SLionel Sambuc * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
48ebfedea0SLionel Sambuc * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
49ebfedea0SLionel Sambuc * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
50ebfedea0SLionel Sambuc * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
51ebfedea0SLionel Sambuc * SUCH DAMAGE.
52ebfedea0SLionel Sambuc *
53ebfedea0SLionel Sambuc * The licence and distribution terms for any publically available version or
54ebfedea0SLionel Sambuc * derivative of this code cannot be changed. i.e. this code cannot simply be
55ebfedea0SLionel Sambuc * copied and put under another distribution licence
56ebfedea0SLionel Sambuc * [including the GNU Public Licence.]
57ebfedea0SLionel Sambuc */
58ebfedea0SLionel Sambuc
59ebfedea0SLionel Sambuc #include <stdio.h>
60ebfedea0SLionel Sambuc #include "cryptlib.h"
61ebfedea0SLionel Sambuc #include <openssl/asn1.h>
62ebfedea0SLionel Sambuc #include <openssl/objects.h>
63ebfedea0SLionel Sambuc #include <openssl/evp.h>
64ebfedea0SLionel Sambuc #include <openssl/x509.h>
65ebfedea0SLionel Sambuc
X509_set_version(X509 * x,long version)66ebfedea0SLionel Sambuc int X509_set_version(X509 *x, long version)
67ebfedea0SLionel Sambuc {
68*0a6a1f1dSLionel Sambuc if (x == NULL)
69*0a6a1f1dSLionel Sambuc return (0);
70*0a6a1f1dSLionel Sambuc if (x->cert_info->version == NULL) {
71ebfedea0SLionel Sambuc if ((x->cert_info->version = M_ASN1_INTEGER_new()) == NULL)
72ebfedea0SLionel Sambuc return (0);
73ebfedea0SLionel Sambuc }
74ebfedea0SLionel Sambuc return (ASN1_INTEGER_set(x->cert_info->version, version));
75ebfedea0SLionel Sambuc }
76ebfedea0SLionel Sambuc
X509_set_serialNumber(X509 * x,ASN1_INTEGER * serial)77ebfedea0SLionel Sambuc int X509_set_serialNumber(X509 *x, ASN1_INTEGER *serial)
78ebfedea0SLionel Sambuc {
79ebfedea0SLionel Sambuc ASN1_INTEGER *in;
80ebfedea0SLionel Sambuc
81*0a6a1f1dSLionel Sambuc if (x == NULL)
82*0a6a1f1dSLionel Sambuc return (0);
83ebfedea0SLionel Sambuc in = x->cert_info->serialNumber;
84*0a6a1f1dSLionel Sambuc if (in != serial) {
85ebfedea0SLionel Sambuc in = M_ASN1_INTEGER_dup(serial);
86*0a6a1f1dSLionel Sambuc if (in != NULL) {
87ebfedea0SLionel Sambuc M_ASN1_INTEGER_free(x->cert_info->serialNumber);
88ebfedea0SLionel Sambuc x->cert_info->serialNumber = in;
89ebfedea0SLionel Sambuc }
90ebfedea0SLionel Sambuc }
91ebfedea0SLionel Sambuc return (in != NULL);
92ebfedea0SLionel Sambuc }
93ebfedea0SLionel Sambuc
X509_set_issuer_name(X509 * x,X509_NAME * name)94ebfedea0SLionel Sambuc int X509_set_issuer_name(X509 *x, X509_NAME *name)
95ebfedea0SLionel Sambuc {
96*0a6a1f1dSLionel Sambuc if ((x == NULL) || (x->cert_info == NULL))
97*0a6a1f1dSLionel Sambuc return (0);
98ebfedea0SLionel Sambuc return (X509_NAME_set(&x->cert_info->issuer, name));
99ebfedea0SLionel Sambuc }
100ebfedea0SLionel Sambuc
X509_set_subject_name(X509 * x,X509_NAME * name)101ebfedea0SLionel Sambuc int X509_set_subject_name(X509 *x, X509_NAME *name)
102ebfedea0SLionel Sambuc {
103*0a6a1f1dSLionel Sambuc if ((x == NULL) || (x->cert_info == NULL))
104*0a6a1f1dSLionel Sambuc return (0);
105ebfedea0SLionel Sambuc return (X509_NAME_set(&x->cert_info->subject, name));
106ebfedea0SLionel Sambuc }
107ebfedea0SLionel Sambuc
X509_set_notBefore(X509 * x,const ASN1_TIME * tm)108ebfedea0SLionel Sambuc int X509_set_notBefore(X509 *x, const ASN1_TIME *tm)
109ebfedea0SLionel Sambuc {
110ebfedea0SLionel Sambuc ASN1_TIME *in;
111ebfedea0SLionel Sambuc
112*0a6a1f1dSLionel Sambuc if ((x == NULL) || (x->cert_info->validity == NULL))
113*0a6a1f1dSLionel Sambuc return (0);
114ebfedea0SLionel Sambuc in = x->cert_info->validity->notBefore;
115*0a6a1f1dSLionel Sambuc if (in != tm) {
116ebfedea0SLionel Sambuc in = M_ASN1_TIME_dup(tm);
117*0a6a1f1dSLionel Sambuc if (in != NULL) {
118ebfedea0SLionel Sambuc M_ASN1_TIME_free(x->cert_info->validity->notBefore);
119ebfedea0SLionel Sambuc x->cert_info->validity->notBefore = in;
120ebfedea0SLionel Sambuc }
121ebfedea0SLionel Sambuc }
122ebfedea0SLionel Sambuc return (in != NULL);
123ebfedea0SLionel Sambuc }
124ebfedea0SLionel Sambuc
X509_set_notAfter(X509 * x,const ASN1_TIME * tm)125ebfedea0SLionel Sambuc int X509_set_notAfter(X509 *x, const ASN1_TIME *tm)
126ebfedea0SLionel Sambuc {
127ebfedea0SLionel Sambuc ASN1_TIME *in;
128ebfedea0SLionel Sambuc
129*0a6a1f1dSLionel Sambuc if ((x == NULL) || (x->cert_info->validity == NULL))
130*0a6a1f1dSLionel Sambuc return (0);
131ebfedea0SLionel Sambuc in = x->cert_info->validity->notAfter;
132*0a6a1f1dSLionel Sambuc if (in != tm) {
133ebfedea0SLionel Sambuc in = M_ASN1_TIME_dup(tm);
134*0a6a1f1dSLionel Sambuc if (in != NULL) {
135ebfedea0SLionel Sambuc M_ASN1_TIME_free(x->cert_info->validity->notAfter);
136ebfedea0SLionel Sambuc x->cert_info->validity->notAfter = in;
137ebfedea0SLionel Sambuc }
138ebfedea0SLionel Sambuc }
139ebfedea0SLionel Sambuc return (in != NULL);
140ebfedea0SLionel Sambuc }
141ebfedea0SLionel Sambuc
X509_set_pubkey(X509 * x,EVP_PKEY * pkey)142ebfedea0SLionel Sambuc int X509_set_pubkey(X509 *x, EVP_PKEY *pkey)
143ebfedea0SLionel Sambuc {
144*0a6a1f1dSLionel Sambuc if ((x == NULL) || (x->cert_info == NULL))
145*0a6a1f1dSLionel Sambuc return (0);
146ebfedea0SLionel Sambuc return (X509_PUBKEY_set(&(x->cert_info->key), pkey));
147ebfedea0SLionel Sambuc }
148