0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 /*. * Copyright
0010: 28 43 29 20 31 39 39 37 2d 32 30 30 30 20 53 65 (C) 1997-2000 Se
0020: 6e 73 75 73 20 43 6f 6e 73 75 6c 74 69 6e 67 20 nsus Consulting
0030: 4c 74 64 2e 0a 20 2a 20 4d 61 74 74 20 4e 65 77 Ltd.. * Matt New
0040: 6d 61 6e 20 3c 6d 61 74 74 40 73 65 6e 73 75 73 man <matt@sensus
0050: 2e 6f 72 67 3e 0a 20 2a 2f 0a 23 69 6e 63 6c 75 .org>. */.#inclu
0060: 64 65 20 22 74 6c 73 49 6e 74 2e 68 22 0a 0a 2f de "tlsInt.h"../
0070: 2a 0a 20 2a 20 20 45 6e 73 75 72 65 20 74 68 65 *. * Ensure the
0080: 73 65 20 61 72 65 20 6e 6f 74 20 6d 61 63 72 6f se are not macro
0090: 73 20 2d 20 6b 6e 6f 77 6e 20 74 6f 20 62 65 20 s - known to be
00a0: 64 65 66 69 6e 65 64 20 6f 6e 20 57 69 6e 33 32 defined on Win32
00b0: 0a 20 2a 2f 0a 23 69 66 64 65 66 20 6d 69 6e 0a . */.#ifdef min.
00c0: 23 75 6e 64 65 66 20 6d 69 6e 0a 23 65 6e 64 69 #undef min.#endi
00d0: 66 0a 0a 23 69 66 64 65 66 20 6d 61 78 0a 23 75 f..#ifdef max.#u
00e0: 6e 64 65 66 20 6d 61 78 0a 23 65 6e 64 69 66 0a ndef max.#endif.
00f0: 0a 73 74 61 74 69 63 20 69 6e 74 20 6d 69 6e 28 .static int min(
0100: 69 6e 74 20 61 2c 20 69 6e 74 20 62 29 0a 7b 0a int a, int b).{.
0110: 20 20 20 20 72 65 74 75 72 6e 20 28 61 20 3c 20 return (a <
0120: 62 29 20 3f 20 61 20 3a 20 62 3b 0a 7d 0a 0a 73 b) ? a : b;.}..s
0130: 74 61 74 69 63 20 69 6e 74 20 6d 61 78 28 69 6e tatic int max(in
0140: 74 20 61 2c 20 69 6e 74 20 62 29 0a 7b 0a 20 20 t a, int b).{.
0150: 20 20 72 65 74 75 72 6e 20 28 61 20 3e 20 62 29 return (a > b)
0160: 20 3f 20 61 20 3a 20 62 3b 0a 7d 0a 0a 2f 2a 0a ? a : b;.}../*.
0170: 20 2a 20 41 53 4e 31 5f 55 54 43 54 49 4d 45 5f * ASN1_UTCTIME_
0180: 74 6f 73 74 72 20 2d 2d 0a 20 2a 2f 0a 73 74 61 tostr --. */.sta
0190: 74 69 63 20 63 68 61 72 20 2a 0a 41 53 4e 31 5f tic char *.ASN1_
01a0: 55 54 43 54 49 4d 45 5f 74 6f 73 74 72 28 41 53 UTCTIME_tostr(AS
01b0: 4e 31 5f 55 54 43 54 49 4d 45 20 2a 74 6d 29 0a N1_UTCTIME *tm).
01c0: 7b 0a 20 20 20 20 73 74 61 74 69 63 20 63 68 61 {. static cha
01d0: 72 20 62 70 5b 31 32 38 5d 3b 0a 20 20 20 20 63 r bp[128];. c
01e0: 68 61 72 20 2a 76 3b 0a 20 20 20 20 69 6e 74 20 har *v;. int
01f0: 67 6d 74 3d 30 3b 0a 20 20 20 20 73 74 61 74 69 gmt=0;. stati
0200: 63 20 63 68 61 72 20 2a 6d 6f 6e 5b 31 32 5d 3d c char *mon[12]=
0210: 7b 0a 20 20 20 20 20 20 20 20 22 4a 61 6e 22 2c {. "Jan",
0220: 22 46 65 62 22 2c 22 4d 61 72 22 2c 22 41 70 72 "Feb","Mar","Apr
0230: 22 2c 22 4d 61 79 22 2c 22 4a 75 6e 22 2c 0a 20 ","May","Jun",.
0240: 20 20 20 20 20 20 20 22 4a 75 6c 22 2c 22 41 75 "Jul","Au
0250: 67 22 2c 22 53 65 70 22 2c 22 4f 63 74 22 2c 22 g","Sep","Oct","
0260: 4e 6f 76 22 2c 22 44 65 63 22 7d 3b 0a 20 20 20 Nov","Dec"};.
0270: 20 69 6e 74 20 69 3b 0a 20 20 20 20 69 6e 74 20 int i;. int
0280: 79 3d 30 2c 4d 3d 30 2c 64 3d 30 2c 68 3d 30 2c y=0,M=0,d=0,h=0,
0290: 6d 3d 30 2c 73 3d 30 3b 0a 0a 20 20 20 20 69 3d m=0,s=0;.. i=
02a0: 74 6d 2d 3e 6c 65 6e 67 74 68 3b 0a 20 20 20 20 tm->length;.
02b0: 76 3d 28 63 68 61 72 20 2a 29 74 6d 2d 3e 64 61 v=(char *)tm->da
02c0: 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 69 20 3c ta;.. if (i <
02d0: 20 31 30 29 20 67 6f 74 6f 20 65 72 72 3b 0a 20 10) goto err;.
02e0: 20 20 20 69 66 20 28 76 5b 69 2d 31 5d 20 3d 3d if (v[i-1] ==
02f0: 20 27 5a 27 29 20 67 6d 74 3d 31 3b 0a 20 20 20 'Z') gmt=1;.
0300: 20 66 6f 72 20 28 69 3d 30 3b 20 69 3c 31 30 3b for (i=0; i<10;
0310: 20 69 2b 2b 29 0a 20 20 20 20 20 20 20 20 69 66 i++). if
0320: 20 28 28 76 5b 69 5d 20 3e 20 27 39 27 29 20 7c ((v[i] > '9') |
0330: 7c 20 28 76 5b 69 5d 20 3c 20 27 30 27 29 29 20 | (v[i] < '0'))
0340: 67 6f 74 6f 20 65 72 72 3b 0a 20 20 20 20 79 3d goto err;. y=
0350: 20 28 76 5b 30 5d 2d 27 30 27 29 2a 31 30 2b 28 (v[0]-'0')*10+(
0360: 76 5b 31 5d 2d 27 30 27 29 3b 0a 20 20 20 20 69 v[1]-'0');. i
0370: 66 20 28 79 20 3c 20 37 30 29 20 79 2b 3d 31 30 f (y < 70) y+=10
0380: 30 3b 0a 20 20 20 20 4d 3d 20 28 76 5b 32 5d 2d 0;. M= (v[2]-
0390: 27 30 27 29 2a 31 30 2b 28 76 5b 33 5d 2d 27 30 '0')*10+(v[3]-'0
03a0: 27 29 3b 0a 20 20 20 20 69 66 20 28 28 4d 20 3e ');. if ((M >
03b0: 20 31 32 29 20 7c 7c 20 28 4d 20 3c 20 31 29 29 12) || (M < 1))
03c0: 20 67 6f 74 6f 20 65 72 72 3b 0a 20 20 20 20 64 goto err;. d
03d0: 3d 20 28 76 5b 34 5d 2d 27 30 27 29 2a 31 30 2b = (v[4]-'0')*10+
03e0: 28 76 5b 35 5d 2d 27 30 27 29 3b 0a 20 20 20 20 (v[5]-'0');.
03f0: 68 3d 20 28 76 5b 36 5d 2d 27 30 27 29 2a 31 30 h= (v[6]-'0')*10
0400: 2b 28 76 5b 37 5d 2d 27 30 27 29 3b 0a 20 20 20 +(v[7]-'0');.
0410: 20 6d 3d 20 20 28 76 5b 38 5d 2d 27 30 27 29 2a m= (v[8]-'0')*
0420: 31 30 2b 28 76 5b 39 5d 2d 27 30 27 29 3b 0a 20 10+(v[9]-'0');.
0430: 20 20 20 69 66 20 28 09 28 76 5b 31 30 5d 20 3e if (.(v[10] >
0440: 3d 20 27 30 27 29 20 26 26 20 28 76 5b 31 30 5d = '0') && (v[10]
0450: 20 3c 3d 20 27 39 27 29 20 26 26 0a 09 09 28 76 <= '9') &&...(v
0460: 5b 31 31 5d 20 3e 3d 20 27 30 27 29 20 26 26 20 [11] >= '0') &&
0470: 28 76 5b 31 31 5d 20 3c 3d 20 27 39 27 29 29 0a (v[11] <= '9')).
0480: 20 20 20 20 20 20 20 20 73 3d 20 20 28 76 5b 31 s= (v[1
0490: 30 5d 2d 27 30 27 29 2a 31 30 2b 28 76 5b 31 31 0]-'0')*10+(v[11
04a0: 5d 2d 27 30 27 29 3b 0a 0a 20 20 20 20 73 70 72 ]-'0');.. spr
04b0: 69 6e 74 66 28 62 70 2c 22 25 73 20 25 32 64 20 intf(bp,"%s %2d
04c0: 25 30 32 64 3a 25 30 32 64 3a 25 30 32 64 20 25 %02d:%02d:%02d %
04d0: 64 25 73 22 2c 0a 20 20 20 20 20 20 20 20 20 20 d%s",.
04e0: 20 20 20 20 20 20 20 20 20 6d 6f 6e 5b 4d 2d 31 mon[M-1
04f0: 5d 2c 64 2c 68 2c 6d 2c 73 2c 79 2b 31 39 30 30 ],d,h,m,s,y+1900
0500: 2c 28 67 6d 74 29 3f 22 20 47 4d 54 22 3a 22 22 ,(gmt)?" GMT":""
0510: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 62 70 );. return bp
0520: 3b 0a 20 65 72 72 3a 0a 20 20 20 20 72 65 74 75 ;. err:. retu
0530: 72 6e 20 22 42 61 64 20 74 69 6d 65 20 76 61 6c rn "Bad time val
0540: 75 65 22 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d ue";.}.../*. *--
0550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0580: 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 5f ----*. *. *.Tls_
0590: 4e 65 77 58 35 30 39 4f 62 6a 20 2d 2d 0a 20 2a NewX509Obj --. *
05a0: 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *.------------
05b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05d0: 2d 2d 2d 2d 2a 0a 20 2a 09 43 6f 6e 76 65 72 74 ----*. *.Convert
05e0: 73 20 61 20 58 35 30 39 20 63 65 72 74 69 66 69 s a X509 certifi
05f0: 63 61 74 65 20 69 6e 74 6f 20 61 20 54 63 6c 5f cate into a Tcl_
0600: 4f 62 6a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d Obj. *.---------
0610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0630: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 -------*. *. *.S
0640: 69 64 65 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 ideeffects:. *..
0650: 4e 6f 6e 65 0a 20 2a 0a 20 2a 09 52 65 73 75 6c None. *. *.Resul
0660: 74 3a 0a 20 2a 09 09 41 20 54 63 6c 20 4c 69 73 t:. *..A Tcl Lis
0670: 74 20 4f 62 6a 65 63 74 20 72 65 70 72 65 73 65 t Object represe
0680: 6e 74 69 6e 67 20 74 68 65 20 70 72 6f 76 69 64 nting the provid
0690: 65 64 0a 20 2a 09 09 58 35 30 39 20 63 65 72 74 ed. *..X509 cert
06a0: 69 66 69 63 61 74 65 2e 0a 20 2a 0a 20 2a 2d 2d ificate.. *. *--
06b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06e0: 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a 23 64 65 66 69 ----*. */..#defi
06f0: 6e 65 20 43 45 52 54 5f 53 54 52 5f 53 49 5a 45 ne CERT_STR_SIZE
0700: 20 31 36 33 38 34 0a 0a 54 63 6c 5f 4f 62 6a 2a 16384..Tcl_Obj*
0710: 0a 54 6c 73 5f 4e 65 77 58 35 30 39 4f 62 6a 28 .Tls_NewX509Obj(
0720: 20 69 6e 74 65 72 70 2c 20 63 65 72 74 29 0a 20 interp, cert).
0730: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
0740: 6e 74 65 72 70 3b 0a 20 20 20 20 58 35 30 39 20 nterp;. X509
0750: 2a 63 65 72 74 3b 0a 7b 0a 20 20 20 20 54 63 6c *cert;.{. Tcl
0760: 5f 4f 62 6a 20 2a 63 65 72 74 50 74 72 20 3d 20 _Obj *certPtr =
0770: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 20 Tcl_NewListObj(
0780: 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 42 49 0, NULL);. BI
0790: 4f 20 2a 62 69 6f 3b 0a 20 20 20 20 69 6e 74 20 O *bio;. int
07a0: 6e 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 n;. unsigned
07b0: 6c 6f 6e 67 20 66 6c 61 67 73 3b 0a 20 20 20 20 long flags;.
07c0: 63 68 61 72 20 73 75 62 6a 65 63 74 5b 42 55 46 char subject[BUF
07d0: 53 49 5a 5d 3b 0a 20 20 20 20 63 68 61 72 20 69 SIZ];. char i
07e0: 73 73 75 65 72 5b 42 55 46 53 49 5a 5d 3b 0a 20 ssuer[BUFSIZ];.
07f0: 20 20 20 63 68 61 72 20 73 65 72 69 61 6c 5b 42 char serial[B
0800: 55 46 53 49 5a 5d 3b 0a 20 20 20 20 63 68 61 72 UFSIZ];. char
0810: 20 6e 6f 74 42 65 66 6f 72 65 5b 42 55 46 53 49 notBefore[BUFSI
0820: 5a 5d 3b 0a 20 20 20 20 63 68 61 72 20 6e 6f 74 Z];. char not
0830: 41 66 74 65 72 5b 42 55 46 53 49 5a 5d 3b 0a 20 After[BUFSIZ];.
0840: 20 20 20 63 68 61 72 20 63 65 72 74 53 74 72 5b char certStr[
0850: 43 45 52 54 5f 53 54 52 5f 53 49 5a 45 5d 2c 20 CERT_STR_SIZE],
0860: 2a 63 65 72 74 53 74 72 5f 70 3b 0a 20 20 20 20 *certStr_p;.
0870: 69 6e 74 20 63 65 72 74 53 74 72 5f 6c 65 6e 2c int certStr_len,
0880: 20 74 6f 52 65 61 64 3b 0a 23 69 66 6e 64 65 66 toRead;.#ifndef
0890: 20 4e 4f 5f 53 53 4c 5f 53 48 41 0a 20 20 20 20 NO_SSL_SHA.
08a0: 69 6e 74 20 73 68 61 69 3b 0a 20 20 20 20 63 68 int shai;. ch
08b0: 61 72 20 73 68 61 5f 68 61 73 68 5f 61 73 63 69 ar sha_hash_asci
08c0: 69 5b 53 48 41 5f 44 49 47 45 53 54 5f 4c 45 4e i[SHA_DIGEST_LEN
08d0: 47 54 48 20 2a 20 32 20 2b 20 31 5d 3b 0a 20 20 GTH * 2 + 1];.
08e0: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
08f0: 73 68 61 5f 68 61 73 68 5f 62 69 6e 61 72 79 5b sha_hash_binary[
0900: 53 48 41 5f 44 49 47 45 53 54 5f 4c 45 4e 47 54 SHA_DIGEST_LENGT
0910: 48 5d 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 H];. const ch
0920: 61 72 20 2a 73 68 61 63 68 61 72 73 3d 22 30 31 ar *shachars="01
0930: 32 33 34 35 36 37 38 39 41 42 43 44 45 46 22 3b 23456789ABCDEF";
0940: 0a 0a 20 20 20 20 73 68 61 5f 68 61 73 68 5f 61 .. sha_hash_a
0950: 73 63 69 69 5b 53 48 41 5f 44 49 47 45 53 54 5f scii[SHA_DIGEST_
0960: 4c 45 4e 47 54 48 20 2a 20 32 5d 20 3d 20 27 5c LENGTH * 2] = '\
0970: 30 27 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 0';.#endif..
0980: 63 65 72 74 53 74 72 5b 30 5d 20 3d 20 30 3b 0a certStr[0] = 0;.
0990: 20 20 20 20 69 66 20 28 28 62 69 6f 20 3d 20 42 if ((bio = B
09a0: 49 4f 5f 6e 65 77 28 42 49 4f 5f 73 5f 6d 65 6d IO_new(BIO_s_mem
09b0: 28 29 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a ())) == NULL) {.
09c0: 09 73 75 62 6a 65 63 74 5b 30 5d 20 3d 20 30 3b .subject[0] = 0;
09d0: 0a 09 69 73 73 75 65 72 5b 30 5d 20 20 3d 20 30 ..issuer[0] = 0
09e0: 3b 0a 09 73 65 72 69 61 6c 5b 30 5d 20 20 3d 20 ;..serial[0] =
09f0: 30 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 0;. } else {.
0a00: 09 66 6c 61 67 73 20 3d 20 58 4e 5f 46 4c 41 47 .flags = XN_FLAG
0a10: 5f 52 46 43 32 32 35 33 20 7c 20 41 53 4e 31 5f _RFC2253 | ASN1_
0a20: 53 54 52 46 4c 47 53 5f 55 54 46 38 5f 43 4f 4e STRFLGS_UTF8_CON
0a30: 56 45 52 54 3b 0a 09 66 6c 61 67 73 20 26 3d 20 VERT;..flags &=
0a40: 7e 41 53 4e 31 5f 53 54 52 46 4c 47 53 5f 45 53 ~ASN1_STRFLGS_ES
0a50: 43 5f 4d 53 42 3b 0a 0a 09 58 35 30 39 5f 4e 41 C_MSB;...X509_NA
0a60: 4d 45 5f 70 72 69 6e 74 5f 65 78 28 62 69 6f 2c ME_print_ex(bio,
0a70: 20 58 35 30 39 5f 67 65 74 5f 73 75 62 6a 65 63 X509_get_subjec
0a80: 74 5f 6e 61 6d 65 28 63 65 72 74 29 2c 20 30 2c t_name(cert), 0,
0a90: 20 66 6c 61 67 73 29 3b 0a 09 6e 20 3d 20 42 49 flags);..n = BI
0aa0: 4f 5f 72 65 61 64 28 62 69 6f 2c 20 73 75 62 6a O_read(bio, subj
0ab0: 65 63 74 2c 20 6d 69 6e 28 42 49 4f 5f 70 65 6e ect, min(BIO_pen
0ac0: 64 69 6e 67 28 62 69 6f 29 2c 20 42 55 46 53 49 ding(bio), BUFSI
0ad0: 5a 20 2d 20 31 29 29 3b 0a 09 6e 20 3d 20 6d 61 Z - 1));..n = ma
0ae0: 78 28 6e 2c 20 30 29 3b 0a 09 73 75 62 6a 65 63 x(n, 0);..subjec
0af0: 74 5b 6e 5d 20 3d 20 30 3b 0a 09 28 76 6f 69 64 t[n] = 0;..(void
0b00: 29 42 49 4f 5f 66 6c 75 73 68 28 62 69 6f 29 3b )BIO_flush(bio);
0b10: 0a 0a 09 58 35 30 39 5f 4e 41 4d 45 5f 70 72 69 ...X509_NAME_pri
0b20: 6e 74 5f 65 78 28 62 69 6f 2c 20 58 35 30 39 5f nt_ex(bio, X509_
0b30: 67 65 74 5f 69 73 73 75 65 72 5f 6e 61 6d 65 28 get_issuer_name(
0b40: 63 65 72 74 29 2c 20 30 2c 20 66 6c 61 67 73 29 cert), 0, flags)
0b50: 3b 0a 09 6e 20 3d 20 42 49 4f 5f 72 65 61 64 28 ;..n = BIO_read(
0b60: 62 69 6f 2c 20 69 73 73 75 65 72 2c 20 6d 69 6e bio, issuer, min
0b70: 28 42 49 4f 5f 70 65 6e 64 69 6e 67 28 62 69 6f (BIO_pending(bio
0b80: 29 2c 20 42 55 46 53 49 5a 20 2d 20 31 29 29 3b ), BUFSIZ - 1));
0b90: 0a 09 6e 20 3d 20 6d 61 78 28 6e 2c 20 30 29 3b ..n = max(n, 0);
0ba0: 0a 09 69 73 73 75 65 72 5b 6e 5d 20 3d 20 30 3b ..issuer[n] = 0;
0bb0: 0a 09 28 76 6f 69 64 29 42 49 4f 5f 66 6c 75 73 ..(void)BIO_flus
0bc0: 68 28 62 69 6f 29 3b 0a 0a 09 69 32 61 5f 41 53 h(bio);...i2a_AS
0bd0: 4e 31 5f 49 4e 54 45 47 45 52 28 62 69 6f 2c 20 N1_INTEGER(bio,
0be0: 58 35 30 39 5f 67 65 74 5f 73 65 72 69 61 6c 4e X509_get_serialN
0bf0: 75 6d 62 65 72 28 63 65 72 74 29 29 3b 0a 09 6e umber(cert));..n
0c00: 20 3d 20 42 49 4f 5f 72 65 61 64 28 62 69 6f 2c = BIO_read(bio,
0c10: 20 73 65 72 69 61 6c 2c 20 6d 69 6e 28 42 49 4f serial, min(BIO
0c20: 5f 70 65 6e 64 69 6e 67 28 62 69 6f 29 2c 20 42 _pending(bio), B
0c30: 55 46 53 49 5a 20 2d 20 31 29 29 3b 0a 09 6e 20 UFSIZ - 1));..n
0c40: 3d 20 6d 61 78 28 6e 2c 20 30 29 3b 0a 09 73 65 = max(n, 0);..se
0c50: 72 69 61 6c 5b 6e 5d 20 3d 20 30 3b 0a 09 28 76 rial[n] = 0;..(v
0c60: 6f 69 64 29 42 49 4f 5f 66 6c 75 73 68 28 62 69 oid)BIO_flush(bi
0c70: 6f 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 o);.. if
0c80: 28 50 45 4d 5f 77 72 69 74 65 5f 62 69 6f 5f 58 (PEM_write_bio_X
0c90: 35 30 39 28 62 69 6f 2c 20 63 65 72 74 29 29 20 509(bio, cert))
0ca0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 65 {. ce
0cb0: 72 74 53 74 72 5f 70 20 3d 20 63 65 72 74 53 74 rtStr_p = certSt
0cc0: 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 r;. c
0cd0: 65 72 74 53 74 72 5f 6c 65 6e 20 3d 20 30 3b 0a ertStr_len = 0;.
0ce0: 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c whil
0cf0: 65 20 28 31 29 20 7b 0a 20 20 20 20 20 20 20 20 e (1) {.
0d00: 20 20 20 20 20 20 20 20 74 6f 52 65 61 64 20 3d toRead =
0d10: 20 6d 69 6e 28 42 49 4f 5f 70 65 6e 64 69 6e 67 min(BIO_pending
0d20: 28 62 69 6f 29 2c 20 43 45 52 54 5f 53 54 52 5f (bio), CERT_STR_
0d30: 53 49 5a 45 20 2d 20 63 65 72 74 53 74 72 5f 6c SIZE - certStr_l
0d40: 65 6e 20 2d 20 31 29 3b 0a 20 20 20 20 20 20 20 en - 1);.
0d50: 20 20 20 20 20 20 20 20 20 74 6f 52 65 61 64 20 toRead
0d60: 3d 20 6d 69 6e 28 74 6f 52 65 61 64 2c 20 42 55 = min(toRead, BU
0d70: 46 53 49 5a 29 3b 0a 20 20 20 20 20 20 20 20 20 FSIZ);.
0d80: 20 20 20 20 20 20 20 69 66 20 28 74 6f 52 65 61 if (toRea
0d90: 64 20 3d 3d 20 30 29 20 7b 0a 20 20 20 20 20 20 d == 0) {.
0da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 72 br
0db0: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 eak;.
0dc0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 }.
0dd0: 20 20 20 20 20 20 20 64 70 72 69 6e 74 66 28 22 dprintf("
0de0: 52 65 61 64 69 6e 67 20 25 69 20 62 79 74 65 73 Reading %i bytes
0df0: 20 66 72 6f 6d 20 74 68 65 20 63 65 72 74 69 66 from the certif
0e00: 69 63 61 74 65 2e 2e 2e 22 2c 20 74 6f 52 65 61 icate...", toRea
0e10: 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 d);.
0e20: 20 20 20 20 6e 20 3d 20 42 49 4f 5f 72 65 61 64 n = BIO_read
0e30: 28 62 69 6f 2c 20 63 65 72 74 53 74 72 5f 70 2c (bio, certStr_p,
0e40: 20 74 6f 52 65 61 64 29 3b 0a 20 20 20 20 20 20 toRead);.
0e50: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6e 20 if (n
0e60: 3c 3d 20 30 29 20 7b 0a 20 20 20 20 20 20 20 20 <= 0) {.
0e70: 20 20 20 20 20 20 20 20 20 20 20 20 62 72 65 61 brea
0e80: 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 k;.
0e90: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 20 }.
0ea0: 20 20 20 20 20 63 65 72 74 53 74 72 5f 6c 65 6e certStr_len
0eb0: 20 2b 3d 20 6e 3b 0a 20 20 20 20 20 20 20 20 20 += n;.
0ec0: 20 20 20 20 20 20 20 63 65 72 74 53 74 72 5f 70 certStr_p
0ed0: 20 20 20 2b 3d 20 6e 3b 0a 20 20 20 20 20 20 20 += n;.
0ee0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 }.
0ef0: 20 20 20 2a 63 65 72 74 53 74 72 5f 70 20 3d 20 *certStr_p =
0f00: 27 5c 30 27 3b 0a 20 20 20 20 20 20 20 20 20 20 '\0';.
0f10: 20 20 28 76 6f 69 64 29 42 49 4f 5f 66 6c 75 73 (void)BIO_flus
0f20: 68 28 62 69 6f 29 3b 0a 20 20 20 20 20 20 20 20 h(bio);.
0f30: 7d 0a 0a 09 42 49 4f 5f 66 72 65 65 28 62 69 6f }...BIO_free(bio
0f40: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 );. }.. st
0f50: 72 63 70 79 28 20 6e 6f 74 42 65 66 6f 72 65 2c rcpy( notBefore,
0f60: 20 41 53 4e 31 5f 55 54 43 54 49 4d 45 5f 74 6f ASN1_UTCTIME_to
0f70: 73 74 72 28 20 58 35 30 39 5f 67 65 74 5f 6e 6f str( X509_get_no
0f80: 74 42 65 66 6f 72 65 28 63 65 72 74 29 20 29 29 tBefore(cert) ))
0f90: 3b 0a 20 20 20 20 73 74 72 63 70 79 28 20 6e 6f ;. strcpy( no
0fa0: 74 41 66 74 65 72 2c 20 41 53 4e 31 5f 55 54 43 tAfter, ASN1_UTC
0fb0: 54 49 4d 45 5f 74 6f 73 74 72 28 20 58 35 30 39 TIME_tostr( X509
0fc0: 5f 67 65 74 5f 6e 6f 74 41 66 74 65 72 28 63 65 _get_notAfter(ce
0fd0: 72 74 29 20 29 29 3b 0a 0a 23 69 66 6e 64 65 66 rt) ));..#ifndef
0fe0: 20 4e 4f 5f 53 53 4c 5f 53 48 41 0a 20 20 20 20 NO_SSL_SHA.
0ff0: 58 35 30 39 5f 64 69 67 65 73 74 28 63 65 72 74 X509_digest(cert
1000: 2c 20 45 56 50 5f 73 68 61 31 28 29 2c 20 73 68 , EVP_sha1(), sh
1010: 61 5f 68 61 73 68 5f 62 69 6e 61 72 79 2c 20 4e a_hash_binary, N
1020: 55 4c 4c 29 3b 0a 20 20 20 20 66 6f 72 20 28 73 ULL);. for (s
1030: 68 61 69 20 3d 20 30 3b 20 73 68 61 69 20 3c 20 hai = 0; shai <
1040: 53 48 41 5f 44 49 47 45 53 54 5f 4c 45 4e 47 54 SHA_DIGEST_LENGT
1050: 48 3b 20 73 68 61 69 2b 2b 29 20 7b 0a 20 20 20 H; shai++) {.
1060: 20 20 20 20 20 73 68 61 5f 68 61 73 68 5f 61 73 sha_hash_as
1070: 63 69 69 5b 73 68 61 69 20 2a 20 32 5d 20 20 20 cii[shai * 2]
1080: 20 20 3d 20 73 68 61 63 68 61 72 73 5b 28 73 68 = shachars[(sh
1090: 61 5f 68 61 73 68 5f 62 69 6e 61 72 79 5b 73 68 a_hash_binary[sh
10a0: 61 69 5d 20 26 20 30 78 46 30 29 20 3e 3e 20 34 ai] & 0xF0) >> 4
10b0: 5d 3b 0a 20 20 20 20 20 20 20 20 73 68 61 5f 68 ];. sha_h
10c0: 61 73 68 5f 61 73 63 69 69 5b 73 68 61 69 20 2a ash_ascii[shai *
10d0: 20 32 20 2b 20 31 5d 20 3d 20 73 68 61 63 68 61 2 + 1] = shacha
10e0: 72 73 5b 28 73 68 61 5f 68 61 73 68 5f 62 69 6e rs[(sha_hash_bin
10f0: 61 72 79 5b 73 68 61 69 5d 20 26 20 30 78 30 46 ary[shai] & 0x0F
1100: 29 5d 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 )];. }. Tc
1110: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
1120: 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 lement( interp,
1130: 63 65 72 74 50 74 72 2c 20 54 63 6c 5f 4e 65 77 certPtr, Tcl_New
1140: 53 74 72 69 6e 67 4f 62 6a 28 22 73 68 61 31 5f StringObj("sha1_
1150: 68 61 73 68 22 2c 20 2d 31 29 20 29 3b 0a 20 20 hash", -1) );.
1160: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
1170: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 endElement( inte
1180: 72 70 2c 20 63 65 72 74 50 74 72 2c 20 54 63 6c rp, certPtr, Tcl
1190: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 73 68 _NewStringObj(sh
11a0: 61 5f 68 61 73 68 5f 61 73 63 69 69 2c 20 53 48 a_hash_ascii, SH
11b0: 41 5f 44 49 47 45 53 54 5f 4c 45 4e 47 54 48 20 A_DIGEST_LENGTH
11c0: 2a 20 32 29 20 29 3b 0a 0a 23 65 6e 64 69 66 0a * 2) );..#endif.
11d0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
11e0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 6e ppendElement( in
11f0: 74 65 72 70 2c 20 63 65 72 74 50 74 72 2c 0a 09 terp, certPtr,..
1200: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e Tcl_NewStrin
1210: 67 4f 62 6a 28 20 22 73 75 62 6a 65 63 74 22 2c gObj( "subject",
1220: 20 2d 31 29 20 29 3b 0a 20 20 20 20 54 63 6c 5f -1) );. Tcl_
1230: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
1240: 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 63 65 ment( interp, ce
1250: 72 74 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f rtPtr,.. Tcl_
1260: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 73 75 NewStringObj( su
1270: 62 6a 65 63 74 2c 20 2d 31 29 20 29 3b 0a 0a 20 bject, -1) );..
1280: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
1290: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 pendElement( int
12a0: 65 72 70 2c 20 63 65 72 74 50 74 72 2c 0a 09 20 erp, certPtr,..
12b0: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
12c0: 4f 62 6a 28 20 22 69 73 73 75 65 72 22 2c 20 2d Obj( "issuer", -
12d0: 31 29 20 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 1) );. Tcl_Li
12e0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
12f0: 6e 74 28 20 69 6e 74 65 72 70 2c 20 63 65 72 74 nt( interp, cert
1300: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
1310: 77 53 74 72 69 6e 67 4f 62 6a 28 20 69 73 73 75 wStringObj( issu
1320: 65 72 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 er, -1) );..
1330: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
1340: 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 dElement( interp
1350: 2c 20 63 65 72 74 50 74 72 2c 0a 09 20 20 20 20 , certPtr,..
1360: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
1370: 28 20 22 6e 6f 74 42 65 66 6f 72 65 22 2c 20 2d ( "notBefore", -
1380: 31 29 20 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 1) );. Tcl_Li
1390: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
13a0: 6e 74 28 20 69 6e 74 65 72 70 2c 20 63 65 72 74 nt( interp, cert
13b0: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
13c0: 77 53 74 72 69 6e 67 4f 62 6a 28 20 6e 6f 74 42 wStringObj( notB
13d0: 65 66 6f 72 65 2c 20 2d 31 29 20 29 3b 0a 0a 20 efore, -1) );..
13e0: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
13f0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 pendElement( int
1400: 65 72 70 2c 20 63 65 72 74 50 74 72 2c 0a 09 20 erp, certPtr,..
1410: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
1420: 4f 62 6a 28 20 22 6e 6f 74 41 66 74 65 72 22 2c Obj( "notAfter",
1430: 20 2d 31 29 20 29 3b 0a 20 20 20 20 54 63 6c 5f -1) );. Tcl_
1440: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
1450: 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 63 65 ment( interp, ce
1460: 72 74 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f rtPtr,.. Tcl_
1470: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 6e 6f NewStringObj( no
1480: 74 41 66 74 65 72 2c 20 2d 31 29 20 29 3b 0a 0a tAfter, -1) );..
1490: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
14a0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 6e ppendElement( in
14b0: 74 65 72 70 2c 20 63 65 72 74 50 74 72 2c 0a 09 terp, certPtr,..
14c0: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e Tcl_NewStrin
14d0: 67 4f 62 6a 28 20 22 73 65 72 69 61 6c 22 2c 20 gObj( "serial",
14e0: 2d 31 29 20 29 3b 0a 20 20 20 20 54 63 6c 5f 4c -1) );. Tcl_L
14f0: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
1500: 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 63 65 72 ent( interp, cer
1510: 74 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e tPtr,.. Tcl_N
1520: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 73 65 72 ewStringObj( ser
1530: 69 61 6c 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 ial, -1) );..
1540: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
1550: 6e 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 ndElement( inter
1560: 70 2c 20 63 65 72 74 50 74 72 2c 0a 09 20 20 20 p, certPtr,..
1570: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
1580: 6a 28 20 22 63 65 72 74 69 66 69 63 61 74 65 22 j( "certificate"
1590: 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 54 63 6c , -1) );. Tcl
15a0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
15b0: 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 63 ement( interp, c
15c0: 65 72 74 50 74 72 2c 0a 09 20 20 20 20 54 63 6c ertPtr,.. Tcl
15d0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 63 _NewStringObj( c
15e0: 65 72 74 53 74 72 2c 20 2d 31 29 20 29 3b 0a 0a ertStr, -1) );..
15f0: 20 20 20 20 72 65 74 75 72 6e 20 63 65 72 74 50 return certP
1600: 74 72 3b 0a 7d 0a tr;.}.