crypto/asn1/a_utctm.c

   1 /*
   2  * Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
   3  *
   4  * Licensed under the OpenSSL license (the "License").  You may not use
   5  * this file except in compliance with the License.  You can obtain a copy
   6  * in the file LICENSE in the source distribution or at
   7  * https://www.openssl.org/source/license.html
   8  */
   9
  10 #include <stdio.h>
  11 #include <time.h>
  12 #include "internal/cryptlib.h"
  13 #include <openssl/asn1.h>
  14 #include "asn1_locl.h"
  15
  16 int asn1_utctime_to_tm(struct tm *tm, const ASN1_UTCTIME *d)
  17 {
  18     static const int min[8] = { 0, 1, 1, 0, 0, 0, 0, 0 };
  19     static const int max[8] = { 99, 12, 31, 23, 59, 59, 12, 59 };
  20     char *a;
  21     int n, i, l, o;
  22
  23     if (d->type != V_ASN1_UTCTIME)
  24         return (0);
  25     l = d->length;
  26     a = (char *)d->data;
  27     o = 0;
  28
  29     if (l < 11)
  30         goto err;
  31     for (i = 0; i < 6; i++) {
  32         if ((i == 5) && ((a[o] == 'Z') || (a[o] == '+') || (a[o] == '-'))) {
  33             i++;
  34             if (tm)
  35                 tm->tm_sec = 0;
  36             break;
  37         }
  38         if ((a[o] < '0') || (a[o] > '9'))
  39             goto err;
  40         n = a[o] - '0';
  41         if (++o > l)
  42             goto err;
  43
  44         if ((a[o] < '0') || (a[o] > '9'))
  45             goto err;
  46         n = (n * 10) + a[o] - '0';
  47         if (++o > l)
  48             goto err;
  49
  50         if ((n < min[i]) || (n > max[i]))
  51             goto err;
  52         if (tm) {
  53             switch (i) {
  54             case 0:
  55                 tm->tm_year = n < 50 ? n + 100 : n;
  56                 break;
  57             case 1:
  58                 tm->tm_mon = n - 1;
  59                 break;
  60             case 2:
  61                 tm->tm_mday = n;
  62                 break;
  63             case 3:
  64                 tm->tm_hour = n;
  65                 break;
  66             case 4:
  67                 tm->tm_min = n;
  68                 break;
  69             case 5:
  70                 tm->tm_sec = n;
  71                 break;
  72             }
  73         }
  74     }
  75     if (a[o] == 'Z')
  76         o++;
  77     else if ((a[o] == '+') || (a[o] == '-')) {
  78         int offsign = a[o] == '-' ? -1 : 1, offset = 0;
  79         o++;
  80         if (o + 4 > l)
  81             goto err;
  82         for (i = 6; i < 8; i++) {
  83             if ((a[o] < '0') || (a[o] > '9'))
  84                 goto err;
  85             n = a[o] - '0';
  86             o++;
  87             if ((a[o] < '0') || (a[o] > '9'))
  88                 goto err;
  89             n = (n * 10) + a[o] - '0';
  90             if ((n < min[i]) || (n > max[i]))
  91                 goto err;
  92             if (tm) {
  93                 if (i == 6)
  94                     offset = n * 3600;
  95                 else if (i == 7)
  96                     offset += n * 60;
  97             }
  98             o++;
  99         }
 100         if (offset && !OPENSSL_gmtime_adj(tm, 0, offset * offsign))
 101             return 0;
 102     }
 103     return o == l;
 104  err:
 105     return 0;
 106 }
 107
 108 int ASN1_UTCTIME_check(const ASN1_UTCTIME *d)
 109 {
 110     return asn1_utctime_to_tm(NULL, d);
 111 }
 112
 113 int ASN1_UTCTIME_set_string(ASN1_UTCTIME *s, const char *str)
 114 {
 115     ASN1_UTCTIME t;
 116
 117     t.type = V_ASN1_UTCTIME;
 118     t.length = strlen(str);
 119     t.data = (unsigned char *)str;
 120     if (ASN1_UTCTIME_check(&t)) {
 121         if (s != NULL) {
 122             if (!ASN1_STRING_set((ASN1_STRING *)s,
 123                                  (unsigned char *)str, t.length))
 124                 return 0;
 125             s->type = V_ASN1_UTCTIME;
 126         }
 127         return (1);
 128     } else
 129         return (0);
 130 }
 131
 132 ASN1_UTCTIME *ASN1_UTCTIME_set(ASN1_UTCTIME *s, time_t t)
 133 {
 134     return ASN1_UTCTIME_adj(s, t, 0, 0);
 135 }
 136
 137 ASN1_UTCTIME *ASN1_UTCTIME_adj(ASN1_UTCTIME *s, time_t t,
 138                                int offset_day, long offset_sec)
 139 {
 140     char *p;
 141     struct tm *ts;
 142     struct tm data;
 143     size_t len = 20;
 144     int free_s = 0;
 145
 146     if (s == NULL) {
 147         s = ASN1_UTCTIME_new();
 148         if (s == NULL)
 149             goto err;
 150         free_s = 1;
 151     }
 152
 153     ts = OPENSSL_gmtime(&t, &data);
 154     if (ts == NULL)
 155         goto err;
 156
 157     if (offset_day || offset_sec) {
 158         if (!OPENSSL_gmtime_adj(ts, offset_day, offset_sec))
 159             goto err;
 160     }
 161
 162     if ((ts->tm_year < 50) || (ts->tm_year >= 150))
 163         goto err;
 164
 165     p = (char *)s->data;
 166     if ((p == NULL) || ((size_t)s->length < len)) {
 167         p = OPENSSL_malloc(len);
 168         if (p == NULL) {
 169             ASN1err(ASN1_F_ASN1_UTCTIME_ADJ, ERR_R_MALLOC_FAILURE);
 170             goto err;
 171         }
 172         OPENSSL_free(s->data);
 173         s->data = (unsigned char *)p;
 174     }
 175
 176     BIO_snprintf(p, len, "%02d%02d%02d%02d%02d%02dZ", ts->tm_year % 100,
 177                  ts->tm_mon + 1, ts->tm_mday, ts->tm_hour, ts->tm_min,
 178                  ts->tm_sec);
 179     s->length = strlen(p);
 180     s->type = V_ASN1_UTCTIME;
 181 #ifdef CHARSET_EBCDIC_not
 182     ebcdic2ascii(s->data, s->data, s->length);
 183 #endif
 184     return (s);
 185  err:
 186     if (free_s)
 187         ASN1_UTCTIME_free(s);
 188     return NULL;
 189 }
 190
 191 int ASN1_UTCTIME_cmp_time_t(const ASN1_UTCTIME *s, time_t t)
 192 {
 193     struct tm stm, ttm;
 194     int day, sec;
 195
 196     if (!asn1_utctime_to_tm(&stm, s))
 197         return -2;
 198
 199     if (!OPENSSL_gmtime(&t, &ttm))
 200         return -2;
 201
 202     if (!OPENSSL_gmtime_diff(&day, &sec, &ttm, &stm))
 203         return -2;
 204
 205     if (day > 0)
 206         return 1;
 207     if (day < 0)
 208         return -1;
 209     if (sec > 0)
 210         return 1;
 211     if (sec < 0)
 212         return -1;
 213     return 0;
 214 }
 215
 216 int ASN1_UTCTIME_print(BIO *bp, const ASN1_UTCTIME *tm)
 217 {
 218     const char *v;
 219     int gmt = 0;
 220     int i;
 221     int y = 0, M = 0, d = 0, h = 0, m = 0, s = 0;
 222
 223     i = tm->length;
 224     v = (const char *)tm->data;
 225
 226     if (i < 10)
 227         goto err;
 228     if (v[i - 1] == 'Z')
 229         gmt = 1;
 230     for (i = 0; i < 10; i++)
 231         if ((v[i] > '9') || (v[i] < '0'))
 232             goto err;
 233     y = (v[0] - '0') * 10 + (v[1] - '0');
 234     if (y < 50)
 235         y += 100;
 236     M = (v[2] - '0') * 10 + (v[3] - '0');
 237     if ((M > 12) || (M < 1))
 238         goto err;
 239     d = (v[4] - '0') * 10 + (v[5] - '0');
 240     h = (v[6] - '0') * 10 + (v[7] - '0');
 241     m = (v[8] - '0') * 10 + (v[9] - '0');
 242     if (tm->length >= 12 &&
 243         (v[10] >= '0') && (v[10] <= '9') && (v[11] >= '0') && (v[11] <= '9'))
 244         s = (v[10] - '0') * 10 + (v[11] - '0');
 245
 246     if (BIO_printf(bp, "%s %2d %02d:%02d:%02d %d%s",
 247                    _asn1_mon[M - 1], d, h, m, s, y + 1900,
 248                    (gmt) ? " GMT" : "") <= 0)
 249         return (0);
 250     else
 251         return (1);
 252  err:
 253     BIO_write(bp, "Bad time value", 14);
 254     return (0);
 255 }