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 3c 74 63 6c 2e 68 3e 0a 23 69 6e 63 6c de <tcl.h>.#incl
0070: 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 69 ude <stdio.h>.#i
0080: 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f nclude <openssl/
0090: 62 69 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 bio.h>.#include
00a0: 3c 6f 70 65 6e 73 73 6c 2f 73 68 61 2e 68 3e 0a <openssl/sha.h>.
00b0: 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 #include <openss
00c0: 6c 2f 78 35 30 39 2e 68 3e 0a 23 69 6e 63 6c 75 l/x509.h>.#inclu
00d0: 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 61 73 6e 31 de <openssl/asn1
00e0: 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c .h>.#include "tl
00f0: 73 49 6e 74 2e 68 22 0a 0a 2f 2a 0a 20 2a 20 20 sInt.h"../*. *
0100: 45 6e 73 75 72 65 20 74 68 65 73 65 20 61 72 65 Ensure these are
0110: 20 6e 6f 74 20 6d 61 63 72 6f 73 20 2d 20 6b 6e not macros - kn
0120: 6f 77 6e 20 74 6f 20 62 65 20 64 65 66 69 6e 65 own to be define
0130: 64 20 6f 6e 20 57 69 6e 33 32 0a 20 2a 2f 0a 23 d on Win32. */.#
0140: 69 66 64 65 66 20 6d 69 6e 0a 23 75 6e 64 65 66 ifdef min.#undef
0150: 20 6d 69 6e 0a 23 65 6e 64 69 66 0a 0a 23 69 66 min.#endif..#if
0160: 64 65 66 20 6d 61 78 0a 23 75 6e 64 65 66 20 6d def max.#undef m
0170: 61 78 0a 23 65 6e 64 69 66 0a 0a 73 74 61 74 69 ax.#endif..stati
0180: 63 20 69 6e 74 20 6d 69 6e 28 69 6e 74 20 61 2c c int min(int a,
0190: 20 69 6e 74 20 62 29 0a 7b 0a 20 20 20 20 72 65 int b).{. re
01a0: 74 75 72 6e 20 28 61 20 3c 20 62 29 20 3f 20 61 turn (a < b) ? a
01b0: 20 3a 20 62 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 : b;.}..static
01c0: 69 6e 74 20 6d 61 78 28 69 6e 74 20 61 2c 20 69 int max(int a, i
01d0: 6e 74 20 62 29 0a 7b 0a 20 20 20 20 72 65 74 75 nt b).{. retu
01e0: 72 6e 20 28 61 20 3e 20 62 29 20 3f 20 61 20 3a rn (a > b) ? a :
01f0: 20 62 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 41 53 4e b;.}../*. * ASN
0200: 31 5f 55 54 43 54 49 4d 45 5f 74 6f 73 74 72 20 1_UTCTIME_tostr
0210: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63 68 --. */.static ch
0220: 61 72 20 2a 0a 41 53 4e 31 5f 55 54 43 54 49 4d ar *.ASN1_UTCTIM
0230: 45 5f 74 6f 73 74 72 28 41 53 4e 31 5f 55 54 43 E_tostr(ASN1_UTC
0240: 54 49 4d 45 20 2a 74 6d 29 0a 7b 0a 20 20 20 20 TIME *tm).{.
0250: 73 74 61 74 69 63 20 63 68 61 72 20 62 70 5b 31 static char bp[1
0260: 32 38 5d 3b 0a 20 20 20 20 63 68 61 72 20 2a 76 28];. char *v
0270: 3b 0a 20 20 20 20 69 6e 74 20 67 6d 74 3d 30 3b ;. int gmt=0;
0280: 0a 20 20 20 20 73 74 61 74 69 63 20 63 68 61 72 . static char
0290: 20 2a 6d 6f 6e 5b 31 32 5d 3d 7b 0a 20 20 20 20 *mon[12]={.
02a0: 20 20 20 20 22 4a 61 6e 22 2c 22 46 65 62 22 2c "Jan","Feb",
02b0: 22 4d 61 72 22 2c 22 41 70 72 22 2c 22 4d 61 79 "Mar","Apr","May
02c0: 22 2c 22 4a 75 6e 22 2c 20 22 4a 75 6c 22 2c 22 ","Jun", "Jul","
02d0: 41 75 67 22 2c 22 53 65 70 22 2c 22 4f 63 74 22 Aug","Sep","Oct"
02e0: 2c 22 4e 6f 76 22 2c 22 44 65 63 22 7d 3b 0a 20 ,"Nov","Dec"};.
02f0: 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 69 6e int i;. in
0300: 74 20 79 3d 30 2c 4d 3d 30 2c 64 3d 30 2c 68 3d t y=0,M=0,d=0,h=
0310: 30 2c 6d 3d 30 2c 73 3d 30 3b 0a 0a 20 20 20 20 0,m=0,s=0;..
0320: 69 3d 74 6d 2d 3e 6c 65 6e 67 74 68 3b 0a 20 20 i=tm->length;.
0330: 20 20 76 3d 28 63 68 61 72 20 2a 29 74 6d 2d 3e v=(char *)tm->
0340: 64 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 69 data;.. if (i
0350: 20 3c 20 31 30 29 20 67 6f 74 6f 20 65 72 72 3b < 10) goto err;
0360: 0a 20 20 20 20 69 66 20 28 76 5b 69 2d 31 5d 20 . if (v[i-1]
0370: 3d 3d 20 27 5a 27 29 20 67 6d 74 3d 31 3b 0a 20 == 'Z') gmt=1;.
0380: 20 20 20 66 6f 72 20 28 69 3d 30 3b 20 69 3c 31 for (i=0; i<1
0390: 30 3b 20 69 2b 2b 29 0a 20 20 20 20 20 20 20 20 0; i++).
03a0: 69 66 20 28 28 76 5b 69 5d 20 3e 20 27 39 27 29 if ((v[i] > '9')
03b0: 20 7c 7c 20 28 76 5b 69 5d 20 3c 20 27 30 27 29 || (v[i] < '0')
03c0: 29 20 67 6f 74 6f 20 65 72 72 3b 0a 20 20 20 20 ) goto err;.
03d0: 79 3d 20 28 76 5b 30 5d 2d 27 30 27 29 2a 31 30 y= (v[0]-'0')*10
03e0: 2b 28 76 5b 31 5d 2d 27 30 27 29 3b 0a 20 20 20 +(v[1]-'0');.
03f0: 20 69 66 20 28 79 20 3c 20 37 30 29 20 79 2b 3d if (y < 70) y+=
0400: 31 30 30 3b 0a 20 20 20 20 4d 3d 20 28 76 5b 32 100;. M= (v[2
0410: 5d 2d 27 30 27 29 2a 31 30 2b 28 76 5b 33 5d 2d ]-'0')*10+(v[3]-
0420: 27 30 27 29 3b 0a 20 20 20 20 69 66 20 28 28 4d '0');. if ((M
0430: 20 3e 20 31 32 29 20 7c 7c 20 28 4d 20 3c 20 31 > 12) || (M < 1
0440: 29 29 20 67 6f 74 6f 20 65 72 72 3b 0a 20 20 20 )) goto err;.
0450: 20 64 3d 20 28 76 5b 34 5d 2d 27 30 27 29 2a 31 d= (v[4]-'0')*1
0460: 30 2b 28 76 5b 35 5d 2d 27 30 27 29 3b 0a 20 20 0+(v[5]-'0');.
0470: 20 20 68 3d 20 28 76 5b 36 5d 2d 27 30 27 29 2a h= (v[6]-'0')*
0480: 31 30 2b 28 76 5b 37 5d 2d 27 30 27 29 3b 0a 20 10+(v[7]-'0');.
0490: 20 20 20 6d 3d 20 20 28 76 5b 38 5d 2d 27 30 27 m= (v[8]-'0'
04a0: 29 2a 31 30 2b 28 76 5b 39 5d 2d 27 30 27 29 3b )*10+(v[9]-'0');
04b0: 0a 20 20 20 20 69 66 20 28 28 76 5b 31 30 5d 20 . if ((v[10]
04c0: 3e 3d 20 27 30 27 29 20 26 26 20 28 76 5b 31 30 >= '0') && (v[10
04d0: 5d 20 3c 3d 20 27 39 27 29 20 26 26 20 28 76 5b ] <= '9') && (v[
04e0: 31 31 5d 20 3e 3d 20 27 30 27 29 20 26 26 20 28 11] >= '0') && (
04f0: 76 5b 31 31 5d 20 3c 3d 20 27 39 27 29 29 0a 20 v[11] <= '9')).
0500: 20 20 20 20 20 20 20 73 3d 20 20 28 76 5b 31 30 s= (v[10
0510: 5d 2d 27 30 27 29 2a 31 30 2b 28 76 5b 31 31 5d ]-'0')*10+(v[11]
0520: 2d 27 30 27 29 3b 0a 0a 20 20 20 20 73 70 72 69 -'0');.. spri
0530: 6e 74 66 28 62 70 2c 22 25 73 20 25 32 64 20 25 ntf(bp,"%s %2d %
0540: 30 32 64 3a 25 30 32 64 3a 25 30 32 64 20 25 64 02d:%02d:%02d %d
0550: 25 73 22 2c 20 6d 6f 6e 5b 4d 2d 31 5d 2c 64 2c %s", mon[M-1],d,
0560: 68 2c 6d 2c 73 2c 79 2b 31 39 30 30 2c 28 67 6d h,m,s,y+1900,(gm
0570: 74 29 3f 22 20 47 4d 54 22 3a 22 22 29 3b 0a 20 t)?" GMT":"");.
0580: 20 20 20 72 65 74 75 72 6e 20 62 70 3b 0a 20 65 return bp;. e
0590: 72 72 3a 0a 20 20 20 20 72 65 74 75 72 6e 20 22 rr:. return "
05a0: 42 61 64 20 74 69 6d 65 20 76 61 6c 75 65 22 3b Bad time value";
05b0: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05f0: 2a 0a 20 2a 0a 20 2a 09 54 6c 73 5f 4e 65 77 58 *. *. *.Tls_NewX
0600: 35 30 39 4f 62 6a 20 2d 2d 0a 20 2a 0a 20 2a 09 509Obj --. *. *.
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 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0640: 2a 0a 20 2a 09 43 6f 6e 76 65 72 74 73 20 61 20 *. *.Converts a
0650: 58 35 30 39 20 63 65 72 74 69 66 69 63 61 74 65 X509 certificate
0660: 20 69 6e 74 6f 20 61 20 54 63 6c 5f 4f 62 6a 0a into a Tcl_Obj.
0670: 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *.-------------
0680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06a0: 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 69 64 65 65 ---*. *. *.Sidee
06b0: 66 66 65 63 74 73 3a 0a 20 2a 09 09 4e 6f 6e 65 ffects:. *..None
06c0: 0a 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 . *. *.Result:.
06d0: 2a 09 09 41 20 54 63 6c 20 4c 69 73 74 20 4f 62 *..A Tcl List Ob
06e0: 6a 65 63 74 20 72 65 70 72 65 73 65 6e 74 69 6e ject representin
06f0: 67 20 74 68 65 20 70 72 6f 76 69 64 65 64 0a 20 g the provided.
0700: 2a 09 09 58 35 30 39 20 63 65 72 74 69 66 69 63 *..X509 certific
0710: 61 74 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ate.. *. *------
0720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0750: 2a 0a 20 2a 2f 0a 0a 23 64 65 66 69 6e 65 20 43 *. */..#define C
0760: 45 52 54 5f 53 54 52 5f 53 49 5a 45 20 31 36 33 ERT_STR_SIZE 163
0770: 38 34 0a 0a 54 63 6c 5f 4f 62 6a 2a 0a 54 6c 73 84..Tcl_Obj*.Tls
0780: 5f 4e 65 77 58 35 30 39 4f 62 6a 28 54 63 6c 5f _NewX509Obj(Tcl_
0790: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
07a0: 58 35 30 39 20 2a 63 65 72 74 29 20 7b 0a 20 20 X509 *cert) {.
07b0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 65 72 74 50 Tcl_Obj *certP
07c0: 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 tr = Tcl_NewList
07d0: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 Obj(0, NULL);.
07e0: 20 20 42 49 4f 20 2a 62 69 6f 3b 0a 20 20 20 20 BIO *bio;.
07f0: 69 6e 74 20 6e 3b 0a 20 20 20 20 75 6e 73 69 67 int n;. unsig
0800: 6e 65 64 20 6c 6f 6e 67 20 66 6c 61 67 73 3b 0a ned long flags;.
0810: 20 20 20 20 63 68 61 72 20 73 75 62 6a 65 63 74 char subject
0820: 5b 42 55 46 53 49 5a 5d 3b 0a 20 20 20 20 63 68 [BUFSIZ];. ch
0830: 61 72 20 69 73 73 75 65 72 5b 42 55 46 53 49 5a ar issuer[BUFSIZ
0840: 5d 3b 0a 20 20 20 20 63 68 61 72 20 73 65 72 69 ];. char seri
0850: 61 6c 5b 42 55 46 53 49 5a 5d 3b 0a 20 20 20 20 al[BUFSIZ];.
0860: 63 68 61 72 20 6e 6f 74 42 65 66 6f 72 65 5b 42 char notBefore[B
0870: 55 46 53 49 5a 5d 3b 0a 20 20 20 20 63 68 61 72 UFSIZ];. char
0880: 20 6e 6f 74 41 66 74 65 72 5b 42 55 46 53 49 5a notAfter[BUFSIZ
0890: 5d 3b 0a 20 20 20 20 63 68 61 72 20 63 65 72 74 ];. char cert
08a0: 53 74 72 5b 43 45 52 54 5f 53 54 52 5f 53 49 5a Str[CERT_STR_SIZ
08b0: 45 5d 2c 20 2a 63 65 72 74 53 74 72 5f 70 3b 0a E], *certStr_p;.
08c0: 20 20 20 20 69 6e 74 20 63 65 72 74 53 74 72 5f int certStr_
08d0: 6c 65 6e 2c 20 74 6f 52 65 61 64 3b 0a 23 69 66 len, toRead;.#if
08e0: 6e 64 65 66 20 4e 4f 5f 53 53 4c 5f 53 48 41 0a ndef NO_SSL_SHA.
08f0: 20 20 20 20 63 68 61 72 20 73 68 61 31 5f 68 61 char sha1_ha
0900: 73 68 5f 61 73 63 69 69 5b 53 48 41 5f 44 49 47 sh_ascii[SHA_DIG
0910: 45 53 54 5f 4c 45 4e 47 54 48 20 2a 20 32 20 2b EST_LENGTH * 2 +
0920: 20 31 5d 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 1];. unsigne
0930: 64 20 63 68 61 72 20 73 68 61 31 5f 68 61 73 68 d char sha1_hash
0940: 5f 62 69 6e 61 72 79 5b 53 48 41 5f 44 49 47 45 _binary[SHA_DIGE
0950: 53 54 5f 4c 45 4e 47 54 48 5d 3b 0a 20 20 20 20 ST_LENGTH];.
0960: 63 68 61 72 20 73 68 61 32 35 36 5f 68 61 73 68 char sha256_hash
0970: 5f 61 73 63 69 69 5b 53 48 41 32 35 36 5f 44 49 _ascii[SHA256_DI
0980: 47 45 53 54 5f 4c 45 4e 47 54 48 20 2a 20 32 20 GEST_LENGTH * 2
0990: 2b 20 31 5d 3b 0a 20 20 20 20 75 6e 73 69 67 6e + 1];. unsign
09a0: 65 64 20 63 68 61 72 20 73 68 61 32 35 36 5f 68 ed char sha256_h
09b0: 61 73 68 5f 62 69 6e 61 72 79 5b 53 48 41 32 35 ash_binary[SHA25
09c0: 36 5f 44 49 47 45 53 54 5f 4c 45 4e 47 54 48 5d 6_DIGEST_LENGTH]
09d0: 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 ;. const char
09e0: 20 2a 73 68 61 63 68 61 72 73 3d 22 30 31 32 33 *shachars="0123
09f0: 34 35 36 37 38 39 41 42 43 44 45 46 22 3b 0a 0a 456789ABCDEF";..
0a00: 20 20 20 20 73 68 61 31 5f 68 61 73 68 5f 61 73 sha1_hash_as
0a10: 63 69 69 5b 53 48 41 5f 44 49 47 45 53 54 5f 4c cii[SHA_DIGEST_L
0a20: 45 4e 47 54 48 20 2a 20 32 5d 20 3d 20 27 5c 30 ENGTH * 2] = '\0
0a30: 27 3b 0a 20 20 20 20 73 68 61 32 35 36 5f 68 61 ';. sha256_ha
0a40: 73 68 5f 61 73 63 69 69 5b 53 48 41 32 35 36 5f sh_ascii[SHA256_
0a50: 44 49 47 45 53 54 5f 4c 45 4e 47 54 48 20 2a 20 DIGEST_LENGTH *
0a60: 32 5d 20 3d 20 27 5c 30 27 3b 0a 23 65 6e 64 69 2] = '\0';.#endi
0a70: 66 0a 0a 20 20 20 20 63 65 72 74 53 74 72 5b 30 f.. certStr[0
0a80: 5d 20 3d 20 30 3b 0a 20 20 20 20 69 66 20 28 28 ] = 0;. if ((
0a90: 62 69 6f 20 3d 20 42 49 4f 5f 6e 65 77 28 42 49 bio = BIO_new(BI
0aa0: 4f 5f 73 5f 6d 65 6d 28 29 29 29 20 3d 3d 20 4e O_s_mem())) == N
0ab0: 55 4c 4c 29 20 7b 0a 09 73 75 62 6a 65 63 74 5b ULL) {..subject[
0ac0: 30 5d 20 3d 20 30 3b 0a 09 69 73 73 75 65 72 5b 0] = 0;..issuer[
0ad0: 30 5d 20 20 3d 20 30 3b 0a 09 73 65 72 69 61 6c 0] = 0;..serial
0ae0: 5b 30 5d 20 20 3d 20 30 3b 0a 20 20 20 20 7d 20 [0] = 0;. }
0af0: 65 6c 73 65 20 7b 0a 09 66 6c 61 67 73 20 3d 20 else {..flags =
0b00: 58 4e 5f 46 4c 41 47 5f 52 46 43 32 32 35 33 20 XN_FLAG_RFC2253
0b10: 7c 20 41 53 4e 31 5f 53 54 52 46 4c 47 53 5f 55 | ASN1_STRFLGS_U
0b20: 54 46 38 5f 43 4f 4e 56 45 52 54 3b 0a 09 66 6c TF8_CONVERT;..fl
0b30: 61 67 73 20 26 3d 20 7e 41 53 4e 31 5f 53 54 52 ags &= ~ASN1_STR
0b40: 46 4c 47 53 5f 45 53 43 5f 4d 53 42 3b 0a 0a 09 FLGS_ESC_MSB;...
0b50: 58 35 30 39 5f 4e 41 4d 45 5f 70 72 69 6e 74 5f X509_NAME_print_
0b60: 65 78 28 62 69 6f 2c 20 58 35 30 39 5f 67 65 74 ex(bio, X509_get
0b70: 5f 73 75 62 6a 65 63 74 5f 6e 61 6d 65 28 63 65 _subject_name(ce
0b80: 72 74 29 2c 20 30 2c 20 66 6c 61 67 73 29 3b 0a rt), 0, flags);.
0b90: 09 6e 20 3d 20 42 49 4f 5f 72 65 61 64 28 62 69 .n = BIO_read(bi
0ba0: 6f 2c 20 73 75 62 6a 65 63 74 2c 20 6d 69 6e 28 o, subject, min(
0bb0: 42 49 4f 5f 70 65 6e 64 69 6e 67 28 62 69 6f 29 BIO_pending(bio)
0bc0: 2c 20 42 55 46 53 49 5a 20 2d 20 31 29 29 3b 0a , BUFSIZ - 1));.
0bd0: 09 6e 20 3d 20 6d 61 78 28 6e 2c 20 30 29 3b 0a .n = max(n, 0);.
0be0: 09 73 75 62 6a 65 63 74 5b 6e 5d 20 3d 20 30 3b .subject[n] = 0;
0bf0: 0a 09 28 76 6f 69 64 29 42 49 4f 5f 66 6c 75 73 ..(void)BIO_flus
0c00: 68 28 62 69 6f 29 3b 0a 0a 09 58 35 30 39 5f 4e h(bio);...X509_N
0c10: 41 4d 45 5f 70 72 69 6e 74 5f 65 78 28 62 69 6f AME_print_ex(bio
0c20: 2c 20 58 35 30 39 5f 67 65 74 5f 69 73 73 75 65 , X509_get_issue
0c30: 72 5f 6e 61 6d 65 28 63 65 72 74 29 2c 20 30 2c r_name(cert), 0,
0c40: 20 66 6c 61 67 73 29 3b 0a 09 6e 20 3d 20 42 49 flags);..n = BI
0c50: 4f 5f 72 65 61 64 28 62 69 6f 2c 20 69 73 73 75 O_read(bio, issu
0c60: 65 72 2c 20 6d 69 6e 28 42 49 4f 5f 70 65 6e 64 er, min(BIO_pend
0c70: 69 6e 67 28 62 69 6f 29 2c 20 42 55 46 53 49 5a ing(bio), BUFSIZ
0c80: 20 2d 20 31 29 29 3b 0a 09 6e 20 3d 20 6d 61 78 - 1));..n = max
0c90: 28 6e 2c 20 30 29 3b 0a 09 69 73 73 75 65 72 5b (n, 0);..issuer[
0ca0: 6e 5d 20 3d 20 30 3b 0a 09 28 76 6f 69 64 29 42 n] = 0;..(void)B
0cb0: 49 4f 5f 66 6c 75 73 68 28 62 69 6f 29 3b 0a 0a IO_flush(bio);..
0cc0: 09 69 32 61 5f 41 53 4e 31 5f 49 4e 54 45 47 45 .i2a_ASN1_INTEGE
0cd0: 52 28 62 69 6f 2c 20 58 35 30 39 5f 67 65 74 5f R(bio, X509_get_
0ce0: 73 65 72 69 61 6c 4e 75 6d 62 65 72 28 63 65 72 serialNumber(cer
0cf0: 74 29 29 3b 0a 09 6e 20 3d 20 42 49 4f 5f 72 65 t));..n = BIO_re
0d00: 61 64 28 62 69 6f 2c 20 73 65 72 69 61 6c 2c 20 ad(bio, serial,
0d10: 6d 69 6e 28 42 49 4f 5f 70 65 6e 64 69 6e 67 28 min(BIO_pending(
0d20: 62 69 6f 29 2c 20 42 55 46 53 49 5a 20 2d 20 31 bio), BUFSIZ - 1
0d30: 29 29 3b 0a 09 6e 20 3d 20 6d 61 78 28 6e 2c 20 ));..n = max(n,
0d40: 30 29 3b 0a 09 73 65 72 69 61 6c 5b 6e 5d 20 3d 0);..serial[n] =
0d50: 20 30 3b 0a 09 28 76 6f 69 64 29 42 49 4f 5f 66 0;..(void)BIO_f
0d60: 6c 75 73 68 28 62 69 6f 29 3b 0a 0a 20 20 20 20 lush(bio);..
0d70: 20 20 20 20 69 66 20 28 50 45 4d 5f 77 72 69 74 if (PEM_writ
0d80: 65 5f 62 69 6f 5f 58 35 30 39 28 62 69 6f 2c 20 e_bio_X509(bio,
0d90: 63 65 72 74 29 29 20 7b 0a 20 20 20 20 20 20 20 cert)) {.
0da0: 20 20 20 20 20 63 65 72 74 53 74 72 5f 70 20 3d certStr_p =
0db0: 20 63 65 72 74 53 74 72 3b 0a 20 20 20 20 20 20 certStr;.
0dc0: 20 20 20 20 20 20 63 65 72 74 53 74 72 5f 6c 65 certStr_le
0dd0: 6e 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 n = 0;.
0de0: 20 20 20 77 68 69 6c 65 20 28 31 29 20 7b 0a 20 while (1) {.
0df0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
0e00: 6f 52 65 61 64 20 3d 20 6d 69 6e 28 42 49 4f 5f oRead = min(BIO_
0e10: 70 65 6e 64 69 6e 67 28 62 69 6f 29 2c 20 43 45 pending(bio), CE
0e20: 52 54 5f 53 54 52 5f 53 49 5a 45 20 2d 20 63 65 RT_STR_SIZE - ce
0e30: 72 74 53 74 72 5f 6c 65 6e 20 2d 20 31 29 3b 0a rtStr_len - 1);.
0e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0e50: 74 6f 52 65 61 64 20 3d 20 6d 69 6e 28 74 6f 52 toRead = min(toR
0e60: 65 61 64 2c 20 42 55 46 53 49 5a 29 3b 0a 20 20 ead, BUFSIZ);.
0e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 if
0e80: 20 28 74 6f 52 65 61 64 20 3d 3d 20 30 29 20 7b (toRead == 0) {
0e90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0ea0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
0eb0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 }.
0ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 70 dp
0ed0: 72 69 6e 74 66 28 22 52 65 61 64 69 6e 67 20 25 rintf("Reading %
0ee0: 69 20 62 79 74 65 73 20 66 72 6f 6d 20 74 68 65 i bytes from the
0ef0: 20 63 65 72 74 69 66 69 63 61 74 65 2e 2e 2e 22 certificate..."
0f00: 2c 20 74 6f 52 65 61 64 29 3b 0a 20 20 20 20 20 , toRead);.
0f10: 20 20 20 20 20 20 20 20 20 20 20 6e 20 3d 20 42 n = B
0f20: 49 4f 5f 72 65 61 64 28 62 69 6f 2c 20 63 65 72 IO_read(bio, cer
0f30: 74 53 74 72 5f 70 2c 20 74 6f 52 65 61 64 29 3b tStr_p, toRead);
0f40: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0f50: 20 69 66 20 28 6e 20 3c 3d 20 30 29 20 7b 0a 20 if (n <= 0) {.
0f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0f70: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 break;.
0f80: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 }.
0f90: 20 20 20 20 20 20 20 20 20 20 20 20 63 65 72 74 cert
0fa0: 53 74 72 5f 6c 65 6e 20 2b 3d 20 6e 3b 0a 20 20 Str_len += n;.
0fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 65 ce
0fc0: 72 74 53 74 72 5f 70 20 20 20 2b 3d 20 6e 3b 0a rtStr_p += n;.
0fd0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 }.
0fe0: 20 20 20 20 20 20 20 20 20 20 2a 63 65 72 74 53 *certS
0ff0: 74 72 5f 70 20 3d 20 27 5c 30 27 3b 0a 20 20 20 tr_p = '\0';.
1000: 20 20 20 20 20 20 20 20 20 28 76 6f 69 64 29 42 (void)B
1010: 49 4f 5f 66 6c 75 73 68 28 62 69 6f 29 3b 0a 20 IO_flush(bio);.
1020: 20 20 20 20 20 20 20 7d 0a 0a 09 42 49 4f 5f 66 }...BIO_f
1030: 72 65 65 28 62 69 6f 29 3b 0a 20 20 20 20 7d 0a ree(bio);. }.
1040: 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 .#if OPENSSL_VER
1050: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 SION_NUMBER < 0x
1060: 31 30 31 30 30 30 30 30 4c 0a 20 20 20 20 73 74 10100000L. st
1070: 72 63 70 79 28 6e 6f 74 42 65 66 6f 72 65 2c 20 rcpy(notBefore,
1080: 41 53 4e 31 5f 55 54 43 54 49 4d 45 5f 74 6f 73 ASN1_UTCTIME_tos
1090: 74 72 28 58 35 30 39 5f 67 65 74 5f 6e 6f 74 42 tr(X509_get_notB
10a0: 65 66 6f 72 65 28 63 65 72 74 29 29 29 3b 0a 20 efore(cert)));.
10b0: 20 20 20 73 74 72 63 70 79 28 6e 6f 74 41 66 74 strcpy(notAft
10c0: 65 72 2c 20 41 53 4e 31 5f 55 54 43 54 49 4d 45 er, ASN1_UTCTIME
10d0: 5f 74 6f 73 74 72 28 58 35 30 39 5f 67 65 74 5f _tostr(X509_get_
10e0: 6e 6f 74 41 66 74 65 72 28 63 65 72 74 29 29 29 notAfter(cert)))
10f0: 3b 0a 23 65 6c 73 65 0a 20 20 20 20 73 74 72 63 ;.#else. strc
1100: 70 79 28 6e 6f 74 42 65 66 6f 72 65 2c 20 41 53 py(notBefore, AS
1110: 4e 31 5f 55 54 43 54 49 4d 45 5f 74 6f 73 74 72 N1_UTCTIME_tostr
1120: 28 58 35 30 39 5f 67 65 74 6d 5f 6e 6f 74 42 65 (X509_getm_notBe
1130: 66 6f 72 65 28 63 65 72 74 29 29 29 3b 0a 20 20 fore(cert)));.
1140: 20 20 73 74 72 63 70 79 28 6e 6f 74 41 66 74 65 strcpy(notAfte
1150: 72 2c 20 41 53 4e 31 5f 55 54 43 54 49 4d 45 5f r, ASN1_UTCTIME_
1160: 74 6f 73 74 72 28 58 35 30 39 5f 67 65 74 6d 5f tostr(X509_getm_
1170: 6e 6f 74 41 66 74 65 72 28 63 65 72 74 29 29 29 notAfter(cert)))
1180: 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 6e 64 65 ;.#endif..#ifnde
1190: 66 20 4e 4f 5f 53 53 4c 5f 53 48 41 0a 20 20 20 f NO_SSL_SHA.
11a0: 20 2f 2a 20 53 48 41 31 20 2a 2f 0a 20 20 20 20 /* SHA1 */.
11b0: 58 35 30 39 5f 64 69 67 65 73 74 28 63 65 72 74 X509_digest(cert
11c0: 2c 20 45 56 50 5f 73 68 61 31 28 29 2c 20 73 68 , EVP_sha1(), sh
11d0: 61 31 5f 68 61 73 68 5f 62 69 6e 61 72 79 2c 20 a1_hash_binary,
11e0: 4e 55 4c 4c 29 3b 0a 20 20 20 20 66 6f 72 20 28 NULL);. for (
11f0: 69 6e 74 20 6e 20 3d 20 30 3b 20 6e 20 3c 20 53 int n = 0; n < S
1200: 48 41 5f 44 49 47 45 53 54 5f 4c 45 4e 47 54 48 HA_DIGEST_LENGTH
1210: 3b 20 6e 2b 2b 29 20 7b 0a 20 20 20 20 20 20 20 ; n++) {.
1220: 20 73 68 61 31 5f 68 61 73 68 5f 61 73 63 69 69 sha1_hash_ascii
1230: 5b 6e 2a 32 5d 20 20 20 3d 20 73 68 61 63 68 61 [n*2] = shacha
1240: 72 73 5b 28 73 68 61 31 5f 68 61 73 68 5f 62 69 rs[(sha1_hash_bi
1250: 6e 61 72 79 5b 6e 5d 20 26 20 30 78 46 30 29 20 nary[n] & 0xF0)
1260: 3e 3e 20 34 5d 3b 0a 20 20 20 20 20 20 20 20 73 >> 4];. s
1270: 68 61 31 5f 68 61 73 68 5f 61 73 63 69 69 5b 6e ha1_hash_ascii[n
1280: 2a 32 2b 31 5d 20 3d 20 73 68 61 63 68 61 72 73 *2+1] = shachars
1290: 5b 28 73 68 61 31 5f 68 61 73 68 5f 62 69 6e 61 [(sha1_hash_bina
12a0: 72 79 5b 6e 5d 20 26 20 30 78 30 46 29 5d 3b 0a ry[n] & 0x0F)];.
12b0: 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 4c 69 }. Tcl_Li
12c0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
12d0: 6e 74 28 20 69 6e 74 65 72 70 2c 20 63 65 72 74 nt( interp, cert
12e0: 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 Ptr, Tcl_NewStri
12f0: 6e 67 4f 62 6a 28 22 73 68 61 31 5f 68 61 73 68 ngObj("sha1_hash
1300: 22 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 54 63 ", -1) );. Tc
1310: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
1320: 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 lement( interp,
1330: 63 65 72 74 50 74 72 2c 20 54 63 6c 5f 4e 65 77 certPtr, Tcl_New
1340: 53 74 72 69 6e 67 4f 62 6a 28 73 68 61 31 5f 68 StringObj(sha1_h
1350: 61 73 68 5f 61 73 63 69 69 2c 20 53 48 41 5f 44 ash_ascii, SHA_D
1360: 49 47 45 53 54 5f 4c 45 4e 47 54 48 20 2a 20 32 IGEST_LENGTH * 2
1370: 29 20 29 3b 0a 0a 20 20 20 20 2f 2a 20 53 48 41 ) );.. /* SHA
1380: 32 35 36 20 2a 2f 0a 20 20 20 20 58 35 30 39 5f 256 */. X509_
1390: 64 69 67 65 73 74 28 63 65 72 74 2c 20 45 56 50 digest(cert, EVP
13a0: 5f 73 68 61 32 35 36 28 29 2c 20 73 68 61 32 35 _sha256(), sha25
13b0: 36 5f 68 61 73 68 5f 62 69 6e 61 72 79 2c 20 4e 6_hash_binary, N
13c0: 55 4c 4c 29 3b 0a 20 20 20 20 66 6f 72 20 28 69 ULL);. for (i
13d0: 6e 74 20 6e 20 3d 20 30 3b 20 6e 20 3c 20 53 48 nt n = 0; n < SH
13e0: 41 32 35 36 5f 44 49 47 45 53 54 5f 4c 45 4e 47 A256_DIGEST_LENG
13f0: 54 48 3b 20 6e 2b 2b 29 20 7b 0a 09 73 68 61 32 TH; n++) {..sha2
1400: 35 36 5f 68 61 73 68 5f 61 73 63 69 69 5b 6e 2a 56_hash_ascii[n*
1410: 32 5d 20 20 20 3d 20 73 68 61 63 68 61 72 73 5b 2] = shachars[
1420: 28 73 68 61 32 35 36 5f 68 61 73 68 5f 62 69 6e (sha256_hash_bin
1430: 61 72 79 5b 6e 5d 20 26 20 30 78 46 30 29 20 3e ary[n] & 0xF0) >
1440: 3e 20 34 5d 3b 0a 09 73 68 61 32 35 36 5f 68 61 > 4];..sha256_ha
1450: 73 68 5f 61 73 63 69 69 5b 6e 2a 32 2b 31 5d 20 sh_ascii[n*2+1]
1460: 3d 20 73 68 61 63 68 61 72 73 5b 28 73 68 61 32 = shachars[(sha2
1470: 35 36 5f 68 61 73 68 5f 62 69 6e 61 72 79 5b 6e 56_hash_binary[n
1480: 5d 20 26 20 30 78 30 46 29 5d 3b 0a 20 20 20 20 ] & 0x0F)];.
1490: 7d 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 }. Tcl_ListOb
14a0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 jAppendElement(
14b0: 69 6e 74 65 72 70 2c 20 63 65 72 74 50 74 72 2c interp, certPtr,
14c0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
14d0: 6a 28 20 22 73 68 61 32 35 36 5f 68 61 73 68 22 j( "sha256_hash"
14e0: 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 54 63 6c , -1) );. Tcl
14f0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
1500: 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 63 ement( interp, c
1510: 65 72 74 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 ertPtr, Tcl_NewS
1520: 74 72 69 6e 67 4f 62 6a 28 20 73 68 61 32 35 36 tringObj( sha256
1530: 5f 68 61 73 68 5f 61 73 63 69 69 2c 20 53 48 41 _hash_ascii, SHA
1540: 32 35 36 5f 44 49 47 45 53 54 5f 4c 45 4e 47 54 256_DIGEST_LENGT
1550: 48 20 2a 20 32 29 20 29 3b 0a 23 65 6e 64 69 66 H * 2) );.#endif
1560: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
1570: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 AppendElement( i
1580: 6e 74 65 72 70 2c 20 63 65 72 74 50 74 72 2c 20 nterp, certPtr,
1590: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
15a0: 28 20 22 73 75 62 6a 65 63 74 22 2c 20 2d 31 29 ( "subject", -1)
15b0: 20 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 );. Tcl_List
15c0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
15d0: 28 20 69 6e 74 65 72 70 2c 20 63 65 72 74 50 74 ( interp, certPt
15e0: 72 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 r, Tcl_NewString
15f0: 4f 62 6a 28 20 73 75 62 6a 65 63 74 2c 20 2d 31 Obj( subject, -1
1600: 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 ) );.. Tcl_Li
1610: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
1620: 6e 74 28 20 69 6e 74 65 72 70 2c 20 63 65 72 74 nt( interp, cert
1630: 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 Ptr, Tcl_NewStri
1640: 6e 67 4f 62 6a 28 20 22 69 73 73 75 65 72 22 2c ngObj( "issuer",
1650: 20 2d 31 29 20 29 3b 0a 20 20 20 20 54 63 6c 5f -1) );. Tcl_
1660: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
1670: 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 63 65 ment( interp, ce
1680: 72 74 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74 rtPtr, Tcl_NewSt
1690: 72 69 6e 67 4f 62 6a 28 20 69 73 73 75 65 72 2c ringObj( issuer,
16a0: 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c -1) );.. Tcl
16b0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
16c0: 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 63 ement( interp, c
16d0: 65 72 74 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 ertPtr, Tcl_NewS
16e0: 74 72 69 6e 67 4f 62 6a 28 20 22 6e 6f 74 42 65 tringObj( "notBe
16f0: 66 6f 72 65 22 2c 20 2d 31 29 20 29 3b 0a 20 20 fore", -1) );.
1700: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
1710: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 endElement( inte
1720: 72 70 2c 20 63 65 72 74 50 74 72 2c 20 54 63 6c rp, certPtr, Tcl
1730: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 6e _NewStringObj( n
1740: 6f 74 42 65 66 6f 72 65 2c 20 2d 31 29 20 29 3b otBefore, -1) );
1750: 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 .. Tcl_ListOb
1760: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 jAppendElement(
1770: 69 6e 74 65 72 70 2c 20 63 65 72 74 50 74 72 2c interp, certPtr,
1780: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
1790: 6a 28 20 22 6e 6f 74 41 66 74 65 72 22 2c 20 2d j( "notAfter", -
17a0: 31 29 20 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 1) );. Tcl_Li
17b0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
17c0: 6e 74 28 20 69 6e 74 65 72 70 2c 20 63 65 72 74 nt( interp, cert
17d0: 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 Ptr, Tcl_NewStri
17e0: 6e 67 4f 62 6a 28 20 6e 6f 74 41 66 74 65 72 2c ngObj( notAfter,
17f0: 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c -1) );.. Tcl
1800: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
1810: 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 63 ement( interp, c
1820: 65 72 74 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 ertPtr, Tcl_NewS
1830: 74 72 69 6e 67 4f 62 6a 28 20 22 73 65 72 69 61 tringObj( "seria
1840: 6c 22 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 54 l", -1) );. T
1850: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
1860: 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c Element( interp,
1870: 20 63 65 72 74 50 74 72 2c 20 54 63 6c 5f 4e 65 certPtr, Tcl_Ne
1880: 77 53 74 72 69 6e 67 4f 62 6a 28 20 73 65 72 69 wStringObj( seri
1890: 61 6c 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 al, -1) );..
18a0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
18b0: 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 dElement( interp
18c0: 2c 20 63 65 72 74 50 74 72 2c 20 54 63 6c 5f 4e , certPtr, Tcl_N
18d0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 63 65 ewStringObj( "ce
18e0: 72 74 69 66 69 63 61 74 65 22 2c 20 2d 31 29 20 rtificate", -1)
18f0: 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f );. Tcl_ListO
1900: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
1910: 20 69 6e 74 65 72 70 2c 20 63 65 72 74 50 74 72 interp, certPtr
1920: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
1930: 62 6a 28 20 63 65 72 74 53 74 72 2c 20 2d 31 29 bj( certStr, -1)
1940: 20 29 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 );.. return
1950: 63 65 72 74 50 74 72 3b 0a 7d 0a certPtr;.}.