Hex Artifact Content

Artifact 24213eb4b184aee67dc69f6cc015cc7f3e0c5d6c:


0000: 23 69 6e 63 6c 75 64 65 20 22 6d 79 70 6b 63 73  #include "mypkcs
0010: 31 31 2e 68 22 0a 0a 23 69 6e 63 6c 75 64 65 20  11.h"..#include 
0020: 3c 73 79 73 2f 74 79 70 65 73 2e 68 3e 0a 23 69  <sys/types.h>.#i
0030: 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e 68  nclude <string.h
0040: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 75 6e 69 73  >.#include <unis
0050: 74 64 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c  td.h>.#include <
0060: 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75  stdlib.h>.#inclu
0070: 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a 0a 73 74  de <stdio.h>..st
0080: 61 74 69 63 20 63 68 61 72 20 2a 70 6b 63 73 31  atic char *pkcs1
0090: 31 5f 61 74 74 72 69 62 75 74 65 5f 74 6f 5f 6e  1_attribute_to_n
00a0: 61 6d 65 28 43 4b 5f 41 54 54 52 49 42 55 54 45  ame(CK_ATTRIBUTE
00b0: 5f 54 59 50 45 20 61 74 74 72 69 62 29 20 7b 0a  _TYPE attrib) {.
00c0: 09 73 74 61 74 69 63 20 63 68 61 72 20 72 65 74  .static char ret
00d0: 62 75 66 5b 31 30 32 34 5d 3b 0a 0a 09 73 77 69  buf[1024];...swi
00e0: 74 63 68 20 28 61 74 74 72 69 62 29 20 7b 0a 09  tch (attrib) {..
00f0: 09 63 61 73 65 20 30 78 30 30 30 30 30 30 30 30  .case 0x00000000
0100: 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 43 4c  : return "CKA_CL
0110: 41 53 53 22 3b 0a 09 09 63 61 73 65 20 30 78 30  ASS";...case 0x0
0120: 30 30 30 30 30 30 31 3a 20 72 65 74 75 72 6e 20  0000001: return 
0130: 22 43 4b 41 5f 54 4f 4b 45 4e 22 3b 0a 09 09 63  "CKA_TOKEN";...c
0140: 61 73 65 20 30 78 30 30 30 30 30 30 30 32 3a 20  ase 0x00000002: 
0150: 72 65 74 75 72 6e 20 22 43 4b 41 5f 50 52 49 56  return "CKA_PRIV
0160: 41 54 45 22 3b 0a 09 09 63 61 73 65 20 30 78 30  ATE";...case 0x0
0170: 30 30 30 30 30 30 33 3a 20 72 65 74 75 72 6e 20  0000003: return 
0180: 22 43 4b 41 5f 4c 41 42 45 4c 22 3b 0a 09 09 63  "CKA_LABEL";...c
0190: 61 73 65 20 30 78 30 30 30 30 30 30 31 30 3a 20  ase 0x00000010: 
01a0: 72 65 74 75 72 6e 20 22 43 4b 41 5f 41 50 50 4c  return "CKA_APPL
01b0: 49 43 41 54 49 4f 4e 22 3b 0a 09 09 63 61 73 65  ICATION";...case
01c0: 20 30 78 30 30 30 30 30 30 31 31 3a 20 72 65 74   0x00000011: ret
01d0: 75 72 6e 20 22 43 4b 41 5f 56 41 4c 55 45 22 3b  urn "CKA_VALUE";
01e0: 0a 09 09 63 61 73 65 20 30 78 30 30 30 30 30 30  ...case 0x000000
01f0: 31 32 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f  12: return "CKA_
0200: 4f 42 4a 45 43 54 5f 49 44 22 3b 0a 09 09 63 61  OBJECT_ID";...ca
0210: 73 65 20 30 78 30 30 30 30 30 30 38 30 3a 20 72  se 0x00000080: r
0220: 65 74 75 72 6e 20 22 43 4b 41 5f 43 45 52 54 49  eturn "CKA_CERTI
0230: 46 49 43 41 54 45 5f 54 59 50 45 22 3b 0a 09 09  FICATE_TYPE";...
0240: 63 61 73 65 20 30 78 30 30 30 30 30 30 38 31 3a  case 0x00000081:
0250: 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 49 53 53   return "CKA_ISS
0260: 55 45 52 22 3b 0a 09 09 63 61 73 65 20 30 78 30  UER";...case 0x0
0270: 30 30 30 30 30 38 32 3a 20 72 65 74 75 72 6e 20  0000082: return 
0280: 22 43 4b 41 5f 53 45 52 49 41 4c 5f 4e 55 4d 42  "CKA_SERIAL_NUMB
0290: 45 52 22 3b 0a 09 09 63 61 73 65 20 30 78 30 30  ER";...case 0x00
02a0: 30 30 30 30 38 33 3a 20 72 65 74 75 72 6e 20 22  000083: return "
02b0: 43 4b 41 5f 41 43 5f 49 53 53 55 45 52 22 3b 0a  CKA_AC_ISSUER";.
02c0: 09 09 63 61 73 65 20 30 78 30 30 30 30 30 30 38  ..case 0x0000008
02d0: 34 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 4f  4: return "CKA_O
02e0: 57 4e 45 52 22 3b 0a 09 09 63 61 73 65 20 30 78  WNER";...case 0x
02f0: 30 30 30 30 30 30 38 35 3a 20 72 65 74 75 72 6e  00000085: return
0300: 20 22 43 4b 41 5f 41 54 54 52 5f 54 59 50 45 53   "CKA_ATTR_TYPES
0310: 22 3b 0a 09 09 63 61 73 65 20 30 78 30 30 30 30  ";...case 0x0000
0320: 30 30 38 36 3a 20 72 65 74 75 72 6e 20 22 43 4b  0086: return "CK
0330: 41 5f 54 52 55 53 54 45 44 22 3b 0a 09 09 63 61  A_TRUSTED";...ca
0340: 73 65 20 30 78 30 30 30 30 30 31 30 30 3a 20 72  se 0x00000100: r
0350: 65 74 75 72 6e 20 22 43 4b 41 5f 4b 45 59 5f 54  eturn "CKA_KEY_T
0360: 59 50 45 22 3b 0a 09 09 63 61 73 65 20 30 78 30  YPE";...case 0x0
0370: 30 30 30 30 31 30 31 3a 20 72 65 74 75 72 6e 20  0000101: return 
0380: 22 43 4b 41 5f 53 55 42 4a 45 43 54 22 3b 0a 09  "CKA_SUBJECT";..
0390: 09 63 61 73 65 20 30 78 30 30 30 30 30 31 30 32  .case 0x00000102
03a0: 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 49 44  : return "CKA_ID
03b0: 22 3b 0a 09 09 63 61 73 65 20 30 78 30 30 30 30  ";...case 0x0000
03c0: 30 31 30 33 3a 20 72 65 74 75 72 6e 20 22 43 4b  0103: return "CK
03d0: 41 5f 53 45 4e 53 49 54 49 56 45 22 3b 0a 09 09  A_SENSITIVE";...
03e0: 63 61 73 65 20 30 78 30 30 30 30 30 31 30 34 3a  case 0x00000104:
03f0: 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 45 4e 43   return "CKA_ENC
0400: 52 59 50 54 22 3b 0a 09 09 63 61 73 65 20 30 78  RYPT";...case 0x
0410: 30 30 30 30 30 31 30 35 3a 20 72 65 74 75 72 6e  00000105: return
0420: 20 22 43 4b 41 5f 44 45 43 52 59 50 54 22 3b 0a   "CKA_DECRYPT";.
0430: 09 09 63 61 73 65 20 30 78 30 30 30 30 30 31 30  ..case 0x0000010
0440: 36 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 57  6: return "CKA_W
0450: 52 41 50 22 3b 0a 09 09 63 61 73 65 20 30 78 30  RAP";...case 0x0
0460: 30 30 30 30 31 30 37 3a 20 72 65 74 75 72 6e 20  0000107: return 
0470: 22 43 4b 41 5f 55 4e 57 52 41 50 22 3b 0a 09 09  "CKA_UNWRAP";...
0480: 63 61 73 65 20 30 78 30 30 30 30 30 31 30 38 3a  case 0x00000108:
0490: 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 53 49 47   return "CKA_SIG
04a0: 4e 22 3b 0a 09 09 63 61 73 65 20 30 78 30 30 30  N";...case 0x000
04b0: 30 30 31 30 39 3a 20 72 65 74 75 72 6e 20 22 43  00109: return "C
04c0: 4b 41 5f 53 49 47 4e 5f 52 45 43 4f 56 45 52 22  KA_SIGN_RECOVER"
04d0: 3b 0a 09 09 63 61 73 65 20 30 78 30 30 30 30 30  ;...case 0x00000
04e0: 31 30 41 3a 20 72 65 74 75 72 6e 20 22 43 4b 41  10A: return "CKA
04f0: 5f 56 45 52 49 46 59 22 3b 0a 09 09 63 61 73 65  _VERIFY";...case
0500: 20 30 78 30 30 30 30 30 31 30 42 3a 20 72 65 74   0x0000010B: ret
0510: 75 72 6e 20 22 43 4b 41 5f 56 45 52 49 46 59 5f  urn "CKA_VERIFY_
0520: 52 45 43 4f 56 45 52 22 3b 0a 09 09 63 61 73 65  RECOVER";...case
0530: 20 30 78 30 30 30 30 30 31 30 43 3a 20 72 65 74   0x0000010C: ret
0540: 75 72 6e 20 22 43 4b 41 5f 44 45 52 49 56 45 22  urn "CKA_DERIVE"
0550: 3b 0a 09 09 63 61 73 65 20 30 78 30 30 30 30 30  ;...case 0x00000
0560: 31 31 30 3a 20 72 65 74 75 72 6e 20 22 43 4b 41  110: return "CKA
0570: 5f 53 54 41 52 54 5f 44 41 54 45 22 3b 0a 09 09  _START_DATE";...
0580: 63 61 73 65 20 30 78 30 30 30 30 30 31 31 31 3a  case 0x00000111:
0590: 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 45 4e 44   return "CKA_END
05a0: 5f 44 41 54 45 22 3b 0a 09 09 63 61 73 65 20 30  _DATE";...case 0
05b0: 78 30 30 30 30 30 31 32 30 3a 20 72 65 74 75 72  x00000120: retur
05c0: 6e 20 22 43 4b 41 5f 4d 4f 44 55 4c 55 53 22 3b  n "CKA_MODULUS";
05d0: 0a 09 09 63 61 73 65 20 30 78 30 30 30 30 30 31  ...case 0x000001
05e0: 32 31 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f  21: return "CKA_
05f0: 4d 4f 44 55 4c 55 53 5f 42 49 54 53 22 3b 0a 09  MODULUS_BITS";..
0600: 09 63 61 73 65 20 30 78 30 30 30 30 30 31 32 32  .case 0x00000122
0610: 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 50 55  : return "CKA_PU
0620: 42 4c 49 43 5f 45 58 50 4f 4e 45 4e 54 22 3b 0a  BLIC_EXPONENT";.
0630: 09 09 63 61 73 65 20 30 78 30 30 30 30 30 31 32  ..case 0x0000012
0640: 33 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 50  3: return "CKA_P
0650: 52 49 56 41 54 45 5f 45 58 50 4f 4e 45 4e 54 22  RIVATE_EXPONENT"
0660: 3b 0a 09 09 63 61 73 65 20 30 78 30 30 30 30 30  ;...case 0x00000
0670: 31 32 34 3a 20 72 65 74 75 72 6e 20 22 43 4b 41  124: return "CKA
0680: 5f 50 52 49 4d 45 5f 31 22 3b 0a 09 09 63 61 73  _PRIME_1";...cas
0690: 65 20 30 78 30 30 30 30 30 31 32 35 3a 20 72 65  e 0x00000125: re
06a0: 74 75 72 6e 20 22 43 4b 41 5f 50 52 49 4d 45 5f  turn "CKA_PRIME_
06b0: 32 22 3b 0a 09 09 63 61 73 65 20 30 78 30 30 30  2";...case 0x000
06c0: 30 30 31 32 36 3a 20 72 65 74 75 72 6e 20 22 43  00126: return "C
06d0: 4b 41 5f 45 58 50 4f 4e 45 4e 54 5f 31 22 3b 0a  KA_EXPONENT_1";.
06e0: 09 09 63 61 73 65 20 30 78 30 30 30 30 30 31 32  ..case 0x0000012
06f0: 37 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 45  7: return "CKA_E
0700: 58 50 4f 4e 45 4e 54 5f 32 22 3b 0a 09 09 63 61  XPONENT_2";...ca
0710: 73 65 20 30 78 30 30 30 30 30 31 32 38 3a 20 72  se 0x00000128: r
0720: 65 74 75 72 6e 20 22 43 4b 41 5f 43 4f 45 46 46  eturn "CKA_COEFF
0730: 49 43 49 45 4e 54 22 3b 0a 09 09 63 61 73 65 20  ICIENT";...case 
0740: 30 78 30 30 30 30 30 31 33 30 3a 20 72 65 74 75  0x00000130: retu
0750: 72 6e 20 22 43 4b 41 5f 50 52 49 4d 45 22 3b 0a  rn "CKA_PRIME";.
0760: 09 09 63 61 73 65 20 30 78 30 30 30 30 30 31 33  ..case 0x0000013
0770: 31 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 53  1: return "CKA_S
0780: 55 42 50 52 49 4d 45 22 3b 0a 09 09 63 61 73 65  UBPRIME";...case
0790: 20 30 78 30 30 30 30 30 31 33 32 3a 20 72 65 74   0x00000132: ret
07a0: 75 72 6e 20 22 43 4b 41 5f 42 41 53 45 22 3b 0a  urn "CKA_BASE";.
07b0: 09 09 63 61 73 65 20 30 78 30 30 30 30 30 31 33  ..case 0x0000013
07c0: 33 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 50  3: return "CKA_P
07d0: 52 49 4d 45 5f 42 49 54 53 22 3b 0a 09 09 63 61  RIME_BITS";...ca
07e0: 73 65 20 30 78 30 30 30 30 30 31 33 34 3a 20 72  se 0x00000134: r
07f0: 65 74 75 72 6e 20 22 43 4b 41 5f 53 55 42 5f 50  eturn "CKA_SUB_P
0800: 52 49 4d 45 5f 42 49 54 53 22 3b 0a 09 09 63 61  RIME_BITS";...ca
0810: 73 65 20 30 78 30 30 30 30 30 31 36 30 3a 20 72  se 0x00000160: r
0820: 65 74 75 72 6e 20 22 43 4b 41 5f 56 41 4c 55 45  eturn "CKA_VALUE
0830: 5f 42 49 54 53 22 3b 0a 09 09 63 61 73 65 20 30  _BITS";...case 0
0840: 78 30 30 30 30 30 31 36 31 3a 20 72 65 74 75 72  x00000161: retur
0850: 6e 20 22 43 4b 41 5f 56 41 4c 55 45 5f 4c 45 4e  n "CKA_VALUE_LEN
0860: 22 3b 0a 09 09 63 61 73 65 20 30 78 30 30 30 30  ";...case 0x0000
0870: 30 31 36 32 3a 20 72 65 74 75 72 6e 20 22 43 4b  0162: return "CK
0880: 41 5f 45 58 54 52 41 43 54 41 42 4c 45 22 3b 0a  A_EXTRACTABLE";.
0890: 09 09 63 61 73 65 20 30 78 30 30 30 30 30 31 36  ..case 0x0000016
08a0: 33 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 4c  3: return "CKA_L
08b0: 4f 43 41 4c 22 3b 0a 09 09 63 61 73 65 20 30 78  OCAL";...case 0x
08c0: 30 30 30 30 30 31 36 34 3a 20 72 65 74 75 72 6e  00000164: return
08d0: 20 22 43 4b 41 5f 4e 45 56 45 52 5f 45 58 54 52   "CKA_NEVER_EXTR
08e0: 41 43 54 41 42 4c 45 22 3b 0a 09 09 63 61 73 65  ACTABLE";...case
08f0: 20 30 78 30 30 30 30 30 31 36 35 3a 20 72 65 74   0x00000165: ret
0900: 75 72 6e 20 22 43 4b 41 5f 41 4c 57 41 59 53 5f  urn "CKA_ALWAYS_
0910: 53 45 4e 53 49 54 49 56 45 22 3b 0a 09 09 63 61  SENSITIVE";...ca
0920: 73 65 20 30 78 30 30 30 30 30 31 36 36 3a 20 72  se 0x00000166: r
0930: 65 74 75 72 6e 20 22 43 4b 41 5f 4b 45 59 5f 47  eturn "CKA_KEY_G
0940: 45 4e 5f 4d 45 43 48 41 4e 49 53 4d 22 3b 0a 09  EN_MECHANISM";..
0950: 09 63 61 73 65 20 30 78 30 30 30 30 30 31 37 30  .case 0x00000170
0960: 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 4d 4f  : return "CKA_MO
0970: 44 49 46 49 41 42 4c 45 22 3b 0a 09 09 63 61 73  DIFIABLE";...cas
0980: 65 20 30 78 30 30 30 30 30 31 38 30 3a 20 72 65  e 0x00000180: re
0990: 74 75 72 6e 20 22 43 4b 41 5f 45 43 5f 50 41 52  turn "CKA_EC_PAR
09a0: 41 4d 53 22 3b 0a 09 09 63 61 73 65 20 30 78 30  AMS";...case 0x0
09b0: 30 30 30 30 31 38 31 3a 20 72 65 74 75 72 6e 20  0000181: return 
09c0: 22 43 4b 41 5f 45 43 5f 50 4f 49 4e 54 22 3b 0a  "CKA_EC_POINT";.
09d0: 09 09 63 61 73 65 20 30 78 30 30 30 30 30 32 30  ..case 0x0000020
09e0: 30 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 53  0: return "CKA_S
09f0: 45 43 4f 4e 44 41 52 59 5f 41 55 54 48 22 3b 0a  ECONDARY_AUTH";.
0a00: 09 09 63 61 73 65 20 30 78 30 30 30 30 30 32 30  ..case 0x0000020
0a10: 31 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 41  1: return "CKA_A
0a20: 55 54 48 5f 50 49 4e 5f 46 4c 41 47 53 22 3b 0a  UTH_PIN_FLAGS";.
0a30: 09 09 63 61 73 65 20 30 78 30 30 30 30 30 33 30  ..case 0x0000030
0a40: 30 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 48  0: return "CKA_H
0a50: 57 5f 46 45 41 54 55 52 45 5f 54 59 50 45 22 3b  W_FEATURE_TYPE";
0a60: 0a 09 09 63 61 73 65 20 30 78 30 30 30 30 30 33  ...case 0x000003
0a70: 30 31 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f  01: return "CKA_
0a80: 52 45 53 45 54 5f 4f 4e 5f 49 4e 49 54 22 3b 0a  RESET_ON_INIT";.
0a90: 09 09 63 61 73 65 20 30 78 30 30 30 30 30 33 30  ..case 0x0000030
0aa0: 32 3a 20 72 65 74 75 72 6e 20 22 43 4b 41 5f 48  2: return "CKA_H
0ab0: 41 53 5f 52 45 53 45 54 22 3b 0a 09 7d 0a 0a 09  AS_RESET";..}...
0ac0: 73 6e 70 72 69 6e 74 66 28 72 65 74 62 75 66 2c  snprintf(retbuf,
0ad0: 20 73 69 7a 65 6f 66 28 72 65 74 62 75 66 29 2c   sizeof(retbuf),
0ae0: 20 22 30 78 25 30 38 6c 78 22 2c 20 28 75 6e 73   "0x%08lx", (uns
0af0: 69 67 6e 65 64 20 6c 6f 6e 67 29 20 61 74 74 72  igned long) attr
0b00: 69 62 29 3b 0a 09 72 65 74 62 75 66 5b 73 69 7a  ib);..retbuf[siz
0b10: 65 6f 66 28 72 65 74 62 75 66 29 20 2d 20 31 5d  eof(retbuf) - 1]
0b20: 20 3d 20 27 5c 30 27 3b 0a 0a 09 72 65 74 75 72   = '\0';...retur
0b30: 6e 28 72 65 74 62 75 66 29 3b 0a 7d 0a 0a 69 6e  n(retbuf);.}..in
0b40: 74 20 6d 61 69 6e 5f 70 6b 63 73 31 31 28 76 6f  t main_pkcs11(vo
0b50: 69 64 29 20 7b 0a 09 43 4b 5f 43 5f 49 4e 49 54  id) {..CK_C_INIT
0b60: 49 41 4c 49 5a 45 5f 41 52 47 53 20 69 6e 69 74  IALIZE_ARGS init
0b70: 61 72 67 73 3b 0a 09 43 4b 5f 49 4e 46 4f 20 63  args;..CK_INFO c
0b80: 6c 69 65 6e 74 69 6e 66 6f 3b 0a 09 43 4b 5f 55  lientinfo;..CK_U
0b90: 4c 4f 4e 47 20 6e 75 6d 53 6c 6f 74 73 2c 20 63  LONG numSlots, c
0ba0: 75 72 72 53 6c 6f 74 3b 0a 09 43 4b 5f 53 4c 4f  urrSlot;..CK_SLO
0bb0: 54 5f 49 44 5f 50 54 52 20 73 6c 6f 74 73 3b 0a  T_ID_PTR slots;.
0bc0: 09 43 4b 5f 53 4c 4f 54 5f 49 4e 46 4f 20 73 6c  .CK_SLOT_INFO sl
0bd0: 6f 74 49 6e 66 6f 3b 0a 09 43 4b 5f 54 4f 4b 45  otInfo;..CK_TOKE
0be0: 4e 5f 49 4e 46 4f 20 74 6f 6b 65 6e 49 6e 66 6f  N_INFO tokenInfo
0bf0: 3b 0a 09 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41  ;..CK_SESSION_HA
0c00: 4e 44 4c 45 20 68 53 65 73 73 69 6f 6e 3b 0a 09  NDLE hSession;..
0c10: 43 4b 5f 53 45 53 53 49 4f 4e 5f 49 4e 46 4f 20  CK_SESSION_INFO 
0c20: 73 65 73 73 69 6f 6e 49 6e 66 6f 3b 0a 09 43 4b  sessionInfo;..CK
0c30: 5f 4f 42 4a 45 43 54 5f 48 41 4e 44 4c 45 20 68  _OBJECT_HANDLE h
0c40: 4f 62 6a 65 63 74 2c 20 2a 70 72 69 76 61 74 65  Object, *private
0c50: 4b 65 79 4f 62 6a 65 63 74 73 5f 72 6f 6f 74 2c  KeyObjects_root,
0c60: 20 2a 70 72 69 76 61 74 65 4b 65 79 4f 62 6a 65   *privateKeyObje
0c70: 63 74 73 2c 20 2a 63 75 72 72 50 72 69 76 4b 65  cts, *currPrivKe
0c80: 79 3b 0a 09 43 4b 5f 55 4c 4f 4e 47 20 75 6c 4f  y;..CK_ULONG ulO
0c90: 62 6a 65 63 74 43 6f 75 6e 74 3b 0a 09 43 4b 5f  bjectCount;..CK_
0ca0: 41 54 54 52 49 42 55 54 45 20 74 65 6d 70 6c 61  ATTRIBUTE templa
0cb0: 74 65 5b 5d 20 3d 20 7b 0a 09 20 20 20 20 20 20  te[] = {..      
0cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0cd0: 20 20 20 20 20 7b 43 4b 41 5f 43 4c 41 53 53 2c       {CKA_CLASS,
0ce0: 20 4e 55 4c 4c 2c 20 30 7d 2c 0a 09 20 20 20 20   NULL, 0},..    
0cf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0d00: 20 20 20 20 20 20 20 7b 43 4b 41 5f 54 4f 4b 45         {CKA_TOKE
0d10: 4e 2c 20 4e 55 4c 4c 2c 20 30 7d 2c 0a 09 20 20  N, NULL, 0},..  
0d20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0d30: 20 20 20 20 20 20 20 20 20 7b 43 4b 41 5f 4c 41           {CKA_LA
0d40: 42 45 4c 2c 20 4e 55 4c 4c 2c 20 30 7d 2c 0a 09  BEL, NULL, 0},..
0d50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0d60: 20 20 20 20 20 20 20 20 20 20 20 7b 43 4b 41 5f             {CKA_
0d70: 50 52 49 56 41 54 45 2c 20 4e 55 4c 4c 2c 20 30  PRIVATE, NULL, 0
0d80: 7d 2c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20  },..            
0d90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b                 {
0da0: 43 4b 41 5f 49 44 2c 20 4e 55 4c 4c 2c 20 30 7d  CKA_ID, NULL, 0}
0db0: 2c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 20  ,..             
0dc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 43                {C
0dd0: 4b 41 5f 53 45 52 49 41 4c 5f 4e 55 4d 42 45 52  KA_SERIAL_NUMBER
0de0: 2c 20 4e 55 4c 4c 2c 20 30 7d 2c 0a 09 20 20 20  , NULL, 0},..   
0df0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0e00: 20 20 20 20 20 20 20 20 7b 43 4b 41 5f 53 55 42          {CKA_SUB
0e10: 4a 45 43 54 2c 20 4e 55 4c 4c 2c 20 30 7d 2c 0a  JECT, NULL, 0},.
0e20: 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0e30: 20 20 20 20 20 20 20 20 20 20 20 20 7b 43 4b 41              {CKA
0e40: 5f 49 53 53 55 45 52 2c 20 4e 55 4c 4c 2c 20 30  _ISSUER, NULL, 0
0e50: 7d 2c 0a 09 20 20 20 20 20 20 20 20 20 20 20 20  },..            
0e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b                 {
0e70: 43 4b 41 5f 50 52 49 56 41 54 45 2c 20 4e 55 4c  CKA_PRIVATE, NUL
0e80: 4c 2c 20 30 7d 2c 0a 09 20 20 20 20 20 20 20 20  L, 0},..        
0e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ea0: 20 20 20 7b 43 4b 41 5f 43 45 52 54 49 46 49 43     {CKA_CERTIFIC
0eb0: 41 54 45 5f 54 59 50 45 2c 20 4e 55 4c 4c 2c 20  ATE_TYPE, NULL, 
0ec0: 30 7d 2c 0a 09 20 20 20 20 20 20 20 20 20 20 20  0},..           
0ed0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ee0: 7b 43 4b 41 5f 4b 45 59 5f 54 59 50 45 2c 20 4e  {CKA_KEY_TYPE, N
0ef0: 55 4c 4c 2c 20 30 7d 2c 0a 09 20 20 20 20 20 20  ULL, 0},..      
0f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0f10: 20 20 20 20 20 7b 43 4b 41 5f 53 49 47 4e 2c 20       {CKA_SIGN, 
0f20: 4e 55 4c 4c 2c 20 30 7d 2c 0a 09 20 20 20 20 20  NULL, 0},..     
0f30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0f40: 20 20 20 20 20 20 7b 43 4b 41 5f 56 41 4c 55 45        {CKA_VALUE
0f50: 2c 20 4e 55 4c 4c 2c 20 30 7d 0a 09 20 20 20 20  , NULL, 0}..    
0f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0f70: 20 20 20 20 20 20 7d 2c 20 2a 63 75 72 72 5f 61        }, *curr_a
0f80: 74 74 72 3b 0a 09 43 4b 5f 55 4c 4f 4e 47 20 63  ttr;..CK_ULONG c
0f90: 75 72 72 5f 61 74 74 72 5f 69 64 78 3b 0a 09 43  urr_attr_idx;..C
0fa0: 4b 5f 55 4c 4f 4e 47 20 62 79 74 65 5f 69 64 78  K_ULONG byte_idx
0fb0: 3b 0a 09 43 4b 5f 55 54 46 38 43 48 41 52 20 75  ;..CK_UTF8CHAR u
0fc0: 73 65 72 5f 70 69 6e 5b 31 30 32 34 5d 2c 20 2a  ser_pin[1024], *
0fd0: 70 75 63 56 61 6c 75 65 3b 0a 09 43 4b 5f 4f 42  pucValue;..CK_OB
0fe0: 4a 45 43 54 5f 43 4c 41 53 53 20 6f 62 6a 65 63  JECT_CLASS objec
0ff0: 74 43 6c 61 73 73 3b 0a 09 43 4b 5f 42 59 54 45  tClass;..CK_BYTE
1000: 20 73 69 67 6e 61 74 75 72 65 5b 31 30 32 34 5d   signature[1024]
1010: 2c 20 65 6e 63 72 79 70 74 65 64 5f 62 75 66 5b  , encrypted_buf[
1020: 31 36 33 38 34 5d 2c 20 64 65 63 72 79 70 74 65  16384], decrypte
1030: 64 5f 62 75 66 5b 31 36 33 38 34 5d 3b 0a 09 43  d_buf[16384];..C
1040: 4b 5f 55 4c 4f 4e 47 20 73 69 67 6e 61 74 75 72  K_ULONG signatur
1050: 65 5f 6c 65 6e 2c 20 65 6e 63 72 79 70 74 65 64  e_len, encrypted
1060: 5f 62 75 66 6c 65 6e 2c 20 64 65 63 72 79 70 74  _buflen, decrypt
1070: 65 64 5f 62 75 66 6c 65 6e 3b 0a 09 43 4b 5f 4d  ed_buflen;..CK_M
1080: 45 43 48 41 4e 49 53 4d 20 6d 65 63 68 61 6e 69  ECHANISM mechani
1090: 73 6d 20 3d 20 7b 43 4b 4d 5f 52 53 41 5f 50 4b  sm = {CKM_RSA_PK
10a0: 43 53 2c 20 4e 55 4c 4c 2c 20 30 7d 3b 0a 09 43  CS, NULL, 0};..C
10b0: 4b 5f 52 56 20 63 68 6b 5f 72 76 3b 0a 09 63 68  K_RV chk_rv;..ch
10c0: 61 72 20 2a 66 67 65 74 73 5f 72 65 74 3b 0a 09  ar *fgets_ret;..
10d0: 69 6e 74 20 69 3b 0a 0a 09 70 72 69 76 61 74 65  int i;...private
10e0: 4b 65 79 4f 62 6a 65 63 74 73 20 3d 20 6d 61 6c  KeyObjects = mal
10f0: 6c 6f 63 28 73 69 7a 65 6f 66 28 2a 70 72 69 76  loc(sizeof(*priv
1100: 61 74 65 4b 65 79 4f 62 6a 65 63 74 73 29 20 2a  ateKeyObjects) *
1110: 20 31 30 32 34 29 3b 0a 09 70 72 69 76 61 74 65   1024);..private
1120: 4b 65 79 4f 62 6a 65 63 74 73 5f 72 6f 6f 74 20  KeyObjects_root 
1130: 3d 20 70 72 69 76 61 74 65 4b 65 79 4f 62 6a 65  = privateKeyObje
1140: 63 74 73 3b 0a 09 66 6f 72 20 28 69 20 3d 20 30  cts;..for (i = 0
1150: 3b 20 69 20 3c 20 31 30 32 34 3b 20 69 2b 2b 29  ; i < 1024; i++)
1160: 20 7b 0a 09 09 70 72 69 76 61 74 65 4b 65 79 4f   {...privateKeyO
1170: 62 6a 65 63 74 73 5b 69 5d 20 3d 20 43 4b 5f 49  bjects[i] = CK_I
1180: 4e 56 41 4c 49 44 5f 48 41 4e 44 4c 45 3b 0a 09  NVALID_HANDLE;..
1190: 7d 0a 0a 09 69 6e 69 74 61 72 67 73 2e 43 72 65  }...initargs.Cre
11a0: 61 74 65 4d 75 74 65 78 20 3d 20 4e 55 4c 4c 3b  ateMutex = NULL;
11b0: 0a 09 69 6e 69 74 61 72 67 73 2e 44 65 73 74 72  ..initargs.Destr
11c0: 6f 79 4d 75 74 65 78 20 3d 20 4e 55 4c 4c 3b 0a  oyMutex = NULL;.
11d0: 09 69 6e 69 74 61 72 67 73 2e 4c 6f 63 6b 4d 75  .initargs.LockMu
11e0: 74 65 78 20 3d 20 4e 55 4c 4c 3b 0a 09 69 6e 69  tex = NULL;..ini
11f0: 74 61 72 67 73 2e 55 6e 6c 6f 63 6b 4d 75 74 65  targs.UnlockMute
1200: 78 20 3d 20 4e 55 4c 4c 3b 0a 09 69 6e 69 74 61  x = NULL;..inita
1210: 72 67 73 2e 66 6c 61 67 73 20 3d 20 43 4b 46 5f  rgs.flags = CKF_
1220: 4f 53 5f 4c 4f 43 4b 49 4e 47 5f 4f 4b 3b 0a 09  OS_LOCKING_OK;..
1230: 69 6e 69 74 61 72 67 73 2e 70 52 65 73 65 72 76  initargs.pReserv
1240: 65 64 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 63 68 6b  ed = NULL;...chk
1250: 5f 72 76 20 3d 20 43 5f 49 6e 69 74 69 61 6c 69  _rv = C_Initiali
1260: 7a 65 28 26 69 6e 69 74 61 72 67 73 29 3b 0a 09  ze(&initargs);..
1270: 69 66 20 28 63 68 6b 5f 72 76 20 21 3d 20 43 4b  if (chk_rv != CK
1280: 52 5f 4f 4b 29 20 7b 0a 09 09 69 6e 69 74 61 72  R_OK) {...initar
1290: 67 73 2e 43 72 65 61 74 65 4d 75 74 65 78 20 3d  gs.CreateMutex =
12a0: 20 4e 55 4c 4c 3b 0a 09 09 69 6e 69 74 61 72 67   NULL;...initarg
12b0: 73 2e 44 65 73 74 72 6f 79 4d 75 74 65 78 20 3d  s.DestroyMutex =
12c0: 20 4e 55 4c 4c 3b 0a 09 09 69 6e 69 74 61 72 67   NULL;...initarg
12d0: 73 2e 4c 6f 63 6b 4d 75 74 65 78 20 3d 20 4e 55  s.LockMutex = NU
12e0: 4c 4c 3b 0a 09 09 69 6e 69 74 61 72 67 73 2e 55  LL;...initargs.U
12f0: 6e 6c 6f 63 6b 4d 75 74 65 78 20 3d 20 4e 55 4c  nlockMutex = NUL
1300: 4c 3b 0a 09 09 69 6e 69 74 61 72 67 73 2e 66 6c  L;...initargs.fl
1310: 61 67 73 20 3d 20 30 3b 0a 09 09 69 6e 69 74 61  ags = 0;...inita
1320: 72 67 73 2e 70 52 65 73 65 72 76 65 64 20 3d 20  rgs.pReserved = 
1330: 4e 55 4c 4c 3b 0a 0a 09 09 63 68 6b 5f 72 76 20  NULL;....chk_rv 
1340: 3d 20 43 5f 49 6e 69 74 69 61 6c 69 7a 65 28 26  = C_Initialize(&
1350: 69 6e 69 74 61 72 67 73 29 3b 0a 09 09 69 66 20  initargs);...if 
1360: 28 63 68 6b 5f 72 76 20 21 3d 20 43 4b 52 5f 4f  (chk_rv != CKR_O
1370: 4b 29 20 7b 0a 09 09 09 70 72 69 6e 74 66 28 22  K) {....printf("
1380: 43 5f 49 6e 69 74 69 61 6c 69 7a 65 28 29 20 66  C_Initialize() f
1390: 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 09 72 65  ailed.");.....re
13a0: 74 75 72 6e 28 31 29 3b 0a 09 09 7d 0a 09 7d 0a  turn(1);...}..}.
13b0: 0a 09 63 68 6b 5f 72 76 20 3d 20 43 5f 47 65 74  ..chk_rv = C_Get
13c0: 49 6e 66 6f 28 26 63 6c 69 65 6e 74 69 6e 66 6f  Info(&clientinfo
13d0: 29 3b 0a 09 69 66 20 28 63 68 6b 5f 72 76 20 21  );..if (chk_rv !
13e0: 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a 09 09 72 65  = CKR_OK) {...re
13f0: 74 75 72 6e 28 31 29 3b 0a 09 7d 0a 0a 09 70 72  turn(1);..}...pr
1400: 69 6e 74 66 28 22 50 4b 43 53 23 31 31 20 43 6c  intf("PKCS#11 Cl
1410: 69 65 6e 74 20 56 65 72 73 69 6f 6e 3a 20 25 69  ient Version: %i
1420: 2e 25 69 2c 20 4c 69 62 72 61 72 79 20 56 65 72  .%i, Library Ver
1430: 73 69 6f 6e 20 25 69 2e 25 69 5c 6e 22 2c 20 63  sion %i.%i\n", c
1440: 6c 69 65 6e 74 69 6e 66 6f 2e 63 72 79 70 74 6f  lientinfo.crypto
1450: 6b 69 56 65 72 73 69 6f 6e 2e 6d 61 6a 6f 72 2c  kiVersion.major,
1460: 20 63 6c 69 65 6e 74 69 6e 66 6f 2e 63 72 79 70   clientinfo.cryp
1470: 74 6f 6b 69 56 65 72 73 69 6f 6e 2e 6d 69 6e 6f  tokiVersion.mino
1480: 72 2c 20 63 6c 69 65 6e 74 69 6e 66 6f 2e 6c 69  r, clientinfo.li
1490: 62 72 61 72 79 56 65 72 73 69 6f 6e 2e 6d 61 6a  braryVersion.maj
14a0: 6f 72 2c 20 63 6c 69 65 6e 74 69 6e 66 6f 2e 6c  or, clientinfo.l
14b0: 69 62 72 61 72 79 56 65 72 73 69 6f 6e 2e 6d 69  ibraryVersion.mi
14c0: 6e 6f 72 29 3b 0a 09 70 72 69 6e 74 66 28 22 50  nor);..printf("P
14d0: 4b 43 53 23 31 31 20 4d 61 6e 75 66 49 44 3a 20  KCS#11 ManufID: 
14e0: 25 2e 2a 73 2c 20 4c 69 62 72 61 72 79 44 65 73  %.*s, LibraryDes
14f0: 63 3a 20 25 2e 2a 73 5c 6e 22 2c 20 33 32 2c 20  c: %.*s\n", 32, 
1500: 63 6c 69 65 6e 74 69 6e 66 6f 2e 6d 61 6e 75 66  clientinfo.manuf
1510: 61 63 74 75 72 65 72 49 44 2c 20 33 32 2c 20 63  acturerID, 32, c
1520: 6c 69 65 6e 74 69 6e 66 6f 2e 6c 69 62 72 61 72  lientinfo.librar
1530: 79 44 65 73 63 72 69 70 74 69 6f 6e 29 3b 0a 0a  yDescription);..
1540: 09 63 68 6b 5f 72 76 20 3d 20 43 5f 47 65 74 53  .chk_rv = C_GetS
1550: 6c 6f 74 4c 69 73 74 28 46 41 4c 53 45 2c 20 4e  lotList(FALSE, N
1560: 55 4c 4c 2c 20 26 6e 75 6d 53 6c 6f 74 73 29 3b  ULL, &numSlots);
1570: 0a 09 69 66 20 28 63 68 6b 5f 72 76 20 21 3d 20  ..if (chk_rv != 
1580: 43 4b 52 5f 4f 4b 29 20 7b 0a 09 09 72 65 74 75  CKR_OK) {...retu
1590: 72 6e 28 31 29 3b 0a 09 7d 0a 0a 09 70 72 69 6e  rn(1);..}...prin
15a0: 74 66 28 22 4e 75 6d 62 65 72 20 6f 66 20 53 6c  tf("Number of Sl
15b0: 6f 74 73 3a 20 25 6c 75 5c 6e 22 2c 20 6e 75 6d  ots: %lu\n", num
15c0: 53 6c 6f 74 73 29 3b 0a 0a 09 73 6c 6f 74 73 20  Slots);...slots 
15d0: 3d 20 6d 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28  = malloc(sizeof(
15e0: 2a 73 6c 6f 74 73 29 20 2a 20 6e 75 6d 53 6c 6f  *slots) * numSlo
15f0: 74 73 29 3b 0a 0a 09 63 68 6b 5f 72 76 20 3d 20  ts);...chk_rv = 
1600: 43 5f 47 65 74 53 6c 6f 74 4c 69 73 74 28 46 41  C_GetSlotList(FA
1610: 4c 53 45 2c 20 73 6c 6f 74 73 2c 20 26 6e 75 6d  LSE, slots, &num
1620: 53 6c 6f 74 73 29 3b 0a 09 69 66 20 28 63 68 6b  Slots);..if (chk
1630: 5f 72 76 20 21 3d 20 43 4b 52 5f 4f 4b 29 20 7b  _rv != CKR_OK) {
1640: 0a 09 09 72 65 74 75 72 6e 28 31 29 3b 0a 09 7d  ...return(1);..}
1650: 0a 0a 09 66 6f 72 20 28 63 75 72 72 53 6c 6f 74  ...for (currSlot
1660: 20 3d 20 30 3b 20 63 75 72 72 53 6c 6f 74 20 3c   = 0; currSlot <
1670: 20 6e 75 6d 53 6c 6f 74 73 3b 20 63 75 72 72 53   numSlots; currS
1680: 6c 6f 74 2b 2b 29 20 7b 0a 09 09 70 72 69 6e 74  lot++) {...print
1690: 66 28 22 20 20 53 6c 6f 74 20 25 6c 75 3a 5c 6e  f("  Slot %lu:\n
16a0: 22 2c 20 63 75 72 72 53 6c 6f 74 29 3b 0a 0a 09  ", currSlot);...
16b0: 09 63 68 6b 5f 72 76 20 3d 20 43 5f 47 65 74 53  .chk_rv = C_GetS
16c0: 6c 6f 74 49 6e 66 6f 28 73 6c 6f 74 73 5b 63 75  lotInfo(slots[cu
16d0: 72 72 53 6c 6f 74 5d 2c 20 26 73 6c 6f 74 49 6e  rrSlot], &slotIn
16e0: 66 6f 29 3b 0a 09 09 69 66 20 28 63 68 6b 5f 72  fo);...if (chk_r
16f0: 76 20 21 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a 09  v != CKR_OK) {..
1700: 09 09 72 65 74 75 72 6e 28 31 29 3b 0a 09 09 7d  ..return(1);...}
1710: 0a 0a 09 09 70 72 69 6e 74 66 28 22 20 20 20 20  ....printf("    
1720: 44 65 73 63 20 20 20 3a 20 25 2e 2a 73 5c 6e 22  Desc   : %.*s\n"
1730: 2c 20 33 32 2c 20 73 6c 6f 74 49 6e 66 6f 2e 73  , 32, slotInfo.s
1740: 6c 6f 74 44 65 73 63 72 69 70 74 69 6f 6e 29 3b  lotDescription);
1750: 0a 09 09 70 72 69 6e 74 66 28 22 20 20 20 20 4d  ...printf("    M
1760: 61 6e 75 66 49 44 3a 20 25 2e 2a 73 5c 6e 22 2c  anufID: %.*s\n",
1770: 20 33 32 2c 20 73 6c 6f 74 49 6e 66 6f 2e 6d 61   32, slotInfo.ma
1780: 6e 75 66 61 63 74 75 72 65 72 49 44 29 3b 0a 09  nufacturerID);..
1790: 09 70 72 69 6e 74 66 28 22 20 20 20 20 48 57 56  .printf("    HWV
17a0: 65 72 73 20 3a 20 25 69 2e 25 69 5c 6e 22 2c 20  ers : %i.%i\n", 
17b0: 73 6c 6f 74 49 6e 66 6f 2e 68 61 72 64 77 61 72  slotInfo.hardwar
17c0: 65 56 65 72 73 69 6f 6e 2e 6d 61 6a 6f 72 2c 20  eVersion.major, 
17d0: 73 6c 6f 74 49 6e 66 6f 2e 68 61 72 64 77 61 72  slotInfo.hardwar
17e0: 65 56 65 72 73 69 6f 6e 2e 6d 69 6e 6f 72 29 3b  eVersion.minor);
17f0: 0a 09 09 70 72 69 6e 74 66 28 22 20 20 20 20 46  ...printf("    F
1800: 57 56 65 72 73 20 3a 20 25 69 2e 25 69 5c 6e 22  WVers : %i.%i\n"
1810: 2c 20 73 6c 6f 74 49 6e 66 6f 2e 66 69 72 6d 77  , slotInfo.firmw
1820: 61 72 65 56 65 72 73 69 6f 6e 2e 6d 61 6a 6f 72  areVersion.major
1830: 2c 20 73 6c 6f 74 49 6e 66 6f 2e 66 69 72 6d 77  , slotInfo.firmw
1840: 61 72 65 56 65 72 73 69 6f 6e 2e 6d 69 6e 6f 72  areVersion.minor
1850: 29 3b 0a 09 09 70 72 69 6e 74 66 28 22 20 20 20  );...printf("   
1860: 20 46 6c 61 67 73 20 20 3a 20 22 29 3b 0a 09 09   Flags  : ");...
1870: 69 66 20 28 28 73 6c 6f 74 49 6e 66 6f 2e 66 6c  if ((slotInfo.fl
1880: 61 67 73 20 26 20 43 4b 46 5f 54 4f 4b 45 4e 5f  ags & CKF_TOKEN_
1890: 50 52 45 53 45 4e 54 29 20 3d 3d 20 43 4b 46 5f  PRESENT) == CKF_
18a0: 54 4f 4b 45 4e 5f 50 52 45 53 45 4e 54 29 20 7b  TOKEN_PRESENT) {
18b0: 0a 09 09 09 70 72 69 6e 74 66 28 22 43 4b 46 5f  ....printf("CKF_
18c0: 54 4f 4b 45 4e 5f 50 52 45 53 45 4e 54 20 22 29  TOKEN_PRESENT ")
18d0: 3b 0a 09 09 7d 0a 09 09 69 66 20 28 28 73 6c 6f  ;...}...if ((slo
18e0: 74 49 6e 66 6f 2e 66 6c 61 67 73 20 26 20 43 4b  tInfo.flags & CK
18f0: 46 5f 52 45 4d 4f 56 41 42 4c 45 5f 44 45 56 49  F_REMOVABLE_DEVI
1900: 43 45 29 20 3d 3d 20 43 4b 46 5f 52 45 4d 4f 56  CE) == CKF_REMOV
1910: 41 42 4c 45 5f 44 45 56 49 43 45 29 20 7b 0a 09  ABLE_DEVICE) {..
1920: 09 09 70 72 69 6e 74 66 28 22 43 4b 46 5f 52 45  ..printf("CKF_RE
1930: 4d 4f 56 41 42 4c 45 5f 44 45 56 49 43 45 20 22  MOVABLE_DEVICE "
1940: 29 3b 0a 09 09 7d 0a 09 09 69 66 20 28 28 73 6c  );...}...if ((sl
1950: 6f 74 49 6e 66 6f 2e 66 6c 61 67 73 20 26 20 43  otInfo.flags & C
1960: 4b 46 5f 48 57 5f 53 4c 4f 54 29 20 3d 3d 20 43  KF_HW_SLOT) == C
1970: 4b 46 5f 48 57 5f 53 4c 4f 54 29 20 7b 0a 09 09  KF_HW_SLOT) {...
1980: 09 70 72 69 6e 74 66 28 22 43 4b 46 5f 48 57 5f  .printf("CKF_HW_
1990: 53 4c 4f 54 20 22 29 3b 0a 09 09 7d 0a 09 09 70  SLOT ");...}...p
19a0: 72 69 6e 74 66 28 22 5c 6e 22 29 3b 0a 0a 09 09  rintf("\n");....
19b0: 69 66 20 28 28 73 6c 6f 74 49 6e 66 6f 2e 66 6c  if ((slotInfo.fl
19c0: 61 67 73 20 26 20 43 4b 46 5f 54 4f 4b 45 4e 5f  ags & CKF_TOKEN_
19d0: 50 52 45 53 45 4e 54 29 20 3d 3d 20 43 4b 46 5f  PRESENT) == CKF_
19e0: 54 4f 4b 45 4e 5f 50 52 45 53 45 4e 54 29 20 7b  TOKEN_PRESENT) {
19f0: 0a 09 09 09 70 72 69 6e 74 66 28 22 20 20 20 20  ....printf("    
1a00: 54 6f 6b 65 6e 3a 5c 6e 22 29 3b 0a 0a 09 09 09  Token:\n");.....
1a10: 63 68 6b 5f 72 76 20 3d 20 43 5f 47 65 74 54 6f  chk_rv = C_GetTo
1a20: 6b 65 6e 49 6e 66 6f 28 73 6c 6f 74 73 5b 63 75  kenInfo(slots[cu
1a30: 72 72 53 6c 6f 74 5d 2c 20 26 74 6f 6b 65 6e 49  rrSlot], &tokenI
1a40: 6e 66 6f 29 3b 0a 09 09 09 69 66 20 28 63 68 6b  nfo);....if (chk
1a50: 5f 72 76 20 21 3d 20 43 4b 52 5f 4f 4b 29 20 7b  _rv != CKR_OK) {
1a60: 0a 09 09 09 09 72 65 74 75 72 6e 28 31 29 3b 0a  .....return(1);.
1a70: 09 09 09 7d 0a 0a 09 09 09 70 72 69 6e 74 66 28  ...}.....printf(
1a80: 22 20 20 20 20 20 20 4c 61 62 65 6c 20 20 3a 20  "      Label  : 
1a90: 25 2e 2a 73 5c 6e 22 2c 20 33 32 2c 20 74 6f 6b  %.*s\n", 32, tok
1aa0: 65 6e 49 6e 66 6f 2e 6c 61 62 65 6c 29 3b 0a 09  enInfo.label);..
1ab0: 09 09 70 72 69 6e 74 66 28 22 20 20 20 20 20 20  ..printf("      
1ac0: 4d 61 6e 75 66 49 44 3a 20 25 2e 2a 73 5c 6e 22  ManufID: %.*s\n"
1ad0: 2c 20 33 32 2c 20 74 6f 6b 65 6e 49 6e 66 6f 2e  , 32, tokenInfo.
1ae0: 6d 61 6e 75 66 61 63 74 75 72 65 72 49 44 29 3b  manufacturerID);
1af0: 0a 09 09 09 70 72 69 6e 74 66 28 22 20 20 20 20  ....printf("    
1b00: 20 20 4d 6f 64 65 6c 20 20 3a 20 25 2e 2a 73 5c    Model  : %.*s\
1b10: 6e 22 2c 20 31 36 2c 20 74 6f 6b 65 6e 49 6e 66  n", 16, tokenInf
1b20: 6f 2e 6d 6f 64 65 6c 29 3b 0a 09 09 09 70 72 69  o.model);....pri
1b30: 6e 74 66 28 22 20 20 20 20 20 20 53 65 72 4e 6f  ntf("      SerNo
1b40: 20 20 3a 20 25 2e 2a 73 5c 6e 22 2c 20 31 36 2c    : %.*s\n", 16,
1b50: 20 74 6f 6b 65 6e 49 6e 66 6f 2e 73 65 72 69 61   tokenInfo.seria
1b60: 6c 4e 75 6d 62 65 72 29 3b 0a 09 09 09 70 72 69  lNumber);....pri
1b70: 6e 74 66 28 22 20 20 20 20 20 20 48 57 56 65 72  ntf("      HWVer
1b80: 73 20 3a 20 25 69 2e 25 69 5c 6e 22 2c 20 74 6f  s : %i.%i\n", to
1b90: 6b 65 6e 49 6e 66 6f 2e 68 61 72 64 77 61 72 65  kenInfo.hardware
1ba0: 56 65 72 73 69 6f 6e 2e 6d 61 6a 6f 72 2c 20 74  Version.major, t
1bb0: 6f 6b 65 6e 49 6e 66 6f 2e 68 61 72 64 77 61 72  okenInfo.hardwar
1bc0: 65 56 65 72 73 69 6f 6e 2e 6d 69 6e 6f 72 29 3b  eVersion.minor);
1bd0: 0a 09 09 09 70 72 69 6e 74 66 28 22 20 20 20 20  ....printf("    
1be0: 20 20 46 57 56 65 72 73 20 3a 20 25 69 2e 25 69    FWVers : %i.%i
1bf0: 5c 6e 22 2c 20 74 6f 6b 65 6e 49 6e 66 6f 2e 66  \n", tokenInfo.f
1c00: 69 72 6d 77 61 72 65 56 65 72 73 69 6f 6e 2e 6d  irmwareVersion.m
1c10: 61 6a 6f 72 2c 20 74 6f 6b 65 6e 49 6e 66 6f 2e  ajor, tokenInfo.
1c20: 66 69 72 6d 77 61 72 65 56 65 72 73 69 6f 6e 2e  firmwareVersion.
1c30: 6d 69 6e 6f 72 29 3b 0a 09 09 09 70 72 69 6e 74  minor);....print
1c40: 66 28 22 20 20 20 20 20 20 46 6c 61 67 73 20 20  f("      Flags  
1c50: 3a 20 22 29 3b 0a 09 09 09 69 66 20 28 28 74 6f  : ");....if ((to
1c60: 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67 73 20 26 20  kenInfo.flags & 
1c70: 43 4b 46 5f 52 4e 47 29 20 3d 3d 20 43 4b 46 5f  CKF_RNG) == CKF_
1c80: 52 4e 47 29 20 7b 0a 09 09 09 09 70 72 69 6e 74  RNG) {.....print
1c90: 66 28 22 43 4b 46 5f 52 4e 47 20 22 29 3b 0a 09  f("CKF_RNG ");..
1ca0: 09 09 7d 0a 09 09 09 69 66 20 28 28 74 6f 6b 65  ..}....if ((toke
1cb0: 6e 49 6e 66 6f 2e 66 6c 61 67 73 20 26 20 43 4b  nInfo.flags & CK
1cc0: 46 5f 57 52 49 54 45 5f 50 52 4f 54 45 43 54 45  F_WRITE_PROTECTE
1cd0: 44 29 20 3d 3d 20 43 4b 46 5f 57 52 49 54 45 5f  D) == CKF_WRITE_
1ce0: 50 52 4f 54 45 43 54 45 44 29 20 7b 0a 09 09 09  PROTECTED) {....
1cf0: 09 70 72 69 6e 74 66 28 22 43 4b 46 5f 57 52 49  .printf("CKF_WRI
1d00: 54 45 5f 50 52 4f 54 45 43 54 45 44 20 22 29 3b  TE_PROTECTED ");
1d10: 0a 09 09 09 7d 0a 09 09 09 69 66 20 28 28 74 6f  ....}....if ((to
1d20: 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67 73 20 26 20  kenInfo.flags & 
1d30: 43 4b 46 5f 4c 4f 47 49 4e 5f 52 45 51 55 49 52  CKF_LOGIN_REQUIR
1d40: 45 44 29 20 3d 3d 20 43 4b 46 5f 4c 4f 47 49 4e  ED) == CKF_LOGIN
1d50: 5f 52 45 51 55 49 52 45 44 29 20 7b 0a 09 09 09  _REQUIRED) {....
1d60: 09 70 72 69 6e 74 66 28 22 43 4b 46 5f 4c 4f 47  .printf("CKF_LOG
1d70: 49 4e 5f 52 45 51 55 49 52 45 44 20 22 29 3b 0a  IN_REQUIRED ");.
1d80: 09 09 09 7d 0a 09 09 09 69 66 20 28 28 74 6f 6b  ...}....if ((tok
1d90: 65 6e 49 6e 66 6f 2e 66 6c 61 67 73 20 26 20 43  enInfo.flags & C
1da0: 4b 46 5f 55 53 45 52 5f 50 49 4e 5f 49 4e 49 54  KF_USER_PIN_INIT
1db0: 49 41 4c 49 5a 45 44 29 20 3d 3d 20 43 4b 46 5f  IALIZED) == CKF_
1dc0: 55 53 45 52 5f 50 49 4e 5f 49 4e 49 54 49 41 4c  USER_PIN_INITIAL
1dd0: 49 5a 45 44 29 20 7b 0a 09 09 09 09 70 72 69 6e  IZED) {.....prin
1de0: 74 66 28 22 43 4b 46 5f 55 53 45 52 5f 50 49 4e  tf("CKF_USER_PIN
1df0: 5f 49 4e 49 54 49 41 4c 49 5a 45 44 20 22 29 3b  _INITIALIZED ");
1e00: 0a 09 09 09 7d 0a 09 09 09 69 66 20 28 28 74 6f  ....}....if ((to
1e10: 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67 73 20 26 20  kenInfo.flags & 
1e20: 43 4b 46 5f 52 45 53 54 4f 52 45 5f 4b 45 59 5f  CKF_RESTORE_KEY_
1e30: 4e 4f 54 5f 4e 45 45 44 45 44 29 20 3d 3d 20 43  NOT_NEEDED) == C
1e40: 4b 46 5f 52 45 53 54 4f 52 45 5f 4b 45 59 5f 4e  KF_RESTORE_KEY_N
1e50: 4f 54 5f 4e 45 45 44 45 44 29 20 7b 0a 09 09 09  OT_NEEDED) {....
1e60: 09 70 72 69 6e 74 66 28 22 43 4b 46 5f 52 45 53  .printf("CKF_RES
1e70: 54 4f 52 45 5f 4b 45 59 5f 4e 4f 54 5f 4e 45 45  TORE_KEY_NOT_NEE
1e80: 44 45 44 20 22 29 3b 0a 09 09 09 7d 0a 09 09 09  DED ");....}....
1e90: 69 66 20 28 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66  if ((tokenInfo.f
1ea0: 6c 61 67 73 20 26 20 43 4b 46 5f 43 4c 4f 43 4b  lags & CKF_CLOCK
1eb0: 5f 4f 4e 5f 54 4f 4b 45 4e 29 20 3d 3d 20 43 4b  _ON_TOKEN) == CK
1ec0: 46 5f 43 4c 4f 43 4b 5f 4f 4e 5f 54 4f 4b 45 4e  F_CLOCK_ON_TOKEN
1ed0: 29 20 7b 0a 09 09 09 09 70 72 69 6e 74 66 28 22  ) {.....printf("
1ee0: 43 4b 46 5f 43 4c 4f 43 4b 5f 4f 4e 5f 54 4f 4b  CKF_CLOCK_ON_TOK
1ef0: 45 4e 20 22 29 3b 0a 09 09 09 7d 0a 09 09 09 69  EN ");....}....i
1f00: 66 20 28 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c  f ((tokenInfo.fl
1f10: 61 67 73 20 26 20 43 4b 46 5f 50 52 4f 54 45 43  ags & CKF_PROTEC
1f20: 54 45 44 5f 41 55 54 48 45 4e 54 49 43 41 54 49  TED_AUTHENTICATI
1f30: 4f 4e 5f 50 41 54 48 29 20 3d 3d 20 43 4b 46 5f  ON_PATH) == CKF_
1f40: 50 52 4f 54 45 43 54 45 44 5f 41 55 54 48 45 4e  PROTECTED_AUTHEN
1f50: 54 49 43 41 54 49 4f 4e 5f 50 41 54 48 29 20 7b  TICATION_PATH) {
1f60: 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43 4b 46  .....printf("CKF
1f70: 5f 50 52 4f 54 45 43 54 45 44 5f 41 55 54 48 45  _PROTECTED_AUTHE
1f80: 4e 54 49 43 41 54 49 4f 4e 5f 50 41 54 48 20 22  NTICATION_PATH "
1f90: 29 3b 0a 09 09 09 7d 0a 09 09 09 69 66 20 28 28  );....}....if ((
1fa0: 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67 73 20  tokenInfo.flags 
1fb0: 26 20 43 4b 46 5f 44 55 41 4c 5f 43 52 59 50 54  & CKF_DUAL_CRYPT
1fc0: 4f 5f 4f 50 45 52 41 54 49 4f 4e 53 29 20 3d 3d  O_OPERATIONS) ==
1fd0: 20 43 4b 46 5f 44 55 41 4c 5f 43 52 59 50 54 4f   CKF_DUAL_CRYPTO
1fe0: 5f 4f 50 45 52 41 54 49 4f 4e 53 29 20 7b 0a 09  _OPERATIONS) {..
1ff0: 09 09 09 70 72 69 6e 74 66 28 22 43 4b 46 5f 44  ...printf("CKF_D
2000: 55 41 4c 5f 43 52 59 50 54 4f 5f 4f 50 45 52 41  UAL_CRYPTO_OPERA
2010: 54 49 4f 4e 53 20 22 29 3b 0a 09 09 09 7d 0a 09  TIONS ");....}..
2020: 09 09 69 66 20 28 28 74 6f 6b 65 6e 49 6e 66 6f  ..if ((tokenInfo
2030: 2e 66 6c 61 67 73 20 26 20 43 4b 46 5f 54 4f 4b  .flags & CKF_TOK
2040: 45 4e 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 20  EN_INITIALIZED) 
2050: 3d 3d 20 43 4b 46 5f 54 4f 4b 45 4e 5f 49 4e 49  == CKF_TOKEN_INI
2060: 54 49 41 4c 49 5a 45 44 29 20 7b 0a 09 09 09 09  TIALIZED) {.....
2070: 70 72 69 6e 74 66 28 22 43 4b 46 5f 54 4f 4b 45  printf("CKF_TOKE
2080: 4e 5f 49 4e 49 54 49 41 4c 49 5a 45 44 20 22 29  N_INITIALIZED ")
2090: 3b 0a 09 09 09 7d 0a 09 09 09 69 66 20 28 28 74  ;....}....if ((t
20a0: 6f 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67 73 20 26  okenInfo.flags &
20b0: 20 43 4b 46 5f 53 45 43 4f 4e 44 41 52 59 5f 41   CKF_SECONDARY_A
20c0: 55 54 48 45 4e 54 49 43 41 54 49 4f 4e 29 20 3d  UTHENTICATION) =
20d0: 3d 20 43 4b 46 5f 53 45 43 4f 4e 44 41 52 59 5f  = CKF_SECONDARY_
20e0: 41 55 54 48 45 4e 54 49 43 41 54 49 4f 4e 29 20  AUTHENTICATION) 
20f0: 7b 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43 4b  {.....printf("CK
2100: 46 5f 53 45 43 4f 4e 44 41 52 59 5f 41 55 54 48  F_SECONDARY_AUTH
2110: 45 4e 54 49 43 41 54 49 4f 4e 20 22 29 3b 0a 09  ENTICATION ");..
2120: 09 09 7d 0a 09 09 09 69 66 20 28 28 74 6f 6b 65  ..}....if ((toke
2130: 6e 49 6e 66 6f 2e 66 6c 61 67 73 20 26 20 43 4b  nInfo.flags & CK
2140: 46 5f 55 53 45 52 5f 50 49 4e 5f 43 4f 55 4e 54  F_USER_PIN_COUNT
2150: 5f 4c 4f 57 29 20 3d 3d 20 43 4b 46 5f 55 53 45  _LOW) == CKF_USE
2160: 52 5f 50 49 4e 5f 43 4f 55 4e 54 5f 4c 4f 57 29  R_PIN_COUNT_LOW)
2170: 20 7b 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43   {.....printf("C
2180: 4b 46 5f 55 53 45 52 5f 50 49 4e 5f 43 4f 55 4e  KF_USER_PIN_COUN
2190: 54 5f 4c 4f 57 20 22 29 3b 0a 09 09 09 7d 0a 09  T_LOW ");....}..
21a0: 09 09 69 66 20 28 28 74 6f 6b 65 6e 49 6e 66 6f  ..if ((tokenInfo
21b0: 2e 66 6c 61 67 73 20 26 20 43 4b 46 5f 55 53 45  .flags & CKF_USE
21c0: 52 5f 50 49 4e 5f 46 49 4e 41 4c 5f 54 52 59 29  R_PIN_FINAL_TRY)
21d0: 20 3d 3d 20 43 4b 46 5f 55 53 45 52 5f 50 49 4e   == CKF_USER_PIN
21e0: 5f 46 49 4e 41 4c 5f 54 52 59 29 20 7b 0a 09 09  _FINAL_TRY) {...
21f0: 09 09 70 72 69 6e 74 66 28 22 43 4b 46 5f 55 53  ..printf("CKF_US
2200: 45 52 5f 50 49 4e 5f 46 49 4e 41 4c 5f 54 52 59  ER_PIN_FINAL_TRY
2210: 20 22 29 3b 0a 09 09 09 7d 0a 09 09 09 69 66 20   ");....}....if 
2220: 28 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67  ((tokenInfo.flag
2230: 73 20 26 20 43 4b 46 5f 55 53 45 52 5f 50 49 4e  s & CKF_USER_PIN
2240: 5f 4c 4f 43 4b 45 44 29 20 3d 3d 20 43 4b 46 5f  _LOCKED) == CKF_
2250: 55 53 45 52 5f 50 49 4e 5f 4c 4f 43 4b 45 44 29  USER_PIN_LOCKED)
2260: 20 7b 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43   {.....printf("C
2270: 4b 46 5f 55 53 45 52 5f 50 49 4e 5f 4c 4f 43 4b  KF_USER_PIN_LOCK
2280: 45 44 20 22 29 3b 0a 09 09 09 7d 0a 09 09 09 69  ED ");....}....i
2290: 66 20 28 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c  f ((tokenInfo.fl
22a0: 61 67 73 20 26 20 43 4b 46 5f 55 53 45 52 5f 50  ags & CKF_USER_P
22b0: 49 4e 5f 54 4f 5f 42 45 5f 43 48 41 4e 47 45 44  IN_TO_BE_CHANGED
22c0: 29 20 3d 3d 20 43 4b 46 5f 55 53 45 52 5f 50 49  ) == CKF_USER_PI
22d0: 4e 5f 54 4f 5f 42 45 5f 43 48 41 4e 47 45 44 29  N_TO_BE_CHANGED)
22e0: 20 7b 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43   {.....printf("C
22f0: 4b 46 5f 55 53 45 52 5f 50 49 4e 5f 54 4f 5f 42  KF_USER_PIN_TO_B
2300: 45 5f 43 48 41 4e 47 45 44 20 22 29 3b 0a 09 09  E_CHANGED ");...
2310: 09 7d 0a 09 09 09 69 66 20 28 28 74 6f 6b 65 6e  .}....if ((token
2320: 49 6e 66 6f 2e 66 6c 61 67 73 20 26 20 43 4b 46  Info.flags & CKF
2330: 5f 53 4f 5f 50 49 4e 5f 43 4f 55 4e 54 5f 4c 4f  _SO_PIN_COUNT_LO
2340: 57 29 20 3d 3d 20 43 4b 46 5f 53 4f 5f 50 49 4e  W) == CKF_SO_PIN
2350: 5f 43 4f 55 4e 54 5f 4c 4f 57 29 20 7b 0a 09 09  _COUNT_LOW) {...
2360: 09 09 70 72 69 6e 74 66 28 22 43 4b 46 5f 53 4f  ..printf("CKF_SO
2370: 5f 50 49 4e 5f 43 4f 55 4e 54 5f 4c 4f 57 20 22  _PIN_COUNT_LOW "
2380: 29 3b 0a 09 09 09 7d 0a 09 09 09 69 66 20 28 28  );....}....if ((
2390: 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67 73 20  tokenInfo.flags 
23a0: 26 20 43 4b 46 5f 53 4f 5f 50 49 4e 5f 46 49 4e  & CKF_SO_PIN_FIN
23b0: 41 4c 5f 54 52 59 29 20 3d 3d 20 43 4b 46 5f 53  AL_TRY) == CKF_S
23c0: 4f 5f 50 49 4e 5f 46 49 4e 41 4c 5f 54 52 59 29  O_PIN_FINAL_TRY)
23d0: 20 7b 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43   {.....printf("C
23e0: 4b 46 5f 53 4f 5f 50 49 4e 5f 46 49 4e 41 4c 5f  KF_SO_PIN_FINAL_
23f0: 54 52 59 20 22 29 3b 0a 09 09 09 7d 0a 09 09 09  TRY ");....}....
2400: 69 66 20 28 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66  if ((tokenInfo.f
2410: 6c 61 67 73 20 26 20 43 4b 46 5f 53 4f 5f 50 49  lags & CKF_SO_PI
2420: 4e 5f 4c 4f 43 4b 45 44 29 20 3d 3d 20 43 4b 46  N_LOCKED) == CKF
2430: 5f 53 4f 5f 50 49 4e 5f 4c 4f 43 4b 45 44 29 20  _SO_PIN_LOCKED) 
2440: 7b 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43 4b  {.....printf("CK
2450: 46 5f 53 4f 5f 50 49 4e 5f 4c 4f 43 4b 45 44 20  F_SO_PIN_LOCKED 
2460: 22 29 3b 0a 09 09 09 7d 0a 09 09 09 69 66 20 28  ");....}....if (
2470: 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67 73  (tokenInfo.flags
2480: 20 26 20 43 4b 46 5f 53 4f 5f 50 49 4e 5f 54 4f   & CKF_SO_PIN_TO
2490: 5f 42 45 5f 43 48 41 4e 47 45 44 29 20 3d 3d 20  _BE_CHANGED) == 
24a0: 43 4b 46 5f 53 4f 5f 50 49 4e 5f 54 4f 5f 42 45  CKF_SO_PIN_TO_BE
24b0: 5f 43 48 41 4e 47 45 44 29 20 7b 0a 09 09 09 09  _CHANGED) {.....
24c0: 70 72 69 6e 74 66 28 22 43 4b 46 5f 53 4f 5f 50  printf("CKF_SO_P
24d0: 49 4e 5f 54 4f 5f 42 45 5f 43 48 41 4e 47 45 44  IN_TO_BE_CHANGED
24e0: 20 22 29 3b 0a 09 09 09 7d 0a 09 09 09 70 72 69   ");....}....pri
24f0: 6e 74 66 28 22 5c 6e 22 29 3b 0a 09 09 7d 0a 09  ntf("\n");...}..
2500: 7d 0a 0a 09 63 68 6b 5f 72 76 20 3d 20 43 5f 4f  }...chk_rv = C_O
2510: 70 65 6e 53 65 73 73 69 6f 6e 28 73 6c 6f 74 73  penSession(slots
2520: 5b 30 5d 2c 20 43 4b 46 5f 53 45 52 49 41 4c 5f  [0], CKF_SERIAL_
2530: 53 45 53 53 49 4f 4e 2c 20 4e 55 4c 4c 2c 20 4e  SESSION, NULL, N
2540: 55 4c 4c 2c 20 26 68 53 65 73 73 69 6f 6e 29 3b  ULL, &hSession);
2550: 0a 09 69 66 20 28 63 68 6b 5f 72 76 20 3d 3d 20  ..if (chk_rv == 
2560: 43 4b 52 5f 4f 4b 29 20 7b 0a 09 09 69 66 20 28  CKR_OK) {...if (
2570: 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67 73  (tokenInfo.flags
2580: 20 26 20 43 4b 46 5f 4c 4f 47 49 4e 5f 52 45 51   & CKF_LOGIN_REQ
2590: 55 49 52 45 44 29 20 3d 3d 20 43 4b 46 5f 4c 4f  UIRED) == CKF_LO
25a0: 47 49 4e 5f 52 45 51 55 49 52 45 44 29 20 7b 0a  GIN_REQUIRED) {.
25b0: 09 09 09 66 67 65 74 73 5f 72 65 74 20 3d 20 4e  ...fgets_ret = N
25c0: 55 4c 4c 3b 0a 0a 09 09 09 77 68 69 6c 65 20 28  ULL;.....while (
25d0: 66 67 65 74 73 5f 72 65 74 20 3d 3d 20 4e 55 4c  fgets_ret == NUL
25e0: 4c 29 20 7b 0a 09 09 09 09 70 72 69 6e 74 66 28  L) {.....printf(
25f0: 22 2a 2a 20 45 4e 54 45 52 20 50 49 4e 3a 20 22  "** ENTER PIN: "
2600: 29 3b 0a 09 09 09 09 66 66 6c 75 73 68 28 73 74  );.....fflush(st
2610: 64 6f 75 74 29 3b 0a 0a 09 09 09 09 66 67 65 74  dout);......fget
2620: 73 5f 72 65 74 20 3d 20 66 67 65 74 73 28 28 63  s_ret = fgets((c
2630: 68 61 72 20 2a 29 20 75 73 65 72 5f 70 69 6e 2c  har *) user_pin,
2640: 20 73 69 7a 65 6f 66 28 75 73 65 72 5f 70 69 6e   sizeof(user_pin
2650: 29 2c 20 73 74 64 69 6e 29 3b 0a 09 09 09 7d 0a  ), stdin);....}.
2660: 0a 09 09 09 69 66 20 28 73 74 72 6c 65 6e 28 28  ....if (strlen((
2670: 63 68 61 72 20 2a 29 20 75 73 65 72 5f 70 69 6e  char *) user_pin
2680: 29 20 3e 3d 20 31 29 20 7b 0a 09 09 09 09 77 68  ) >= 1) {.....wh
2690: 69 6c 65 20 28 75 73 65 72 5f 70 69 6e 5b 73 74  ile (user_pin[st
26a0: 72 6c 65 6e 28 28 63 68 61 72 20 2a 29 20 75 73  rlen((char *) us
26b0: 65 72 5f 70 69 6e 29 20 2d 20 31 5d 20 3c 20 27  er_pin) - 1] < '
26c0: 20 27 29 20 7b 0a 09 09 09 09 09 75 73 65 72 5f   ') {......user_
26d0: 70 69 6e 5b 73 74 72 6c 65 6e 28 28 63 68 61 72  pin[strlen((char
26e0: 20 2a 29 20 75 73 65 72 5f 70 69 6e 29 20 2d 20   *) user_pin) - 
26f0: 31 5d 20 3d 20 27 5c 30 27 3b 0a 09 09 09 09 7d  1] = '\0';.....}
2700: 0a 09 09 09 7d 0a 0a 09 09 09 63 68 6b 5f 72 76  ....}.....chk_rv
2710: 20 3d 20 43 5f 4c 6f 67 69 6e 28 68 53 65 73 73   = C_Login(hSess
2720: 69 6f 6e 2c 20 43 4b 55 5f 55 53 45 52 2c 20 75  ion, CKU_USER, u
2730: 73 65 72 5f 70 69 6e 2c 20 73 74 72 6c 65 6e 28  ser_pin, strlen(
2740: 28 63 68 61 72 20 2a 29 20 75 73 65 72 5f 70 69  (char *) user_pi
2750: 6e 29 29 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a  n));...} else {.
2760: 09 09 09 63 68 6b 5f 72 76 20 3d 20 43 5f 4c 6f  ...chk_rv = C_Lo
2770: 67 69 6e 28 68 53 65 73 73 69 6f 6e 2c 20 43 4b  gin(hSession, CK
2780: 55 5f 55 53 45 52 2c 20 4e 55 4c 4c 2c 20 30 29  U_USER, NULL, 0)
2790: 3b 0a 09 09 7d 0a 09 09 69 66 20 28 63 68 6b 5f  ;...}...if (chk_
27a0: 72 76 20 3d 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a  rv == CKR_OK) {.
27b0: 09 09 09 70 72 69 6e 74 66 28 22 4c 6f 67 69 6e  ...printf("Login
27c0: 20 74 6f 20 64 65 76 69 63 65 20 73 75 63 63 65   to device succe
27d0: 65 64 2e 5c 6e 22 29 3b 0a 09 09 7d 20 65 6c 73  ed.\n");...} els
27e0: 65 20 7b 0a 09 09 09 70 72 69 6e 74 66 28 22 4c  e {....printf("L
27f0: 6f 67 69 6e 20 74 6f 20 64 65 76 69 63 65 20 66  ogin to device f
2800: 61 69 6c 65 64 2e 5c 6e 22 29 3b 0a 09 09 7d 0a  ailed.\n");...}.
2810: 0a 09 09 63 68 6b 5f 72 76 20 3d 20 43 5f 47 65  ...chk_rv = C_Ge
2820: 74 53 65 73 73 69 6f 6e 49 6e 66 6f 28 68 53 65  tSessionInfo(hSe
2830: 73 73 69 6f 6e 2c 20 26 73 65 73 73 69 6f 6e 49  ssion, &sessionI
2840: 6e 66 6f 29 3b 0a 09 09 69 66 20 28 63 68 6b 5f  nfo);...if (chk_
2850: 72 76 20 3d 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a  rv == CKR_OK) {.
2860: 09 09 09 70 72 69 6e 74 66 28 22 53 65 73 73 69  ...printf("Sessi
2870: 6f 6e 20 49 6e 66 6f 3a 5c 6e 22 29 3b 0a 09 09  on Info:\n");...
2880: 09 70 72 69 6e 74 66 28 22 20 20 53 6c 6f 74 20  .printf("  Slot 
2890: 49 44 3a 20 25 6c 75 5c 6e 22 2c 20 28 75 6e 73  ID: %lu\n", (uns
28a0: 69 67 6e 65 64 20 6c 6f 6e 67 29 20 73 65 73 73  igned long) sess
28b0: 69 6f 6e 49 6e 66 6f 2e 73 6c 6f 74 49 44 29 3b  ionInfo.slotID);
28c0: 0a 09 09 09 70 72 69 6e 74 66 28 22 20 20 44 65  ....printf("  De
28d0: 76 20 45 72 72 3a 20 25 6c 75 5c 6e 22 2c 20 28  v Err: %lu\n", (
28e0: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 73  unsigned long) s
28f0: 65 73 73 69 6f 6e 49 6e 66 6f 2e 75 6c 44 65 76  essionInfo.ulDev
2900: 69 63 65 45 72 72 6f 72 29 3b 0a 0a 09 09 09 70  iceError);.....p
2910: 72 69 6e 74 66 28 22 20 20 53 74 61 74 65 20 20  rintf("  State  
2920: 3a 20 22 29 3b 0a 09 09 09 69 66 20 28 73 65 73  : ");....if (ses
2930: 73 69 6f 6e 49 6e 66 6f 2e 73 74 61 74 65 20 3d  sionInfo.state =
2940: 3d 20 43 4b 53 5f 52 4f 5f 50 55 42 4c 49 43 5f  = CKS_RO_PUBLIC_
2950: 53 45 53 53 49 4f 4e 29 20 7b 0a 09 09 09 09 70  SESSION) {.....p
2960: 72 69 6e 74 66 28 22 43 4b 53 5f 52 4f 5f 50 55  rintf("CKS_RO_PU
2970: 42 4c 49 43 5f 53 45 53 53 49 4f 4e 5c 6e 22 29  BLIC_SESSION\n")
2980: 3b 0a 09 09 09 7d 20 65 6c 73 65 20 69 66 20 28  ;....} else if (
2990: 73 65 73 73 69 6f 6e 49 6e 66 6f 2e 73 74 61 74  sessionInfo.stat
29a0: 65 20 3d 3d 20 43 4b 53 5f 52 4f 5f 55 53 45 52  e == CKS_RO_USER
29b0: 5f 46 55 4e 43 54 49 4f 4e 53 29 20 7b 0a 09 09  _FUNCTIONS) {...
29c0: 09 09 70 72 69 6e 74 66 28 22 43 4b 53 5f 52 4f  ..printf("CKS_RO
29d0: 5f 55 53 45 52 5f 46 55 4e 43 54 49 4f 4e 53 5c  _USER_FUNCTIONS\
29e0: 6e 22 29 3b 0a 09 09 09 7d 20 65 6c 73 65 20 69  n");....} else i
29f0: 66 20 28 73 65 73 73 69 6f 6e 49 6e 66 6f 2e 73  f (sessionInfo.s
2a00: 74 61 74 65 20 3d 3d 20 43 4b 53 5f 52 57 5f 50  tate == CKS_RW_P
2a10: 55 42 4c 49 43 5f 53 45 53 53 49 4f 4e 29 20 7b  UBLIC_SESSION) {
2a20: 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43 4b 53  .....printf("CKS
2a30: 5f 52 57 5f 50 55 42 4c 49 43 5f 53 45 53 53 49  _RW_PUBLIC_SESSI
2a40: 4f 4e 5c 6e 22 29 3b 0a 09 09 09 7d 20 65 6c 73  ON\n");....} els
2a50: 65 20 69 66 20 28 73 65 73 73 69 6f 6e 49 6e 66  e if (sessionInf
2a60: 6f 2e 73 74 61 74 65 20 3d 3d 20 43 4b 53 5f 52  o.state == CKS_R
2a70: 57 5f 55 53 45 52 5f 46 55 4e 43 54 49 4f 4e 53  W_USER_FUNCTIONS
2a80: 29 20 7b 0a 09 09 09 09 70 72 69 6e 74 66 28 22  ) {.....printf("
2a90: 43 4b 53 5f 52 57 5f 55 53 45 52 5f 46 55 4e 43  CKS_RW_USER_FUNC
2aa0: 54 49 4f 4e 53 5c 6e 22 29 3b 0a 09 09 09 7d 20  TIONS\n");....} 
2ab0: 65 6c 73 65 20 69 66 20 28 73 65 73 73 69 6f 6e  else if (session
2ac0: 49 6e 66 6f 2e 73 74 61 74 65 20 3d 3d 20 43 4b  Info.state == CK
2ad0: 53 5f 52 4f 5f 50 55 42 4c 49 43 5f 53 45 53 53  S_RO_PUBLIC_SESS
2ae0: 49 4f 4e 29 20 7b 0a 09 09 09 09 70 72 69 6e 74  ION) {.....print
2af0: 66 28 22 43 4b 53 5f 52 57 5f 53 4f 5f 46 55 4e  f("CKS_RW_SO_FUN
2b00: 43 54 49 4f 4e 53 5c 6e 22 29 3b 0a 09 09 09 7d  CTIONS\n");....}
2b10: 20 65 6c 73 65 20 7b 0a 09 09 09 09 70 72 69 6e   else {.....prin
2b20: 74 66 28 22 55 6e 6b 6e 6f 77 6e 20 28 25 6c 75  tf("Unknown (%lu
2b30: 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f  )", (unsigned lo
2b40: 6e 67 29 20 73 65 73 73 69 6f 6e 49 6e 66 6f 2e  ng) sessionInfo.
2b50: 73 74 61 74 65 29 3b 0a 09 09 09 7d 0a 0a 09 09  state);....}....
2b60: 09 70 72 69 6e 74 66 28 22 20 20 46 6c 61 67 73  .printf("  Flags
2b70: 20 20 3a 20 22 29 3b 0a 09 09 09 69 66 20 28 28    : ");....if ((
2b80: 73 65 73 73 69 6f 6e 49 6e 66 6f 2e 66 6c 61 67  sessionInfo.flag
2b90: 73 20 26 20 43 4b 46 5f 52 57 5f 53 45 53 53 49  s & CKF_RW_SESSI
2ba0: 4f 4e 29 20 3d 3d 20 43 4b 46 5f 52 57 5f 53 45  ON) == CKF_RW_SE
2bb0: 53 53 49 4f 4e 29 20 7b 0a 09 09 09 09 70 72 69  SSION) {.....pri
2bc0: 6e 74 66 28 22 43 4b 46 5f 52 57 5f 53 45 53 53  ntf("CKF_RW_SESS
2bd0: 49 4f 4e 20 22 29 3b 0a 09 09 09 7d 0a 09 09 09  ION ");....}....
2be0: 69 66 20 28 28 73 65 73 73 69 6f 6e 49 6e 66 6f  if ((sessionInfo
2bf0: 2e 66 6c 61 67 73 20 26 20 43 4b 46 5f 53 45 52  .flags & CKF_SER
2c00: 49 41 4c 5f 53 45 53 53 49 4f 4e 29 20 3d 3d 20  IAL_SESSION) == 
2c10: 43 4b 46 5f 53 45 52 49 41 4c 5f 53 45 53 53 49  CKF_SERIAL_SESSI
2c20: 4f 4e 29 20 7b 0a 09 09 09 09 70 72 69 6e 74 66  ON) {.....printf
2c30: 28 22 43 4b 46 5f 53 45 52 49 41 4c 5f 53 45 53  ("CKF_SERIAL_SES
2c40: 53 49 4f 4e 20 22 29 3b 0a 09 09 09 7d 0a 09 09  SION ");....}...
2c50: 09 70 72 69 6e 74 66 28 22 5c 6e 22 29 3b 0a 09  .printf("\n");..
2c60: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 70 72 69  .} else {....pri
2c70: 6e 74 66 28 22 47 65 74 53 65 73 73 69 6f 6e 49  ntf("GetSessionI
2c80: 6e 66 6f 28 29 20 66 61 69 6c 65 64 2e 5c 6e 22  nfo() failed.\n"
2c90: 29 3b 0a 09 09 7d 0a 0a 09 09 63 68 6b 5f 72 76  );...}....chk_rv
2ca0: 20 3d 20 43 5f 46 69 6e 64 4f 62 6a 65 63 74 73   = C_FindObjects
2cb0: 49 6e 69 74 28 68 53 65 73 73 69 6f 6e 2c 20 4e  Init(hSession, N
2cc0: 55 4c 4c 2c 20 30 29 3b 0a 09 09 69 66 20 28 63  ULL, 0);...if (c
2cd0: 68 6b 5f 72 76 20 3d 3d 20 43 4b 52 5f 4f 4b 29  hk_rv == CKR_OK)
2ce0: 20 7b 0a 09 09 09 77 68 69 6c 65 20 28 31 29 20   {....while (1) 
2cf0: 7b 0a 09 09 09 09 63 68 6b 5f 72 76 20 3d 20 43  {.....chk_rv = C
2d00: 5f 46 69 6e 64 4f 62 6a 65 63 74 73 28 68 53 65  _FindObjects(hSe
2d10: 73 73 69 6f 6e 2c 20 26 68 4f 62 6a 65 63 74 2c  ssion, &hObject,
2d20: 20 31 2c 20 26 75 6c 4f 62 6a 65 63 74 43 6f 75   1, &ulObjectCou
2d30: 6e 74 29 3b 0a 09 09 09 09 69 66 20 28 63 68 6b  nt);.....if (chk
2d40: 5f 72 76 20 21 3d 20 43 4b 52 5f 4f 4b 29 20 7b  _rv != CKR_OK) {
2d50: 0a 09 09 09 09 09 70 72 69 6e 74 66 28 22 46 69  ......printf("Fi
2d60: 6e 64 4f 62 6a 65 63 74 73 28 29 20 66 61 69 6c  ndObjects() fail
2d70: 65 64 2e 5c 6e 22 29 3b 0a 09 09 09 09 09 62 72  ed.\n");......br
2d80: 65 61 6b 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 09  eak;.....}......
2d90: 69 66 20 28 75 6c 4f 62 6a 65 63 74 43 6f 75 6e  if (ulObjectCoun
2da0: 74 20 3d 3d 20 30 29 20 7b 0a 09 09 09 09 09 62  t == 0) {......b
2db0: 72 65 61 6b 3b 0a 09 09 09 09 7d 0a 0a 09 09 09  reak;.....}.....
2dc0: 09 69 66 20 28 75 6c 4f 62 6a 65 63 74 43 6f 75  .if (ulObjectCou
2dd0: 6e 74 20 21 3d 20 31 29 20 7b 0a 09 09 09 09 09  nt != 1) {......
2de0: 70 72 69 6e 74 66 28 22 46 69 6e 64 4f 62 6a 65  printf("FindObje
2df0: 63 74 73 28 29 20 72 65 74 75 72 6e 65 64 20 61  cts() returned a
2e00: 20 77 65 69 72 64 20 6e 75 6d 62 65 72 20 6f 66   weird number of
2e10: 20 6f 62 6a 65 63 74 73 2e 20 20 41 73 6b 65 64   objects.  Asked
2e20: 20 66 6f 72 20 31 2c 20 67 6f 74 20 25 6c 75 2e   for 1, got %lu.
2e30: 5c 6e 22 2c 20 75 6c 4f 62 6a 65 63 74 43 6f 75  \n", ulObjectCou
2e40: 6e 74 29 3b 0a 09 09 09 09 09 62 72 65 61 6b 3b  nt);......break;
2e50: 0a 09 09 09 09 7d 0a 0a 09 09 09 09 70 72 69 6e  .....}......prin
2e60: 74 66 28 22 20 20 4f 62 6a 65 63 74 20 49 6e 66  tf("  Object Inf
2e70: 6f 20 28 6f 62 6a 65 63 74 20 25 6c 75 29 3a 5c  o (object %lu):\
2e80: 6e 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f  n", (unsigned lo
2e90: 6e 67 29 20 68 4f 62 6a 65 63 74 29 3b 0a 0a 09  ng) hObject);...
2ea0: 09 09 09 66 6f 72 20 28 63 75 72 72 5f 61 74 74  ...for (curr_att
2eb0: 72 5f 69 64 78 20 3d 20 30 3b 20 63 75 72 72 5f  r_idx = 0; curr_
2ec0: 61 74 74 72 5f 69 64 78 20 3c 20 28 73 69 7a 65  attr_idx < (size
2ed0: 6f 66 28 74 65 6d 70 6c 61 74 65 29 20 2f 20 73  of(template) / s
2ee0: 69 7a 65 6f 66 28 74 65 6d 70 6c 61 74 65 5b 30  izeof(template[0
2ef0: 5d 29 29 3b 20 63 75 72 72 5f 61 74 74 72 5f 69  ])); curr_attr_i
2f00: 64 78 2b 2b 29 20 7b 0a 09 09 09 09 09 63 75 72  dx++) {......cur
2f10: 72 5f 61 74 74 72 20 3d 20 26 74 65 6d 70 6c 61  r_attr = &templa
2f20: 74 65 5b 63 75 72 72 5f 61 74 74 72 5f 69 64 78  te[curr_attr_idx
2f30: 5d 3b 0a 09 09 09 09 09 69 66 20 28 63 75 72 72  ];......if (curr
2f40: 5f 61 74 74 72 2d 3e 70 56 61 6c 75 65 29 20 7b  _attr->pValue) {
2f50: 0a 09 09 09 09 09 09 66 72 65 65 28 63 75 72 72  .......free(curr
2f60: 5f 61 74 74 72 2d 3e 70 56 61 6c 75 65 29 3b 0a  _attr->pValue);.
2f70: 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 63 75 72  .....}.......cur
2f80: 72 5f 61 74 74 72 2d 3e 70 56 61 6c 75 65 20 3d  r_attr->pValue =
2f90: 20 4e 55 4c 4c 3b 0a 09 09 09 09 7d 0a 0a 09 09   NULL;.....}....
2fa0: 09 09 63 68 6b 5f 72 76 20 3d 20 43 5f 47 65 74  ..chk_rv = C_Get
2fb0: 41 74 74 72 69 62 75 74 65 56 61 6c 75 65 28 68  AttributeValue(h
2fc0: 53 65 73 73 69 6f 6e 2c 20 68 4f 62 6a 65 63 74  Session, hObject
2fd0: 2c 20 26 74 65 6d 70 6c 61 74 65 5b 30 5d 2c 20  , &template[0], 
2fe0: 73 69 7a 65 6f 66 28 74 65 6d 70 6c 61 74 65 29  sizeof(template)
2ff0: 20 2f 20 73 69 7a 65 6f 66 28 74 65 6d 70 6c 61   / sizeof(templa
3000: 74 65 5b 30 5d 29 29 3b 0a 09 09 09 09 69 66 20  te[0]));.....if 
3010: 28 63 68 6b 5f 72 76 20 3d 3d 20 43 4b 52 5f 41  (chk_rv == CKR_A
3020: 54 54 52 49 42 55 54 45 5f 54 59 50 45 5f 49 4e  TTRIBUTE_TYPE_IN
3030: 56 41 4c 49 44 20 7c 7c 20 63 68 6b 5f 72 76 20  VALID || chk_rv 
3040: 3d 3d 20 43 4b 52 5f 41 54 54 52 49 42 55 54 45  == CKR_ATTRIBUTE
3050: 5f 53 45 4e 53 49 54 49 56 45 20 7c 7c 20 63 68  _SENSITIVE || ch
3060: 6b 5f 72 76 20 3d 3d 20 43 4b 52 5f 42 55 46 46  k_rv == CKR_BUFF
3070: 45 52 5f 54 4f 4f 5f 53 4d 41 4c 4c 29 20 7b 0a  ER_TOO_SMALL) {.
3080: 09 09 09 09 09 63 68 6b 5f 72 76 20 3d 20 43 4b  .....chk_rv = CK
3090: 52 5f 4f 4b 3b 0a 09 09 09 09 7d 0a 0a 09 09 09  R_OK;.....}.....
30a0: 09 69 66 20 28 63 68 6b 5f 72 76 20 3d 3d 20 43  .if (chk_rv == C
30b0: 4b 52 5f 4f 4b 29 20 7b 0a 09 09 09 09 09 66 6f  KR_OK) {......fo
30c0: 72 20 28 63 75 72 72 5f 61 74 74 72 5f 69 64 78  r (curr_attr_idx
30d0: 20 3d 20 30 3b 20 63 75 72 72 5f 61 74 74 72 5f   = 0; curr_attr_
30e0: 69 64 78 20 3c 20 28 73 69 7a 65 6f 66 28 74 65  idx < (sizeof(te
30f0: 6d 70 6c 61 74 65 29 20 2f 20 73 69 7a 65 6f 66  mplate) / sizeof
3100: 28 74 65 6d 70 6c 61 74 65 5b 30 5d 29 29 3b 20  (template[0])); 
3110: 63 75 72 72 5f 61 74 74 72 5f 69 64 78 2b 2b 29  curr_attr_idx++)
3120: 20 7b 0a 09 09 09 09 09 09 63 75 72 72 5f 61 74   {.......curr_at
3130: 74 72 20 3d 20 26 74 65 6d 70 6c 61 74 65 5b 63  tr = &template[c
3140: 75 72 72 5f 61 74 74 72 5f 69 64 78 5d 3b 0a 0a  urr_attr_idx];..
3150: 09 09 09 09 09 09 69 66 20 28 28 28 43 4b 5f 4c  ......if (((CK_L
3160: 4f 4e 47 29 20 63 75 72 72 5f 61 74 74 72 2d 3e  ONG) curr_attr->
3170: 75 6c 56 61 6c 75 65 4c 65 6e 29 20 21 3d 20 28  ulValueLen) != (
3180: 28 43 4b 5f 4c 4f 4e 47 29 20 2d 31 29 29 20 7b  (CK_LONG) -1)) {
3190: 0a 09 09 09 09 09 09 09 63 75 72 72 5f 61 74 74  ........curr_att
31a0: 72 2d 3e 70 56 61 6c 75 65 20 3d 20 6d 61 6c 6c  r->pValue = mall
31b0: 6f 63 28 63 75 72 72 5f 61 74 74 72 2d 3e 75 6c  oc(curr_attr->ul
31c0: 56 61 6c 75 65 4c 65 6e 29 3b 0a 09 09 09 09 09  ValueLen);......
31d0: 09 7d 0a 09 09 09 09 09 7d 0a 0a 09 09 09 09 09  .}......}.......
31e0: 63 68 6b 5f 72 76 20 3d 20 43 5f 47 65 74 41 74  chk_rv = C_GetAt
31f0: 74 72 69 62 75 74 65 56 61 6c 75 65 28 68 53 65  tributeValue(hSe
3200: 73 73 69 6f 6e 2c 20 68 4f 62 6a 65 63 74 2c 20  ssion, hObject, 
3210: 26 74 65 6d 70 6c 61 74 65 5b 30 5d 2c 20 73 69  &template[0], si
3220: 7a 65 6f 66 28 74 65 6d 70 6c 61 74 65 29 20 2f  zeof(template) /
3230: 20 73 69 7a 65 6f 66 28 74 65 6d 70 6c 61 74 65   sizeof(template
3240: 5b 30 5d 29 29 3b 0a 09 09 09 09 09 69 66 20 28  [0]));......if (
3250: 63 68 6b 5f 72 76 20 3d 3d 20 43 4b 52 5f 4f 4b  chk_rv == CKR_OK
3260: 20 7c 7c 20 63 68 6b 5f 72 76 20 3d 3d 20 43 4b   || chk_rv == CK
3270: 52 5f 41 54 54 52 49 42 55 54 45 5f 53 45 4e 53  R_ATTRIBUTE_SENS
3280: 49 54 49 56 45 20 7c 7c 20 63 68 6b 5f 72 76 20  ITIVE || chk_rv 
3290: 3d 3d 20 43 4b 52 5f 41 54 54 52 49 42 55 54 45  == CKR_ATTRIBUTE
32a0: 5f 54 59 50 45 5f 49 4e 56 41 4c 49 44 20 7c 7c  _TYPE_INVALID ||
32b0: 20 63 68 6b 5f 72 76 20 3d 3d 20 43 4b 52 5f 42   chk_rv == CKR_B
32c0: 55 46 46 45 52 5f 54 4f 4f 5f 53 4d 41 4c 4c 29  UFFER_TOO_SMALL)
32d0: 20 7b 0a 09 09 09 09 09 09 66 6f 72 20 28 63 75   {.......for (cu
32e0: 72 72 5f 61 74 74 72 5f 69 64 78 20 3d 20 30 3b  rr_attr_idx = 0;
32f0: 20 63 75 72 72 5f 61 74 74 72 5f 69 64 78 20 3c   curr_attr_idx <
3300: 20 28 73 69 7a 65 6f 66 28 74 65 6d 70 6c 61 74   (sizeof(templat
3310: 65 29 20 2f 20 73 69 7a 65 6f 66 28 74 65 6d 70  e) / sizeof(temp
3320: 6c 61 74 65 5b 30 5d 29 29 3b 20 63 75 72 72 5f  late[0])); curr_
3330: 61 74 74 72 5f 69 64 78 2b 2b 29 20 7b 0a 09 09  attr_idx++) {...
3340: 09 09 09 09 09 63 75 72 72 5f 61 74 74 72 20 3d  .....curr_attr =
3350: 20 26 74 65 6d 70 6c 61 74 65 5b 63 75 72 72 5f   &template[curr_
3360: 61 74 74 72 5f 69 64 78 5d 3b 0a 0a 09 09 09 09  attr_idx];......
3370: 09 09 09 69 66 20 28 63 75 72 72 5f 61 74 74 72  ...if (curr_attr
3380: 2d 3e 70 56 61 6c 75 65 29 20 7b 0a 09 09 09 09  ->pValue) {.....
3390: 09 09 09 09 73 77 69 74 63 68 20 28 63 75 72 72  ....switch (curr
33a0: 5f 61 74 74 72 2d 3e 74 79 70 65 29 20 7b 0a 09  _attr->type) {..
33b0: 09 09 09 09 09 09 09 09 63 61 73 65 20 43 4b 41  ........case CKA
33c0: 5f 4c 41 42 45 4c 3a 0a 09 09 09 09 09 09 09 09  _LABEL:.........
33d0: 09 09 70 72 69 6e 74 66 28 22 20 20 20 20 5b 25  ..printf("    [%
33e0: 6c 75 5d 20 25 32 30 73 3a 20 25 2e 2a 73 5c 6e  lu] %20s: %.*s\n
33f0: 22 2c 20 68 4f 62 6a 65 63 74 2c 20 70 6b 63 73  ", hObject, pkcs
3400: 31 31 5f 61 74 74 72 69 62 75 74 65 5f 74 6f 5f  11_attribute_to_
3410: 6e 61 6d 65 28 63 75 72 72 5f 61 74 74 72 2d 3e  name(curr_attr->
3420: 74 79 70 65 29 2c 20 28 69 6e 74 29 20 63 75 72  type), (int) cur
3430: 72 5f 61 74 74 72 2d 3e 75 6c 56 61 6c 75 65 4c  r_attr->ulValueL
3440: 65 6e 2c 20 28 63 68 61 72 20 2a 29 20 63 75 72  en, (char *) cur
3450: 72 5f 61 74 74 72 2d 3e 70 56 61 6c 75 65 29 3b  r_attr->pValue);
3460: 0a 09 09 09 09 09 09 09 09 09 09 62 72 65 61 6b  ...........break
3470: 3b 0a 09 09 09 09 09 09 09 09 09 63 61 73 65 20  ;..........case 
3480: 43 4b 41 5f 43 4c 41 53 53 3a 0a 09 09 09 09 09  CKA_CLASS:......
3490: 09 09 09 09 09 6f 62 6a 65 63 74 43 6c 61 73 73  .....objectClass
34a0: 20 3d 20 2a 28 28 43 4b 5f 4f 42 4a 45 43 54 5f   = *((CK_OBJECT_
34b0: 43 4c 41 53 53 20 2a 29 20 63 75 72 72 5f 61 74  CLASS *) curr_at
34c0: 74 72 2d 3e 70 56 61 6c 75 65 29 3b 0a 0a 09 09  tr->pValue);....
34d0: 09 09 09 09 09 09 09 09 69 66 20 28 6f 62 6a 65  ........if (obje
34e0: 63 74 43 6c 61 73 73 20 3d 3d 20 43 4b 4f 5f 50  ctClass == CKO_P
34f0: 52 49 56 41 54 45 5f 4b 45 59 29 20 7b 0a 09 09  RIVATE_KEY) {...
3500: 09 09 09 09 09 09 09 09 09 2a 70 72 69 76 61 74  .........*privat
3510: 65 4b 65 79 4f 62 6a 65 63 74 73 20 3d 20 68 4f  eKeyObjects = hO
3520: 62 6a 65 63 74 3b 0a 09 09 09 09 09 09 09 09 09  bject;..........
3530: 09 09 70 72 69 76 61 74 65 4b 65 79 4f 62 6a 65  ..privateKeyObje
3540: 63 74 73 2b 2b 3b 0a 09 09 09 09 09 09 09 09 09  cts++;..........
3550: 09 7d 0a 09 09 09 09 09 09 09 09 09 63 61 73 65  .}..........case
3560: 20 43 4b 41 5f 54 4f 4b 45 4e 3a 0a 09 09 09 09   CKA_TOKEN:.....
3570: 09 09 09 09 09 63 61 73 65 20 43 4b 41 5f 49 44  .....case CKA_ID
3580: 3a 0a 09 09 09 09 09 09 09 09 09 63 61 73 65 20  :..........case 
3590: 43 4b 41 5f 53 45 52 49 41 4c 5f 4e 55 4d 42 45  CKA_SERIAL_NUMBE
35a0: 52 3a 0a 09 09 09 09 09 09 09 09 09 63 61 73 65  R:..........case
35b0: 20 43 4b 41 5f 50 52 49 56 41 54 45 3a 0a 09 09   CKA_PRIVATE:...
35c0: 09 09 09 09 09 09 09 63 61 73 65 20 43 4b 41 5f  .......case CKA_
35d0: 43 45 52 54 49 46 49 43 41 54 45 5f 54 59 50 45  CERTIFICATE_TYPE
35e0: 3a 0a 09 09 09 09 09 09 09 09 09 63 61 73 65 20  :..........case 
35f0: 43 4b 41 5f 4b 45 59 5f 54 59 50 45 3a 0a 09 09  CKA_KEY_TYPE:...
3600: 09 09 09 09 09 09 09 63 61 73 65 20 43 4b 41 5f  .......case CKA_
3610: 53 49 47 4e 3a 0a 09 09 09 09 09 09 09 09 09 63  SIGN:..........c
3620: 61 73 65 20 43 4b 41 5f 44 45 43 52 59 50 54 3a  ase CKA_DECRYPT:
3630: 0a 09 09 09 09 09 09 09 09 09 09 70 75 63 56 61  ...........pucVa
3640: 6c 75 65 20 3d 20 63 75 72 72 5f 61 74 74 72 2d  lue = curr_attr-
3650: 3e 70 56 61 6c 75 65 3b 0a 0a 09 09 09 09 09 09  >pValue;........
3660: 09 09 09 09 70 72 69 6e 74 66 28 22 20 20 20 20  ....printf("    
3670: 5b 25 6c 75 5d 20 25 32 30 73 3a 20 22 2c 20 68  [%lu] %20s: ", h
3680: 4f 62 6a 65 63 74 2c 20 70 6b 63 73 31 31 5f 61  Object, pkcs11_a
3690: 74 74 72 69 62 75 74 65 5f 74 6f 5f 6e 61 6d 65  ttribute_to_name
36a0: 28 63 75 72 72 5f 61 74 74 72 2d 3e 74 79 70 65  (curr_attr->type
36b0: 29 29 3b 0a 0a 09 09 09 09 09 09 09 09 09 09 66  ));............f
36c0: 6f 72 20 28 62 79 74 65 5f 69 64 78 20 3d 20 30  or (byte_idx = 0
36d0: 3b 20 62 79 74 65 5f 69 64 78 20 3c 20 63 75 72  ; byte_idx < cur
36e0: 72 5f 61 74 74 72 2d 3e 75 6c 56 61 6c 75 65 4c  r_attr->ulValueL
36f0: 65 6e 3b 20 62 79 74 65 5f 69 64 78 2b 2b 29 20  en; byte_idx++) 
3700: 7b 0a 09 09 09 09 09 09 09 09 09 09 09 70 72 69  {............pri
3710: 6e 74 66 28 22 25 30 32 78 20 22 2c 20 28 75 6e  ntf("%02x ", (un
3720: 73 69 67 6e 65 64 20 69 6e 74 29 20 70 75 63 56  signed int) pucV
3730: 61 6c 75 65 5b 62 79 74 65 5f 69 64 78 5d 29 3b  alue[byte_idx]);
3740: 0a 09 09 09 09 09 09 09 09 09 09 7d 0a 0a 09 09  ...........}....
3750: 09 09 09 09 09 09 09 09 70 72 69 6e 74 66 28 22  ........printf("
3760: 3b 3b 20 25 70 2f 25 6c 75 5c 6e 22 2c 20 63 75  ;; %p/%lu\n", cu
3770: 72 72 5f 61 74 74 72 2d 3e 70 56 61 6c 75 65 2c  rr_attr->pValue,
3780: 20 63 75 72 72 5f 61 74 74 72 2d 3e 75 6c 56 61   curr_attr->ulVa
3790: 6c 75 65 4c 65 6e 29 3b 0a 0a 09 09 09 09 09 09  lueLen);........
37a0: 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 09  ....break;......
37b0: 09 09 09 09 63 61 73 65 20 43 4b 41 5f 53 55 42  ....case CKA_SUB
37c0: 4a 45 43 54 3a 0a 09 09 09 09 09 09 09 09 09 63  JECT:..........c
37d0: 61 73 65 20 43 4b 41 5f 49 53 53 55 45 52 3a 0a  ase CKA_ISSUER:.
37e0: 09 09 09 09 09 09 09 09 09 09 70 75 63 56 61 6c  ..........pucVal
37f0: 75 65 20 3d 20 63 75 72 72 5f 61 74 74 72 2d 3e  ue = curr_attr->
3800: 70 56 61 6c 75 65 3b 0a 0a 09 09 09 09 09 09 09  pValue;.........
3810: 09 09 09 70 72 69 6e 74 66 28 22 20 20 20 20 5b  ...printf("    [
3820: 25 6c 75 5d 20 25 32 30 73 3a 20 22 2c 20 68 4f  %lu] %20s: ", hO
3830: 62 6a 65 63 74 2c 20 70 6b 63 73 31 31 5f 61 74  bject, pkcs11_at
3840: 74 72 69 62 75 74 65 5f 74 6f 5f 6e 61 6d 65 28  tribute_to_name(
3850: 63 75 72 72 5f 61 74 74 72 2d 3e 74 79 70 65 29  curr_attr->type)
3860: 29 3b 0a 0a 09 09 09 09 09 09 09 09 09 09 66 6f  );............fo
3870: 72 20 28 62 79 74 65 5f 69 64 78 20 3d 20 30 3b  r (byte_idx = 0;
3880: 20 62 79 74 65 5f 69 64 78 20 3c 20 63 75 72 72   byte_idx < curr
3890: 5f 61 74 74 72 2d 3e 75 6c 56 61 6c 75 65 4c 65  _attr->ulValueLe
38a0: 6e 3b 20 62 79 74 65 5f 69 64 78 2b 2b 29 20 7b  n; byte_idx++) {
38b0: 0a 09 09 09 09 09 09 09 09 09 09 09 70 72 69 6e  ............prin
38c0: 74 66 28 22 5c 5c 78 25 30 32 78 22 2c 20 28 75  tf("\\x%02x", (u
38d0: 6e 73 69 67 6e 65 64 20 69 6e 74 29 20 70 75 63  nsigned int) puc
38e0: 56 61 6c 75 65 5b 62 79 74 65 5f 69 64 78 5d 29  Value[byte_idx])
38f0: 3b 0a 09 09 09 09 09 09 09 09 09 09 7d 0a 0a 09  ;...........}...
3900: 09 09 09 09 09 09 09 09 09 70 72 69 6e 74 66 28  .........printf(
3910: 22 20 3b 3b 20 25 70 2f 25 6c 75 5c 6e 22 2c 20  " ;; %p/%lu\n", 
3920: 63 75 72 72 5f 61 74 74 72 2d 3e 70 56 61 6c 75  curr_attr->pValu
3930: 65 2c 20 63 75 72 72 5f 61 74 74 72 2d 3e 75 6c  e, curr_attr->ul
3940: 56 61 6c 75 65 4c 65 6e 29 3b 0a 0a 09 09 09 09  ValueLen);......
3950: 09 09 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09  ......break;....
3960: 09 09 09 09 09 09 64 65 66 61 75 6c 74 3a 0a 09  ......default:..
3970: 09 09 09 09 09 09 09 09 09 70 72 69 6e 74 66 28  .........printf(
3980: 22 20 20 20 20 5b 25 6c 75 5d 20 25 32 30 73 3a  "    [%lu] %20s:
3990: 20 25 70 2f 25 6c 75 5c 6e 22 2c 20 68 4f 62 6a   %p/%lu\n", hObj
39a0: 65 63 74 2c 20 70 6b 63 73 31 31 5f 61 74 74 72  ect, pkcs11_attr
39b0: 69 62 75 74 65 5f 74 6f 5f 6e 61 6d 65 28 63 75  ibute_to_name(cu
39c0: 72 72 5f 61 74 74 72 2d 3e 74 79 70 65 29 2c 20  rr_attr->type), 
39d0: 63 75 72 72 5f 61 74 74 72 2d 3e 70 56 61 6c 75  curr_attr->pValu
39e0: 65 2c 20 63 75 72 72 5f 61 74 74 72 2d 3e 75 6c  e, curr_attr->ul
39f0: 56 61 6c 75 65 4c 65 6e 29 3b 0a 0a 09 09 09 09  ValueLen);......
3a00: 09 09 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09  ......break;....
3a10: 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 7d 20  .....}........} 
3a20: 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 09 09 70  else {.........p
3a30: 72 69 6e 74 66 28 22 20 20 20 20 5b 25 6c 75 5d  rintf("    [%lu]
3a40: 20 25 32 30 73 3a 20 28 6e 6f 74 20 66 6f 75 6e   %20s: (not foun
3a50: 64 29 5c 6e 22 2c 20 68 4f 62 6a 65 63 74 2c 20  d)\n", hObject, 
3a60: 70 6b 63 73 31 31 5f 61 74 74 72 69 62 75 74 65  pkcs11_attribute
3a70: 5f 74 6f 5f 6e 61 6d 65 28 63 75 72 72 5f 61 74  _to_name(curr_at
3a80: 74 72 2d 3e 74 79 70 65 29 29 3b 0a 09 09 09 09  tr->type));.....
3a90: 09 09 09 7d 0a 0a 09 09 09 09 09 09 09 66 72 65  ...}.........fre
3aa0: 65 28 63 75 72 72 5f 61 74 74 72 2d 3e 70 56 61  e(curr_attr->pVa
3ab0: 6c 75 65 29 3b 0a 09 09 09 09 09 09 09 63 75 72  lue);........cur
3ac0: 72 5f 61 74 74 72 2d 3e 70 56 61 6c 75 65 20 3d  r_attr->pValue =
3ad0: 20 4e 55 4c 4c 3b 0a 09 09 09 09 09 09 7d 0a 09   NULL;.......}..
3ae0: 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09  ....} else {....
3af0: 09 09 09 70 72 69 6e 74 66 28 22 47 65 74 41 74  ...printf("GetAt
3b00: 74 72 69 62 75 74 65 56 61 6c 75 65 28 29 2f 32  tributeValue()/2
3b10: 20 66 61 69 6c 65 64 2e 5c 6e 22 29 3b 0a 09 09   failed.\n");...
3b20: 09 09 09 7d 0a 09 09 09 09 7d 20 65 6c 73 65 20  ...}.....} else 
3b30: 7b 0a 09 09 09 09 09 70 72 69 6e 74 66 28 22 47  {......printf("G
3b40: 65 74 41 74 74 72 69 62 75 74 65 56 61 6c 75 65  etAttributeValue
3b50: 28 68 4f 62 6a 65 63 74 3d 25 6c 75 29 2f 31 20  (hObject=%lu)/1 
3b60: 66 61 69 6c 65 64 20 28 72 76 20 3d 20 25 6c 75  failed (rv = %lu
3b70: 29 2e 5c 6e 22 2c 20 28 75 6e 73 69 67 6e 65 64  ).\n", (unsigned
3b80: 20 6c 6f 6e 67 29 20 68 4f 62 6a 65 63 74 2c 20   long) hObject, 
3b90: 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20  (unsigned long) 
3ba0: 63 68 6b 5f 72 76 29 3b 0a 09 09 09 09 7d 0a 0a  chk_rv);.....}..
3bb0: 09 09 09 7d 0a 0a 09 09 09 63 68 6b 5f 72 76 20  ...}.....chk_rv 
3bc0: 3d 20 43 5f 46 69 6e 64 4f 62 6a 65 63 74 73 46  = C_FindObjectsF
3bd0: 69 6e 61 6c 28 68 53 65 73 73 69 6f 6e 29 3b 0a  inal(hSession);.
3be0: 09 09 09 69 66 20 28 63 68 6b 5f 72 76 20 21 3d  ...if (chk_rv !=
3bf0: 20 43 4b 52 5f 4f 4b 29 20 7b 0a 09 09 09 09 70   CKR_OK) {.....p
3c00: 72 69 6e 74 66 28 22 46 69 6e 64 4f 62 6a 65 63  rintf("FindObjec
3c10: 74 73 46 69 6e 61 6c 28 29 20 66 61 69 6c 65 64  tsFinal() failed
3c20: 2e 5c 6e 22 29 3b 0a 09 09 09 7d 0a 09 09 7d 20  .\n");....}...} 
3c30: 65 6c 73 65 20 7b 0a 09 09 09 70 72 69 6e 74 66  else {....printf
3c40: 28 22 46 69 6e 64 4f 62 6a 65 63 74 73 49 6e 69  ("FindObjectsIni
3c50: 74 28 29 20 66 61 69 6c 65 64 2e 5c 6e 22 29 3b  t() failed.\n");
3c60: 0a 09 09 7d 0a 0a 09 09 70 72 69 6e 74 66 28 22  ...}....printf("
3c70: 2d 2d 2d 20 4f 70 65 72 61 74 69 6f 6e 73 20 2d  --- Operations -
3c80: 2d 2d 5c 6e 22 29 3b 0a 0a 09 09 66 6f 72 20 28  --\n");....for (
3c90: 63 75 72 72 50 72 69 76 4b 65 79 20 3d 20 70 72  currPrivKey = pr
3ca0: 69 76 61 74 65 4b 65 79 4f 62 6a 65 63 74 73 5f  ivateKeyObjects_
3cb0: 72 6f 6f 74 3b 20 2a 63 75 72 72 50 72 69 76 4b  root; *currPrivK
3cc0: 65 79 20 21 3d 20 43 4b 5f 49 4e 56 41 4c 49 44  ey != CK_INVALID
3cd0: 5f 48 41 4e 44 4c 45 3b 20 63 75 72 72 50 72 69  _HANDLE; currPri
3ce0: 76 4b 65 79 2b 2b 29 20 7b 0a 09 09 09 63 68 6b  vKey++) {....chk
3cf0: 5f 72 76 20 3d 20 43 5f 53 69 67 6e 49 6e 69 74  _rv = C_SignInit
3d00: 28 68 53 65 73 73 69 6f 6e 2c 20 26 6d 65 63 68  (hSession, &mech
3d10: 61 6e 69 73 6d 2c 20 2a 63 75 72 72 50 72 69 76  anism, *currPriv
3d20: 4b 65 79 29 3b 0a 09 09 09 69 66 20 28 63 68 6b  Key);....if (chk
3d30: 5f 72 76 20 3d 3d 20 43 4b 52 5f 4f 4b 29 20 7b  _rv == CKR_OK) {
3d40: 0a 09 09 09 09 73 69 67 6e 61 74 75 72 65 5f 6c  .....signature_l
3d50: 65 6e 20 3d 20 73 69 7a 65 6f 66 28 73 69 67 6e  en = sizeof(sign
3d60: 61 74 75 72 65 29 3b 0a 0a 09 09 09 09 63 68 6b  ature);......chk
3d70: 5f 72 76 20 3d 20 43 5f 53 69 67 6e 28 68 53 65  _rv = C_Sign(hSe
3d80: 73 73 69 6f 6e 2c 20 28 43 4b 5f 42 59 54 45 5f  ssion, (CK_BYTE_
3d90: 50 54 52 29 20 22 54 65 73 74 22 2c 20 73 74 72  PTR) "Test", str
3da0: 6c 65 6e 28 22 54 65 73 74 22 29 2c 20 28 43 4b  len("Test"), (CK
3db0: 5f 42 59 54 45 5f 50 54 52 29 20 26 73 69 67 6e  _BYTE_PTR) &sign
3dc0: 61 74 75 72 65 2c 20 26 73 69 67 6e 61 74 75 72  ature, &signatur
3dd0: 65 5f 6c 65 6e 29 3b 0a 09 09 09 09 69 66 20 28  e_len);.....if (
3de0: 63 68 6b 5f 72 76 20 3d 3d 20 43 4b 52 5f 4f 4b  chk_rv == CKR_OK
3df0: 29 20 7b 0a 09 09 09 09 09 70 72 69 6e 74 66 28  ) {......printf(
3e00: 22 5b 25 30 34 6c 75 2f 25 30 32 6c 78 5d 20 53  "[%04lu/%02lx] S
3e10: 69 67 6e 61 74 75 72 65 3a 20 22 2c 20 28 75 6e  ignature: ", (un
3e20: 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 2a 63 75  signed long) *cu
3e30: 72 72 50 72 69 76 4b 65 79 2c 20 28 75 6e 73 69  rrPrivKey, (unsi
3e40: 67 6e 65 64 20 6c 6f 6e 67 29 20 6d 65 63 68 61  gned long) mecha
3e50: 6e 69 73 6d 2e 6d 65 63 68 61 6e 69 73 6d 29 3b  nism.mechanism);
3e60: 0a 0a 09 09 09 09 09 66 6f 72 20 28 62 79 74 65  .......for (byte
3e70: 5f 69 64 78 20 3d 20 30 3b 20 62 79 74 65 5f 69  _idx = 0; byte_i
3e80: 64 78 20 3c 20 73 69 67 6e 61 74 75 72 65 5f 6c  dx < signature_l
3e90: 65 6e 3b 20 62 79 74 65 5f 69 64 78 2b 2b 29 20  en; byte_idx++) 
3ea0: 7b 0a 09 09 09 09 09 09 70 72 69 6e 74 66 28 22  {.......printf("
3eb0: 25 30 32 78 20 22 2c 20 28 75 6e 73 69 67 6e 65  %02x ", (unsigne
3ec0: 64 20 69 6e 74 29 20 73 69 67 6e 61 74 75 72 65  d int) signature
3ed0: 5b 62 79 74 65 5f 69 64 78 5d 29 3b 0a 09 09 09  [byte_idx]);....
3ee0: 09 09 7d 0a 0a 09 09 09 09 09 70 72 69 6e 74 66  ..}.......printf
3ef0: 28 22 5c 6e 22 29 3b 0a 09 09 09 09 7d 20 65 6c  ("\n");.....} el
3f00: 73 65 20 7b 0a 09 09 09 09 09 70 72 69 6e 74 66  se {......printf
3f10: 28 22 53 69 67 6e 28 29 20 66 61 69 6c 65 64 2e  ("Sign() failed.
3f20: 5c 6e 22 29 3b 0a 09 09 09 09 7d 0a 09 09 09 7d  \n");.....}....}
3f30: 20 65 6c 73 65 20 7b 0a 09 09 09 09 70 72 69 6e   else {.....prin
3f40: 74 66 28 22 53 69 67 6e 49 6e 69 74 28 29 20 66  tf("SignInit() f
3f50: 61 69 6c 65 64 2e 5c 6e 22 29 3b 0a 09 09 09 7d  ailed.\n");....}
3f60: 0a 09 09 7d 0a 0a 09 09 66 6f 72 20 28 63 75 72  ...}....for (cur
3f70: 72 50 72 69 76 4b 65 79 20 3d 20 70 72 69 76 61  rPrivKey = priva
3f80: 74 65 4b 65 79 4f 62 6a 65 63 74 73 5f 72 6f 6f  teKeyObjects_roo
3f90: 74 3b 20 2a 63 75 72 72 50 72 69 76 4b 65 79 20  t; *currPrivKey 
3fa0: 21 3d 20 43 4b 5f 49 4e 56 41 4c 49 44 5f 48 41  != CK_INVALID_HA
3fb0: 4e 44 4c 45 3b 20 63 75 72 72 50 72 69 76 4b 65  NDLE; currPrivKe
3fc0: 79 2b 2b 29 20 7b 0a 09 09 09 63 68 6b 5f 72 76  y++) {....chk_rv
3fd0: 20 3d 20 43 5f 45 6e 63 72 79 70 74 49 6e 69 74   = C_EncryptInit
3fe0: 28 68 53 65 73 73 69 6f 6e 2c 20 26 6d 65 63 68  (hSession, &mech
3ff0: 61 6e 69 73 6d 2c 20 2a 63 75 72 72 50 72 69 76  anism, *currPriv
4000: 4b 65 79 29 3b 0a 09 09 09 69 66 20 28 63 68 6b  Key);....if (chk
4010: 5f 72 76 20 3d 3d 20 43 4b 52 5f 4f 4b 29 20 7b  _rv == CKR_OK) {
4020: 0a 09 09 09 09 65 6e 63 72 79 70 74 65 64 5f 62  .....encrypted_b
4030: 75 66 6c 65 6e 20 3d 20 73 69 7a 65 6f 66 28 65  uflen = sizeof(e
4040: 6e 63 72 79 70 74 65 64 5f 62 75 66 29 3b 0a 0a  ncrypted_buf);..
4050: 09 09 09 09 63 68 6b 5f 72 76 20 3d 20 43 5f 45  ....chk_rv = C_E
4060: 6e 63 72 79 70 74 28 68 53 65 73 73 69 6f 6e 2c  ncrypt(hSession,
4070: 20 28 43 4b 5f 42 59 54 45 5f 50 54 52 29 20 22   (CK_BYTE_PTR) "
4080: 54 65 73 74 22 2c 20 73 74 72 6c 65 6e 28 22 54  Test", strlen("T
4090: 65 73 74 22 29 2c 20 65 6e 63 72 79 70 74 65 64  est"), encrypted
40a0: 5f 62 75 66 2c 20 26 65 6e 63 72 79 70 74 65 64  _buf, &encrypted
40b0: 5f 62 75 66 6c 65 6e 29 3b 0a 09 09 09 09 69 66  _buflen);.....if
40c0: 20 28 63 68 6b 5f 72 76 20 3d 3d 20 43 4b 52 5f   (chk_rv == CKR_
40d0: 4f 4b 29 20 7b 0a 09 09 09 09 09 70 72 69 6e 74  OK) {......print
40e0: 66 28 22 5b 25 30 34 6c 75 2f 25 30 32 6c 78 5d  f("[%04lu/%02lx]
40f0: 20 45 6e 63 72 79 70 74 65 64 28 54 65 73 74 29   Encrypted(Test)
4100: 3a 20 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c  : ", (unsigned l
4110: 6f 6e 67 29 20 2a 63 75 72 72 50 72 69 76 4b 65  ong) *currPrivKe
4120: 79 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e  y, (unsigned lon
4130: 67 29 20 6d 65 63 68 61 6e 69 73 6d 2e 6d 65 63  g) mechanism.mec
4140: 68 61 6e 69 73 6d 29 3b 0a 0a 09 09 09 09 09 66  hanism);.......f
4150: 6f 72 20 28 62 79 74 65 5f 69 64 78 20 3d 20 30  or (byte_idx = 0
4160: 3b 20 62 79 74 65 5f 69 64 78 20 3c 20 65 6e 63  ; byte_idx < enc
4170: 72 79 70 74 65 64 5f 62 75 66 6c 65 6e 3b 20 62  rypted_buflen; b
4180: 79 74 65 5f 69 64 78 2b 2b 29 20 7b 0a 09 09 09  yte_idx++) {....
4190: 09 09 09 70 72 69 6e 74 66 28 22 25 30 32 78 20  ...printf("%02x 
41a0: 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74  ", (unsigned int
41b0: 29 20 65 6e 63 72 79 70 74 65 64 5f 62 75 66 5b  ) encrypted_buf[
41c0: 62 79 74 65 5f 69 64 78 5d 29 3b 0a 09 09 09 09  byte_idx]);.....
41d0: 09 7d 0a 0a 09 09 09 09 09 70 72 69 6e 74 66 28  .}.......printf(
41e0: 22 5c 6e 22 29 3b 0a 09 09 09 09 7d 20 65 6c 73  "\n");.....} els
41f0: 65 20 7b 0a 09 09 09 09 09 70 72 69 6e 74 66 28  e {......printf(
4200: 22 45 6e 63 72 79 70 74 28 29 20 66 61 69 6c 65  "Encrypt() faile
4210: 64 2e 5c 6e 22 29 3b 0a 09 09 09 09 7d 0a 09 09  d.\n");.....}...
4220: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 70 72  .} else {.....pr
4230: 69 6e 74 66 28 22 45 6e 63 72 79 70 74 49 6e 69  intf("EncryptIni
4240: 74 28 29 20 66 61 69 6c 65 64 2e 5c 6e 22 29 3b  t() failed.\n");
4250: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 66 6f 72  ....}...}....for
4260: 20 28 63 75 72 72 50 72 69 76 4b 65 79 20 3d 20   (currPrivKey = 
4270: 70 72 69 76 61 74 65 4b 65 79 4f 62 6a 65 63 74  privateKeyObject
4280: 73 5f 72 6f 6f 74 3b 20 2a 63 75 72 72 50 72 69  s_root; *currPri
4290: 76 4b 65 79 20 21 3d 20 43 4b 5f 49 4e 56 41 4c  vKey != CK_INVAL
42a0: 49 44 5f 48 41 4e 44 4c 45 3b 20 63 75 72 72 50  ID_HANDLE; currP
42b0: 72 69 76 4b 65 79 2b 2b 29 20 7b 0a 09 09 09 63  rivKey++) {....c
42c0: 68 6b 5f 72 76 20 3d 20 43 5f 44 65 63 72 79 70  hk_rv = C_Decryp
42d0: 74 49 6e 69 74 28 68 53 65 73 73 69 6f 6e 2c 20  tInit(hSession, 
42e0: 26 6d 65 63 68 61 6e 69 73 6d 2c 20 2a 63 75 72  &mechanism, *cur
42f0: 72 50 72 69 76 4b 65 79 29 3b 0a 09 09 09 69 66  rPrivKey);....if
4300: 20 28 63 68 6b 5f 72 76 20 3d 3d 20 43 4b 52 5f   (chk_rv == CKR_
4310: 4f 4b 29 20 7b 0a 09 09 09 09 64 65 63 72 79 70  OK) {.....decryp
4320: 74 65 64 5f 62 75 66 6c 65 6e 20 3d 20 73 69 7a  ted_buflen = siz
4330: 65 6f 66 28 64 65 63 72 79 70 74 65 64 5f 62 75  eof(decrypted_bu
4340: 66 29 3b 0a 0a 09 09 09 09 63 68 6b 5f 72 76 20  f);......chk_rv 
4350: 3d 20 43 5f 44 65 63 72 79 70 74 28 68 53 65 73  = C_Decrypt(hSes
4360: 73 69 6f 6e 2c 20 28 43 4b 5f 42 59 54 45 5f 50  sion, (CK_BYTE_P
4370: 54 52 29 20 22 5c 78 34 63 5c 78 33 36 5c 78 30  TR) "\x4c\x36\x0
4380: 66 5c 78 38 36 5c 78 32 64 5c 78 62 37 5c 78 62  f\x86\x2d\xb7\xb
4390: 32 5c 78 34 36 5c 78 39 32 5c 78 31 31 5c 78 37  2\x46\x92\x11\x7
43a0: 65 5c 78 35 66 5c 78 64 31 5c 78 65 62 5c 78 32  e\x5f\xd1\xeb\x2
43b0: 63 5c 78 62 30 5c 78 64 62 5c 78 33 34 5c 78 36  c\xb0\xdb\x34\x6
43c0: 30 5c 78 62 38 5c 78 30 63 5c 78 66 38 5c 78 32  0\xb8\x0c\xf8\x2
43d0: 37 5c 78 62 35 5c 78 66 62 5c 78 63 65 5c 78 64  7\xb5\xfb\xce\xd
43e0: 31 5c 78 66 34 5c 78 35 38 5c 78 61 33 5c 78 32  1\xf4\x58\xa3\x2
43f0: 30 5c 78 35 32 5c 78 39 64 5c 78 39 37 5c 78 30  0\x52\x9d\x97\x0
4400: 38 5c 78 64 38 5c 78 32 62 5c 78 35 65 5c 78 62  8\xd8\x2b\x5e\xb
4410: 32 5c 78 33 37 5c 78 34 36 5c 78 37 32 5c 78 34  2\x37\x46\x72\x4
4420: 35 5c 78 37 63 5c 78 36 36 5c 78 32 33 5c 78 35  5\x7c\x66\x23\x5
4430: 33 5c 78 62 35 5c 78 61 35 5c 78 31 36 5c 78 36  3\xb5\xa5\x16\x6
4440: 31 5c 78 39 36 5c 78 62 63 5c 78 35 63 5c 78 38  1\x96\xbc\x5c\x8
4450: 64 5c 78 38 35 5c 78 31 38 5c 78 32 34 5c 78 63  d\x85\x18\x24\xc
4460: 66 5c 78 37 34 5c 78 37 66 5c 78 63 32 5c 78 32  f\x74\x7f\xc2\x2
4470: 33 5c 78 31 35 5c 78 64 36 5c 78 34 32 5c 78 37  3\x15\xd6\x42\x7
4480: 32 5c 78 61 35 5c 78 32 62 5c 78 32 39 5c 78 32  2\xa5\x2b\x29\x2
4490: 39 5c 78 31 64 5c 78 61 36 5c 78 65 61 5c 78 32  9\x1d\xa6\xea\x2
44a0: 62 5c 78 63 62 5c 78 35 37 5c 78 35 39 5c 78 62  b\xcb\x57\x59\xb
44b0: 33 5c 78 35 66 5c 78 65 32 5c 78 66 38 5c 78 33  3\x5f\xe2\xf8\x3
44c0: 30 5c 78 31 32 5c 78 32 66 5c 78 31 62 5c 78 66  0\x12\x2f\x1b\xf
44d0: 61 5c 78 62 64 5c 78 61 39 5c 78 31 39 5c 78 65  a\xbd\xa9\x19\xe
44e0: 66 5c 78 35 63 5c 78 62 62 5c 78 34 38 5c 78 64  f\x5c\xbb\x48\xd
44f0: 63 5c 78 32 38 5c 78 34 32 5c 78 64 64 5c 78 39  c\x28\x42\xdd\x9
4500: 30 5c 78 62 65 5c 78 36 33 5c 78 65 62 5c 78 35  0\xbe\x63\xeb\x5
4510: 39 5c 78 30 63 5c 78 61 66 5c 78 35 39 5c 78 63  9\x0c\xaf\x59\xc
4520: 62 5c 78 65 34 5c 78 36 61 5c 78 66 32 5c 78 35  b\xe4\x6a\xf2\x5
4530: 36 5c 78 32 34 5c 78 34 31 5c 78 63 32 5c 78 37  6\x24\x41\xc2\x7
4540: 37 5c 78 37 62 5c 78 63 39 5c 78 66 38 5c 78 30  7\x7b\xc9\xf8\x0
4550: 32 5c 78 30 66 5c 78 36 37 5c 78 33 64 5c 78 32  2\x0f\x67\x3d\x2
4560: 61 5c 78 39 38 5c 78 39 31 5c 78 31 34 5c 78 61  a\x98\x91\x14\xa
4570: 32 5c 78 35 37 22 2c 20 31 32 38 2c 20 64 65 63  2\x57", 128, dec
4580: 72 79 70 74 65 64 5f 62 75 66 2c 20 26 64 65 63  rypted_buf, &dec
4590: 72 79 70 74 65 64 5f 62 75 66 6c 65 6e 29 3b 0a  rypted_buflen);.
45a0: 09 09 09 09 69 66 20 28 63 68 6b 5f 72 76 20 3d  ....if (chk_rv =
45b0: 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a 09 09 09 09  = CKR_OK) {.....
45c0: 09 70 72 69 6e 74 66 28 22 5b 25 30 34 6c 75 2f  .printf("[%04lu/
45d0: 25 30 32 6c 78 5d 20 44 65 63 72 79 70 74 65 64  %02lx] Decrypted
45e0: 28 49 74 20 77 6f 72 6b 73 21 29 3a 20 22 2c 20  (It works!): ", 
45f0: 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20  (unsigned long) 
4600: 2a 63 75 72 72 50 72 69 76 4b 65 79 2c 20 28 75  *currPrivKey, (u
4610: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 6d 65  nsigned long) me
4620: 63 68 61 6e 69 73 6d 2e 6d 65 63 68 61 6e 69 73  chanism.mechanis
4630: 6d 29 3b 0a 0a 09 09 09 09 09 66 6f 72 20 28 62  m);.......for (b
4640: 79 74 65 5f 69 64 78 20 3d 20 30 3b 20 62 79 74  yte_idx = 0; byt
4650: 65 5f 69 64 78 20 3c 20 64 65 63 72 79 70 74 65  e_idx < decrypte
4660: 64 5f 62 75 66 6c 65 6e 3b 20 62 79 74 65 5f 69  d_buflen; byte_i
4670: 64 78 2b 2b 29 20 7b 0a 09 09 09 09 09 09 70 72  dx++) {.......pr
4680: 69 6e 74 66 28 22 25 30 32 78 20 22 2c 20 28 75  intf("%02x ", (u
4690: 6e 73 69 67 6e 65 64 20 69 6e 74 29 20 64 65 63  nsigned int) dec
46a0: 72 79 70 74 65 64 5f 62 75 66 5b 62 79 74 65 5f  rypted_buf[byte_
46b0: 69 64 78 5d 29 3b 0a 09 09 09 09 09 7d 0a 0a 09  idx]);......}...
46c0: 09 09 09 09 70 72 69 6e 74 66 28 22 5c 6e 22 29  ....printf("\n")
46d0: 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09  ;.....} else {..
46e0: 09 09 09 09 70 72 69 6e 74 66 28 22 44 65 63 72  ....printf("Decr
46f0: 79 70 74 28 29 20 66 61 69 6c 65 64 2e 5c 6e 22  ypt() failed.\n"
4700: 29 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 20 65 6c  );.....}....} el
4710: 73 65 20 7b 0a 09 09 09 09 70 72 69 6e 74 66 28  se {.....printf(
4720: 22 44 65 63 72 79 70 74 49 6e 69 74 28 29 20 66  "DecryptInit() f
4730: 61 69 6c 65 64 2e 5c 6e 22 29 3b 0a 09 09 09 7d  ailed.\n");....}
4740: 0a 09 09 7d 0a 0a 09 09 63 68 6b 5f 72 76 20 3d  ...}....chk_rv =
4750: 20 43 5f 43 6c 6f 73 65 53 65 73 73 69 6f 6e 28   C_CloseSession(
4760: 68 53 65 73 73 69 6f 6e 29 3b 0a 09 09 69 66 20  hSession);...if 
4770: 28 63 68 6b 5f 72 76 20 21 3d 20 43 4b 52 5f 4f  (chk_rv != CKR_O
4780: 4b 29 20 7b 0a 09 09 09 70 72 69 6e 74 66 28 22  K) {....printf("
4790: 43 6c 6f 73 65 53 65 73 73 69 6f 6e 20 66 61 69  CloseSession fai
47a0: 6c 65 64 2e 5c 6e 22 29 3b 0a 09 09 7d 0a 09 7d  led.\n");...}..}
47b0: 20 65 6c 73 65 20 7b 0a 09 09 70 72 69 6e 74 66   else {...printf
47c0: 28 22 4f 70 65 6e 53 65 73 73 69 6f 6e 20 66 61  ("OpenSession fa
47d0: 69 6c 65 64 2e 5c 6e 22 29 3b 0a 09 7d 0a 0a 09  iled.\n");..}...
47e0: 43 5f 46 69 6e 61 6c 69 7a 65 28 4e 55 4c 4c 29  C_Finalize(NULL)
47f0: 3b 0a 0a 09 69 66 20 28 73 6c 6f 74 73 29 20 7b  ;...if (slots) {
4800: 0a 09 09 66 72 65 65 28 73 6c 6f 74 73 29 3b 0a  ...free(slots);.
4810: 09 7d 0a 0a 09 69 66 20 28 70 72 69 76 61 74 65  .}...if (private
4820: 4b 65 79 4f 62 6a 65 63 74 73 5f 72 6f 6f 74 29  KeyObjects_root)
4830: 20 7b 0a 09 09 66 72 65 65 28 70 72 69 76 61 74   {...free(privat
4840: 65 4b 65 79 4f 62 6a 65 63 74 73 5f 72 6f 6f 74  eKeyObjects_root
4850: 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 30  );..}...return(0
4860: 29 3b 0a 7d 0a 0a 69 6e 74 20 6d 61 69 6e 28 76  );.}..int main(v
4870: 6f 69 64 29 20 7b 0a 09 69 6e 74 20 72 65 74 76  oid) {..int retv
4880: 61 6c 20 3d 20 30 2c 20 63 6b 5f 72 65 74 76 61  al = 0, ck_retva
4890: 6c 3b 0a 0a 09 70 72 69 6e 74 66 28 22 54 65 73  l;...printf("Tes
48a0: 74 69 6e 67 20 6c 69 62 63 61 63 6b 65 79 2e 2e  ting libcackey..
48b0: 2e 5c 6e 22 29 3b 0a 0a 09 63 6b 5f 72 65 74 76  .\n");...ck_retv
48c0: 61 6c 20 3d 20 6d 61 69 6e 5f 70 6b 63 73 31 31  al = main_pkcs11
48d0: 28 29 3b 0a 0a 09 69 66 20 28 63 6b 5f 72 65 74  ();...if (ck_ret
48e0: 76 61 6c 20 21 3d 20 30 29 20 7b 0a 09 09 72 65  val != 0) {...re
48f0: 74 76 61 6c 20 3d 20 63 6b 5f 72 65 74 76 61 6c  tval = ck_retval
4900: 3b 0a 09 7d 0a 0a 09 70 72 69 6e 74 66 28 22 54  ;..}...printf("T
4910: 65 73 74 69 6e 67 20 6c 69 62 63 61 63 6b 65 79  esting libcackey
4920: 2e 2e 2e 20 44 4f 4e 45 2e 20 53 74 61 74 75 73  ... DONE. Status
4930: 20 3d 20 25 69 5c 6e 22 2c 20 63 6b 5f 72 65 74   = %i\n", ck_ret
4940: 76 61 6c 29 3b 0a 0a 09 72 65 74 75 72 6e 28 72  val);...return(r
4950: 65 74 76 61 6c 29 3b 0a 7d 0a                    etval);.}.