crypto/asn1/a_gentm.c

   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
  58 /*
  59  * GENERALIZEDTIME implementation, written by Steve Henson. Based on UTCTIME
  60  */
  61
  62 #include <stdio.h>
  63 #include <time.h>
  64 #include "internal/cryptlib.h"
  65 #include <openssl/asn1.h>
  66 #include "asn1_locl.h"
  67
  68 int asn1_generalizedtime_to_tm(struct tm *tm, const ASN1_GENERALIZEDTIME *d)
  69 {
  70     static const int min[9] = { 0, 0, 1, 1, 0, 0, 0, 0, 0 };
  71     static const int max[9] = { 99, 99, 12, 31, 23, 59, 59, 12, 59 };
  72     char *a;
  73     int n, i, l, o;
  74
  75     if (d->type != V_ASN1_GENERALIZEDTIME)
  76         return (0);
  77     l = d->length;
  78     a = (char *)d->data;
  79     o = 0;
  80     /*
  81      * GENERALIZEDTIME is similar to UTCTIME except the year is represented
  82      * as YYYY. This stuff treats everything as a two digit field so make
  83      * first two fields 00 to 99
  84      */
  85     if (l < 13)
  86         goto err;
  87     for (i = 0; i < 7; i++) {
  88         if ((i == 6) && ((a[o] == 'Z') || (a[o] == '+') || (a[o] == '-'))) {
  89             i++;
  90             if (tm)
  91                 tm->tm_sec = 0;
  92             break;
  93         }
  94         if ((a[o] < '0') || (a[o] > '9'))
  95             goto err;
  96         n = a[o] - '0';
  97         if (++o > l)
  98             goto err;
  99
 100         if ((a[o] < '0') || (a[o] > '9'))
 101             goto err;
 102         n = (n * 10) + a[o] - '0';
 103         if (++o > l)
 104             goto err;
 105
 106         if ((n < min[i]) || (n > max[i]))
 107             goto err;
 108         if (tm) {
 109             switch (i) {
 110             case 0:
 111                 tm->tm_year = n * 100 - 1900;
 112                 break;
 113             case 1:
 114                 tm->tm_year += n;
 115                 break;
 116             case 2:
 117                 tm->tm_mon = n - 1;
 118                 break;
 119             case 3:
 120                 tm->tm_mday = n;
 121                 break;
 122             case 4:
 123                 tm->tm_hour = n;
 124                 break;
 125             case 5:
 126                 tm->tm_min = n;
 127                 break;
 128             case 6:
 129                 tm->tm_sec = n;
 130                 break;
 131             }
 132         }
 133     }
 134     /*
 135      * Optional fractional seconds: decimal point followed by one or more
 136      * digits.
 137      */
 138     if (a[o] == '.') {
 139         if (++o > l)
 140             goto err;
 141         i = o;
 142         while ((a[o] >= '0') && (a[o] <= '9') && (o <= l))
 143             o++;
 144         /* Must have at least one digit after decimal point */
 145         if (i == o)
 146             goto err;
 147     }
 148
 149     if (a[o] == 'Z')
 150         o++;
 151     else if ((a[o] == '+') || (a[o] == '-')) {
 152         int offsign = a[o] == '-' ? -1 : 1, offset = 0;
 153         o++;
 154         if (o + 4 > l)
 155             goto err;
 156         for (i = 7; i < 9; i++) {
 157             if ((a[o] < '0') || (a[o] > '9'))
 158                 goto err;
 159             n = a[o] - '0';
 160             o++;
 161             if ((a[o] < '0') || (a[o] > '9'))
 162                 goto err;
 163             n = (n * 10) + a[o] - '0';
 164             if ((n < min[i]) || (n > max[i]))
 165                 goto err;
 166             if (tm) {
 167                 if (i == 7)
 168                     offset = n * 3600;
 169                 else if (i == 8)
 170                     offset += n * 60;
 171             }
 172             o++;
 173         }
 174         if (offset && !OPENSSL_gmtime_adj(tm, 0, offset * offsign))
 175             return 0;
 176     } else if (a[o]) {
 177         /* Missing time zone information. */
 178         goto err;
 179     }
 180     return (o == l);
 181  err:
 182     return (0);
 183 }
 184
 185 int ASN1_GENERALIZEDTIME_check(const ASN1_GENERALIZEDTIME *d)
 186 {
 187     return asn1_generalizedtime_to_tm(NULL, d);
 188 }
 189
 190 int ASN1_GENERALIZEDTIME_set_string(ASN1_GENERALIZEDTIME *s, const char *str)
 191 {
 192     ASN1_GENERALIZEDTIME t;
 193
 194     t.type = V_ASN1_GENERALIZEDTIME;
 195     t.length = strlen(str);
 196     t.data = (unsigned char *)str;
 197     if (ASN1_GENERALIZEDTIME_check(&t)) {
 198         if (s != NULL) {
 199             if (!ASN1_STRING_set((ASN1_STRING *)s,
 200                                  (unsigned char *)str, t.length))
 201                 return 0;
 202             s->type = V_ASN1_GENERALIZEDTIME;
 203         }
 204         return (1);
 205     } else
 206         return (0);
 207 }
 208
 209 ASN1_GENERALIZEDTIME *ASN1_GENERALIZEDTIME_set(ASN1_GENERALIZEDTIME *s,
 210                                                time_t t)
 211 {
 212     return ASN1_GENERALIZEDTIME_adj(s, t, 0, 0);
 213 }
 214
 215 ASN1_GENERALIZEDTIME *ASN1_GENERALIZEDTIME_adj(ASN1_GENERALIZEDTIME *s,
 216                                                time_t t, int offset_day,
 217                                                long offset_sec)
 218 {
 219     char *p;
 220     struct tm *ts;
 221     struct tm data;
 222     size_t len = 20;
 223
 224     if (s == NULL)
 225         s = ASN1_GENERALIZEDTIME_new();
 226     if (s == NULL)
 227         return (NULL);
 228
 229     ts = OPENSSL_gmtime(&t, &data);
 230     if (ts == NULL)
 231         return (NULL);
 232
 233     if (offset_day || offset_sec) {
 234         if (!OPENSSL_gmtime_adj(ts, offset_day, offset_sec))
 235             return NULL;
 236     }
 237
 238     p = (char *)s->data;
 239     if ((p == NULL) || ((size_t)s->length < len)) {
 240         p = OPENSSL_malloc(len);
 241         if (p == NULL) {
 242             ASN1err(ASN1_F_ASN1_GENERALIZEDTIME_ADJ, ERR_R_MALLOC_FAILURE);
 243             return (NULL);
 244         }
 245         OPENSSL_free(s->data);
 246         s->data = (unsigned char *)p;
 247     }
 248
 249     BIO_snprintf(p, len, "%04d%02d%02d%02d%02d%02dZ", ts->tm_year + 1900,
 250                  ts->tm_mon + 1, ts->tm_mday, ts->tm_hour, ts->tm_min,
 251                  ts->tm_sec);
 252     s->length = strlen(p);
 253     s->type = V_ASN1_GENERALIZEDTIME;
 254 #ifdef CHARSET_EBCDIC_not
 255     ebcdic2ascii(s->data, s->data, s->length);
 256 #endif
 257     return (s);
 258 }
 259
 260 const char *_asn1_mon[12] = {
 261     "Jan", "Feb", "Mar", "Apr", "May", "Jun",
 262     "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
 263 };
 264
 265 int ASN1_GENERALIZEDTIME_print(BIO *bp, const ASN1_GENERALIZEDTIME *tm)
 266 {
 267     char *v;
 268     int gmt = 0;
 269     int i;
 270     int y = 0, M = 0, d = 0, h = 0, m = 0, s = 0;
 271     char *f = NULL;
 272     int f_len = 0;
 273
 274     i = tm->length;
 275     v = (char *)tm->data;
 276
 277     if (i < 12)
 278         goto err;
 279     if (v[i - 1] == 'Z')
 280         gmt = 1;
 281     for (i = 0; i < 12; i++)
 282         if ((v[i] > '9') || (v[i] < '0'))
 283             goto err;
 284     y = (v[0] - '0') * 1000 + (v[1] - '0') * 100
 285         + (v[2] - '0') * 10 + (v[3] - '0');
 286     M = (v[4] - '0') * 10 + (v[5] - '0');
 287     if ((M > 12) || (M < 1))
 288         goto err;
 289     d = (v[6] - '0') * 10 + (v[7] - '0');
 290     h = (v[8] - '0') * 10 + (v[9] - '0');
 291     m = (v[10] - '0') * 10 + (v[11] - '0');
 292     if (tm->length >= 14 &&
 293         (v[12] >= '0') && (v[12] <= '9') &&
 294         (v[13] >= '0') && (v[13] <= '9')) {
 295         s = (v[12] - '0') * 10 + (v[13] - '0');
 296         /* Check for fractions of seconds. */
 297         if (tm->length >= 15 && v[14] == '.') {
 298             int l = tm->length;
 299             f = &v[14];         /* The decimal point. */
 300             f_len = 1;
 301             while (14 + f_len < l && f[f_len] >= '0' && f[f_len] <= '9')
 302                 ++f_len;
 303         }
 304     }
 305
 306     if (BIO_printf(bp, "%s %2d %02d:%02d:%02d%.*s %d%s",
 307                    _asn1_mon[M - 1], d, h, m, s, f_len, f, y,
 308                    (gmt) ? " GMT" : "") <= 0)
 309         return (0);
 310     else
 311         return (1);
 312  err:
 313     BIO_write(bp, "Bad time value", 14);
 314     return (0);
 315 }