1/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
2 * All rights reserved.
3 *
4 * This package is an SSL implementation written
5 * by Eric Young (eay@cryptsoft.com).
6 * The implementation was written so as to conform with Netscapes SSL.
7 *
8 * This library is free for commercial and non-commercial use as long as
9 * the following conditions are aheared to.  The following conditions
10 * apply to all code found in this distribution, be it the RC4, RSA,
11 * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
12 * included with this distribution is covered by the same copyright terms
13 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
14 *
15 * Copyright remains Eric Young's, and as such any Copyright notices in
16 * the code are not to be removed.
17 * If this package is used in a product, Eric Young should be given attribution
18 * as the author of the parts of the library used.
19 * This can be in the form of a textual message at program startup or
20 * in documentation (online or textual) provided with the package.
21 *
22 * Redistribution and use in source and binary forms, with or without
23 * modification, are permitted provided that the following conditions
24 * are met:
25 * 1. Redistributions of source code must retain the copyright
26 *    notice, this list of conditions and the following disclaimer.
27 * 2. Redistributions in binary form must reproduce the above copyright
28 *    notice, this list of conditions and the following disclaimer in the
29 *    documentation and/or other materials provided with the distribution.
30 * 3. All advertising materials mentioning features or use of this software
31 *    must display the following acknowledgement:
32 *    "This product includes cryptographic software written by
33 *     Eric Young (eay@cryptsoft.com)"
34 *    The word 'cryptographic' can be left out if the rouines from the library
35 *    being used are not cryptographic related :-).
36 * 4. If you include any Windows specific code (or a derivative thereof) from
37 *    the apps directory (application code) you must include an acknowledgement:
38 *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
39 *
40 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
41 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
42 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
43 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
44 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
45 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
46 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
47 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
48 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
49 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
50 * SUCH DAMAGE.
51 *
52 * The licence and distribution terms for any publically available version or
53 * derivative of this code cannot be changed.  i.e. this code cannot simply be
54 * copied and put under another distribution licence
55 * [including the GNU Public Licence.] */
56
57#include <openssl/asn1.h>
58
59#include <openssl/err.h>
60#include <openssl/mem.h>
61#include <openssl/time_support.h>
62
63
64#if 0
65int i2d_ASN1_UTCTIME(ASN1_UTCTIME *a, unsigned char **pp)
66	{
67	return(i2d_ASN1_bytes((ASN1_STRING *)a,pp,
68		V_ASN1_UTCTIME,V_ASN1_UNIVERSAL));
69	}
70
71
72ASN1_UTCTIME *d2i_ASN1_UTCTIME(ASN1_UTCTIME **a, unsigned char **pp,
73	     long length)
74	{
75	ASN1_UTCTIME *ret=NULL;
76
77	ret=(ASN1_UTCTIME *)d2i_ASN1_bytes((ASN1_STRING **)a,pp,length,
78		V_ASN1_UTCTIME,V_ASN1_UNIVERSAL);
79	if (ret == NULL)
80		{
81		OPENSSL_PUT_ERROR(ASN1, XXX, ERR_R_NESTED_ASN1_ERROR);
82		return(NULL);
83		}
84	if (!ASN1_UTCTIME_check(ret))
85		{
86		OPENSSL_PUT_ERROR(ASN1, XXX, ASN1_R_INVALID_TIME_FORMAT);
87		goto err;
88		}
89
90	return(ret);
91err:
92	if ((ret != NULL) && ((a == NULL) || (*a != ret)))
93		M_ASN1_UTCTIME_free(ret);
94	return(NULL);
95	}
96
97#endif
98
99int asn1_utctime_to_tm(struct tm *tm, const ASN1_UTCTIME *d)
100	{
101	static const int min[8]={ 0, 1, 1, 0, 0, 0, 0, 0};
102	static const int max[8]={99,12,31,23,59,59,12,59};
103	char *a;
104	int n,i,l,o;
105
106	if (d->type != V_ASN1_UTCTIME) return(0);
107	l=d->length;
108	a=(char *)d->data;
109	o=0;
110
111	if (l < 11) goto err;
112	for (i=0; i<6; i++)
113		{
114		if ((i == 5) && ((a[o] == 'Z') ||
115			(a[o] == '+') || (a[o] == '-')))
116			{
117			i++;
118			if (tm)
119				tm->tm_sec = 0;
120			break;
121			}
122		if ((a[o] < '0') || (a[o] > '9')) goto err;
123		n= a[o]-'0';
124		if (++o > l) goto err;
125
126		if ((a[o] < '0') || (a[o] > '9')) goto err;
127		n=(n*10)+ a[o]-'0';
128		if (++o > l) goto err;
129
130		if ((n < min[i]) || (n > max[i])) goto err;
131		if (tm)
132			{
133			switch(i)
134				{
135			case 0:
136				tm->tm_year = n < 50 ? n + 100 : n;
137				break;
138			case 1:
139				tm->tm_mon = n - 1;
140				break;
141			case 2:
142				tm->tm_mday = n;
143				break;
144			case 3:
145				tm->tm_hour = n;
146				break;
147			case 4:
148				tm->tm_min = n;
149				break;
150			case 5:
151				tm->tm_sec = n;
152				break;
153				}
154			}
155		}
156	if (a[o] == 'Z')
157		o++;
158	else if ((a[o] == '+') || (a[o] == '-'))
159		{
160		int offsign = a[o] == '-' ? -1 : 1, offset = 0;
161		o++;
162		if (o+4 > l) goto err;
163		for (i=6; i<8; i++)
164			{
165			if ((a[o] < '0') || (a[o] > '9')) goto err;
166			n= a[o]-'0';
167			o++;
168			if ((a[o] < '0') || (a[o] > '9')) goto err;
169			n=(n*10)+ a[o]-'0';
170			if ((n < min[i]) || (n > max[i])) goto err;
171			if (tm)
172				{
173				if (i == 6)
174					offset = n * 3600;
175				else if (i == 7)
176					offset += n * 60;
177				}
178			o++;
179			}
180		if (offset && !OPENSSL_gmtime_adj(tm, 0, offset * offsign))
181			return 0;
182		}
183	return o == l;
184err:
185	return 0;
186	}
187
188int ASN1_UTCTIME_check(const ASN1_UTCTIME *d)
189	{
190	return asn1_utctime_to_tm(NULL, d);
191	}
192
193int ASN1_UTCTIME_set_string(ASN1_UTCTIME *s, const char *str)
194	{
195	ASN1_UTCTIME t;
196
197	t.type=V_ASN1_UTCTIME;
198	t.length=strlen(str);
199	t.data=(unsigned char *)str;
200	if (ASN1_UTCTIME_check(&t))
201		{
202		if (s != NULL)
203			{
204			if (!ASN1_STRING_set((ASN1_STRING *)s,
205				(unsigned char *)str,t.length))
206				return 0;
207			s->type = V_ASN1_UTCTIME;
208			}
209		return(1);
210		}
211	else
212		return(0);
213	}
214
215ASN1_UTCTIME *ASN1_UTCTIME_set(ASN1_UTCTIME *s, time_t t)
216	{
217	return ASN1_UTCTIME_adj(s, t, 0, 0);
218	}
219
220ASN1_UTCTIME *ASN1_UTCTIME_adj(ASN1_UTCTIME *s, time_t t,
221				int offset_day, long offset_sec)
222	{
223	char *p;
224	struct tm *ts;
225	struct tm data;
226	size_t len = 20;
227	int free_s = 0;
228
229	if (s == NULL)
230		{
231		free_s = 1;
232		s=M_ASN1_UTCTIME_new();
233		}
234	if (s == NULL)
235		goto err;
236
237
238	ts=OPENSSL_gmtime(&t, &data);
239	if (ts == NULL)
240		goto err;
241
242	if (offset_day || offset_sec)
243		{
244		if (!OPENSSL_gmtime_adj(ts, offset_day, offset_sec))
245			goto err;
246		}
247
248	if((ts->tm_year < 50) || (ts->tm_year >= 150))
249		goto err;
250
251	p=(char *)s->data;
252	if ((p == NULL) || ((size_t)s->length < len))
253		{
254		p=OPENSSL_malloc(len);
255		if (p == NULL)
256			{
257			OPENSSL_PUT_ERROR(ASN1, ASN1_UTCTIME_adj, ERR_R_MALLOC_FAILURE);
258			goto err;
259			}
260		if (s->data != NULL)
261			OPENSSL_free(s->data);
262		s->data=(unsigned char *)p;
263		}
264
265	BIO_snprintf(p,len,"%02d%02d%02d%02d%02d%02dZ",ts->tm_year%100,
266		     ts->tm_mon+1,ts->tm_mday,ts->tm_hour,ts->tm_min,ts->tm_sec);
267	s->length=strlen(p);
268	s->type=V_ASN1_UTCTIME;
269	return(s);
270	err:
271	if (free_s && s)
272		M_ASN1_UTCTIME_free(s);
273	return NULL;
274	}
275
276
277int ASN1_UTCTIME_cmp_time_t(const ASN1_UTCTIME *s, time_t t)
278	{
279	struct tm stm, ttm;
280	int day, sec;
281
282	if (!asn1_utctime_to_tm(&stm, s))
283		return -2;
284
285	if (!OPENSSL_gmtime(&t, &ttm))
286		return -2;
287
288	if (!OPENSSL_gmtime_diff(&day, &sec, &stm, &ttm))
289		return -2;
290
291	if (day > 0)
292		return 1;
293	if (day < 0)
294		return -1;
295	if (sec > 0)
296		return 1;
297	if (sec < 0)
298		return -1;
299	return 0;
300	}
301
302
303#if 0
304time_t ASN1_UTCTIME_get(const ASN1_UTCTIME *s)
305	{
306	struct tm tm;
307	int offset;
308
309	memset(&tm,'\0',sizeof tm);
310
311#define g2(p) (((p)[0]-'0')*10+(p)[1]-'0')
312	tm.tm_year=g2(s->data);
313	if(tm.tm_year < 50)
314		tm.tm_year+=100;
315	tm.tm_mon=g2(s->data+2)-1;
316	tm.tm_mday=g2(s->data+4);
317	tm.tm_hour=g2(s->data+6);
318	tm.tm_min=g2(s->data+8);
319	tm.tm_sec=g2(s->data+10);
320	if(s->data[12] == 'Z')
321		offset=0;
322	else
323		{
324		offset=g2(s->data+13)*60+g2(s->data+15);
325		if(s->data[12] == '-')
326			offset= -offset;
327		}
328#undef g2
329
330	return mktime(&tm)-offset*60; /* FIXME: mktime assumes the current timezone
331	                               * instead of UTC, and unless we rewrite OpenSSL
332				       * in Lisp we cannot locally change the timezone
333				       * without possibly interfering with other parts
334	                               * of the program. timegm, which uses UTC, is
335				       * non-standard.
336	                               * Also time_t is inappropriate for general
337	                               * UTC times because it may a 32 bit type. */
338	}
339#endif
340