Hex Artifact Content

Artifact 59890785392efe90978728f004ad8b5c0e13cf61:


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 09 69 6e 69 74  ed = NULL;..init
1250: 61 72 67 73 2e 4c 69 62 72 61 72 79 50 61 72 61  args.LibraryPara
1260: 6d 65 74 65 72 73 20 3d 20 4e 55 4c 4c 3b 0a 0a  meters = NULL;..
1270: 09 63 68 6b 5f 72 76 20 3d 20 43 5f 49 6e 69 74  .chk_rv = C_Init
1280: 69 61 6c 69 7a 65 28 26 69 6e 69 74 61 72 67 73  ialize(&initargs
1290: 29 3b 0a 09 69 66 20 28 63 68 6b 5f 72 76 20 21  );..if (chk_rv !
12a0: 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a 09 09 69 6e  = CKR_OK) {...in
12b0: 69 74 61 72 67 73 2e 43 72 65 61 74 65 4d 75 74  itargs.CreateMut
12c0: 65 78 20 3d 20 4e 55 4c 4c 3b 0a 09 09 69 6e 69  ex = NULL;...ini
12d0: 74 61 72 67 73 2e 44 65 73 74 72 6f 79 4d 75 74  targs.DestroyMut
12e0: 65 78 20 3d 20 4e 55 4c 4c 3b 0a 09 09 69 6e 69  ex = NULL;...ini
12f0: 74 61 72 67 73 2e 4c 6f 63 6b 4d 75 74 65 78 20  targs.LockMutex 
1300: 3d 20 4e 55 4c 4c 3b 0a 09 09 69 6e 69 74 61 72  = NULL;...initar
1310: 67 73 2e 55 6e 6c 6f 63 6b 4d 75 74 65 78 20 3d  gs.UnlockMutex =
1320: 20 4e 55 4c 4c 3b 0a 09 09 69 6e 69 74 61 72 67   NULL;...initarg
1330: 73 2e 66 6c 61 67 73 20 3d 20 30 3b 0a 09 09 69  s.flags = 0;...i
1340: 6e 69 74 61 72 67 73 2e 70 52 65 73 65 72 76 65  nitargs.pReserve
1350: 64 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 09 63 68 6b  d = NULL;....chk
1360: 5f 72 76 20 3d 20 43 5f 49 6e 69 74 69 61 6c 69  _rv = C_Initiali
1370: 7a 65 28 26 69 6e 69 74 61 72 67 73 29 3b 0a 09  ze(&initargs);..
1380: 09 69 66 20 28 63 68 6b 5f 72 76 20 21 3d 20 43  .if (chk_rv != C
1390: 4b 52 5f 4f 4b 29 20 7b 0a 09 09 09 70 72 69 6e  KR_OK) {....prin
13a0: 74 66 28 22 43 5f 49 6e 69 74 69 61 6c 69 7a 65  tf("C_Initialize
13b0: 28 29 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09  () failed.");...
13c0: 09 09 72 65 74 75 72 6e 28 31 29 3b 0a 09 09 7d  ..return(1);...}
13d0: 0a 09 7d 0a 0a 09 63 68 6b 5f 72 76 20 3d 20 43  ..}...chk_rv = C
13e0: 5f 47 65 74 49 6e 66 6f 28 26 63 6c 69 65 6e 74  _GetInfo(&client
13f0: 69 6e 66 6f 29 3b 0a 09 69 66 20 28 63 68 6b 5f  info);..if (chk_
1400: 72 76 20 21 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a  rv != CKR_OK) {.
1410: 09 09 72 65 74 75 72 6e 28 31 29 3b 0a 09 7d 0a  ..return(1);..}.
1420: 0a 09 70 72 69 6e 74 66 28 22 50 4b 43 53 23 31  ..printf("PKCS#1
1430: 31 20 43 6c 69 65 6e 74 20 56 65 72 73 69 6f 6e  1 Client Version
1440: 3a 20 25 69 2e 25 69 2c 20 4c 69 62 72 61 72 79  : %i.%i, Library
1450: 20 56 65 72 73 69 6f 6e 20 25 69 2e 25 69 5c 6e   Version %i.%i\n
1460: 22 2c 20 63 6c 69 65 6e 74 69 6e 66 6f 2e 63 72  ", clientinfo.cr
1470: 79 70 74 6f 6b 69 56 65 72 73 69 6f 6e 2e 6d 61  yptokiVersion.ma
1480: 6a 6f 72 2c 20 63 6c 69 65 6e 74 69 6e 66 6f 2e  jor, clientinfo.
1490: 63 72 79 70 74 6f 6b 69 56 65 72 73 69 6f 6e 2e  cryptokiVersion.
14a0: 6d 69 6e 6f 72 2c 20 63 6c 69 65 6e 74 69 6e 66  minor, clientinf
14b0: 6f 2e 6c 69 62 72 61 72 79 56 65 72 73 69 6f 6e  o.libraryVersion
14c0: 2e 6d 61 6a 6f 72 2c 20 63 6c 69 65 6e 74 69 6e  .major, clientin
14d0: 66 6f 2e 6c 69 62 72 61 72 79 56 65 72 73 69 6f  fo.libraryVersio
14e0: 6e 2e 6d 69 6e 6f 72 29 3b 0a 09 70 72 69 6e 74  n.minor);..print
14f0: 66 28 22 50 4b 43 53 23 31 31 20 4d 61 6e 75 66  f("PKCS#11 Manuf
1500: 49 44 3a 20 25 2e 2a 73 2c 20 4c 69 62 72 61 72  ID: %.*s, Librar
1510: 79 44 65 73 63 3a 20 25 2e 2a 73 5c 6e 22 2c 20  yDesc: %.*s\n", 
1520: 33 32 2c 20 63 6c 69 65 6e 74 69 6e 66 6f 2e 6d  32, clientinfo.m
1530: 61 6e 75 66 61 63 74 75 72 65 72 49 44 2c 20 33  anufacturerID, 3
1540: 32 2c 20 63 6c 69 65 6e 74 69 6e 66 6f 2e 6c 69  2, clientinfo.li
1550: 62 72 61 72 79 44 65 73 63 72 69 70 74 69 6f 6e  braryDescription
1560: 29 3b 0a 0a 09 63 68 6b 5f 72 76 20 3d 20 43 5f  );...chk_rv = C_
1570: 47 65 74 53 6c 6f 74 4c 69 73 74 28 46 41 4c 53  GetSlotList(FALS
1580: 45 2c 20 4e 55 4c 4c 2c 20 26 6e 75 6d 53 6c 6f  E, NULL, &numSlo
1590: 74 73 29 3b 0a 09 69 66 20 28 63 68 6b 5f 72 76  ts);..if (chk_rv
15a0: 20 21 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a 09 09   != CKR_OK) {...
15b0: 72 65 74 75 72 6e 28 31 29 3b 0a 09 7d 0a 0a 09  return(1);..}...
15c0: 70 72 69 6e 74 66 28 22 4e 75 6d 62 65 72 20 6f  printf("Number o
15d0: 66 20 53 6c 6f 74 73 3a 20 25 6c 75 5c 6e 22 2c  f Slots: %lu\n",
15e0: 20 6e 75 6d 53 6c 6f 74 73 29 3b 0a 0a 09 73 6c   numSlots);...sl
15f0: 6f 74 73 20 3d 20 6d 61 6c 6c 6f 63 28 73 69 7a  ots = malloc(siz
1600: 65 6f 66 28 2a 73 6c 6f 74 73 29 20 2a 20 6e 75  eof(*slots) * nu
1610: 6d 53 6c 6f 74 73 29 3b 0a 0a 09 63 68 6b 5f 72  mSlots);...chk_r
1620: 76 20 3d 20 43 5f 47 65 74 53 6c 6f 74 4c 69 73  v = C_GetSlotLis
1630: 74 28 46 41 4c 53 45 2c 20 73 6c 6f 74 73 2c 20  t(FALSE, slots, 
1640: 26 6e 75 6d 53 6c 6f 74 73 29 3b 0a 09 69 66 20  &numSlots);..if 
1650: 28 63 68 6b 5f 72 76 20 21 3d 20 43 4b 52 5f 4f  (chk_rv != CKR_O
1660: 4b 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 31 29  K) {...return(1)
1670: 3b 0a 09 7d 0a 0a 09 66 6f 72 20 28 63 75 72 72  ;..}...for (curr
1680: 53 6c 6f 74 20 3d 20 30 3b 20 63 75 72 72 53 6c  Slot = 0; currSl
1690: 6f 74 20 3c 20 6e 75 6d 53 6c 6f 74 73 3b 20 63  ot < numSlots; c
16a0: 75 72 72 53 6c 6f 74 2b 2b 29 20 7b 0a 09 09 70  urrSlot++) {...p
16b0: 72 69 6e 74 66 28 22 20 20 53 6c 6f 74 20 25 6c  rintf("  Slot %l
16c0: 75 3a 5c 6e 22 2c 20 63 75 72 72 53 6c 6f 74 29  u:\n", currSlot)
16d0: 3b 0a 0a 09 09 63 68 6b 5f 72 76 20 3d 20 43 5f  ;....chk_rv = C_
16e0: 47 65 74 53 6c 6f 74 49 6e 66 6f 28 73 6c 6f 74  GetSlotInfo(slot
16f0: 73 5b 63 75 72 72 53 6c 6f 74 5d 2c 20 26 73 6c  s[currSlot], &sl
1700: 6f 74 49 6e 66 6f 29 3b 0a 09 09 69 66 20 28 63  otInfo);...if (c
1710: 68 6b 5f 72 76 20 21 3d 20 43 4b 52 5f 4f 4b 29  hk_rv != CKR_OK)
1720: 20 7b 0a 09 09 09 72 65 74 75 72 6e 28 31 29 3b   {....return(1);
1730: 0a 09 09 7d 0a 0a 09 09 70 72 69 6e 74 66 28 22  ...}....printf("
1740: 20 20 20 20 44 65 73 63 20 20 20 3a 20 25 2e 2a      Desc   : %.*
1750: 73 5c 6e 22 2c 20 33 32 2c 20 73 6c 6f 74 49 6e  s\n", 32, slotIn
1760: 66 6f 2e 73 6c 6f 74 44 65 73 63 72 69 70 74 69  fo.slotDescripti
1770: 6f 6e 29 3b 0a 09 09 70 72 69 6e 74 66 28 22 20  on);...printf(" 
1780: 20 20 20 4d 61 6e 75 66 49 44 3a 20 25 2e 2a 73     ManufID: %.*s
1790: 5c 6e 22 2c 20 33 32 2c 20 73 6c 6f 74 49 6e 66  \n", 32, slotInf
17a0: 6f 2e 6d 61 6e 75 66 61 63 74 75 72 65 72 49 44  o.manufacturerID
17b0: 29 3b 0a 09 09 70 72 69 6e 74 66 28 22 20 20 20  );...printf("   
17c0: 20 48 57 56 65 72 73 20 3a 20 25 69 2e 25 69 5c   HWVers : %i.%i\
17d0: 6e 22 2c 20 73 6c 6f 74 49 6e 66 6f 2e 68 61 72  n", slotInfo.har
17e0: 64 77 61 72 65 56 65 72 73 69 6f 6e 2e 6d 61 6a  dwareVersion.maj
17f0: 6f 72 2c 20 73 6c 6f 74 49 6e 66 6f 2e 68 61 72  or, slotInfo.har
1800: 64 77 61 72 65 56 65 72 73 69 6f 6e 2e 6d 69 6e  dwareVersion.min
1810: 6f 72 29 3b 0a 09 09 70 72 69 6e 74 66 28 22 20  or);...printf(" 
1820: 20 20 20 46 57 56 65 72 73 20 3a 20 25 69 2e 25     FWVers : %i.%
1830: 69 5c 6e 22 2c 20 73 6c 6f 74 49 6e 66 6f 2e 66  i\n", slotInfo.f
1840: 69 72 6d 77 61 72 65 56 65 72 73 69 6f 6e 2e 6d  irmwareVersion.m
1850: 61 6a 6f 72 2c 20 73 6c 6f 74 49 6e 66 6f 2e 66  ajor, slotInfo.f
1860: 69 72 6d 77 61 72 65 56 65 72 73 69 6f 6e 2e 6d  irmwareVersion.m
1870: 69 6e 6f 72 29 3b 0a 09 09 70 72 69 6e 74 66 28  inor);...printf(
1880: 22 20 20 20 20 46 6c 61 67 73 20 20 3a 20 22 29  "    Flags  : ")
1890: 3b 0a 09 09 69 66 20 28 28 73 6c 6f 74 49 6e 66  ;...if ((slotInf
18a0: 6f 2e 66 6c 61 67 73 20 26 20 43 4b 46 5f 54 4f  o.flags & CKF_TO
18b0: 4b 45 4e 5f 50 52 45 53 45 4e 54 29 20 3d 3d 20  KEN_PRESENT) == 
18c0: 43 4b 46 5f 54 4f 4b 45 4e 5f 50 52 45 53 45 4e  CKF_TOKEN_PRESEN
18d0: 54 29 20 7b 0a 09 09 09 70 72 69 6e 74 66 28 22  T) {....printf("
18e0: 43 4b 46 5f 54 4f 4b 45 4e 5f 50 52 45 53 45 4e  CKF_TOKEN_PRESEN
18f0: 54 20 22 29 3b 0a 09 09 7d 0a 09 09 69 66 20 28  T ");...}...if (
1900: 28 73 6c 6f 74 49 6e 66 6f 2e 66 6c 61 67 73 20  (slotInfo.flags 
1910: 26 20 43 4b 46 5f 52 45 4d 4f 56 41 42 4c 45 5f  & CKF_REMOVABLE_
1920: 44 45 56 49 43 45 29 20 3d 3d 20 43 4b 46 5f 52  DEVICE) == CKF_R
1930: 45 4d 4f 56 41 42 4c 45 5f 44 45 56 49 43 45 29  EMOVABLE_DEVICE)
1940: 20 7b 0a 09 09 09 70 72 69 6e 74 66 28 22 43 4b   {....printf("CK
1950: 46 5f 52 45 4d 4f 56 41 42 4c 45 5f 44 45 56 49  F_REMOVABLE_DEVI
1960: 43 45 20 22 29 3b 0a 09 09 7d 0a 09 09 69 66 20  CE ");...}...if 
1970: 28 28 73 6c 6f 74 49 6e 66 6f 2e 66 6c 61 67 73  ((slotInfo.flags
1980: 20 26 20 43 4b 46 5f 48 57 5f 53 4c 4f 54 29 20   & CKF_HW_SLOT) 
1990: 3d 3d 20 43 4b 46 5f 48 57 5f 53 4c 4f 54 29 20  == CKF_HW_SLOT) 
19a0: 7b 0a 09 09 09 70 72 69 6e 74 66 28 22 43 4b 46  {....printf("CKF
19b0: 5f 48 57 5f 53 4c 4f 54 20 22 29 3b 0a 09 09 7d  _HW_SLOT ");...}
19c0: 0a 09 09 70 72 69 6e 74 66 28 22 5c 6e 22 29 3b  ...printf("\n");
19d0: 0a 0a 09 09 69 66 20 28 28 73 6c 6f 74 49 6e 66  ....if ((slotInf
19e0: 6f 2e 66 6c 61 67 73 20 26 20 43 4b 46 5f 54 4f  o.flags & CKF_TO
19f0: 4b 45 4e 5f 50 52 45 53 45 4e 54 29 20 3d 3d 20  KEN_PRESENT) == 
1a00: 43 4b 46 5f 54 4f 4b 45 4e 5f 50 52 45 53 45 4e  CKF_TOKEN_PRESEN
1a10: 54 29 20 7b 0a 09 09 09 70 72 69 6e 74 66 28 22  T) {....printf("
1a20: 20 20 20 20 54 6f 6b 65 6e 3a 5c 6e 22 29 3b 0a      Token:\n");.
1a30: 0a 09 09 09 63 68 6b 5f 72 76 20 3d 20 43 5f 47  ....chk_rv = C_G
1a40: 65 74 54 6f 6b 65 6e 49 6e 66 6f 28 73 6c 6f 74  etTokenInfo(slot
1a50: 73 5b 63 75 72 72 53 6c 6f 74 5d 2c 20 26 74 6f  s[currSlot], &to
1a60: 6b 65 6e 49 6e 66 6f 29 3b 0a 09 09 09 69 66 20  kenInfo);....if 
1a70: 28 63 68 6b 5f 72 76 20 21 3d 20 43 4b 52 5f 4f  (chk_rv != CKR_O
1a80: 4b 29 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 28  K) {.....return(
1a90: 31 29 3b 0a 09 09 09 7d 0a 0a 09 09 09 70 72 69  1);....}.....pri
1aa0: 6e 74 66 28 22 20 20 20 20 20 20 4c 61 62 65 6c  ntf("      Label
1ab0: 20 20 3a 20 25 2e 2a 73 5c 6e 22 2c 20 33 32 2c    : %.*s\n", 32,
1ac0: 20 74 6f 6b 65 6e 49 6e 66 6f 2e 6c 61 62 65 6c   tokenInfo.label
1ad0: 29 3b 0a 09 09 09 70 72 69 6e 74 66 28 22 20 20  );....printf("  
1ae0: 20 20 20 20 4d 61 6e 75 66 49 44 3a 20 25 2e 2a      ManufID: %.*
1af0: 73 5c 6e 22 2c 20 33 32 2c 20 74 6f 6b 65 6e 49  s\n", 32, tokenI
1b00: 6e 66 6f 2e 6d 61 6e 75 66 61 63 74 75 72 65 72  nfo.manufacturer
1b10: 49 44 29 3b 0a 09 09 09 70 72 69 6e 74 66 28 22  ID);....printf("
1b20: 20 20 20 20 20 20 4d 6f 64 65 6c 20 20 3a 20 25        Model  : %
1b30: 2e 2a 73 5c 6e 22 2c 20 31 36 2c 20 74 6f 6b 65  .*s\n", 16, toke
1b40: 6e 49 6e 66 6f 2e 6d 6f 64 65 6c 29 3b 0a 09 09  nInfo.model);...
1b50: 09 70 72 69 6e 74 66 28 22 20 20 20 20 20 20 53  .printf("      S
1b60: 65 72 4e 6f 20 20 3a 20 25 2e 2a 73 5c 6e 22 2c  erNo  : %.*s\n",
1b70: 20 31 36 2c 20 74 6f 6b 65 6e 49 6e 66 6f 2e 73   16, tokenInfo.s
1b80: 65 72 69 61 6c 4e 75 6d 62 65 72 29 3b 0a 09 09  erialNumber);...
1b90: 09 70 72 69 6e 74 66 28 22 20 20 20 20 20 20 48  .printf("      H
1ba0: 57 56 65 72 73 20 3a 20 25 69 2e 25 69 5c 6e 22  WVers : %i.%i\n"
1bb0: 2c 20 74 6f 6b 65 6e 49 6e 66 6f 2e 68 61 72 64  , tokenInfo.hard
1bc0: 77 61 72 65 56 65 72 73 69 6f 6e 2e 6d 61 6a 6f  wareVersion.majo
1bd0: 72 2c 20 74 6f 6b 65 6e 49 6e 66 6f 2e 68 61 72  r, tokenInfo.har
1be0: 64 77 61 72 65 56 65 72 73 69 6f 6e 2e 6d 69 6e  dwareVersion.min
1bf0: 6f 72 29 3b 0a 09 09 09 70 72 69 6e 74 66 28 22  or);....printf("
1c00: 20 20 20 20 20 20 46 57 56 65 72 73 20 3a 20 25        FWVers : %
1c10: 69 2e 25 69 5c 6e 22 2c 20 74 6f 6b 65 6e 49 6e  i.%i\n", tokenIn
1c20: 66 6f 2e 66 69 72 6d 77 61 72 65 56 65 72 73 69  fo.firmwareVersi
1c30: 6f 6e 2e 6d 61 6a 6f 72 2c 20 74 6f 6b 65 6e 49  on.major, tokenI
1c40: 6e 66 6f 2e 66 69 72 6d 77 61 72 65 56 65 72 73  nfo.firmwareVers
1c50: 69 6f 6e 2e 6d 69 6e 6f 72 29 3b 0a 09 09 09 70  ion.minor);....p
1c60: 72 69 6e 74 66 28 22 20 20 20 20 20 20 46 6c 61  rintf("      Fla
1c70: 67 73 20 20 3a 20 22 29 3b 0a 09 09 09 69 66 20  gs  : ");....if 
1c80: 28 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67  ((tokenInfo.flag
1c90: 73 20 26 20 43 4b 46 5f 52 4e 47 29 20 3d 3d 20  s & CKF_RNG) == 
1ca0: 43 4b 46 5f 52 4e 47 29 20 7b 0a 09 09 09 09 70  CKF_RNG) {.....p
1cb0: 72 69 6e 74 66 28 22 43 4b 46 5f 52 4e 47 20 22  rintf("CKF_RNG "
1cc0: 29 3b 0a 09 09 09 7d 0a 09 09 09 69 66 20 28 28  );....}....if ((
1cd0: 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67 73 20  tokenInfo.flags 
1ce0: 26 20 43 4b 46 5f 57 52 49 54 45 5f 50 52 4f 54  & CKF_WRITE_PROT
1cf0: 45 43 54 45 44 29 20 3d 3d 20 43 4b 46 5f 57 52  ECTED) == CKF_WR
1d00: 49 54 45 5f 50 52 4f 54 45 43 54 45 44 29 20 7b  ITE_PROTECTED) {
1d10: 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43 4b 46  .....printf("CKF
1d20: 5f 57 52 49 54 45 5f 50 52 4f 54 45 43 54 45 44  _WRITE_PROTECTED
1d30: 20 22 29 3b 0a 09 09 09 7d 0a 09 09 09 69 66 20   ");....}....if 
1d40: 28 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67  ((tokenInfo.flag
1d50: 73 20 26 20 43 4b 46 5f 4c 4f 47 49 4e 5f 52 45  s & CKF_LOGIN_RE
1d60: 51 55 49 52 45 44 29 20 3d 3d 20 43 4b 46 5f 4c  QUIRED) == CKF_L
1d70: 4f 47 49 4e 5f 52 45 51 55 49 52 45 44 29 20 7b  OGIN_REQUIRED) {
1d80: 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43 4b 46  .....printf("CKF
1d90: 5f 4c 4f 47 49 4e 5f 52 45 51 55 49 52 45 44 20  _LOGIN_REQUIRED 
1da0: 22 29 3b 0a 09 09 09 7d 0a 09 09 09 69 66 20 28  ");....}....if (
1db0: 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67 73  (tokenInfo.flags
1dc0: 20 26 20 43 4b 46 5f 55 53 45 52 5f 50 49 4e 5f   & CKF_USER_PIN_
1dd0: 49 4e 49 54 49 41 4c 49 5a 45 44 29 20 3d 3d 20  INITIALIZED) == 
1de0: 43 4b 46 5f 55 53 45 52 5f 50 49 4e 5f 49 4e 49  CKF_USER_PIN_INI
1df0: 54 49 41 4c 49 5a 45 44 29 20 7b 0a 09 09 09 09  TIALIZED) {.....
1e00: 70 72 69 6e 74 66 28 22 43 4b 46 5f 55 53 45 52  printf("CKF_USER
1e10: 5f 50 49 4e 5f 49 4e 49 54 49 41 4c 49 5a 45 44  _PIN_INITIALIZED
1e20: 20 22 29 3b 0a 09 09 09 7d 0a 09 09 09 69 66 20   ");....}....if 
1e30: 28 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67  ((tokenInfo.flag
1e40: 73 20 26 20 43 4b 46 5f 52 45 53 54 4f 52 45 5f  s & CKF_RESTORE_
1e50: 4b 45 59 5f 4e 4f 54 5f 4e 45 45 44 45 44 29 20  KEY_NOT_NEEDED) 
1e60: 3d 3d 20 43 4b 46 5f 52 45 53 54 4f 52 45 5f 4b  == CKF_RESTORE_K
1e70: 45 59 5f 4e 4f 54 5f 4e 45 45 44 45 44 29 20 7b  EY_NOT_NEEDED) {
1e80: 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43 4b 46  .....printf("CKF
1e90: 5f 52 45 53 54 4f 52 45 5f 4b 45 59 5f 4e 4f 54  _RESTORE_KEY_NOT
1ea0: 5f 4e 45 45 44 45 44 20 22 29 3b 0a 09 09 09 7d  _NEEDED ");....}
1eb0: 0a 09 09 09 69 66 20 28 28 74 6f 6b 65 6e 49 6e  ....if ((tokenIn
1ec0: 66 6f 2e 66 6c 61 67 73 20 26 20 43 4b 46 5f 43  fo.flags & CKF_C
1ed0: 4c 4f 43 4b 5f 4f 4e 5f 54 4f 4b 45 4e 29 20 3d  LOCK_ON_TOKEN) =
1ee0: 3d 20 43 4b 46 5f 43 4c 4f 43 4b 5f 4f 4e 5f 54  = CKF_CLOCK_ON_T
1ef0: 4f 4b 45 4e 29 20 7b 0a 09 09 09 09 70 72 69 6e  OKEN) {.....prin
1f00: 74 66 28 22 43 4b 46 5f 43 4c 4f 43 4b 5f 4f 4e  tf("CKF_CLOCK_ON
1f10: 5f 54 4f 4b 45 4e 20 22 29 3b 0a 09 09 09 7d 0a  _TOKEN ");....}.
1f20: 09 09 09 69 66 20 28 28 74 6f 6b 65 6e 49 6e 66  ...if ((tokenInf
1f30: 6f 2e 66 6c 61 67 73 20 26 20 43 4b 46 5f 50 52  o.flags & CKF_PR
1f40: 4f 54 45 43 54 45 44 5f 41 55 54 48 45 4e 54 49  OTECTED_AUTHENTI
1f50: 43 41 54 49 4f 4e 5f 50 41 54 48 29 20 3d 3d 20  CATION_PATH) == 
1f60: 43 4b 46 5f 50 52 4f 54 45 43 54 45 44 5f 41 55  CKF_PROTECTED_AU
1f70: 54 48 45 4e 54 49 43 41 54 49 4f 4e 5f 50 41 54  THENTICATION_PAT
1f80: 48 29 20 7b 0a 09 09 09 09 70 72 69 6e 74 66 28  H) {.....printf(
1f90: 22 43 4b 46 5f 50 52 4f 54 45 43 54 45 44 5f 41  "CKF_PROTECTED_A
1fa0: 55 54 48 45 4e 54 49 43 41 54 49 4f 4e 5f 50 41  UTHENTICATION_PA
1fb0: 54 48 20 22 29 3b 0a 09 09 09 7d 0a 09 09 09 69  TH ");....}....i
1fc0: 66 20 28 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c  f ((tokenInfo.fl
1fd0: 61 67 73 20 26 20 43 4b 46 5f 44 55 41 4c 5f 43  ags & CKF_DUAL_C
1fe0: 52 59 50 54 4f 5f 4f 50 45 52 41 54 49 4f 4e 53  RYPTO_OPERATIONS
1ff0: 29 20 3d 3d 20 43 4b 46 5f 44 55 41 4c 5f 43 52  ) == CKF_DUAL_CR
2000: 59 50 54 4f 5f 4f 50 45 52 41 54 49 4f 4e 53 29  YPTO_OPERATIONS)
2010: 20 7b 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43   {.....printf("C
2020: 4b 46 5f 44 55 41 4c 5f 43 52 59 50 54 4f 5f 4f  KF_DUAL_CRYPTO_O
2030: 50 45 52 41 54 49 4f 4e 53 20 22 29 3b 0a 09 09  PERATIONS ");...
2040: 09 7d 0a 09 09 09 69 66 20 28 28 74 6f 6b 65 6e  .}....if ((token
2050: 49 6e 66 6f 2e 66 6c 61 67 73 20 26 20 43 4b 46  Info.flags & CKF
2060: 5f 54 4f 4b 45 4e 5f 49 4e 49 54 49 41 4c 49 5a  _TOKEN_INITIALIZ
2070: 45 44 29 20 3d 3d 20 43 4b 46 5f 54 4f 4b 45 4e  ED) == CKF_TOKEN
2080: 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 20 7b 0a  _INITIALIZED) {.
2090: 09 09 09 09 70 72 69 6e 74 66 28 22 43 4b 46 5f  ....printf("CKF_
20a0: 54 4f 4b 45 4e 5f 49 4e 49 54 49 41 4c 49 5a 45  TOKEN_INITIALIZE
20b0: 44 20 22 29 3b 0a 09 09 09 7d 0a 09 09 09 69 66  D ");....}....if
20c0: 20 28 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c 61   ((tokenInfo.fla
20d0: 67 73 20 26 20 43 4b 46 5f 53 45 43 4f 4e 44 41  gs & CKF_SECONDA
20e0: 52 59 5f 41 55 54 48 45 4e 54 49 43 41 54 49 4f  RY_AUTHENTICATIO
20f0: 4e 29 20 3d 3d 20 43 4b 46 5f 53 45 43 4f 4e 44  N) == CKF_SECOND
2100: 41 52 59 5f 41 55 54 48 45 4e 54 49 43 41 54 49  ARY_AUTHENTICATI
2110: 4f 4e 29 20 7b 0a 09 09 09 09 70 72 69 6e 74 66  ON) {.....printf
2120: 28 22 43 4b 46 5f 53 45 43 4f 4e 44 41 52 59 5f  ("CKF_SECONDARY_
2130: 41 55 54 48 45 4e 54 49 43 41 54 49 4f 4e 20 22  AUTHENTICATION "
2140: 29 3b 0a 09 09 09 7d 0a 09 09 09 69 66 20 28 28  );....}....if ((
2150: 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67 73 20  tokenInfo.flags 
2160: 26 20 43 4b 46 5f 55 53 45 52 5f 50 49 4e 5f 43  & CKF_USER_PIN_C
2170: 4f 55 4e 54 5f 4c 4f 57 29 20 3d 3d 20 43 4b 46  OUNT_LOW) == CKF
2180: 5f 55 53 45 52 5f 50 49 4e 5f 43 4f 55 4e 54 5f  _USER_PIN_COUNT_
2190: 4c 4f 57 29 20 7b 0a 09 09 09 09 70 72 69 6e 74  LOW) {.....print
21a0: 66 28 22 43 4b 46 5f 55 53 45 52 5f 50 49 4e 5f  f("CKF_USER_PIN_
21b0: 43 4f 55 4e 54 5f 4c 4f 57 20 22 29 3b 0a 09 09  COUNT_LOW ");...
21c0: 09 7d 0a 09 09 09 69 66 20 28 28 74 6f 6b 65 6e  .}....if ((token
21d0: 49 6e 66 6f 2e 66 6c 61 67 73 20 26 20 43 4b 46  Info.flags & CKF
21e0: 5f 55 53 45 52 5f 50 49 4e 5f 46 49 4e 41 4c 5f  _USER_PIN_FINAL_
21f0: 54 52 59 29 20 3d 3d 20 43 4b 46 5f 55 53 45 52  TRY) == CKF_USER
2200: 5f 50 49 4e 5f 46 49 4e 41 4c 5f 54 52 59 29 20  _PIN_FINAL_TRY) 
2210: 7b 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43 4b  {.....printf("CK
2220: 46 5f 55 53 45 52 5f 50 49 4e 5f 46 49 4e 41 4c  F_USER_PIN_FINAL
2230: 5f 54 52 59 20 22 29 3b 0a 09 09 09 7d 0a 09 09  _TRY ");....}...
2240: 09 69 66 20 28 28 74 6f 6b 65 6e 49 6e 66 6f 2e  .if ((tokenInfo.
2250: 66 6c 61 67 73 20 26 20 43 4b 46 5f 55 53 45 52  flags & CKF_USER
2260: 5f 50 49 4e 5f 4c 4f 43 4b 45 44 29 20 3d 3d 20  _PIN_LOCKED) == 
2270: 43 4b 46 5f 55 53 45 52 5f 50 49 4e 5f 4c 4f 43  CKF_USER_PIN_LOC
2280: 4b 45 44 29 20 7b 0a 09 09 09 09 70 72 69 6e 74  KED) {.....print
2290: 66 28 22 43 4b 46 5f 55 53 45 52 5f 50 49 4e 5f  f("CKF_USER_PIN_
22a0: 4c 4f 43 4b 45 44 20 22 29 3b 0a 09 09 09 7d 0a  LOCKED ");....}.
22b0: 09 09 09 69 66 20 28 28 74 6f 6b 65 6e 49 6e 66  ...if ((tokenInf
22c0: 6f 2e 66 6c 61 67 73 20 26 20 43 4b 46 5f 55 53  o.flags & CKF_US
22d0: 45 52 5f 50 49 4e 5f 54 4f 5f 42 45 5f 43 48 41  ER_PIN_TO_BE_CHA
22e0: 4e 47 45 44 29 20 3d 3d 20 43 4b 46 5f 55 53 45  NGED) == CKF_USE
22f0: 52 5f 50 49 4e 5f 54 4f 5f 42 45 5f 43 48 41 4e  R_PIN_TO_BE_CHAN
2300: 47 45 44 29 20 7b 0a 09 09 09 09 70 72 69 6e 74  GED) {.....print
2310: 66 28 22 43 4b 46 5f 55 53 45 52 5f 50 49 4e 5f  f("CKF_USER_PIN_
2320: 54 4f 5f 42 45 5f 43 48 41 4e 47 45 44 20 22 29  TO_BE_CHANGED ")
2330: 3b 0a 09 09 09 7d 0a 09 09 09 69 66 20 28 28 74  ;....}....if ((t
2340: 6f 6b 65 6e 49 6e 66 6f 2e 66 6c 61 67 73 20 26  okenInfo.flags &
2350: 20 43 4b 46 5f 53 4f 5f 50 49 4e 5f 43 4f 55 4e   CKF_SO_PIN_COUN
2360: 54 5f 4c 4f 57 29 20 3d 3d 20 43 4b 46 5f 53 4f  T_LOW) == CKF_SO
2370: 5f 50 49 4e 5f 43 4f 55 4e 54 5f 4c 4f 57 29 20  _PIN_COUNT_LOW) 
2380: 7b 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43 4b  {.....printf("CK
2390: 46 5f 53 4f 5f 50 49 4e 5f 43 4f 55 4e 54 5f 4c  F_SO_PIN_COUNT_L
23a0: 4f 57 20 22 29 3b 0a 09 09 09 7d 0a 09 09 09 69  OW ");....}....i
23b0: 66 20 28 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66 6c  f ((tokenInfo.fl
23c0: 61 67 73 20 26 20 43 4b 46 5f 53 4f 5f 50 49 4e  ags & CKF_SO_PIN
23d0: 5f 46 49 4e 41 4c 5f 54 52 59 29 20 3d 3d 20 43  _FINAL_TRY) == 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 29 20 7b 0a 09 09 09 09 70 72 69 6e 74  TRY) {.....print
2400: 66 28 22 43 4b 46 5f 53 4f 5f 50 49 4e 5f 46 49  f("CKF_SO_PIN_FI
2410: 4e 41 4c 5f 54 52 59 20 22 29 3b 0a 09 09 09 7d  NAL_TRY ");....}
2420: 0a 09 09 09 69 66 20 28 28 74 6f 6b 65 6e 49 6e  ....if ((tokenIn
2430: 66 6f 2e 66 6c 61 67 73 20 26 20 43 4b 46 5f 53  fo.flags & CKF_S
2440: 4f 5f 50 49 4e 5f 4c 4f 43 4b 45 44 29 20 3d 3d  O_PIN_LOCKED) ==
2450: 20 43 4b 46 5f 53 4f 5f 50 49 4e 5f 4c 4f 43 4b   CKF_SO_PIN_LOCK
2460: 45 44 29 20 7b 0a 09 09 09 09 70 72 69 6e 74 66  ED) {.....printf
2470: 28 22 43 4b 46 5f 53 4f 5f 50 49 4e 5f 4c 4f 43  ("CKF_SO_PIN_LOC
2480: 4b 45 44 20 22 29 3b 0a 09 09 09 7d 0a 09 09 09  KED ");....}....
2490: 69 66 20 28 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66  if ((tokenInfo.f
24a0: 6c 61 67 73 20 26 20 43 4b 46 5f 53 4f 5f 50 49  lags & CKF_SO_PI
24b0: 4e 5f 54 4f 5f 42 45 5f 43 48 41 4e 47 45 44 29  N_TO_BE_CHANGED)
24c0: 20 3d 3d 20 43 4b 46 5f 53 4f 5f 50 49 4e 5f 54   == CKF_SO_PIN_T
24d0: 4f 5f 42 45 5f 43 48 41 4e 47 45 44 29 20 7b 0a  O_BE_CHANGED) {.
24e0: 09 09 09 09 70 72 69 6e 74 66 28 22 43 4b 46 5f  ....printf("CKF_
24f0: 53 4f 5f 50 49 4e 5f 54 4f 5f 42 45 5f 43 48 41  SO_PIN_TO_BE_CHA
2500: 4e 47 45 44 20 22 29 3b 0a 09 09 09 7d 0a 09 09  NGED ");....}...
2510: 09 70 72 69 6e 74 66 28 22 5c 6e 22 29 3b 0a 09  .printf("\n");..
2520: 09 7d 0a 09 7d 0a 0a 09 63 68 6b 5f 72 76 20 3d  .}..}...chk_rv =
2530: 20 43 5f 4f 70 65 6e 53 65 73 73 69 6f 6e 28 73   C_OpenSession(s
2540: 6c 6f 74 73 5b 30 5d 2c 20 43 4b 46 5f 53 45 52  lots[0], CKF_SER
2550: 49 41 4c 5f 53 45 53 53 49 4f 4e 2c 20 4e 55 4c  IAL_SESSION, NUL
2560: 4c 2c 20 4e 55 4c 4c 2c 20 26 68 53 65 73 73 69  L, NULL, &hSessi
2570: 6f 6e 29 3b 0a 09 69 66 20 28 63 68 6b 5f 72 76  on);..if (chk_rv
2580: 20 3d 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a 09 09   == CKR_OK) {...
2590: 69 66 20 28 28 74 6f 6b 65 6e 49 6e 66 6f 2e 66  if ((tokenInfo.f
25a0: 6c 61 67 73 20 26 20 43 4b 46 5f 4c 4f 47 49 4e  lags & CKF_LOGIN
25b0: 5f 52 45 51 55 49 52 45 44 29 20 3d 3d 20 43 4b  _REQUIRED) == CK
25c0: 46 5f 4c 4f 47 49 4e 5f 52 45 51 55 49 52 45 44  F_LOGIN_REQUIRED
25d0: 29 20 7b 0a 09 09 09 66 67 65 74 73 5f 72 65 74  ) {....fgets_ret
25e0: 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 09 09 77 68 69   = NULL;.....whi
25f0: 6c 65 20 28 66 67 65 74 73 5f 72 65 74 20 3d 3d  le (fgets_ret ==
2600: 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 09 70 72 69   NULL) {.....pri
2610: 6e 74 66 28 22 2a 2a 20 45 4e 54 45 52 20 50 49  ntf("** ENTER PI
2620: 4e 3a 20 22 29 3b 0a 09 09 09 09 66 66 6c 75 73  N: ");.....fflus
2630: 68 28 73 74 64 6f 75 74 29 3b 0a 0a 09 09 09 09  h(stdout);......
2640: 66 67 65 74 73 5f 72 65 74 20 3d 20 66 67 65 74  fgets_ret = fget
2650: 73 28 28 63 68 61 72 20 2a 29 20 75 73 65 72 5f  s((char *) user_
2660: 70 69 6e 2c 20 73 69 7a 65 6f 66 28 75 73 65 72  pin, sizeof(user
2670: 5f 70 69 6e 29 2c 20 73 74 64 69 6e 29 3b 0a 09  _pin), stdin);..
2680: 09 09 7d 0a 0a 09 09 09 69 66 20 28 73 74 72 6c  ..}.....if (strl
2690: 65 6e 28 28 63 68 61 72 20 2a 29 20 75 73 65 72  en((char *) user
26a0: 5f 70 69 6e 29 20 3e 3d 20 31 29 20 7b 0a 09 09  _pin) >= 1) {...
26b0: 09 09 77 68 69 6c 65 20 28 75 73 65 72 5f 70 69  ..while (user_pi
26c0: 6e 5b 73 74 72 6c 65 6e 28 28 63 68 61 72 20 2a  n[strlen((char *
26d0: 29 20 75 73 65 72 5f 70 69 6e 29 20 2d 20 31 5d  ) user_pin) - 1]
26e0: 20 3c 20 27 20 27 29 20 7b 0a 09 09 09 09 09 75   < ' ') {......u
26f0: 73 65 72 5f 70 69 6e 5b 73 74 72 6c 65 6e 28 28  ser_pin[strlen((
2700: 63 68 61 72 20 2a 29 20 75 73 65 72 5f 70 69 6e  char *) user_pin
2710: 29 20 2d 20 31 5d 20 3d 20 27 5c 30 27 3b 0a 09  ) - 1] = '\0';..
2720: 09 09 09 7d 0a 09 09 09 7d 0a 0a 09 09 09 63 68  ...}....}.....ch
2730: 6b 5f 72 76 20 3d 20 43 5f 4c 6f 67 69 6e 28 68  k_rv = C_Login(h
2740: 53 65 73 73 69 6f 6e 2c 20 43 4b 55 5f 55 53 45  Session, CKU_USE
2750: 52 2c 20 75 73 65 72 5f 70 69 6e 2c 20 73 74 72  R, user_pin, str
2760: 6c 65 6e 28 28 63 68 61 72 20 2a 29 20 75 73 65  len((char *) use
2770: 72 5f 70 69 6e 29 29 3b 0a 09 09 7d 20 65 6c 73  r_pin));...} els
2780: 65 20 7b 0a 09 09 09 63 68 6b 5f 72 76 20 3d 20  e {....chk_rv = 
2790: 43 5f 4c 6f 67 69 6e 28 68 53 65 73 73 69 6f 6e  C_Login(hSession
27a0: 2c 20 43 4b 55 5f 55 53 45 52 2c 20 4e 55 4c 4c  , CKU_USER, NULL
27b0: 2c 20 30 29 3b 0a 09 09 7d 0a 09 09 69 66 20 28  , 0);...}...if (
27c0: 63 68 6b 5f 72 76 20 3d 3d 20 43 4b 52 5f 4f 4b  chk_rv == CKR_OK
27d0: 29 20 7b 0a 09 09 09 70 72 69 6e 74 66 28 22 4c  ) {....printf("L
27e0: 6f 67 69 6e 20 74 6f 20 64 65 76 69 63 65 20 73  ogin to device s
27f0: 75 63 63 65 65 64 2e 5c 6e 22 29 3b 0a 09 09 7d  ucceed.\n");...}
2800: 20 65 6c 73 65 20 7b 0a 09 09 09 70 72 69 6e 74   else {....print
2810: 66 28 22 4c 6f 67 69 6e 20 74 6f 20 64 65 76 69  f("Login to devi
2820: 63 65 20 66 61 69 6c 65 64 2e 5c 6e 22 29 3b 0a  ce failed.\n");.
2830: 09 09 7d 0a 0a 09 09 63 68 6b 5f 72 76 20 3d 20  ..}....chk_rv = 
2840: 43 5f 47 65 74 53 65 73 73 69 6f 6e 49 6e 66 6f  C_GetSessionInfo
2850: 28 68 53 65 73 73 69 6f 6e 2c 20 26 73 65 73 73  (hSession, &sess
2860: 69 6f 6e 49 6e 66 6f 29 3b 0a 09 09 69 66 20 28  ionInfo);...if (
2870: 63 68 6b 5f 72 76 20 3d 3d 20 43 4b 52 5f 4f 4b  chk_rv == CKR_OK
2880: 29 20 7b 0a 09 09 09 70 72 69 6e 74 66 28 22 53  ) {....printf("S
2890: 65 73 73 69 6f 6e 20 49 6e 66 6f 3a 5c 6e 22 29  ession Info:\n")
28a0: 3b 0a 09 09 09 70 72 69 6e 74 66 28 22 20 20 53  ;....printf("  S
28b0: 6c 6f 74 20 49 44 3a 20 25 6c 75 5c 6e 22 2c 20  lot ID: %lu\n", 
28c0: 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20  (unsigned long) 
28d0: 73 65 73 73 69 6f 6e 49 6e 66 6f 2e 73 6c 6f 74  sessionInfo.slot
28e0: 49 44 29 3b 0a 09 09 09 70 72 69 6e 74 66 28 22  ID);....printf("
28f0: 20 20 44 65 76 20 45 72 72 3a 20 25 6c 75 5c 6e    Dev Err: %lu\n
2900: 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e  ", (unsigned lon
2910: 67 29 20 73 65 73 73 69 6f 6e 49 6e 66 6f 2e 75  g) sessionInfo.u
2920: 6c 44 65 76 69 63 65 45 72 72 6f 72 29 3b 0a 0a  lDeviceError);..
2930: 09 09 09 70 72 69 6e 74 66 28 22 20 20 53 74 61  ...printf("  Sta
2940: 74 65 20 20 3a 20 22 29 3b 0a 09 09 09 69 66 20  te  : ");....if 
2950: 28 73 65 73 73 69 6f 6e 49 6e 66 6f 2e 73 74 61  (sessionInfo.sta
2960: 74 65 20 3d 3d 20 43 4b 53 5f 52 4f 5f 50 55 42  te == CKS_RO_PUB
2970: 4c 49 43 5f 53 45 53 53 49 4f 4e 29 20 7b 0a 09  LIC_SESSION) {..
2980: 09 09 09 70 72 69 6e 74 66 28 22 43 4b 53 5f 52  ...printf("CKS_R
2990: 4f 5f 50 55 42 4c 49 43 5f 53 45 53 53 49 4f 4e  O_PUBLIC_SESSION
29a0: 5c 6e 22 29 3b 0a 09 09 09 7d 20 65 6c 73 65 20  \n");....} else 
29b0: 69 66 20 28 73 65 73 73 69 6f 6e 49 6e 66 6f 2e  if (sessionInfo.
29c0: 73 74 61 74 65 20 3d 3d 20 43 4b 53 5f 52 4f 5f  state == CKS_RO_
29d0: 55 53 45 52 5f 46 55 4e 43 54 49 4f 4e 53 29 20  USER_FUNCTIONS) 
29e0: 7b 0a 09 09 09 09 70 72 69 6e 74 66 28 22 43 4b  {.....printf("CK
29f0: 53 5f 52 4f 5f 55 53 45 52 5f 46 55 4e 43 54 49  S_RO_USER_FUNCTI
2a00: 4f 4e 53 5c 6e 22 29 3b 0a 09 09 09 7d 20 65 6c  ONS\n");....} el
2a10: 73 65 20 69 66 20 28 73 65 73 73 69 6f 6e 49 6e  se if (sessionIn
2a20: 66 6f 2e 73 74 61 74 65 20 3d 3d 20 43 4b 53 5f  fo.state == CKS_
2a30: 52 57 5f 50 55 42 4c 49 43 5f 53 45 53 53 49 4f  RW_PUBLIC_SESSIO
2a40: 4e 29 20 7b 0a 09 09 09 09 70 72 69 6e 74 66 28  N) {.....printf(
2a50: 22 43 4b 53 5f 52 57 5f 50 55 42 4c 49 43 5f 53  "CKS_RW_PUBLIC_S
2a60: 45 53 53 49 4f 4e 5c 6e 22 29 3b 0a 09 09 09 7d  ESSION\n");....}
2a70: 20 65 6c 73 65 20 69 66 20 28 73 65 73 73 69 6f   else if (sessio
2a80: 6e 49 6e 66 6f 2e 73 74 61 74 65 20 3d 3d 20 43  nInfo.state == C
2a90: 4b 53 5f 52 57 5f 55 53 45 52 5f 46 55 4e 43 54  KS_RW_USER_FUNCT
2aa0: 49 4f 4e 53 29 20 7b 0a 09 09 09 09 70 72 69 6e  IONS) {.....prin
2ab0: 74 66 28 22 43 4b 53 5f 52 57 5f 55 53 45 52 5f  tf("CKS_RW_USER_
2ac0: 46 55 4e 43 54 49 4f 4e 53 5c 6e 22 29 3b 0a 09  FUNCTIONS\n");..
2ad0: 09 09 7d 20 65 6c 73 65 20 69 66 20 28 73 65 73  ..} else if (ses
2ae0: 73 69 6f 6e 49 6e 66 6f 2e 73 74 61 74 65 20 3d  sionInfo.state =
2af0: 3d 20 43 4b 53 5f 52 4f 5f 50 55 42 4c 49 43 5f  = CKS_RO_PUBLIC_
2b00: 53 45 53 53 49 4f 4e 29 20 7b 0a 09 09 09 09 70  SESSION) {.....p
2b10: 72 69 6e 74 66 28 22 43 4b 53 5f 52 57 5f 53 4f  rintf("CKS_RW_SO
2b20: 5f 46 55 4e 43 54 49 4f 4e 53 5c 6e 22 29 3b 0a  _FUNCTIONS\n");.
2b30: 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09  ...} else {.....
2b40: 70 72 69 6e 74 66 28 22 55 6e 6b 6e 6f 77 6e 20  printf("Unknown 
2b50: 28 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65  (%lu)", (unsigne
2b60: 64 20 6c 6f 6e 67 29 20 73 65 73 73 69 6f 6e 49  d long) sessionI
2b70: 6e 66 6f 2e 73 74 61 74 65 29 3b 0a 09 09 09 7d  nfo.state);....}
2b80: 0a 0a 09 09 09 70 72 69 6e 74 66 28 22 20 20 46  .....printf("  F
2b90: 6c 61 67 73 20 20 3a 20 22 29 3b 0a 09 09 09 69  lags  : ");....i
2ba0: 66 20 28 28 73 65 73 73 69 6f 6e 49 6e 66 6f 2e  f ((sessionInfo.
2bb0: 66 6c 61 67 73 20 26 20 43 4b 46 5f 52 57 5f 53  flags & CKF_RW_S
2bc0: 45 53 53 49 4f 4e 29 20 3d 3d 20 43 4b 46 5f 52  ESSION) == CKF_R
2bd0: 57 5f 53 45 53 53 49 4f 4e 29 20 7b 0a 09 09 09  W_SESSION) {....
2be0: 09 70 72 69 6e 74 66 28 22 43 4b 46 5f 52 57 5f  .printf("CKF_RW_
2bf0: 53 45 53 53 49 4f 4e 20 22 29 3b 0a 09 09 09 7d  SESSION ");....}
2c00: 0a 09 09 09 69 66 20 28 28 73 65 73 73 69 6f 6e  ....if ((session
2c10: 49 6e 66 6f 2e 66 6c 61 67 73 20 26 20 43 4b 46  Info.flags & CKF
2c20: 5f 53 45 52 49 41 4c 5f 53 45 53 53 49 4f 4e 29  _SERIAL_SESSION)
2c30: 20 3d 3d 20 43 4b 46 5f 53 45 52 49 41 4c 5f 53   == CKF_SERIAL_S
2c40: 45 53 53 49 4f 4e 29 20 7b 0a 09 09 09 09 70 72  ESSION) {.....pr
2c50: 69 6e 74 66 28 22 43 4b 46 5f 53 45 52 49 41 4c  intf("CKF_SERIAL
2c60: 5f 53 45 53 53 49 4f 4e 20 22 29 3b 0a 09 09 09  _SESSION ");....
2c70: 7d 0a 09 09 09 70 72 69 6e 74 66 28 22 5c 6e 22  }....printf("\n"
2c80: 29 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09  );...} else {...
2c90: 09 70 72 69 6e 74 66 28 22 47 65 74 53 65 73 73  .printf("GetSess
2ca0: 69 6f 6e 49 6e 66 6f 28 29 20 66 61 69 6c 65 64  ionInfo() failed
2cb0: 2e 5c 6e 22 29 3b 0a 09 09 7d 0a 0a 09 09 63 68  .\n");...}....ch
2cc0: 6b 5f 72 76 20 3d 20 43 5f 46 69 6e 64 4f 62 6a  k_rv = C_FindObj
2cd0: 65 63 74 73 49 6e 69 74 28 68 53 65 73 73 69 6f  ectsInit(hSessio
2ce0: 6e 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a 09 09 69  n, NULL, 0);...i
2cf0: 66 20 28 63 68 6b 5f 72 76 20 3d 3d 20 43 4b 52  f (chk_rv == CKR
2d00: 5f 4f 4b 29 20 7b 0a 09 09 09 77 68 69 6c 65 20  _OK) {....while 
2d10: 28 31 29 20 7b 0a 09 09 09 09 63 68 6b 5f 72 76  (1) {.....chk_rv
2d20: 20 3d 20 43 5f 46 69 6e 64 4f 62 6a 65 63 74 73   = C_FindObjects
2d30: 28 68 53 65 73 73 69 6f 6e 2c 20 26 68 4f 62 6a  (hSession, &hObj
2d40: 65 63 74 2c 20 31 2c 20 26 75 6c 4f 62 6a 65 63  ect, 1, &ulObjec
2d50: 74 43 6f 75 6e 74 29 3b 0a 09 09 09 09 69 66 20  tCount);.....if 
2d60: 28 63 68 6b 5f 72 76 20 21 3d 20 43 4b 52 5f 4f  (chk_rv != CKR_O
2d70: 4b 29 20 7b 0a 09 09 09 09 09 70 72 69 6e 74 66  K) {......printf
2d80: 28 22 46 69 6e 64 4f 62 6a 65 63 74 73 28 29 20  ("FindObjects() 
2d90: 66 61 69 6c 65 64 2e 5c 6e 22 29 3b 0a 09 09 09  failed.\n");....
2da0: 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 7d 0a 0a  ..break;.....}..
2db0: 09 09 09 09 69 66 20 28 75 6c 4f 62 6a 65 63 74  ....if (ulObject
2dc0: 43 6f 75 6e 74 20 3d 3d 20 30 29 20 7b 0a 09 09  Count == 0) {...
2dd0: 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 7d 0a  ...break;.....}.
2de0: 0a 09 09 09 09 69 66 20 28 75 6c 4f 62 6a 65 63  .....if (ulObjec
2df0: 74 43 6f 75 6e 74 20 21 3d 20 31 29 20 7b 0a 09  tCount != 1) {..
2e00: 09 09 09 09 70 72 69 6e 74 66 28 22 46 69 6e 64  ....printf("Find
2e10: 4f 62 6a 65 63 74 73 28 29 20 72 65 74 75 72 6e  Objects() return
2e20: 65 64 20 61 20 77 65 69 72 64 20 6e 75 6d 62 65  ed a weird numbe
2e30: 72 20 6f 66 20 6f 62 6a 65 63 74 73 2e 20 20 41  r of objects.  A
2e40: 73 6b 65 64 20 66 6f 72 20 31 2c 20 67 6f 74 20  sked for 1, got 
2e50: 25 6c 75 2e 5c 6e 22 2c 20 75 6c 4f 62 6a 65 63  %lu.\n", ulObjec
2e60: 74 43 6f 75 6e 74 29 3b 0a 09 09 09 09 09 62 72  tCount);......br
2e70: 65 61 6b 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 09  eak;.....}......
2e80: 70 72 69 6e 74 66 28 22 20 20 4f 62 6a 65 63 74  printf("  Object
2e90: 20 49 6e 66 6f 20 28 6f 62 6a 65 63 74 20 25 6c   Info (object %l
2ea0: 75 29 3a 5c 6e 22 2c 20 28 75 6e 73 69 67 6e 65  u):\n", (unsigne
2eb0: 64 20 6c 6f 6e 67 29 20 68 4f 62 6a 65 63 74 29  d long) hObject)
2ec0: 3b 0a 0a 09 09 09 09 66 6f 72 20 28 63 75 72 72  ;......for (curr
2ed0: 5f 61 74 74 72 5f 69 64 78 20 3d 20 30 3b 20 63  _attr_idx = 0; c
2ee0: 75 72 72 5f 61 74 74 72 5f 69 64 78 20 3c 20 28  urr_attr_idx < (
2ef0: 73 69 7a 65 6f 66 28 74 65 6d 70 6c 61 74 65 29  sizeof(template)
2f00: 20 2f 20 73 69 7a 65 6f 66 28 74 65 6d 70 6c 61   / sizeof(templa
2f10: 74 65 5b 30 5d 29 29 3b 20 63 75 72 72 5f 61 74  te[0])); curr_at
2f20: 74 72 5f 69 64 78 2b 2b 29 20 7b 0a 09 09 09 09  tr_idx++) {.....
2f30: 09 63 75 72 72 5f 61 74 74 72 20 3d 20 26 74 65  .curr_attr = &te
2f40: 6d 70 6c 61 74 65 5b 63 75 72 72 5f 61 74 74 72  mplate[curr_attr
2f50: 5f 69 64 78 5d 3b 0a 09 09 09 09 09 69 66 20 28  _idx];......if (
2f60: 63 75 72 72 5f 61 74 74 72 2d 3e 70 56 61 6c 75  curr_attr->pValu
2f70: 65 29 20 7b 0a 09 09 09 09 09 09 66 72 65 65 28  e) {.......free(
2f80: 63 75 72 72 5f 61 74 74 72 2d 3e 70 56 61 6c 75  curr_attr->pValu
2f90: 65 29 3b 0a 09 09 09 09 09 7d 0a 0a 09 09 09 09  e);......}......
2fa0: 09 63 75 72 72 5f 61 74 74 72 2d 3e 70 56 61 6c  .curr_attr->pVal
2fb0: 75 65 20 3d 20 4e 55 4c 4c 3b 0a 09 09 09 09 7d  ue = NULL;.....}
2fc0: 0a 0a 09 09 09 09 63 68 6b 5f 72 76 20 3d 20 43  ......chk_rv = C
2fd0: 5f 47 65 74 41 74 74 72 69 62 75 74 65 56 61 6c  _GetAttributeVal
2fe0: 75 65 28 68 53 65 73 73 69 6f 6e 2c 20 68 4f 62  ue(hSession, hOb
2ff0: 6a 65 63 74 2c 20 26 74 65 6d 70 6c 61 74 65 5b  ject, &template[
3000: 30 5d 2c 20 73 69 7a 65 6f 66 28 74 65 6d 70 6c  0], sizeof(templ
3010: 61 74 65 29 20 2f 20 73 69 7a 65 6f 66 28 74 65  ate) / sizeof(te
3020: 6d 70 6c 61 74 65 5b 30 5d 29 29 3b 0a 09 09 09  mplate[0]));....
3030: 09 69 66 20 28 63 68 6b 5f 72 76 20 3d 3d 20 43  .if (chk_rv == C
3040: 4b 52 5f 41 54 54 52 49 42 55 54 45 5f 54 59 50  KR_ATTRIBUTE_TYP
3050: 45 5f 49 4e 56 41 4c 49 44 20 7c 7c 20 63 68 6b  E_INVALID || chk
3060: 5f 72 76 20 3d 3d 20 43 4b 52 5f 41 54 54 52 49  _rv == CKR_ATTRI
3070: 42 55 54 45 5f 53 45 4e 53 49 54 49 56 45 20 7c  BUTE_SENSITIVE |
3080: 7c 20 63 68 6b 5f 72 76 20 3d 3d 20 43 4b 52 5f  | chk_rv == CKR_
3090: 42 55 46 46 45 52 5f 54 4f 4f 5f 53 4d 41 4c 4c  BUFFER_TOO_SMALL
30a0: 29 20 7b 0a 09 09 09 09 09 63 68 6b 5f 72 76 20  ) {......chk_rv 
30b0: 3d 20 43 4b 52 5f 4f 4b 3b 0a 09 09 09 09 7d 0a  = CKR_OK;.....}.
30c0: 0a 09 09 09 09 69 66 20 28 63 68 6b 5f 72 76 20  .....if (chk_rv 
30d0: 3d 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a 09 09 09  == CKR_OK) {....
30e0: 09 09 66 6f 72 20 28 63 75 72 72 5f 61 74 74 72  ..for (curr_attr
30f0: 5f 69 64 78 20 3d 20 30 3b 20 63 75 72 72 5f 61  _idx = 0; curr_a
3100: 74 74 72 5f 69 64 78 20 3c 20 28 73 69 7a 65 6f  ttr_idx < (sizeo
3110: 66 28 74 65 6d 70 6c 61 74 65 29 20 2f 20 73 69  f(template) / si
3120: 7a 65 6f 66 28 74 65 6d 70 6c 61 74 65 5b 30 5d  zeof(template[0]
3130: 29 29 3b 20 63 75 72 72 5f 61 74 74 72 5f 69 64  )); curr_attr_id
3140: 78 2b 2b 29 20 7b 0a 09 09 09 09 09 09 63 75 72  x++) {.......cur
3150: 72 5f 61 74 74 72 20 3d 20 26 74 65 6d 70 6c 61  r_attr = &templa
3160: 74 65 5b 63 75 72 72 5f 61 74 74 72 5f 69 64 78  te[curr_attr_idx
3170: 5d 3b 0a 0a 09 09 09 09 09 09 69 66 20 28 28 28  ];........if (((
3180: 43 4b 5f 4c 4f 4e 47 29 20 63 75 72 72 5f 61 74  CK_LONG) curr_at
3190: 74 72 2d 3e 75 6c 56 61 6c 75 65 4c 65 6e 29 20  tr->ulValueLen) 
31a0: 21 3d 20 28 28 43 4b 5f 4c 4f 4e 47 29 20 2d 31  != ((CK_LONG) -1
31b0: 29 29 20 7b 0a 09 09 09 09 09 09 09 63 75 72 72  )) {........curr
31c0: 5f 61 74 74 72 2d 3e 70 56 61 6c 75 65 20 3d 20  _attr->pValue = 
31d0: 6d 61 6c 6c 6f 63 28 63 75 72 72 5f 61 74 74 72  malloc(curr_attr
31e0: 2d 3e 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a 09  ->ulValueLen);..
31f0: 09 09 09 09 09 7d 0a 09 09 09 09 09 7d 0a 0a 09  .....}......}...
3200: 09 09 09 09 63 68 6b 5f 72 76 20 3d 20 43 5f 47  ....chk_rv = C_G
3210: 65 74 41 74 74 72 69 62 75 74 65 56 61 6c 75 65  etAttributeValue
3220: 28 68 53 65 73 73 69 6f 6e 2c 20 68 4f 62 6a 65  (hSession, hObje
3230: 63 74 2c 20 26 74 65 6d 70 6c 61 74 65 5b 30 5d  ct, &template[0]
3240: 2c 20 73 69 7a 65 6f 66 28 74 65 6d 70 6c 61 74  , sizeof(templat
3250: 65 29 20 2f 20 73 69 7a 65 6f 66 28 74 65 6d 70  e) / sizeof(temp
3260: 6c 61 74 65 5b 30 5d 29 29 3b 0a 09 09 09 09 09  late[0]));......
3270: 69 66 20 28 63 68 6b 5f 72 76 20 3d 3d 20 43 4b  if (chk_rv == CK
3280: 52 5f 4f 4b 20 7c 7c 20 63 68 6b 5f 72 76 20 3d  R_OK || chk_rv =
3290: 3d 20 43 4b 52 5f 41 54 54 52 49 42 55 54 45 5f  = CKR_ATTRIBUTE_
32a0: 53 45 4e 53 49 54 49 56 45 20 7c 7c 20 63 68 6b  SENSITIVE || chk
32b0: 5f 72 76 20 3d 3d 20 43 4b 52 5f 41 54 54 52 49  _rv == CKR_ATTRI
32c0: 42 55 54 45 5f 54 59 50 45 5f 49 4e 56 41 4c 49  BUTE_TYPE_INVALI
32d0: 44 20 7c 7c 20 63 68 6b 5f 72 76 20 3d 3d 20 43  D || chk_rv == C
32e0: 4b 52 5f 42 55 46 46 45 52 5f 54 4f 4f 5f 53 4d  KR_BUFFER_TOO_SM
32f0: 41 4c 4c 29 20 7b 0a 09 09 09 09 09 09 66 6f 72  ALL) {.......for
3300: 20 28 63 75 72 72 5f 61 74 74 72 5f 69 64 78 20   (curr_attr_idx 
3310: 3d 20 30 3b 20 63 75 72 72 5f 61 74 74 72 5f 69  = 0; curr_attr_i
3320: 64 78 20 3c 20 28 73 69 7a 65 6f 66 28 74 65 6d  dx < (sizeof(tem
3330: 70 6c 61 74 65 29 20 2f 20 73 69 7a 65 6f 66 28  plate) / sizeof(
3340: 74 65 6d 70 6c 61 74 65 5b 30 5d 29 29 3b 20 63  template[0])); c
3350: 75 72 72 5f 61 74 74 72 5f 69 64 78 2b 2b 29 20  urr_attr_idx++) 
3360: 7b 0a 09 09 09 09 09 09 09 63 75 72 72 5f 61 74  {........curr_at
3370: 74 72 20 3d 20 26 74 65 6d 70 6c 61 74 65 5b 63  tr = &template[c
3380: 75 72 72 5f 61 74 74 72 5f 69 64 78 5d 3b 0a 0a  urr_attr_idx];..
3390: 09 09 09 09 09 09 09 69 66 20 28 63 75 72 72 5f  .......if (curr_
33a0: 61 74 74 72 2d 3e 70 56 61 6c 75 65 29 20 7b 0a  attr->pValue) {.
33b0: 09 09 09 09 09 09 09 09 73 77 69 74 63 68 20 28  ........switch (
33c0: 63 75 72 72 5f 61 74 74 72 2d 3e 74 79 70 65 29  curr_attr->type)
33d0: 20 7b 0a 09 09 09 09 09 09 09 09 09 63 61 73 65   {..........case
33e0: 20 43 4b 41 5f 4c 41 42 45 4c 3a 0a 09 09 09 09   CKA_LABEL:.....
33f0: 09 09 09 09 09 09 70 72 69 6e 74 66 28 22 20 20  ......printf("  
3400: 20 20 5b 25 6c 75 5d 20 25 32 30 73 3a 20 25 2e    [%lu] %20s: %.
3410: 2a 73 5c 6e 22 2c 20 68 4f 62 6a 65 63 74 2c 20  *s\n", hObject, 
3420: 70 6b 63 73 31 31 5f 61 74 74 72 69 62 75 74 65  pkcs11_attribute
3430: 5f 74 6f 5f 6e 61 6d 65 28 63 75 72 72 5f 61 74  _to_name(curr_at
3440: 74 72 2d 3e 74 79 70 65 29 2c 20 28 69 6e 74 29  tr->type), (int)
3450: 20 63 75 72 72 5f 61 74 74 72 2d 3e 75 6c 56 61   curr_attr->ulVa
3460: 6c 75 65 4c 65 6e 2c 20 28 63 68 61 72 20 2a 29  lueLen, (char *)
3470: 20 63 75 72 72 5f 61 74 74 72 2d 3e 70 56 61 6c   curr_attr->pVal
3480: 75 65 29 3b 0a 09 09 09 09 09 09 09 09 09 09 62  ue);...........b
3490: 72 65 61 6b 3b 0a 09 09 09 09 09 09 09 09 09 63  reak;..........c
34a0: 61 73 65 20 43 4b 41 5f 43 4c 41 53 53 3a 0a 09  ase CKA_CLASS:..
34b0: 09 09 09 09 09 09 09 09 09 6f 62 6a 65 63 74 43  .........objectC
34c0: 6c 61 73 73 20 3d 20 2a 28 28 43 4b 5f 4f 42 4a  lass = *((CK_OBJ
34d0: 45 43 54 5f 43 4c 41 53 53 20 2a 29 20 63 75 72  ECT_CLASS *) cur
34e0: 72 5f 61 74 74 72 2d 3e 70 56 61 6c 75 65 29 3b  r_attr->pValue);
34f0: 0a 0a 09 09 09 09 09 09 09 09 09 09 69 66 20 28  ............if (
3500: 6f 62 6a 65 63 74 43 6c 61 73 73 20 3d 3d 20 43  objectClass == C
3510: 4b 4f 5f 50 52 49 56 41 54 45 5f 4b 45 59 29 20  KO_PRIVATE_KEY) 
3520: 7b 0a 09 09 09 09 09 09 09 09 09 09 09 2a 70 72  {............*pr
3530: 69 76 61 74 65 4b 65 79 4f 62 6a 65 63 74 73 20  ivateKeyObjects 
3540: 3d 20 68 4f 62 6a 65 63 74 3b 0a 09 09 09 09 09  = hObject;......
3550: 09 09 09 09 09 09 70 72 69 76 61 74 65 4b 65 79  ......privateKey
3560: 4f 62 6a 65 63 74 73 2b 2b 3b 0a 09 09 09 09 09  Objects++;......
3570: 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 09 09  .....}..........
3580: 63 61 73 65 20 43 4b 41 5f 54 4f 4b 45 4e 3a 0a  case CKA_TOKEN:.
3590: 09 09 09 09 09 09 09 09 09 63 61 73 65 20 43 4b  .........case CK
35a0: 41 5f 49 44 3a 0a 09 09 09 09 09 09 09 09 09 63  A_ID:..........c
35b0: 61 73 65 20 43 4b 41 5f 53 45 52 49 41 4c 5f 4e  ase CKA_SERIAL_N
35c0: 55 4d 42 45 52 3a 0a 09 09 09 09 09 09 09 09 09  UMBER:..........
35d0: 63 61 73 65 20 43 4b 41 5f 50 52 49 56 41 54 45  case CKA_PRIVATE
35e0: 3a 0a 09 09 09 09 09 09 09 09 09 63 61 73 65 20  :..........case 
35f0: 43 4b 41 5f 43 45 52 54 49 46 49 43 41 54 45 5f  CKA_CERTIFICATE_
3600: 54 59 50 45 3a 0a 09 09 09 09 09 09 09 09 09 63  TYPE:..........c
3610: 61 73 65 20 43 4b 41 5f 4b 45 59 5f 54 59 50 45  ase CKA_KEY_TYPE
3620: 3a 0a 09 09 09 09 09 09 09 09 09 63 61 73 65 20  :..........case 
3630: 43 4b 41 5f 53 49 47 4e 3a 0a 09 09 09 09 09 09  CKA_SIGN:.......
3640: 09 09 09 63 61 73 65 20 43 4b 41 5f 44 45 43 52  ...case CKA_DECR
3650: 59 50 54 3a 0a 09 09 09 09 09 09 09 09 09 09 70  YPT:...........p
3660: 75 63 56 61 6c 75 65 20 3d 20 63 75 72 72 5f 61  ucValue = curr_a
3670: 74 74 72 2d 3e 70 56 61 6c 75 65 3b 0a 0a 09 09  ttr->pValue;....
3680: 09 09 09 09 09 09 09 09 70 72 69 6e 74 66 28 22  ........printf("
3690: 20 20 20 20 5b 25 6c 75 5d 20 25 32 30 73 3a 20      [%lu] %20s: 
36a0: 22 2c 20 68 4f 62 6a 65 63 74 2c 20 70 6b 63 73  ", hObject, pkcs
36b0: 31 31 5f 61 74 74 72 69 62 75 74 65 5f 74 6f 5f  11_attribute_to_
36c0: 6e 61 6d 65 28 63 75 72 72 5f 61 74 74 72 2d 3e  name(curr_attr->
36d0: 74 79 70 65 29 29 3b 0a 0a 09 09 09 09 09 09 09  type));.........
36e0: 09 09 09 66 6f 72 20 28 62 79 74 65 5f 69 64 78  ...for (byte_idx
36f0: 20 3d 20 30 3b 20 62 79 74 65 5f 69 64 78 20 3c   = 0; byte_idx <
3700: 20 63 75 72 72 5f 61 74 74 72 2d 3e 75 6c 56 61   curr_attr->ulVa
3710: 6c 75 65 4c 65 6e 3b 20 62 79 74 65 5f 69 64 78  lueLen; byte_idx
3720: 2b 2b 29 20 7b 0a 09 09 09 09 09 09 09 09 09 09  ++) {...........
3730: 09 70 72 69 6e 74 66 28 22 25 30 32 78 20 22 2c  .printf("%02x ",
3740: 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 20   (unsigned int) 
3750: 70 75 63 56 61 6c 75 65 5b 62 79 74 65 5f 69 64  pucValue[byte_id
3760: 78 5d 29 3b 0a 09 09 09 09 09 09 09 09 09 09 7d  x]);...........}
3770: 0a 0a 09 09 09 09 09 09 09 09 09 09 70 72 69 6e  ............prin
3780: 74 66 28 22 3b 3b 20 25 70 2f 25 6c 75 5c 6e 22  tf(";; %p/%lu\n"
3790: 2c 20 63 75 72 72 5f 61 74 74 72 2d 3e 70 56 61  , curr_attr->pVa
37a0: 6c 75 65 2c 20 63 75 72 72 5f 61 74 74 72 2d 3e  lue, curr_attr->
37b0: 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a 0a 09 09  ulValueLen);....
37c0: 09 09 09 09 09 09 09 09 62 72 65 61 6b 3b 0a 09  ........break;..
37d0: 09 09 09 09 09 09 09 09 63 61 73 65 20 43 4b 41  ........case CKA
37e0: 5f 53 55 42 4a 45 43 54 3a 0a 09 09 09 09 09 09  _SUBJECT:.......
37f0: 09 09 09 63 61 73 65 20 43 4b 41 5f 49 53 53 55  ...case CKA_ISSU
3800: 45 52 3a 0a 09 09 09 09 09 09 09 09 09 09 70 75  ER:...........pu
3810: 63 56 61 6c 75 65 20 3d 20 63 75 72 72 5f 61 74  cValue = curr_at
3820: 74 72 2d 3e 70 56 61 6c 75 65 3b 0a 0a 09 09 09  tr->pValue;.....
3830: 09 09 09 09 09 09 09 70 72 69 6e 74 66 28 22 20  .......printf(" 
3840: 20 20 20 5b 25 6c 75 5d 20 25 32 30 73 3a 20 22     [%lu] %20s: "
3850: 2c 20 68 4f 62 6a 65 63 74 2c 20 70 6b 63 73 31  , hObject, pkcs1
3860: 31 5f 61 74 74 72 69 62 75 74 65 5f 74 6f 5f 6e  1_attribute_to_n
3870: 61 6d 65 28 63 75 72 72 5f 61 74 74 72 2d 3e 74  ame(curr_attr->t
3880: 79 70 65 29 29 3b 0a 0a 09 09 09 09 09 09 09 09  ype));..........
3890: 09 09 66 6f 72 20 28 62 79 74 65 5f 69 64 78 20  ..for (byte_idx 
38a0: 3d 20 30 3b 20 62 79 74 65 5f 69 64 78 20 3c 20  = 0; byte_idx < 
38b0: 63 75 72 72 5f 61 74 74 72 2d 3e 75 6c 56 61 6c  curr_attr->ulVal
38c0: 75 65 4c 65 6e 3b 20 62 79 74 65 5f 69 64 78 2b  ueLen; byte_idx+
38d0: 2b 29 20 7b 0a 09 09 09 09 09 09 09 09 09 09 09  +) {............
38e0: 70 72 69 6e 74 66 28 22 5c 5c 78 25 30 32 78 22  printf("\\x%02x"
38f0: 2c 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 29  , (unsigned int)
3900: 20 70 75 63 56 61 6c 75 65 5b 62 79 74 65 5f 69   pucValue[byte_i
3910: 64 78 5d 29 3b 0a 09 09 09 09 09 09 09 09 09 09  dx]);...........
3920: 7d 0a 0a 09 09 09 09 09 09 09 09 09 09 70 72 69  }............pri
3930: 6e 74 66 28 22 20 3b 3b 20 25 70 2f 25 6c 75 5c  ntf(" ;; %p/%lu\
3940: 6e 22 2c 20 63 75 72 72 5f 61 74 74 72 2d 3e 70  n", curr_attr->p
3950: 56 61 6c 75 65 2c 20 63 75 72 72 5f 61 74 74 72  Value, curr_attr
3960: 2d 3e 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a 0a  ->ulValueLen);..
3970: 09 09 09 09 09 09 09 09 09 09 62 72 65 61 6b 3b  ..........break;
3980: 0a 09 09 09 09 09 09 09 09 09 64 65 66 61 75 6c  ..........defaul
3990: 74 3a 0a 09 09 09 09 09 09 09 09 09 09 70 72 69  t:...........pri
39a0: 6e 74 66 28 22 20 20 20 20 5b 25 6c 75 5d 20 25  ntf("    [%lu] %
39b0: 32 30 73 3a 20 25 70 2f 25 6c 75 5c 6e 22 2c 20  20s: %p/%lu\n", 
39c0: 68 4f 62 6a 65 63 74 2c 20 70 6b 63 73 31 31 5f  hObject, pkcs11_
39d0: 61 74 74 72 69 62 75 74 65 5f 74 6f 5f 6e 61 6d  attribute_to_nam
39e0: 65 28 63 75 72 72 5f 61 74 74 72 2d 3e 74 79 70  e(curr_attr->typ
39f0: 65 29 2c 20 63 75 72 72 5f 61 74 74 72 2d 3e 70  e), curr_attr->p
3a00: 56 61 6c 75 65 2c 20 63 75 72 72 5f 61 74 74 72  Value, curr_attr
3a10: 2d 3e 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a 0a  ->ulValueLen);..
3a20: 09 09 09 09 09 09 09 09 09 09 62 72 65 61 6b 3b  ..........break;
3a30: 0a 09 09 09 09 09 09 09 09 7d 0a 09 09 09 09 09  .........}......
3a40: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09  ..} else {......
3a50: 09 09 09 70 72 69 6e 74 66 28 22 20 20 20 20 5b  ...printf("    [
3a60: 25 6c 75 5d 20 25 32 30 73 3a 20 28 6e 6f 74 20  %lu] %20s: (not 
3a70: 66 6f 75 6e 64 29 5c 6e 22 2c 20 68 4f 62 6a 65  found)\n", hObje
3a80: 63 74 2c 20 70 6b 63 73 31 31 5f 61 74 74 72 69  ct, pkcs11_attri
3a90: 62 75 74 65 5f 74 6f 5f 6e 61 6d 65 28 63 75 72  bute_to_name(cur
3aa0: 72 5f 61 74 74 72 2d 3e 74 79 70 65 29 29 3b 0a  r_attr->type));.
3ab0: 09 09 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 09  .......}........
3ac0: 09 66 72 65 65 28 63 75 72 72 5f 61 74 74 72 2d  .free(curr_attr-
3ad0: 3e 70 56 61 6c 75 65 29 3b 0a 09 09 09 09 09 09  >pValue);.......
3ae0: 09 63 75 72 72 5f 61 74 74 72 2d 3e 70 56 61 6c  .curr_attr->pVal
3af0: 75 65 20 3d 20 4e 55 4c 4c 3b 0a 09 09 09 09 09  ue = NULL;......
3b00: 09 7d 0a 09 09 09 09 09 7d 20 65 6c 73 65 20 7b  .}......} else {
3b10: 0a 09 09 09 09 09 09 70 72 69 6e 74 66 28 22 47  .......printf("G
3b20: 65 74 41 74 74 72 69 62 75 74 65 56 61 6c 75 65  etAttributeValue
3b30: 28 29 2f 32 20 66 61 69 6c 65 64 2e 5c 6e 22 29  ()/2 failed.\n")
3b40: 3b 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 20 65  ;......}.....} e
3b50: 6c 73 65 20 7b 0a 09 09 09 09 09 70 72 69 6e 74  lse {......print
3b60: 66 28 22 47 65 74 41 74 74 72 69 62 75 74 65 56  f("GetAttributeV
3b70: 61 6c 75 65 28 68 4f 62 6a 65 63 74 3d 25 6c 75  alue(hObject=%lu
3b80: 29 2f 31 20 66 61 69 6c 65 64 20 28 72 76 20 3d  )/1 failed (rv =
3b90: 20 25 6c 75 29 2e 5c 6e 22 2c 20 28 75 6e 73 69   %lu).\n", (unsi
3ba0: 67 6e 65 64 20 6c 6f 6e 67 29 20 68 4f 62 6a 65  gned long) hObje
3bb0: 63 74 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f  ct, (unsigned lo
3bc0: 6e 67 29 20 63 68 6b 5f 72 76 29 3b 0a 09 09 09  ng) chk_rv);....
3bd0: 09 7d 0a 0a 09 09 09 7d 0a 0a 09 09 09 63 68 6b  .}.....}.....chk
3be0: 5f 72 76 20 3d 20 43 5f 46 69 6e 64 4f 62 6a 65  _rv = C_FindObje
3bf0: 63 74 73 46 69 6e 61 6c 28 68 53 65 73 73 69 6f  ctsFinal(hSessio
3c00: 6e 29 3b 0a 09 09 09 69 66 20 28 63 68 6b 5f 72  n);....if (chk_r
3c10: 76 20 21 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a 09  v != CKR_OK) {..
3c20: 09 09 09 70 72 69 6e 74 66 28 22 46 69 6e 64 4f  ...printf("FindO
3c30: 62 6a 65 63 74 73 46 69 6e 61 6c 28 29 20 66 61  bjectsFinal() fa
3c40: 69 6c 65 64 2e 5c 6e 22 29 3b 0a 09 09 09 7d 0a  iled.\n");....}.
3c50: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 70 72  ..} else {....pr
3c60: 69 6e 74 66 28 22 46 69 6e 64 4f 62 6a 65 63 74  intf("FindObject
3c70: 73 49 6e 69 74 28 29 20 66 61 69 6c 65 64 2e 5c  sInit() failed.\
3c80: 6e 22 29 3b 0a 09 09 7d 0a 0a 09 09 70 72 69 6e  n");...}....prin
3c90: 74 66 28 22 2d 2d 2d 20 4f 70 65 72 61 74 69 6f  tf("--- Operatio
3ca0: 6e 73 20 2d 2d 2d 5c 6e 22 29 3b 0a 0a 09 09 66  ns ---\n");....f
3cb0: 6f 72 20 28 63 75 72 72 50 72 69 76 4b 65 79 20  or (currPrivKey 
3cc0: 3d 20 70 72 69 76 61 74 65 4b 65 79 4f 62 6a 65  = privateKeyObje
3cd0: 63 74 73 5f 72 6f 6f 74 3b 20 2a 63 75 72 72 50  cts_root; *currP
3ce0: 72 69 76 4b 65 79 20 21 3d 20 43 4b 5f 49 4e 56  rivKey != CK_INV
3cf0: 41 4c 49 44 5f 48 41 4e 44 4c 45 3b 20 63 75 72  ALID_HANDLE; cur
3d00: 72 50 72 69 76 4b 65 79 2b 2b 29 20 7b 0a 09 09  rPrivKey++) {...
3d10: 09 63 68 6b 5f 72 76 20 3d 20 43 5f 53 69 67 6e  .chk_rv = C_Sign
3d20: 49 6e 69 74 28 68 53 65 73 73 69 6f 6e 2c 20 26  Init(hSession, &
3d30: 6d 65 63 68 61 6e 69 73 6d 2c 20 2a 63 75 72 72  mechanism, *curr
3d40: 50 72 69 76 4b 65 79 29 3b 0a 09 09 09 69 66 20  PrivKey);....if 
3d50: 28 63 68 6b 5f 72 76 20 3d 3d 20 43 4b 52 5f 4f  (chk_rv == CKR_O
3d60: 4b 29 20 7b 0a 09 09 09 09 73 69 67 6e 61 74 75  K) {.....signatu
3d70: 72 65 5f 6c 65 6e 20 3d 20 73 69 7a 65 6f 66 28  re_len = sizeof(
3d80: 73 69 67 6e 61 74 75 72 65 29 3b 0a 0a 09 09 09  signature);.....
3d90: 09 63 68 6b 5f 72 76 20 3d 20 43 5f 53 69 67 6e  .chk_rv = C_Sign
3da0: 28 68 53 65 73 73 69 6f 6e 2c 20 28 43 4b 5f 42  (hSession, (CK_B
3db0: 59 54 45 5f 50 54 52 29 20 22 54 65 73 74 22 2c  YTE_PTR) "Test",
3dc0: 20 73 74 72 6c 65 6e 28 22 54 65 73 74 22 29 2c   strlen("Test"),
3dd0: 20 28 43 4b 5f 42 59 54 45 5f 50 54 52 29 20 26   (CK_BYTE_PTR) &
3de0: 73 69 67 6e 61 74 75 72 65 2c 20 26 73 69 67 6e  signature, &sign
3df0: 61 74 75 72 65 5f 6c 65 6e 29 3b 0a 09 09 09 09  ature_len);.....
3e00: 69 66 20 28 63 68 6b 5f 72 76 20 3d 3d 20 43 4b  if (chk_rv == CK
3e10: 52 5f 4f 4b 29 20 7b 0a 09 09 09 09 09 70 72 69  R_OK) {......pri
3e20: 6e 74 66 28 22 5b 25 30 34 6c 75 2f 25 30 32 6c  ntf("[%04lu/%02l
3e30: 78 5d 20 53 69 67 6e 61 74 75 72 65 3a 20 22 2c  x] Signature: ",
3e40: 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29   (unsigned long)
3e50: 20 2a 63 75 72 72 50 72 69 76 4b 65 79 2c 20 28   *currPrivKey, (
3e60: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 6d  unsigned long) m
3e70: 65 63 68 61 6e 69 73 6d 2e 6d 65 63 68 61 6e 69  echanism.mechani
3e80: 73 6d 29 3b 0a 0a 09 09 09 09 09 66 6f 72 20 28  sm);.......for (
3e90: 62 79 74 65 5f 69 64 78 20 3d 20 30 3b 20 62 79  byte_idx = 0; by
3ea0: 74 65 5f 69 64 78 20 3c 20 73 69 67 6e 61 74 75  te_idx < signatu
3eb0: 72 65 5f 6c 65 6e 3b 20 62 79 74 65 5f 69 64 78  re_len; byte_idx
3ec0: 2b 2b 29 20 7b 0a 09 09 09 09 09 09 70 72 69 6e  ++) {.......prin
3ed0: 74 66 28 22 25 30 32 78 20 22 2c 20 28 75 6e 73  tf("%02x ", (uns
3ee0: 69 67 6e 65 64 20 69 6e 74 29 20 73 69 67 6e 61  igned int) signa
3ef0: 74 75 72 65 5b 62 79 74 65 5f 69 64 78 5d 29 3b  ture[byte_idx]);
3f00: 0a 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 70 72  ......}.......pr
3f10: 69 6e 74 66 28 22 5c 6e 22 29 3b 0a 09 09 09 09  intf("\n");.....
3f20: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 70 72  } else {......pr
3f30: 69 6e 74 66 28 22 53 69 67 6e 28 29 20 66 61 69  intf("Sign() fai
3f40: 6c 65 64 2e 5c 6e 22 29 3b 0a 09 09 09 09 7d 0a  led.\n");.....}.
3f50: 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09  ...} else {.....
3f60: 70 72 69 6e 74 66 28 22 53 69 67 6e 49 6e 69 74  printf("SignInit
3f70: 28 29 20 66 61 69 6c 65 64 2e 5c 6e 22 29 3b 0a  () failed.\n");.
3f80: 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 66 6f 72 20  ...}...}....for 
3f90: 28 63 75 72 72 50 72 69 76 4b 65 79 20 3d 20 70  (currPrivKey = p
3fa0: 72 69 76 61 74 65 4b 65 79 4f 62 6a 65 63 74 73  rivateKeyObjects
3fb0: 5f 72 6f 6f 74 3b 20 2a 63 75 72 72 50 72 69 76  _root; *currPriv
3fc0: 4b 65 79 20 21 3d 20 43 4b 5f 49 4e 56 41 4c 49  Key != CK_INVALI
3fd0: 44 5f 48 41 4e 44 4c 45 3b 20 63 75 72 72 50 72  D_HANDLE; currPr
3fe0: 69 76 4b 65 79 2b 2b 29 20 7b 0a 09 09 09 63 68  ivKey++) {....ch
3ff0: 6b 5f 72 76 20 3d 20 43 5f 45 6e 63 72 79 70 74  k_rv = C_Encrypt
4000: 49 6e 69 74 28 68 53 65 73 73 69 6f 6e 2c 20 26  Init(hSession, &
4010: 6d 65 63 68 61 6e 69 73 6d 2c 20 2a 63 75 72 72  mechanism, *curr
4020: 50 72 69 76 4b 65 79 29 3b 0a 09 09 09 69 66 20  PrivKey);....if 
4030: 28 63 68 6b 5f 72 76 20 3d 3d 20 43 4b 52 5f 4f  (chk_rv == CKR_O
4040: 4b 29 20 7b 0a 09 09 09 09 65 6e 63 72 79 70 74  K) {.....encrypt
4050: 65 64 5f 62 75 66 6c 65 6e 20 3d 20 73 69 7a 65  ed_buflen = size
4060: 6f 66 28 65 6e 63 72 79 70 74 65 64 5f 62 75 66  of(encrypted_buf
4070: 29 3b 0a 0a 09 09 09 09 63 68 6b 5f 72 76 20 3d  );......chk_rv =
4080: 20 43 5f 45 6e 63 72 79 70 74 28 68 53 65 73 73   C_Encrypt(hSess
4090: 69 6f 6e 2c 20 28 43 4b 5f 42 59 54 45 5f 50 54  ion, (CK_BYTE_PT
40a0: 52 29 20 22 54 65 73 74 22 2c 20 73 74 72 6c 65  R) "Test", strle
40b0: 6e 28 22 54 65 73 74 22 29 2c 20 65 6e 63 72 79  n("Test"), encry
40c0: 70 74 65 64 5f 62 75 66 2c 20 26 65 6e 63 72 79  pted_buf, &encry
40d0: 70 74 65 64 5f 62 75 66 6c 65 6e 29 3b 0a 09 09  pted_buflen);...
40e0: 09 09 69 66 20 28 63 68 6b 5f 72 76 20 3d 3d 20  ..if (chk_rv == 
40f0: 43 4b 52 5f 4f 4b 29 20 7b 0a 09 09 09 09 09 70  CKR_OK) {......p
4100: 72 69 6e 74 66 28 22 5b 25 30 34 6c 75 2f 25 30  rintf("[%04lu/%0
4110: 32 6c 78 5d 20 45 6e 63 72 79 70 74 65 64 28 54  2lx] Encrypted(T
4120: 65 73 74 29 3a 20 22 2c 20 28 75 6e 73 69 67 6e  est): ", (unsign
4130: 65 64 20 6c 6f 6e 67 29 20 2a 63 75 72 72 50 72  ed long) *currPr
4140: 69 76 4b 65 79 2c 20 28 75 6e 73 69 67 6e 65 64  ivKey, (unsigned
4150: 20 6c 6f 6e 67 29 20 6d 65 63 68 61 6e 69 73 6d   long) mechanism
4160: 2e 6d 65 63 68 61 6e 69 73 6d 29 3b 0a 0a 09 09  .mechanism);....
4170: 09 09 09 66 6f 72 20 28 62 79 74 65 5f 69 64 78  ...for (byte_idx
4180: 20 3d 20 30 3b 20 62 79 74 65 5f 69 64 78 20 3c   = 0; byte_idx <
4190: 20 65 6e 63 72 79 70 74 65 64 5f 62 75 66 6c 65   encrypted_bufle
41a0: 6e 3b 20 62 79 74 65 5f 69 64 78 2b 2b 29 20 7b  n; byte_idx++) {
41b0: 0a 09 09 09 09 09 09 70 72 69 6e 74 66 28 22 25  .......printf("%
41c0: 30 32 78 20 22 2c 20 28 75 6e 73 69 67 6e 65 64  02x ", (unsigned
41d0: 20 69 6e 74 29 20 65 6e 63 72 79 70 74 65 64 5f   int) encrypted_
41e0: 62 75 66 5b 62 79 74 65 5f 69 64 78 5d 29 3b 0a  buf[byte_idx]);.
41f0: 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 70 72 69  .....}.......pri
4200: 6e 74 66 28 22 5c 6e 22 29 3b 0a 09 09 09 09 7d  ntf("\n");.....}
4210: 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 70 72 69   else {......pri
4220: 6e 74 66 28 22 45 6e 63 72 79 70 74 28 29 20 66  ntf("Encrypt() f
4230: 61 69 6c 65 64 2e 5c 6e 22 29 3b 0a 09 09 09 09  ailed.\n");.....
4240: 7d 0a 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09  }....} else {...
4250: 09 09 70 72 69 6e 74 66 28 22 45 6e 63 72 79 70  ..printf("Encryp
4260: 74 49 6e 69 74 28 29 20 66 61 69 6c 65 64 2e 5c  tInit() failed.\
4270: 6e 22 29 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09  n");....}...}...
4280: 09 66 6f 72 20 28 63 75 72 72 50 72 69 76 4b 65  .for (currPrivKe
4290: 79 20 3d 20 70 72 69 76 61 74 65 4b 65 79 4f 62  y = privateKeyOb
42a0: 6a 65 63 74 73 5f 72 6f 6f 74 3b 20 2a 63 75 72  jects_root; *cur
42b0: 72 50 72 69 76 4b 65 79 20 21 3d 20 43 4b 5f 49  rPrivKey != CK_I
42c0: 4e 56 41 4c 49 44 5f 48 41 4e 44 4c 45 3b 20 63  NVALID_HANDLE; c
42d0: 75 72 72 50 72 69 76 4b 65 79 2b 2b 29 20 7b 0a  urrPrivKey++) {.
42e0: 09 09 09 63 68 6b 5f 72 76 20 3d 20 43 5f 44 65  ...chk_rv = C_De
42f0: 63 72 79 70 74 49 6e 69 74 28 68 53 65 73 73 69  cryptInit(hSessi
4300: 6f 6e 2c 20 26 6d 65 63 68 61 6e 69 73 6d 2c 20  on, &mechanism, 
4310: 2a 63 75 72 72 50 72 69 76 4b 65 79 29 3b 0a 09  *currPrivKey);..
4320: 09 09 69 66 20 28 63 68 6b 5f 72 76 20 3d 3d 20  ..if (chk_rv == 
4330: 43 4b 52 5f 4f 4b 29 20 7b 0a 09 09 09 09 64 65  CKR_OK) {.....de
4340: 63 72 79 70 74 65 64 5f 62 75 66 6c 65 6e 20 3d  crypted_buflen =
4350: 20 73 69 7a 65 6f 66 28 64 65 63 72 79 70 74 65   sizeof(decrypte
4360: 64 5f 62 75 66 29 3b 0a 0a 09 09 09 09 63 68 6b  d_buf);......chk
4370: 5f 72 76 20 3d 20 43 5f 44 65 63 72 79 70 74 28  _rv = C_Decrypt(
4380: 68 53 65 73 73 69 6f 6e 2c 20 28 43 4b 5f 42 59  hSession, (CK_BY
4390: 54 45 5f 50 54 52 29 20 22 5c 78 34 63 5c 78 33  TE_PTR) "\x4c\x3
43a0: 36 5c 78 30 66 5c 78 38 36 5c 78 32 64 5c 78 62  6\x0f\x86\x2d\xb
43b0: 37 5c 78 62 32 5c 78 34 36 5c 78 39 32 5c 78 31  7\xb2\x46\x92\x1
43c0: 31 5c 78 37 65 5c 78 35 66 5c 78 64 31 5c 78 65  1\x7e\x5f\xd1\xe
43d0: 62 5c 78 32 63 5c 78 62 30 5c 78 64 62 5c 78 33  b\x2c\xb0\xdb\x3
43e0: 34 5c 78 36 30 5c 78 62 38 5c 78 30 63 5c 78 66  4\x60\xb8\x0c\xf
43f0: 38 5c 78 32 37 5c 78 62 35 5c 78 66 62 5c 78 63  8\x27\xb5\xfb\xc
4400: 65 5c 78 64 31 5c 78 66 34 5c 78 35 38 5c 78 61  e\xd1\xf4\x58\xa
4410: 33 5c 78 32 30 5c 78 35 32 5c 78 39 64 5c 78 39  3\x20\x52\x9d\x9
4420: 37 5c 78 30 38 5c 78 64 38 5c 78 32 62 5c 78 35  7\x08\xd8\x2b\x5
4430: 65 5c 78 62 32 5c 78 33 37 5c 78 34 36 5c 78 37  e\xb2\x37\x46\x7
4440: 32 5c 78 34 35 5c 78 37 63 5c 78 36 36 5c 78 32  2\x45\x7c\x66\x2
4450: 33 5c 78 35 33 5c 78 62 35 5c 78 61 35 5c 78 31  3\x53\xb5\xa5\x1
4460: 36 5c 78 36 31 5c 78 39 36 5c 78 62 63 5c 78 35  6\x61\x96\xbc\x5
4470: 63 5c 78 38 64 5c 78 38 35 5c 78 31 38 5c 78 32  c\x8d\x85\x18\x2
4480: 34 5c 78 63 66 5c 78 37 34 5c 78 37 66 5c 78 63  4\xcf\x74\x7f\xc
4490: 32 5c 78 32 33 5c 78 31 35 5c 78 64 36 5c 78 34  2\x23\x15\xd6\x4
44a0: 32 5c 78 37 32 5c 78 61 35 5c 78 32 62 5c 78 32  2\x72\xa5\x2b\x2
44b0: 39 5c 78 32 39 5c 78 31 64 5c 78 61 36 5c 78 65  9\x29\x1d\xa6\xe
44c0: 61 5c 78 32 62 5c 78 63 62 5c 78 35 37 5c 78 35  a\x2b\xcb\x57\x5
44d0: 39 5c 78 62 33 5c 78 35 66 5c 78 65 32 5c 78 66  9\xb3\x5f\xe2\xf
44e0: 38 5c 78 33 30 5c 78 31 32 5c 78 32 66 5c 78 31  8\x30\x12\x2f\x1
44f0: 62 5c 78 66 61 5c 78 62 64 5c 78 61 39 5c 78 31  b\xfa\xbd\xa9\x1
4500: 39 5c 78 65 66 5c 78 35 63 5c 78 62 62 5c 78 34  9\xef\x5c\xbb\x4
4510: 38 5c 78 64 63 5c 78 32 38 5c 78 34 32 5c 78 64  8\xdc\x28\x42\xd
4520: 64 5c 78 39 30 5c 78 62 65 5c 78 36 33 5c 78 65  d\x90\xbe\x63\xe
4530: 62 5c 78 35 39 5c 78 30 63 5c 78 61 66 5c 78 35  b\x59\x0c\xaf\x5
4540: 39 5c 78 63 62 5c 78 65 34 5c 78 36 61 5c 78 66  9\xcb\xe4\x6a\xf
4550: 32 5c 78 35 36 5c 78 32 34 5c 78 34 31 5c 78 63  2\x56\x24\x41\xc
4560: 32 5c 78 37 37 5c 78 37 62 5c 78 63 39 5c 78 66  2\x77\x7b\xc9\xf
4570: 38 5c 78 30 32 5c 78 30 66 5c 78 36 37 5c 78 33  8\x02\x0f\x67\x3
4580: 64 5c 78 32 61 5c 78 39 38 5c 78 39 31 5c 78 31  d\x2a\x98\x91\x1
4590: 34 5c 78 61 32 5c 78 35 37 22 2c 20 31 32 38 2c  4\xa2\x57", 128,
45a0: 20 64 65 63 72 79 70 74 65 64 5f 62 75 66 2c 20   decrypted_buf, 
45b0: 26 64 65 63 72 79 70 74 65 64 5f 62 75 66 6c 65  &decrypted_bufle
45c0: 6e 29 3b 0a 09 09 09 09 69 66 20 28 63 68 6b 5f  n);.....if (chk_
45d0: 72 76 20 3d 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a  rv == CKR_OK) {.
45e0: 09 09 09 09 09 70 72 69 6e 74 66 28 22 5b 25 30  .....printf("[%0
45f0: 34 6c 75 2f 25 30 32 6c 78 5d 20 44 65 63 72 79  4lu/%02lx] Decry
4600: 70 74 65 64 28 49 74 20 77 6f 72 6b 73 21 29 3a  pted(It works!):
4610: 20 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f   ", (unsigned lo
4620: 6e 67 29 20 2a 63 75 72 72 50 72 69 76 4b 65 79  ng) *currPrivKey
4630: 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67  , (unsigned long
4640: 29 20 6d 65 63 68 61 6e 69 73 6d 2e 6d 65 63 68  ) mechanism.mech
4650: 61 6e 69 73 6d 29 3b 0a 0a 09 09 09 09 09 66 6f  anism);.......fo
4660: 72 20 28 62 79 74 65 5f 69 64 78 20 3d 20 30 3b  r (byte_idx = 0;
4670: 20 62 79 74 65 5f 69 64 78 20 3c 20 64 65 63 72   byte_idx < decr
4680: 79 70 74 65 64 5f 62 75 66 6c 65 6e 3b 20 62 79  ypted_buflen; by
4690: 74 65 5f 69 64 78 2b 2b 29 20 7b 0a 09 09 09 09  te_idx++) {.....
46a0: 09 09 70 72 69 6e 74 66 28 22 25 30 32 78 20 22  ..printf("%02x "
46b0: 2c 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 29  , (unsigned int)
46c0: 20 64 65 63 72 79 70 74 65 64 5f 62 75 66 5b 62   decrypted_buf[b
46d0: 79 74 65 5f 69 64 78 5d 29 3b 0a 09 09 09 09 09  yte_idx]);......
46e0: 7d 0a 0a 09 09 09 09 09 70 72 69 6e 74 66 28 22  }.......printf("
46f0: 5c 6e 22 29 3b 0a 09 09 09 09 7d 20 65 6c 73 65  \n");.....} else
4700: 20 7b 0a 09 09 09 09 09 70 72 69 6e 74 66 28 22   {......printf("
4710: 44 65 63 72 79 70 74 28 29 20 66 61 69 6c 65 64  Decrypt() failed
4720: 2e 5c 6e 22 29 3b 0a 09 09 09 09 7d 0a 09 09 09  .\n");.....}....
4730: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 70 72 69  } else {.....pri
4740: 6e 74 66 28 22 44 65 63 72 79 70 74 49 6e 69 74  ntf("DecryptInit
4750: 28 29 20 66 61 69 6c 65 64 2e 5c 6e 22 29 3b 0a  () failed.\n");.
4760: 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 63 68 6b 5f  ...}...}....chk_
4770: 72 76 20 3d 20 43 5f 43 6c 6f 73 65 53 65 73 73  rv = C_CloseSess
4780: 69 6f 6e 28 68 53 65 73 73 69 6f 6e 29 3b 0a 09  ion(hSession);..
4790: 09 69 66 20 28 63 68 6b 5f 72 76 20 21 3d 20 43  .if (chk_rv != C
47a0: 4b 52 5f 4f 4b 29 20 7b 0a 09 09 09 70 72 69 6e  KR_OK) {....prin
47b0: 74 66 28 22 43 6c 6f 73 65 53 65 73 73 69 6f 6e  tf("CloseSession
47c0: 20 66 61 69 6c 65 64 2e 5c 6e 22 29 3b 0a 09 09   failed.\n");...
47d0: 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 70 72  }..} else {...pr
47e0: 69 6e 74 66 28 22 4f 70 65 6e 53 65 73 73 69 6f  intf("OpenSessio
47f0: 6e 20 66 61 69 6c 65 64 2e 5c 6e 22 29 3b 0a 09  n failed.\n");..
4800: 7d 0a 0a 09 43 5f 46 69 6e 61 6c 69 7a 65 28 4e  }...C_Finalize(N
4810: 55 4c 4c 29 3b 0a 0a 09 69 66 20 28 73 6c 6f 74  ULL);...if (slot
4820: 73 29 20 7b 0a 09 09 66 72 65 65 28 73 6c 6f 74  s) {...free(slot
4830: 73 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 70 72 69  s);..}...if (pri
4840: 76 61 74 65 4b 65 79 4f 62 6a 65 63 74 73 5f 72  vateKeyObjects_r
4850: 6f 6f 74 29 20 7b 0a 09 09 66 72 65 65 28 70 72  oot) {...free(pr
4860: 69 76 61 74 65 4b 65 79 4f 62 6a 65 63 74 73 5f  ivateKeyObjects_
4870: 72 6f 6f 74 29 3b 0a 09 7d 0a 0a 09 72 65 74 75  root);..}...retu
4880: 72 6e 28 30 29 3b 0a 7d 0a 0a 69 6e 74 20 6d 61  rn(0);.}..int ma
4890: 69 6e 28 76 6f 69 64 29 20 7b 0a 09 69 6e 74 20  in(void) {..int 
48a0: 72 65 74 76 61 6c 20 3d 20 30 2c 20 63 6b 5f 72  retval = 0, ck_r
48b0: 65 74 76 61 6c 3b 0a 0a 09 70 72 69 6e 74 66 28  etval;...printf(
48c0: 22 54 65 73 74 69 6e 67 20 6c 69 62 63 61 63 6b  "Testing libcack
48d0: 65 79 2e 2e 2e 5c 6e 22 29 3b 0a 0a 09 63 6b 5f  ey...\n");...ck_
48e0: 72 65 74 76 61 6c 20 3d 20 6d 61 69 6e 5f 70 6b  retval = main_pk
48f0: 63 73 31 31 28 29 3b 0a 0a 09 69 66 20 28 63 6b  cs11();...if (ck
4900: 5f 72 65 74 76 61 6c 20 21 3d 20 30 29 20 7b 0a  _retval != 0) {.
4910: 09 09 72 65 74 76 61 6c 20 3d 20 63 6b 5f 72 65  ..retval = ck_re
4920: 74 76 61 6c 3b 0a 09 7d 0a 0a 09 70 72 69 6e 74  tval;..}...print
4930: 66 28 22 54 65 73 74 69 6e 67 20 6c 69 62 63 61  f("Testing libca
4940: 63 6b 65 79 2e 2e 2e 20 44 4f 4e 45 2e 20 53 74  ckey... DONE. St
4950: 61 74 75 73 20 3d 20 25 69 5c 6e 22 2c 20 63 6b  atus = %i\n", ck
4960: 5f 72 65 74 76 61 6c 29 3b 0a 0a 09 72 65 74 75  _retval);...retu
4970: 72 6e 28 72 65 74 76 61 6c 29 3b 0a 7d 0a        rn(retval);.}.