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