0000: 23 69 66 64 65 66 20 48 41 56 45 5f 43 4f 4e 46 #ifdef HAVE_CONF
0010: 49 47 5f 48 0a 23 69 6e 63 6c 75 64 65 20 22 63 IG_H.#include "c
0020: 6f 6e 66 69 67 2e 68 22 0a 23 65 6e 64 69 66 0a onfig.h".#endif.
0030: 0a 23 69 66 64 65 66 20 48 41 56 45 5f 57 49 4e .#ifdef HAVE_WIN
0040: 54 59 50 45 53 5f 48 0a 23 20 20 69 6e 63 6c 75 TYPES_H.# inclu
0050: 64 65 20 3c 77 69 6e 74 79 70 65 73 2e 68 3e 0a de <wintypes.h>.
0060: 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 48 41 #endif.#ifdef HA
0070: 56 45 5f 50 43 53 43 4c 49 54 45 5f 48 0a 23 20 VE_PCSCLITE_H.#
0080: 20 69 6e 63 6c 75 64 65 20 3c 70 63 73 63 6c 69 include <pcscli
0090: 74 65 2e 68 3e 0a 23 65 6e 64 69 66 0a 23 69 66 te.h>.#endif.#if
00a0: 64 65 66 20 48 41 56 45 5f 57 49 4e 53 43 41 52 def HAVE_WINSCAR
00b0: 44 5f 48 0a 23 20 20 69 6e 63 6c 75 64 65 20 3c D_H.# include <
00c0: 77 69 6e 73 63 61 72 64 2e 68 3e 0a 23 65 6e 64 winscard.h>.#end
00d0: 69 66 0a 23 69 66 64 65 66 20 48 41 56 45 5f 53 if.#ifdef HAVE_S
00e0: 54 44 49 4e 54 5f 48 0a 23 20 20 69 6e 63 6c 75 TDINT_H.# inclu
00f0: 64 65 20 3c 73 74 64 69 6e 74 2e 68 3e 0a 23 65 de <stdint.h>.#e
0100: 6e 64 69 66 0a 23 69 66 64 65 66 20 48 41 56 45 ndif.#ifdef HAVE
0110: 5f 49 4e 54 54 59 50 45 53 5f 48 0a 23 20 20 69 _INTTYPES_H.# i
0120: 6e 63 6c 75 64 65 20 3c 69 6e 74 74 79 70 65 73 nclude <inttypes
0130: 2e 68 3e 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 .h>.#endif.#ifde
0140: 66 20 48 41 56 45 5f 53 54 44 4c 49 42 5f 48 0a f HAVE_STDLIB_H.
0150: 23 20 20 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c # include <stdl
0160: 69 62 2e 68 3e 0a 23 65 6e 64 69 66 0a 23 69 66 ib.h>.#endif.#if
0170: 64 65 66 20 48 41 56 45 5f 55 4e 49 53 54 44 5f def HAVE_UNISTD_
0180: 48 0a 23 20 20 69 6e 63 6c 75 64 65 20 3c 75 6e H.# include <un
0190: 69 73 74 64 2e 68 3e 0a 23 65 6e 64 69 66 0a 23 istd.h>.#endif.#
01a0: 69 66 64 65 66 20 48 41 56 45 5f 53 54 52 49 4e ifdef HAVE_STRIN
01b0: 47 5f 48 0a 23 20 20 69 6e 63 6c 75 64 65 20 3c G_H.# include <
01c0: 73 74 72 69 6e 67 2e 68 3e 0a 23 65 6e 64 69 66 string.h>.#endif
01d0: 0a 23 69 66 64 65 66 20 48 41 56 45 5f 50 54 48 .#ifdef HAVE_PTH
01e0: 52 45 41 44 5f 48 0a 23 20 20 69 6e 63 6c 75 64 READ_H.# includ
01f0: 65 20 3c 70 74 68 72 65 61 64 2e 68 3e 0a 23 65 e <pthread.h>.#e
0200: 6e 64 69 66 0a 23 69 66 64 65 66 20 48 41 56 45 ndif.#ifdef HAVE
0210: 5f 4c 49 4d 49 54 53 5f 48 0a 23 20 20 69 6e 63 _LIMITS_H.# inc
0220: 6c 75 64 65 20 3c 6c 69 6d 69 74 73 2e 68 3e 0a lude <limits.h>.
0230: 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 48 41 #endif.#ifdef HA
0240: 56 45 5f 53 54 44 49 4f 5f 48 0a 23 20 20 69 6e VE_STDIO_H.# in
0250: 63 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a clude <stdio.h>.
0260: 23 65 6e 64 69 66 0a 23 64 65 66 69 6e 65 20 48 #endif.#define H
0270: 41 56 45 5f 45 52 52 4e 4f 5f 48 20 31 0a 23 69 AVE_ERRNO_H 1.#i
0280: 66 64 65 66 20 48 41 56 45 5f 45 52 52 4e 4f 5f fdef HAVE_ERRNO_
0290: 48 0a 23 20 20 69 6e 63 6c 75 64 65 20 3c 65 72 H.# include <er
02a0: 72 6e 6f 2e 68 3e 0a 23 65 6e 64 69 66 0a 23 69 rno.h>.#endif.#i
02b0: 66 64 65 66 20 48 41 56 45 5f 5a 4c 49 42 5f 48 fdef HAVE_ZLIB_H
02c0: 0a 23 20 20 69 66 64 65 66 20 48 41 56 45 5f 4c .# ifdef HAVE_L
02d0: 49 42 5a 0a 23 20 20 20 20 69 6e 63 6c 75 64 65 IBZ.# include
02e0: 20 3c 7a 6c 69 62 2e 68 3e 0a 23 20 20 65 6e 64 <zlib.h>.# end
02f0: 69 66 0a 23 65 6c 73 65 0a 23 20 20 69 66 64 65 if.#else.# ifde
0300: 66 20 48 41 56 45 5f 4c 49 42 5a 0a 23 20 20 20 f HAVE_LIBZ.#
0310: 20 75 6e 64 65 66 20 48 41 56 45 5f 4c 49 42 5a undef HAVE_LIBZ
0320: 0a 23 20 20 65 6e 64 69 66 0a 23 65 6e 64 69 66 .# endif.#endif
0330: 0a 23 69 66 64 65 66 20 43 41 43 4b 45 59 5f 44 .#ifdef CACKEY_D
0340: 45 42 55 47 5f 53 45 41 52 43 48 5f 53 50 45 45 EBUG_SEARCH_SPEE
0350: 44 54 45 53 54 0a 23 20 20 69 6e 63 6c 75 64 65 DTEST.# include
0360: 20 3c 73 79 73 2f 74 69 6d 65 2e 68 3e 0a 23 65 <sys/time.h>.#e
0370: 6e 64 69 66 0a 0a 23 64 65 66 69 6e 65 20 43 4b ndif..#define CK
0380: 5f 50 54 52 20 2a 0a 23 64 65 66 69 6e 65 20 43 _PTR *.#define C
0390: 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f K_DEFINE_FUNCTIO
03a0: 4e 28 72 65 74 75 72 6e 54 79 70 65 2c 20 6e 61 N(returnType, na
03b0: 6d 65 29 20 72 65 74 75 72 6e 54 79 70 65 20 6e me) returnType n
03c0: 61 6d 65 0a 23 64 65 66 69 6e 65 20 43 4b 5f 44 ame.#define CK_D
03d0: 45 43 4c 41 52 45 5f 46 55 4e 43 54 49 4f 4e 28 ECLARE_FUNCTION(
03e0: 72 65 74 75 72 6e 54 79 70 65 2c 20 6e 61 6d 65 returnType, name
03f0: 29 20 72 65 74 75 72 6e 54 79 70 65 20 6e 61 6d ) returnType nam
0400: 65 0a 23 64 65 66 69 6e 65 20 43 4b 5f 44 45 43 e.#define CK_DEC
0410: 4c 41 52 45 5f 46 55 4e 43 54 49 4f 4e 5f 50 4f LARE_FUNCTION_PO
0420: 49 4e 54 45 52 28 72 65 74 75 72 6e 54 79 70 65 INTER(returnType
0430: 2c 20 6e 61 6d 65 29 20 72 65 74 75 72 6e 54 79 , name) returnTy
0440: 70 65 20 28 2a 20 6e 61 6d 65 29 0a 23 64 65 66 pe (* name).#def
0450: 69 6e 65 20 43 4b 5f 43 41 4c 4c 42 41 43 4b 5f ine CK_CALLBACK_
0460: 46 55 4e 43 54 49 4f 4e 28 72 65 74 75 72 6e 54 FUNCTION(returnT
0470: 79 70 65 2c 20 6e 61 6d 65 29 20 72 65 74 75 72 ype, name) retur
0480: 6e 54 79 70 65 20 28 2a 20 6e 61 6d 65 29 0a 23 nType (* name).#
0490: 69 66 6e 64 65 66 20 4e 55 4c 4c 5f 50 54 52 0a ifndef NULL_PTR.
04a0: 23 20 20 64 65 66 69 6e 65 20 4e 55 4c 4c 5f 50 # define NULL_P
04b0: 54 52 20 30 0a 23 65 6e 64 69 66 0a 0a 23 69 6e TR 0.#endif..#in
04c0: 63 6c 75 64 65 20 22 70 6b 63 73 31 31 2e 68 22 clude "pkcs11.h"
04d0: 0a 23 69 6e 63 6c 75 64 65 20 22 70 6b 63 73 31 .#include "pkcs1
04e0: 31 6e 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 1n.h".#include "
04f0: 61 73 6e 31 2d 78 35 30 39 2e 68 22 0a 23 69 6e asn1-x509.h".#in
0500: 63 6c 75 64 65 20 22 73 68 61 31 2e 68 22 0a 23 clude "sha1.h".#
0510: 69 6e 63 6c 75 64 65 20 22 6d 64 35 2e 68 22 0a include "md5.h".
0520: 0a 23 69 66 6e 64 65 66 20 43 41 43 4b 45 59 5f .#ifndef CACKEY_
0530: 43 52 59 50 54 4f 4b 49 5f 56 45 52 53 49 4f 4e CRYPTOKI_VERSION
0540: 5f 43 4f 44 45 0a 23 20 20 64 65 66 69 6e 65 20 _CODE.# define
0550: 43 41 43 4b 45 59 5f 43 52 59 50 54 4f 4b 49 5f CACKEY_CRYPTOKI_
0560: 56 45 52 53 49 4f 4e 5f 43 4f 44 45 20 30 78 30 VERSION_CODE 0x0
0570: 32 31 65 30 30 0a 23 65 6e 64 69 66 0a 0a 2f 2a 21e00.#endif../*
0580: 20 47 53 43 2d 49 53 20 76 32 2e 31 20 44 65 66 GSC-IS v2.1 Def
0590: 69 6e 69 74 69 6f 6e 73 20 2a 2f 0a 2f 2a 2a 20 initions */./**
05a0: 43 6c 61 73 73 65 73 20 2a 2a 2f 0a 23 64 65 66 Classes **/.#def
05b0: 69 6e 65 20 47 53 43 49 53 5f 43 4c 41 53 53 5f ine GSCIS_CLASS_
05c0: 49 53 4f 37 38 31 36 20 20 20 20 20 20 20 20 20 ISO7816
05d0: 20 20 30 78 30 30 0a 23 64 65 66 69 6e 65 20 47 0x00.#define G
05e0: 53 43 49 53 5f 43 4c 41 53 53 5f 47 4c 4f 42 41 SCIS_CLASS_GLOBA
05f0: 4c 5f 50 4c 41 54 46 4f 52 4d 20 20 20 30 78 38 L_PLATFORM 0x8
0600: 30 0a 0a 2f 2a 2a 20 49 6e 73 74 72 75 63 74 69 0../** Instructi
0610: 6f 6e 73 20 2a 2a 2f 0a 23 64 65 66 69 6e 65 20 ons **/.#define
0620: 47 53 43 49 53 5f 49 4e 53 54 52 5f 47 45 54 5f GSCIS_INSTR_GET_
0630: 52 45 53 50 4f 4e 53 45 20 20 20 20 20 20 30 78 RESPONSE 0x
0640: 43 30 0a 23 64 65 66 69 6e 65 20 47 53 43 49 53 C0.#define GSCIS
0650: 5f 49 4e 53 54 52 5f 52 45 41 44 5f 42 49 4e 41 _INSTR_READ_BINA
0660: 52 59 20 20 20 20 20 20 20 30 78 42 30 0a 23 64 RY 0xB0.#d
0670: 65 66 69 6e 65 20 47 53 43 49 53 5f 49 4e 53 54 efine GSCIS_INST
0680: 52 5f 55 50 44 41 54 45 5f 42 49 4e 41 52 59 20 R_UPDATE_BINARY
0690: 20 20 20 20 30 78 44 36 0a 23 64 65 66 69 6e 65 0xD6.#define
06a0: 20 47 53 43 49 53 5f 49 4e 53 54 52 5f 53 45 4c GSCIS_INSTR_SEL
06b0: 45 43 54 20 20 20 20 20 20 20 20 20 20 20 20 30 ECT 0
06c0: 78 41 34 0a 23 64 65 66 69 6e 65 20 47 53 43 49 xA4.#define GSCI
06d0: 53 5f 49 4e 53 54 52 5f 45 58 54 45 52 4e 41 4c S_INSTR_EXTERNAL
06e0: 5f 41 55 54 48 20 20 20 20 20 30 78 38 32 0a 23 _AUTH 0x82.#
06f0: 64 65 66 69 6e 65 20 47 53 43 49 53 5f 49 4e 53 define GSCIS_INS
0700: 54 52 5f 47 45 54 5f 43 48 41 4c 4c 45 4e 47 45 TR_GET_CHALLENGE
0710: 20 20 20 20 20 30 78 38 34 0a 23 64 65 66 69 6e 0x84.#defin
0720: 65 20 47 53 43 49 53 5f 49 4e 53 54 52 5f 49 4e e GSCIS_INSTR_IN
0730: 54 45 52 4e 41 4c 5f 41 55 54 48 20 20 20 20 20 TERNAL_AUTH
0740: 30 78 38 38 0a 23 64 65 66 69 6e 65 20 47 53 43 0x88.#define GSC
0750: 49 53 5f 49 4e 53 54 52 5f 56 45 52 49 46 59 20 IS_INSTR_VERIFY
0760: 20 20 20 20 20 20 20 20 20 20 20 30 78 32 30 0a 0x20.
0770: 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f 49 4e #define GSCIS_IN
0780: 53 54 52 5f 43 48 41 4e 47 45 5f 52 45 46 45 52 STR_CHANGE_REFER
0790: 45 4e 43 45 20 20 30 78 32 34 0a 23 64 65 66 69 ENCE 0x24.#defi
07a0: 6e 65 20 47 53 43 49 53 5f 49 4e 53 54 52 5f 53 ne GSCIS_INSTR_S
07b0: 49 47 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 IGN
07c0: 20 30 78 32 41 0a 23 64 65 66 69 6e 65 20 47 53 0x2A.#define GS
07d0: 43 49 53 5f 49 4e 53 54 52 5f 47 45 54 5f 50 52 CIS_INSTR_GET_PR
07e0: 4f 50 20 20 20 20 20 20 20 20 20 20 30 78 35 36 OP 0x56
07f0: 0a 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f 49 .#define GSCIS_I
0800: 4e 53 54 52 5f 47 45 54 5f 41 43 52 20 20 20 20 NSTR_GET_ACR
0810: 20 20 20 20 20 20 20 30 78 34 43 0a 23 64 65 66 0x4C.#def
0820: 69 6e 65 20 47 53 43 49 53 5f 49 4e 53 54 52 5f ine GSCIS_INSTR_
0830: 52 45 41 44 5f 42 55 46 46 45 52 20 20 20 20 20 READ_BUFFER
0840: 20 20 30 78 35 32 0a 23 64 65 66 69 6e 65 20 47 0x52.#define G
0850: 53 43 49 53 5f 49 4e 53 54 52 5f 53 49 47 4e 44 SCIS_INSTR_SIGND
0860: 45 43 52 59 50 54 20 20 20 20 20 20 20 30 78 34 ECRYPT 0x4
0870: 32 0a 0a 23 64 65 66 69 6e 65 20 47 53 43 49 53 2..#define GSCIS
0880: 5f 50 41 52 41 4d 5f 53 45 4c 45 43 54 5f 41 50 _PARAM_SELECT_AP
0890: 50 4c 45 54 20 20 20 20 20 30 78 30 34 0a 0a 2f PLET 0x04../
08a0: 2a 2a 20 54 61 67 73 20 2a 2a 2f 0a 2f 2a 2a 2a ** Tags **/./***
08b0: 20 43 43 43 20 54 61 67 73 20 2a 2a 2a 2f 0a 23 CCC Tags ***/.#
08c0: 64 65 66 69 6e 65 20 47 53 43 49 53 5f 54 41 47 define GSCIS_TAG
08d0: 5f 43 41 52 44 49 44 20 20 20 20 20 20 20 20 20 _CARDID
08e0: 20 20 20 20 20 30 78 46 30 0a 23 64 65 66 69 6e 0xF0.#defin
08f0: 65 20 47 53 43 49 53 5f 54 41 47 5f 43 43 43 5f e GSCIS_TAG_CCC_
0900: 56 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 VER
0910: 30 78 46 31 0a 23 64 65 66 69 6e 65 20 47 53 43 0xF1.#define GSC
0920: 49 53 5f 54 41 47 5f 43 43 47 5f 56 45 52 20 20 IS_TAG_CCG_VER
0930: 20 20 20 20 20 20 20 20 20 20 20 30 78 46 32 0a 0xF2.
0940: 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f 54 41 #define GSCIS_TA
0950: 47 5f 43 41 52 44 55 52 4c 20 20 20 20 20 20 20 G_CARDURL
0960: 20 20 20 20 20 20 30 78 46 33 0a 23 64 65 66 69 0xF3.#defi
0970: 6e 65 20 47 53 43 49 53 5f 54 41 47 5f 50 4b 43 ne GSCIS_TAG_PKC
0980: 53 31 35 20 20 20 20 20 20 20 20 20 20 20 20 20 S15
0990: 20 30 78 46 34 0a 23 64 65 66 69 6e 65 20 47 53 0xF4.#define GS
09a0: 43 49 53 5f 54 41 47 5f 52 45 47 5f 44 41 54 41 CIS_TAG_REG_DATA
09b0: 5f 4d 4f 44 45 4c 20 20 20 20 20 20 30 78 46 35 _MODEL 0xF5
09c0: 0a 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f 54 .#define GSCIS_T
09d0: 41 47 5f 41 43 52 5f 54 41 42 4c 45 20 20 20 20 AG_ACR_TABLE
09e0: 20 20 20 20 20 20 20 30 78 46 36 0a 23 64 65 66 0xF6.#def
09f0: 69 6e 65 20 47 53 43 49 53 5f 54 41 47 5f 43 41 ine GSCIS_TAG_CA
0a00: 52 44 5f 41 50 44 55 20 20 20 20 20 20 20 20 20 RD_APDU
0a10: 20 20 30 78 46 37 0a 23 64 65 66 69 6e 65 20 47 0xF7.#define G
0a20: 53 43 49 53 5f 54 41 47 5f 52 45 44 49 52 45 43 SCIS_TAG_REDIREC
0a30: 54 49 4f 4e 20 20 20 20 20 20 20 20 20 30 78 46 TION 0xF
0a40: 41 0a 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f A.#define GSCIS_
0a50: 54 41 47 5f 43 54 20 20 20 20 20 20 20 20 20 20 TAG_CT
0a60: 20 20 20 20 20 20 20 20 30 78 46 42 0a 23 64 65 0xFB.#de
0a70: 66 69 6e 65 20 47 53 43 49 53 5f 54 41 47 5f 53 fine GSCIS_TAG_S
0a80: 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 T
0a90: 20 20 20 30 78 46 43 0a 23 64 65 66 69 6e 65 20 0xFC.#define
0aa0: 47 53 43 49 53 5f 54 41 47 5f 4e 45 58 54 43 43 GSCIS_TAG_NEXTCC
0ab0: 43 20 20 20 20 20 20 20 20 20 20 20 20 20 30 78 C 0x
0ac0: 46 44 0a 0a 2f 2a 2a 2a 20 47 65 6e 65 72 61 6c FD../*** General
0ad0: 20 2d 20 45 46 20 32 32 30 30 20 2a 2a 2a 2f 0a - EF 2200 ***/.
0ae0: 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f 54 41 #define GSCIS_TA
0af0: 47 5f 46 4e 41 4d 45 20 20 20 20 20 20 20 20 20 G_FNAME
0b00: 20 20 20 20 20 20 30 78 30 31 0a 23 64 65 66 69 0x01.#defi
0b10: 6e 65 20 47 53 43 49 53 5f 54 41 47 5f 4d 4e 41 ne GSCIS_TAG_MNA
0b20: 4d 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ME
0b30: 20 30 78 30 32 0a 23 64 65 66 69 6e 65 20 47 53 0x02.#define GS
0b40: 43 49 53 5f 54 41 47 5f 4c 4e 41 4d 45 20 20 20 CIS_TAG_LNAME
0b50: 20 20 20 20 20 20 20 20 20 20 20 20 30 78 30 33 0x03
0b60: 0a 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f 54 .#define GSCIS_T
0b70: 41 47 5f 53 55 46 46 49 58 20 20 20 20 20 20 20 AG_SUFFIX
0b80: 20 20 20 20 20 20 20 30 78 30 34 0a 23 64 65 66 0x04.#def
0b90: 69 6e 65 20 47 53 43 49 53 5f 54 41 47 5f 47 4f ine GSCIS_TAG_GO
0ba0: 56 54 5f 41 47 45 4e 43 59 20 20 20 20 20 20 20 VT_AGENCY
0bb0: 20 20 30 78 30 35 0a 23 64 65 66 69 6e 65 20 47 0x05.#define G
0bc0: 53 43 49 53 5f 54 41 47 5f 42 55 52 45 41 55 20 SCIS_TAG_BUREAU
0bd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 30 78 30 0x0
0be0: 36 0a 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f 6.#define GSCIS_
0bf0: 54 41 47 5f 42 55 52 45 41 55 5f 43 4f 44 45 20 TAG_BUREAU_CODE
0c00: 20 20 20 20 20 20 20 20 30 78 30 37 0a 23 64 65 0x07.#de
0c10: 66 69 6e 65 20 47 53 43 49 53 5f 54 41 47 5f 44 fine GSCIS_TAG_D
0c20: 45 50 54 5f 43 4f 44 45 20 20 20 20 20 20 20 20 EPT_CODE
0c30: 20 20 20 30 78 30 38 0a 23 64 65 66 69 6e 65 20 0x08.#define
0c40: 47 53 43 49 53 5f 54 41 47 5f 54 49 54 4c 45 20 GSCIS_TAG_TITLE
0c50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 78 0x
0c60: 30 39 0a 23 64 65 66 69 6e 65 20 47 53 43 49 53 09.#define GSCIS
0c70: 5f 54 41 47 5f 42 55 49 4c 44 49 4e 47 20 20 20 _TAG_BUILDING
0c80: 20 20 20 20 20 20 20 20 20 30 78 31 30 0a 23 64 0x10.#d
0c90: 65 66 69 6e 65 20 47 53 43 49 53 5f 54 41 47 5f efine GSCIS_TAG_
0ca0: 4f 46 46 49 43 45 5f 41 44 44 52 31 20 20 20 20 OFFICE_ADDR1
0cb0: 20 20 20 20 30 78 31 31 0a 23 64 65 66 69 6e 65 0x11.#define
0cc0: 20 47 53 43 49 53 5f 54 41 47 5f 4f 46 46 49 43 GSCIS_TAG_OFFIC
0cd0: 45 5f 41 44 44 52 32 20 20 20 20 20 20 20 20 30 E_ADDR2 0
0ce0: 78 31 32 0a 23 64 65 66 69 6e 65 20 47 53 43 49 x12.#define GSCI
0cf0: 53 5f 54 41 47 5f 4f 46 46 49 43 45 5f 43 49 54 S_TAG_OFFICE_CIT
0d00: 59 20 20 20 20 20 20 20 20 20 30 78 31 33 0a 23 Y 0x13.#
0d10: 64 65 66 69 6e 65 20 47 53 43 49 53 5f 54 41 47 define GSCIS_TAG
0d20: 5f 4f 46 46 49 43 45 5f 53 54 41 54 45 20 20 20 _OFFICE_STATE
0d30: 20 20 20 20 20 30 78 31 34 0a 23 64 65 66 69 6e 0x14.#defin
0d40: 65 20 47 53 43 49 53 5f 54 41 47 5f 4f 46 46 49 e GSCIS_TAG_OFFI
0d50: 43 45 5f 5a 49 50 20 20 20 20 20 20 20 20 20 20 CE_ZIP
0d60: 30 78 31 35 0a 23 64 65 66 69 6e 65 20 47 53 43 0x15.#define GSC
0d70: 49 53 5f 54 41 47 5f 4f 46 46 49 43 45 5f 43 4f IS_TAG_OFFICE_CO
0d80: 55 4e 54 52 59 20 20 20 20 20 20 30 78 31 36 0a UNTRY 0x16.
0d90: 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f 54 41 #define GSCIS_TA
0da0: 47 5f 4f 46 46 49 43 45 5f 50 48 4f 4e 45 20 20 G_OFFICE_PHONE
0db0: 20 20 20 20 20 20 30 78 31 37 0a 23 64 65 66 69 0x17.#defi
0dc0: 6e 65 20 47 53 43 49 53 5f 54 41 47 5f 4f 46 46 ne GSCIS_TAG_OFF
0dd0: 49 43 45 5f 50 48 4f 4e 45 5f 45 58 54 20 20 20 ICE_PHONE_EXT
0de0: 20 30 78 31 38 0a 23 64 65 66 69 6e 65 20 47 53 0x18.#define GS
0df0: 43 49 53 5f 54 41 47 5f 4f 46 46 49 43 45 5f 46 CIS_TAG_OFFICE_F
0e00: 41 58 20 20 20 20 20 20 20 20 20 20 30 78 31 39 AX 0x19
0e10: 0a 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f 54 .#define GSCIS_T
0e20: 41 47 5f 4f 46 46 49 43 45 5f 45 4d 41 49 4c 20 AG_OFFICE_EMAIL
0e30: 20 20 20 20 20 20 20 30 78 31 41 0a 23 64 65 66 0x1A.#def
0e40: 69 6e 65 20 47 53 43 49 53 5f 54 41 47 5f 4f 46 ine GSCIS_TAG_OF
0e50: 46 49 43 45 5f 52 4f 4f 4d 20 20 20 20 20 20 20 FICE_ROOM
0e60: 20 20 30 78 31 42 0a 23 64 65 66 69 6e 65 20 47 0x1B.#define G
0e70: 53 43 49 53 5f 54 41 47 5f 4e 4f 4e 47 4f 56 5f SCIS_TAG_NONGOV_
0e80: 41 47 45 4e 43 59 20 20 20 20 20 20 20 30 78 31 AGENCY 0x1
0e90: 43 0a 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f C.#define GSCIS_
0ea0: 54 41 47 5f 53 53 4e 5f 44 45 53 49 47 4e 41 54 TAG_SSN_DESIGNAT
0eb0: 4f 52 20 20 20 20 20 20 30 78 31 44 0a 0a 2f 2a OR 0x1D../*
0ec0: 2a 2a 20 50 49 49 20 2d 20 45 46 20 32 31 30 30 ** PII - EF 2100
0ed0: 20 2a 2a 2a 2f 0a 23 64 65 66 69 6e 65 20 47 53 ***/.#define GS
0ee0: 43 49 53 5f 54 41 47 5f 53 53 4e 20 20 20 20 20 CIS_TAG_SSN
0ef0: 20 20 20 20 20 20 20 20 20 20 20 20 30 78 32 30 0x20
0f00: 0a 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f 54 .#define GSCIS_T
0f10: 41 47 5f 44 4f 42 20 20 20 20 20 20 20 20 20 20 AG_DOB
0f20: 20 20 20 20 20 20 20 30 78 32 31 0a 23 64 65 66 0x21.#def
0f30: 69 6e 65 20 47 53 43 49 53 5f 54 41 47 5f 47 45 ine GSCIS_TAG_GE
0f40: 4e 44 45 52 20 20 20 20 20 20 20 20 20 20 20 20 NDER
0f50: 20 20 30 78 32 32 0a 0a 2f 2a 2a 2a 20 4c 6f 67 0x22../*** Log
0f60: 69 6e 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 2d in Information -
0f70: 20 45 46 20 34 30 30 30 20 2a 2a 2a 2f 0a 23 64 EF 4000 ***/.#d
0f80: 65 66 69 6e 65 20 47 53 43 49 53 5f 54 41 47 5f efine GSCIS_TAG_
0f90: 55 53 45 52 49 44 20 20 20 20 20 20 20 20 20 20 USERID
0fa0: 20 20 20 20 30 78 34 30 0a 23 64 65 66 69 6e 65 0x40.#define
0fb0: 20 47 53 43 49 53 5f 54 41 47 5f 44 4f 4d 41 49 GSCIS_TAG_DOMAI
0fc0: 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 N 0
0fd0: 78 34 31 0a 23 64 65 66 69 6e 65 20 47 53 43 49 x41.#define GSCI
0fe0: 53 5f 54 41 47 5f 50 41 53 53 57 4f 52 44 20 20 S_TAG_PASSWORD
0ff0: 20 20 20 20 20 20 20 20 20 20 30 78 34 32 0a 0a 0x42..
1000: 2f 2a 2a 2a 20 43 61 72 64 20 49 6e 66 6f 72 6d /*** Card Inform
1010: 61 74 69 6f 6e 20 2d 20 45 46 20 35 30 30 30 20 ation - EF 5000
1020: 2a 2a 2a 2f 0a 23 64 65 66 69 6e 65 20 47 53 43 ***/.#define GSC
1030: 49 53 5f 54 41 47 5f 49 53 53 55 45 52 49 44 20 IS_TAG_ISSUERID
1040: 20 20 20 20 20 20 20 20 20 20 20 30 78 35 30 0a 0x50.
1050: 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f 54 41 #define GSCIS_TA
1060: 47 5f 53 45 52 4e 4f 20 20 20 20 20 20 20 20 20 G_SERNO
1070: 20 20 20 20 20 20 30 78 35 31 0a 23 64 65 66 69 0x51.#defi
1080: 6e 65 20 47 53 43 49 53 5f 54 41 47 5f 49 53 53 ne GSCIS_TAG_ISS
1090: 55 45 5f 44 41 54 45 20 20 20 20 20 20 20 20 20 UE_DATE
10a0: 20 30 78 35 32 0a 23 64 65 66 69 6e 65 20 47 53 0x52.#define GS
10b0: 43 49 53 5f 54 41 47 5f 45 58 50 49 52 45 5f 44 CIS_TAG_EXPIRE_D
10c0: 41 54 45 20 20 20 20 20 20 20 20 20 30 78 35 33 ATE 0x53
10d0: 0a 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f 54 .#define GSCIS_T
10e0: 41 47 5f 43 41 52 44 5f 54 59 50 45 20 20 20 20 AG_CARD_TYPE
10f0: 20 20 20 20 20 20 20 30 78 35 34 0a 23 64 65 66 0x54.#def
1100: 69 6e 65 20 47 53 43 49 53 5f 54 41 47 5f 53 45 ine GSCIS_TAG_SE
1110: 43 55 52 49 54 59 5f 43 4f 44 45 20 20 20 20 20 CURITY_CODE
1120: 20 20 30 78 35 37 0a 23 64 65 66 69 6e 65 20 47 0x57.#define G
1130: 53 43 49 53 5f 54 41 47 5f 43 41 52 44 49 44 5f SCIS_TAG_CARDID_
1140: 41 49 44 20 20 20 20 20 20 20 20 20 20 30 78 35 AID 0x5
1150: 38 0a 0a 2f 2a 2a 2a 20 50 49 56 20 43 6f 64 65 8../*** PIV Code
1160: 73 20 2a 2a 2a 2f 0a 23 64 65 66 69 6e 65 20 4e s ***/.#define N
1170: 49 53 54 53 50 38 30 30 5f 37 33 5f 33 5f 49 4e ISTSP800_73_3_IN
1180: 53 54 52 5f 47 45 54 5f 44 41 54 41 20 30 78 43 STR_GET_DATA 0xC
1190: 42 0a 23 64 65 66 69 6e 65 20 4e 49 53 54 53 50 B.#define NISTSP
11a0: 38 30 30 5f 37 33 5f 33 5f 49 4e 53 54 52 5f 47 800_73_3_INSTR_G
11b0: 45 4e 41 55 54 48 20 20 30 78 38 37 0a 0a 2f 2a ENAUTH 0x87../*
11c0: 2a 2a 20 50 4b 49 20 49 6e 66 6f 72 6d 61 74 69 ** PKI Informati
11d0: 6f 6e 20 2d 20 45 46 20 37 30 30 30 20 2a 2a 2a on - EF 7000 ***
11e0: 2f 0a 23 64 65 66 69 6e 65 20 47 53 43 49 53 5f /.#define GSCIS_
11f0: 54 41 47 5f 43 45 52 54 49 46 49 43 41 54 45 20 TAG_CERTIFICATE
1200: 20 20 20 20 20 20 20 20 30 78 37 30 0a 23 64 65 0x70.#de
1210: 66 69 6e 65 20 47 53 43 49 53 5f 54 41 47 5f 43 fine GSCIS_TAG_C
1220: 45 52 54 5f 49 53 53 55 45 5f 44 41 54 45 20 20 ERT_ISSUE_DATE
1230: 20 20 20 30 78 37 31 0a 23 64 65 66 69 6e 65 20 0x71.#define
1240: 47 53 43 49 53 5f 54 41 47 5f 43 45 52 54 5f 45 GSCIS_TAG_CERT_E
1250: 58 50 49 52 45 5f 44 41 54 45 20 20 20 20 30 78 XPIRE_DATE 0x
1260: 37 32 0a 0a 2f 2a 2a 20 41 70 70 6c 65 74 20 49 72../** Applet I
1270: 44 73 20 2a 2a 2f 0a 23 64 65 66 69 6e 65 20 47 Ds **/.#define G
1280: 53 43 49 53 5f 41 49 44 5f 43 43 43 20 20 20 20 SCIS_AID_CCC
1290: 20 20 20 20 20 20 20 20 20 20 20 20 20 30 78 41 0xA
12a0: 30 2c 20 30 78 30 30 2c 20 30 78 30 30 2c 20 30 0, 0x00, 0x00, 0
12b0: 78 30 31 2c 20 30 78 31 36 2c 20 30 78 44 42 2c x01, 0x16, 0xDB,
12c0: 20 30 78 30 30 0a 23 64 65 66 69 6e 65 20 4e 49 0x00.#define NI
12d0: 53 54 53 50 38 30 30 5f 37 33 5f 33 5f 50 49 56 STSP800_73_3_PIV
12e0: 5f 41 49 44 20 20 20 20 20 20 20 20 30 78 41 30 _AID 0xA0
12f0: 2c 20 30 78 30 30 2c 20 30 78 30 30 2c 20 30 78 , 0x00, 0x00, 0x
1300: 30 33 2c 20 30 78 30 38 2c 20 30 78 30 30 2c 20 03, 0x08, 0x00,
1310: 30 78 30 30 2c 20 30 78 31 30 2c 20 30 78 30 30 0x00, 0x10, 0x00
1320: 2c 20 30 78 30 31 2c 20 30 78 30 30 0a 0a 2f 2a , 0x01, 0x00../*
1330: 20 50 49 56 20 49 44 73 20 2a 2f 0a 2f 2a 2a 20 PIV IDs */./**
1340: 4b 65 79 20 49 64 65 6e 74 69 66 69 65 72 73 20 Key Identifiers
1350: 28 4e 49 53 54 20 53 50 20 38 30 30 2d 37 38 2d (NIST SP 800-78-
1360: 33 2c 20 54 61 62 6c 65 20 36 2d 31 20 2a 2a 2f 3, Table 6-1 **/
1370: 0a 23 64 65 66 69 6e 65 20 4e 49 53 54 53 50 38 .#define NISTSP8
1380: 30 30 5f 37 38 5f 33 5f 4b 45 59 5f 50 49 56 41 00_78_3_KEY_PIVA
1390: 55 54 48 20 20 20 30 78 39 41 0a 23 64 65 66 69 UTH 0x9A.#defi
13a0: 6e 65 20 4e 49 53 54 53 50 38 30 30 5f 37 38 5f ne NISTSP800_78_
13b0: 33 5f 4b 45 59 5f 53 49 47 4e 41 54 55 52 45 20 3_KEY_SIGNATURE
13c0: 30 78 39 43 0a 23 64 65 66 69 6e 65 20 4e 49 53 0x9C.#define NIS
13d0: 54 53 50 38 30 30 5f 37 38 5f 33 5f 4b 45 59 5f TSP800_78_3_KEY_
13e0: 4b 45 59 4d 47 54 20 20 20 20 30 78 39 44 0a 23 KEYMGT 0x9D.#
13f0: 64 65 66 69 6e 65 20 4e 49 53 54 53 50 38 30 30 define NISTSP800
1400: 5f 37 38 5f 33 5f 4b 45 59 5f 43 41 52 44 41 55 _78_3_KEY_CARDAU
1410: 54 48 20 20 30 78 39 45 0a 0a 2f 2a 2a 20 41 6c TH 0x9E../** Al
1420: 67 6f 72 69 74 68 6d 20 49 64 65 6e 74 69 66 69 gorithm Identifi
1430: 65 72 73 20 28 4e 49 53 54 20 53 50 20 38 30 30 ers (NIST SP 800
1440: 2d 37 38 2d 33 2c 20 54 61 62 6c 65 20 36 2d 32 -78-3, Table 6-2
1450: 20 2a 2a 2f 0a 23 64 65 66 69 6e 65 20 4e 49 53 **/.#define NIS
1460: 54 53 50 38 30 30 5f 37 38 5f 33 5f 41 4c 47 4f TSP800_78_3_ALGO
1470: 5f 52 53 41 31 30 32 34 20 20 30 78 30 36 0a 23 _RSA1024 0x06.#
1480: 64 65 66 69 6e 65 20 4e 49 53 54 53 50 38 30 30 define NISTSP800
1490: 5f 37 38 5f 33 5f 41 4c 47 4f 5f 52 53 41 32 30 _78_3_ALGO_RSA20
14a0: 34 38 20 20 30 78 30 37 0a 0a 2f 2a 2a 20 4f 62 48 0x07../** Ob
14b0: 6a 65 63 74 20 49 64 65 6e 74 69 66 69 65 72 73 ject Identifiers
14c0: 20 28 4e 49 53 54 20 53 50 20 38 30 30 2d 37 33 (NIST SP 800-73
14d0: 2d 33 20 50 61 72 74 20 31 2c 20 54 61 62 6c 65 -3 Part 1, Table
14e0: 20 32 29 20 2a 2a 2f 0a 23 64 65 66 69 6e 65 20 2) **/.#define
14f0: 4e 49 53 54 53 50 38 30 30 5f 37 33 5f 33 5f 4f NISTSP800_73_3_O
1500: 49 44 5f 50 49 56 41 55 54 48 20 20 20 30 78 35 ID_PIVAUTH 0x5
1510: 46 2c 20 30 78 43 31 2c 20 30 78 30 35 0a 23 64 F, 0xC1, 0x05.#d
1520: 65 66 69 6e 65 20 4e 49 53 54 53 50 38 30 30 5f efine NISTSP800_
1530: 37 33 5f 33 5f 4f 49 44 5f 53 49 47 4e 41 54 55 73_3_OID_SIGNATU
1540: 52 45 20 30 78 35 46 2c 20 30 78 43 31 2c 20 30 RE 0x5F, 0xC1, 0
1550: 78 30 41 0a 23 64 65 66 69 6e 65 20 4e 49 53 54 x0A.#define NIST
1560: 53 50 38 30 30 5f 37 33 5f 33 5f 4f 49 44 5f 4b SP800_73_3_OID_K
1570: 45 59 4d 47 54 20 20 20 20 30 78 35 46 2c 20 30 EYMGT 0x5F, 0
1580: 78 43 31 2c 20 30 78 30 42 0a 23 64 65 66 69 6e xC1, 0x0B.#defin
1590: 65 20 4e 49 53 54 53 50 38 30 30 5f 37 33 5f 33 e NISTSP800_73_3
15a0: 5f 4f 49 44 5f 43 41 52 44 41 55 54 48 20 20 30 _OID_CARDAUTH 0
15b0: 78 35 46 2c 20 30 78 43 31 2c 20 30 78 30 31 0a x5F, 0xC1, 0x01.
15c0: 0a 2f 2a 20 4d 61 78 69 6d 75 6d 20 73 69 7a 65 ./* Maximum size
15d0: 20 6f 66 20 64 61 74 61 20 70 6f 72 74 69 6f 6e of data portion
15e0: 20 6f 66 20 41 50 44 55 73 20 2a 2f 0a 2f 2a 2a of APDUs */./**
15f0: 20 44 6f 20 6e 6f 74 20 73 65 74 20 74 68 69 73 Do not set this
1600: 20 61 62 6f 76 65 20 32 35 30 20 2a 2a 2f 0a 23 above 250 **/.#
1610: 64 65 66 69 6e 65 20 43 41 43 4b 45 59 5f 41 50 define CACKEY_AP
1620: 44 55 5f 4d 54 55 20 20 20 20 20 20 20 20 20 20 DU_MTU
1630: 20 20 20 20 20 32 35 30 0a 0a 2f 2a 20 41 54 52 250../* ATR
1640: 20 49 66 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c If not availabl
1650: 65 20 2a 2f 0a 23 69 66 6e 64 65 66 20 4d 41 58 e */.#ifndef MAX
1660: 5f 41 54 52 5f 53 49 5a 45 0a 23 64 65 66 69 6e _ATR_SIZE.#defin
1670: 65 20 4d 41 58 5f 41 54 52 5f 53 49 5a 45 20 31 e MAX_ATR_SIZE 1
1680: 30 32 34 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 024.#endif..#ifd
1690: 65 66 20 43 41 43 4b 45 59 5f 44 45 42 55 47 0a ef CACKEY_DEBUG.
16a0: 23 20 20 69 66 64 65 66 20 48 41 56 45 5f 54 49 # ifdef HAVE_TI
16b0: 4d 45 5f 48 0a 23 20 20 20 20 69 6e 63 6c 75 64 ME_H.# includ
16c0: 65 20 3c 74 69 6d 65 2e 68 3e 0a 73 74 61 74 69 e <time.h>.stati
16d0: 63 20 74 69 6d 65 5f 74 20 63 61 63 6b 65 79 5f c time_t cackey_
16e0: 64 65 62 75 67 5f 73 74 61 72 74 5f 74 69 6d 65 debug_start_time
16f0: 20 3d 20 30 3b 0a 73 74 61 74 69 63 20 75 6e 73 = 0;.static uns
1700: 69 67 6e 65 64 20 6c 6f 6e 67 20 43 41 43 4b 45 igned long CACKE
1710: 59 5f 44 45 42 55 47 5f 47 45 54 54 49 4d 45 28 Y_DEBUG_GETTIME(
1720: 76 6f 69 64 29 20 7b 0a 09 69 66 20 28 63 61 63 void) {..if (cac
1730: 6b 65 79 5f 64 65 62 75 67 5f 73 74 61 72 74 5f key_debug_start_
1740: 74 69 6d 65 20 3d 3d 20 30 29 20 7b 0a 09 09 63 time == 0) {...c
1750: 61 63 6b 65 79 5f 64 65 62 75 67 5f 73 74 61 72 ackey_debug_star
1760: 74 5f 74 69 6d 65 20 3d 20 74 69 6d 65 28 4e 55 t_time = time(NU
1770: 4c 4c 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e LL);..}...return
1780: 28 74 69 6d 65 28 4e 55 4c 4c 29 20 2d 20 63 61 (time(NULL) - ca
1790: 63 6b 65 79 5f 64 65 62 75 67 5f 73 74 61 72 74 ckey_debug_start
17a0: 5f 74 69 6d 65 29 3b 0a 7d 0a 23 20 20 65 6c 73 _time);.}.# els
17b0: 65 0a 73 74 61 74 69 63 20 75 6e 73 69 67 6e 65 e.static unsigne
17c0: 64 20 6c 6f 6e 67 20 43 41 43 4b 45 59 5f 44 45 d long CACKEY_DE
17d0: 42 55 47 5f 47 45 54 54 49 4d 45 28 76 6f 69 64 BUG_GETTIME(void
17e0: 29 20 7b 0a 09 72 65 74 75 72 6e 28 30 29 3b 0a ) {..return(0);.
17f0: 7d 0a 23 20 20 65 6e 64 69 66 0a 0a 23 20 20 64 }.# endif..# d
1800: 65 66 69 6e 65 20 43 41 43 4b 45 59 5f 44 45 42 efine CACKEY_DEB
1810: 55 47 5f 50 52 49 4e 54 46 28 78 2e 2e 2e 29 20 UG_PRINTF(x...)
1820: 7b 20 5c 0a 09 73 74 61 74 69 63 20 63 68 61 72 { \..static char
1830: 20 62 75 66 5f 75 73 65 72 5b 34 30 39 36 5d 20 buf_user[4096]
1840: 3d 20 7b 30 7d 3b 20 5c 0a 09 73 6e 70 72 69 6e = {0}; \..snprin
1850: 74 66 28 62 75 66 5f 75 73 65 72 2c 20 73 69 7a tf(buf_user, siz
1860: 65 6f 66 28 62 75 66 5f 75 73 65 72 29 2c 20 78 eof(buf_user), x
1870: 29 3b 20 5c 0a 09 62 75 66 5f 75 73 65 72 5b 73 ); \..buf_user[s
1880: 69 7a 65 6f 66 28 62 75 66 5f 75 73 65 72 29 20 izeof(buf_user)
1890: 2d 20 31 5d 20 3d 20 27 5c 30 27 3b 20 5c 0a 09 - 1] = '\0'; \..
18a0: 66 70 72 69 6e 74 66 28 63 61 63 6b 65 79 5f 64 fprintf(cackey_d
18b0: 65 62 75 67 5f 66 64 28 29 2c 20 22 5b 25 6c 75 ebug_fd(), "[%lu
18c0: 5d 3a 20 25 73 28 29 3a 25 69 3a 20 25 73 5c 6e ]: %s():%i: %s\n
18d0: 22 2c 20 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ", CACKEY_DEBUG_
18e0: 47 45 54 54 49 4d 45 28 29 2c 20 5f 5f 66 75 6e GETTIME(), __fun
18f0: 63 5f 5f 2c 20 5f 5f 4c 49 4e 45 5f 5f 2c 20 62 c__, __LINE__, b
1900: 75 66 5f 75 73 65 72 29 3b 20 5c 0a 09 66 66 6c uf_user); \..ffl
1910: 75 73 68 28 63 61 63 6b 65 79 5f 64 65 62 75 67 ush(cackey_debug
1920: 5f 66 64 28 29 29 3b 20 5c 0a 7d 0a 23 20 20 64 _fd()); \.}.# d
1930: 65 66 69 6e 65 20 43 41 43 4b 45 59 5f 44 45 42 efine CACKEY_DEB
1940: 55 47 5f 50 52 49 4e 54 42 55 46 28 66 2c 20 78 UG_PRINTBUF(f, x
1950: 2c 20 79 29 20 7b 20 5c 0a 09 73 74 61 74 69 63 , y) { \..static
1960: 20 63 68 61 72 20 62 75 66 5f 75 73 65 72 5b 34 char buf_user[4
1970: 30 39 36 5d 20 3d 20 7b 30 7d 2c 20 2a 62 75 66 096] = {0}, *buf
1980: 5f 75 73 65 72 5f 70 2c 20 2a 62 75 66 5f 75 73 _user_p, *buf_us
1990: 65 72 5f 70 72 69 6e 74 3b 20 5c 0a 09 75 6e 73 er_print; \..uns
19a0: 69 67 6e 65 64 20 6c 6f 6e 67 20 62 75 66 5f 75 igned long buf_u
19b0: 73 65 72 5f 73 69 7a 65 3b 20 5c 0a 09 75 6e 73 ser_size; \..uns
19c0: 69 67 6e 65 64 20 63 68 61 72 20 2a 54 4d 50 42 igned char *TMPB
19d0: 55 46 3b 20 5c 0a 09 75 6e 73 69 67 6e 65 64 20 UF; \..unsigned
19e0: 6c 6f 6e 67 20 69 64 78 3b 20 5c 0a 09 69 6e 74 long idx; \..int
19f0: 20 73 6e 70 72 69 6e 74 66 5f 72 65 74 3b 20 5c snprintf_ret; \
1a00: 0a 09 54 4d 50 42 55 46 20 3d 20 28 75 6e 73 69 ..TMPBUF = (unsi
1a10: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 28 78 29 gned char *) (x)
1a20: 3b 20 5c 0a 09 62 75 66 5f 75 73 65 72 5b 30 5d ; \..buf_user[0]
1a30: 20 3d 20 30 3b 20 5c 0a 09 62 75 66 5f 75 73 65 = 0; \..buf_use
1a40: 72 5b 32 5d 20 3d 20 30 3b 20 5c 0a 09 62 75 66 r[2] = 0; \..buf
1a50: 5f 75 73 65 72 5f 70 20 3d 20 62 75 66 5f 75 73 _user_p = buf_us
1a60: 65 72 3b 20 5c 0a 09 62 75 66 5f 75 73 65 72 5f er; \..buf_user_
1a70: 73 69 7a 65 20 3d 20 73 69 7a 65 6f 66 28 62 75 size = sizeof(bu
1a80: 66 5f 75 73 65 72 29 3b 20 5c 0a 09 66 6f 72 20 f_user); \..for
1a90: 28 69 64 78 20 3d 20 30 3b 20 69 64 78 20 3c 20 (idx = 0; idx <
1aa0: 28 79 29 3b 20 69 64 78 2b 2b 29 20 7b 20 5c 0a (y); idx++) { \.
1ab0: 09 09 69 66 20 28 62 75 66 5f 75 73 65 72 5f 73 ..if (buf_user_s
1ac0: 69 7a 65 20 3c 3d 20 30 29 20 7b 20 5c 0a 09 09 ize <= 0) { \...
1ad0: 09 62 72 65 61 6b 3b 20 5c 0a 09 09 7d 3b 20 5c .break; \...}; \
1ae0: 0a 09 09 73 6e 70 72 69 6e 74 66 5f 72 65 74 20 ...snprintf_ret
1af0: 3d 20 73 6e 70 72 69 6e 74 66 28 62 75 66 5f 75 = snprintf(buf_u
1b00: 73 65 72 5f 70 2c 20 62 75 66 5f 75 73 65 72 5f ser_p, buf_user_
1b10: 73 69 7a 65 2c 20 22 2c 20 25 30 32 78 22 2c 20 size, ", %02x",
1b20: 54 4d 50 42 55 46 5b 69 64 78 5d 29 3b 20 5c 0a TMPBUF[idx]); \.
1b30: 09 09 69 66 20 28 73 6e 70 72 69 6e 74 66 5f 72 ..if (snprintf_r
1b40: 65 74 20 3c 3d 20 30 29 20 7b 20 5c 0a 09 09 09 et <= 0) { \....
1b50: 62 72 65 61 6b 3b 20 5c 0a 09 09 7d 3b 20 5c 0a break; \...}; \.
1b60: 09 09 62 75 66 5f 75 73 65 72 5f 70 20 2b 3d 20 ..buf_user_p +=
1b70: 73 6e 70 72 69 6e 74 66 5f 72 65 74 3b 20 5c 0a snprintf_ret; \.
1b80: 09 09 62 75 66 5f 75 73 65 72 5f 73 69 7a 65 20 ..buf_user_size
1b90: 2d 3d 20 73 6e 70 72 69 6e 74 66 5f 72 65 74 3b -= snprintf_ret;
1ba0: 20 5c 0a 09 7d 3b 20 5c 0a 09 62 75 66 5f 75 73 \..}; \..buf_us
1bb0: 65 72 5b 73 69 7a 65 6f 66 28 62 75 66 5f 75 73 er[sizeof(buf_us
1bc0: 65 72 29 20 2d 20 31 5d 20 3d 20 27 5c 30 27 3b er) - 1] = '\0';
1bd0: 20 5c 0a 09 62 75 66 5f 75 73 65 72 5f 70 72 69 \..buf_user_pri
1be0: 6e 74 20 3d 20 62 75 66 5f 75 73 65 72 20 2b 20 nt = buf_user +
1bf0: 32 3b 20 5c 0a 09 66 70 72 69 6e 74 66 28 63 61 2; \..fprintf(ca
1c00: 63 6b 65 79 5f 64 65 62 75 67 5f 66 64 28 29 2c ckey_debug_fd(),
1c10: 20 22 5b 25 6c 75 5d 3a 20 25 73 28 29 3a 25 69 "[%lu]: %s():%i
1c20: 3a 20 25 73 20 20 28 25 73 2f 25 6c 75 20 3d 20 : %s (%s/%lu =
1c30: 7b 25 73 7d 29 5c 6e 22 2c 20 43 41 43 4b 45 59 {%s})\n", CACKEY
1c40: 5f 44 45 42 55 47 5f 47 45 54 54 49 4d 45 28 29 _DEBUG_GETTIME()
1c50: 2c 20 5f 5f 66 75 6e 63 5f 5f 2c 20 5f 5f 4c 49 , __func__, __LI
1c60: 4e 45 5f 5f 2c 20 66 2c 20 23 78 2c 20 28 75 6e NE__, f, #x, (un
1c70: 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 28 79 29 signed long) (y)
1c80: 2c 20 62 75 66 5f 75 73 65 72 5f 70 72 69 6e 74 , buf_user_print
1c90: 29 3b 20 5c 0a 09 66 66 6c 75 73 68 28 63 61 63 ); \..fflush(cac
1ca0: 6b 65 79 5f 64 65 62 75 67 5f 66 64 28 29 29 3b key_debug_fd());
1cb0: 20 5c 0a 7d 0a 23 20 20 64 65 66 69 6e 65 20 66 \.}.# define f
1cc0: 72 65 65 28 78 29 20 7b 20 43 41 43 4b 45 59 5f ree(x) { CACKEY_
1cd0: 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 46 52 DEBUG_PRINTF("FR
1ce0: 45 45 28 25 70 29 20 28 25 73 29 22 2c 20 28 76 EE(%p) (%s)", (v
1cf0: 6f 69 64 20 2a 29 20 78 2c 20 23 78 29 3b 20 66 oid *) x, #x); f
1d00: 72 65 65 28 78 29 3b 20 7d 0a 0a 73 74 61 74 69 ree(x); }..stati
1d10: 63 20 46 49 4c 45 20 2a 63 61 63 6b 65 79 5f 64 c FILE *cackey_d
1d20: 65 62 75 67 5f 66 64 28 76 6f 69 64 29 20 7b 0a ebug_fd(void) {.
1d30: 09 73 74 61 74 69 63 20 46 49 4c 45 20 2a 66 64 .static FILE *fd
1d40: 20 3d 20 4e 55 4c 4c 3b 0a 09 63 68 61 72 20 2a = NULL;..char *
1d50: 6c 6f 67 66 69 6c 65 3b 0a 0a 09 69 66 20 28 66 logfile;...if (f
1d60: 64 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 d != NULL) {...r
1d70: 65 74 75 72 6e 28 66 64 29 3b 0a 09 7d 0a 0a 09 eturn(fd);..}...
1d80: 2f 2a 0a 09 20 2a 20 4c 6f 67 20 74 6f 20 73 74 /*.. * Log to st
1d90: 64 65 72 72 20 69 6e 69 74 69 61 6c 6c 79 20 73 derr initially s
1da0: 6f 20 77 65 20 63 61 6e 20 75 73 65 20 64 65 62 o we can use deb
1db0: 75 67 67 69 6e 67 20 77 69 74 68 69 6e 0a 09 20 ugging within..
1dc0: 2a 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 * this function
1dd0: 77 69 74 68 6f 75 74 20 67 65 74 74 69 6e 67 20 without getting
1de0: 69 6e 74 6f 20 61 6e 20 69 6e 66 69 6e 69 74 65 into an infinite
1df0: 20 6c 6f 6f 70 0a 09 20 2a 2f 0a 09 66 64 20 3d loop.. */..fd =
1e00: 20 73 74 64 65 72 72 3b 0a 0a 09 6c 6f 67 66 69 stderr;...logfi
1e10: 6c 65 20 3d 20 67 65 74 65 6e 76 28 22 43 41 43 le = getenv("CAC
1e20: 4b 45 59 5f 44 45 42 55 47 5f 4c 4f 47 46 49 4c KEY_DEBUG_LOGFIL
1e30: 45 22 29 3b 0a 09 69 66 20 28 6c 6f 67 66 69 6c E");..if (logfil
1e40: 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 43 e != NULL) {...C
1e50: 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
1e60: 54 46 28 22 46 6f 75 6e 64 20 65 6e 76 69 72 6f TF("Found enviro
1e70: 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 3a 20 nment variable:
1e80: 25 73 22 2c 20 6c 6f 67 66 69 6c 65 29 3b 0a 0a %s", logfile);..
1e90: 09 09 6c 6f 67 66 69 6c 65 20 3d 20 73 74 72 63 ..logfile = strc
1ea0: 68 72 28 6c 6f 67 66 69 6c 65 2c 20 27 3d 27 29 hr(logfile, '=')
1eb0: 3b 0a 09 09 69 66 20 28 6c 6f 67 66 69 6c 65 20 ;...if (logfile
1ec0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 6c 6f == NULL) {....lo
1ed0: 67 66 69 6c 65 20 3d 20 67 65 74 65 6e 76 28 22 gfile = getenv("
1ee0: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 4c 4f 47 CACKEY_DEBUG_LOG
1ef0: 46 49 4c 45 22 29 3b 0a 09 09 7d 20 65 6c 73 65 FILE");...} else
1f00: 20 7b 0a 09 09 09 6c 6f 67 66 69 6c 65 2b 2b 3b {....logfile++;
1f10: 0a 09 09 7d 0a 09 7d 0a 0a 23 69 66 64 65 66 20 ...}..}..#ifdef
1f20: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 4c 4f 47 CACKEY_DEBUG_LOG
1f30: 46 49 4c 45 0a 09 69 66 20 28 6c 6f 67 66 69 6c FILE..if (logfil
1f40: 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 6c e == NULL) {...l
1f50: 6f 67 66 69 6c 65 20 3d 20 43 41 43 4b 45 59 5f ogfile = CACKEY_
1f60: 44 45 42 55 47 5f 4c 4f 47 46 49 4c 45 3b 0a 09 DEBUG_LOGFILE;..
1f70: 7d 0a 23 65 6e 64 69 66 0a 0a 09 69 66 20 28 6c }.#endif...if (l
1f80: 6f 67 66 69 6c 65 20 21 3d 20 4e 55 4c 4c 29 20 ogfile != NULL)
1f90: 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
1fa0: 5f 50 52 49 4e 54 46 28 22 46 6f 75 6e 64 20 6c _PRINTF("Found l
1fb0: 6f 67 20 66 69 6c 65 3a 20 25 73 22 2c 20 6c 6f og file: %s", lo
1fc0: 67 66 69 6c 65 29 3b 0a 0a 09 09 66 64 20 3d 20 gfile);....fd =
1fd0: 66 6f 70 65 6e 28 6c 6f 67 66 69 6c 65 2c 20 22 fopen(logfile, "
1fe0: 61 22 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 66 64 a");..}...if (fd
1ff0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 66 64 == NULL) {...fd
2000: 20 3d 20 73 74 64 65 72 72 3b 0a 09 7d 0a 0a 09 = stderr;..}...
2010: 69 66 20 28 66 64 20 3d 3d 20 73 74 64 65 72 72 if (fd == stderr
2020: 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 ) {...CACKEY_DEB
2030: 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 UG_PRINTF("Retur
2040: 6e 69 6e 67 20 73 74 64 65 72 72 22 29 3b 0a 09 ning stderr");..
2050: 7d 20 65 6c 73 65 20 7b 0a 09 09 43 41 43 4b 45 } else {...CACKE
2060: 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
2070: 52 65 74 75 72 6e 69 6e 67 20 25 70 22 2c 20 28 Returning %p", (
2080: 76 6f 69 64 20 2a 29 20 66 64 29 3b 0a 09 7d 0a void *) fd);..}.
2090: 0a 09 72 65 74 75 72 6e 28 66 64 29 3b 0a 7d 0a ..return(fd);.}.
20a0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 2a 43 41 .static void *CA
20b0: 43 4b 45 59 5f 44 45 42 55 47 5f 46 55 4e 43 5f CKEY_DEBUG_FUNC_
20c0: 4d 41 4c 4c 4f 43 28 73 69 7a 65 5f 74 20 73 69 MALLOC(size_t si
20d0: 7a 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a ze, const char *
20e0: 66 75 6e 63 2c 20 69 6e 74 20 6c 69 6e 65 29 20 func, int line)
20f0: 7b 0a 09 76 6f 69 64 20 2a 72 65 74 76 61 6c 3b {..void *retval;
2100: 0a 0a 09 72 65 74 76 61 6c 20 3d 20 6d 61 6c 6c ...retval = mall
2110: 6f 63 28 73 69 7a 65 29 3b 0a 0a 09 66 70 72 69 oc(size);...fpri
2120: 6e 74 66 28 63 61 63 6b 65 79 5f 64 65 62 75 67 ntf(cackey_debug
2130: 5f 66 64 28 29 2c 20 22 5b 25 6c 75 5d 3a 20 25 _fd(), "[%lu]: %
2140: 73 28 29 3a 25 69 3a 20 4d 41 4c 4c 4f 43 28 29 s():%i: MALLOC()
2150: 20 3d 20 25 70 5c 6e 22 2c 20 43 41 43 4b 45 59 = %p\n", CACKEY
2160: 5f 44 45 42 55 47 5f 47 45 54 54 49 4d 45 28 29 _DEBUG_GETTIME()
2170: 2c 20 66 75 6e 63 2c 20 6c 69 6e 65 2c 20 72 65 , func, line, re
2180: 74 76 61 6c 29 3b 0a 09 66 66 6c 75 73 68 28 63 tval);..fflush(c
2190: 61 63 6b 65 79 5f 64 65 62 75 67 5f 66 64 28 29 ackey_debug_fd()
21a0: 29 3b 0a 0a 09 72 65 74 75 72 6e 28 72 65 74 76 );...return(retv
21b0: 61 6c 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76 al);.}..static v
21c0: 6f 69 64 20 2a 43 41 43 4b 45 59 5f 44 45 42 55 oid *CACKEY_DEBU
21d0: 47 5f 46 55 4e 43 5f 52 45 41 4c 4c 4f 43 28 76 G_FUNC_REALLOC(v
21e0: 6f 69 64 20 2a 70 74 72 2c 20 73 69 7a 65 5f 74 oid *ptr, size_t
21f0: 20 73 69 7a 65 2c 20 63 6f 6e 73 74 20 63 68 61 size, const cha
2200: 72 20 2a 66 75 6e 63 2c 20 69 6e 74 20 6c 69 6e r *func, int lin
2210: 65 29 20 7b 0a 09 76 6f 69 64 20 2a 72 65 74 76 e) {..void *retv
2220: 61 6c 3b 0a 0a 09 72 65 74 76 61 6c 20 3d 20 72 al;...retval = r
2230: 65 61 6c 6c 6f 63 28 70 74 72 2c 20 73 69 7a 65 ealloc(ptr, size
2240: 29 3b 0a 0a 09 69 66 20 28 72 65 74 76 61 6c 20 );...if (retval
2250: 21 3d 20 70 74 72 29 20 7b 0a 09 09 66 70 72 69 != ptr) {...fpri
2260: 6e 74 66 28 63 61 63 6b 65 79 5f 64 65 62 75 67 ntf(cackey_debug
2270: 5f 66 64 28 29 2c 20 22 5b 25 6c 75 5d 3a 20 25 _fd(), "[%lu]: %
2280: 73 28 29 3a 25 69 3a 20 52 45 41 4c 4c 4f 43 28 s():%i: REALLOC(
2290: 25 70 29 20 3d 20 25 70 5c 6e 22 2c 20 43 41 43 %p) = %p\n", CAC
22a0: 4b 45 59 5f 44 45 42 55 47 5f 47 45 54 54 49 4d KEY_DEBUG_GETTIM
22b0: 45 28 29 2c 20 66 75 6e 63 2c 20 6c 69 6e 65 2c E(), func, line,
22c0: 20 70 74 72 2c 20 72 65 74 76 61 6c 29 3b 0a 09 ptr, retval);..
22d0: 09 66 66 6c 75 73 68 28 63 61 63 6b 65 79 5f 64 .fflush(cackey_d
22e0: 65 62 75 67 5f 66 64 28 29 29 3b 0a 09 7d 0a 0a ebug_fd());..}..
22f0: 09 69 66 20 28 72 65 74 76 61 6c 20 3d 3d 20 4e .if (retval == N
2300: 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f ULL) {...CACKEY_
2310: 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 20 2a DEBUG_PRINTF(" *
2320: 2a 2a 20 45 52 52 4f 52 20 2a 2a 2a 20 72 65 61 ** ERROR *** rea
2330: 6c 6c 6f 63 20 72 65 74 75 72 6e 65 64 20 4e 55 lloc returned NU
2340: 4c 4c 20 28 73 69 7a 65 20 3d 20 25 6c 75 29 22 LL (size = %lu)"
2350: 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 , (unsigned long
2360: 29 20 73 69 7a 65 29 3b 0a 09 7d 0a 0a 09 72 65 ) size);..}...re
2370: 74 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a 7d 0a turn(retval);.}.
2380: 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a 43 41 .static char *CA
2390: 43 4b 45 59 5f 44 45 42 55 47 5f 46 55 4e 43 5f CKEY_DEBUG_FUNC_
23a0: 53 54 52 44 55 50 28 63 6f 6e 73 74 20 63 68 61 STRDUP(const cha
23b0: 72 20 2a 70 74 72 2c 20 63 6f 6e 73 74 20 63 68 r *ptr, const ch
23c0: 61 72 20 2a 66 75 6e 63 2c 20 69 6e 74 20 6c 69 ar *func, int li
23d0: 6e 65 29 20 7b 0a 09 63 68 61 72 20 2a 72 65 74 ne) {..char *ret
23e0: 76 61 6c 3b 0a 0a 09 72 65 74 76 61 6c 20 3d 20 val;...retval =
23f0: 73 74 72 64 75 70 28 70 74 72 29 3b 0a 0a 09 66 strdup(ptr);...f
2400: 70 72 69 6e 74 66 28 63 61 63 6b 65 79 5f 64 65 printf(cackey_de
2410: 62 75 67 5f 66 64 28 29 2c 20 22 5b 25 6c 75 5d bug_fd(), "[%lu]
2420: 3a 20 25 73 28 29 3a 25 69 3a 20 53 54 52 44 55 : %s():%i: STRDU
2430: 50 5f 4d 41 4c 4c 4f 43 28 29 20 3d 20 25 70 5c P_MALLOC() = %p\
2440: 6e 22 2c 20 43 41 43 4b 45 59 5f 44 45 42 55 47 n", CACKEY_DEBUG
2450: 5f 47 45 54 54 49 4d 45 28 29 2c 20 66 75 6e 63 _GETTIME(), func
2460: 2c 20 6c 69 6e 65 2c 20 72 65 74 76 61 6c 29 3b , line, retval);
2470: 0a 09 66 66 6c 75 73 68 28 63 61 63 6b 65 79 5f ..fflush(cackey_
2480: 64 65 62 75 67 5f 66 64 28 29 29 3b 0a 0a 09 72 debug_fd());...r
2490: 65 74 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a 7d eturn(retval);.}
24a0: 0a 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 ..static const c
24b0: 68 61 72 20 2a 43 41 43 4b 45 59 5f 44 45 42 55 har *CACKEY_DEBU
24c0: 47 5f 46 55 4e 43 5f 54 41 47 5f 54 4f 5f 53 54 G_FUNC_TAG_TO_ST
24d0: 52 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 R(unsigned char
24e0: 74 61 67 29 20 7b 0a 09 73 77 69 74 63 68 20 28 tag) {..switch (
24f0: 74 61 67 29 20 7b 0a 09 09 63 61 73 65 20 47 53 tag) {...case GS
2500: 43 49 53 5f 54 41 47 5f 43 41 52 44 49 44 3a 0a CIS_TAG_CARDID:.
2510: 09 09 09 72 65 74 75 72 6e 28 22 47 53 43 49 53 ...return("GSCIS
2520: 5f 54 41 47 5f 43 41 52 44 49 44 22 29 3b 0a 09 _TAG_CARDID");..
2530: 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 47 5f .case GSCIS_TAG_
2540: 43 43 43 5f 56 45 52 3a 0a 09 09 09 72 65 74 75 CCC_VER:....retu
2550: 72 6e 28 22 47 53 43 49 53 5f 54 41 47 5f 43 43 rn("GSCIS_TAG_CC
2560: 43 5f 56 45 52 22 29 3b 0a 09 09 63 61 73 65 20 C_VER");...case
2570: 47 53 43 49 53 5f 54 41 47 5f 43 43 47 5f 56 45 GSCIS_TAG_CCG_VE
2580: 52 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 47 53 R:....return("GS
2590: 43 49 53 5f 54 41 47 5f 43 43 47 5f 56 45 52 22 CIS_TAG_CCG_VER"
25a0: 29 3b 0a 09 09 63 61 73 65 20 47 53 43 49 53 5f );...case GSCIS_
25b0: 54 41 47 5f 43 41 52 44 55 52 4c 3a 0a 09 09 09 TAG_CARDURL:....
25c0: 72 65 74 75 72 6e 28 22 47 53 43 49 53 5f 54 41 return("GSCIS_TA
25d0: 47 5f 43 41 52 44 55 52 4c 22 29 3b 0a 09 09 63 G_CARDURL");...c
25e0: 61 73 65 20 47 53 43 49 53 5f 54 41 47 5f 50 4b ase GSCIS_TAG_PK
25f0: 43 53 31 35 3a 0a 09 09 09 72 65 74 75 72 6e 28 CS15:....return(
2600: 22 47 53 43 49 53 5f 54 41 47 5f 50 4b 43 53 31 "GSCIS_TAG_PKCS1
2610: 35 22 29 3b 0a 09 09 63 61 73 65 20 47 53 43 49 5");...case GSCI
2620: 53 5f 54 41 47 5f 52 45 47 5f 44 41 54 41 5f 4d S_TAG_REG_DATA_M
2630: 4f 44 45 4c 3a 0a 09 09 09 72 65 74 75 72 6e 28 ODEL:....return(
2640: 22 47 53 43 49 53 5f 54 41 47 5f 52 45 47 5f 44 "GSCIS_TAG_REG_D
2650: 41 54 41 5f 4d 4f 44 45 4c 22 29 3b 0a 09 09 63 ATA_MODEL");...c
2660: 61 73 65 20 47 53 43 49 53 5f 54 41 47 5f 41 43 ase GSCIS_TAG_AC
2670: 52 5f 54 41 42 4c 45 3a 0a 09 09 09 72 65 74 75 R_TABLE:....retu
2680: 72 6e 28 22 47 53 43 49 53 5f 54 41 47 5f 41 43 rn("GSCIS_TAG_AC
2690: 52 5f 54 41 42 4c 45 22 29 3b 0a 09 09 63 61 73 R_TABLE");...cas
26a0: 65 20 47 53 43 49 53 5f 54 41 47 5f 43 41 52 44 e GSCIS_TAG_CARD
26b0: 5f 41 50 44 55 3a 0a 09 09 09 72 65 74 75 72 6e _APDU:....return
26c0: 28 22 47 53 43 49 53 5f 54 41 47 5f 43 41 52 44 ("GSCIS_TAG_CARD
26d0: 5f 41 50 44 55 22 29 3b 0a 09 09 63 61 73 65 20 _APDU");...case
26e0: 47 53 43 49 53 5f 54 41 47 5f 52 45 44 49 52 45 GSCIS_TAG_REDIRE
26f0: 43 54 49 4f 4e 3a 0a 09 09 09 72 65 74 75 72 6e CTION:....return
2700: 28 22 47 53 43 49 53 5f 54 41 47 5f 52 45 44 49 ("GSCIS_TAG_REDI
2710: 52 45 43 54 49 4f 4e 22 29 3b 0a 09 09 63 61 73 RECTION");...cas
2720: 65 20 47 53 43 49 53 5f 54 41 47 5f 43 54 3a 0a e GSCIS_TAG_CT:.
2730: 09 09 09 72 65 74 75 72 6e 28 22 47 53 43 49 53 ...return("GSCIS
2740: 5f 54 41 47 5f 43 54 22 29 3b 0a 09 09 63 61 73 _TAG_CT");...cas
2750: 65 20 47 53 43 49 53 5f 54 41 47 5f 53 54 3a 0a e GSCIS_TAG_ST:.
2760: 09 09 09 72 65 74 75 72 6e 28 22 47 53 43 49 53 ...return("GSCIS
2770: 5f 54 41 47 5f 53 54 22 29 3b 0a 09 09 63 61 73 _TAG_ST");...cas
2780: 65 20 47 53 43 49 53 5f 54 41 47 5f 4e 45 58 54 e GSCIS_TAG_NEXT
2790: 43 43 43 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 CCC:....return("
27a0: 47 53 43 49 53 5f 54 41 47 5f 4e 45 58 54 43 43 GSCIS_TAG_NEXTCC
27b0: 43 22 29 3b 0a 09 09 63 61 73 65 20 47 53 43 49 C");...case GSCI
27c0: 53 5f 54 41 47 5f 46 4e 41 4d 45 3a 0a 09 09 09 S_TAG_FNAME:....
27d0: 72 65 74 75 72 6e 28 22 47 53 43 49 53 5f 54 41 return("GSCIS_TA
27e0: 47 5f 46 4e 41 4d 45 22 29 3b 0a 09 09 63 61 73 G_FNAME");...cas
27f0: 65 20 47 53 43 49 53 5f 54 41 47 5f 4d 4e 41 4d e GSCIS_TAG_MNAM
2800: 45 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 47 53 E:....return("GS
2810: 43 49 53 5f 54 41 47 5f 4d 4e 41 4d 45 22 29 3b CIS_TAG_MNAME");
2820: 0a 09 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 ...case GSCIS_TA
2830: 47 5f 4c 4e 41 4d 45 3a 0a 09 09 09 72 65 74 75 G_LNAME:....retu
2840: 72 6e 28 22 47 53 43 49 53 5f 54 41 47 5f 4c 4e rn("GSCIS_TAG_LN
2850: 41 4d 45 22 29 3b 0a 09 09 63 61 73 65 20 47 53 AME");...case GS
2860: 43 49 53 5f 54 41 47 5f 53 55 46 46 49 58 3a 0a CIS_TAG_SUFFIX:.
2870: 09 09 09 72 65 74 75 72 6e 28 22 47 53 43 49 53 ...return("GSCIS
2880: 5f 54 41 47 5f 53 55 46 46 49 58 22 29 3b 0a 09 _TAG_SUFFIX");..
2890: 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 47 5f .case GSCIS_TAG_
28a0: 47 4f 56 54 5f 41 47 45 4e 43 59 3a 0a 09 09 09 GOVT_AGENCY:....
28b0: 72 65 74 75 72 6e 28 22 47 53 43 49 53 5f 54 41 return("GSCIS_TA
28c0: 47 5f 47 4f 56 54 5f 41 47 45 4e 43 59 22 29 3b G_GOVT_AGENCY");
28d0: 0a 09 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 ...case GSCIS_TA
28e0: 47 5f 42 55 52 45 41 55 3a 0a 09 09 09 72 65 74 G_BUREAU:....ret
28f0: 75 72 6e 28 22 47 53 43 49 53 5f 54 41 47 5f 42 urn("GSCIS_TAG_B
2900: 55 52 45 41 55 22 29 3b 0a 09 09 63 61 73 65 20 UREAU");...case
2910: 47 53 43 49 53 5f 54 41 47 5f 42 55 52 45 41 55 GSCIS_TAG_BUREAU
2920: 5f 43 4f 44 45 3a 0a 09 09 09 72 65 74 75 72 6e _CODE:....return
2930: 28 22 47 53 43 49 53 5f 54 41 47 5f 42 55 52 45 ("GSCIS_TAG_BURE
2940: 41 55 5f 43 4f 44 45 22 29 3b 0a 09 09 63 61 73 AU_CODE");...cas
2950: 65 20 47 53 43 49 53 5f 54 41 47 5f 44 45 50 54 e GSCIS_TAG_DEPT
2960: 5f 43 4f 44 45 3a 0a 09 09 09 72 65 74 75 72 6e _CODE:....return
2970: 28 22 47 53 43 49 53 5f 54 41 47 5f 44 45 50 54 ("GSCIS_TAG_DEPT
2980: 5f 43 4f 44 45 22 29 3b 0a 09 09 63 61 73 65 20 _CODE");...case
2990: 47 53 43 49 53 5f 54 41 47 5f 54 49 54 4c 45 3a GSCIS_TAG_TITLE:
29a0: 0a 09 09 09 72 65 74 75 72 6e 28 22 47 53 43 49 ....return("GSCI
29b0: 53 5f 54 41 47 5f 54 49 54 4c 45 22 29 3b 0a 09 S_TAG_TITLE");..
29c0: 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 47 5f .case GSCIS_TAG_
29d0: 42 55 49 4c 44 49 4e 47 3a 0a 09 09 09 72 65 74 BUILDING:....ret
29e0: 75 72 6e 28 22 47 53 43 49 53 5f 54 41 47 5f 42 urn("GSCIS_TAG_B
29f0: 55 49 4c 44 49 4e 47 22 29 3b 0a 09 09 63 61 73 UILDING");...cas
2a00: 65 20 47 53 43 49 53 5f 54 41 47 5f 4f 46 46 49 e GSCIS_TAG_OFFI
2a10: 43 45 5f 41 44 44 52 31 3a 0a 09 09 09 72 65 74 CE_ADDR1:....ret
2a20: 75 72 6e 28 22 47 53 43 49 53 5f 54 41 47 5f 4f urn("GSCIS_TAG_O
2a30: 46 46 49 43 45 5f 41 44 44 52 31 22 29 3b 0a 09 FFICE_ADDR1");..
2a40: 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 47 5f .case GSCIS_TAG_
2a50: 4f 46 46 49 43 45 5f 41 44 44 52 32 3a 0a 09 09 OFFICE_ADDR2:...
2a60: 09 72 65 74 75 72 6e 28 22 47 53 43 49 53 5f 54 .return("GSCIS_T
2a70: 41 47 5f 4f 46 46 49 43 45 5f 41 44 44 52 32 22 AG_OFFICE_ADDR2"
2a80: 29 3b 0a 09 09 63 61 73 65 20 47 53 43 49 53 5f );...case GSCIS_
2a90: 54 41 47 5f 4f 46 46 49 43 45 5f 43 49 54 59 3a TAG_OFFICE_CITY:
2aa0: 0a 09 09 09 72 65 74 75 72 6e 28 22 47 53 43 49 ....return("GSCI
2ab0: 53 5f 54 41 47 5f 4f 46 46 49 43 45 5f 43 49 54 S_TAG_OFFICE_CIT
2ac0: 59 22 29 3b 0a 09 09 63 61 73 65 20 47 53 43 49 Y");...case GSCI
2ad0: 53 5f 54 41 47 5f 4f 46 46 49 43 45 5f 53 54 41 S_TAG_OFFICE_STA
2ae0: 54 45 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 47 TE:....return("G
2af0: 53 43 49 53 5f 54 41 47 5f 4f 46 46 49 43 45 5f SCIS_TAG_OFFICE_
2b00: 53 54 41 54 45 22 29 3b 0a 09 09 63 61 73 65 20 STATE");...case
2b10: 47 53 43 49 53 5f 54 41 47 5f 4f 46 46 49 43 45 GSCIS_TAG_OFFICE
2b20: 5f 5a 49 50 3a 0a 09 09 09 72 65 74 75 72 6e 28 _ZIP:....return(
2b30: 22 47 53 43 49 53 5f 54 41 47 5f 4f 46 46 49 43 "GSCIS_TAG_OFFIC
2b40: 45 5f 5a 49 50 22 29 3b 0a 09 09 63 61 73 65 20 E_ZIP");...case
2b50: 47 53 43 49 53 5f 54 41 47 5f 4f 46 46 49 43 45 GSCIS_TAG_OFFICE
2b60: 5f 43 4f 55 4e 54 52 59 3a 0a 09 09 09 72 65 74 _COUNTRY:....ret
2b70: 75 72 6e 28 22 47 53 43 49 53 5f 54 41 47 5f 4f urn("GSCIS_TAG_O
2b80: 46 46 49 43 45 5f 43 4f 55 4e 54 52 59 22 29 3b FFICE_COUNTRY");
2b90: 0a 09 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 ...case GSCIS_TA
2ba0: 47 5f 4f 46 46 49 43 45 5f 50 48 4f 4e 45 3a 0a G_OFFICE_PHONE:.
2bb0: 09 09 09 72 65 74 75 72 6e 28 22 47 53 43 49 53 ...return("GSCIS
2bc0: 5f 54 41 47 5f 4f 46 46 49 43 45 5f 50 48 4f 4e _TAG_OFFICE_PHON
2bd0: 45 22 29 3b 0a 09 09 63 61 73 65 20 47 53 43 49 E");...case GSCI
2be0: 53 5f 54 41 47 5f 4f 46 46 49 43 45 5f 50 48 4f S_TAG_OFFICE_PHO
2bf0: 4e 45 5f 45 58 54 3a 0a 09 09 09 72 65 74 75 72 NE_EXT:....retur
2c00: 6e 28 22 47 53 43 49 53 5f 54 41 47 5f 4f 46 46 n("GSCIS_TAG_OFF
2c10: 49 43 45 5f 50 48 4f 4e 45 5f 45 58 54 22 29 3b ICE_PHONE_EXT");
2c20: 0a 09 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 ...case GSCIS_TA
2c30: 47 5f 4f 46 46 49 43 45 5f 46 41 58 3a 0a 09 09 G_OFFICE_FAX:...
2c40: 09 72 65 74 75 72 6e 28 22 47 53 43 49 53 5f 54 .return("GSCIS_T
2c50: 41 47 5f 4f 46 46 49 43 45 5f 46 41 58 22 29 3b AG_OFFICE_FAX");
2c60: 0a 09 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 ...case GSCIS_TA
2c70: 47 5f 4f 46 46 49 43 45 5f 45 4d 41 49 4c 3a 0a G_OFFICE_EMAIL:.
2c80: 09 09 09 72 65 74 75 72 6e 28 22 47 53 43 49 53 ...return("GSCIS
2c90: 5f 54 41 47 5f 4f 46 46 49 43 45 5f 45 4d 41 49 _TAG_OFFICE_EMAI
2ca0: 4c 22 29 3b 0a 09 09 63 61 73 65 20 47 53 43 49 L");...case GSCI
2cb0: 53 5f 54 41 47 5f 4f 46 46 49 43 45 5f 52 4f 4f S_TAG_OFFICE_ROO
2cc0: 4d 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 47 53 M:....return("GS
2cd0: 43 49 53 5f 54 41 47 5f 4f 46 46 49 43 45 5f 52 CIS_TAG_OFFICE_R
2ce0: 4f 4f 4d 22 29 3b 0a 09 09 63 61 73 65 20 47 53 OOM");...case GS
2cf0: 43 49 53 5f 54 41 47 5f 4e 4f 4e 47 4f 56 5f 41 CIS_TAG_NONGOV_A
2d00: 47 45 4e 43 59 3a 0a 09 09 09 72 65 74 75 72 6e GENCY:....return
2d10: 28 22 47 53 43 49 53 5f 54 41 47 5f 4e 4f 4e 47 ("GSCIS_TAG_NONG
2d20: 4f 56 5f 41 47 45 4e 43 59 22 29 3b 0a 09 09 63 OV_AGENCY");...c
2d30: 61 73 65 20 47 53 43 49 53 5f 54 41 47 5f 53 53 ase GSCIS_TAG_SS
2d40: 4e 5f 44 45 53 49 47 4e 41 54 4f 52 3a 0a 09 09 N_DESIGNATOR:...
2d50: 09 72 65 74 75 72 6e 28 22 47 53 43 49 53 5f 54 .return("GSCIS_T
2d60: 41 47 5f 53 53 4e 5f 44 45 53 49 47 4e 41 54 4f AG_SSN_DESIGNATO
2d70: 52 22 29 3b 0a 09 09 63 61 73 65 20 47 53 43 49 R");...case GSCI
2d80: 53 5f 54 41 47 5f 53 53 4e 3a 0a 09 09 09 72 65 S_TAG_SSN:....re
2d90: 74 75 72 6e 28 22 47 53 43 49 53 5f 54 41 47 5f turn("GSCIS_TAG_
2da0: 53 53 4e 22 29 3b 0a 09 09 63 61 73 65 20 47 53 SSN");...case GS
2db0: 43 49 53 5f 54 41 47 5f 44 4f 42 3a 0a 09 09 09 CIS_TAG_DOB:....
2dc0: 72 65 74 75 72 6e 28 22 47 53 43 49 53 5f 54 41 return("GSCIS_TA
2dd0: 47 5f 44 4f 42 22 29 3b 0a 09 09 63 61 73 65 20 G_DOB");...case
2de0: 47 53 43 49 53 5f 54 41 47 5f 47 45 4e 44 45 52 GSCIS_TAG_GENDER
2df0: 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 47 53 43 :....return("GSC
2e00: 49 53 5f 54 41 47 5f 47 45 4e 44 45 52 22 29 3b IS_TAG_GENDER");
2e10: 0a 09 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 ...case GSCIS_TA
2e20: 47 5f 55 53 45 52 49 44 3a 0a 09 09 09 72 65 74 G_USERID:....ret
2e30: 75 72 6e 28 22 47 53 43 49 53 5f 54 41 47 5f 55 urn("GSCIS_TAG_U
2e40: 53 45 52 49 44 22 29 3b 0a 09 09 63 61 73 65 20 SERID");...case
2e50: 47 53 43 49 53 5f 54 41 47 5f 44 4f 4d 41 49 4e GSCIS_TAG_DOMAIN
2e60: 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 47 53 43 :....return("GSC
2e70: 49 53 5f 54 41 47 5f 44 4f 4d 41 49 4e 22 29 3b IS_TAG_DOMAIN");
2e80: 0a 09 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 ...case GSCIS_TA
2e90: 47 5f 50 41 53 53 57 4f 52 44 3a 0a 09 09 09 72 G_PASSWORD:....r
2ea0: 65 74 75 72 6e 28 22 47 53 43 49 53 5f 54 41 47 eturn("GSCIS_TAG
2eb0: 5f 50 41 53 53 57 4f 52 44 22 29 3b 0a 09 09 63 _PASSWORD");...c
2ec0: 61 73 65 20 47 53 43 49 53 5f 54 41 47 5f 49 53 ase GSCIS_TAG_IS
2ed0: 53 55 45 52 49 44 3a 0a 09 09 09 72 65 74 75 72 SUERID:....retur
2ee0: 6e 28 22 47 53 43 49 53 5f 54 41 47 5f 49 53 53 n("GSCIS_TAG_ISS
2ef0: 55 45 52 49 44 22 29 3b 0a 09 09 63 61 73 65 20 UERID");...case
2f00: 47 53 43 49 53 5f 54 41 47 5f 53 45 52 4e 4f 3a GSCIS_TAG_SERNO:
2f10: 0a 09 09 09 72 65 74 75 72 6e 28 22 47 53 43 49 ....return("GSCI
2f20: 53 5f 54 41 47 5f 53 45 52 4e 4f 22 29 3b 0a 09 S_TAG_SERNO");..
2f30: 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 47 5f .case GSCIS_TAG_
2f40: 49 53 53 55 45 5f 44 41 54 45 3a 0a 09 09 09 72 ISSUE_DATE:....r
2f50: 65 74 75 72 6e 28 22 47 53 43 49 53 5f 54 41 47 eturn("GSCIS_TAG
2f60: 5f 49 53 53 55 45 5f 44 41 54 45 22 29 3b 0a 09 _ISSUE_DATE");..
2f70: 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 47 5f .case GSCIS_TAG_
2f80: 45 58 50 49 52 45 5f 44 41 54 45 3a 0a 09 09 09 EXPIRE_DATE:....
2f90: 72 65 74 75 72 6e 28 22 47 53 43 49 53 5f 54 41 return("GSCIS_TA
2fa0: 47 5f 45 58 50 49 52 45 5f 44 41 54 45 22 29 3b G_EXPIRE_DATE");
2fb0: 0a 09 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 ...case GSCIS_TA
2fc0: 47 5f 43 41 52 44 5f 54 59 50 45 3a 0a 09 09 09 G_CARD_TYPE:....
2fd0: 72 65 74 75 72 6e 28 22 47 53 43 49 53 5f 54 41 return("GSCIS_TA
2fe0: 47 5f 43 41 52 44 5f 54 59 50 45 22 29 3b 0a 09 G_CARD_TYPE");..
2ff0: 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 47 5f .case GSCIS_TAG_
3000: 53 45 43 55 52 49 54 59 5f 43 4f 44 45 3a 0a 09 SECURITY_CODE:..
3010: 09 09 72 65 74 75 72 6e 28 22 47 53 43 49 53 5f ..return("GSCIS_
3020: 54 41 47 5f 53 45 43 55 52 49 54 59 5f 43 4f 44 TAG_SECURITY_COD
3030: 45 22 29 3b 0a 09 09 63 61 73 65 20 47 53 43 49 E");...case GSCI
3040: 53 5f 54 41 47 5f 43 41 52 44 49 44 5f 41 49 44 S_TAG_CARDID_AID
3050: 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 47 53 43 :....return("GSC
3060: 49 53 5f 54 41 47 5f 43 41 52 44 49 44 5f 41 49 IS_TAG_CARDID_AI
3070: 44 22 29 3b 0a 09 09 63 61 73 65 20 47 53 43 49 D");...case GSCI
3080: 53 5f 54 41 47 5f 43 45 52 54 49 46 49 43 41 54 S_TAG_CERTIFICAT
3090: 45 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 47 53 E:....return("GS
30a0: 43 49 53 5f 54 41 47 5f 43 45 52 54 49 46 49 43 CIS_TAG_CERTIFIC
30b0: 41 54 45 22 29 3b 0a 09 09 63 61 73 65 20 47 53 ATE");...case GS
30c0: 43 49 53 5f 54 41 47 5f 43 45 52 54 5f 49 53 53 CIS_TAG_CERT_ISS
30d0: 55 45 5f 44 41 54 45 3a 0a 09 09 09 72 65 74 75 UE_DATE:....retu
30e0: 72 6e 28 22 47 53 43 49 53 5f 54 41 47 5f 43 45 rn("GSCIS_TAG_CE
30f0: 52 54 5f 49 53 53 55 45 5f 44 41 54 45 22 29 3b RT_ISSUE_DATE");
3100: 0a 09 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 ...case GSCIS_TA
3110: 47 5f 43 45 52 54 5f 45 58 50 49 52 45 5f 44 41 G_CERT_EXPIRE_DA
3120: 54 45 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 47 TE:....return("G
3130: 53 43 49 53 5f 54 41 47 5f 43 45 52 54 5f 45 58 SCIS_TAG_CERT_EX
3140: 50 49 52 45 5f 44 41 54 45 22 29 3b 0a 09 7d 0a PIRE_DATE");..}.
3150: 0a 09 72 65 74 75 72 6e 28 22 55 4e 4b 4e 4f 57 ..return("UNKNOW
3160: 4e 22 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 63 N");.}..static c
3170: 6f 6e 73 74 20 63 68 61 72 20 2a 43 41 43 4b 45 onst char *CACKE
3180: 59 5f 44 45 42 55 47 5f 46 55 4e 43 5f 53 43 41 Y_DEBUG_FUNC_SCA
3190: 52 44 45 52 52 5f 54 4f 5f 53 54 52 28 4c 4f 4e RDERR_TO_STR(LON
31a0: 47 20 72 65 74 63 6f 64 65 29 20 7b 0a 09 73 77 G retcode) {..sw
31b0: 69 74 63 68 20 28 72 65 74 63 6f 64 65 29 20 7b itch (retcode) {
31c0: 0a 09 09 63 61 73 65 20 53 43 41 52 44 5f 53 5f ...case SCARD_S_
31d0: 53 55 43 43 45 53 53 3a 0a 09 09 09 72 65 74 75 SUCCESS:....retu
31e0: 72 6e 28 22 53 43 41 52 44 5f 53 5f 53 55 43 43 rn("SCARD_S_SUCC
31f0: 45 53 53 22 29 3b 0a 09 09 63 61 73 65 20 53 43 ESS");...case SC
3200: 41 52 44 5f 45 5f 43 41 4e 43 45 4c 4c 45 44 3a ARD_E_CANCELLED:
3210: 0a 09 09 09 72 65 74 75 72 6e 28 22 53 43 41 52 ....return("SCAR
3220: 44 5f 45 5f 43 41 4e 43 45 4c 4c 45 44 22 29 3b D_E_CANCELLED");
3230: 0a 09 09 63 61 73 65 20 53 43 41 52 44 5f 45 5f ...case SCARD_E_
3240: 43 41 4e 54 5f 44 49 53 50 4f 53 45 3a 0a 09 09 CANT_DISPOSE:...
3250: 09 72 65 74 75 72 6e 28 22 53 43 41 52 44 5f 45 .return("SCARD_E
3260: 5f 43 41 4e 54 5f 44 49 53 50 4f 53 45 22 29 3b _CANT_DISPOSE");
3270: 0a 09 09 63 61 73 65 20 53 43 41 52 44 5f 45 5f ...case SCARD_E_
3280: 49 4e 53 55 46 46 49 43 49 45 4e 54 5f 42 55 46 INSUFFICIENT_BUF
3290: 46 45 52 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 FER:....return("
32a0: 53 43 41 52 44 5f 45 5f 49 4e 53 55 46 46 49 43 SCARD_E_INSUFFIC
32b0: 49 45 4e 54 5f 42 55 46 46 45 52 22 29 3b 0a 09 IENT_BUFFER");..
32c0: 09 63 61 73 65 20 53 43 41 52 44 5f 45 5f 49 4e .case SCARD_E_IN
32d0: 56 41 4c 49 44 5f 41 54 52 3a 0a 09 09 09 72 65 VALID_ATR:....re
32e0: 74 75 72 6e 28 22 53 43 41 52 44 5f 45 5f 49 4e turn("SCARD_E_IN
32f0: 56 41 4c 49 44 5f 41 54 52 22 29 3b 0a 09 09 63 VALID_ATR");...c
3300: 61 73 65 20 53 43 41 52 44 5f 45 5f 49 4e 56 41 ase SCARD_E_INVA
3310: 4c 49 44 5f 48 41 4e 44 4c 45 3a 0a 09 09 09 72 LID_HANDLE:....r
3320: 65 74 75 72 6e 28 22 53 43 41 52 44 5f 45 5f 49 eturn("SCARD_E_I
3330: 4e 56 41 4c 49 44 5f 48 41 4e 44 4c 45 22 29 3b NVALID_HANDLE");
3340: 0a 09 09 63 61 73 65 20 53 43 41 52 44 5f 45 5f ...case SCARD_E_
3350: 49 4e 56 41 4c 49 44 5f 50 41 52 41 4d 45 54 45 INVALID_PARAMETE
3360: 52 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 53 43 R:....return("SC
3370: 41 52 44 5f 45 5f 49 4e 56 41 4c 49 44 5f 50 41 ARD_E_INVALID_PA
3380: 52 41 4d 45 54 45 52 22 29 3b 0a 09 09 63 61 73 RAMETER");...cas
3390: 65 20 53 43 41 52 44 5f 45 5f 49 4e 56 41 4c 49 e SCARD_E_INVALI
33a0: 44 5f 54 41 52 47 45 54 3a 0a 09 09 09 72 65 74 D_TARGET:....ret
33b0: 75 72 6e 28 22 53 43 41 52 44 5f 45 5f 49 4e 56 urn("SCARD_E_INV
33c0: 41 4c 49 44 5f 54 41 52 47 45 54 22 29 3b 0a 09 ALID_TARGET");..
33d0: 09 63 61 73 65 20 53 43 41 52 44 5f 45 5f 49 4e .case SCARD_E_IN
33e0: 56 41 4c 49 44 5f 56 41 4c 55 45 3a 0a 09 09 09 VALID_VALUE:....
33f0: 72 65 74 75 72 6e 28 22 53 43 41 52 44 5f 45 5f return("SCARD_E_
3400: 49 4e 56 41 4c 49 44 5f 56 41 4c 55 45 22 29 3b INVALID_VALUE");
3410: 0a 09 09 63 61 73 65 20 53 43 41 52 44 5f 45 5f ...case SCARD_E_
3420: 4e 4f 5f 4d 45 4d 4f 52 59 3a 0a 09 09 09 72 65 NO_MEMORY:....re
3430: 74 75 72 6e 28 22 53 43 41 52 44 5f 45 5f 4e 4f turn("SCARD_E_NO
3440: 5f 4d 45 4d 4f 52 59 22 29 3b 0a 09 09 63 61 73 _MEMORY");...cas
3450: 65 20 53 43 41 52 44 5f 45 5f 55 4e 4b 4e 4f 57 e SCARD_E_UNKNOW
3460: 4e 5f 52 45 41 44 45 52 3a 0a 09 09 09 72 65 74 N_READER:....ret
3470: 75 72 6e 28 22 53 43 41 52 44 5f 45 5f 55 4e 4b urn("SCARD_E_UNK
3480: 4e 4f 57 4e 5f 52 45 41 44 45 52 22 29 3b 0a 09 NOWN_READER");..
3490: 09 63 61 73 65 20 53 43 41 52 44 5f 45 5f 54 49 .case SCARD_E_TI
34a0: 4d 45 4f 55 54 3a 0a 09 09 09 72 65 74 75 72 6e MEOUT:....return
34b0: 28 22 53 43 41 52 44 5f 45 5f 54 49 4d 45 4f 55 ("SCARD_E_TIMEOU
34c0: 54 22 29 3b 0a 09 09 63 61 73 65 20 53 43 41 52 T");...case SCAR
34d0: 44 5f 45 5f 53 48 41 52 49 4e 47 5f 56 49 4f 4c D_E_SHARING_VIOL
34e0: 41 54 49 4f 4e 3a 0a 09 09 09 72 65 74 75 72 6e ATION:....return
34f0: 28 22 53 43 41 52 44 5f 45 5f 53 48 41 52 49 4e ("SCARD_E_SHARIN
3500: 47 5f 56 49 4f 4c 41 54 49 4f 4e 22 29 3b 0a 09 G_VIOLATION");..
3510: 09 63 61 73 65 20 53 43 41 52 44 5f 45 5f 4e 4f .case SCARD_E_NO
3520: 5f 53 4d 41 52 54 43 41 52 44 3a 0a 09 09 09 72 _SMARTCARD:....r
3530: 65 74 75 72 6e 28 22 53 43 41 52 44 5f 45 5f 4e eturn("SCARD_E_N
3540: 4f 5f 53 4d 41 52 54 43 41 52 44 22 29 3b 0a 09 O_SMARTCARD");..
3550: 09 63 61 73 65 20 53 43 41 52 44 5f 45 5f 55 4e .case SCARD_E_UN
3560: 4b 4e 4f 57 4e 5f 43 41 52 44 3a 0a 09 09 09 72 KNOWN_CARD:....r
3570: 65 74 75 72 6e 28 22 53 43 41 52 44 5f 45 5f 55 eturn("SCARD_E_U
3580: 4e 4b 4e 4f 57 4e 5f 43 41 52 44 22 29 3b 0a 09 NKNOWN_CARD");..
3590: 09 63 61 73 65 20 53 43 41 52 44 5f 45 5f 50 52 .case SCARD_E_PR
35a0: 4f 54 4f 5f 4d 49 53 4d 41 54 43 48 3a 0a 09 09 OTO_MISMATCH:...
35b0: 09 72 65 74 75 72 6e 28 22 53 43 41 52 44 5f 45 .return("SCARD_E
35c0: 5f 50 52 4f 54 4f 5f 4d 49 53 4d 41 54 43 48 22 _PROTO_MISMATCH"
35d0: 29 3b 0a 09 09 63 61 73 65 20 53 43 41 52 44 5f );...case SCARD_
35e0: 45 5f 4e 4f 54 5f 52 45 41 44 59 3a 0a 09 09 09 E_NOT_READY:....
35f0: 72 65 74 75 72 6e 28 22 53 43 41 52 44 5f 45 5f return("SCARD_E_
3600: 4e 4f 54 5f 52 45 41 44 59 22 29 3b 0a 09 09 63 NOT_READY");...c
3610: 61 73 65 20 53 43 41 52 44 5f 45 5f 53 59 53 54 ase SCARD_E_SYST
3620: 45 4d 5f 43 41 4e 43 45 4c 4c 45 44 3a 0a 09 09 EM_CANCELLED:...
3630: 09 72 65 74 75 72 6e 28 22 53 43 41 52 44 5f 45 .return("SCARD_E
3640: 5f 53 59 53 54 45 4d 5f 43 41 4e 43 45 4c 4c 45 _SYSTEM_CANCELLE
3650: 44 22 29 3b 0a 09 09 63 61 73 65 20 53 43 41 52 D");...case SCAR
3660: 44 5f 45 5f 4e 4f 54 5f 54 52 41 4e 53 41 43 54 D_E_NOT_TRANSACT
3670: 45 44 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 53 ED:....return("S
3680: 43 41 52 44 5f 45 5f 4e 4f 54 5f 54 52 41 4e 53 CARD_E_NOT_TRANS
3690: 41 43 54 45 44 22 29 3b 0a 09 09 63 61 73 65 20 ACTED");...case
36a0: 53 43 41 52 44 5f 45 5f 52 45 41 44 45 52 5f 55 SCARD_E_READER_U
36b0: 4e 41 56 41 49 4c 41 42 4c 45 3a 0a 09 09 09 72 NAVAILABLE:....r
36c0: 65 74 75 72 6e 28 22 53 43 41 52 44 5f 45 5f 52 eturn("SCARD_E_R
36d0: 45 41 44 45 52 5f 55 4e 41 56 41 49 4c 41 42 4c EADER_UNAVAILABL
36e0: 45 22 29 3b 0a 09 09 63 61 73 65 20 53 43 41 52 E");...case SCAR
36f0: 44 5f 57 5f 55 4e 53 55 50 50 4f 52 54 45 44 5f D_W_UNSUPPORTED_
3700: 43 41 52 44 3a 0a 09 09 09 72 65 74 75 72 6e 28 CARD:....return(
3710: 22 53 43 41 52 44 5f 57 5f 55 4e 53 55 50 50 4f "SCARD_W_UNSUPPO
3720: 52 54 45 44 5f 43 41 52 44 22 29 3b 0a 09 09 63 RTED_CARD");...c
3730: 61 73 65 20 53 43 41 52 44 5f 57 5f 55 4e 52 45 ase SCARD_W_UNRE
3740: 53 50 4f 4e 53 49 56 45 5f 43 41 52 44 3a 0a 09 SPONSIVE_CARD:..
3750: 09 09 72 65 74 75 72 6e 28 22 53 43 41 52 44 5f ..return("SCARD_
3760: 57 5f 55 4e 52 45 53 50 4f 4e 53 49 56 45 5f 43 W_UNRESPONSIVE_C
3770: 41 52 44 22 29 3b 0a 09 09 63 61 73 65 20 53 43 ARD");...case SC
3780: 41 52 44 5f 57 5f 55 4e 50 4f 57 45 52 45 44 5f ARD_W_UNPOWERED_
3790: 43 41 52 44 3a 0a 09 09 09 72 65 74 75 72 6e 28 CARD:....return(
37a0: 22 53 43 41 52 44 5f 57 5f 55 4e 50 4f 57 45 52 "SCARD_W_UNPOWER
37b0: 45 44 5f 43 41 52 44 22 29 3b 0a 09 09 63 61 73 ED_CARD");...cas
37c0: 65 20 53 43 41 52 44 5f 57 5f 52 45 53 45 54 5f e SCARD_W_RESET_
37d0: 43 41 52 44 3a 0a 09 09 09 72 65 74 75 72 6e 28 CARD:....return(
37e0: 22 53 43 41 52 44 5f 57 5f 52 45 53 45 54 5f 43 "SCARD_W_RESET_C
37f0: 41 52 44 22 29 3b 0a 09 09 63 61 73 65 20 53 43 ARD");...case SC
3800: 41 52 44 5f 57 5f 52 45 4d 4f 56 45 44 5f 43 41 ARD_W_REMOVED_CA
3810: 52 44 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 53 RD:....return("S
3820: 43 41 52 44 5f 57 5f 52 45 4d 4f 56 45 44 5f 43 CARD_W_REMOVED_C
3830: 41 52 44 22 29 3b 0a 09 09 63 61 73 65 20 53 43 ARD");...case SC
3840: 41 52 44 5f 45 5f 50 43 49 5f 54 4f 4f 5f 53 4d ARD_E_PCI_TOO_SM
3850: 41 4c 4c 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 ALL:....return("
3860: 53 43 41 52 44 5f 45 5f 50 43 49 5f 54 4f 4f 5f SCARD_E_PCI_TOO_
3870: 53 4d 41 4c 4c 22 29 3b 0a 09 09 63 61 73 65 20 SMALL");...case
3880: 53 43 41 52 44 5f 45 5f 52 45 41 44 45 52 5f 55 SCARD_E_READER_U
3890: 4e 53 55 50 50 4f 52 54 45 44 3a 0a 09 09 09 72 NSUPPORTED:....r
38a0: 65 74 75 72 6e 28 22 53 43 41 52 44 5f 45 5f 52 eturn("SCARD_E_R
38b0: 45 41 44 45 52 5f 55 4e 53 55 50 50 4f 52 54 45 EADER_UNSUPPORTE
38c0: 44 22 29 3b 0a 09 09 63 61 73 65 20 53 43 41 52 D");...case SCAR
38d0: 44 5f 45 5f 44 55 50 4c 49 43 41 54 45 5f 52 45 D_E_DUPLICATE_RE
38e0: 41 44 45 52 3a 0a 09 09 09 72 65 74 75 72 6e 28 ADER:....return(
38f0: 22 53 43 41 52 44 5f 45 5f 44 55 50 4c 49 43 41 "SCARD_E_DUPLICA
3900: 54 45 5f 52 45 41 44 45 52 22 29 3b 0a 09 09 63 TE_READER");...c
3910: 61 73 65 20 53 43 41 52 44 5f 45 5f 43 41 52 44 ase SCARD_E_CARD
3920: 5f 55 4e 53 55 50 50 4f 52 54 45 44 3a 0a 09 09 _UNSUPPORTED:...
3930: 09 72 65 74 75 72 6e 28 22 53 43 41 52 44 5f 45 .return("SCARD_E
3940: 5f 43 41 52 44 5f 55 4e 53 55 50 50 4f 52 54 45 _CARD_UNSUPPORTE
3950: 44 22 29 3b 0a 09 09 63 61 73 65 20 53 43 41 52 D");...case SCAR
3960: 44 5f 45 5f 4e 4f 5f 53 45 52 56 49 43 45 3a 0a D_E_NO_SERVICE:.
3970: 09 09 09 72 65 74 75 72 6e 28 22 53 43 41 52 44 ...return("SCARD
3980: 5f 45 5f 4e 4f 5f 53 45 52 56 49 43 45 22 29 3b _E_NO_SERVICE");
3990: 0a 09 09 63 61 73 65 20 53 43 41 52 44 5f 45 5f ...case SCARD_E_
39a0: 53 45 52 56 49 43 45 5f 53 54 4f 50 50 45 44 3a SERVICE_STOPPED:
39b0: 0a 09 09 09 72 65 74 75 72 6e 28 22 53 43 41 52 ....return("SCAR
39c0: 44 5f 45 5f 53 45 52 56 49 43 45 5f 53 54 4f 50 D_E_SERVICE_STOP
39d0: 50 45 44 22 29 3b 0a 09 09 63 61 73 65 20 53 43 PED");...case SC
39e0: 41 52 44 5f 45 5f 55 4e 53 55 50 50 4f 52 54 45 ARD_E_UNSUPPORTE
39f0: 44 5f 46 45 41 54 55 52 45 3a 0a 09 09 09 72 65 D_FEATURE:....re
3a00: 74 75 72 6e 28 22 53 43 41 52 44 5f 45 5f 55 4e turn("SCARD_E_UN
3a10: 53 55 50 50 4f 52 54 45 44 5f 46 45 41 54 55 52 SUPPORTED_FEATUR
3a20: 45 22 29 3b 0a 23 69 66 64 65 66 20 53 43 41 52 E");.#ifdef SCAR
3a30: 44 5f 57 5f 49 4e 53 45 52 54 45 44 5f 43 41 52 D_W_INSERTED_CAR
3a40: 44 0a 09 09 63 61 73 65 20 53 43 41 52 44 5f 57 D...case SCARD_W
3a50: 5f 49 4e 53 45 52 54 45 44 5f 43 41 52 44 3a 0a _INSERTED_CARD:.
3a60: 09 09 09 72 65 74 75 72 6e 28 22 53 43 41 52 44 ...return("SCARD
3a70: 5f 57 5f 49 4e 53 45 52 54 45 44 5f 43 41 52 44 _W_INSERTED_CARD
3a80: 22 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 ");.#endif.#ifde
3a90: 66 20 53 43 41 52 44 5f 45 5f 4e 4f 5f 52 45 41 f SCARD_E_NO_REA
3aa0: 44 45 52 53 5f 41 56 41 49 4c 41 42 4c 45 0a 09 DERS_AVAILABLE..
3ab0: 09 63 61 73 65 20 53 43 41 52 44 5f 45 5f 4e 4f .case SCARD_E_NO
3ac0: 5f 52 45 41 44 45 52 53 5f 41 56 41 49 4c 41 42 _READERS_AVAILAB
3ad0: 4c 45 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 53 LE:....return("S
3ae0: 43 41 52 44 5f 45 5f 4e 4f 5f 52 45 41 44 45 52 CARD_E_NO_READER
3af0: 53 5f 41 56 41 49 4c 41 42 4c 45 22 29 3b 0a 23 S_AVAILABLE");.#
3b00: 65 6e 64 69 66 0a 09 7d 0a 0a 09 72 65 74 75 72 endif..}...retur
3b10: 6e 28 22 55 4e 4b 4e 4f 57 4e 22 29 3b 0a 7d 0a n("UNKNOWN");.}.
3b20: 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 .static const ch
3b30: 61 72 20 2a 43 41 43 4b 45 59 5f 44 45 42 55 47 ar *CACKEY_DEBUG
3b40: 5f 46 55 4e 43 5f 4f 42 4a 49 44 5f 54 4f 5f 53 _FUNC_OBJID_TO_S
3b50: 54 52 28 75 69 6e 74 31 36 5f 74 20 6f 62 6a 69 TR(uint16_t obji
3b60: 64 29 20 7b 0a 09 73 77 69 74 63 68 20 28 6f 62 d) {..switch (ob
3b70: 6a 69 64 29 20 7b 0a 09 09 63 61 73 65 20 30 78 jid) {...case 0x
3b80: 32 30 30 30 3a 0a 09 09 09 72 65 74 75 72 6e 28 2000:....return(
3b90: 22 43 41 43 4b 45 59 5f 54 4c 56 5f 4f 42 4a 49 "CACKEY_TLV_OBJI
3ba0: 44 5f 47 45 4e 45 52 41 4c 49 4e 46 4f 22 29 3b D_GENERALINFO");
3bb0: 0a 09 09 63 61 73 65 20 30 78 32 31 30 30 3a 0a ...case 0x2100:.
3bc0: 09 09 09 72 65 74 75 72 6e 28 22 43 41 43 4b 45 ...return("CACKE
3bd0: 59 5f 54 4c 56 5f 4f 42 4a 49 44 5f 50 52 4f 50 Y_TLV_OBJID_PROP
3be0: 45 52 53 4f 4e 41 4c 49 4e 46 4f 22 29 3b 0a 09 ERSONALINFO");..
3bf0: 09 63 61 73 65 20 30 78 33 30 30 30 3a 0a 09 09 .case 0x3000:...
3c00: 09 72 65 74 75 72 6e 28 22 43 41 43 4b 45 59 5f .return("CACKEY_
3c10: 54 4c 56 5f 4f 42 4a 49 44 5f 41 43 43 45 53 53 TLV_OBJID_ACCESS
3c20: 43 4f 4e 54 52 4f 4c 22 29 3b 0a 09 09 63 61 73 CONTROL");...cas
3c30: 65 20 30 78 34 30 30 30 3a 0a 09 09 09 72 65 74 e 0x4000:....ret
3c40: 75 72 6e 28 22 43 41 43 4b 45 59 5f 54 4c 56 5f urn("CACKEY_TLV_
3c50: 4f 42 4a 49 44 5f 4c 4f 47 49 4e 22 29 3b 0a 09 OBJID_LOGIN");..
3c60: 09 63 61 73 65 20 30 78 35 30 30 30 3a 0a 09 09 .case 0x5000:...
3c70: 09 72 65 74 75 72 6e 28 22 43 41 43 4b 45 59 5f .return("CACKEY_
3c80: 54 4c 56 5f 4f 42 4a 49 44 5f 43 41 52 44 49 4e TLV_OBJID_CARDIN
3c90: 46 4f 22 29 3b 0a 09 09 63 61 73 65 20 30 78 36 FO");...case 0x6
3ca0: 30 30 30 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 000:....return("
3cb0: 43 41 43 4b 45 59 5f 54 4c 56 5f 4f 42 4a 49 44 CACKEY_TLV_OBJID
3cc0: 5f 42 49 4f 4d 45 54 52 49 43 53 22 29 3b 0a 09 _BIOMETRICS");..
3cd0: 09 63 61 73 65 20 30 78 37 30 30 30 3a 0a 09 09 .case 0x7000:...
3ce0: 09 72 65 74 75 72 6e 28 22 43 41 43 4b 45 59 5f .return("CACKEY_
3cf0: 54 4c 56 5f 4f 42 4a 49 44 5f 44 49 47 49 54 41 TLV_OBJID_DIGITA
3d00: 4c 53 49 47 43 45 52 54 22 29 3b 0a 09 09 63 61 LSIGCERT");...ca
3d10: 73 65 20 30 78 30 32 30 30 3a 0a 09 09 09 72 65 se 0x0200:....re
3d20: 74 75 72 6e 28 22 43 41 43 4b 45 59 5f 54 4c 56 turn("CACKEY_TLV
3d30: 5f 4f 42 4a 49 44 5f 43 41 43 5f 50 45 52 53 4f _OBJID_CAC_PERSO
3d40: 4e 22 29 3b 0a 09 09 63 61 73 65 20 30 78 30 32 N");...case 0x02
3d50: 30 32 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 43 02:....return("C
3d60: 41 43 4b 45 59 5f 54 4c 56 5f 4f 42 4a 49 44 5f ACKEY_TLV_OBJID_
3d70: 43 41 43 5f 42 45 4e 45 46 49 54 53 22 29 3b 0a CAC_BENEFITS");.
3d80: 09 09 63 61 73 65 20 30 78 30 32 30 33 3a 0a 09 ..case 0x0203:..
3d90: 09 09 72 65 74 75 72 6e 28 22 43 41 43 4b 45 59 ..return("CACKEY
3da0: 5f 54 4c 56 5f 4f 42 4a 49 44 5f 43 41 43 5f 4f _TLV_OBJID_CAC_O
3db0: 54 48 45 52 42 45 4e 45 46 49 54 53 22 29 3b 0a THERBENEFITS");.
3dc0: 09 09 63 61 73 65 20 30 78 30 32 30 31 3a 0a 09 ..case 0x0201:..
3dd0: 09 09 72 65 74 75 72 6e 28 22 43 41 43 4b 45 59 ..return("CACKEY
3de0: 5f 54 4c 56 5f 4f 42 4a 49 44 5f 43 41 43 5f 50 _TLV_OBJID_CAC_P
3df0: 45 52 53 4f 4e 4e 45 4c 22 29 3b 0a 09 09 63 61 ERSONNEL");...ca
3e00: 73 65 20 30 78 30 32 46 45 3a 0a 09 09 09 72 65 se 0x02FE:....re
3e10: 74 75 72 6e 28 22 43 41 43 4b 45 59 5f 54 4c 56 turn("CACKEY_TLV
3e20: 5f 4f 42 4a 49 44 5f 43 41 43 5f 50 4b 49 43 45 _OBJID_CAC_PKICE
3e30: 52 54 22 29 3b 0a 09 7d 0a 09 0a 09 72 65 74 75 RT");..}....retu
3e40: 72 6e 28 22 55 4e 4b 4e 4f 57 4e 22 29 3b 0a 7d rn("UNKNOWN");.}
3e50: 0a 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 ..static const c
3e60: 68 61 72 20 2a 43 41 43 4b 45 59 5f 44 45 42 55 har *CACKEY_DEBU
3e70: 47 5f 46 55 4e 43 5f 41 50 50 54 59 50 45 5f 54 G_FUNC_APPTYPE_T
3e80: 4f 5f 53 54 52 28 75 69 6e 74 38 5f 74 20 61 70 O_STR(uint8_t ap
3e90: 70 74 79 70 65 29 20 7b 0a 09 73 77 69 74 63 68 ptype) {..switch
3ea0: 20 28 61 70 70 74 79 70 65 29 20 7b 0a 09 09 63 (apptype) {...c
3eb0: 61 73 65 20 30 78 30 30 3a 0a 09 09 09 72 65 74 ase 0x00:....ret
3ec0: 75 72 6e 28 22 4e 4f 4e 45 22 29 3b 0a 09 09 63 urn("NONE");...c
3ed0: 61 73 65 20 30 78 30 31 3a 0a 09 09 09 72 65 74 ase 0x01:....ret
3ee0: 75 72 6e 28 22 43 41 43 4b 45 59 5f 54 4c 56 5f urn("CACKEY_TLV_
3ef0: 41 50 50 5f 47 45 4e 45 52 49 43 22 29 3b 0a 09 APP_GENERIC");..
3f00: 09 63 61 73 65 20 30 78 30 32 3a 0a 09 09 09 72 .case 0x02:....r
3f10: 65 74 75 72 6e 28 22 43 41 43 4b 45 59 5f 54 4c eturn("CACKEY_TL
3f20: 56 5f 41 50 50 5f 53 4b 49 22 29 3b 0a 09 09 63 V_APP_SKI");...c
3f30: 61 73 65 20 30 78 30 33 3a 0a 09 09 09 72 65 74 ase 0x03:....ret
3f40: 75 72 6e 28 22 43 41 43 4b 45 59 5f 54 4c 56 5f urn("CACKEY_TLV_
3f50: 41 50 50 5f 47 45 4e 45 52 49 43 20 7c 20 43 41 APP_GENERIC | CA
3f60: 43 4b 45 59 5f 54 4c 56 5f 41 50 50 5f 53 4b 49 CKEY_TLV_APP_SKI
3f70: 22 29 3b 0a 09 09 63 61 73 65 20 30 78 30 34 3a ");...case 0x04:
3f80: 0a 09 09 09 72 65 74 75 72 6e 28 22 43 41 43 4b ....return("CACK
3f90: 45 59 5f 54 4c 56 5f 41 50 50 5f 50 4b 49 22 29 EY_TLV_APP_PKI")
3fa0: 3b 0a 09 09 63 61 73 65 20 30 78 30 35 3a 0a 09 ;...case 0x05:..
3fb0: 09 09 72 65 74 75 72 6e 28 22 43 41 43 4b 45 59 ..return("CACKEY
3fc0: 5f 54 4c 56 5f 41 50 50 5f 47 45 4e 45 52 49 43 _TLV_APP_GENERIC
3fd0: 20 7c 20 43 41 43 4b 45 59 5f 54 4c 56 5f 41 50 | CACKEY_TLV_AP
3fe0: 50 5f 50 4b 49 22 29 3b 0a 09 09 63 61 73 65 20 P_PKI");...case
3ff0: 30 78 30 36 3a 0a 09 09 09 72 65 74 75 72 6e 28 0x06:....return(
4000: 22 43 41 43 4b 45 59 5f 54 4c 56 5f 41 50 50 5f "CACKEY_TLV_APP_
4010: 53 4b 49 20 7c 20 43 41 43 4b 45 59 5f 54 4c 56 SKI | CACKEY_TLV
4020: 5f 41 50 50 5f 50 4b 49 22 29 3b 0a 09 09 63 61 _APP_PKI");...ca
4030: 73 65 20 30 78 30 37 3a 0a 09 09 09 72 65 74 75 se 0x07:....retu
4040: 72 6e 28 22 43 41 43 4b 45 59 5f 54 4c 56 5f 41 rn("CACKEY_TLV_A
4050: 50 50 5f 47 45 4e 45 52 49 43 20 7c 20 43 41 43 PP_GENERIC | CAC
4060: 4b 45 59 5f 54 4c 56 5f 41 50 50 5f 53 4b 49 20 KEY_TLV_APP_SKI
4070: 7c 20 43 41 43 4b 45 59 5f 54 4c 56 5f 41 50 50 | CACKEY_TLV_APP
4080: 5f 50 4b 49 22 29 3b 0a 09 7d 0a 0a 09 72 65 74 _PKI");..}...ret
4090: 75 72 6e 28 22 49 4e 56 41 4c 49 44 22 29 3b 0a urn("INVALID");.
40a0: 7d 0a 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 }..static const
40b0: 63 68 61 72 20 2a 43 41 43 4b 45 59 5f 44 45 42 char *CACKEY_DEB
40c0: 55 47 5f 46 55 4e 43 5f 41 54 54 52 49 42 55 54 UG_FUNC_ATTRIBUT
40d0: 45 5f 54 4f 5f 53 54 52 28 43 4b 5f 41 54 54 52 E_TO_STR(CK_ATTR
40e0: 49 42 55 54 45 5f 54 59 50 45 20 61 74 74 72 29 IBUTE_TYPE attr)
40f0: 20 7b 0a 09 73 77 69 74 63 68 20 28 61 74 74 72 {..switch (attr
4100: 29 20 7b 0a 09 09 63 61 73 65 20 43 4b 41 5f 43 ) {...case CKA_C
4110: 4c 41 53 53 3a 0a 09 09 09 72 65 74 75 72 6e 28 LASS:....return(
4120: 22 43 4b 41 5f 43 4c 41 53 53 22 29 3b 0a 09 09 "CKA_CLASS");...
4130: 63 61 73 65 20 43 4b 41 5f 54 4f 4b 45 4e 3a 0a case CKA_TOKEN:.
4140: 09 09 09 72 65 74 75 72 6e 28 22 43 4b 41 5f 54 ...return("CKA_T
4150: 4f 4b 45 4e 22 29 3b 0a 09 09 63 61 73 65 20 43 OKEN");...case C
4160: 4b 41 5f 50 52 49 56 41 54 45 3a 0a 09 09 09 72 KA_PRIVATE:....r
4170: 65 74 75 72 6e 28 22 43 4b 41 5f 50 52 49 56 41 eturn("CKA_PRIVA
4180: 54 45 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 TE");...case CKA
4190: 5f 4c 41 42 45 4c 3a 0a 09 09 09 72 65 74 75 72 _LABEL:....retur
41a0: 6e 28 22 43 4b 41 5f 4c 41 42 45 4c 22 29 3b 0a n("CKA_LABEL");.
41b0: 09 09 63 61 73 65 20 43 4b 41 5f 41 50 50 4c 49 ..case CKA_APPLI
41c0: 43 41 54 49 4f 4e 3a 0a 09 09 09 72 65 74 75 72 CATION:....retur
41d0: 6e 28 22 43 4b 41 5f 41 50 50 4c 49 43 41 54 49 n("CKA_APPLICATI
41e0: 4f 4e 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 ON");...case CKA
41f0: 5f 56 41 4c 55 45 3a 0a 09 09 09 72 65 74 75 72 _VALUE:....retur
4200: 6e 28 22 43 4b 41 5f 56 41 4c 55 45 22 29 3b 0a n("CKA_VALUE");.
4210: 09 09 63 61 73 65 20 43 4b 41 5f 4f 42 4a 45 43 ..case CKA_OBJEC
4220: 54 5f 49 44 3a 0a 09 09 09 72 65 74 75 72 6e 28 T_ID:....return(
4230: 22 43 4b 41 5f 4f 42 4a 45 43 54 5f 49 44 22 29 "CKA_OBJECT_ID")
4240: 3b 0a 09 09 63 61 73 65 20 43 4b 41 5f 43 45 52 ;...case CKA_CER
4250: 54 49 46 49 43 41 54 45 5f 54 59 50 45 3a 0a 09 TIFICATE_TYPE:..
4260: 09 09 72 65 74 75 72 6e 28 22 43 4b 41 5f 43 45 ..return("CKA_CE
4270: 52 54 49 46 49 43 41 54 45 5f 54 59 50 45 22 29 RTIFICATE_TYPE")
4280: 3b 0a 09 09 63 61 73 65 20 43 4b 41 5f 49 53 53 ;...case CKA_ISS
4290: 55 45 52 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 UER:....return("
42a0: 43 4b 41 5f 49 53 53 55 45 52 22 29 3b 0a 09 09 CKA_ISSUER");...
42b0: 63 61 73 65 20 43 4b 41 5f 53 45 52 49 41 4c 5f case CKA_SERIAL_
42c0: 4e 55 4d 42 45 52 3a 0a 09 09 09 72 65 74 75 72 NUMBER:....retur
42d0: 6e 28 22 43 4b 41 5f 53 45 52 49 41 4c 5f 4e 55 n("CKA_SERIAL_NU
42e0: 4d 42 45 52 22 29 3b 0a 09 09 63 61 73 65 20 43 MBER");...case C
42f0: 4b 41 5f 41 43 5f 49 53 53 55 45 52 3a 0a 09 09 KA_AC_ISSUER:...
4300: 09 72 65 74 75 72 6e 28 22 43 4b 41 5f 41 43 5f .return("CKA_AC_
4310: 49 53 53 55 45 52 22 29 3b 0a 09 09 63 61 73 65 ISSUER");...case
4320: 20 43 4b 41 5f 4f 57 4e 45 52 3a 0a 09 09 09 72 CKA_OWNER:....r
4330: 65 74 75 72 6e 28 22 43 4b 41 5f 4f 57 4e 45 52 eturn("CKA_OWNER
4340: 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 5f 41 ");...case CKA_A
4350: 54 54 52 5f 54 59 50 45 53 3a 0a 09 09 09 72 65 TTR_TYPES:....re
4360: 74 75 72 6e 28 22 43 4b 41 5f 41 54 54 52 5f 54 turn("CKA_ATTR_T
4370: 59 50 45 53 22 29 3b 0a 09 09 63 61 73 65 20 43 YPES");...case C
4380: 4b 41 5f 54 52 55 53 54 45 44 3a 0a 09 09 09 72 KA_TRUSTED:....r
4390: 65 74 75 72 6e 28 22 43 4b 41 5f 54 52 55 53 54 eturn("CKA_TRUST
43a0: 45 44 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 ED");...case CKA
43b0: 5f 4b 45 59 5f 54 59 50 45 3a 0a 09 09 09 72 65 _KEY_TYPE:....re
43c0: 74 75 72 6e 28 22 43 4b 41 5f 4b 45 59 5f 54 59 turn("CKA_KEY_TY
43d0: 50 45 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 PE");...case CKA
43e0: 5f 53 55 42 4a 45 43 54 3a 0a 09 09 09 72 65 74 _SUBJECT:....ret
43f0: 75 72 6e 28 22 43 4b 41 5f 53 55 42 4a 45 43 54 urn("CKA_SUBJECT
4400: 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 5f 49 ");...case CKA_I
4410: 44 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 43 4b D:....return("CK
4420: 41 5f 49 44 22 29 3b 0a 09 09 63 61 73 65 20 43 A_ID");...case C
4430: 4b 41 5f 53 45 4e 53 49 54 49 56 45 3a 0a 09 09 KA_SENSITIVE:...
4440: 09 72 65 74 75 72 6e 28 22 43 4b 41 5f 53 45 4e .return("CKA_SEN
4450: 53 49 54 49 56 45 22 29 3b 0a 09 09 63 61 73 65 SITIVE");...case
4460: 20 43 4b 41 5f 45 4e 43 52 59 50 54 3a 0a 09 09 CKA_ENCRYPT:...
4470: 09 72 65 74 75 72 6e 28 22 43 4b 41 5f 45 4e 43 .return("CKA_ENC
4480: 52 59 50 54 22 29 3b 0a 09 09 63 61 73 65 20 43 RYPT");...case C
4490: 4b 41 5f 44 45 43 52 59 50 54 3a 0a 09 09 09 72 KA_DECRYPT:....r
44a0: 65 74 75 72 6e 28 22 43 4b 41 5f 44 45 43 52 59 eturn("CKA_DECRY
44b0: 50 54 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 PT");...case CKA
44c0: 5f 57 52 41 50 3a 0a 09 09 09 72 65 74 75 72 6e _WRAP:....return
44d0: 28 22 43 4b 41 5f 57 52 41 50 22 29 3b 0a 09 09 ("CKA_WRAP");...
44e0: 63 61 73 65 20 43 4b 41 5f 55 4e 57 52 41 50 3a case CKA_UNWRAP:
44f0: 0a 09 09 09 72 65 74 75 72 6e 28 22 43 4b 41 5f ....return("CKA_
4500: 55 4e 57 52 41 50 22 29 3b 0a 09 09 63 61 73 65 UNWRAP");...case
4510: 20 43 4b 41 5f 53 49 47 4e 3a 0a 09 09 09 72 65 CKA_SIGN:....re
4520: 74 75 72 6e 28 22 43 4b 41 5f 53 49 47 4e 22 29 turn("CKA_SIGN")
4530: 3b 0a 09 09 63 61 73 65 20 43 4b 41 5f 53 49 47 ;...case CKA_SIG
4540: 4e 5f 52 45 43 4f 56 45 52 3a 0a 09 09 09 72 65 N_RECOVER:....re
4550: 74 75 72 6e 28 22 43 4b 41 5f 53 49 47 4e 5f 52 turn("CKA_SIGN_R
4560: 45 43 4f 56 45 52 22 29 3b 0a 09 09 63 61 73 65 ECOVER");...case
4570: 20 43 4b 41 5f 56 45 52 49 46 59 3a 0a 09 09 09 CKA_VERIFY:....
4580: 72 65 74 75 72 6e 28 22 43 4b 41 5f 56 45 52 49 return("CKA_VERI
4590: 46 59 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 FY");...case CKA
45a0: 5f 56 45 52 49 46 59 5f 52 45 43 4f 56 45 52 3a _VERIFY_RECOVER:
45b0: 0a 09 09 09 72 65 74 75 72 6e 28 22 43 4b 41 5f ....return("CKA_
45c0: 56 45 52 49 46 59 5f 52 45 43 4f 56 45 52 22 29 VERIFY_RECOVER")
45d0: 3b 0a 09 09 63 61 73 65 20 43 4b 41 5f 44 45 52 ;...case CKA_DER
45e0: 49 56 45 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 IVE:....return("
45f0: 43 4b 41 5f 44 45 52 49 56 45 22 29 3b 0a 09 09 CKA_DERIVE");...
4600: 63 61 73 65 20 43 4b 41 5f 53 54 41 52 54 5f 44 case CKA_START_D
4610: 41 54 45 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 ATE:....return("
4620: 43 4b 41 5f 53 54 41 52 54 5f 44 41 54 45 22 29 CKA_START_DATE")
4630: 3b 0a 09 09 63 61 73 65 20 43 4b 41 5f 45 4e 44 ;...case CKA_END
4640: 5f 44 41 54 45 3a 0a 09 09 09 72 65 74 75 72 6e _DATE:....return
4650: 28 22 43 4b 41 5f 45 4e 44 5f 44 41 54 45 22 29 ("CKA_END_DATE")
4660: 3b 0a 09 09 63 61 73 65 20 43 4b 41 5f 4d 4f 44 ;...case CKA_MOD
4670: 55 4c 55 53 3a 0a 09 09 09 72 65 74 75 72 6e 28 ULUS:....return(
4680: 22 43 4b 41 5f 4d 4f 44 55 4c 55 53 22 29 3b 0a "CKA_MODULUS");.
4690: 09 09 63 61 73 65 20 43 4b 41 5f 4d 4f 44 55 4c ..case CKA_MODUL
46a0: 55 53 5f 42 49 54 53 3a 0a 09 09 09 72 65 74 75 US_BITS:....retu
46b0: 72 6e 28 22 43 4b 41 5f 4d 4f 44 55 4c 55 53 5f rn("CKA_MODULUS_
46c0: 42 49 54 53 22 29 3b 0a 09 09 63 61 73 65 20 43 BITS");...case C
46d0: 4b 41 5f 50 55 42 4c 49 43 5f 45 58 50 4f 4e 45 KA_PUBLIC_EXPONE
46e0: 4e 54 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 43 NT:....return("C
46f0: 4b 41 5f 50 55 42 4c 49 43 5f 45 58 50 4f 4e 45 KA_PUBLIC_EXPONE
4700: 4e 54 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 NT");...case CKA
4710: 5f 50 52 49 56 41 54 45 5f 45 58 50 4f 4e 45 4e _PRIVATE_EXPONEN
4720: 54 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 43 4b T:....return("CK
4730: 41 5f 50 52 49 56 41 54 45 5f 45 58 50 4f 4e 45 A_PRIVATE_EXPONE
4740: 4e 54 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 NT");...case CKA
4750: 5f 50 52 49 4d 45 5f 31 3a 0a 09 09 09 72 65 74 _PRIME_1:....ret
4760: 75 72 6e 28 22 43 4b 41 5f 50 52 49 4d 45 5f 31 urn("CKA_PRIME_1
4770: 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 5f 50 ");...case CKA_P
4780: 52 49 4d 45 5f 32 3a 0a 09 09 09 72 65 74 75 72 RIME_2:....retur
4790: 6e 28 22 43 4b 41 5f 50 52 49 4d 45 5f 32 22 29 n("CKA_PRIME_2")
47a0: 3b 0a 09 09 63 61 73 65 20 43 4b 41 5f 45 58 50 ;...case CKA_EXP
47b0: 4f 4e 45 4e 54 5f 31 3a 0a 09 09 09 72 65 74 75 ONENT_1:....retu
47c0: 72 6e 28 22 43 4b 41 5f 45 58 50 4f 4e 45 4e 54 rn("CKA_EXPONENT
47d0: 5f 31 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 _1");...case CKA
47e0: 5f 45 58 50 4f 4e 45 4e 54 5f 32 3a 0a 09 09 09 _EXPONENT_2:....
47f0: 72 65 74 75 72 6e 28 22 43 4b 41 5f 45 58 50 4f return("CKA_EXPO
4800: 4e 45 4e 54 5f 32 22 29 3b 0a 09 09 63 61 73 65 NENT_2");...case
4810: 20 43 4b 41 5f 43 4f 45 46 46 49 43 49 45 4e 54 CKA_COEFFICIENT
4820: 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 43 4b 41 :....return("CKA
4830: 5f 43 4f 45 46 46 49 43 49 45 4e 54 22 29 3b 0a _COEFFICIENT");.
4840: 09 09 63 61 73 65 20 43 4b 41 5f 50 52 49 4d 45 ..case CKA_PRIME
4850: 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 43 4b 41 :....return("CKA
4860: 5f 50 52 49 4d 45 22 29 3b 0a 09 09 63 61 73 65 _PRIME");...case
4870: 20 43 4b 41 5f 53 55 42 50 52 49 4d 45 3a 0a 09 CKA_SUBPRIME:..
4880: 09 09 72 65 74 75 72 6e 28 22 43 4b 41 5f 53 55 ..return("CKA_SU
4890: 42 50 52 49 4d 45 22 29 3b 0a 09 09 63 61 73 65 BPRIME");...case
48a0: 20 43 4b 41 5f 42 41 53 45 3a 0a 09 09 09 72 65 CKA_BASE:....re
48b0: 74 75 72 6e 28 22 43 4b 41 5f 42 41 53 45 22 29 turn("CKA_BASE")
48c0: 3b 0a 09 09 63 61 73 65 20 43 4b 41 5f 50 52 49 ;...case CKA_PRI
48d0: 4d 45 5f 42 49 54 53 3a 0a 09 09 09 72 65 74 75 ME_BITS:....retu
48e0: 72 6e 28 22 43 4b 41 5f 50 52 49 4d 45 5f 42 49 rn("CKA_PRIME_BI
48f0: 54 53 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 TS");...case CKA
4900: 5f 53 55 42 5f 50 52 49 4d 45 5f 42 49 54 53 3a _SUB_PRIME_BITS:
4910: 0a 09 09 09 72 65 74 75 72 6e 28 22 43 4b 41 5f ....return("CKA_
4920: 53 55 42 5f 50 52 49 4d 45 5f 42 49 54 53 22 29 SUB_PRIME_BITS")
4930: 3b 0a 09 09 63 61 73 65 20 43 4b 41 5f 56 41 4c ;...case CKA_VAL
4940: 55 45 5f 42 49 54 53 3a 0a 09 09 09 72 65 74 75 UE_BITS:....retu
4950: 72 6e 28 22 43 4b 41 5f 56 41 4c 55 45 5f 42 49 rn("CKA_VALUE_BI
4960: 54 53 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 TS");...case CKA
4970: 5f 56 41 4c 55 45 5f 4c 45 4e 3a 0a 09 09 09 72 _VALUE_LEN:....r
4980: 65 74 75 72 6e 28 22 43 4b 41 5f 56 41 4c 55 45 eturn("CKA_VALUE
4990: 5f 4c 45 4e 22 29 3b 0a 09 09 63 61 73 65 20 43 _LEN");...case C
49a0: 4b 41 5f 45 58 54 52 41 43 54 41 42 4c 45 3a 0a KA_EXTRACTABLE:.
49b0: 09 09 09 72 65 74 75 72 6e 28 22 43 4b 41 5f 45 ...return("CKA_E
49c0: 58 54 52 41 43 54 41 42 4c 45 22 29 3b 0a 09 09 XTRACTABLE");...
49d0: 63 61 73 65 20 43 4b 41 5f 4c 4f 43 41 4c 3a 0a case CKA_LOCAL:.
49e0: 09 09 09 72 65 74 75 72 6e 28 22 43 4b 41 5f 4c ...return("CKA_L
49f0: 4f 43 41 4c 22 29 3b 0a 09 09 63 61 73 65 20 43 OCAL");...case C
4a00: 4b 41 5f 4e 45 56 45 52 5f 45 58 54 52 41 43 54 KA_NEVER_EXTRACT
4a10: 41 42 4c 45 3a 0a 09 09 09 72 65 74 75 72 6e 28 ABLE:....return(
4a20: 22 43 4b 41 5f 4e 45 56 45 52 5f 45 58 54 52 41 "CKA_NEVER_EXTRA
4a30: 43 54 41 42 4c 45 22 29 3b 0a 09 09 63 61 73 65 CTABLE");...case
4a40: 20 43 4b 41 5f 41 4c 57 41 59 53 5f 53 45 4e 53 CKA_ALWAYS_SENS
4a50: 49 54 49 56 45 3a 0a 09 09 09 72 65 74 75 72 6e ITIVE:....return
4a60: 28 22 43 4b 41 5f 41 4c 57 41 59 53 5f 53 45 4e ("CKA_ALWAYS_SEN
4a70: 53 49 54 49 56 45 22 29 3b 0a 09 09 63 61 73 65 SITIVE");...case
4a80: 20 43 4b 41 5f 4b 45 59 5f 47 45 4e 5f 4d 45 43 CKA_KEY_GEN_MEC
4a90: 48 41 4e 49 53 4d 3a 0a 09 09 09 72 65 74 75 72 HANISM:....retur
4aa0: 6e 28 22 43 4b 41 5f 4b 45 59 5f 47 45 4e 5f 4d n("CKA_KEY_GEN_M
4ab0: 45 43 48 41 4e 49 53 4d 22 29 3b 0a 09 09 63 61 ECHANISM");...ca
4ac0: 73 65 20 43 4b 41 5f 4d 4f 44 49 46 49 41 42 4c se CKA_MODIFIABL
4ad0: 45 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 43 4b E:....return("CK
4ae0: 41 5f 4d 4f 44 49 46 49 41 42 4c 45 22 29 3b 0a A_MODIFIABLE");.
4af0: 09 09 63 61 73 65 20 43 4b 41 5f 45 43 44 53 41 ..case CKA_ECDSA
4b00: 5f 50 41 52 41 4d 53 3a 0a 09 09 09 72 65 74 75 _PARAMS:....retu
4b10: 72 6e 28 22 43 4b 41 5f 45 43 44 53 41 5f 50 41 rn("CKA_ECDSA_PA
4b20: 52 41 4d 53 22 29 3b 0a 09 09 63 61 73 65 20 43 RAMS");...case C
4b30: 4b 41 5f 45 43 5f 50 4f 49 4e 54 3a 0a 09 09 09 KA_EC_POINT:....
4b40: 72 65 74 75 72 6e 28 22 43 4b 41 5f 45 43 5f 50 return("CKA_EC_P
4b50: 4f 49 4e 54 22 29 3b 0a 09 09 63 61 73 65 20 43 OINT");...case C
4b60: 4b 41 5f 53 45 43 4f 4e 44 41 52 59 5f 41 55 54 KA_SECONDARY_AUT
4b70: 48 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 43 4b H:....return("CK
4b80: 41 5f 53 45 43 4f 4e 44 41 52 59 5f 41 55 54 48 A_SECONDARY_AUTH
4b90: 22 29 3b 0a 09 09 63 61 73 65 20 43 4b 41 5f 41 ");...case CKA_A
4ba0: 55 54 48 5f 50 49 4e 5f 46 4c 41 47 53 3a 0a 09 UTH_PIN_FLAGS:..
4bb0: 09 09 72 65 74 75 72 6e 28 22 43 4b 41 5f 41 55 ..return("CKA_AU
4bc0: 54 48 5f 50 49 4e 5f 46 4c 41 47 53 22 29 3b 0a TH_PIN_FLAGS");.
4bd0: 09 09 63 61 73 65 20 43 4b 41 5f 48 57 5f 46 45 ..case CKA_HW_FE
4be0: 41 54 55 52 45 5f 54 59 50 45 3a 0a 09 09 09 72 ATURE_TYPE:....r
4bf0: 65 74 75 72 6e 28 22 43 4b 41 5f 48 57 5f 46 45 eturn("CKA_HW_FE
4c00: 41 54 55 52 45 5f 54 59 50 45 22 29 3b 0a 09 09 ATURE_TYPE");...
4c10: 63 61 73 65 20 43 4b 41 5f 52 45 53 45 54 5f 4f case CKA_RESET_O
4c20: 4e 5f 49 4e 49 54 3a 0a 09 09 09 72 65 74 75 72 N_INIT:....retur
4c30: 6e 28 22 43 4b 41 5f 52 45 53 45 54 5f 4f 4e 5f n("CKA_RESET_ON_
4c40: 49 4e 49 54 22 29 3b 0a 09 09 63 61 73 65 20 43 INIT");...case C
4c50: 4b 41 5f 48 41 53 5f 52 45 53 45 54 3a 0a 09 09 KA_HAS_RESET:...
4c60: 09 72 65 74 75 72 6e 28 22 43 4b 41 5f 48 41 53 .return("CKA_HAS
4c70: 5f 52 45 53 45 54 22 29 3b 0a 09 09 63 61 73 65 _RESET");...case
4c80: 20 43 4b 41 5f 56 45 4e 44 4f 52 5f 44 45 46 49 CKA_VENDOR_DEFI
4c90: 4e 45 44 3a 0a 09 09 09 72 65 74 75 72 6e 28 22 NED:....return("
4ca0: 43 4b 41 5f 56 45 4e 44 4f 52 5f 44 45 46 49 4e CKA_VENDOR_DEFIN
4cb0: 45 44 22 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 ED");..}...retur
4cc0: 6e 28 22 55 4e 4b 4e 4f 57 4e 22 29 3b 0a 7d 0a n("UNKNOWN");.}.
4cd0: 0a 23 20 20 64 65 66 69 6e 65 20 6d 61 6c 6c 6f .# define mallo
4ce0: 63 28 78 29 20 43 41 43 4b 45 59 5f 44 45 42 55 c(x) CACKEY_DEBU
4cf0: 47 5f 46 55 4e 43 5f 4d 41 4c 4c 4f 43 28 78 2c G_FUNC_MALLOC(x,
4d00: 20 5f 5f 66 75 6e 63 5f 5f 2c 20 5f 5f 4c 49 4e __func__, __LIN
4d10: 45 5f 5f 29 0a 23 20 20 64 65 66 69 6e 65 20 72 E__).# define r
4d20: 65 61 6c 6c 6f 63 28 78 2c 20 79 29 20 43 41 43 ealloc(x, y) CAC
4d30: 4b 45 59 5f 44 45 42 55 47 5f 46 55 4e 43 5f 52 KEY_DEBUG_FUNC_R
4d40: 45 41 4c 4c 4f 43 28 78 2c 20 79 2c 20 5f 5f 66 EALLOC(x, y, __f
4d50: 75 6e 63 5f 5f 2c 20 5f 5f 4c 49 4e 45 5f 5f 29 unc__, __LINE__)
4d60: 0a 23 20 20 69 66 64 65 66 20 73 74 72 64 75 70 .# ifdef strdup
4d70: 0a 23 20 20 20 20 75 6e 64 65 66 20 73 74 72 64 .# undef strd
4d80: 75 70 0a 23 20 20 65 6e 64 69 66 0a 23 20 20 64 up.# endif.# d
4d90: 65 66 69 6e 65 20 73 74 72 64 75 70 28 78 29 20 efine strdup(x)
4da0: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 46 55 4e CACKEY_DEBUG_FUN
4db0: 43 5f 53 54 52 44 55 50 28 78 2c 20 5f 5f 66 75 C_STRDUP(x, __fu
4dc0: 6e 63 5f 5f 2c 20 5f 5f 4c 49 4e 45 5f 5f 29 0a nc__, __LINE__).
4dd0: 23 65 6c 73 65 0a 23 20 20 64 65 66 69 6e 65 20 #else.# define
4de0: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
4df0: 4e 54 46 28 78 2e 2e 2e 29 20 2f 2a 2a 2f 0a 23 NTF(x...) /**/.#
4e00: 20 20 64 65 66 69 6e 65 20 43 41 43 4b 45 59 5f define CACKEY_
4e10: 44 45 42 55 47 5f 50 52 49 4e 54 42 55 46 28 66 DEBUG_PRINTBUF(f
4e20: 2c 20 78 2c 20 79 29 20 2f 2a 2a 2f 0a 23 20 20 , x, y) /**/.#
4e30: 64 65 66 69 6e 65 20 43 41 43 4b 45 59 5f 44 45 define CACKEY_DE
4e40: 42 55 47 5f 46 55 4e 43 5f 54 41 47 5f 54 4f 5f BUG_FUNC_TAG_TO_
4e50: 53 54 52 28 78 29 20 22 44 45 42 55 47 5f 44 49 STR(x) "DEBUG_DI
4e60: 53 41 42 4c 45 44 22 0a 23 20 20 64 65 66 69 6e SABLED".# defin
4e70: 65 20 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 46 e CACKEY_DEBUG_F
4e80: 55 4e 43 5f 53 43 41 52 44 45 52 52 5f 54 4f 5f UNC_SCARDERR_TO_
4e90: 53 54 52 28 78 29 20 22 44 45 42 55 47 5f 44 49 STR(x) "DEBUG_DI
4ea0: 53 41 42 4c 45 44 22 0a 23 20 20 64 65 66 69 6e SABLED".# defin
4eb0: 65 20 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 46 e CACKEY_DEBUG_F
4ec0: 55 4e 43 5f 4f 42 4a 49 44 5f 54 4f 5f 53 54 52 UNC_OBJID_TO_STR
4ed0: 28 78 29 20 22 44 45 42 55 47 5f 44 49 53 41 42 (x) "DEBUG_DISAB
4ee0: 4c 45 44 22 0a 23 20 20 64 65 66 69 6e 65 20 43 LED".# define C
4ef0: 41 43 4b 45 59 5f 44 45 42 55 47 5f 46 55 4e 43 ACKEY_DEBUG_FUNC
4f00: 5f 41 50 50 54 59 50 45 5f 54 4f 5f 53 54 52 28 _APPTYPE_TO_STR(
4f10: 78 29 20 22 44 45 42 55 47 5f 44 49 53 41 42 4c x) "DEBUG_DISABL
4f20: 45 44 22 0a 23 20 20 64 65 66 69 6e 65 20 43 41 ED".# define CA
4f30: 43 4b 45 59 5f 44 45 42 55 47 5f 46 55 4e 43 5f CKEY_DEBUG_FUNC_
4f40: 41 54 54 52 49 42 55 54 45 5f 54 4f 5f 53 54 52 ATTRIBUTE_TO_STR
4f50: 28 78 29 20 22 44 45 42 55 47 5f 44 49 53 41 42 (x) "DEBUG_DISAB
4f60: 4c 45 44 22 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a LED".#endif../*.
4f70: 20 2a 20 49 6e 63 6c 75 64 65 20 74 68 65 73 65 * Include these
4f80: 20 73 6f 75 72 63 65 20 66 69 6c 65 73 20 69 6e source files in
4f90: 20 74 68 69 73 20 74 72 61 6e 73 6c 61 74 69 6f this translatio
4fa0: 6e 20 75 6e 69 74 20 73 6f 20 74 68 61 74 20 77 n unit so that w
4fb0: 65 20 63 61 6e 20 62 69 6e 64 20 74 6f 0a 20 2a e can bind to. *
4fc0: 20 66 75 6e 63 74 69 6f 6e 73 20 61 6e 64 20 6e functions and n
4fd0: 6f 74 20 69 6e 63 6c 75 64 65 20 61 6e 79 20 73 ot include any s
4fe0: 79 6d 62 6f 6c 73 20 69 6e 20 74 68 65 20 6f 75 ymbols in the ou
4ff0: 74 70 75 74 20 73 68 61 72 65 64 20 6f 62 6a 65 tput shared obje
5000: 63 74 2e 0a 20 2a 2f 0a 23 69 6e 63 6c 75 64 65 ct.. */.#include
5010: 20 22 61 73 6e 31 2d 78 35 30 39 2e 63 22 0a 23 "asn1-x509.c".#
5020: 69 6e 63 6c 75 64 65 20 22 73 68 61 31 2e 63 22 include "sha1.c"
5030: 0a 23 69 6e 63 6c 75 64 65 20 22 6d 64 35 2e 63 .#include "md5.c
5040: 22 0a 0a 74 79 70 65 64 65 66 20 65 6e 75 6d 20 "..typedef enum
5050: 7b 0a 09 43 41 43 4b 45 59 5f 49 44 5f 54 59 50 {..CACKEY_ID_TYP
5060: 45 5f 45 52 52 4f 52 2c 0a 09 43 41 43 4b 45 59 E_ERROR,..CACKEY
5070: 5f 49 44 5f 54 59 50 45 5f 55 4e 4b 4e 4f 57 4e _ID_TYPE_UNKNOWN
5080: 2c 0a 09 43 41 43 4b 45 59 5f 49 44 5f 54 59 50 ,..CACKEY_ID_TYP
5090: 45 5f 43 41 43 2c 0a 09 43 41 43 4b 45 59 5f 49 E_CAC,..CACKEY_I
50a0: 44 5f 54 59 50 45 5f 50 49 56 2c 0a 09 43 41 43 D_TYPE_PIV,..CAC
50b0: 4b 45 59 5f 49 44 5f 54 59 50 45 5f 43 45 52 54 KEY_ID_TYPE_CERT
50c0: 5f 4f 4e 4c 59 0a 7d 20 63 61 63 6b 65 79 5f 70 _ONLY.} cackey_p
50d0: 63 73 63 5f 69 64 5f 74 79 70 65 3b 0a 0a 73 74 csc_id_type;..st
50e0: 72 75 63 74 20 63 61 63 6b 65 79 5f 70 63 73 63 ruct cackey_pcsc
50f0: 5f 69 64 65 6e 74 69 74 79 20 7b 0a 09 63 61 63 _identity {..cac
5100: 6b 65 79 5f 70 63 73 63 5f 69 64 5f 74 79 70 65 key_pcsc_id_type
5110: 20 69 64 5f 74 79 70 65 3b 0a 0a 09 73 69 7a 65 id_type;...size
5120: 5f 74 20 63 65 72 74 69 66 69 63 61 74 65 5f 6c _t certificate_l
5130: 65 6e 3b 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 en;..unsigned ch
5140: 61 72 20 2a 63 65 72 74 69 66 69 63 61 74 65 3b ar *certificate;
5150: 0a 0a 09 73 73 69 7a 65 5f 74 20 6b 65 79 73 69 ...ssize_t keysi
5160: 7a 65 3b 0a 0a 09 75 6e 69 6f 6e 20 7b 0a 09 09 ze;...union {...
5170: 73 74 72 75 63 74 20 7b 0a 09 09 09 75 6e 73 69 struct {....unsi
5180: 67 6e 65 64 20 63 68 61 72 20 61 70 70 6c 65 74 gned char applet
5190: 5b 37 5d 3b 0a 09 09 09 75 69 6e 74 31 36 5f 74 [7];....uint16_t
51a0: 20 66 69 6c 65 3b 0a 09 09 7d 20 63 61 63 3b 0a file;...} cac;.
51b0: 0a 09 09 73 74 72 75 63 74 20 7b 0a 09 09 09 75 ...struct {....u
51c0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 6b 65 79 nsigned char key
51d0: 5f 69 64 3b 0a 09 09 09 63 68 61 72 20 6c 61 62 _id;....char lab
51e0: 65 6c 5b 33 32 5d 3b 0a 09 09 7d 20 70 69 76 3b el[32];...} piv;
51f0: 0a 09 7d 20 63 61 72 64 3b 0a 7d 3b 0a 0a 73 74 ..} card;.};..st
5200: 72 75 63 74 20 63 61 63 6b 65 79 5f 69 64 65 6e ruct cackey_iden
5210: 74 69 74 79 20 7b 0a 09 73 74 72 75 63 74 20 63 tity {..struct c
5220: 61 63 6b 65 79 5f 70 63 73 63 5f 69 64 65 6e 74 ackey_pcsc_ident
5230: 69 74 79 20 2a 70 63 73 63 5f 69 64 65 6e 74 69 ity *pcsc_identi
5240: 74 79 3b 0a 0a 09 43 4b 5f 41 54 54 52 49 42 55 ty;...CK_ATTRIBU
5250: 54 45 20 2a 61 74 74 72 69 62 75 74 65 73 3b 0a TE *attributes;.
5260: 09 43 4b 5f 55 4c 4f 4e 47 20 61 74 74 72 69 62 .CK_ULONG attrib
5270: 75 74 65 73 5f 63 6f 75 6e 74 3b 0a 7d 3b 0a 0a utes_count;.};..
5280: 73 74 72 75 63 74 20 63 61 63 6b 65 79 5f 73 65 struct cackey_se
5290: 73 73 69 6f 6e 20 7b 0a 09 69 6e 74 20 61 63 74 ssion {..int act
52a0: 69 76 65 3b 0a 0a 09 43 4b 5f 53 4c 4f 54 5f 49 ive;...CK_SLOT_I
52b0: 44 20 73 6c 6f 74 49 44 3b 0a 0a 09 43 4b 5f 53 D slotID;...CK_S
52c0: 54 41 54 45 20 73 74 61 74 65 3b 0a 09 43 4b 5f TATE state;..CK_
52d0: 46 4c 41 47 53 20 66 6c 61 67 73 3b 0a 09 43 4b FLAGS flags;..CK
52e0: 5f 55 4c 4f 4e 47 20 75 6c 44 65 76 69 63 65 45 _ULONG ulDeviceE
52f0: 72 72 6f 72 3b 0a 09 43 4b 5f 56 4f 49 44 5f 50 rror;..CK_VOID_P
5300: 54 52 20 70 41 70 70 6c 69 63 61 74 69 6f 6e 3b TR pApplication;
5310: 0a 09 43 4b 5f 4e 4f 54 49 46 59 20 4e 6f 74 69 ..CK_NOTIFY Noti
5320: 66 79 3b 0a 0a 09 73 74 72 75 63 74 20 63 61 63 fy;...struct cac
5330: 6b 65 79 5f 69 64 65 6e 74 69 74 79 20 2a 69 64 key_identity *id
5340: 65 6e 74 69 74 69 65 73 3b 0a 09 75 6e 73 69 67 entities;..unsig
5350: 6e 65 64 20 6c 6f 6e 67 20 69 64 65 6e 74 69 74 ned long identit
5360: 69 65 73 5f 63 6f 75 6e 74 3b 0a 0a 09 69 6e 74 ies_count;...int
5370: 20 73 65 61 72 63 68 5f 61 63 74 69 76 65 3b 0a search_active;.
5380: 09 43 4b 5f 41 54 54 52 49 42 55 54 45 5f 50 54 .CK_ATTRIBUTE_PT
5390: 52 20 73 65 61 72 63 68 5f 71 75 65 72 79 3b 0a R search_query;.
53a0: 09 43 4b 5f 55 4c 4f 4e 47 20 73 65 61 72 63 68 .CK_ULONG search
53b0: 5f 71 75 65 72 79 5f 63 6f 75 6e 74 3b 0a 09 75 _query_count;..u
53c0: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 73 65 61 nsigned long sea
53d0: 72 63 68 5f 63 75 72 72 5f 69 64 3b 0a 0a 09 69 rch_curr_id;...i
53e0: 6e 74 20 73 69 67 6e 5f 61 63 74 69 76 65 3b 0a nt sign_active;.
53f0: 09 43 4b 5f 4d 45 43 48 41 4e 49 53 4d 5f 54 59 .CK_MECHANISM_TY
5400: 50 45 20 73 69 67 6e 5f 6d 65 63 68 61 6e 69 73 PE sign_mechanis
5410: 6d 3b 0a 09 43 4b 5f 42 59 54 45 5f 50 54 52 20 m;..CK_BYTE_PTR
5420: 73 69 67 6e 5f 62 75 66 3b 0a 09 75 6e 73 69 67 sign_buf;..unsig
5430: 6e 65 64 20 6c 6f 6e 67 20 73 69 67 6e 5f 62 75 ned long sign_bu
5440: 66 6c 65 6e 3b 0a 09 75 6e 73 69 67 6e 65 64 20 flen;..unsigned
5450: 6c 6f 6e 67 20 73 69 67 6e 5f 62 75 66 75 73 65 long sign_bufuse
5460: 64 3b 0a 09 73 74 72 75 63 74 20 63 61 63 6b 65 d;..struct cacke
5470: 79 5f 69 64 65 6e 74 69 74 79 20 2a 73 69 67 6e y_identity *sign
5480: 5f 69 64 65 6e 74 69 74 79 3b 0a 0a 09 69 6e 74 _identity;...int
5490: 20 64 65 63 72 79 70 74 5f 61 63 74 69 76 65 3b decrypt_active;
54a0: 0a 09 43 4b 5f 4d 45 43 48 41 4e 49 53 4d 5f 54 ..CK_MECHANISM_T
54b0: 59 50 45 20 64 65 63 72 79 70 74 5f 6d 65 63 68 YPE decrypt_mech
54c0: 61 6e 69 73 6d 3b 0a 09 43 4b 5f 56 4f 49 44 5f anism;..CK_VOID_
54d0: 50 54 52 20 64 65 63 72 79 70 74 5f 6d 65 63 68 PTR decrypt_mech
54e0: 5f 70 61 72 6d 3b 0a 09 43 4b 5f 55 4c 4f 4e 47 _parm;..CK_ULONG
54f0: 20 64 65 63 72 79 70 74 5f 6d 65 63 68 5f 70 61 decrypt_mech_pa
5500: 72 6d 6c 65 6e 3b 0a 09 73 74 72 75 63 74 20 63 rmlen;..struct c
5510: 61 63 6b 65 79 5f 69 64 65 6e 74 69 74 79 20 2a ackey_identity *
5520: 64 65 63 72 79 70 74 5f 69 64 65 6e 74 69 74 79 decrypt_identity
5530: 3b 0a 7d 3b 0a 0a 73 74 72 75 63 74 20 63 61 63 ;.};..struct cac
5540: 6b 65 79 5f 73 6c 6f 74 20 7b 0a 09 69 6e 74 20 key_slot {..int
5550: 61 63 74 69 76 65 3b 0a 09 69 6e 74 20 69 6e 74 active;..int int
5560: 65 72 6e 61 6c 3b 0a 0a 09 63 68 61 72 20 2a 70 ernal;...char *p
5570: 63 73 63 5f 72 65 61 64 65 72 3b 0a 0a 09 69 6e csc_reader;...in
5580: 74 20 70 63 73 63 5f 63 61 72 64 5f 63 6f 6e 6e t pcsc_card_conn
5590: 65 63 74 65 64 3b 0a 09 53 43 41 52 44 48 41 4e ected;..SCARDHAN
55a0: 44 4c 45 20 70 63 73 63 5f 63 61 72 64 3b 0a 0a DLE pcsc_card;..
55b0: 09 69 6e 74 20 74 72 61 6e 73 61 63 74 69 6f 6e .int transaction
55c0: 5f 64 65 70 74 68 3b 0a 09 69 6e 74 20 74 72 61 _depth;..int tra
55d0: 6e 73 61 63 74 69 6f 6e 5f 6e 65 65 64 5f 68 77 nsaction_need_hw
55e0: 5f 6c 6f 63 6b 3b 0a 0a 09 69 6e 74 20 73 6c 6f _lock;...int slo
55f0: 74 5f 72 65 73 65 74 3b 0a 0a 09 43 4b 5f 46 4c t_reset;...CK_FL
5600: 41 47 53 20 74 6f 6b 65 6e 5f 66 6c 61 67 73 3b AGS token_flags;
5610: 0a 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ...unsigned char
5620: 20 2a 6c 61 62 65 6c 3b 0a 0a 09 44 57 4f 52 44 *label;...DWORD
5630: 20 70 72 6f 74 6f 63 6f 6c 3b 0a 0a 09 75 6e 73 protocol;...uns
5640: 69 67 6e 65 64 20 69 6e 74 20 63 61 63 68 65 64 igned int cached
5650: 5f 63 65 72 74 73 5f 63 6f 75 6e 74 3b 0a 09 73 _certs_count;..s
5660: 74 72 75 63 74 20 63 61 63 6b 65 79 5f 70 63 73 truct cackey_pcs
5670: 63 5f 69 64 65 6e 74 69 74 79 20 2a 63 61 63 68 c_identity *cach
5680: 65 64 5f 63 65 72 74 73 3b 0a 0a 09 63 61 63 6b ed_certs;...cack
5690: 65 79 5f 70 63 73 63 5f 69 64 5f 74 79 70 65 20 ey_pcsc_id_type
56a0: 69 64 5f 74 79 70 65 5f 68 69 6e 74 3b 0a 7d 3b id_type_hint;.};
56b0: 0a 0a 74 79 70 65 64 65 66 20 65 6e 75 6d 20 7b ..typedef enum {
56c0: 0a 09 43 41 43 4b 45 59 5f 54 4c 56 5f 41 50 50 ..CACKEY_TLV_APP
56d0: 5f 47 45 4e 45 52 49 43 20 3d 20 30 78 30 31 2c _GENERIC = 0x01,
56e0: 0a 09 43 41 43 4b 45 59 5f 54 4c 56 5f 41 50 50 ..CACKEY_TLV_APP
56f0: 5f 53 4b 49 20 20 20 20 20 3d 20 30 78 30 32 2c _SKI = 0x02,
5700: 0a 09 43 41 43 4b 45 59 5f 54 4c 56 5f 41 50 50 ..CACKEY_TLV_APP
5710: 5f 50 4b 49 20 20 20 20 20 3d 20 30 78 30 34 0a _PKI = 0x04.
5720: 7d 20 63 61 63 6b 65 79 5f 74 6c 76 5f 61 70 70 } cackey_tlv_app
5730: 74 79 70 65 3b 0a 0a 74 79 70 65 64 65 66 20 65 type;..typedef e
5740: 6e 75 6d 20 7b 0a 09 43 41 43 4b 45 59 5f 54 4c num {..CACKEY_TL
5750: 56 5f 4f 42 4a 49 44 5f 47 45 4e 45 52 41 4c 49 V_OBJID_GENERALI
5760: 4e 46 4f 20 20 20 20 20 20 20 3d 20 30 78 32 30 NFO = 0x20
5770: 30 30 2c 0a 09 43 41 43 4b 45 59 5f 54 4c 56 5f 00,..CACKEY_TLV_
5780: 4f 42 4a 49 44 5f 50 52 4f 50 45 52 53 4f 4e 41 OBJID_PROPERSONA
5790: 4c 49 4e 46 4f 20 20 20 3d 20 30 78 32 31 30 30 LINFO = 0x2100
57a0: 2c 0a 09 43 41 43 4b 45 59 5f 54 4c 56 5f 4f 42 ,..CACKEY_TLV_OB
57b0: 4a 49 44 5f 41 43 43 45 53 53 43 4f 4e 54 52 4f JID_ACCESSCONTRO
57c0: 4c 20 20 20 20 20 3d 20 30 78 33 30 30 30 2c 0a L = 0x3000,.
57d0: 09 43 41 43 4b 45 59 5f 54 4c 56 5f 4f 42 4a 49 .CACKEY_TLV_OBJI
57e0: 44 5f 4c 4f 47 49 4e 20 20 20 20 20 20 20 20 20 D_LOGIN
57f0: 20 20 20 20 3d 20 30 78 34 30 30 30 2c 0a 09 43 = 0x4000,..C
5800: 41 43 4b 45 59 5f 54 4c 56 5f 4f 42 4a 49 44 5f ACKEY_TLV_OBJID_
5810: 43 41 52 44 49 4e 46 4f 20 20 20 20 20 20 20 20 CARDINFO
5820: 20 20 3d 20 30 78 35 30 30 30 2c 0a 09 43 41 43 = 0x5000,..CAC
5830: 4b 45 59 5f 54 4c 56 5f 4f 42 4a 49 44 5f 42 49 KEY_TLV_OBJID_BI
5840: 4f 4d 45 54 52 49 43 53 20 20 20 20 20 20 20 20 OMETRICS
5850: 3d 20 30 78 36 30 30 30 2c 0a 09 43 41 43 4b 45 = 0x6000,..CACKE
5860: 59 5f 54 4c 56 5f 4f 42 4a 49 44 5f 44 49 47 49 Y_TLV_OBJID_DIGI
5870: 54 41 4c 53 49 47 43 45 52 54 20 20 20 20 3d 20 TALSIGCERT =
5880: 30 78 37 30 30 30 2c 0a 09 43 41 43 4b 45 59 5f 0x7000,..CACKEY_
5890: 54 4c 56 5f 4f 42 4a 49 44 5f 43 41 43 5f 50 45 TLV_OBJID_CAC_PE
58a0: 52 53 4f 4e 20 20 20 20 20 20 20 20 3d 20 30 78 RSON = 0x
58b0: 30 32 30 30 2c 0a 09 43 41 43 4b 45 59 5f 54 4c 0200,..CACKEY_TL
58c0: 56 5f 4f 42 4a 49 44 5f 43 41 43 5f 42 45 4e 45 V_OBJID_CAC_BENE
58d0: 46 49 54 53 20 20 20 20 20 20 3d 20 30 78 30 32 FITS = 0x02
58e0: 30 32 2c 0a 09 43 41 43 4b 45 59 5f 54 4c 56 5f 02,..CACKEY_TLV_
58f0: 4f 42 4a 49 44 5f 43 41 43 5f 4f 54 48 45 52 42 OBJID_CAC_OTHERB
5900: 45 4e 45 46 49 54 53 20 3d 20 30 78 30 32 30 33 ENEFITS = 0x0203
5910: 2c 0a 09 43 41 43 4b 45 59 5f 54 4c 56 5f 4f 42 ,..CACKEY_TLV_OB
5920: 4a 49 44 5f 43 41 43 5f 50 45 52 53 4f 4e 4e 45 JID_CAC_PERSONNE
5930: 4c 20 20 20 20 20 3d 20 30 78 30 32 30 31 2c 0a L = 0x0201,.
5940: 09 43 41 43 4b 45 59 5f 54 4c 56 5f 4f 42 4a 49 .CACKEY_TLV_OBJI
5950: 44 5f 43 41 43 5f 50 4b 49 43 45 52 54 20 20 20 D_CAC_PKICERT
5960: 20 20 20 20 3d 20 30 78 30 32 46 45 0a 7d 20 63 = 0x02FE.} c
5970: 61 63 6b 65 79 5f 74 6c 76 5f 6f 62 6a 65 63 74 ackey_tlv_object
5980: 69 64 3b 0a 0a 74 79 70 65 64 65 66 20 65 6e 75 id;..typedef enu
5990: 6d 20 7b 0a 09 43 41 43 4b 45 59 5f 50 43 53 43 m {..CACKEY_PCSC
59a0: 5f 53 5f 54 4f 4b 45 4e 50 52 45 53 45 4e 54 20 _S_TOKENPRESENT
59b0: 20 20 20 3d 20 31 2c 0a 09 43 41 43 4b 45 59 5f = 1,..CACKEY_
59c0: 50 43 53 43 5f 53 5f 4f 4b 20 20 20 20 20 20 20 PCSC_S_OK
59d0: 20 20 20 20 20 20 20 3d 20 30 2c 0a 09 43 41 43 = 0,..CAC
59e0: 4b 45 59 5f 50 43 53 43 5f 45 5f 47 45 4e 45 52 KEY_PCSC_E_GENER
59f0: 49 43 20 20 20 20 20 20 20 20 20 3d 20 2d 31 2c IC = -1,
5a00: 0a 09 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f ..CACKEY_PCSC_E_
5a10: 42 41 44 50 49 4e 20 20 20 20 20 20 20 20 20 20 BADPIN
5a20: 3d 20 2d 32 2c 0a 09 43 41 43 4b 45 59 5f 50 43 = -2,..CACKEY_PC
5a30: 53 43 5f 45 5f 4c 4f 43 4b 45 44 20 20 20 20 20 SC_E_LOCKED
5a40: 20 20 20 20 20 3d 20 2d 33 2c 0a 09 43 41 43 4b = -3,..CACK
5a50: 45 59 5f 50 43 53 43 5f 45 5f 4e 45 45 44 4c 4f EY_PCSC_E_NEEDLO
5a60: 47 49 4e 20 20 20 20 20 20 20 3d 20 2d 34 2c 0a GIN = -4,.
5a70: 09 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 54 .CACKEY_PCSC_E_T
5a80: 4f 4b 45 4e 41 42 53 45 4e 54 20 20 20 20 20 3d OKENABSENT =
5a90: 20 2d 36 2c 0a 09 43 41 43 4b 45 59 5f 50 43 53 -6,..CACKEY_PCS
5aa0: 43 5f 45 5f 52 45 54 52 59 20 20 20 20 20 20 20 C_E_RETRY
5ab0: 20 20 20 20 3d 20 2d 37 2c 0a 09 43 41 43 4b 45 = -7,..CACKE
5ac0: 59 5f 50 43 53 43 5f 45 5f 4e 4f 44 41 54 41 20 Y_PCSC_E_NODATA
5ad0: 20 20 20 20 20 20 20 20 20 3d 20 2d 38 0a 7d 20 = -8.}
5ae0: 63 61 63 6b 65 79 5f 72 65 74 3b 0a 0a 73 74 72 cackey_ret;..str
5af0: 75 63 74 20 63 61 63 6b 65 79 5f 74 6c 76 5f 63 uct cackey_tlv_c
5b00: 61 72 64 75 72 6c 20 7b 0a 09 75 6e 73 69 67 6e ardurl {..unsign
5b10: 65 64 20 63 68 61 72 20 20 20 20 20 20 20 20 72 ed char r
5b20: 69 64 5b 35 5d 3b 0a 09 63 61 63 6b 65 79 5f 74 id[5];..cackey_t
5b30: 6c 76 5f 61 70 70 74 79 70 65 20 20 20 61 70 70 lv_apptype app
5b40: 74 79 70 65 3b 0a 09 63 61 63 6b 65 79 5f 74 6c type;..cackey_tl
5b50: 76 5f 6f 62 6a 65 63 74 69 64 20 20 6f 62 6a 65 v_objectid obje
5b60: 63 74 69 64 3b 0a 09 63 61 63 6b 65 79 5f 74 6c ctid;..cackey_tl
5b70: 76 5f 6f 62 6a 65 63 74 69 64 20 20 61 70 70 69 v_objectid appi
5b80: 64 3b 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 d;..unsigned cha
5b90: 72 20 20 20 20 20 20 20 20 70 69 6e 69 64 3b 0a r pinid;.
5ba0: 7d 3b 0a 0a 73 74 72 75 63 74 20 63 61 63 6b 65 };..struct cacke
5bb0: 79 5f 74 6c 76 5f 65 6e 74 69 74 79 3b 0a 73 74 y_tlv_entity;.st
5bc0: 72 75 63 74 20 63 61 63 6b 65 79 5f 74 6c 76 5f ruct cackey_tlv_
5bd0: 65 6e 74 69 74 79 20 7b 0a 09 75 69 6e 74 38 5f entity {..uint8_
5be0: 74 20 74 61 67 3b 0a 09 73 69 7a 65 5f 74 20 6c t tag;..size_t l
5bf0: 65 6e 67 74 68 3b 0a 0a 09 75 6e 69 6f 6e 20 7b ength;...union {
5c00: 0a 09 09 76 6f 69 64 20 2a 76 61 6c 75 65 3b 0a ...void *value;.
5c10: 09 09 73 74 72 75 63 74 20 63 61 63 6b 65 79 5f ..struct cackey_
5c20: 74 6c 76 5f 63 61 72 64 75 72 6c 20 2a 76 61 6c tlv_cardurl *val
5c30: 75 65 5f 63 61 72 64 75 72 6c 3b 0a 09 09 75 69 ue_cardurl;...ui
5c40: 6e 74 38 5f 74 20 76 61 6c 75 65 5f 62 79 74 65 nt8_t value_byte
5c50: 3b 0a 09 7d 3b 0a 0a 09 73 74 72 75 63 74 20 63 ;..};...struct c
5c60: 61 63 6b 65 79 5f 74 6c 76 5f 65 6e 74 69 74 79 ackey_tlv_entity
5c70: 20 2a 5f 6e 65 78 74 3b 0a 7d 3b 0a 0a 2f 2a 20 *_next;.};../*
5c80: 43 41 43 4b 45 59 20 47 6c 6f 62 61 6c 20 48 61 CACKEY Global Ha
5c90: 6e 64 6c 65 73 20 2a 2f 0a 73 74 61 74 69 63 20 ndles */.static
5ca0: 76 6f 69 64 20 2a 63 61 63 6b 65 79 5f 62 69 67 void *cackey_big
5cb0: 6c 6f 63 6b 20 3d 20 4e 55 4c 4c 3b 0a 73 74 61 lock = NULL;.sta
5cc0: 74 69 63 20 73 74 72 75 63 74 20 63 61 63 6b 65 tic struct cacke
5cd0: 79 5f 73 65 73 73 69 6f 6e 20 63 61 63 6b 65 79 y_session cackey
5ce0: 5f 73 65 73 73 69 6f 6e 73 5b 31 32 38 5d 3b 0a _sessions[128];.
5cf0: 73 74 61 74 69 63 20 73 74 72 75 63 74 20 63 61 static struct ca
5d00: 63 6b 65 79 5f 73 6c 6f 74 20 63 61 63 6b 65 79 ckey_slot cackey
5d10: 5f 73 6c 6f 74 73 5b 31 32 38 5d 3b 0a 73 74 61 _slots[128];.sta
5d20: 74 69 63 20 69 6e 74 20 63 61 63 6b 65 79 5f 69 tic int cackey_i
5d30: 6e 69 74 69 61 6c 69 7a 65 64 20 3d 20 30 3b 0a nitialized = 0;.
5d40: 73 74 61 74 69 63 20 69 6e 74 20 63 61 63 6b 65 static int cacke
5d50: 79 5f 62 69 67 6c 6f 63 6b 5f 69 6e 69 74 20 3d y_biglock_init =
5d60: 20 30 3b 0a 43 4b 5f 43 5f 49 4e 49 54 49 41 4c 0;.CK_C_INITIAL
5d70: 49 5a 45 5f 41 52 47 53 20 63 61 63 6b 65 79 5f IZE_ARGS cackey_
5d80: 61 72 67 73 3b 0a 0a 2f 2a 2a 20 45 78 74 72 61 args;../** Extra
5d90: 20 63 65 72 74 69 66 69 63 61 74 65 73 20 74 6f certificates to
5da0: 20 69 6e 63 6c 75 64 65 20 69 6e 20 74 6f 6b 65 include in toke
5db0: 6e 20 2a 2a 2f 0a 73 74 72 75 63 74 20 63 61 63 n **/.struct cac
5dc0: 6b 65 79 5f 70 63 73 63 5f 69 64 65 6e 74 69 74 key_pcsc_identit
5dd0: 79 20 65 78 74 72 61 5f 63 65 72 74 73 5b 5d 20 y extra_certs[]
5de0: 3d 20 7b 0a 23 69 6e 63 6c 75 64 65 20 22 63 61 = {.#include "ca
5df0: 63 6b 65 79 5f 62 75 69 6c 74 69 6e 5f 63 65 72 ckey_builtin_cer
5e00: 74 73 2e 68 22 0a 7d 3b 0a 0a 23 64 65 66 69 6e ts.h".};..#defin
5e10: 65 20 43 41 43 4b 45 59 5f 4d 41 43 52 4f 5f 44 e CACKEY_MACRO_D
5e20: 45 46 41 55 4c 54 5f 58 53 54 52 28 73 74 72 29 EFAULT_XSTR(str)
5e30: 20 43 41 43 4b 45 59 5f 4d 41 43 52 4f 5f 44 45 CACKEY_MACRO_DE
5e40: 46 41 55 4c 54 5f 53 54 52 28 73 74 72 29 0a 23 FAULT_STR(str).#
5e50: 64 65 66 69 6e 65 20 43 41 43 4b 45 59 5f 4d 41 define CACKEY_MA
5e60: 43 52 4f 5f 44 45 46 41 55 4c 54 5f 53 54 52 28 CRO_DEFAULT_STR(
5e70: 73 74 72 29 20 23 73 74 72 0a 0a 2f 2a 20 50 72 str) #str../* Pr
5e80: 6f 74 65 63 74 65 64 20 41 75 74 68 65 6e 74 69 otected Authenti
5e90: 63 61 74 69 6f 6e 20 50 61 74 68 20 63 6f 6d 6d cation Path comm
5ea0: 61 6e 64 20 2a 2f 0a 73 74 61 74 69 63 20 63 68 and */.static ch
5eb0: 61 72 20 2a 63 61 63 6b 65 79 5f 70 69 6e 5f 63 ar *cackey_pin_c
5ec0: 6f 6d 6d 61 6e 64 20 3d 20 4e 55 4c 4c 3b 0a 0a ommand = NULL;..
5ed0: 2f 2a 20 52 65 61 64 65 72 20 45 78 63 6c 75 73 /* Reader Exclus
5ee0: 69 6f 6e 20 6f 72 20 49 6e 63 6c 75 64 65 2d 6f ion or Include-o
5ef0: 6e 6c 79 20 2a 2f 0a 73 74 61 74 69 63 20 63 68 nly */.static ch
5f00: 61 72 20 2a 63 61 63 6b 65 79 5f 72 65 61 64 65 ar *cackey_reade
5f10: 72 73 5f 69 6e 63 6c 75 64 65 5f 6f 6e 6c 79 20 rs_include_only
5f20: 3d 20 4e 55 4c 4c 3b 0a 73 74 61 74 69 63 20 63 = NULL;.static c
5f30: 68 61 72 20 2a 63 61 63 6b 65 79 5f 72 65 61 64 har *cackey_read
5f40: 65 72 73 5f 65 78 63 6c 75 64 65 20 3d 20 4e 55 ers_exclude = NU
5f50: 4c 4c 3b 0a 0a 2f 2a 20 50 43 53 43 20 47 6c 6f LL;../* PCSC Glo
5f60: 62 61 6c 20 48 61 6e 64 6c 65 73 20 2a 2f 0a 73 bal Handles */.s
5f70: 74 61 74 69 63 20 4c 50 53 43 41 52 44 43 4f 4e tatic LPSCARDCON
5f80: 54 45 58 54 20 63 61 63 6b 65 79 5f 70 63 73 63 TEXT cackey_pcsc
5f90: 5f 68 61 6e 64 6c 65 20 3d 20 4e 55 4c 4c 3b 0a _handle = NULL;.
5fa0: 0a 73 74 61 74 69 63 20 75 6e 73 69 67 6e 65 64 .static unsigned
5fb0: 20 6c 6f 6e 67 20 63 61 63 6b 65 79 5f 67 65 74 long cackey_get
5fc0: 76 65 72 73 69 6f 6e 28 76 6f 69 64 29 20 7b 0a version(void) {.
5fd0: 09 73 74 61 74 69 63 20 75 6e 73 69 67 6e 65 64 .static unsigned
5fe0: 20 6c 6f 6e 67 20 72 65 74 76 61 6c 20 3d 20 32 long retval = 2
5ff0: 35 35 3b 0a 09 75 6e 73 69 67 6e 65 64 20 6c 6f 55;..unsigned lo
6000: 6e 67 20 6d 61 6a 6f 72 20 3d 20 30 3b 0a 09 75 ng major = 0;..u
6010: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6d 69 6e nsigned long min
6020: 6f 72 20 3d 20 30 3b 0a 09 63 68 61 72 20 2a 6d or = 0;..char *m
6030: 61 6a 6f 72 5f 73 74 72 20 3d 20 4e 55 4c 4c 3b ajor_str = NULL;
6040: 0a 09 63 68 61 72 20 2a 6d 69 6e 6f 72 5f 73 74 ..char *minor_st
6050: 72 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 43 41 43 4b r = NULL;...CACK
6060: 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
6070: 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 "Called.");...if
6080: 20 28 72 65 74 76 61 6c 20 21 3d 20 32 35 35 29 (retval != 255)
6090: 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
60a0: 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e G_PRINTF("Return
60b0: 69 6e 67 20 30 78 25 6c 78 20 28 63 61 63 68 65 ing 0x%lx (cache
60c0: 64 29 2e 22 2c 20 72 65 74 76 61 6c 29 3b 0a 0a d).", retval);..
60d0: 09 09 72 65 74 75 72 6e 28 72 65 74 76 61 6c 29 ..return(retval)
60e0: 3b 0a 09 7d 0a 0a 09 72 65 74 76 61 6c 20 3d 20 ;..}...retval =
60f0: 30 3b 0a 0a 23 69 66 64 65 66 20 50 41 43 4b 41 0;..#ifdef PACKA
6100: 47 45 5f 56 45 52 53 49 4f 4e 0a 20 20 20 20 20 GE_VERSION.
6110: 20 20 20 6d 61 6a 6f 72 5f 73 74 72 20 3d 20 50 major_str = P
6120: 41 43 4b 41 47 45 5f 56 45 52 53 49 4f 4e 3b 0a ACKAGE_VERSION;.
6130: 09 69 66 20 28 6d 61 6a 6f 72 5f 73 74 72 29 20 .if (major_str)
6140: 7b 0a 09 20 20 20 20 20 20 20 20 6d 61 6a 6f 72 {.. major
6150: 20 3d 20 73 74 72 74 6f 75 6c 28 6d 61 6a 6f 72 = strtoul(major
6160: 5f 73 74 72 2c 20 26 6d 69 6e 6f 72 5f 73 74 72 _str, &minor_str
6170: 2c 20 31 30 29 3b 0a 0a 09 09 69 66 20 28 6d 69 , 10);....if (mi
6180: 6e 6f 72 5f 73 74 72 29 20 7b 0a 09 09 09 6d 69 nor_str) {....mi
6190: 6e 6f 72 20 3d 20 73 74 72 74 6f 75 6c 28 6d 69 nor = strtoul(mi
61a0: 6e 6f 72 5f 73 74 72 20 2b 20 31 2c 20 4e 55 4c nor_str + 1, NUL
61b0: 4c 2c 20 31 30 29 3b 0a 09 09 7d 0a 09 7d 0a 0a L, 10);...}..}..
61c0: 09 72 65 74 76 61 6c 20 3d 20 28 6d 61 6a 6f 72 .retval = (major
61d0: 20 3c 3c 20 31 36 29 20 7c 20 28 6d 69 6e 6f 72 << 16) | (minor
61e0: 20 3c 3c 20 38 29 3b 0a 23 65 6e 64 69 66 0a 0a << 8);.#endif..
61f0: 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
6200: 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
6210: 30 78 25 6c 78 22 2c 20 72 65 74 76 61 6c 29 3b 0x%lx", retval);
6220: 0a 0a 09 72 65 74 75 72 6e 28 72 65 74 76 61 6c ...return(retval
6230: 29 3b 0a 7d 0a 0a 2f 2a 20 50 43 2f 53 43 20 52 );.}../* PC/SC R
6240: 65 6c 61 74 65 64 20 46 75 6e 63 74 69 6f 6e 73 elated Functions
6250: 20 2a 2f 0a 2f 2a 0a 20 2a 20 53 59 4e 50 4f 53 */./*. * SYNPOS
6260: 49 53 0a 20 2a 20 20 20 20 20 76 6f 69 64 20 63 IS. * void c
6270: 61 63 6b 65 79 5f 73 6c 6f 74 73 5f 64 69 73 63 ackey_slots_disc
6280: 6f 6e 6e 65 63 74 5f 61 6c 6c 28 69 6e 74 20 75 onnect_all(int u
6290: 6e 69 74 69 61 6c 69 7a 65 5f 61 6c 6c 5f 72 65 nitialize_all_re
62a0: 61 64 65 72 73 29 3b 0a 20 2a 0a 20 2a 20 41 52 aders);. *. * AR
62b0: 47 55 4d 45 4e 54 53 0a 20 2a 20 20 20 20 20 69 GUMENTS. * i
62c0: 6e 74 20 75 6e 69 74 69 61 6c 69 7a 65 5f 61 6c nt unitialize_al
62d0: 6c 5f 72 65 61 64 65 72 73 20 20 20 20 20 20 46 l_readers F
62e0: 72 65 65 20 74 68 65 20 22 70 63 73 63 5f 72 65 ree the "pcsc_re
62f0: 61 64 65 72 22 20 6f 62 6a 65 63 74 20 61 73 73 ader" object ass
6300: 6f 63 69 61 74 65 64 20 77 69 74 68 0a 20 2a 20 ociated with. *
6310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6320: 20 20 20 20 20 20 20 20 20 20 65 61 63 68 20 73 each s
6330: 6c 6f 74 20 28 62 6f 6f 6c 65 61 6e 29 0a 20 2a lot (boolean). *
6340: 0a 20 2a 20 52 45 54 55 52 4e 20 56 41 4c 55 45 . * RETURN VALUE
6350: 0a 20 2a 20 20 20 20 20 4e 6f 6e 65 0a 20 2a 0a . * None. *.
6360: 20 2a 20 4e 4f 54 45 53 0a 20 2a 20 20 20 20 20 * NOTES. *
6370: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 69 This function di
6380: 73 63 6f 6e 6e 65 63 74 73 20 66 72 6f 6d 20 61 sconnects from a
6390: 6c 6c 20 63 61 72 64 73 2e 0a 20 2a 0a 20 2a 2f ll cards.. *. */
63a0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 61 63 .static void cac
63b0: 6b 65 79 5f 73 6c 6f 74 73 5f 64 69 73 63 6f 6e key_slots_discon
63c0: 6e 65 63 74 5f 61 6c 6c 28 69 6e 74 20 75 6e 69 nect_all(int uni
63d0: 74 69 61 6c 69 7a 65 5f 61 6c 6c 5f 72 65 61 64 tialize_all_read
63e0: 65 72 73 29 20 7b 0a 09 75 69 6e 74 33 32 5f 74 ers) {..uint32_t
63f0: 20 69 64 78 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 idx;...CACKEY_D
6400: 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 6c EBUG_PRINTF("Cal
6410: 6c 65 64 2e 22 29 3b 0a 0a 09 66 6f 72 20 28 69 led.");...for (i
6420: 64 78 20 3d 20 30 3b 20 69 64 78 20 3c 20 28 73 dx = 0; idx < (s
6430: 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 6c 6f izeof(cackey_slo
6440: 74 73 29 20 2f 20 73 69 7a 65 6f 66 28 63 61 63 ts) / sizeof(cac
6450: 6b 65 79 5f 73 6c 6f 74 73 5b 30 5d 29 29 3b 20 key_slots[0]));
6460: 69 64 78 2b 2b 29 20 7b 0a 09 09 69 66 20 28 63 idx++) {...if (c
6470: 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 78 5d ackey_slots[idx]
6480: 2e 69 6e 74 65 72 6e 61 6c 29 20 7b 0a 09 09 09 .internal) {....
6490: 2f 2a 20 53 6b 69 70 20 69 6e 74 65 72 6e 61 6c /* Skip internal
64a0: 20 73 6c 6f 74 73 20 2a 2f 0a 09 09 09 63 6f 6e slots */....con
64b0: 74 69 6e 75 65 3b 0a 09 09 7d 0a 0a 09 09 69 66 tinue;...}....if
64c0: 20 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 69 (cackey_slots[i
64d0: 64 78 5d 2e 70 63 73 63 5f 63 61 72 64 5f 63 6f dx].pcsc_card_co
64e0: 6e 6e 65 63 74 65 64 29 20 7b 0a 09 09 09 43 41 nnected) {....CA
64f0: 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
6500: 46 28 22 53 43 61 72 64 44 69 73 63 6f 6e 6e 65 F("SCardDisconne
6510: 63 74 28 25 6c 75 29 20 63 61 6c 6c 65 64 22 2c ct(%lu) called",
6520: 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 (unsigned long)
6530: 20 69 64 78 29 3b 0a 0a 09 09 09 53 43 61 72 64 idx);.....SCard
6540: 44 69 73 63 6f 6e 6e 65 63 74 28 63 61 63 6b 65 Disconnect(cacke
6550: 79 5f 73 6c 6f 74 73 5b 69 64 78 5d 2e 70 63 73 y_slots[idx].pcs
6560: 63 5f 63 61 72 64 2c 20 53 43 41 52 44 5f 4c 45 c_card, SCARD_LE
6570: 41 56 45 5f 43 41 52 44 29 3b 0a 09 09 7d 0a 0a AVE_CARD);...}..
6580: 09 09 69 66 20 28 63 61 63 6b 65 79 5f 73 6c 6f ..if (cackey_slo
6590: 74 73 5b 69 64 78 5d 2e 6c 61 62 65 6c 29 20 7b ts[idx].label) {
65a0: 0a 09 09 09 66 72 65 65 28 63 61 63 6b 65 79 5f ....free(cackey_
65b0: 73 6c 6f 74 73 5b 69 64 78 5d 2e 6c 61 62 65 6c slots[idx].label
65c0: 29 3b 0a 0a 09 09 09 63 61 63 6b 65 79 5f 73 6c );.....cackey_sl
65d0: 6f 74 73 5b 69 64 78 5d 2e 6c 61 62 65 6c 20 3d ots[idx].label =
65e0: 20 4e 55 4c 4c 3b 0a 09 09 7d 0a 0a 09 09 69 66 NULL;...}....if
65f0: 20 28 75 6e 69 74 69 61 6c 69 7a 65 5f 61 6c 6c (unitialize_all
6600: 5f 72 65 61 64 65 72 73 20 7c 7c 20 21 63 61 63 _readers || !cac
6610: 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 78 5d 2e 61 key_slots[idx].a
6620: 63 74 69 76 65 29 20 7b 0a 09 09 09 69 66 20 28 ctive) {....if (
6630: 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 78 cackey_slots[idx
6640: 5d 2e 70 63 73 63 5f 72 65 61 64 65 72 29 20 7b ].pcsc_reader) {
6650: 0a 09 09 09 09 66 72 65 65 28 63 61 63 6b 65 79 .....free(cackey
6660: 5f 73 6c 6f 74 73 5b 69 64 78 5d 2e 70 63 73 63 _slots[idx].pcsc
6670: 5f 72 65 61 64 65 72 29 3b 0a 0a 09 09 09 09 63 _reader);......c
6680: 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 78 5d ackey_slots[idx]
6690: 2e 70 63 73 63 5f 72 65 61 64 65 72 20 3d 20 4e .pcsc_reader = N
66a0: 55 4c 4c 3b 0a 09 09 09 7d 0a 0a 09 09 09 63 61 ULL;....}.....ca
66b0: 63 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 78 5d 2e ckey_slots[idx].
66c0: 74 72 61 6e 73 61 63 74 69 6f 6e 5f 6e 65 65 64 transaction_need
66d0: 5f 68 77 5f 6c 6f 63 6b 20 3d 20 30 3b 0a 09 09 _hw_lock = 0;...
66e0: 09 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 .cackey_slots[id
66f0: 78 5d 2e 74 72 61 6e 73 61 63 74 69 6f 6e 5f 64 x].transaction_d
6700: 65 70 74 68 20 3d 20 30 3b 0a 09 09 09 63 61 63 epth = 0;....cac
6710: 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 78 5d 2e 69 key_slots[idx].i
6720: 64 5f 74 79 70 65 5f 68 69 6e 74 20 3d 20 43 41 d_type_hint = CA
6730: 43 4b 45 59 5f 49 44 5f 54 59 50 45 5f 55 4e 4b CKEY_ID_TYPE_UNK
6740: 4e 4f 57 4e 3b 0a 09 09 7d 20 65 6c 73 65 20 7b NOWN;...} else {
6750: 0a 09 09 09 69 66 20 28 63 61 63 6b 65 79 5f 73 ....if (cackey_s
6760: 6c 6f 74 73 5b 69 64 78 5d 2e 74 72 61 6e 73 61 lots[idx].transa
6770: 63 74 69 6f 6e 5f 64 65 70 74 68 20 3e 20 30 29 ction_depth > 0)
6780: 20 7b 0a 09 09 09 09 63 61 63 6b 65 79 5f 73 6c {.....cackey_sl
6790: 6f 74 73 5b 69 64 78 5d 2e 74 72 61 6e 73 61 63 ots[idx].transac
67a0: 74 69 6f 6e 5f 6e 65 65 64 5f 68 77 5f 6c 6f 63 tion_need_hw_loc
67b0: 6b 20 3d 20 31 3b 0a 09 09 09 7d 0a 09 09 7d 0a k = 1;....}...}.
67c0: 0a 09 09 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b ...cackey_slots[
67d0: 69 64 78 5d 2e 70 63 73 63 5f 63 61 72 64 5f 63 idx].pcsc_card_c
67e0: 6f 6e 6e 65 63 74 65 64 20 3d 20 30 3b 0a 0a 09 onnected = 0;...
67f0: 09 69 66 20 28 63 61 63 6b 65 79 5f 73 6c 6f 74 .if (cackey_slot
6800: 73 5b 69 64 78 5d 2e 61 63 74 69 76 65 29 20 7b s[idx].active) {
6810: 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
6820: 5f 50 52 49 4e 54 46 28 22 4d 61 72 6b 69 6e 67 _PRINTF("Marking
6830: 20 61 63 74 69 76 65 20 73 6c 6f 74 20 25 6c 75 active slot %lu
6840: 20 61 73 20 62 65 69 6e 67 20 72 65 73 65 74 22 as being reset"
6850: 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 , (unsigned long
6860: 29 20 69 64 78 29 3b 0a 0a 09 09 09 63 61 63 6b ) idx);.....cack
6870: 65 79 5f 73 6c 6f 74 73 5b 69 64 78 5d 2e 73 6c ey_slots[idx].sl
6880: 6f 74 5f 72 65 73 65 74 20 3d 20 31 3b 0a 09 09 ot_reset = 1;...
6890: 7d 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 }..}...CACKEY_DE
68a0: 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 BUG_PRINTF("Retu
68b0: 72 6e 69 6e 67 22 29 3b 0a 0a 09 72 65 74 75 72 rning");...retur
68c0: 6e 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 59 4e 50 n;.}../*. * SYNP
68d0: 4f 53 49 53 0a 20 2a 20 20 20 20 20 63 61 63 6b OSIS. * cack
68e0: 65 79 5f 72 65 74 20 63 61 63 6b 65 79 5f 70 63 ey_ret cackey_pc
68f0: 73 63 5f 63 6f 6e 6e 65 63 74 28 76 6f 69 64 29 sc_connect(void)
6900: 3b 0a 20 2a 0a 20 2a 20 41 52 47 55 4d 45 4e 54 ;. *. * ARGUMENT
6910: 53 0a 20 2a 20 20 20 20 20 4e 6f 6e 65 0a 20 2a S. * None. *
6920: 0a 20 2a 20 52 45 54 55 52 4e 20 56 41 4c 55 45 . * RETURN VALUE
6930: 0a 20 2a 20 20 20 20 20 43 41 43 4b 45 59 5f 50 . * CACKEY_P
6940: 43 53 43 5f 53 5f 4f 4b 20 20 20 20 20 20 20 20 CSC_S_OK
6950: 20 4f 6e 20 73 75 63 63 65 73 73 0a 20 2a 20 20 On success. *
6960: 20 20 20 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 CACKEY_PCSC_E
6970: 5f 47 45 4e 45 52 49 43 20 20 20 20 4f 6e 20 65 _GENERIC On e
6980: 72 72 6f 72 0a 20 2a 0a 20 2a 20 4e 4f 54 45 53 rror. *. * NOTES
6990: 0a 20 2a 20 20 20 20 20 54 68 69 73 20 66 75 6e . * This fun
69a0: 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 73 20 74 ction connects t
69b0: 6f 20 74 68 65 20 50 43 2f 53 43 20 43 6f 6e 6e o the PC/SC Conn
69c0: 65 63 74 69 6f 6e 20 4d 61 6e 61 67 65 72 20 61 ection Manager a
69d0: 6e 64 20 75 70 64 61 74 65 73 20 74 68 65 0a 20 nd updates the.
69e0: 2a 20 20 20 20 20 67 6c 6f 62 61 6c 20 68 61 6e * global han
69f0: 64 6c 65 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 dle.. *. */.stat
6a00: 69 63 20 63 61 63 6b 65 79 5f 72 65 74 20 63 61 ic cackey_ret ca
6a10: 63 6b 65 79 5f 70 63 73 63 5f 63 6f 6e 6e 65 63 ckey_pcsc_connec
6a20: 74 28 76 6f 69 64 29 20 7b 0a 09 4c 4f 4e 47 20 t(void) {..LONG
6a30: 73 63 61 72 64 5f 65 73 74 5f 63 6f 6e 74 65 78 scard_est_contex
6a40: 74 5f 72 65 74 3b 0a 23 69 66 64 65 66 20 48 41 t_ret;.#ifdef HA
6a50: 56 45 5f 53 43 41 52 44 49 53 56 41 4c 49 44 43 VE_SCARDISVALIDC
6a60: 4f 4e 54 45 58 54 0a 09 4c 4f 4e 47 20 73 63 61 ONTEXT..LONG sca
6a70: 72 64 5f 69 73 76 61 6c 69 64 5f 72 65 74 3b 0a rd_isvalid_ret;.
6a80: 23 65 6e 64 69 66 0a 0a 09 43 41 43 4b 45 59 5f #endif...CACKEY_
6a90: 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 DEBUG_PRINTF("Ca
6aa0: 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 28 63 lled.");...if (c
6ab0: 61 63 6b 65 79 5f 70 63 73 63 5f 68 61 6e 64 6c ackey_pcsc_handl
6ac0: 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 63 e == NULL) {...c
6ad0: 61 63 6b 65 79 5f 70 63 73 63 5f 68 61 6e 64 6c ackey_pcsc_handl
6ae0: 65 20 3d 20 6d 61 6c 6c 6f 63 28 73 69 7a 65 6f e = malloc(sizeo
6af0: 66 28 2a 63 61 63 6b 65 79 5f 70 63 73 63 5f 68 f(*cackey_pcsc_h
6b00: 61 6e 64 6c 65 29 29 3b 0a 09 09 69 66 20 28 63 andle));...if (c
6b10: 61 63 6b 65 79 5f 70 63 73 63 5f 68 61 6e 64 6c ackey_pcsc_handl
6b20: 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 e == NULL) {....
6b30: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
6b40: 4e 54 46 28 22 43 61 6c 6c 20 74 6f 20 6d 61 6c NTF("Call to mal
6b50: 6c 6f 63 28 29 20 66 61 69 6c 65 64 2c 20 72 65 loc() failed, re
6b60: 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 turning in failu
6b70: 72 65 22 29 3b 0a 0a 09 09 09 63 61 63 6b 65 79 re");.....cackey
6b80: 5f 73 6c 6f 74 73 5f 64 69 73 63 6f 6e 6e 65 63 _slots_disconnec
6b90: 74 5f 61 6c 6c 28 30 29 3b 0a 0a 09 09 09 72 65 t_all(0);.....re
6ba0: 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 turn(CACKEY_PCSC
6bb0: 5f 45 5f 47 45 4e 45 52 49 43 29 3b 0a 09 09 7d _E_GENERIC);...}
6bc0: 0a 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
6bd0: 5f 50 52 49 4e 54 46 28 22 53 43 61 72 64 45 73 _PRINTF("SCardEs
6be0: 74 61 62 6c 69 73 68 43 6f 6e 74 65 78 74 28 29 tablishContext()
6bf0: 20 63 61 6c 6c 65 64 22 29 3b 0a 09 09 73 63 61 called");...sca
6c00: 72 64 5f 65 73 74 5f 63 6f 6e 74 65 78 74 5f 72 rd_est_context_r
6c10: 65 74 20 3d 20 53 43 61 72 64 45 73 74 61 62 6c et = SCardEstabl
6c20: 69 73 68 43 6f 6e 74 65 78 74 28 53 43 41 52 44 ishContext(SCARD
6c30: 5f 53 43 4f 50 45 5f 53 59 53 54 45 4d 2c 20 4e _SCOPE_SYSTEM, N
6c40: 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 63 61 63 6b 65 ULL, NULL, cacke
6c50: 79 5f 70 63 73 63 5f 68 61 6e 64 6c 65 29 3b 0a y_pcsc_handle);.
6c60: 09 09 69 66 20 28 73 63 61 72 64 5f 65 73 74 5f ..if (scard_est_
6c70: 63 6f 6e 74 65 78 74 5f 72 65 74 20 21 3d 20 53 context_ret != S
6c80: 43 41 52 44 5f 53 5f 53 55 43 43 45 53 53 29 20 CARD_S_SUCCESS)
6c90: 7b 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {....CACKEY_DEBU
6ca0: 47 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c 20 74 G_PRINTF("Call t
6cb0: 6f 20 53 43 61 72 64 45 73 74 61 62 6c 69 73 68 o SCardEstablish
6cc0: 43 6f 6e 74 65 78 74 20 66 61 69 6c 65 64 20 28 Context failed (
6cd0: 72 65 74 75 72 6e 65 64 20 25 73 2f 25 6c 69 29 returned %s/%li)
6ce0: 2c 20 72 65 74 75 72 6e 69 6e 67 20 69 6e 20 66 , returning in f
6cf0: 61 69 6c 75 72 65 22 2c 20 43 41 43 4b 45 59 5f ailure", CACKEY_
6d00: 44 45 42 55 47 5f 46 55 4e 43 5f 53 43 41 52 44 DEBUG_FUNC_SCARD
6d10: 45 52 52 5f 54 4f 5f 53 54 52 28 73 63 61 72 64 ERR_TO_STR(scard
6d20: 5f 65 73 74 5f 63 6f 6e 74 65 78 74 5f 72 65 74 _est_context_ret
6d30: 29 2c 20 28 6c 6f 6e 67 29 20 73 63 61 72 64 5f ), (long) scard_
6d40: 65 73 74 5f 63 6f 6e 74 65 78 74 5f 72 65 74 29 est_context_ret)
6d50: 3b 0a 0a 09 09 09 66 72 65 65 28 63 61 63 6b 65 ;.....free(cacke
6d60: 79 5f 70 63 73 63 5f 68 61 6e 64 6c 65 29 3b 0a y_pcsc_handle);.
6d70: 09 09 09 63 61 63 6b 65 79 5f 70 63 73 63 5f 68 ...cackey_pcsc_h
6d80: 61 6e 64 6c 65 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 andle = NULL;...
6d90: 09 09 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5f 64 ..cackey_slots_d
6da0: 69 73 63 6f 6e 6e 65 63 74 5f 61 6c 6c 28 30 29 isconnect_all(0)
6db0: 3b 0a 0a 09 09 09 72 65 74 75 72 6e 28 43 41 43 ;.....return(CAC
6dc0: 4b 45 59 5f 50 43 53 43 5f 45 5f 47 45 4e 45 52 KEY_PCSC_E_GENER
6dd0: 49 43 29 3b 0a 09 09 7d 0a 09 7d 0a 0a 23 69 66 IC);...}..}..#if
6de0: 64 65 66 20 48 41 56 45 5f 53 43 41 52 44 49 53 def HAVE_SCARDIS
6df0: 56 41 4c 49 44 43 4f 4e 54 45 58 54 0a 09 43 41 VALIDCONTEXT..CA
6e00: 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
6e10: 46 28 22 53 43 61 72 64 49 73 56 61 6c 69 64 43 F("SCardIsValidC
6e20: 6f 6e 74 65 78 74 28 29 20 63 61 6c 6c 65 64 22 ontext() called"
6e30: 29 3b 0a 09 73 63 61 72 64 5f 69 73 76 61 6c 69 );..scard_isvali
6e40: 64 5f 72 65 74 20 3d 20 53 43 61 72 64 49 73 56 d_ret = SCardIsV
6e50: 61 6c 69 64 43 6f 6e 74 65 78 74 28 2a 63 61 63 alidContext(*cac
6e60: 6b 65 79 5f 70 63 73 63 5f 68 61 6e 64 6c 65 29 key_pcsc_handle)
6e70: 3b 0a 09 69 66 20 28 73 63 61 72 64 5f 69 73 76 ;..if (scard_isv
6e80: 61 6c 69 64 5f 72 65 74 20 21 3d 20 53 43 41 52 alid_ret != SCAR
6e90: 44 5f 53 5f 53 55 43 43 45 53 53 29 20 7b 0a 09 D_S_SUCCESS) {..
6ea0: 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
6eb0: 49 4e 54 46 28 22 48 61 6e 64 6c 65 20 68 61 73 INTF("Handle has
6ec0: 20 62 65 63 6f 6d 65 20 69 6e 76 61 6c 69 64 20 become invalid
6ed0: 28 53 43 61 72 64 49 73 56 61 6c 69 64 43 6f 6e (SCardIsValidCon
6ee0: 74 65 78 74 20 3d 20 25 73 2f 25 6c 69 29 2c 20 text = %s/%li),
6ef0: 74 72 79 69 6e 67 20 74 6f 20 72 65 2d 65 73 74 trying to re-est
6f00: 61 62 6c 69 73 68 2e 2e 2e 22 2c 20 43 41 43 4b ablish...", CACK
6f10: 45 59 5f 44 45 42 55 47 5f 46 55 4e 43 5f 53 43 EY_DEBUG_FUNC_SC
6f20: 41 52 44 45 52 52 5f 54 4f 5f 53 54 52 28 73 63 ARDERR_TO_STR(sc
6f30: 61 72 64 5f 69 73 76 61 6c 69 64 5f 72 65 74 29 ard_isvalid_ret)
6f40: 2c 20 28 6c 6f 6e 67 29 20 73 63 61 72 64 5f 69 , (long) scard_i
6f50: 73 76 61 6c 69 64 5f 72 65 74 29 3b 0a 0a 09 09 svalid_ret);....
6f60: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
6f70: 4e 54 46 28 22 53 43 61 72 64 45 73 74 61 62 6c NTF("SCardEstabl
6f80: 69 73 68 43 6f 6e 74 65 78 74 28 29 20 63 61 6c ishContext() cal
6f90: 6c 65 64 22 29 3b 0a 09 09 73 63 61 72 64 5f 65 led");...scard_e
6fa0: 73 74 5f 63 6f 6e 74 65 78 74 5f 72 65 74 20 3d st_context_ret =
6fb0: 20 53 43 61 72 64 45 73 74 61 62 6c 69 73 68 43 SCardEstablishC
6fc0: 6f 6e 74 65 78 74 28 53 43 41 52 44 5f 53 43 4f ontext(SCARD_SCO
6fd0: 50 45 5f 53 59 53 54 45 4d 2c 20 4e 55 4c 4c 2c PE_SYSTEM, NULL,
6fe0: 20 4e 55 4c 4c 2c 20 63 61 63 6b 65 79 5f 70 63 NULL, cackey_pc
6ff0: 73 63 5f 68 61 6e 64 6c 65 29 3b 0a 09 09 69 66 sc_handle);...if
7000: 20 28 73 63 61 72 64 5f 65 73 74 5f 63 6f 6e 74 (scard_est_cont
7010: 65 78 74 5f 72 65 74 20 21 3d 20 53 43 41 52 44 ext_ret != SCARD
7020: 5f 53 5f 53 55 43 43 45 53 53 29 20 7b 0a 09 09 _S_SUCCESS) {...
7030: 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
7040: 49 4e 54 46 28 22 43 61 6c 6c 20 74 6f 20 53 43 INTF("Call to SC
7050: 61 72 64 45 73 74 61 62 6c 69 73 68 43 6f 6e 74 ardEstablishCont
7060: 65 78 74 20 66 61 69 6c 65 64 20 28 72 65 74 75 ext failed (retu
7070: 72 6e 65 64 20 25 73 2f 25 6c 69 29 2c 20 72 65 rned %s/%li), re
7080: 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 turning in failu
7090: 72 65 22 2c 20 43 41 43 4b 45 59 5f 44 45 42 55 re", CACKEY_DEBU
70a0: 47 5f 46 55 4e 43 5f 53 43 41 52 44 45 52 52 5f G_FUNC_SCARDERR_
70b0: 54 4f 5f 53 54 52 28 73 63 61 72 64 5f 65 73 74 TO_STR(scard_est
70c0: 5f 63 6f 6e 74 65 78 74 5f 72 65 74 29 2c 20 28 _context_ret), (
70d0: 6c 6f 6e 67 29 20 73 63 61 72 64 5f 65 73 74 5f long) scard_est_
70e0: 63 6f 6e 74 65 78 74 5f 72 65 74 29 3b 0a 0a 09 context_ret);...
70f0: 09 09 66 72 65 65 28 63 61 63 6b 65 79 5f 70 63 ..free(cackey_pc
7100: 73 63 5f 68 61 6e 64 6c 65 29 3b 0a 09 09 09 63 sc_handle);....c
7110: 61 63 6b 65 79 5f 70 63 73 63 5f 68 61 6e 64 6c ackey_pcsc_handl
7120: 65 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 09 09 63 61 e = NULL;.....ca
7130: 63 6b 65 79 5f 73 6c 6f 74 73 5f 64 69 73 63 6f ckey_slots_disco
7140: 6e 6e 65 63 74 5f 61 6c 6c 28 30 29 3b 0a 0a 09 nnect_all(0);...
7150: 09 09 72 65 74 75 72 6e 28 43 41 43 4b 45 59 5f ..return(CACKEY_
7160: 50 43 53 43 5f 45 5f 47 45 4e 45 52 49 43 29 3b PCSC_E_GENERIC);
7170: 0a 09 09 7d 0a 0a 09 09 43 41 43 4b 45 59 5f 44 ...}....CACKEY_D
7180: 45 42 55 47 5f 50 52 49 4e 54 46 28 22 48 61 6e EBUG_PRINTF("Han
7190: 64 6c 65 20 68 61 73 20 62 65 65 6e 20 72 65 2d dle has been re-
71a0: 65 73 74 61 62 6c 69 73 68 65 64 22 29 3b 0a 09 established");..
71b0: 7d 0a 23 65 6e 64 69 66 0a 0a 09 43 41 43 4b 45 }.#endif...CACKE
71c0: 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
71d0: 53 75 63 65 73 73 66 75 6c 6c 79 20 63 6f 6e 6e Sucessfully conn
71e0: 65 63 74 65 64 20 74 6f 20 50 43 2f 53 43 2c 20 ected to PC/SC,
71f0: 72 65 74 75 72 6e 69 6e 67 20 69 6e 20 73 75 63 returning in suc
7200: 63 65 73 73 22 29 3b 0a 0a 09 72 65 74 75 72 6e cess");...return
7210: 28 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f 4f (CACKEY_PCSC_S_O
7220: 4b 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 59 4e K);.}../*. * SYN
7230: 50 4f 53 49 53 0a 20 2a 20 20 20 20 20 63 61 63 POSIS. * cac
7240: 6b 65 79 5f 72 65 74 20 63 61 63 6b 65 79 5f 70 key_ret cackey_p
7250: 63 73 63 5f 64 69 73 63 6f 6e 6e 65 63 74 28 76 csc_disconnect(v
7260: 6f 69 64 29 3b 0a 20 2a 0a 20 2a 20 41 52 47 55 oid);. *. * ARGU
7270: 4d 45 4e 54 53 0a 20 2a 20 20 20 20 20 4e 6f 6e MENTS. * Non
7280: 65 0a 20 2a 0a 20 2a 20 52 45 54 55 52 4e 20 56 e. *. * RETURN V
7290: 41 4c 55 45 0a 20 2a 20 20 20 20 20 43 41 43 4b ALUE. * CACK
72a0: 45 59 5f 50 43 53 43 5f 53 5f 4f 4b 20 20 20 20 EY_PCSC_S_OK
72b0: 20 20 20 20 20 4f 6e 20 73 75 63 63 65 73 73 0a On success.
72c0: 20 2a 20 20 20 20 20 43 41 43 4b 45 59 5f 50 43 * CACKEY_PC
72d0: 53 43 5f 45 5f 47 45 4e 45 52 49 43 20 20 20 20 SC_E_GENERIC
72e0: 4f 6e 20 65 72 72 6f 72 0a 20 2a 0a 20 2a 20 4e On error. *. * N
72f0: 4f 54 45 53 0a 20 2a 20 20 20 20 20 54 68 69 73 OTES. * This
7300: 20 66 75 6e 63 74 69 6f 6e 20 64 69 73 63 6f 6e function discon
7310: 6e 65 63 74 73 20 66 72 6f 6d 20 74 68 65 20 50 nects from the P
7320: 43 2f 53 43 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 C/SC Connection
7330: 6d 61 6e 61 67 65 72 20 61 6e 64 20 75 70 64 61 manager and upda
7340: 74 65 73 0a 20 2a 20 20 20 20 20 74 68 65 20 67 tes. * the g
7350: 6c 6f 62 61 6c 20 68 61 6e 64 6c 65 2e 0a 20 2a lobal handle.. *
7360: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63 61 63 6b . */.static cack
7370: 65 79 5f 72 65 74 20 63 61 63 6b 65 79 5f 70 63 ey_ret cackey_pc
7380: 73 63 5f 64 69 73 63 6f 6e 6e 65 63 74 28 76 6f sc_disconnect(vo
7390: 69 64 29 20 7b 0a 09 4c 4f 4e 47 20 73 63 61 72 id) {..LONG scar
73a0: 64 5f 72 65 6c 5f 63 6f 6e 74 65 78 74 5f 72 65 d_rel_context_re
73b0: 74 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 t;...CACKEY_DEBU
73c0: 47 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 G_PRINTF("Called
73d0: 2e 22 29 3b 0a 0a 09 69 66 20 28 63 61 63 6b 65 .");...if (cacke
73e0: 79 5f 70 63 73 63 5f 68 61 6e 64 6c 65 20 3d 3d y_pcsc_handle ==
73f0: 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 NULL) {...retur
7400: 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f n(CACKEY_PCSC_S_
7410: 4f 4b 29 3b 0a 09 7d 0a 0a 09 73 63 61 72 64 5f OK);..}...scard_
7420: 72 65 6c 5f 63 6f 6e 74 65 78 74 5f 72 65 74 20 rel_context_ret
7430: 3d 20 53 43 61 72 64 52 65 6c 65 61 73 65 43 6f = SCardReleaseCo
7440: 6e 74 65 78 74 28 2a 63 61 63 6b 65 79 5f 70 63 ntext(*cackey_pc
7450: 73 63 5f 68 61 6e 64 6c 65 29 3b 0a 0a 09 69 66 sc_handle);...if
7460: 20 28 63 61 63 6b 65 79 5f 70 63 73 63 5f 68 61 (cackey_pcsc_ha
7470: 6e 64 6c 65 29 20 7b 0a 09 09 66 72 65 65 28 63 ndle) {...free(c
7480: 61 63 6b 65 79 5f 70 63 73 63 5f 68 61 6e 64 6c ackey_pcsc_handl
7490: 65 29 3b 0a 09 0a 09 09 63 61 63 6b 65 79 5f 70 e);.....cackey_p
74a0: 63 73 63 5f 68 61 6e 64 6c 65 20 3d 20 4e 55 4c csc_handle = NUL
74b0: 4c 3b 0a 09 7d 0a 0a 09 69 66 20 28 73 63 61 72 L;..}...if (scar
74c0: 64 5f 72 65 6c 5f 63 6f 6e 74 65 78 74 5f 72 65 d_rel_context_re
74d0: 74 20 21 3d 20 53 43 41 52 44 5f 53 5f 53 55 43 t != SCARD_S_SUC
74e0: 43 45 53 53 29 20 7b 0a 09 09 72 65 74 75 72 6e CESS) {...return
74f0: 28 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 47 (CACKEY_PCSC_E_G
7500: 45 4e 45 52 49 43 29 3b 0a 09 7d 0a 0a 09 63 61 ENERIC);..}...ca
7510: 63 6b 65 79 5f 73 6c 6f 74 73 5f 64 69 73 63 6f ckey_slots_disco
7520: 6e 6e 65 63 74 5f 61 6c 6c 28 30 29 3b 0a 0a 09 nnect_all(0);...
7530: 72 65 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 return(CACKEY_PC
7540: 53 43 5f 53 5f 4f 4b 29 3b 0a 7d 0a 0a 2f 2a 0a SC_S_OK);.}../*.
7550: 20 2a 20 53 59 4e 50 4f 53 49 53 0a 20 2a 20 20 * SYNPOSIS. *
7560: 20 20 20 76 6f 69 64 20 63 61 63 6b 65 79 5f 6d void cackey_m
7570: 61 72 6b 5f 73 6c 6f 74 5f 72 65 73 65 74 28 73 ark_slot_reset(s
7580: 74 72 75 63 74 20 63 61 63 6b 65 79 5f 73 6c 6f truct cackey_slo
7590: 74 20 2a 73 6c 6f 74 29 3b 0a 20 2a 0a 20 2a 20 t *slot);. *. *
75a0: 41 52 47 55 4d 45 4e 54 53 0a 20 2a 20 20 20 20 ARGUMENTS. *
75b0: 20 4e 6f 6e 65 0a 20 2a 0a 20 2a 20 52 45 54 55 None. *. * RETU
75c0: 52 4e 20 56 41 4c 55 45 0a 20 2a 20 20 20 20 20 RN VALUE. *
75d0: 4e 6f 6e 65 0a 20 2a 0a 20 2a 20 4e 4f 54 45 53 None. *. * NOTES
75e0: 0a 20 2a 20 20 20 20 20 54 68 69 73 20 66 75 6e . * This fun
75f0: 63 74 69 6f 6e 20 6d 61 72 6b 73 20 61 20 73 6c ction marks a sl
7600: 6f 74 20 68 61 73 20 68 61 76 69 6e 67 20 62 65 ot has having be
7610: 65 6e 20 72 65 73 65 74 2c 20 74 6f 20 6c 61 74 en reset, to lat
7620: 65 72 20 62 65 20 63 6c 65 61 6e 65 64 20 75 70 er be cleaned up
7630: 2e 0a 20 2a 20 20 20 20 20 43 6c 65 61 6e 75 70 .. * Cleanup
7640: 20 6f 6e 6c 79 20 68 61 70 70 65 6e 73 20 77 68 only happens wh
7650: 65 6e 20 61 20 50 4b 43 53 23 31 31 20 63 6c 69 en a PKCS#11 cli
7660: 65 6e 74 20 63 61 6c 6c 73 20 43 5f 46 69 6e 64 ent calls C_Find
7670: 4f 62 6a 65 63 74 73 49 6e 69 74 2e 0a 20 2a 0a ObjectsInit.. *.
7680: 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 */.static void
7690: 63 61 63 6b 65 79 5f 6d 61 72 6b 5f 73 6c 6f 74 cackey_mark_slot
76a0: 5f 72 65 73 65 74 28 73 74 72 75 63 74 20 63 61 _reset(struct ca
76b0: 63 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c 6f 74 29 ckey_slot *slot)
76c0: 20 7b 0a 09 73 74 72 75 63 74 20 63 61 63 6b 65 {..struct cacke
76d0: 79 5f 70 63 73 63 5f 69 64 65 6e 74 69 74 79 20 y_pcsc_identity
76e0: 2a 70 63 73 63 5f 69 64 65 6e 74 69 74 69 65 73 *pcsc_identities
76f0: 3b 0a 09 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 ;..unsigned long
7700: 20 6e 75 6d 5f 63 65 72 74 73 3b 0a 0a 09 69 66 num_certs;...if
7710: 20 28 73 6c 6f 74 20 3d 3d 20 4e 55 4c 4c 29 20 (slot == NULL)
7720: 7b 0a 09 09 72 65 74 75 72 6e 3b 0a 09 7d 0a 0a {...return;..}..
7730: 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
7740: 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b INTF("Called.");
7750: 0a 0a 09 69 66 20 28 73 6c 6f 74 2d 3e 70 63 73 ...if (slot->pcs
7760: 63 5f 63 61 72 64 5f 63 6f 6e 6e 65 63 74 65 64 c_card_connected
7770: 29 20 7b 0a 09 09 53 43 61 72 64 44 69 73 63 6f ) {...SCardDisco
7780: 6e 6e 65 63 74 28 73 6c 6f 74 2d 3e 70 63 73 63 nnect(slot->pcsc
7790: 5f 63 61 72 64 2c 20 53 43 41 52 44 5f 4c 45 41 _card, SCARD_LEA
77a0: 56 45 5f 43 41 52 44 29 3b 0a 09 7d 0a 0a 09 73 VE_CARD);..}...s
77b0: 6c 6f 74 2d 3e 73 6c 6f 74 5f 72 65 73 65 74 20 lot->slot_reset
77c0: 3d 20 31 3b 0a 09 73 6c 6f 74 2d 3e 70 63 73 63 = 1;..slot->pcsc
77d0: 5f 63 61 72 64 5f 63 6f 6e 6e 65 63 74 65 64 20 _card_connected
77e0: 3d 20 30 3b 0a 09 69 66 20 28 63 61 63 6b 65 79 = 0;..if (cackey
77f0: 5f 70 69 6e 5f 63 6f 6d 6d 61 6e 64 20 3d 3d 20 _pin_command ==
7800: 4e 55 4c 4c 29 20 7b 0a 09 09 73 6c 6f 74 2d 3e NULL) {...slot->
7810: 74 6f 6b 65 6e 5f 66 6c 61 67 73 20 3d 20 43 4b token_flags = CK
7820: 46 5f 4c 4f 47 49 4e 5f 52 45 51 55 49 52 45 44 F_LOGIN_REQUIRED
7830: 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 73 6c ;..} else {...sl
7840: 6f 74 2d 3e 74 6f 6b 65 6e 5f 66 6c 61 67 73 20 ot->token_flags
7850: 3d 20 30 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e = 0;..}...return
7860: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 59 4e 50 4f ;.}../*. * SYNPO
7870: 53 49 53 0a 20 2a 20 20 20 20 20 4c 4f 4e 47 20 SIS. * LONG
7880: 63 61 63 6b 65 79 5f 72 65 63 6f 6e 6e 65 63 74 cackey_reconnect
7890: 5f 63 61 72 64 28 73 74 72 75 63 74 20 63 61 63 _card(struct cac
78a0: 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c 6f 74 2c 20 key_slot *slot,
78b0: 44 57 4f 52 44 20 64 65 66 61 75 6c 74 5f 70 72 DWORD default_pr
78c0: 6f 74 6f 63 6f 6c 29 3b 0a 20 2a 0a 20 2a 20 41 otocol);. *. * A
78d0: 52 47 55 4d 45 4e 54 53 0a 20 2a 20 20 20 20 20 RGUMENTS. *
78e0: 63 61 63 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c 6f cackey_slot *slo
78f0: 74 0a 20 2a 20 20 20 20 20 20 20 20 20 53 6c 6f t. * Slo
7900: 74 20 74 6f 20 73 65 6e 64 20 63 6f 6d 6d 61 6e t to send comman
7910: 64 73 20 74 6f 0a 20 2a 0a 20 2a 20 20 20 20 20 ds to. *. *
7920: 44 57 4f 52 44 20 64 65 66 61 75 6c 74 5f 70 72 DWORD default_pr
7930: 6f 74 6f 63 6f 6c 0a 20 2a 20 20 20 20 20 20 20 otocol. *
7940: 20 20 50 72 6f 74 6f 63 6f 6c 20 74 6f 20 61 74 Protocol to at
7950: 74 65 6d 70 74 20 66 69 72 73 74 0a 20 2a 0a 20 tempt first. *.
7960: 2a 20 52 45 54 55 52 4e 20 56 41 4c 55 45 0a 20 * RETURN VALUE.
7970: 2a 20 20 20 20 20 54 68 65 20 72 65 74 75 72 6e * The return
7980: 20 76 61 6c 75 65 20 66 72 6f 6d 20 53 43 61 72 value from SCar
7990: 64 52 65 63 6f 6e 6e 65 63 74 28 29 0a 20 2a 0a dReconnect(). *.
79a0: 20 2a 20 4e 4f 54 45 53 0a 20 2a 20 20 20 20 20 * NOTES. *
79b0: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 This function is
79c0: 20 61 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e a wrapper aroun
79d0: 64 20 53 43 61 72 64 52 65 63 6f 6e 6e 65 63 74 d SCardReconnect
79e0: 28 29 0a 20 2a 0a 20 2a 20 20 20 20 20 54 68 65 (). *. * The
79f0: 20 53 43 61 72 64 52 65 63 6f 6e 6e 65 63 74 28 SCardReconnect(
7a00: 29 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 20 ) function call
7a10: 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 66 will be called f
7a20: 69 72 73 74 20 77 69 74 68 20 74 68 65 0a 20 2a irst with the. *
7a30: 20 20 20 20 20 64 77 50 72 65 66 65 72 72 65 64 dwPreferred
7a40: 50 72 6f 74 6f 63 6f 6c 73 20 6f 66 20 22 64 65 Protocols of "de
7a50: 66 61 75 6c 74 5f 70 72 6f 74 6f 63 6f 6c 22 2e fault_protocol".
7a60: 20 20 49 66 20 74 68 61 74 20 63 61 6c 6c 20 72 If that call r
7a70: 65 74 75 72 6e 73 0a 20 2a 20 20 20 20 20 53 43 eturns. * SC
7a80: 41 52 44 5f 45 5f 50 52 4f 54 4f 5f 4d 49 53 4d ARD_E_PROTO_MISM
7a90: 41 54 43 48 20 74 72 79 20 61 67 61 69 6e 20 77 ATCH try again w
7aa0: 69 74 68 20 61 20 70 72 6f 74 6f 63 6f 6c 20 6f ith a protocol o
7ab0: 66 20 54 3d 30 2c 20 61 6e 64 20 66 61 69 6c 69 f T=0, and faili
7ac0: 6e 67 0a 20 2a 20 20 20 20 20 74 68 61 74 20 54 ng. * that T
7ad0: 3d 31 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 =1.. *. */.stati
7ae0: 63 20 4c 4f 4e 47 20 63 61 63 6b 65 79 5f 72 65 c LONG cackey_re
7af0: 63 6f 6e 6e 65 63 74 5f 63 61 72 64 28 73 74 72 connect_card(str
7b00: 75 63 74 20 63 61 63 6b 65 79 5f 73 6c 6f 74 20 uct cackey_slot
7b10: 2a 73 6c 6f 74 2c 20 44 57 4f 52 44 20 64 65 66 *slot, DWORD def
7b20: 61 75 6c 74 5f 70 72 6f 74 6f 63 6f 6c 29 20 7b ault_protocol) {
7b30: 0a 09 44 57 4f 52 44 20 73 65 6c 65 63 74 65 64 ..DWORD selected
7b40: 5f 70 72 6f 74 6f 63 6f 6c 3b 0a 09 4c 4f 4e 47 _protocol;..LONG
7b50: 20 73 63 61 72 64 5f 63 6f 6e 6e 5f 72 65 74 3b scard_conn_ret;
7b60: 0a 0a 09 73 65 6c 65 63 74 65 64 5f 70 72 6f 74 ...selected_prot
7b70: 6f 63 6f 6c 20 3d 20 30 3b 0a 0a 09 73 63 61 72 ocol = 0;...scar
7b80: 64 5f 63 6f 6e 6e 5f 72 65 74 20 3d 20 53 43 61 d_conn_ret = SCa
7b90: 72 64 52 65 63 6f 6e 6e 65 63 74 28 73 6c 6f 74 rdReconnect(slot
7ba0: 2d 3e 70 63 73 63 5f 63 61 72 64 2c 20 53 43 41 ->pcsc_card, SCA
7bb0: 52 44 5f 53 48 41 52 45 5f 53 48 41 52 45 44 2c RD_SHARE_SHARED,
7bc0: 20 64 65 66 61 75 6c 74 5f 70 72 6f 74 6f 63 6f default_protoco
7bd0: 6c 2c 20 53 43 41 52 44 5f 52 45 53 45 54 5f 43 l, SCARD_RESET_C
7be0: 41 52 44 2c 20 26 73 65 6c 65 63 74 65 64 5f 70 ARD, &selected_p
7bf0: 72 6f 74 6f 63 6f 6c 29 3b 0a 0a 09 69 66 20 28 rotocol);...if (
7c00: 73 63 61 72 64 5f 63 6f 6e 6e 5f 72 65 74 20 3d scard_conn_ret =
7c10: 3d 20 53 43 41 52 44 5f 45 5f 50 52 4f 54 4f 5f = SCARD_E_PROTO_
7c20: 4d 49 53 4d 41 54 43 48 29 20 7b 0a 09 09 43 41 MISMATCH) {...CA
7c30: 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
7c40: 46 28 22 53 43 61 72 64 52 65 63 6f 6e 6e 65 63 F("SCardReconnec
7c50: 74 28 29 20 72 65 74 75 72 6e 65 64 20 53 43 41 t() returned SCA
7c60: 52 44 5f 45 5f 50 52 4f 54 4f 5f 4d 49 53 4d 41 RD_E_PROTO_MISMA
7c70: 54 43 48 2c 20 74 72 79 69 6e 67 20 77 69 74 68 TCH, trying with
7c80: 20 6a 75 73 74 20 54 3d 30 22 29 0a 09 09 73 63 just T=0")...sc
7c90: 61 72 64 5f 63 6f 6e 6e 5f 72 65 74 20 3d 20 53 ard_conn_ret = S
7ca0: 43 61 72 64 52 65 63 6f 6e 6e 65 63 74 28 73 6c CardReconnect(sl
7cb0: 6f 74 2d 3e 70 63 73 63 5f 63 61 72 64 2c 20 53 ot->pcsc_card, S
7cc0: 43 41 52 44 5f 53 48 41 52 45 5f 53 48 41 52 45 CARD_SHARE_SHARE
7cd0: 44 2c 20 53 43 41 52 44 5f 50 52 4f 54 4f 43 4f D, SCARD_PROTOCO
7ce0: 4c 5f 54 30 2c 20 53 43 41 52 44 5f 52 45 53 45 L_T0, SCARD_RESE
7cf0: 54 5f 43 41 52 44 2c 20 26 73 65 6c 65 63 74 65 T_CARD, &selecte
7d00: 64 5f 70 72 6f 74 6f 63 6f 6c 29 3b 0a 0a 09 09 d_protocol);....
7d10: 69 66 20 28 73 63 61 72 64 5f 63 6f 6e 6e 5f 72 if (scard_conn_r
7d20: 65 74 20 3d 3d 20 53 43 41 52 44 5f 45 5f 50 52 et == SCARD_E_PR
7d30: 4f 54 4f 5f 4d 49 53 4d 41 54 43 48 29 20 7b 0a OTO_MISMATCH) {.
7d40: 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
7d50: 50 52 49 4e 54 46 28 22 53 43 61 72 64 52 65 63 PRINTF("SCardRec
7d60: 6f 6e 6e 65 63 74 28 29 20 72 65 74 75 72 6e 65 onnect() returne
7d70: 64 20 53 43 41 52 44 5f 45 5f 50 52 4f 54 4f 5f d SCARD_E_PROTO_
7d80: 4d 49 53 4d 41 54 43 48 2c 20 74 72 79 69 6e 67 MISMATCH, trying
7d90: 20 77 69 74 68 20 6a 75 73 74 20 54 3d 31 22 29 with just T=1")
7da0: 0a 09 09 09 73 63 61 72 64 5f 63 6f 6e 6e 5f 72 ....scard_conn_r
7db0: 65 74 20 3d 20 53 43 61 72 64 52 65 63 6f 6e 6e et = SCardReconn
7dc0: 65 63 74 28 73 6c 6f 74 2d 3e 70 63 73 63 5f 63 ect(slot->pcsc_c
7dd0: 61 72 64 2c 20 53 43 41 52 44 5f 53 48 41 52 45 ard, SCARD_SHARE
7de0: 5f 53 48 41 52 45 44 2c 20 53 43 41 52 44 5f 50 _SHARED, SCARD_P
7df0: 52 4f 54 4f 43 4f 4c 5f 54 31 2c 20 53 43 41 52 ROTOCOL_T1, SCAR
7e00: 44 5f 52 45 53 45 54 5f 43 41 52 44 2c 20 26 73 D_RESET_CARD, &s
7e10: 65 6c 65 63 74 65 64 5f 70 72 6f 74 6f 63 6f 6c elected_protocol
7e20: 29 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 69 66 20 28 );...}..}...if (
7e30: 73 63 61 72 64 5f 63 6f 6e 6e 5f 72 65 74 20 3d scard_conn_ret =
7e40: 3d 20 53 43 41 52 44 5f 53 5f 53 55 43 43 45 53 = SCARD_S_SUCCES
7e50: 53 29 20 7b 0a 09 09 73 6c 6f 74 2d 3e 70 72 6f S) {...slot->pro
7e60: 74 6f 63 6f 6c 20 3d 20 73 65 6c 65 63 74 65 64 tocol = selected
7e70: 5f 70 72 6f 74 6f 63 6f 6c 3b 0a 09 7d 0a 0a 09 _protocol;..}...
7e80: 72 65 74 75 72 6e 28 73 63 61 72 64 5f 63 6f 6e return(scard_con
7e90: 6e 5f 72 65 74 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a n_ret);.}../*. *
7ea0: 20 53 59 4e 50 4f 53 49 53 0a 20 2a 20 20 20 20 SYNPOSIS. *
7eb0: 20 63 61 63 6b 65 79 5f 72 65 74 20 63 61 63 6b cackey_ret cack
7ec0: 65 79 5f 63 6f 6e 6e 65 63 74 5f 63 61 72 64 28 ey_connect_card(
7ed0: 73 74 72 75 63 74 20 63 61 63 6b 65 79 5f 73 6c struct cackey_sl
7ee0: 6f 74 20 2a 73 6c 6f 74 29 3b 0a 20 2a 0a 20 2a ot *slot);. *. *
7ef0: 20 41 52 47 55 4d 45 4e 54 53 0a 20 2a 20 20 20 ARGUMENTS. *
7f00: 20 20 63 61 63 6b 65 79 5f 73 6c 6f 74 20 2a 73 cackey_slot *s
7f10: 6c 6f 74 0a 20 2a 20 20 20 20 20 20 20 20 20 53 lot. * S
7f20: 6c 6f 74 20 74 6f 20 73 65 6e 64 20 63 6f 6d 6d lot to send comm
7f30: 61 6e 64 73 20 74 6f 0a 20 2a 0a 20 2a 20 52 45 ands to. *. * RE
7f40: 54 55 52 4e 20 56 41 4c 55 45 0a 20 2a 20 20 20 TURN VALUE. *
7f50: 20 20 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f CACKEY_PCSC_S_
7f60: 4f 4b 20 20 20 20 20 20 20 20 20 4f 6e 20 73 75 OK On su
7f70: 63 63 65 73 73 0a 20 2a 20 20 20 20 20 43 41 43 ccess. * CAC
7f80: 4b 45 59 5f 50 43 53 43 5f 45 5f 47 45 4e 45 52 KEY_PCSC_E_GENER
7f90: 49 43 20 20 20 20 4f 6e 20 65 72 72 6f 72 0a 20 IC On error.
7fa0: 2a 0a 20 2a 20 4e 4f 54 45 53 0a 20 2a 20 20 20 *. * NOTES. *
7fb0: 20 20 4e 6f 6e 65 0a 20 2a 0a 20 2a 2f 0a 73 74 None. *. */.st
7fc0: 61 74 69 63 20 63 61 63 6b 65 79 5f 72 65 74 20 atic cackey_ret
7fd0: 63 61 63 6b 65 79 5f 63 6f 6e 6e 65 63 74 5f 63 cackey_connect_c
7fe0: 61 72 64 28 73 74 72 75 63 74 20 63 61 63 6b 65 ard(struct cacke
7ff0: 79 5f 73 6c 6f 74 20 2a 73 6c 6f 74 29 20 7b 0a y_slot *slot) {.
8000: 09 63 61 63 6b 65 79 5f 72 65 74 20 70 63 73 63 .cackey_ret pcsc
8010: 5f 63 6f 6e 6e 65 63 74 5f 72 65 74 3b 0a 09 44 _connect_ret;..D
8020: 57 4f 52 44 20 70 72 6f 74 6f 63 6f 6c 3b 0a 09 WORD protocol;..
8030: 4c 4f 4e 47 20 73 63 61 72 64 5f 63 6f 6e 6e 5f LONG scard_conn_
8040: 72 65 74 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 45 ret;...CACKEY_DE
8050: 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c BUG_PRINTF("Call
8060: 65 64 2e 22 29 3b 0a 0a 09 69 66 20 28 21 73 6c ed.");...if (!sl
8070: 6f 74 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ot) {...CACKEY_D
8080: 45 42 55 47 5f 50 52 49 4e 54 46 28 22 49 6e 76 EBUG_PRINTF("Inv
8090: 61 6c 69 64 20 73 6c 6f 74 20 73 70 65 63 69 66 alid slot specif
80a0: 69 65 64 2c 20 72 65 74 75 72 6e 69 6e 67 20 69 ied, returning i
80b0: 6e 20 66 61 69 6c 75 72 65 22 29 3b 0a 0a 09 09 n failure");....
80c0: 72 65 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 return(CACKEY_PC
80d0: 53 43 5f 45 5f 47 45 4e 45 52 49 43 29 3b 0a 09 SC_E_GENERIC);..
80e0: 7d 0a 0a 09 70 63 73 63 5f 63 6f 6e 6e 65 63 74 }...pcsc_connect
80f0: 5f 72 65 74 20 3d 20 63 61 63 6b 65 79 5f 70 63 _ret = cackey_pc
8100: 73 63 5f 63 6f 6e 6e 65 63 74 28 29 3b 0a 09 69 sc_connect();..i
8110: 66 20 28 70 63 73 63 5f 63 6f 6e 6e 65 63 74 5f f (pcsc_connect_
8120: 72 65 74 20 21 3d 20 43 41 43 4b 45 59 5f 50 43 ret != CACKEY_PC
8130: 53 43 5f 53 5f 4f 4b 29 20 7b 0a 09 09 43 41 43 SC_S_OK) {...CAC
8140: 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
8150: 28 22 43 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 ("Connection to
8160: 50 43 2f 53 43 20 66 61 69 6c 65 64 2c 20 72 65 PC/SC failed, re
8170: 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 turning in failu
8180: 72 65 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 re");....return(
8190: 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 47 45 CACKEY_PCSC_E_GE
81a0: 4e 45 52 49 43 29 3b 0a 09 7d 0a 0a 09 2f 2a 20 NERIC);..}.../*
81b0: 43 6f 6e 6e 65 63 74 20 74 6f 20 72 65 61 64 65 Connect to reade
81c0: 72 2c 20 69 66 20 6e 65 65 64 65 64 20 2a 2f 0a r, if needed */.
81d0: 09 69 66 20 28 21 73 6c 6f 74 2d 3e 70 63 73 63 .if (!slot->pcsc
81e0: 5f 63 61 72 64 5f 63 6f 6e 6e 65 63 74 65 64 29 _card_connected)
81f0: 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
8200: 47 5f 50 52 49 4e 54 46 28 22 53 43 61 72 64 43 G_PRINTF("SCardC
8210: 6f 6e 6e 65 63 74 28 25 73 29 20 63 61 6c 6c 65 onnect(%s) calle
8220: 64 20 66 6f 72 20 73 6c 6f 74 20 25 70 22 2c 20 d for slot %p",
8230: 73 6c 6f 74 2d 3e 70 63 73 63 5f 72 65 61 64 65 slot->pcsc_reade
8240: 72 2c 20 73 6c 6f 74 29 3b 0a 09 09 73 63 61 72 r, slot);...scar
8250: 64 5f 63 6f 6e 6e 5f 72 65 74 20 3d 20 53 43 61 d_conn_ret = SCa
8260: 72 64 43 6f 6e 6e 65 63 74 28 2a 63 61 63 6b 65 rdConnect(*cacke
8270: 79 5f 70 63 73 63 5f 68 61 6e 64 6c 65 2c 20 73 y_pcsc_handle, s
8280: 6c 6f 74 2d 3e 70 63 73 63 5f 72 65 61 64 65 72 lot->pcsc_reader
8290: 2c 20 53 43 41 52 44 5f 53 48 41 52 45 5f 53 48 , SCARD_SHARE_SH
82a0: 41 52 45 44 2c 20 53 43 41 52 44 5f 50 52 4f 54 ARED, SCARD_PROT
82b0: 4f 43 4f 4c 5f 54 30 20 7c 20 53 43 41 52 44 5f OCOL_T0 | SCARD_
82c0: 50 52 4f 54 4f 43 4f 4c 5f 54 31 2c 20 26 73 6c PROTOCOL_T1, &sl
82d0: 6f 74 2d 3e 70 63 73 63 5f 63 61 72 64 2c 20 26 ot->pcsc_card, &
82e0: 70 72 6f 74 6f 63 6f 6c 29 3b 0a 0a 09 09 69 66 protocol);....if
82f0: 20 28 73 63 61 72 64 5f 63 6f 6e 6e 5f 72 65 74 (scard_conn_ret
8300: 20 3d 3d 20 53 43 41 52 44 5f 45 5f 50 52 4f 54 == SCARD_E_PROT
8310: 4f 5f 4d 49 53 4d 41 54 43 48 29 20 7b 0a 09 09 O_MISMATCH) {...
8320: 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
8330: 49 4e 54 46 28 22 53 43 61 72 64 43 6f 6e 6e 65 INTF("SCardConne
8340: 63 74 28 29 20 72 65 74 75 72 6e 65 64 20 53 43 ct() returned SC
8350: 41 52 44 5f 45 5f 50 52 4f 54 4f 5f 4d 49 53 4d ARD_E_PROTO_MISM
8360: 41 54 43 48 2c 20 74 72 79 69 6e 67 20 77 69 74 ATCH, trying wit
8370: 68 20 6a 75 73 74 20 54 3d 30 22 29 0a 09 09 09 h just T=0")....
8380: 73 63 61 72 64 5f 63 6f 6e 6e 5f 72 65 74 20 3d scard_conn_ret =
8390: 20 53 43 61 72 64 43 6f 6e 6e 65 63 74 28 2a 63 SCardConnect(*c
83a0: 61 63 6b 65 79 5f 70 63 73 63 5f 68 61 6e 64 6c ackey_pcsc_handl
83b0: 65 2c 20 73 6c 6f 74 2d 3e 70 63 73 63 5f 72 65 e, slot->pcsc_re
83c0: 61 64 65 72 2c 20 53 43 41 52 44 5f 53 48 41 52 ader, SCARD_SHAR
83d0: 45 5f 53 48 41 52 45 44 2c 20 53 43 41 52 44 5f E_SHARED, SCARD_
83e0: 50 52 4f 54 4f 43 4f 4c 5f 54 30 2c 20 26 73 6c PROTOCOL_T0, &sl
83f0: 6f 74 2d 3e 70 63 73 63 5f 63 61 72 64 2c 20 26 ot->pcsc_card, &
8400: 70 72 6f 74 6f 63 6f 6c 29 3b 0a 0a 09 09 09 69 protocol);.....i
8410: 66 20 28 73 63 61 72 64 5f 63 6f 6e 6e 5f 72 65 f (scard_conn_re
8420: 74 20 3d 3d 20 53 43 41 52 44 5f 45 5f 50 52 4f t == SCARD_E_PRO
8430: 54 4f 5f 4d 49 53 4d 41 54 43 48 29 20 7b 0a 09 TO_MISMATCH) {..
8440: 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
8450: 50 52 49 4e 54 46 28 22 53 43 61 72 64 43 6f 6e PRINTF("SCardCon
8460: 6e 65 63 74 28 29 20 72 65 74 75 72 6e 65 64 20 nect() returned
8470: 53 43 41 52 44 5f 45 5f 50 52 4f 54 4f 5f 4d 49 SCARD_E_PROTO_MI
8480: 53 4d 41 54 43 48 2c 20 74 72 79 69 6e 67 20 77 SMATCH, trying w
8490: 69 74 68 20 6a 75 73 74 20 54 3d 31 22 29 0a 09 ith just T=1")..
84a0: 09 09 09 73 63 61 72 64 5f 63 6f 6e 6e 5f 72 65 ...scard_conn_re
84b0: 74 20 3d 20 53 43 61 72 64 43 6f 6e 6e 65 63 74 t = SCardConnect
84c0: 28 2a 63 61 63 6b 65 79 5f 70 63 73 63 5f 68 61 (*cackey_pcsc_ha
84d0: 6e 64 6c 65 2c 20 73 6c 6f 74 2d 3e 70 63 73 63 ndle, slot->pcsc
84e0: 5f 72 65 61 64 65 72 2c 20 53 43 41 52 44 5f 53 _reader, SCARD_S
84f0: 48 41 52 45 5f 53 48 41 52 45 44 2c 20 53 43 41 HARE_SHARED, SCA
8500: 52 44 5f 50 52 4f 54 4f 43 4f 4c 5f 54 31 2c 20 RD_PROTOCOL_T1,
8510: 26 73 6c 6f 74 2d 3e 70 63 73 63 5f 63 61 72 64 &slot->pcsc_card
8520: 2c 20 26 70 72 6f 74 6f 63 6f 6c 29 3b 0a 09 09 , &protocol);...
8530: 09 7d 0a 09 09 7d 0a 0a 09 09 69 66 20 28 73 63 .}...}....if (sc
8540: 61 72 64 5f 63 6f 6e 6e 5f 72 65 74 20 3d 3d 20 ard_conn_ret ==
8550: 53 43 41 52 44 5f 57 5f 55 4e 50 4f 57 45 52 45 SCARD_W_UNPOWERE
8560: 44 5f 43 41 52 44 29 20 7b 0a 09 09 09 43 41 43 D_CARD) {....CAC
8570: 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
8580: 28 22 53 43 61 72 64 43 6f 6e 6e 65 63 74 28 29 ("SCardConnect()
8590: 20 72 65 74 75 72 6e 65 64 20 53 43 41 52 44 5f returned SCARD_
85a0: 57 5f 55 4e 50 4f 57 45 52 45 44 5f 43 41 52 44 W_UNPOWERED_CARD
85b0: 2c 20 74 72 79 69 6e 67 20 74 6f 20 72 65 2d 63 , trying to re-c
85c0: 6f 6e 6e 65 63 74 2e 2e 2e 22 29 3b 0a 0a 09 09 onnect...");....
85d0: 09 73 63 61 72 64 5f 63 6f 6e 6e 5f 72 65 74 20 .scard_conn_ret
85e0: 3d 20 53 43 61 72 64 43 6f 6e 6e 65 63 74 28 2a = SCardConnect(*
85f0: 63 61 63 6b 65 79 5f 70 63 73 63 5f 68 61 6e 64 cackey_pcsc_hand
8600: 6c 65 2c 20 73 6c 6f 74 2d 3e 70 63 73 63 5f 72 le, slot->pcsc_r
8610: 65 61 64 65 72 2c 20 53 43 41 52 44 5f 53 48 41 eader, SCARD_SHA
8620: 52 45 5f 44 49 52 45 43 54 2c 20 53 43 41 52 44 RE_DIRECT, SCARD
8630: 5f 50 52 4f 54 4f 43 4f 4c 5f 54 30 20 7c 20 53 _PROTOCOL_T0 | S
8640: 43 41 52 44 5f 50 52 4f 54 4f 43 4f 4c 5f 54 31 CARD_PROTOCOL_T1
8650: 2c 20 26 73 6c 6f 74 2d 3e 70 63 73 63 5f 63 61 , &slot->pcsc_ca
8660: 72 64 2c 20 26 70 72 6f 74 6f 63 6f 6c 29 3b 0a rd, &protocol);.
8670: 0a 09 09 09 69 66 20 28 73 63 61 72 64 5f 63 6f ....if (scard_co
8680: 6e 6e 5f 72 65 74 20 3d 3d 20 53 43 41 52 44 5f nn_ret == SCARD_
8690: 45 5f 50 52 4f 54 4f 5f 4d 49 53 4d 41 54 43 48 E_PROTO_MISMATCH
86a0: 29 20 7b 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 ) {.....CACKEY_D
86b0: 45 42 55 47 5f 50 52 49 4e 54 46 28 22 53 43 61 EBUG_PRINTF("SCa
86c0: 72 64 43 6f 6e 6e 65 63 74 28 29 20 72 65 74 75 rdConnect() retu
86d0: 72 6e 65 64 20 53 43 41 52 44 5f 45 5f 50 52 4f rned SCARD_E_PRO
86e0: 54 4f 5f 4d 49 53 4d 41 54 43 48 2c 20 74 72 79 TO_MISMATCH, try
86f0: 69 6e 67 20 77 69 74 68 20 6a 75 73 74 20 54 3d ing with just T=
8700: 30 22 29 0a 09 09 09 09 73 63 61 72 64 5f 63 6f 0").....scard_co
8710: 6e 6e 5f 72 65 74 20 3d 20 53 43 61 72 64 43 6f nn_ret = SCardCo
8720: 6e 6e 65 63 74 28 2a 63 61 63 6b 65 79 5f 70 63 nnect(*cackey_pc
8730: 73 63 5f 68 61 6e 64 6c 65 2c 20 73 6c 6f 74 2d sc_handle, slot-
8740: 3e 70 63 73 63 5f 72 65 61 64 65 72 2c 20 53 43 >pcsc_reader, SC
8750: 41 52 44 5f 53 48 41 52 45 5f 53 48 41 52 45 44 ARD_SHARE_SHARED
8760: 2c 20 53 43 41 52 44 5f 50 52 4f 54 4f 43 4f 4c , SCARD_PROTOCOL
8770: 5f 54 30 2c 20 26 73 6c 6f 74 2d 3e 70 63 73 63 _T0, &slot->pcsc
8780: 5f 63 61 72 64 2c 20 26 70 72 6f 74 6f 63 6f 6c _card, &protocol
8790: 29 3b 0a 0a 09 09 09 09 69 66 20 28 73 63 61 72 );......if (scar
87a0: 64 5f 63 6f 6e 6e 5f 72 65 74 20 3d 3d 20 53 43 d_conn_ret == SC
87b0: 41 52 44 5f 45 5f 50 52 4f 54 4f 5f 4d 49 53 4d ARD_E_PROTO_MISM
87c0: 41 54 43 48 29 20 7b 0a 09 09 09 09 09 43 41 43 ATCH) {......CAC
87d0: 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
87e0: 28 22 53 43 61 72 64 43 6f 6e 6e 65 63 74 28 29 ("SCardConnect()
87f0: 20 72 65 74 75 72 6e 65 64 20 53 43 41 52 44 5f returned SCARD_
8800: 45 5f 50 52 4f 54 4f 5f 4d 49 53 4d 41 54 43 48 E_PROTO_MISMATCH
8810: 2c 20 74 72 79 69 6e 67 20 77 69 74 68 20 6a 75 , trying with ju
8820: 73 74 20 54 3d 31 22 29 0a 09 09 09 09 09 73 63 st T=1")......sc
8830: 61 72 64 5f 63 6f 6e 6e 5f 72 65 74 20 3d 20 53 ard_conn_ret = S
8840: 43 61 72 64 43 6f 6e 6e 65 63 74 28 2a 63 61 63 CardConnect(*cac
8850: 6b 65 79 5f 70 63 73 63 5f 68 61 6e 64 6c 65 2c key_pcsc_handle,
8860: 20 73 6c 6f 74 2d 3e 70 63 73 63 5f 72 65 61 64 slot->pcsc_read
8870: 65 72 2c 20 53 43 41 52 44 5f 53 48 41 52 45 5f er, SCARD_SHARE_
8880: 53 48 41 52 45 44 2c 20 53 43 41 52 44 5f 50 52 SHARED, SCARD_PR
8890: 4f 54 4f 43 4f 4c 5f 54 31 2c 20 26 73 6c 6f 74 OTOCOL_T1, &slot
88a0: 2d 3e 70 63 73 63 5f 63 61 72 64 2c 20 26 70 72 ->pcsc_card, &pr
88b0: 6f 74 6f 63 6f 6c 29 3b 0a 09 09 09 09 7d 0a 09 otocol);.....}..
88c0: 09 09 7d 0a 0a 09 09 09 73 63 61 72 64 5f 63 6f ..}.....scard_co
88d0: 6e 6e 5f 72 65 74 20 3d 20 63 61 63 6b 65 79 5f nn_ret = cackey_
88e0: 72 65 63 6f 6e 6e 65 63 74 5f 63 61 72 64 28 73 reconnect_card(s
88f0: 6c 6f 74 2c 20 70 72 6f 74 6f 63 6f 6c 29 3b 0a lot, protocol);.
8900: 09 09 7d 0a 0a 09 09 69 66 20 28 73 63 61 72 64 ..}....if (scard
8910: 5f 63 6f 6e 6e 5f 72 65 74 20 3d 3d 20 53 43 41 _conn_ret == SCA
8920: 52 44 5f 45 5f 4e 4f 5f 53 45 52 56 49 43 45 29 RD_E_NO_SERVICE)
8930: 20 7b 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 {....CACKEY_DEB
8940: 55 47 5f 50 52 49 4e 54 46 28 22 53 43 61 72 64 UG_PRINTF("SCard
8950: 43 6f 6e 6e 65 63 74 28 29 20 72 65 74 75 72 6e Connect() return
8960: 65 64 20 53 43 41 52 44 5f 45 5f 4e 4f 5f 53 45 ed SCARD_E_NO_SE
8970: 52 56 49 43 45 20 2d 2d 20 77 68 69 63 68 20 63 RVICE -- which c
8980: 6f 75 6c 64 20 6d 65 61 6e 20 6f 75 72 20 68 61 ould mean our ha
8990: 6e 64 6c 65 20 69 73 20 69 6e 76 61 6c 69 64 2c ndle is invalid,
89a0: 20 77 69 6c 6c 20 74 72 79 20 74 6f 20 72 65 63 will try to rec
89b0: 6f 6e 6e 65 63 74 20 74 6f 20 50 43 2f 53 43 20 onnect to PC/SC
89c0: 73 65 72 76 69 63 65 22 29 3b 0a 0a 09 09 09 63 service");.....c
89d0: 61 63 6b 65 79 5f 70 63 73 63 5f 64 69 73 63 6f ackey_pcsc_disco
89e0: 6e 6e 65 63 74 28 29 3b 0a 0a 09 09 09 63 61 63 nnect();.....cac
89f0: 6b 65 79 5f 70 63 73 63 5f 63 6f 6e 6e 65 63 74 key_pcsc_connect
8a00: 28 29 3b 0a 0a 09 09 09 63 61 63 6b 65 79 5f 6d ();.....cackey_m
8a10: 61 72 6b 5f 73 6c 6f 74 5f 72 65 73 65 74 28 73 ark_slot_reset(s
8a20: 6c 6f 74 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e lot);.....return
8a30: 28 63 61 63 6b 65 79 5f 63 6f 6e 6e 65 63 74 5f (cackey_connect_
8a40: 63 61 72 64 28 73 6c 6f 74 29 29 3b 0a 09 09 7d card(slot));...}
8a50: 0a 0a 09 09 69 66 20 28 73 63 61 72 64 5f 63 6f ....if (scard_co
8a60: 6e 6e 5f 72 65 74 20 21 3d 20 53 43 41 52 44 5f nn_ret != SCARD_
8a70: 53 5f 53 55 43 43 45 53 53 29 20 7b 0a 09 09 09 S_SUCCESS) {....
8a80: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
8a90: 4e 54 46 28 22 43 6f 6e 6e 65 63 74 69 6f 6e 20 NTF("Connection
8aa0: 74 6f 20 63 61 72 64 20 66 61 69 6c 65 64 2c 20 to card failed,
8ab0: 72 65 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 returning in fai
8ac0: 6c 75 72 65 20 28 53 43 61 72 64 43 6f 6e 6e 65 lure (SCardConne
8ad0: 63 74 28 29 20 3d 20 25 73 2f 25 6c 69 29 22 2c ct() = %s/%li)",
8ae0: 20 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 46 55 CACKEY_DEBUG_FU
8af0: 4e 43 5f 53 43 41 52 44 45 52 52 5f 54 4f 5f 53 NC_SCARDERR_TO_S
8b00: 54 52 28 73 63 61 72 64 5f 63 6f 6e 6e 5f 72 65 TR(scard_conn_re
8b10: 74 29 2c 20 28 6c 6f 6e 67 29 20 73 63 61 72 64 t), (long) scard
8b20: 5f 63 6f 6e 6e 5f 72 65 74 29 3b 0a 0a 09 09 09 _conn_ret);.....
8b30: 72 65 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 return(CACKEY_PC
8b40: 53 43 5f 45 5f 47 45 4e 45 52 49 43 29 3b 0a 09 SC_E_GENERIC);..
8b50: 09 7d 0a 0a 09 09 73 6c 6f 74 2d 3e 70 63 73 63 .}....slot->pcsc
8b60: 5f 63 61 72 64 5f 63 6f 6e 6e 65 63 74 65 64 20 _card_connected
8b70: 3d 20 31 3b 0a 09 09 73 6c 6f 74 2d 3e 74 72 61 = 1;...slot->tra
8b80: 6e 73 61 63 74 69 6f 6e 5f 64 65 70 74 68 20 3d nsaction_depth =
8b90: 20 30 3b 0a 09 09 73 6c 6f 74 2d 3e 74 72 61 6e 0;...slot->tran
8ba0: 73 61 63 74 69 6f 6e 5f 6e 65 65 64 5f 68 77 5f saction_need_hw_
8bb0: 6c 6f 63 6b 20 3d 20 30 3b 0a 09 09 73 6c 6f 74 lock = 0;...slot
8bc0: 2d 3e 70 72 6f 74 6f 63 6f 6c 20 3d 20 70 72 6f ->protocol = pro
8bd0: 74 6f 63 6f 6c 3b 0a 09 7d 0a 0a 09 43 41 43 4b tocol;..}...CACK
8be0: 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
8bf0: 22 52 65 74 75 72 6e 69 6e 67 20 69 6e 20 73 75 "Returning in su
8c00: 63 63 65 73 73 22 29 3b 0a 0a 09 72 65 74 75 72 ccess");...retur
8c10: 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f n(CACKEY_PCSC_S_
8c20: 4f 4b 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 59 OK);.}../*. * SY
8c30: 4e 50 4f 53 49 53 0a 20 2a 20 20 20 20 20 63 61 NPOSIS. * ca
8c40: 63 6b 65 79 5f 72 65 74 20 63 61 63 6b 65 79 5f ckey_ret cackey_
8c50: 62 65 67 69 6e 5f 74 72 61 6e 73 61 63 74 69 6f begin_transactio
8c60: 6e 28 73 74 72 75 63 74 20 63 61 63 6b 65 79 5f n(struct cackey_
8c70: 73 6c 6f 74 20 2a 73 6c 6f 74 29 3b 0a 20 2a 0a slot *slot);. *.
8c80: 20 2a 20 41 52 47 55 4d 45 4e 54 53 0a 20 2a 20 * ARGUMENTS. *
8c90: 20 20 20 20 63 61 63 6b 65 79 5f 73 6c 6f 74 20 cackey_slot
8ca0: 2a 73 6c 6f 74 0a 20 2a 20 20 20 20 20 20 20 20 *slot. *
8cb0: 20 53 6c 6f 74 20 74 6f 20 73 65 6e 64 20 63 6f Slot to send co
8cc0: 6d 6d 61 6e 64 73 20 74 6f 0a 20 2a 0a 20 2a 20 mmands to. *. *
8cd0: 52 45 54 55 52 4e 20 56 41 4c 55 45 0a 20 2a 20 RETURN VALUE. *
8ce0: 20 20 20 20 43 41 43 4b 45 59 5f 50 43 53 43 5f CACKEY_PCSC_
8cf0: 53 5f 4f 4b 20 20 20 20 20 20 20 20 20 4f 6e 20 S_OK On
8d00: 73 75 63 63 65 73 73 0a 20 2a 20 20 20 20 20 43 success. * C
8d10: 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 47 45 4e ACKEY_PCSC_E_GEN
8d20: 45 52 49 43 20 20 20 20 4f 6e 20 65 72 72 6f 72 ERIC On error
8d30: 0a 20 2a 0a 20 2a 20 4e 4f 54 45 53 0a 20 2a 20 . *. * NOTES. *
8d40: 20 20 20 20 54 68 65 20 74 72 61 6e 73 61 63 74 The transact
8d50: 69 6f 6e 20 73 68 6f 75 6c 64 20 62 65 20 74 65 ion should be te
8d60: 72 6d 69 6e 61 74 65 64 20 75 73 69 6e 67 20 22 rminated using "
8d70: 63 61 63 6b 65 79 5f 65 6e 64 5f 74 72 61 6e 73 cackey_end_trans
8d80: 61 63 74 69 6f 6e 22 0a 20 2a 0a 20 2a 2f 0a 73 action". *. */.s
8d90: 74 61 74 69 63 20 63 61 63 6b 65 79 5f 72 65 74 tatic cackey_ret
8da0: 20 63 61 63 6b 65 79 5f 62 65 67 69 6e 5f 74 72 cackey_begin_tr
8db0: 61 6e 73 61 63 74 69 6f 6e 28 73 74 72 75 63 74 ansaction(struct
8dc0: 20 63 61 63 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c cackey_slot *sl
8dd0: 6f 74 29 20 7b 0a 09 63 61 63 6b 65 79 5f 72 65 ot) {..cackey_re
8de0: 74 20 63 61 63 6b 65 79 5f 63 6f 6e 6e 5f 72 65 t cackey_conn_re
8df0: 74 3b 0a 09 4c 4f 4e 47 20 73 63 61 72 64 5f 74 t;..LONG scard_t
8e00: 72 61 6e 73 5f 72 65 74 3b 0a 0a 09 43 41 43 4b rans_ret;...CACK
8e10: 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
8e20: 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 63 61 "Called.");...ca
8e30: 63 6b 65 79 5f 63 6f 6e 6e 5f 72 65 74 20 3d 20 ckey_conn_ret =
8e40: 63 61 63 6b 65 79 5f 63 6f 6e 6e 65 63 74 5f 63 cackey_connect_c
8e50: 61 72 64 28 73 6c 6f 74 29 3b 0a 09 69 66 20 28 ard(slot);..if (
8e60: 63 61 63 6b 65 79 5f 63 6f 6e 6e 5f 72 65 74 20 cackey_conn_ret
8e70: 21 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 != CACKEY_PCSC_S
8e80: 5f 4f 4b 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f _OK) {...CACKEY_
8e90: 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 55 6e DEBUG_PRINTF("Un
8ea0: 61 62 6c 65 20 74 6f 20 63 6f 6e 6e 65 63 74 20 able to connect
8eb0: 74 6f 20 63 61 72 64 2c 20 72 65 74 75 72 6e 69 to card, returni
8ec0: 6e 67 20 69 6e 20 65 72 72 6f 72 22 29 3b 0a 0a ng in error");..
8ed0: 09 09 72 65 74 75 72 6e 28 43 41 43 4b 45 59 5f ..return(CACKEY_
8ee0: 50 43 53 43 5f 45 5f 47 45 4e 45 52 49 43 29 3b PCSC_E_GENERIC);
8ef0: 0a 09 7d 0a 0a 09 73 6c 6f 74 2d 3e 74 72 61 6e ..}...slot->tran
8f00: 73 61 63 74 69 6f 6e 5f 64 65 70 74 68 2b 2b 3b saction_depth++;
8f10: 0a 0a 09 69 66 20 28 73 6c 6f 74 2d 3e 74 72 61 ...if (slot->tra
8f20: 6e 73 61 63 74 69 6f 6e 5f 64 65 70 74 68 20 3e nsaction_depth >
8f30: 20 31 20 26 26 20 21 73 6c 6f 74 2d 3e 74 72 61 1 && !slot->tra
8f40: 6e 73 61 63 74 69 6f 6e 5f 6e 65 65 64 5f 68 77 nsaction_need_hw
8f50: 5f 6c 6f 63 6b 29 20 7b 0a 09 09 43 41 43 4b 45 _lock) {...CACKE
8f60: 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
8f70: 41 6c 72 65 61 64 79 20 69 6e 20 61 20 74 72 61 Already in a tra
8f80: 6e 73 61 63 74 69 6f 6e 2c 20 70 65 72 66 6f 72 nsaction, perfor
8f90: 6d 69 6e 67 20 6e 6f 20 61 63 74 69 6f 6e 20 28 ming no action (
8fa0: 6e 65 77 20 64 65 70 74 68 20 3d 20 25 69 29 22 new depth = %i)"
8fb0: 2c 20 73 6c 6f 74 2d 3e 74 72 61 6e 73 61 63 74 , slot->transact
8fc0: 69 6f 6e 5f 64 65 70 74 68 29 3b 0a 0a 09 09 72 ion_depth);....r
8fd0: 65 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 eturn(CACKEY_PCS
8fe0: 43 5f 53 5f 4f 4b 29 3b 0a 09 7d 0a 0a 09 73 6c C_S_OK);..}...sl
8ff0: 6f 74 2d 3e 74 72 61 6e 73 61 63 74 69 6f 6e 5f ot->transaction_
9000: 6e 65 65 64 5f 68 77 5f 6c 6f 63 6b 20 3d 20 30 need_hw_lock = 0
9010: 3b 0a 0a 09 73 63 61 72 64 5f 74 72 61 6e 73 5f ;...scard_trans_
9020: 72 65 74 20 3d 20 53 43 61 72 64 42 65 67 69 6e ret = SCardBegin
9030: 54 72 61 6e 73 61 63 74 69 6f 6e 28 73 6c 6f 74 Transaction(slot
9040: 2d 3e 70 63 73 63 5f 63 61 72 64 29 3b 0a 09 69 ->pcsc_card);..i
9050: 66 20 28 73 63 61 72 64 5f 74 72 61 6e 73 5f 72 f (scard_trans_r
9060: 65 74 20 21 3d 20 53 43 41 52 44 5f 53 5f 53 55 et != SCARD_S_SU
9070: 43 43 45 53 53 29 20 7b 0a 09 09 43 41 43 4b 45 CCESS) {...CACKE
9080: 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
9090: 55 6e 61 62 6c 65 20 74 6f 20 62 65 67 69 6e 20 Unable to begin
90a0: 74 72 61 6e 73 61 63 74 69 6f 6e 2c 20 72 65 74 transaction, ret
90b0: 75 72 6e 69 6e 67 20 69 6e 20 65 72 72 6f 72 22 urning in error"
90c0: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 41 43 );....return(CAC
90d0: 4b 45 59 5f 50 43 53 43 5f 45 5f 47 45 4e 45 52 KEY_PCSC_E_GENER
90e0: 49 43 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 IC);..}...CACKEY
90f0: 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 53 _DEBUG_PRINTF("S
9100: 75 63 65 73 73 66 75 6c 6c 79 20 62 65 67 61 6e ucessfully began
9110: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 6f 6e 20 transaction on
9120: 73 6c 6f 74 20 28 25 73 29 22 2c 20 73 6c 6f 74 slot (%s)", slot
9130: 2d 3e 70 63 73 63 5f 72 65 61 64 65 72 29 3b 0a ->pcsc_reader);.
9140: 0a 09 72 65 74 75 72 6e 28 43 41 43 4b 45 59 5f ..return(CACKEY_
9150: 50 43 53 43 5f 53 5f 4f 4b 29 3b 0a 7d 0a 0a 2f PCSC_S_OK);.}../
9160: 2a 0a 20 2a 20 53 59 4e 50 4f 53 49 53 0a 20 2a *. * SYNPOSIS. *
9170: 20 20 20 20 20 63 61 63 6b 65 79 5f 72 65 74 20 cackey_ret
9180: 63 61 63 6b 65 79 5f 65 6e 64 5f 74 72 61 6e 73 cackey_end_trans
9190: 61 63 74 69 6f 6e 28 73 74 72 75 63 74 20 63 61 action(struct ca
91a0: 63 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c 6f 74 29 ckey_slot *slot)
91b0: 3b 0a 20 2a 0a 20 2a 20 41 52 47 55 4d 45 4e 54 ;. *. * ARGUMENT
91c0: 53 0a 20 2a 20 20 20 20 20 63 61 63 6b 65 79 5f S. * cackey_
91d0: 73 6c 6f 74 20 2a 73 6c 6f 74 0a 20 2a 20 20 20 slot *slot. *
91e0: 20 20 20 20 20 20 53 6c 6f 74 20 74 6f 20 73 65 Slot to se
91f0: 6e 64 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 0a 20 nd commands to.
9200: 2a 0a 20 2a 20 52 45 54 55 52 4e 20 56 41 4c 55 *. * RETURN VALU
9210: 45 0a 20 2a 20 20 20 20 20 43 41 43 4b 45 59 5f E. * CACKEY_
9220: 50 43 53 43 5f 53 5f 4f 4b 20 20 20 20 20 20 20 PCSC_S_OK
9230: 20 20 4f 6e 20 73 75 63 63 65 73 73 0a 20 2a 20 On success. *
9240: 20 20 20 20 43 41 43 4b 45 59 5f 50 43 53 43 5f CACKEY_PCSC_
9250: 45 5f 47 45 4e 45 52 49 43 20 20 20 20 4f 6e 20 E_GENERIC On
9260: 65 72 72 6f 72 0a 20 2a 0a 20 2a 20 4e 4f 54 45 error. *. * NOTE
9270: 53 0a 20 2a 20 20 20 20 20 54 68 69 73 20 66 75 S. * This fu
9280: 6e 63 74 69 6f 6e 20 72 65 71 75 69 72 65 73 20 nction requires
9290: 22 63 61 63 6b 65 79 5f 62 65 67 69 6e 5f 74 72 "cackey_begin_tr
92a0: 61 6e 73 61 63 74 69 6f 6e 22 20 74 6f 20 62 65 ansaction" to be
92b0: 20 63 61 6c 6c 65 64 20 66 69 72 73 74 0a 20 2a called first. *
92c0: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63 61 63 6b . */.static cack
92d0: 65 79 5f 72 65 74 20 63 61 63 6b 65 79 5f 65 6e ey_ret cackey_en
92e0: 64 5f 74 72 61 6e 73 61 63 74 69 6f 6e 28 73 74 d_transaction(st
92f0: 72 75 63 74 20 63 61 63 6b 65 79 5f 73 6c 6f 74 ruct cackey_slot
9300: 20 2a 73 6c 6f 74 29 20 7b 0a 09 4c 4f 4e 47 20 *slot) {..LONG
9310: 73 63 61 72 64 5f 74 72 61 6e 73 5f 72 65 74 3b scard_trans_ret;
9320: 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
9330: 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 PRINTF("Called."
9340: 29 3b 0a 0a 09 69 66 20 28 21 73 6c 6f 74 2d 3e );...if (!slot->
9350: 70 63 73 63 5f 63 61 72 64 5f 63 6f 6e 6e 65 63 pcsc_card_connec
9360: 74 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f ted) {...CACKEY_
9370: 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 DEBUG_PRINTF("Ca
9380: 72 64 20 69 73 20 6e 6f 74 20 63 6f 6e 6e 65 63 rd is not connec
9390: 74 65 64 2c 20 75 6e 61 62 6c 65 20 74 6f 20 65 ted, unable to e
93a0: 6e 64 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 6f nd transaction o
93b0: 6e 20 63 61 72 64 22 29 3b 0a 0a 09 09 69 66 20 n card");....if
93c0: 28 73 6c 6f 74 2d 3e 74 72 61 6e 73 61 63 74 69 (slot->transacti
93d0: 6f 6e 5f 64 65 70 74 68 20 3e 20 30 29 20 7b 0a on_depth > 0) {.
93e0: 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
93f0: 50 52 49 4e 54 46 28 22 44 65 63 72 65 61 73 69 PRINTF("Decreasi
9400: 6e 67 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 64 ng transaction d
9410: 65 70 74 68 20 61 6e 64 20 61 73 6b 69 6e 67 20 epth and asking
9420: 66 6f 72 20 61 20 68 61 72 64 77 61 72 65 20 6c for a hardware l
9430: 6f 63 6b 20 6f 6e 20 74 68 65 20 6e 65 78 74 20 ock on the next
9440: 62 65 67 69 6e 20 74 72 61 6e 73 61 63 74 69 6f begin transactio
9450: 6e 20 28 63 75 72 72 65 6e 74 20 64 65 70 74 68 n (current depth
9460: 20 3d 20 25 69 29 22 2c 20 73 6c 6f 74 2d 3e 74 = %i)", slot->t
9470: 72 61 6e 73 61 63 74 69 6f 6e 5f 64 65 70 74 68 ransaction_depth
9480: 29 3b 0a 0a 09 09 09 73 6c 6f 74 2d 3e 74 72 61 );.....slot->tra
9490: 6e 73 61 63 74 69 6f 6e 5f 64 65 70 74 68 2d 2d nsaction_depth--
94a0: 3b 0a 0a 09 09 09 69 66 20 28 73 6c 6f 74 2d 3e ;.....if (slot->
94b0: 74 72 61 6e 73 61 63 74 69 6f 6e 5f 64 65 70 74 transaction_dept
94c0: 68 20 3e 20 30 29 20 7b 0a 09 09 09 09 73 6c 6f h > 0) {.....slo
94d0: 74 2d 3e 74 72 61 6e 73 61 63 74 69 6f 6e 5f 6e t->transaction_n
94e0: 65 65 64 5f 68 77 5f 6c 6f 63 6b 20 3d 20 31 3b eed_hw_lock = 1;
94f0: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 ....}...}....ret
9500: 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 5f urn(CACKEY_PCSC_
9510: 45 5f 47 45 4e 45 52 49 43 29 3b 0a 09 7d 0a 0a E_GENERIC);..}..
9520: 09 69 66 20 28 73 6c 6f 74 2d 3e 74 72 61 6e 73 .if (slot->trans
9530: 61 63 74 69 6f 6e 5f 64 65 70 74 68 20 3d 3d 20 action_depth ==
9540: 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 0) {...CACKEY_DE
9550: 42 55 47 5f 50 52 49 4e 54 46 28 22 54 65 72 6d BUG_PRINTF("Term
9560: 69 6e 61 74 69 6e 67 20 61 20 74 72 61 6e 73 61 inating a transa
9570: 63 74 69 6f 6e 20 74 68 61 74 20 68 61 73 20 6e ction that has n
9580: 6f 74 20 62 65 67 75 6e 21 22 29 3b 0a 0a 09 09 ot begun!");....
9590: 72 65 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 return(CACKEY_PC
95a0: 53 43 5f 45 5f 47 45 4e 45 52 49 43 29 3b 0a 09 SC_E_GENERIC);..
95b0: 7d 0a 0a 09 73 6c 6f 74 2d 3e 74 72 61 6e 73 61 }...slot->transa
95c0: 63 74 69 6f 6e 5f 64 65 70 74 68 2d 2d 3b 0a 0a ction_depth--;..
95d0: 09 69 66 20 28 73 6c 6f 74 2d 3e 74 72 61 6e 73 .if (slot->trans
95e0: 61 63 74 69 6f 6e 5f 64 65 70 74 68 20 3e 20 30 action_depth > 0
95f0: 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 ) {...CACKEY_DEB
9600: 55 47 5f 50 52 49 4e 54 46 28 22 54 72 61 6e 73 UG_PRINTF("Trans
9610: 61 63 74 69 6f 6e 73 20 73 74 69 6c 6c 20 69 6e actions still in
9620: 20 70 72 6f 67 72 65 73 73 2c 20 6e 6f 74 20 74 progress, not t
9630: 65 72 6d 69 6e 61 74 69 6e 67 20 6f 6e 2d 63 61 erminating on-ca
9640: 72 64 20 54 72 61 6e 73 61 63 74 69 6f 6e 20 28 rd Transaction (
9650: 63 75 72 72 65 6e 74 20 64 65 70 74 68 20 3d 20 current depth =
9660: 25 69 29 22 2c 20 73 6c 6f 74 2d 3e 74 72 61 6e %i)", slot->tran
9670: 73 61 63 74 69 6f 6e 5f 64 65 70 74 68 29 3b 0a saction_depth);.
9680: 0a 09 09 72 65 74 75 72 6e 28 43 41 43 4b 45 59 ...return(CACKEY
9690: 5f 50 43 53 43 5f 53 5f 4f 4b 29 3b 0a 09 7d 0a _PCSC_S_OK);..}.
96a0: 0a 09 73 63 61 72 64 5f 74 72 61 6e 73 5f 72 65 ..scard_trans_re
96b0: 74 20 3d 20 53 43 61 72 64 45 6e 64 54 72 61 6e t = SCardEndTran
96c0: 73 61 63 74 69 6f 6e 28 73 6c 6f 74 2d 3e 70 63 saction(slot->pc
96d0: 73 63 5f 63 61 72 64 2c 20 53 43 41 52 44 5f 4c sc_card, SCARD_L
96e0: 45 41 56 45 5f 43 41 52 44 29 3b 0a 09 69 66 20 EAVE_CARD);..if
96f0: 28 73 63 61 72 64 5f 74 72 61 6e 73 5f 72 65 74 (scard_trans_ret
9700: 20 21 3d 20 53 43 41 52 44 5f 53 5f 53 55 43 43 != SCARD_S_SUCC
9710: 45 53 53 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f ESS) {...CACKEY_
9720: 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 55 6e DEBUG_PRINTF("Un
9730: 61 62 6c 65 20 74 6f 20 65 6e 64 20 74 72 61 6e able to end tran
9740: 73 61 63 74 69 6f 6e 2c 20 72 65 74 75 72 6e 69 saction, returni
9750: 6e 67 20 69 6e 20 65 72 72 6f 72 22 29 3b 0a 0a ng in error");..
9760: 09 09 72 65 74 75 72 6e 28 43 41 43 4b 45 59 5f ..return(CACKEY_
9770: 50 43 53 43 5f 45 5f 47 45 4e 45 52 49 43 29 3b PCSC_E_GENERIC);
9780: 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 ..}...CACKEY_DEB
9790: 55 47 5f 50 52 49 4e 54 46 28 22 53 75 63 65 73 UG_PRINTF("Suces
97a0: 73 66 75 6c 6c 79 20 74 65 72 6d 69 6e 61 74 65 sfully terminate
97b0: 64 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 6f 6e d transaction on
97c0: 20 73 6c 6f 74 20 28 25 73 29 22 2c 20 73 6c 6f slot (%s)", slo
97d0: 74 2d 3e 70 63 73 63 5f 72 65 61 64 65 72 29 3b t->pcsc_reader);
97e0: 0a 0a 09 72 65 74 75 72 6e 28 43 41 43 4b 45 59 ...return(CACKEY
97f0: 5f 50 43 53 43 5f 53 5f 4f 4b 29 3b 0a 7d 0a 0a _PCSC_S_OK);.}..
9800: 2f 2a 20 41 50 44 55 20 52 65 6c 61 74 65 64 20 /* APDU Related
9810: 46 75 6e 63 74 69 6f 6e 73 20 2a 2f 0a 2f 2a 0a Functions */./*.
9820: 20 2a 20 53 59 4e 50 4f 53 49 53 0a 20 2a 20 20 * SYNPOSIS. *
9830: 20 20 20 63 61 63 6b 65 79 5f 72 65 74 20 63 61 cackey_ret ca
9840: 63 6b 65 79 5f 73 65 6e 64 5f 61 70 64 75 28 73 ckey_send_apdu(s
9850: 74 72 75 63 74 20 63 61 63 6b 65 79 5f 73 6c 6f truct cackey_slo
9860: 74 20 2a 73 6c 6f 74 2c 20 75 6e 73 69 67 6e 65 t *slot, unsigne
9870: 64 20 63 68 61 72 20 63 6c 61 73 73 2c 20 75 6e d char class, un
9880: 73 69 67 6e 65 64 20 63 68 61 72 20 69 6e 73 74 signed char inst
9890: 72 75 63 74 69 6f 6e 2c 20 75 6e 73 69 67 6e 65 ruction, unsigne
98a0: 64 20 63 68 61 72 20 70 31 2c 20 75 6e 73 69 67 d char p1, unsig
98b0: 6e 65 64 20 63 68 61 72 20 70 32 2c 20 75 6e 73 ned char p2, uns
98c0: 69 67 6e 65 64 20 63 68 61 72 20 6c 63 2c 20 75 igned char lc, u
98d0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 64 61 nsigned char *da
98e0: 74 61 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 ta, unsigned cha
98f0: 72 20 6c 65 2c 20 75 69 6e 74 31 36 5f 74 20 2a r le, uint16_t *
9900: 72 65 73 70 63 6f 64 65 2c 20 75 6e 73 69 67 6e respcode, unsign
9910: 65 64 20 63 68 61 72 20 2a 72 65 73 70 64 61 74 ed char *respdat
9920: 61 2c 20 73 69 7a 65 5f 74 20 2a 72 65 73 70 64 a, size_t *respd
9930: 61 74 61 5f 6c 65 6e 29 3b 0a 20 2a 0a 20 2a 20 ata_len);. *. *
9940: 41 52 47 55 4d 45 4e 54 53 0a 20 2a 20 20 20 20 ARGUMENTS. *
9950: 20 63 61 63 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c cackey_slot *sl
9960: 6f 74 0a 20 2a 20 20 20 20 20 20 20 20 20 53 6c ot. * Sl
9970: 6f 74 20 74 6f 20 73 65 6e 64 20 63 6f 6d 6d 61 ot to send comma
9980: 6e 64 73 20 74 6f 0a 20 2a 0a 20 2a 20 20 20 20 nds to. *. *
9990: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 63 unsigned char c
99a0: 6c 61 73 73 0a 20 2a 20 20 20 20 20 20 20 20 20 lass. *
99b0: 41 50 44 55 20 43 6c 61 73 73 20 28 47 53 43 49 APDU Class (GSCI
99c0: 53 5f 43 4c 41 53 53 5f 49 53 4f 37 38 31 36 20 S_CLASS_ISO7816
99d0: 6f 72 20 47 53 43 49 53 5f 43 4c 41 53 53 5f 47 or GSCIS_CLASS_G
99e0: 4c 4f 42 41 4c 5f 50 4c 41 54 46 4f 52 4d 0a 20 LOBAL_PLATFORM.
99f0: 2a 20 20 20 20 20 20 20 20 20 75 73 75 61 6c 6c * usuall
9a00: 79 29 2c 20 28 43 4c 41 29 0a 20 2a 0a 20 2a 20 y), (CLA). *. *
9a10: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 unsigned cha
9a20: 72 20 69 6e 73 74 72 75 63 74 69 6f 6e 0a 20 2a r instruction. *
9a30: 20 20 20 20 20 20 20 20 20 41 50 44 55 20 49 6e APDU In
9a40: 73 74 72 75 63 74 69 6f 6e 20 28 49 4e 53 29 0a struction (INS).
9a50: 20 2a 0a 20 2a 20 20 20 20 20 75 6e 73 69 67 6e *. * unsign
9a60: 65 64 20 63 68 61 72 20 70 31 0a 20 2a 20 20 20 ed char p1. *
9a70: 20 20 20 20 20 20 41 50 44 55 20 50 61 72 61 6d APDU Param
9a80: 65 74 65 72 20 31 20 28 50 31 29 0a 20 2a 0a 20 eter 1 (P1). *.
9a90: 2a 20 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 * unsigned c
9aa0: 68 61 72 20 70 32 0a 20 2a 20 20 20 20 20 20 20 har p2. *
9ab0: 20 20 41 50 44 55 20 50 61 72 61 6d 65 74 65 72 APDU Parameter
9ac0: 20 32 20 28 50 32 29 0a 20 2a 0a 20 2a 20 20 20 2 (P2). *. *
9ad0: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
9ae0: 6c 63 0a 20 2a 20 20 20 20 20 20 20 20 20 41 50 lc. * AP
9af0: 44 55 20 4c 65 6e 67 74 68 20 6f 66 20 43 6f 6e DU Length of Con
9b00: 74 65 6e 74 20 28 4c 63 29 20 2d 2d 20 74 68 69 tent (Lc) -- thi
9b10: 73 20 69 73 20 74 68 65 20 6c 65 6e 67 74 68 20 s is the length
9b20: 6f 66 20 22 64 61 74 61 22 0a 20 2a 20 20 20 20 of "data". *
9b30: 20 20 20 20 20 70 61 72 61 6d 65 74 65 72 2e 20 parameter.
9b40: 20 49 66 20 22 64 61 74 61 22 20 69 73 20 73 70 If "data" is sp
9b50: 65 63 69 66 69 65 64 20 61 73 20 4e 55 4c 4c 2c ecified as NULL,
9b60: 20 74 68 69 73 20 70 61 72 61 6d 65 74 65 72 20 this parameter
9b70: 77 69 6c 6c 0a 20 2a 20 20 20 20 20 20 20 20 20 will. *
9b80: 62 65 20 69 67 6e 6f 72 65 64 2e 0a 20 2a 0a 20 be ignored.. *.
9b90: 2a 20 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 * unsigned c
9ba0: 68 61 72 20 2a 64 61 74 61 0a 20 2a 20 20 20 20 har *data. *
9bb0: 20 20 20 20 20 50 6f 69 6e 74 65 72 20 74 6f 20 Pointer to
9bc0: 62 75 66 66 65 72 20 74 6f 20 73 65 6e 64 2e 20 buffer to send.
9bd0: 20 49 74 20 73 68 6f 75 6c 64 20 62 65 20 22 4c It should be "L
9be0: 63 22 20 62 79 74 65 73 20 6c 6f 6e 67 2e 20 20 c" bytes long.
9bf0: 49 66 0a 20 2a 20 20 20 20 20 20 20 20 20 73 70 If. * sp
9c00: 65 63 69 66 69 65 64 20 61 73 20 4e 55 4c 4c 2c ecified as NULL,
9c10: 20 22 4c 63 22 20 77 69 6c 6c 20 6e 6f 74 20 62 "Lc" will not b
9c20: 65 20 73 65 6e 74 2c 20 61 6e 64 20 74 68 69 73 e sent, and this
9c30: 20 62 75 66 66 65 72 20 77 69 6c 6c 20 62 65 0a buffer will be.
9c40: 20 2a 20 20 20 20 20 20 20 20 20 69 67 6e 6f 72 * ignor
9c50: 65 64 2e 0a 20 2a 0a 20 2a 20 20 20 20 20 75 6e ed.. *. * un
9c60: 73 69 67 6e 65 64 20 63 68 61 72 20 6c 65 0a 20 signed char le.
9c70: 2a 20 20 20 20 20 20 20 20 20 41 50 44 55 20 4c * APDU L
9c80: 65 6e 67 74 68 20 6f 66 20 45 78 70 65 63 74 61 ength of Expecta
9c90: 74 69 6f 6e 20 28 4c 65 29 20 2d 2d 20 74 68 69 tion (Le) -- thi
9ca0: 73 20 69 73 20 74 68 65 20 6c 65 6e 67 74 68 20 s is the length
9cb0: 6f 66 20 74 68 65 0a 20 2a 20 20 20 20 20 20 20 of the. *
9cc0: 20 20 65 78 70 65 63 74 65 64 20 72 65 70 6c 79 expected reply
9cd0: 2e 20 20 49 66 20 74 68 69 73 20 69 73 20 73 70 . If this is sp
9ce0: 65 63 69 66 69 65 64 20 61 73 20 30 20 74 68 65 ecified as 0 the
9cf0: 6e 20 69 74 20 77 69 6c 6c 20 6e 6f 74 0a 20 2a n it will not. *
9d00: 20 20 20 20 20 20 20 20 20 62 65 20 73 65 6e 74 be sent
9d10: 2e 0a 20 2a 0a 20 2a 20 20 20 20 20 75 69 6e 74 .. *. * uint
9d20: 31 36 5f 74 20 2a 72 65 73 70 63 6f 64 65 0a 20 16_t *respcode.
9d30: 2a 20 20 20 20 20 20 20 20 20 5b 4f 55 54 5d 20 * [OUT]
9d40: 50 6f 69 6e 74 65 72 20 74 6f 20 73 74 6f 72 61 Pointer to stora
9d50: 67 65 20 6f 66 20 41 50 44 55 20 72 65 73 70 6f ge of APDU respo
9d60: 6e 73 65 20 63 6f 64 65 2e 20 20 49 66 20 74 68 nse code. If th
9d70: 69 73 20 69 73 0a 20 2a 20 20 20 20 20 20 20 20 is is. *
9d80: 20 73 70 65 63 69 66 69 65 64 20 61 73 20 4e 55 specified as NU
9d90: 4c 4c 2c 20 74 68 65 20 72 65 73 70 6f 6e 73 65 LL, the response
9da0: 20 63 6f 64 65 20 77 69 6c 6c 20 62 65 20 64 69 code will be di
9db0: 73 63 61 72 64 65 64 2e 0a 20 2a 0a 20 2a 20 20 scarded.. *. *
9dc0: 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 unsigned char
9dd0: 20 2a 72 65 73 70 64 61 74 61 0a 20 2a 20 20 20 *respdata. *
9de0: 20 20 20 20 20 20 5b 4f 55 54 5d 20 50 6f 69 6e [OUT] Poin
9df0: 74 65 72 20 74 6f 20 73 74 6f 72 61 67 65 20 6f ter to storage o
9e00: 66 20 41 50 44 55 20 72 65 73 70 6f 6e 73 65 20 f APDU response
9e10: 64 61 74 61 2e 20 20 49 66 20 74 68 69 73 20 69 data. If this i
9e20: 73 0a 20 2a 20 20 20 20 20 20 20 20 20 73 70 65 s. * spe
9e30: 63 69 66 69 65 64 20 61 73 20 4e 55 4c 4c 2c 20 cified as NULL,
9e40: 74 68 65 20 72 65 73 70 6f 6e 73 65 20 64 61 74 the response dat
9e50: 61 20 77 69 6c 6c 20 62 65 20 64 69 73 63 61 72 a will be discar
9e60: 64 65 64 2e 20 20 49 66 0a 20 2a 20 20 20 20 20 ded. If. *
9e70: 20 20 20 20 74 68 65 20 22 72 65 73 70 64 61 74 the "respdat
9e80: 61 5f 6c 65 6e 22 20 70 61 72 61 6d 65 74 65 72 a_len" parameter
9e90: 20 69 73 20 73 70 65 63 69 66 69 65 64 20 61 73 is specified as
9ea0: 20 4e 55 4c 4c 2c 20 74 68 69 73 20 62 75 66 66 NULL, this buff
9eb0: 65 72 0a 20 2a 20 20 20 20 20 20 20 20 20 77 69 er. * wi
9ec0: 6c 6c 20 6e 6f 74 20 62 65 20 75 70 64 61 74 65 ll not be update
9ed0: 64 2e 0a 20 2a 0a 20 2a 20 20 20 20 20 73 69 7a d.. *. * siz
9ee0: 65 5f 74 20 2a 72 65 73 70 64 61 74 61 5f 6c 65 e_t *respdata_le
9ef0: 6e 0a 20 2a 20 20 20 20 20 20 20 20 20 5b 49 4e n. * [IN
9f00: 2c 20 4f 55 54 5d 20 50 6f 69 6e 74 65 72 20 69 , OUT] Pointer i
9f10: 6e 69 74 69 61 6c 69 6e 67 20 63 6f 6e 74 61 69 nitialing contai
9f20: 6e 69 6e 67 20 74 68 65 20 73 69 7a 65 20 6f 66 ning the size of
9f30: 20 74 68 65 20 22 72 65 73 70 64 61 74 61 22 0a the "respdata".
9f40: 20 2a 20 20 20 20 20 20 20 20 20 62 75 66 66 65 * buffe
9f50: 72 2e 20 20 42 65 66 6f 72 65 20 72 65 74 75 72 r. Before retur
9f60: 6e 69 6e 67 2c 20 74 68 65 20 70 6f 69 6e 74 65 ning, the pointe
9f70: 64 20 74 6f 20 76 61 6c 75 65 20 69 73 20 75 70 d to value is up
9f80: 64 61 74 65 64 20 74 6f 20 74 68 65 0a 20 2a 20 dated to the. *
9f90: 20 20 20 20 20 20 20 20 6e 75 6d 62 65 72 20 6f number o
9fa0: 66 20 62 79 74 65 73 20 77 72 69 74 74 65 6e 20 f bytes written
9fb0: 74 6f 20 74 68 65 20 62 75 66 66 65 72 2e 20 20 to the buffer.
9fc0: 49 66 20 74 68 69 73 20 69 73 20 73 70 65 63 69 If this is speci
9fd0: 66 69 65 64 20 61 73 0a 20 2a 20 20 20 20 20 20 fied as. *
9fe0: 20 20 20 4e 55 4c 4c 2c 20 69 74 20 77 69 6c 6c NULL, it will
9ff0: 20 6e 6f 74 20 62 65 20 75 70 64 61 74 65 64 2c not be updated,
a000: 20 61 6e 64 20 22 72 65 73 70 64 61 74 61 22 20 and "respdata"
a010: 77 69 6c 6c 20 62 65 20 69 67 6e 6f 72 65 64 20 will be ignored
a020: 63 61 75 73 69 6e 67 0a 20 2a 20 20 20 20 20 20 causing. *
a030: 20 20 20 74 68 65 20 72 65 73 70 6f 6e 73 65 20 the response
a040: 64 61 74 61 20 74 6f 20 62 65 20 64 69 73 63 61 data to be disca
a050: 72 64 65 64 2e 0a 20 2a 0a 20 2a 20 52 45 54 55 rded.. *. * RETU
a060: 52 4e 20 56 41 4c 55 45 0a 20 2a 20 20 20 20 20 RN VALUE. *
a070: 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f 4f 4b CACKEY_PCSC_S_OK
a080: 20 20 20 20 20 20 20 20 20 20 20 4f 6e 20 73 75 On su
a090: 63 63 65 73 73 0a 20 2a 20 20 20 20 20 43 41 43 ccess. * CAC
a0a0: 4b 45 59 5f 50 43 53 43 5f 45 5f 47 45 4e 45 52 KEY_PCSC_E_GENER
a0b0: 49 43 20 20 20 20 20 20 4f 6e 20 65 72 72 6f 72 IC On error
a0c0: 0a 20 2a 20 20 20 20 20 43 41 43 4b 45 59 5f 50 . * CACKEY_P
a0d0: 43 53 43 5f 45 5f 54 4f 4b 45 4e 41 42 53 45 4e CSC_E_TOKENABSEN
a0e0: 54 20 20 49 66 20 74 68 65 20 73 65 6e 64 69 6e T If the sendin
a0f0: 67 20 66 61 69 6c 65 64 20 62 65 63 61 75 73 65 g failed because
a100: 20 74 68 65 20 74 6f 6b 65 6e 20 69 73 0a 20 2a the token is. *
a110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
a120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
a130: 61 62 73 65 6e 74 0a 20 2a 20 20 20 20 20 43 41 absent. * CA
a140: 43 4b 45 59 5f 50 43 53 43 5f 45 5f 52 45 54 52 CKEY_PCSC_E_RETR
a150: 59 20 20 20 20 20 20 20 20 49 66 20 73 6f 6d 65 Y If some
a160: 74 68 69 6e 67 20 74 68 61 74 20 6c 6f 6f 6b 73 thing that looks
a170: 20 72 65 74 72 79 27 61 62 6c 65 20 77 65 6e 74 retry'able went
a180: 0a 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 . *
a190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
a1a0: 20 20 20 77 72 6f 6e 67 20 2d 2d 20 74 72 79 20 wrong -- try
a1b0: 74 68 65 20 77 68 6f 6c 65 20 74 72 61 6e 73 61 the whole transa
a1c0: 63 74 69 6f 6e 20 6f 76 65 72 0a 20 2a 20 20 20 ction over. *
a1d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
a1e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 61 67 61 aga
a1f0: 69 6e 0a 20 2a 0a 20 2a 20 4e 4f 54 45 53 0a 20 in. *. * NOTES.
a200: 2a 20 20 20 20 20 54 68 69 73 20 66 75 6e 63 74 * This funct
a210: 69 6f 6e 20 77 69 6c 6c 20 63 6f 6e 6e 65 63 74 ion will connect
a220: 20 74 6f 20 74 68 65 20 50 43 2f 53 43 20 43 6f to the PC/SC Co
a230: 6e 6e 65 63 74 69 6f 6e 20 4d 61 6e 61 67 65 72 nnection Manager
a240: 20 76 69 61 0a 20 2a 20 20 20 20 20 63 61 63 6b via. * cack
a250: 65 79 5f 70 63 73 63 5f 63 6f 6e 6e 65 63 74 28 ey_pcsc_connect(
a260: 29 20 69 66 20 6e 65 65 64 65 64 2e 0a 20 2a 0a ) if needed.. *.
a270: 20 2a 20 20 20 20 20 49 74 20 77 69 6c 6c 20 63 * It will c
a280: 6f 6e 6e 65 63 74 20 74 6f 20 74 68 65 20 63 61 onnect to the ca
a290: 72 64 20 69 6e 20 74 68 65 20 72 65 61 64 65 72 rd in the reader
a2a0: 20 61 74 74 61 63 68 65 64 20 74 6f 20 74 68 65 attached to the
a2b0: 20 73 6c 6f 74 0a 20 2a 20 20 20 20 20 73 70 65 slot. * spe
a2c0: 63 69 66 69 65 64 2e 20 20 49 74 20 77 69 6c 6c cified. It will
a2d0: 20 72 65 63 6f 6e 6e 65 63 74 20 74 6f 20 74 68 reconnect to th
a2e0: 65 20 63 61 72 64 20 69 66 20 74 68 65 20 63 6f e card if the co
a2f0: 6e 6e 65 63 74 69 6f 6e 0a 20 2a 20 20 20 20 20 nnection. *
a300: 67 6f 65 73 20 61 77 61 79 2e 0a 20 2a 0a 20 2a goes away.. *. *
a310: 2f 0a 73 74 61 74 69 63 20 63 61 63 6b 65 79 5f /.static cackey_
a320: 72 65 74 20 63 61 63 6b 65 79 5f 73 65 6e 64 5f ret cackey_send_
a330: 61 70 64 75 28 73 74 72 75 63 74 20 63 61 63 6b apdu(struct cack
a340: 65 79 5f 73 6c 6f 74 20 2a 73 6c 6f 74 2c 20 75 ey_slot *slot, u
a350: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 63 6c 61 nsigned char cla
a360: 73 73 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 ss, unsigned cha
a370: 72 20 69 6e 73 74 72 75 63 74 69 6f 6e 2c 20 75 r instruction, u
a380: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 70 31 2c nsigned char p1,
a390: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 70 unsigned char p
a3a0: 32 2c 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 2, unsigned int
a3b0: 6c 63 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 lc, unsigned cha
a3c0: 72 20 2a 64 61 74 61 2c 20 75 6e 73 69 67 6e 65 r *data, unsigne
a3d0: 64 20 69 6e 74 20 6c 65 2c 20 75 69 6e 74 31 36 d int le, uint16
a3e0: 5f 74 20 2a 72 65 73 70 63 6f 64 65 2c 20 75 6e _t *respcode, un
a3f0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 72 65 73 signed char *res
a400: 70 64 61 74 61 2c 20 73 69 7a 65 5f 74 20 2a 72 pdata, size_t *r
a410: 65 73 70 64 61 74 61 5f 6c 65 6e 29 20 7b 0a 09 espdata_len) {..
a420: 75 69 6e 74 38 5f 74 20 6d 61 6a 6f 72 5f 72 63 uint8_t major_rc
a430: 2c 20 6d 69 6e 6f 72 5f 72 63 3b 0a 09 73 69 7a , minor_rc;..siz
a440: 65 5f 74 20 62 79 74 65 73 5f 74 6f 5f 63 6f 70 e_t bytes_to_cop
a450: 79 2c 20 74 6d 70 5f 72 65 73 70 64 61 74 61 5f y, tmp_respdata_
a460: 6c 65 6e 3b 0a 09 4c 50 43 53 43 41 52 44 5f 49 len;..LPCSCARD_I
a470: 4f 5f 52 45 51 55 45 53 54 20 70 69 6f 53 65 6e O_REQUEST pioSen
a480: 64 50 63 69 3b 0a 09 53 43 41 52 44 5f 49 4f 5f dPci;..SCARD_IO_
a490: 52 45 51 55 45 53 54 20 70 69 6f 52 65 63 76 50 REQUEST pioRecvP
a4a0: 63 69 3b 0a 09 44 57 4f 52 44 20 78 6d 69 74 5f ci;..DWORD xmit_
a4b0: 6c 65 6e 2c 20 72 65 63 76 5f 6c 65 6e 3b 0a 09 len, recv_len;..
a4c0: 4c 4f 4e 47 20 73 63 61 72 64 5f 78 6d 69 74 5f LONG scard_xmit_
a4d0: 72 65 74 2c 20 73 63 61 72 64 5f 72 65 63 6f 6e ret, scard_recon
a4e0: 6e 5f 72 65 74 3b 0a 09 42 59 54 45 20 78 6d 69 n_ret;..BYTE xmi
a4f0: 74 5f 62 75 66 5b 31 30 32 34 5d 2c 20 72 65 63 t_buf[1024], rec
a500: 76 5f 62 75 66 5b 31 30 32 34 5d 3b 0a 09 69 6e v_buf[1024];..in
a510: 74 20 70 63 73 63 5f 63 6f 6e 6e 65 63 74 5f 72 t pcsc_connect_r
a520: 65 74 2c 20 70 63 73 63 5f 67 65 74 72 65 73 70 et, pcsc_getresp
a530: 5f 72 65 74 3b 0a 09 69 6e 74 20 69 64 78 3b 0a _ret;..int idx;.
a540: 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
a550: 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 RINTF("Called.")
a560: 3b 0a 0a 09 69 66 20 28 21 73 6c 6f 74 29 20 7b ;...if (!slot) {
a570: 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
a580: 50 52 49 4e 54 46 28 22 49 6e 76 61 6c 69 64 20 PRINTF("Invalid
a590: 73 6c 6f 74 20 73 70 65 63 69 66 69 65 64 2e 22 slot specified."
a5a0: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 41 43 );....return(CAC
a5b0: 4b 45 59 5f 50 43 53 43 5f 45 5f 47 45 4e 45 52 KEY_PCSC_E_GENER
a5c0: 49 43 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 72 65 IC);..}...if (re
a5d0: 73 70 63 6f 64 65 29 20 7b 0a 09 09 2a 72 65 73 spcode) {...*res
a5e0: 70 63 6f 64 65 20 3d 20 30 78 66 66 66 66 3b 0a pcode = 0xffff;.
a5f0: 09 7d 0a 0a 09 70 63 73 63 5f 63 6f 6e 6e 65 63 .}...pcsc_connec
a600: 74 5f 72 65 74 20 3d 20 63 61 63 6b 65 79 5f 63 t_ret = cackey_c
a610: 6f 6e 6e 65 63 74 5f 63 61 72 64 28 73 6c 6f 74 onnect_card(slot
a620: 29 3b 0a 09 69 66 20 28 70 63 73 63 5f 63 6f 6e );..if (pcsc_con
a630: 6e 65 63 74 5f 72 65 74 20 21 3d 20 43 41 43 4b nect_ret != CACK
a640: 45 59 5f 50 43 53 43 5f 53 5f 4f 4b 29 20 7b 0a EY_PCSC_S_OK) {.
a650: 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
a660: 52 49 4e 54 46 28 22 55 6e 61 62 6c 65 20 74 6f RINTF("Unable to
a670: 20 63 6f 6e 6e 65 63 74 20 74 6f 20 63 61 72 64 connect to card
a680: 2c 20 72 65 74 75 72 6e 69 6e 67 20 69 6e 20 66 , returning in f
a690: 61 69 6c 75 72 65 22 29 3b 0a 0a 09 09 72 65 74 ailure");....ret
a6a0: 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 5f urn(CACKEY_PCSC_
a6b0: 45 5f 47 45 4e 45 52 49 43 29 3b 0a 09 7d 0a 0a E_GENERIC);..}..
a6c0: 09 2f 2a 20 44 65 74 65 72 6d 69 6e 65 20 77 68 ./* Determine wh
a6d0: 69 63 68 20 70 72 6f 74 6f 63 6f 6c 20 74 6f 20 ich protocol to
a6e0: 73 65 6e 64 20 75 73 69 6e 67 20 2a 2f 0a 09 73 send using */..s
a6f0: 77 69 74 63 68 20 28 73 6c 6f 74 2d 3e 70 72 6f witch (slot->pro
a700: 74 6f 63 6f 6c 29 20 7b 0a 09 09 63 61 73 65 20 tocol) {...case
a710: 53 43 41 52 44 5f 50 52 4f 54 4f 43 4f 4c 5f 54 SCARD_PROTOCOL_T
a720: 30 3a 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 0:....CACKEY_DEB
a730: 55 47 5f 50 52 49 4e 54 46 28 22 50 72 6f 74 6f UG_PRINTF("Proto
a740: 63 6f 6c 20 74 6f 20 73 65 6e 64 20 64 61 74 61 col to send data
a750: 67 72 61 6d 20 69 73 20 54 3d 30 22 29 3b 0a 0a gram is T=0");..
a760: 09 09 09 70 69 6f 53 65 6e 64 50 63 69 20 3d 20 ...pioSendPci =
a770: 53 43 41 52 44 5f 50 43 49 5f 54 30 3b 0a 0a 09 SCARD_PCI_T0;...
a780: 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 ..break;...case
a790: 53 43 41 52 44 5f 50 52 4f 54 4f 43 4f 4c 5f 54 SCARD_PROTOCOL_T
a7a0: 31 3a 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 1:....CACKEY_DEB
a7b0: 55 47 5f 50 52 49 4e 54 46 28 22 50 72 6f 74 6f UG_PRINTF("Proto
a7c0: 63 6f 6c 20 74 6f 20 73 65 6e 64 20 64 61 74 61 col to send data
a7d0: 67 72 61 6d 20 69 73 20 54 3d 31 22 29 3b 0a 0a gram is T=1");..
a7e0: 09 09 09 70 69 6f 53 65 6e 64 50 63 69 20 3d 20 ...pioSendPci =
a7f0: 53 43 41 52 44 5f 50 43 49 5f 54 31 3b 0a 0a 09 SCARD_PCI_T1;...
a800: 09 09 62 72 65 61 6b 3b 0a 09 09 64 65 66 61 75 ..break;...defau
a810: 6c 74 3a 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 lt:....CACKEY_DE
a820: 42 55 47 5f 50 52 49 4e 54 46 28 22 49 6e 76 61 BUG_PRINTF("Inva
a830: 6c 69 64 20 70 72 6f 74 6f 63 6f 6c 20 66 6f 75 lid protocol fou
a840: 6e 64 2c 20 61 62 6f 72 74 69 6e 67 2e 22 29 3b nd, aborting.");
a850: 0a 0a 09 09 09 72 65 74 75 72 6e 28 43 41 43 4b .....return(CACK
a860: 45 59 5f 50 43 53 43 5f 45 5f 47 45 4e 45 52 49 EY_PCSC_E_GENERI
a870: 43 29 3b 0a 09 7d 0a 0a 09 2f 2a 20 54 72 61 6e C);..}.../* Tran
a880: 73 6d 69 74 20 2a 2f 0a 09 78 6d 69 74 5f 6c 65 smit */..xmit_le
a890: 6e 20 3d 20 30 3b 0a 09 78 6d 69 74 5f 62 75 66 n = 0;..xmit_buf
a8a0: 5b 78 6d 69 74 5f 6c 65 6e 2b 2b 5d 20 3d 20 63 [xmit_len++] = c
a8b0: 6c 61 73 73 3b 0a 09 78 6d 69 74 5f 62 75 66 5b lass;..xmit_buf[
a8c0: 78 6d 69 74 5f 6c 65 6e 2b 2b 5d 20 3d 20 69 6e xmit_len++] = in
a8d0: 73 74 72 75 63 74 69 6f 6e 3b 0a 09 78 6d 69 74 struction;..xmit
a8e0: 5f 62 75 66 5b 78 6d 69 74 5f 6c 65 6e 2b 2b 5d _buf[xmit_len++]
a8f0: 20 3d 20 70 31 3b 0a 09 78 6d 69 74 5f 62 75 66 = p1;..xmit_buf
a900: 5b 78 6d 69 74 5f 6c 65 6e 2b 2b 5d 20 3d 20 70 [xmit_len++] = p
a910: 32 3b 0a 09 69 66 20 28 64 61 74 61 29 20 7b 0a 2;..if (data) {.
a920: 09 09 69 66 20 28 6c 63 20 3e 20 32 35 35 29 20 ..if (lc > 255)
a930: 7b 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {....CACKEY_DEBU
a940: 47 5f 50 52 49 4e 54 46 28 22 43 41 55 54 49 4f G_PRINTF("CAUTIO
a950: 4e 21 20 20 55 73 69 6e 67 20 61 6e 20 4c 63 20 N! Using an Lc
a960: 67 72 65 61 74 65 72 20 74 68 61 6e 20 32 35 35 greater than 255
a970: 20 69 73 20 75 6e 74 65 73 74 65 64 2e 20 20 4c is untested. L
a980: 63 20 3d 20 25 75 22 2c 20 6c 63 29 3b 0a 0a 09 c = %u", lc);...
a990: 09 09 78 6d 69 74 5f 62 75 66 5b 78 6d 69 74 5f ..xmit_buf[xmit_
a9a0: 6c 65 6e 2b 2b 5d 20 3d 20 30 78 38 32 3b 20 2f len++] = 0x82; /
a9b0: 2a 20 58 58 58 20 55 4e 54 45 53 54 45 44 20 2a * XXX UNTESTED *
a9c0: 2f 0a 09 09 09 78 6d 69 74 5f 62 75 66 5b 78 6d /....xmit_buf[xm
a9d0: 69 74 5f 6c 65 6e 2b 2b 5d 20 3d 20 28 6c 63 20 it_len++] = (lc
a9e0: 26 20 30 78 66 66 30 30 29 20 3e 3e 20 38 3b 0a & 0xff00) >> 8;.
a9f0: 09 09 09 78 6d 69 74 5f 62 75 66 5b 78 6d 69 74 ...xmit_buf[xmit
aa00: 5f 6c 65 6e 2b 2b 5d 20 3d 20 6c 63 20 26 20 30 _len++] = lc & 0
aa10: 78 66 66 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a xff;...} else {.
aa20: 09 09 09 78 6d 69 74 5f 62 75 66 5b 78 6d 69 74 ...xmit_buf[xmit
aa30: 5f 6c 65 6e 2b 2b 5d 20 3d 20 6c 63 3b 0a 09 09 _len++] = lc;...
aa40: 7d 0a 09 09 66 6f 72 20 28 69 64 78 20 3d 20 30 }...for (idx = 0
aa50: 3b 20 69 64 78 20 3c 20 6c 63 3b 20 69 64 78 2b ; idx < lc; idx+
aa60: 2b 29 20 7b 0a 09 09 09 78 6d 69 74 5f 62 75 66 +) {....xmit_buf
aa70: 5b 78 6d 69 74 5f 6c 65 6e 2b 2b 5d 20 3d 20 64 [xmit_len++] = d
aa80: 61 74 61 5b 69 64 78 5d 3b 0a 09 09 7d 0a 09 7d ata[idx];...}..}
aa90: 0a 0a 09 69 66 20 28 6c 65 20 21 3d 20 30 78 30 ...if (le != 0x0
aaa0: 30 29 20 7b 0a 09 09 69 66 20 28 6c 65 20 3e 20 0) {...if (le >
aab0: 32 35 36 29 20 7b 0a 09 09 09 43 41 43 4b 45 59 256) {....CACKEY
aac0: 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 _DEBUG_PRINTF("C
aad0: 41 55 54 49 4f 4e 21 20 20 55 73 69 6e 67 20 61 AUTION! Using a
aae0: 6e 20 4c 65 20 67 72 65 61 74 65 72 20 74 68 61 n Le greater tha
aaf0: 6e 20 32 35 36 20 69 73 20 75 6e 74 65 73 74 65 n 256 is unteste
ab00: 64 2e 20 20 4c 65 20 3d 20 25 75 22 2c 20 6c 65 d. Le = %u", le
ab10: 29 3b 0a 0a 09 09 09 78 6d 69 74 5f 62 75 66 5b );.....xmit_buf[
ab20: 78 6d 69 74 5f 6c 65 6e 2b 2b 5d 20 3d 20 30 78 xmit_len++] = 0x
ab30: 38 32 3b 20 2f 2a 20 58 58 58 20 55 4e 54 45 53 82; /* XXX UNTES
ab40: 54 45 44 20 2a 2f 0a 09 09 09 78 6d 69 74 5f 62 TED */....xmit_b
ab50: 75 66 5b 78 6d 69 74 5f 6c 65 6e 2b 2b 5d 20 3d uf[xmit_len++] =
ab60: 20 28 6c 65 20 26 20 30 78 66 66 30 30 29 20 3e (le & 0xff00) >
ab70: 3e 20 38 3b 0a 09 09 09 78 6d 69 74 5f 62 75 66 > 8;....xmit_buf
ab80: 5b 78 6d 69 74 5f 6c 65 6e 2b 2b 5d 20 3d 20 6c [xmit_len++] = l
ab90: 65 20 26 20 30 78 66 66 3b 0a 09 09 7d 20 65 6c e & 0xff;...} el
aba0: 73 65 20 69 66 20 28 6c 65 20 3d 3d 20 32 35 36 se if (le == 256
abb0: 29 20 7b 0a 09 09 09 78 6d 69 74 5f 62 75 66 5b ) {....xmit_buf[
abc0: 78 6d 69 74 5f 6c 65 6e 2b 2b 5d 20 3d 20 30 78 xmit_len++] = 0x
abd0: 30 30 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 00;...} else {..
abe0: 09 09 78 6d 69 74 5f 62 75 66 5b 78 6d 69 74 5f ..xmit_buf[xmit_
abf0: 6c 65 6e 2b 2b 5d 20 3d 20 6c 65 3b 0a 09 09 7d len++] = le;...}
ac00: 0a 09 7d 0a 0a 09 2f 2a 20 42 65 67 69 6e 20 53 ..}.../* Begin S
ac10: 6d 61 72 74 63 61 72 64 20 54 72 61 6e 73 61 63 martcard Transac
ac20: 74 69 6f 6e 20 2a 2f 0a 09 63 61 63 6b 65 79 5f tion */..cackey_
ac30: 62 65 67 69 6e 5f 74 72 61 6e 73 61 63 74 69 6f begin_transactio
ac40: 6e 28 73 6c 6f 74 29 3b 0a 0a 09 69 66 20 28 63 n(slot);...if (c
ac50: 6c 61 73 73 20 3d 3d 20 47 53 43 49 53 5f 43 4c lass == GSCIS_CL
ac60: 41 53 53 5f 49 53 4f 37 38 31 36 20 26 26 20 28 ASS_ISO7816 && (
ac70: 69 6e 73 74 72 75 63 74 69 6f 6e 20 3d 3d 20 47 instruction == G
ac80: 53 43 49 53 5f 49 4e 53 54 52 5f 56 45 52 49 46 SCIS_INSTR_VERIF
ac90: 59 20 7c 7c 20 69 6e 73 74 72 75 63 74 69 6f 6e Y || instruction
aca0: 20 3d 3d 20 47 53 43 49 53 5f 49 4e 53 54 52 5f == GSCIS_INSTR_
acb0: 43 48 41 4e 47 45 5f 52 45 46 45 52 45 4e 43 45 CHANGE_REFERENCE
acc0: 29 20 26 26 20 70 31 20 3d 3d 20 30 78 30 30 29 ) && p1 == 0x00)
acd0: 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
ace0: 47 5f 50 52 49 4e 54 46 28 22 53 65 6e 64 69 6e G_PRINTF("Sendin
acf0: 67 20 41 50 44 55 3a 20 3c 3c 63 65 6e 73 6f 72 g APDU: <<censor
ad00: 65 64 3e 3e 22 29 3b 0a 09 7d 20 65 6c 73 65 20 ed>>");..} else
ad10: 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
ad20: 5f 50 52 49 4e 54 42 55 46 28 22 53 65 6e 64 69 _PRINTBUF("Sendi
ad30: 6e 67 20 41 50 44 55 3a 22 2c 20 78 6d 69 74 5f ng APDU:", xmit_
ad40: 62 75 66 2c 20 78 6d 69 74 5f 6c 65 6e 29 3b 0a buf, xmit_len);.
ad50: 09 7d 0a 0a 09 72 65 63 76 5f 6c 65 6e 20 3d 20 .}...recv_len =
ad60: 73 69 7a 65 6f 66 28 72 65 63 76 5f 62 75 66 29 sizeof(recv_buf)
ad70: 3b 0a 09 6d 65 6d 63 70 79 28 26 70 69 6f 52 65 ;..memcpy(&pioRe
ad80: 63 76 50 63 69 2c 20 70 69 6f 53 65 6e 64 50 63 cvPci, pioSendPc
ad90: 69 2c 20 73 69 7a 65 6f 66 28 70 69 6f 52 65 63 i, sizeof(pioRec
ada0: 76 50 63 69 29 29 3b 0a 09 73 63 61 72 64 5f 78 vPci));..scard_x
adb0: 6d 69 74 5f 72 65 74 20 3d 20 53 43 61 72 64 54 mit_ret = SCardT
adc0: 72 61 6e 73 6d 69 74 28 73 6c 6f 74 2d 3e 70 63 ransmit(slot->pc
add0: 73 63 5f 63 61 72 64 2c 20 70 69 6f 53 65 6e 64 sc_card, pioSend
ade0: 50 63 69 2c 20 78 6d 69 74 5f 62 75 66 2c 20 78 Pci, xmit_buf, x
adf0: 6d 69 74 5f 6c 65 6e 2c 20 26 70 69 6f 52 65 63 mit_len, &pioRec
ae00: 76 50 63 69 2c 20 72 65 63 76 5f 62 75 66 2c 20 vPci, recv_buf,
ae10: 26 72 65 63 76 5f 6c 65 6e 29 3b 0a 0a 09 43 41 &recv_len);...CA
ae20: 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
ae30: 46 28 22 53 43 61 72 64 54 72 61 6e 73 6d 69 74 F("SCardTransmit
ae40: 28 29 20 63 6f 6d 70 6c 65 74 65 64 20 77 69 74 () completed wit
ae50: 68 20 76 61 6c 75 65 3a 20 25 73 2f 25 6c 78 22 h value: %s/%lx"
ae60: 2c 20 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 46 , CACKEY_DEBUG_F
ae70: 55 4e 43 5f 53 43 41 52 44 45 52 52 5f 54 4f 5f UNC_SCARDERR_TO_
ae80: 53 54 52 28 73 63 61 72 64 5f 78 6d 69 74 5f 72 STR(scard_xmit_r
ae90: 65 74 29 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c et), (unsigned l
aea0: 6f 6e 67 29 20 73 63 61 72 64 5f 78 6d 69 74 5f ong) scard_xmit_
aeb0: 72 65 74 29 3b 0a 0a 09 69 66 20 28 73 63 61 72 ret);...if (scar
aec0: 64 5f 78 6d 69 74 5f 72 65 74 20 3d 3d 20 53 43 d_xmit_ret == SC
aed0: 41 52 44 5f 45 5f 4e 4f 54 5f 54 52 41 4e 53 41 ARD_E_NOT_TRANSA
aee0: 43 54 45 44 29 20 7b 0a 09 09 43 41 43 4b 45 59 CTED) {...CACKEY
aef0: 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 46 _DEBUG_PRINTF("F
af00: 61 69 6c 65 64 20 74 6f 20 73 65 6e 64 20 41 50 ailed to send AP
af10: 44 55 20 74 6f 20 63 61 72 64 20 28 53 43 61 72 DU to card (SCar
af20: 64 54 72 61 6e 73 6d 69 74 28 29 20 3d 20 25 73 dTransmit() = %s
af30: 2f 25 6c 78 29 2c 20 77 69 6c 6c 20 61 73 6b 20 /%lx), will ask
af40: 63 61 6c 6c 69 6e 67 20 66 75 6e 63 74 69 6f 6e calling function
af50: 20 74 6f 20 72 65 74 72 79 20 28 6e 6f 74 20 72 to retry (not r
af60: 65 73 65 74 74 69 6e 67 20 63 61 72 64 29 2e 2e esetting card)..
af70: 2e 22 2c 20 43 41 43 4b 45 59 5f 44 45 42 55 47 .", CACKEY_DEBUG
af80: 5f 46 55 4e 43 5f 53 43 41 52 44 45 52 52 5f 54 _FUNC_SCARDERR_T
af90: 4f 5f 53 54 52 28 73 63 61 72 64 5f 78 6d 69 74 O_STR(scard_xmit
afa0: 5f 72 65 74 29 2c 20 28 75 6e 73 69 67 6e 65 64 _ret), (unsigned
afb0: 20 6c 6f 6e 67 29 20 73 63 61 72 64 5f 78 6d 69 long) scard_xmi
afc0: 74 5f 72 65 74 29 3b 0a 0a 09 09 2f 2a 20 45 6e t_ret);..../* En
afd0: 64 20 53 6d 61 72 74 63 61 72 64 20 54 72 61 6e d Smartcard Tran
afe0: 73 61 63 74 69 6f 6e 20 2a 2f 0a 09 09 63 61 63 saction */...cac
aff0: 6b 65 79 5f 65 6e 64 5f 74 72 61 6e 73 61 63 74 key_end_transact
b000: 69 6f 6e 28 73 6c 6f 74 29 3b 0a 0a 09 09 63 61 ion(slot);....ca
b010: 63 6b 65 79 5f 72 65 63 6f 6e 6e 65 63 74 5f 63 ckey_reconnect_c
b020: 61 72 64 28 73 6c 6f 74 2c 20 73 6c 6f 74 2d 3e ard(slot, slot->
b030: 70 72 6f 74 6f 63 6f 6c 29 3b 0a 0a 09 09 72 65 protocol);....re
b040: 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 turn(CACKEY_PCSC
b050: 5f 45 5f 52 45 54 52 59 29 3b 0a 09 7d 0a 0a 09 _E_RETRY);..}...
b060: 69 66 20 28 73 63 61 72 64 5f 78 6d 69 74 5f 72 if (scard_xmit_r
b070: 65 74 20 3d 3d 20 53 43 41 52 44 5f 45 5f 4e 4f et == SCARD_E_NO
b080: 5f 53 45 52 56 49 43 45 29 20 7b 0a 09 09 43 41 _SERVICE) {...CA
b090: 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
b0a0: 46 28 22 46 61 69 6c 65 64 20 74 6f 20 73 65 6e F("Failed to sen
b0b0: 64 20 41 50 44 55 20 74 6f 20 63 61 72 64 2c 20 d APDU to card,
b0c0: 70 6f 73 73 69 62 6c 79 20 64 75 65 20 74 6f 20 possibly due to
b0d0: 50 43 2f 53 43 20 68 61 6e 64 6c 65 20 62 65 69 PC/SC handle bei
b0e0: 6e 67 20 69 6e 76 61 6c 69 64 20 28 53 43 61 72 ng invalid (SCar
b0f0: 64 54 72 61 6e 73 6d 69 74 28 29 20 3d 20 25 73 dTransmit() = %s
b100: 2f 25 6c 78 29 2c 20 77 69 6c 6c 20 61 73 6b 20 /%lx), will ask
b110: 63 61 6c 6c 69 6e 67 20 66 75 6e 63 74 69 6f 6e calling function
b120: 20 74 6f 20 72 65 74 72 79 2e 2e 2e 22 2c 20 43 to retry...", C
b130: 41 43 4b 45 59 5f 44 45 42 55 47 5f 46 55 4e 43 ACKEY_DEBUG_FUNC
b140: 5f 53 43 41 52 44 45 52 52 5f 54 4f 5f 53 54 52 _SCARDERR_TO_STR
b150: 28 73 63 61 72 64 5f 78 6d 69 74 5f 72 65 74 29 (scard_xmit_ret)
b160: 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 , (unsigned long
b170: 29 20 73 63 61 72 64 5f 78 6d 69 74 5f 72 65 74 ) scard_xmit_ret
b180: 29 3b 0a 0a 09 09 63 61 63 6b 65 79 5f 6d 61 72 );....cackey_mar
b190: 6b 5f 73 6c 6f 74 5f 72 65 73 65 74 28 73 6c 6f k_slot_reset(slo
b1a0: 74 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 41 t);....return(CA
b1b0: 43 4b 45 59 5f 50 43 53 43 5f 45 5f 52 45 54 52 CKEY_PCSC_E_RETR
b1c0: 59 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 73 63 61 Y);..}...if (sca
b1d0: 72 64 5f 78 6d 69 74 5f 72 65 74 20 21 3d 20 53 rd_xmit_ret != S
b1e0: 43 41 52 44 5f 53 5f 53 55 43 43 45 53 53 29 20 CARD_S_SUCCESS)
b1f0: 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
b200: 5f 50 52 49 4e 54 46 28 22 46 61 69 6c 65 64 20 _PRINTF("Failed
b210: 74 6f 20 73 65 6e 64 20 41 50 44 55 20 74 6f 20 to send APDU to
b220: 63 61 72 64 20 28 53 43 61 72 64 54 72 61 6e 73 card (SCardTrans
b230: 6d 69 74 28 29 20 3d 20 25 73 2f 25 6c 78 29 22 mit() = %s/%lx)"
b240: 2c 20 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 46 , CACKEY_DEBUG_F
b250: 55 4e 43 5f 53 43 41 52 44 45 52 52 5f 54 4f 5f UNC_SCARDERR_TO_
b260: 53 54 52 28 73 63 61 72 64 5f 78 6d 69 74 5f 72 STR(scard_xmit_r
b270: 65 74 29 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c et), (unsigned l
b280: 6f 6e 67 29 20 73 63 61 72 64 5f 78 6d 69 74 5f ong) scard_xmit_
b290: 72 65 74 29 3b 0a 0a 09 09 43 41 43 4b 45 59 5f ret);....CACKEY_
b2a0: 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 4d 61 DEBUG_PRINTF("Ma
b2b0: 72 6b 69 6e 67 20 73 6c 6f 74 20 61 73 20 68 61 rking slot as ha
b2c0: 76 69 6e 67 20 62 65 65 6e 20 72 65 73 65 74 22 ving been reset"
b2d0: 29 3b 0a 09 09 63 61 63 6b 65 79 5f 6d 61 72 6b );...cackey_mark
b2e0: 5f 73 6c 6f 74 5f 72 65 73 65 74 28 73 6c 6f 74 _slot_reset(slot
b2f0: 29 3b 0a 0a 09 09 69 66 20 28 73 63 61 72 64 5f );....if (scard_
b300: 78 6d 69 74 5f 72 65 74 20 3d 3d 20 53 43 41 52 xmit_ret == SCAR
b310: 44 5f 57 5f 52 45 53 45 54 5f 43 41 52 44 29 20 D_W_RESET_CARD)
b320: 7b 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {....CACKEY_DEBU
b330: 47 5f 50 52 49 4e 54 46 28 22 52 65 73 65 74 20 G_PRINTF("Reset
b340: 72 65 71 75 69 72 65 64 2c 20 70 6c 65 61 73 65 required, please
b350: 20 68 6f 6c 64 2e 2e 2e 22 29 3b 0a 0a 09 09 09 hold...");.....
b360: 73 63 61 72 64 5f 72 65 63 6f 6e 6e 5f 72 65 74 scard_reconn_ret
b370: 20 3d 20 63 61 63 6b 65 79 5f 72 65 63 6f 6e 6e = cackey_reconn
b380: 65 63 74 5f 63 61 72 64 28 73 6c 6f 74 2c 20 53 ect_card(slot, S
b390: 43 41 52 44 5f 50 52 4f 54 4f 43 4f 4c 5f 54 30 CARD_PROTOCOL_T0
b3a0: 20 7c 20 53 43 41 52 44 5f 50 52 4f 54 4f 43 4f | SCARD_PROTOCO
b3b0: 4c 5f 54 31 29 3b 0a 0a 09 09 09 69 66 20 28 73 L_T1);.....if (s
b3c0: 63 61 72 64 5f 72 65 63 6f 6e 6e 5f 72 65 74 20 card_reconn_ret
b3d0: 3d 3d 20 53 43 41 52 44 5f 53 5f 53 55 43 43 45 == SCARD_S_SUCCE
b3e0: 53 53 29 20 7b 0a 09 09 09 09 73 77 69 74 63 68 SS) {.....switch
b3f0: 20 28 73 6c 6f 74 2d 3e 70 72 6f 74 6f 63 6f 6c (slot->protocol
b400: 29 20 7b 0a 09 09 09 09 09 63 61 73 65 20 53 43 ) {......case SC
b410: 41 52 44 5f 50 52 4f 54 4f 43 4f 4c 5f 54 30 3a ARD_PROTOCOL_T0:
b420: 0a 09 09 09 09 09 09 70 69 6f 53 65 6e 64 50 63 .......pioSendPc
b430: 69 20 3d 20 53 43 41 52 44 5f 50 43 49 5f 54 30 i = SCARD_PCI_T0
b440: 3b 0a 0a 09 09 09 09 09 09 62 72 65 61 6b 3b 0a ;........break;.
b450: 09 09 09 09 09 63 61 73 65 20 53 43 41 52 44 5f .....case SCARD_
b460: 50 52 4f 54 4f 43 4f 4c 5f 54 31 3a 0a 09 09 09 PROTOCOL_T1:....
b470: 09 09 09 70 69 6f 53 65 6e 64 50 63 69 20 3d 20 ...pioSendPci =
b480: 53 43 41 52 44 5f 50 43 49 5f 54 31 3b 0a 0a 09 SCARD_PCI_T1;...
b490: 09 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 .....break;.....
b4a0: 09 64 65 66 61 75 6c 74 3a 0a 09 09 09 09 09 09 .default:.......
b4b0: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
b4c0: 4e 54 46 28 22 49 6e 76 61 6c 69 64 20 70 72 6f NTF("Invalid pro
b4d0: 74 6f 63 6f 6c 20 66 6f 75 6e 64 2c 20 62 75 74 tocol found, but
b4e0: 20 74 6f 6f 20 6c 61 74 65 20 74 6f 20 64 6f 20 too late to do
b4f0: 61 6e 79 74 68 69 6e 67 20 61 62 6f 75 74 20 69 anything about i
b500: 74 20 6e 6f 77 20 2d 2d 20 74 72 79 69 6e 67 20 t now -- trying
b510: 61 6e 79 77 61 79 2e 22 29 3b 0a 0a 09 09 09 09 anyway.");......
b520: 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 7d 0a 0a ..break;.....}..
b530: 09 09 09 09 2f 2a 20 52 65 2d 65 73 74 61 62 6c ..../* Re-establ
b540: 69 73 68 20 74 72 61 6e 73 61 63 74 69 6f 6e 2c ish transaction,
b550: 20 69 66 20 69 74 20 77 61 73 20 70 72 65 73 65 if it was prese
b560: 6e 74 20 2a 2f 0a 09 09 09 09 69 66 20 28 73 6c nt */.....if (sl
b570: 6f 74 2d 3e 74 72 61 6e 73 61 63 74 69 6f 6e 5f ot->transaction_
b580: 64 65 70 74 68 20 3e 20 30 29 20 7b 0a 09 09 09 depth > 0) {....
b590: 09 09 73 6c 6f 74 2d 3e 74 72 61 6e 73 61 63 74 ..slot->transact
b5a0: 69 6f 6e 5f 64 65 70 74 68 2d 2d 3b 0a 09 09 09 ion_depth--;....
b5b0: 09 09 73 6c 6f 74 2d 3e 74 72 61 6e 73 61 63 74 ..slot->transact
b5c0: 69 6f 6e 5f 6e 65 65 64 5f 68 77 5f 6c 6f 63 6b ion_need_hw_lock
b5d0: 20 3d 20 31 3b 0a 09 09 09 09 09 63 61 63 6b 65 = 1;......cacke
b5e0: 79 5f 62 65 67 69 6e 5f 74 72 61 6e 73 61 63 74 y_begin_transact
b5f0: 69 6f 6e 28 73 6c 6f 74 29 3b 0a 09 09 09 09 7d ion(slot);.....}
b600: 0a 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 ......CACKEY_DEB
b610: 55 47 5f 50 52 49 4e 54 46 28 22 52 65 73 65 74 UG_PRINTF("Reset
b620: 20 73 75 63 63 65 73 73 66 75 6c 2c 20 72 65 74 successful, ret
b630: 72 61 6e 73 6d 69 74 74 69 6e 67 22 29 3b 0a 0a ransmitting");..
b640: 09 09 09 09 72 65 63 76 5f 6c 65 6e 20 3d 20 73 ....recv_len = s
b650: 69 7a 65 6f 66 28 72 65 63 76 5f 62 75 66 29 3b izeof(recv_buf);
b660: 0a 09 09 09 09 6d 65 6d 63 70 79 28 26 70 69 6f .....memcpy(&pio
b670: 52 65 63 76 50 63 69 2c 20 70 69 6f 53 65 6e 64 RecvPci, pioSend
b680: 50 63 69 2c 20 73 69 7a 65 6f 66 28 70 69 6f 52 Pci, sizeof(pioR
b690: 65 63 76 50 63 69 29 29 3b 0a 09 09 09 09 73 63 ecvPci));.....sc
b6a0: 61 72 64 5f 78 6d 69 74 5f 72 65 74 20 3d 20 53 ard_xmit_ret = S
b6b0: 43 61 72 64 54 72 61 6e 73 6d 69 74 28 73 6c 6f CardTransmit(slo
b6c0: 74 2d 3e 70 63 73 63 5f 63 61 72 64 2c 20 70 69 t->pcsc_card, pi
b6d0: 6f 53 65 6e 64 50 63 69 2c 20 78 6d 69 74 5f 62 oSendPci, xmit_b
b6e0: 75 66 2c 20 78 6d 69 74 5f 6c 65 6e 2c 20 26 70 uf, xmit_len, &p
b6f0: 69 6f 52 65 63 76 50 63 69 2c 20 72 65 63 76 5f ioRecvPci, recv_
b700: 62 75 66 2c 20 26 72 65 63 76 5f 6c 65 6e 29 3b buf, &recv_len);
b710: 0a 0a 09 09 09 09 69 66 20 28 73 63 61 72 64 5f ......if (scard_
b720: 78 6d 69 74 5f 72 65 74 20 21 3d 20 53 43 41 52 xmit_ret != SCAR
b730: 44 5f 53 5f 53 55 43 43 45 53 53 29 20 7b 0a 09 D_S_SUCCESS) {..
b740: 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
b750: 5f 50 52 49 4e 54 46 28 22 52 65 74 72 61 6e 73 _PRINTF("Retrans
b760: 6d 69 74 20 66 61 69 6c 65 64 2c 20 72 65 74 75 mit failed, retu
b770: 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 65 rning in failure
b780: 20 61 66 74 65 72 20 64 69 73 63 6f 6e 6e 65 63 after disconnec
b790: 74 69 6e 67 20 74 68 65 20 63 61 72 64 20 28 53 ting the card (S
b7a0: 43 61 72 64 54 72 61 6e 73 6d 69 74 20 3d 20 25 CardTransmit = %
b7b0: 73 2f 25 6c 69 29 22 2c 20 43 41 43 4b 45 59 5f s/%li)", CACKEY_
b7c0: 44 45 42 55 47 5f 46 55 4e 43 5f 53 43 41 52 44 DEBUG_FUNC_SCARD
b7d0: 45 52 52 5f 54 4f 5f 53 54 52 28 73 63 61 72 64 ERR_TO_STR(scard
b7e0: 5f 78 6d 69 74 5f 72 65 74 29 2c 20 28 6c 6f 6e _xmit_ret), (lon
b7f0: 67 29 20 73 63 61 72 64 5f 78 6d 69 74 5f 72 65 g) scard_xmit_re
b800: 74 29 3b 0a 0a 09 09 09 09 09 53 43 61 72 64 44 t);.......SCardD
b810: 69 73 63 6f 6e 6e 65 63 74 28 73 6c 6f 74 2d 3e isconnect(slot->
b820: 70 63 73 63 5f 63 61 72 64 2c 20 53 43 41 52 44 pcsc_card, SCARD
b830: 5f 4c 45 41 56 45 5f 43 41 52 44 29 3b 0a 09 09 _LEAVE_CARD);...
b840: 09 09 09 73 6c 6f 74 2d 3e 70 63 73 63 5f 63 61 ...slot->pcsc_ca
b850: 72 64 5f 63 6f 6e 6e 65 63 74 65 64 20 3d 20 30 rd_connected = 0
b860: 3b 0a 0a 09 09 09 09 09 2f 2a 20 45 6e 64 20 53 ;......./* End S
b870: 6d 61 72 74 63 61 72 64 20 54 72 61 6e 73 61 63 martcard Transac
b880: 74 69 6f 6e 20 2a 2f 0a 09 09 09 09 09 73 6c 6f tion */......slo
b890: 74 2d 3e 74 72 61 6e 73 61 63 74 69 6f 6e 5f 64 t->transaction_d
b8a0: 65 70 74 68 20 3d 20 31 3b 0a 09 09 09 09 09 63 epth = 1;......c
b8b0: 61 63 6b 65 79 5f 65 6e 64 5f 74 72 61 6e 73 61 ackey_end_transa
b8c0: 63 74 69 6f 6e 28 73 6c 6f 74 29 3b 0a 0a 09 09 ction(slot);....
b8d0: 09 09 09 72 65 74 75 72 6e 28 43 41 43 4b 45 59 ...return(CACKEY
b8e0: 5f 50 43 53 43 5f 45 5f 54 4f 4b 45 4e 41 42 53 _PCSC_E_TOKENABS
b8f0: 45 4e 54 29 3b 0a 09 09 09 09 7d 0a 09 09 09 7d ENT);.....}....}
b900: 20 65 6c 73 65 20 7b 0a 09 09 09 09 43 41 43 4b else {.....CACK
b910: 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
b920: 22 44 69 73 63 6f 6e 6e 65 63 74 69 6e 67 20 63 "Disconnecting c
b930: 61 72 64 22 29 3b 0a 0a 09 09 09 09 53 43 61 72 ard");......SCar
b940: 64 44 69 73 63 6f 6e 6e 65 63 74 28 73 6c 6f 74 dDisconnect(slot
b950: 2d 3e 70 63 73 63 5f 63 61 72 64 2c 20 53 43 41 ->pcsc_card, SCA
b960: 52 44 5f 4c 45 41 56 45 5f 43 41 52 44 29 3b 0a RD_LEAVE_CARD);.
b970: 09 09 09 09 73 6c 6f 74 2d 3e 70 63 73 63 5f 63 ....slot->pcsc_c
b980: 61 72 64 5f 63 6f 6e 6e 65 63 74 65 64 20 3d 20 ard_connected =
b990: 30 3b 0a 0a 09 09 09 09 2f 2a 20 45 6e 64 20 53 0;....../* End S
b9a0: 6d 61 72 74 63 61 72 64 20 54 72 61 6e 73 61 63 martcard Transac
b9b0: 74 69 6f 6e 20 2a 2f 0a 09 09 09 09 73 6c 6f 74 tion */.....slot
b9c0: 2d 3e 74 72 61 6e 73 61 63 74 69 6f 6e 5f 64 65 ->transaction_de
b9d0: 70 74 68 20 3d 20 31 3b 0a 09 09 09 09 63 61 63 pth = 1;.....cac
b9e0: 6b 65 79 5f 65 6e 64 5f 74 72 61 6e 73 61 63 74 key_end_transact
b9f0: 69 6f 6e 28 73 6c 6f 74 29 3b 0a 0a 09 09 09 09 ion(slot);......
ba00: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
ba10: 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 69 NTF("Returning i
ba20: 6e 20 66 61 69 6c 75 72 65 22 29 3b 0a 09 09 09 n failure");....
ba30: 09 72 65 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 .return(CACKEY_P
ba40: 43 53 43 5f 45 5f 54 4f 4b 45 4e 41 42 53 45 4e CSC_E_TOKENABSEN
ba50: 54 29 3b 0a 09 09 09 7d 0a 09 09 7d 20 65 6c 73 T);....}...} els
ba60: 65 20 7b 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 e {....CACKEY_DE
ba70: 42 55 47 5f 50 52 49 4e 54 46 28 22 44 69 73 63 BUG_PRINTF("Disc
ba80: 6f 6e 6e 65 63 74 69 6e 67 20 63 61 72 64 22 29 onnecting card")
ba90: 3b 0a 0a 09 09 09 53 43 61 72 64 44 69 73 63 6f ;.....SCardDisco
baa0: 6e 6e 65 63 74 28 73 6c 6f 74 2d 3e 70 63 73 63 nnect(slot->pcsc
bab0: 5f 63 61 72 64 2c 20 53 43 41 52 44 5f 4c 45 41 _card, SCARD_LEA
bac0: 56 45 5f 43 41 52 44 29 3b 0a 09 09 09 73 6c 6f VE_CARD);....slo
bad0: 74 2d 3e 70 63 73 63 5f 63 61 72 64 5f 63 6f 6e t->pcsc_card_con
bae0: 6e 65 63 74 65 64 20 3d 20 30 3b 0a 0a 09 09 09 nected = 0;.....
baf0: 2f 2a 20 45 6e 64 20 53 6d 61 72 74 63 61 72 64 /* End Smartcard
bb00: 20 54 72 61 6e 73 61 63 74 69 6f 6e 20 2a 2f 0a Transaction */.
bb10: 09 09 09 73 6c 6f 74 2d 3e 74 72 61 6e 73 61 63 ...slot->transac
bb20: 74 69 6f 6e 5f 64 65 70 74 68 20 3d 20 31 3b 0a tion_depth = 1;.
bb30: 09 09 09 63 61 63 6b 65 79 5f 65 6e 64 5f 74 72 ...cackey_end_tr
bb40: 61 6e 73 61 63 74 69 6f 6e 28 73 6c 6f 74 29 3b ansaction(slot);
bb50: 0a 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 .....CACKEY_DEBU
bb60: 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e G_PRINTF("Return
bb70: 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 65 22 29 ing in failure")
bb80: 3b 0a 09 09 09 72 65 74 75 72 6e 28 43 41 43 4b ;....return(CACK
bb90: 45 59 5f 50 43 53 43 5f 45 5f 54 4f 4b 45 4e 41 EY_PCSC_E_TOKENA
bba0: 42 53 45 4e 54 29 3b 0a 09 09 7d 0a 09 7d 0a 0a BSENT);...}..}..
bbb0: 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
bbc0: 49 4e 54 42 55 46 28 22 52 65 74 75 72 6e 65 64 INTBUF("Returned
bbd0: 20 56 61 6c 75 65 3a 22 2c 20 72 65 63 76 5f 62 Value:", recv_b
bbe0: 75 66 2c 20 72 65 63 76 5f 6c 65 6e 29 3b 0a 0a uf, recv_len);..
bbf0: 09 69 66 20 28 72 65 63 76 5f 6c 65 6e 20 3c 20 .if (recv_len <
bc00: 32 29 20 7b 0a 09 09 2f 2a 20 4d 69 6e 69 6d 61 2) {.../* Minima
bc10: 6c 20 72 65 73 70 6f 6e 73 65 20 6c 65 6e 67 74 l response lengt
bc20: 68 20 69 73 20 32 20 62 79 74 65 73 2c 20 72 65 h is 2 bytes, re
bc30: 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 turning in failu
bc40: 72 65 20 2a 2f 0a 09 09 43 41 43 4b 45 59 5f 44 re */...CACKEY_D
bc50: 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 73 EBUG_PRINTF("Res
bc60: 70 6f 6e 73 65 20 74 6f 6f 20 73 6d 61 6c 6c 2c ponse too small,
bc70: 20 72 65 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 returning in fa
bc80: 69 6c 75 72 65 20 28 72 65 63 76 5f 6c 65 6e 20 ilure (recv_len
bc90: 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e = %lu)", (unsign
bca0: 65 64 20 6c 6f 6e 67 29 20 72 65 63 76 5f 6c 65 ed long) recv_le
bcb0: 6e 29 3b 0a 0a 09 09 2f 2a 20 45 6e 64 20 53 6d n);..../* End Sm
bcc0: 61 72 74 63 61 72 64 20 54 72 61 6e 73 61 63 74 artcard Transact
bcd0: 69 6f 6e 20 2a 2f 0a 09 09 63 61 63 6b 65 79 5f ion */...cackey_
bce0: 65 6e 64 5f 74 72 61 6e 73 61 63 74 69 6f 6e 28 end_transaction(
bcf0: 73 6c 6f 74 29 3b 0a 0a 09 09 2f 2a 20 53 75 70 slot);..../* Sup
bd00: 70 6c 79 20 61 6e 20 69 6e 76 61 6c 69 64 20 72 ply an invalid r
bd10: 65 73 70 6f 6e 73 65 20 63 6f 64 65 20 2a 2f 0a esponse code */.
bd20: 09 09 69 66 20 28 72 65 73 70 63 6f 64 65 29 20 ..if (respcode)
bd30: 7b 0a 09 09 09 2a 72 65 73 70 63 6f 64 65 20 3d {....*respcode =
bd40: 20 30 3b 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 0;...}....retur
bd50: 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f n(CACKEY_PCSC_E_
bd60: 4e 4f 44 41 54 41 29 3b 0a 09 7d 0a 0a 09 2f 2a NODATA);..}.../*
bd70: 20 44 65 74 65 72 6d 69 6e 65 20 72 65 73 75 6c Determine resul
bd80: 74 20 63 6f 64 65 20 2a 2f 0a 09 6d 61 6a 6f 72 t code */..major
bd90: 5f 72 63 20 3d 20 72 65 63 76 5f 62 75 66 5b 72 _rc = recv_buf[r
bda0: 65 63 76 5f 6c 65 6e 20 2d 20 32 5d 3b 0a 09 6d ecv_len - 2];..m
bdb0: 69 6e 6f 72 5f 72 63 20 3d 20 72 65 63 76 5f 62 inor_rc = recv_b
bdc0: 75 66 5b 72 65 63 76 5f 6c 65 6e 20 2d 20 31 5d uf[recv_len - 1]
bdd0: 3b 0a 09 69 66 20 28 72 65 73 70 63 6f 64 65 29 ;..if (respcode)
bde0: 20 7b 0a 09 09 2a 72 65 73 70 63 6f 64 65 20 3d {...*respcode =
bdf0: 20 28 6d 61 6a 6f 72 5f 72 63 20 3c 3c 20 38 29 (major_rc << 8)
be00: 20 7c 20 6d 69 6e 6f 72 5f 72 63 3b 0a 09 7d 0a | minor_rc;..}.
be10: 0a 09 2f 2a 20 41 64 6a 75 73 74 20 6d 65 73 73 ../* Adjust mess
be20: 61 67 65 20 62 75 66 66 65 72 20 2a 2f 0a 09 72 age buffer */..r
be30: 65 63 76 5f 6c 65 6e 20 2d 3d 20 32 3b 0a 0a 09 ecv_len -= 2;...
be40: 2f 2a 20 41 64 64 20 62 79 74 65 73 20 74 6f 20 /* Add bytes to
be50: 72 65 74 75 72 6e 20 76 61 6c 75 65 20 2a 2f 0a return value */.
be60: 09 74 6d 70 5f 72 65 73 70 64 61 74 61 5f 6c 65 .tmp_respdata_le
be70: 6e 20 3d 20 30 3b 0a 09 69 66 20 28 72 65 73 70 n = 0;..if (resp
be80: 64 61 74 61 20 26 26 20 72 65 73 70 64 61 74 61 data && respdata
be90: 5f 6c 65 6e 29 20 7b 0a 09 09 74 6d 70 5f 72 65 _len) {...tmp_re
bea0: 73 70 64 61 74 61 5f 6c 65 6e 20 3d 20 2a 72 65 spdata_len = *re
beb0: 73 70 64 61 74 61 5f 6c 65 6e 3b 0a 0a 09 09 62 spdata_len;....b
bec0: 79 74 65 73 5f 74 6f 5f 63 6f 70 79 20 3d 20 2a ytes_to_copy = *
bed0: 72 65 73 70 64 61 74 61 5f 6c 65 6e 3b 0a 0a 09 respdata_len;...
bee0: 09 69 66 20 28 72 65 63 76 5f 6c 65 6e 20 3c 20 .if (recv_len <
bef0: 62 79 74 65 73 5f 74 6f 5f 63 6f 70 79 29 20 7b bytes_to_copy) {
bf00: 0a 09 09 09 62 79 74 65 73 5f 74 6f 5f 63 6f 70 ....bytes_to_cop
bf10: 79 20 3d 20 72 65 63 76 5f 6c 65 6e 3b 0a 09 09 y = recv_len;...
bf20: 7d 0a 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 }....CACKEY_DEBU
bf30: 47 5f 50 52 49 4e 54 46 28 22 43 6f 70 79 69 6e G_PRINTF("Copyin
bf40: 67 20 25 6c 75 20 62 79 74 65 73 20 74 6f 20 74 g %lu bytes to t
bf50: 68 65 20 62 75 66 66 65 72 20 28 72 65 63 76 27 he buffer (recv'
bf60: 64 20 25 6c 75 20 62 79 74 65 73 2c 20 62 75 74 d %lu bytes, but
bf70: 20 6f 6e 6c 79 20 25 6c 75 20 62 79 74 65 73 20 only %lu bytes
bf80: 6c 65 66 74 20 69 6e 20 6f 75 72 20 62 75 66 66 left in our buff
bf90: 65 72 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 er)", (unsigned
bfa0: 6c 6f 6e 67 29 20 62 79 74 65 73 5f 74 6f 5f 63 long) bytes_to_c
bfb0: 6f 70 79 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c opy, (unsigned l
bfc0: 6f 6e 67 29 20 72 65 63 76 5f 6c 65 6e 2c 20 28 ong) recv_len, (
bfd0: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 2a unsigned long) *
bfe0: 72 65 73 70 64 61 74 61 5f 6c 65 6e 29 3b 0a 0a respdata_len);..
bff0: 09 09 6d 65 6d 63 70 79 28 72 65 73 70 64 61 74 ..memcpy(respdat
c000: 61 2c 20 72 65 63 76 5f 62 75 66 2c 20 62 79 74 a, recv_buf, byt
c010: 65 73 5f 74 6f 5f 63 6f 70 79 29 3b 0a 09 09 72 es_to_copy);...r
c020: 65 73 70 64 61 74 61 20 2b 3d 20 62 79 74 65 73 espdata += bytes
c030: 5f 74 6f 5f 63 6f 70 79 3b 0a 0a 09 09 2a 72 65 _to_copy;....*re
c040: 73 70 64 61 74 61 5f 6c 65 6e 20 3d 20 62 79 74 spdata_len = byt
c050: 65 73 5f 74 6f 5f 63 6f 70 79 3b 0a 09 09 74 6d es_to_copy;...tm
c060: 70 5f 72 65 73 70 64 61 74 61 5f 6c 65 6e 20 2d p_respdata_len -
c070: 3d 20 62 79 74 65 73 5f 74 6f 5f 63 6f 70 79 3b = bytes_to_copy;
c080: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 69 66 20 ..} else {...if
c090: 28 72 65 63 76 5f 6c 65 6e 20 21 3d 20 30 29 20 (recv_len != 0)
c0a0: 7b 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {....CACKEY_DEBU
c0b0: 47 5f 50 52 49 4e 54 46 28 22 54 68 72 6f 77 69 G_PRINTF("Throwi
c0c0: 6e 67 20 61 77 61 79 20 25 6c 75 20 62 79 74 65 ng away %lu byte
c0d0: 73 2c 20 6e 6f 77 68 65 72 65 20 74 6f 20 70 75 s, nowhere to pu
c0e0: 74 20 74 68 65 6d 21 22 2c 20 28 75 6e 73 69 67 t them!", (unsig
c0f0: 6e 65 64 20 6c 6f 6e 67 29 20 72 65 63 76 5f 6c ned long) recv_l
c100: 65 6e 29 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 69 66 en);...}..}...if
c110: 20 28 6d 61 6a 6f 72 5f 72 63 20 3d 3d 20 30 78 (major_rc == 0x
c120: 36 31 29 20 7b 0a 09 09 2f 2a 20 57 65 20 6e 65 61) {.../* We ne
c130: 65 64 20 74 6f 20 52 45 41 44 20 2a 2f 0a 09 09 ed to READ */...
c140: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
c150: 4e 54 46 28 22 42 75 66 66 65 72 20 72 65 61 64 NTF("Buffer read
c160: 20 72 65 71 75 69 72 65 64 22 29 3b 0a 0a 09 09 required");....
c170: 69 66 20 28 6d 69 6e 6f 72 5f 72 63 20 3d 3d 20 if (minor_rc ==
c180: 30 78 30 30 29 20 7b 0a 09 09 09 6d 69 6e 6f 72 0x00) {....minor
c190: 5f 72 63 20 3d 20 43 41 43 4b 45 59 5f 41 50 44 _rc = CACKEY_APD
c1a0: 55 5f 4d 54 55 3b 0a 09 09 7d 0a 0a 09 09 70 63 U_MTU;...}....pc
c1b0: 73 63 5f 67 65 74 72 65 73 70 5f 72 65 74 20 3d sc_getresp_ret =
c1c0: 20 63 61 63 6b 65 79 5f 73 65 6e 64 5f 61 70 64 cackey_send_apd
c1d0: 75 28 73 6c 6f 74 2c 20 47 53 43 49 53 5f 43 4c u(slot, GSCIS_CL
c1e0: 41 53 53 5f 49 53 4f 37 38 31 36 2c 20 47 53 43 ASS_ISO7816, GSC
c1f0: 49 53 5f 49 4e 53 54 52 5f 47 45 54 5f 52 45 53 IS_INSTR_GET_RES
c200: 50 4f 4e 53 45 2c 20 30 78 30 30 2c 20 30 78 30 PONSE, 0x00, 0x0
c210: 30 2c 20 30 2c 20 4e 55 4c 4c 2c 20 6d 69 6e 6f 0, 0, NULL, mino
c220: 72 5f 72 63 2c 20 72 65 73 70 63 6f 64 65 2c 20 r_rc, respcode,
c230: 72 65 73 70 64 61 74 61 2c 20 26 74 6d 70 5f 72 respdata, &tmp_r
c240: 65 73 70 64 61 74 61 5f 6c 65 6e 29 3b 0a 0a 09 espdata_len);...
c250: 09 69 66 20 28 70 63 73 63 5f 67 65 74 72 65 73 .if (pcsc_getres
c260: 70 5f 72 65 74 20 21 3d 20 43 41 43 4b 45 59 5f p_ret != CACKEY_
c270: 50 43 53 43 5f 53 5f 4f 4b 29 20 7b 0a 09 09 09 PCSC_S_OK) {....
c280: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
c290: 4e 54 46 28 22 42 75 66 66 65 72 20 72 65 61 64 NTF("Buffer read
c2a0: 20 66 61 69 6c 65 64 21 20 20 52 65 74 75 72 6e failed! Return
c2b0: 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 65 22 29 ing in failure")
c2c0: 3b 0a 0a 09 09 09 2f 2a 20 45 6e 64 20 53 6d 61 ;...../* End Sma
c2d0: 72 74 63 61 72 64 20 54 72 61 6e 73 61 63 74 69 rtcard Transacti
c2e0: 6f 6e 20 2a 2f 0a 09 09 09 63 61 63 6b 65 79 5f on */....cackey_
c2f0: 65 6e 64 5f 74 72 61 6e 73 61 63 74 69 6f 6e 28 end_transaction(
c300: 73 6c 6f 74 29 3b 0a 0a 09 09 09 69 66 20 28 70 slot);.....if (p
c310: 63 73 63 5f 67 65 74 72 65 73 70 5f 72 65 74 20 csc_getresp_ret
c320: 3d 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 == CACKEY_PCSC_E
c330: 5f 52 45 54 52 59 29 20 7b 0a 09 09 09 09 72 65 _RETRY) {.....re
c340: 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 turn(CACKEY_PCSC
c350: 5f 45 5f 52 45 54 52 59 29 3b 0a 09 09 09 7d 0a _E_RETRY);....}.
c360: 0a 09 09 09 72 65 74 75 72 6e 28 43 41 43 4b 45 ....return(CACKE
c370: 59 5f 50 43 53 43 5f 45 5f 47 45 4e 45 52 49 43 Y_PCSC_E_GENERIC
c380: 29 3b 0a 09 09 7d 0a 0a 09 09 69 66 20 28 72 65 );...}....if (re
c390: 73 70 64 61 74 61 5f 6c 65 6e 29 20 7b 0a 09 09 spdata_len) {...
c3a0: 09 2a 72 65 73 70 64 61 74 61 5f 6c 65 6e 20 2b .*respdata_len +
c3b0: 3d 20 74 6d 70 5f 72 65 73 70 64 61 74 61 5f 6c = tmp_respdata_l
c3c0: 65 6e 3b 0a 09 09 7d 0a 0a 09 09 2f 2a 20 45 6e en;...}..../* En
c3d0: 64 20 53 6d 61 72 74 63 61 72 64 20 54 72 61 6e d Smartcard Tran
c3e0: 73 61 63 74 69 6f 6e 20 2a 2f 0a 09 09 63 61 63 saction */...cac
c3f0: 6b 65 79 5f 65 6e 64 5f 74 72 61 6e 73 61 63 74 key_end_transact
c400: 69 6f 6e 28 73 6c 6f 74 29 3b 0a 0a 09 09 43 41 ion(slot);....CA
c410: 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
c420: 46 28 22 52 65 74 75 72 6e 69 6e 67 20 69 6e 20 F("Returning in
c430: 73 75 63 63 65 73 73 20 28 62 75 66 66 65 72 20 success (buffer
c440: 72 65 61 64 20 63 6f 6d 70 6c 65 74 65 29 22 29 read complete)")
c450: 3b 0a 09 09 72 65 74 75 72 6e 28 43 41 43 4b 45 ;...return(CACKE
c460: 59 5f 50 43 53 43 5f 53 5f 4f 4b 29 3b 0a 09 7d Y_PCSC_S_OK);..}
c470: 0a 0a 09 2f 2a 20 45 6e 64 20 53 6d 61 72 74 63 .../* End Smartc
c480: 61 72 64 20 54 72 61 6e 73 61 63 74 69 6f 6e 20 ard Transaction
c490: 2a 2f 0a 09 63 61 63 6b 65 79 5f 65 6e 64 5f 74 */..cackey_end_t
c4a0: 72 61 6e 73 61 63 74 69 6f 6e 28 73 6c 6f 74 29 ransaction(slot)
c4b0: 3b 0a 0a 09 69 66 20 28 6d 61 6a 6f 72 5f 72 63 ;...if (major_rc
c4c0: 20 3d 3d 20 30 78 39 30 29 20 7b 0a 09 09 2f 2a == 0x90) {.../*
c4d0: 20 53 75 63 63 65 73 73 20 2a 2f 0a 09 09 43 41 Success */...CA
c4e0: 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
c4f0: 46 28 22 52 65 74 75 72 6e 69 6e 67 20 69 6e 20 F("Returning in
c500: 73 75 63 63 65 73 73 20 28 6d 61 6a 6f 72 5f 72 success (major_r
c510: 63 20 3d 20 30 78 39 30 29 22 29 3b 0a 0a 09 09 c = 0x90)");....
c520: 72 65 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 return(CACKEY_PC
c530: 53 43 5f 53 5f 4f 4b 29 3b 0a 09 7d 0a 0a 0a 09 SC_S_OK);..}....
c540: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
c550: 4e 54 46 28 22 41 50 44 55 20 52 65 74 75 72 6e NTF("APDU Return
c560: 65 64 20 61 6e 20 65 72 72 6f 72 2c 20 72 65 74 ed an error, ret
c570: 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 urning in failur
c580: 65 22 29 3b 0a 0a 09 72 65 74 75 72 6e 28 43 41 e");...return(CA
c590: 43 4b 45 59 5f 50 43 53 43 5f 45 5f 47 45 4e 45 CKEY_PCSC_E_GENE
c5a0: 52 49 43 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 RIC);.}..static
c5b0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 63 unsigned char *c
c5c0: 61 63 6b 65 79 5f 72 65 61 64 5f 62 65 72 74 6c ackey_read_bertl
c5d0: 76 5f 74 61 67 28 75 6e 73 69 67 6e 65 64 20 63 v_tag(unsigned c
c5e0: 68 61 72 20 2a 62 75 66 66 65 72 2c 20 73 69 7a har *buffer, siz
c5f0: 65 5f 74 20 2a 62 75 66 66 65 72 5f 6c 65 6e 5f e_t *buffer_len_
c600: 70 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 p, unsigned char
c610: 20 74 61 67 2c 20 75 6e 73 69 67 6e 65 64 20 63 tag, unsigned c
c620: 68 61 72 20 2a 6f 75 74 62 75 66 66 65 72 2c 20 har *outbuffer,
c630: 73 69 7a 65 5f 74 20 2a 6f 75 74 62 75 66 66 65 size_t *outbuffe
c640: 72 5f 6c 65 6e 5f 70 29 20 7b 0a 09 75 6e 73 69 r_len_p) {..unsi
c650: 67 6e 65 64 20 63 68 61 72 20 2a 62 75 66 66 65 gned char *buffe
c660: 72 5f 70 3b 0a 09 73 69 7a 65 5f 74 20 6f 75 74 r_p;..size_t out
c670: 62 75 66 66 65 72 5f 6c 65 6e 2c 20 62 75 66 66 buffer_len, buff
c680: 65 72 5f 6c 65 6e 3b 0a 09 73 69 7a 65 5f 74 20 er_len;..size_t
c690: 73 69 7a 65 3b 0a 09 69 6e 74 20 69 64 78 3b 0a size;..int idx;.
c6a0: 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
c6b0: 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 RINTF("Called.")
c6c0: 3b 0a 0a 09 69 66 20 28 62 75 66 66 65 72 5f 6c ;...if (buffer_l
c6d0: 65 6e 5f 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a en_p == NULL) {.
c6e0: 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
c6f0: 52 49 4e 54 46 28 22 62 75 66 66 65 72 5f 6c 65 RINTF("buffer_le
c700: 6e 5f 70 20 69 73 20 4e 55 4c 4c 2e 20 20 52 65 n_p is NULL. Re
c710: 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 turning in failu
c720: 72 65 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e re.");....return
c730: 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 69 66 20 (NULL);..}...if
c740: 28 6f 75 74 62 75 66 66 65 72 5f 6c 65 6e 5f 70 (outbuffer_len_p
c750: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 == NULL) {...CA
c760: 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
c770: 46 28 22 6f 75 74 62 75 66 66 65 72 5f 6c 65 6e F("outbuffer_len
c780: 5f 70 20 69 73 20 4e 55 4c 4c 2e 20 20 52 65 74 _p is NULL. Ret
c790: 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 urning in failur
c7a0: 65 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 e.");....return(
c7b0: 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 62 75 66 66 NULL);..}...buff
c7c0: 65 72 5f 6c 65 6e 20 3d 20 2a 6f 75 74 62 75 66 er_len = *outbuf
c7d0: 66 65 72 5f 6c 65 6e 5f 70 3b 0a 09 6f 75 74 62 fer_len_p;..outb
c7e0: 75 66 66 65 72 5f 6c 65 6e 20 3d 20 2a 6f 75 74 uffer_len = *out
c7f0: 62 75 66 66 65 72 5f 6c 65 6e 5f 70 3b 0a 0a 09 buffer_len_p;...
c800: 69 66 20 28 62 75 66 66 65 72 5f 6c 65 6e 20 3c if (buffer_len <
c810: 20 32 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 2) {...CACKEY_D
c820: 45 42 55 47 5f 50 52 49 4e 54 46 28 22 62 75 66 EBUG_PRINTF("buf
c830: 66 65 72 5f 6c 65 6e 20 69 73 20 6c 65 73 73 20 fer_len is less
c840: 74 68 61 6e 20 32 2c 20 73 6f 20 77 65 20 63 61 than 2, so we ca
c850: 6e 27 74 20 72 65 61 64 20 61 6e 79 20 74 61 67 n't read any tag
c860: 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 69 6e 20 . Returning in
c870: 66 61 69 6c 75 72 65 2e 22 29 3b 0a 0a 09 09 72 failure.");....r
c880: 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a eturn(NULL);..}.
c890: 0a 09 62 75 66 66 65 72 5f 70 20 3d 20 62 75 66 ..buffer_p = buf
c8a0: 66 65 72 3b 0a 09 69 66 20 28 62 75 66 66 65 72 fer;..if (buffer
c8b0: 5f 70 5b 30 5d 20 21 3d 20 74 61 67 29 20 7b 0a _p[0] != tag) {.
c8c0: 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
c8d0: 52 49 4e 54 46 28 22 54 61 67 20 66 6f 75 6e 64 RINTF("Tag found
c8e0: 20 77 61 73 20 6e 6f 74 20 74 61 67 20 65 78 70 was not tag exp
c8f0: 65 63 74 65 64 2e 20 20 54 61 67 20 3d 20 25 30 ected. Tag = %0
c900: 32 78 2c 20 45 78 70 65 63 74 65 64 20 3d 20 25 2x, Expected = %
c910: 30 32 78 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 02x. Returning
c920: 69 6e 20 66 61 69 6c 75 72 65 2e 22 2c 20 28 75 in failure.", (u
c930: 6e 73 69 67 6e 65 64 20 69 6e 74 29 20 62 75 66 nsigned int) buf
c940: 66 65 72 5f 70 5b 30 5d 2c 20 74 61 67 29 3b 0a fer_p[0], tag);.
c950: 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b ...return(NULL);
c960: 0a 09 7d 0a 0a 09 62 75 66 66 65 72 5f 70 2b 2b ..}...buffer_p++
c970: 3b 0a 09 62 75 66 66 65 72 5f 6c 65 6e 2d 2d 3b ;..buffer_len--;
c980: 0a 0a 09 69 66 20 28 28 62 75 66 66 65 72 5f 70 ...if ((buffer_p
c990: 5b 30 5d 20 26 20 30 78 38 30 29 20 3d 3d 20 30 [0] & 0x80) == 0
c9a0: 78 38 30 29 20 7b 0a 09 09 73 69 7a 65 20 3d 20 x80) {...size =
c9b0: 30 3b 0a 09 09 69 64 78 20 3d 20 28 62 75 66 66 0;...idx = (buff
c9c0: 65 72 5f 70 5b 30 5d 20 26 20 30 78 37 66 29 3b er_p[0] & 0x7f);
c9d0: 0a 0a 09 09 69 66 20 28 69 64 78 20 3e 20 62 75 ....if (idx > bu
c9e0: 66 66 65 72 5f 6c 65 6e 29 20 7b 0a 09 09 09 43 ffer_len) {....C
c9f0: 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
ca00: 54 46 28 22 4d 61 6c 66 6f 72 6d 65 64 20 42 45 TF("Malformed BE
ca10: 52 20 76 61 6c 75 65 20 2d 2d 20 6e 6f 74 20 65 R value -- not e
ca20: 6e 6f 75 67 68 20 62 79 74 65 73 20 61 76 61 69 nough bytes avai
ca30: 6c 61 62 6c 65 20 74 6f 20 72 65 61 64 20 6c 65 lable to read le
ca40: 6e 67 74 68 20 28 69 64 78 20 3d 20 25 69 2c 20 ngth (idx = %i,
ca50: 62 75 66 66 65 72 5f 6c 65 6e 20 3d 20 25 6c 75 buffer_len = %lu
ca60: 29 22 2c 20 69 64 78 2c 20 28 75 6e 73 69 67 6e )", idx, (unsign
ca70: 65 64 20 6c 6f 6e 67 29 20 62 75 66 66 65 72 5f ed long) buffer_
ca80: 6c 65 6e 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e len);.....return
ca90: 28 4e 55 4c 4c 29 3b 0a 09 09 7d 0a 0a 09 09 66 (NULL);...}....f
caa0: 6f 72 20 28 3b 20 69 64 78 20 3e 20 30 3b 20 69 or (; idx > 0; i
cab0: 64 78 2d 2d 29 20 7b 0a 09 09 09 62 75 66 66 65 dx--) {....buffe
cac0: 72 5f 70 2b 2b 3b 0a 09 09 09 62 75 66 66 65 72 r_p++;....buffer
cad0: 5f 6c 65 6e 2d 2d 3b 0a 0a 09 09 09 73 69 7a 65 _len--;.....size
cae0: 20 3c 3c 3d 20 38 3b 0a 09 09 09 73 69 7a 65 20 <<= 8;....size
caf0: 7c 3d 20 62 75 66 66 65 72 5f 70 5b 30 5d 3b 0a |= buffer_p[0];.
cb00: 09 09 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 ..}..} else {...
cb10: 73 69 7a 65 20 3d 20 62 75 66 66 65 72 5f 70 5b size = buffer_p[
cb20: 30 5d 3b 0a 09 7d 0a 0a 09 62 75 66 66 65 72 5f 0];..}...buffer_
cb30: 70 2b 2b 3b 0a 09 62 75 66 66 65 72 5f 6c 65 6e p++;..buffer_len
cb40: 2d 2d 3b 0a 0a 09 69 66 20 28 73 69 7a 65 20 3e --;...if (size >
cb50: 20 6f 75 74 62 75 66 66 65 72 5f 6c 65 6e 29 20 outbuffer_len)
cb60: 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
cb70: 5f 50 52 49 4e 54 46 28 22 55 6e 61 62 6c 65 20 _PRINTF("Unable
cb80: 74 6f 20 63 6f 70 79 20 76 61 6c 75 65 20 62 75 to copy value bu
cb90: 66 66 65 72 20 74 6f 20 6f 75 74 62 75 66 66 65 ffer to outbuffe
cba0: 72 2c 20 6e 6f 74 20 65 6e 6f 75 67 68 20 72 6f r, not enough ro
cbb0: 6f 6d 2e 20 20 56 61 6c 75 65 20 62 75 66 66 65 om. Value buffe
cbc0: 72 20 6c 65 6e 67 74 68 20 3d 20 25 6c 75 2c 20 r length = %lu,
cbd0: 6f 75 74 20 62 75 66 66 65 72 20 6c 65 6e 67 74 out buffer lengt
cbe0: 68 20 3d 20 25 6c 75 22 2c 20 28 75 6e 73 69 67 h = %lu", (unsig
cbf0: 6e 65 64 20 6c 6f 6e 67 29 20 73 69 7a 65 2c 20 ned long) size,
cc00: 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 (unsigned long)
cc10: 6f 75 74 62 75 66 66 65 72 5f 6c 65 6e 29 3b 0a outbuffer_len);.
cc20: 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b ...return(NULL);
cc30: 0a 09 7d 0a 0a 09 2a 6f 75 74 62 75 66 66 65 72 ..}...*outbuffer
cc40: 5f 6c 65 6e 5f 70 20 3d 20 73 69 7a 65 3b 0a 09 _len_p = size;..
cc50: 69 66 20 28 6f 75 74 62 75 66 66 65 72 29 20 7b if (outbuffer) {
cc60: 0a 09 09 6d 65 6d 63 70 79 28 6f 75 74 62 75 66 ...memcpy(outbuf
cc70: 66 65 72 2c 20 62 75 66 66 65 72 5f 70 2c 20 73 fer, buffer_p, s
cc80: 69 7a 65 29 3b 0a 09 09 62 75 66 66 65 72 5f 70 ize);...buffer_p
cc90: 20 2b 3d 20 73 69 7a 65 3b 0a 09 09 62 75 66 66 += size;...buff
cca0: 65 72 5f 6c 65 6e 20 2d 3d 20 73 69 7a 65 3b 0a er_len -= size;.
ccb0: 0a 09 09 2a 62 75 66 66 65 72 5f 6c 65 6e 5f 70 ...*buffer_len_p
ccc0: 20 3d 20 62 75 66 66 65 72 5f 6c 65 6e 3b 0a 0a = buffer_len;..
ccd0: 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
cce0: 52 49 4e 54 42 55 46 28 22 42 45 52 2d 54 4c 56 RINTBUF("BER-TLV
ccf0: 20 72 65 73 75 6c 74 73 3a 22 2c 20 6f 75 74 62 results:", outb
cd00: 75 66 66 65 72 2c 20 73 69 7a 65 29 3b 0a 09 7d uffer, size);..}
cd10: 20 65 6c 73 65 20 7b 0a 09 09 6d 65 6d 6d 6f 76 else {...memmov
cd20: 65 28 62 75 66 66 65 72 2c 20 62 75 66 66 65 72 e(buffer, buffer
cd30: 5f 70 2c 20 73 69 7a 65 29 3b 0a 09 09 62 75 66 _p, size);...buf
cd40: 66 65 72 5f 70 20 3d 20 62 75 66 66 65 72 3b 0a fer_p = buffer;.
cd50: 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
cd60: 50 52 49 4e 54 42 55 46 28 22 42 45 52 2d 54 4c PRINTBUF("BER-TL
cd70: 56 20 72 65 73 75 6c 74 73 3a 22 2c 20 62 75 66 V results:", buf
cd80: 66 65 72 2c 20 73 69 7a 65 29 3b 0a 09 7d 0a 0a fer, size);..}..
cd90: 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
cda0: 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
cdb0: 69 6e 20 73 75 63 63 65 73 73 2e 20 20 53 69 7a in success. Siz
cdc0: 65 20 6f 66 20 63 6f 6e 74 65 6e 74 73 20 66 6f e of contents fo
cdd0: 72 20 74 61 67 20 25 30 32 78 20 69 73 20 25 6c r tag %02x is %l
cde0: 75 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 69 6e u", (unsigned in
cdf0: 74 29 20 74 61 67 2c 20 28 75 6e 73 69 67 6e 65 t) tag, (unsigne
ce00: 64 20 6c 6f 6e 67 29 20 73 69 7a 65 29 3b 0a 0a d long) size);..
ce10: 09 72 65 74 75 72 6e 28 62 75 66 66 65 72 5f 70 .return(buffer_p
ce20: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 59 4e 50 );.}../*. * SYNP
ce30: 4f 53 49 53 0a 20 2a 20 20 20 20 20 73 73 69 7a OSIS. * ssiz
ce40: 65 5f 74 20 63 61 63 6b 65 79 5f 67 65 74 5f 64 e_t cackey_get_d
ce50: 61 74 61 28 73 74 72 75 63 74 20 63 61 63 6b 65 ata(struct cacke
ce60: 79 5f 73 6c 6f 74 20 2a 73 6c 6f 74 2c 20 75 6e y_slot *slot, un
ce70: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 62 75 66 signed char *buf
ce80: 66 65 72 2c 20 73 69 7a 65 5f 74 20 62 75 66 66 fer, size_t buff
ce90: 65 72 5f 6c 65 6e 2c 20 75 6e 73 69 67 6e 65 64 er_len, unsigned
cea0: 20 63 68 61 72 20 6f 69 64 5b 33 5d 29 3b 0a 20 char oid[3]);.
ceb0: 2a 0a 20 2a 20 41 52 47 55 4d 45 4e 54 53 0a 20 *. * ARGUMENTS.
cec0: 2a 20 20 20 20 20 73 74 72 75 63 74 20 63 61 63 * struct cac
ced0: 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c 6f 74 0a 20 key_slot *slot.
cee0: 2a 20 20 20 20 20 20 20 20 20 53 6c 6f 74 20 74 * Slot t
cef0: 6f 20 73 65 6e 64 20 63 6f 6d 6d 61 6e 64 73 20 o send commands
cf00: 74 6f 0a 20 2a 0a 20 2a 20 20 20 20 20 75 6e 73 to. *. * uns
cf10: 69 67 6e 65 64 20 63 68 61 72 20 2a 62 75 66 66 igned char *buff
cf20: 65 72 0a 20 2a 20 20 20 20 20 20 20 20 20 5b 4f er. * [O
cf30: 55 54 5d 20 42 75 66 66 65 72 0a 20 2a 0a 20 2a UT] Buffer. *. *
cf40: 20 20 20 20 20 73 69 7a 65 5f 74 20 62 75 66 66 size_t buff
cf50: 65 72 5f 6c 65 6e 0a 20 2a 20 20 20 20 20 20 20 er_len. *
cf60: 20 20 4e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 Number of byte
cf70: 73 20 74 6f 20 61 74 74 65 6d 70 74 20 74 6f 20 s to attempt to
cf80: 72 65 61 64 0a 20 2a 0a 20 2a 20 20 20 20 20 75 read. *. * u
cf90: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 6f 69 64 nsigned char oid
cfa0: 5b 33 5d 0a 20 2a 20 20 20 20 20 20 20 20 20 33 [3]. * 3
cfb0: 2d 62 79 74 65 20 4f 49 44 20 74 6f 20 72 65 61 -byte OID to rea
cfc0: 64 0a 20 2a 0a 20 2a 0a 20 2a 20 52 45 54 55 52 d. *. *. * RETUR
cfd0: 4e 20 56 41 4c 55 45 0a 20 2a 20 20 20 20 20 54 N VALUE. * T
cfe0: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 his function ret
cff0: 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 20 urns the number
d000: 6f 66 20 62 79 74 65 73 20 61 63 74 75 61 6c 6c of bytes actuall
d010: 79 20 72 65 61 64 2c 20 6f 72 20 2d 31 20 6f 6e y read, or -1 on
d020: 20 65 72 72 6f 72 2e 0a 20 2a 0a 20 2a 20 4e 4f error.. *. * NO
d030: 54 45 53 0a 20 2a 20 20 20 20 20 4e 6f 6e 65 0a TES. * None.
d040: 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 73 73 *. */.static ss
d050: 69 7a 65 5f 74 20 63 61 63 6b 65 79 5f 67 65 74 ize_t cackey_get
d060: 5f 64 61 74 61 28 73 74 72 75 63 74 20 63 61 63 _data(struct cac
d070: 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c 6f 74 2c 20 key_slot *slot,
d080: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 62 unsigned char *b
d090: 75 66 66 65 72 2c 20 73 69 7a 65 5f 74 20 62 75 uffer, size_t bu
d0a0: 66 66 65 72 5f 6c 65 6e 2c 20 75 6e 73 69 67 6e ffer_len, unsign
d0b0: 65 64 20 63 68 61 72 20 6f 69 64 5b 33 5d 29 20 ed char oid[3])
d0c0: 7b 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 72 {..unsigned char
d0d0: 20 63 6d 64 5b 5d 20 3d 20 7b 30 78 35 43 2c 20 cmd[] = {0x5C,
d0e0: 30 78 30 33 2c 20 30 78 30 30 2c 20 30 78 30 30 0x03, 0x00, 0x00
d0f0: 2c 20 30 78 30 30 7d 3b 0a 09 75 6e 73 69 67 6e , 0x00};..unsign
d100: 65 64 20 63 68 61 72 20 2a 62 75 66 66 65 72 5f ed char *buffer_
d110: 70 3b 0a 09 73 69 7a 65 5f 74 20 69 6e 69 74 5f p;..size_t init_
d120: 62 75 66 66 65 72 5f 6c 65 6e 2c 20 73 69 7a 65 buffer_len, size
d130: 3b 0a 09 75 69 6e 74 31 36 5f 74 20 72 65 73 70 ;..uint16_t resp
d140: 63 6f 64 65 3b 0a 09 69 6e 74 20 73 65 6e 64 5f code;..int send_
d150: 72 65 74 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 45 ret;...CACKEY_DE
d160: 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c BUG_PRINTF("Call
d170: 65 64 2e 22 29 3b 0a 0a 09 69 6e 69 74 5f 62 75 ed.");...init_bu
d180: 66 66 65 72 5f 6c 65 6e 20 3d 20 62 75 66 66 65 ffer_len = buffe
d190: 72 5f 6c 65 6e 3b 0a 0a 09 63 6d 64 5b 32 5d 20 r_len;...cmd[2]
d1a0: 3d 20 6f 69 64 5b 30 5d 3b 0a 09 63 6d 64 5b 33 = oid[0];..cmd[3
d1b0: 5d 20 3d 20 6f 69 64 5b 31 5d 3b 0a 09 63 6d 64 ] = oid[1];..cmd
d1c0: 5b 34 5d 20 3d 20 6f 69 64 5b 32 5d 3b 0a 0a 09 [4] = oid[2];...
d1d0: 2f 2a 20 32 35 36 20 74 6f 20 69 6e 64 69 63 61 /* 256 to indica
d1e0: 74 65 20 74 68 65 20 6c 61 72 67 65 73 74 20 6d te the largest m
d1f0: 65 73 73 61 67 65 20 73 69 7a 65 20 2d 2d 20 6e essage size -- n
d200: 6f 74 20 63 6c 65 61 72 20 69 66 20 74 68 69 73 ot clear if this
d210: 20 77 69 6c 6c 20 77 6f 72 6b 20 77 69 74 68 20 will work with
d220: 61 6c 6c 20 6d 65 73 73 61 67 65 73 20 2a 2f 0a all messages */.
d230: 09 73 65 6e 64 5f 72 65 74 20 3d 20 63 61 63 6b .send_ret = cack
d240: 65 79 5f 73 65 6e 64 5f 61 70 64 75 28 73 6c 6f ey_send_apdu(slo
d250: 74 2c 20 47 53 43 49 53 5f 43 4c 41 53 53 5f 49 t, GSCIS_CLASS_I
d260: 53 4f 37 38 31 36 2c 20 4e 49 53 54 53 50 38 30 SO7816, NISTSP80
d270: 30 5f 37 33 5f 33 5f 49 4e 53 54 52 5f 47 45 54 0_73_3_INSTR_GET
d280: 5f 44 41 54 41 2c 20 30 78 33 46 2c 20 30 78 46 _DATA, 0x3F, 0xF
d290: 46 2c 20 73 69 7a 65 6f 66 28 63 6d 64 29 2c 20 F, sizeof(cmd),
d2a0: 63 6d 64 2c 20 32 35 36 2c 20 26 72 65 73 70 63 cmd, 256, &respc
d2b0: 6f 64 65 2c 20 62 75 66 66 65 72 2c 20 26 62 75 ode, buffer, &bu
d2c0: 66 66 65 72 5f 6c 65 6e 29 3b 0a 0a 09 69 66 20 ffer_len);...if
d2d0: 28 73 65 6e 64 5f 72 65 74 20 3d 3d 20 43 41 43 (send_ret == CAC
d2e0: 4b 45 59 5f 50 43 53 43 5f 45 5f 52 45 54 52 59 KEY_PCSC_E_RETRY
d2f0: 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 ) {...CACKEY_DEB
d300: 55 47 5f 50 52 49 4e 54 46 28 22 41 44 50 55 20 UG_PRINTF("ADPU
d310: 53 65 6e 64 69 6e 67 20 66 61 69 6c 65 64 2c 20 Sending failed,
d320: 72 65 74 72 79 69 6e 67 20 72 65 61 64 20 62 75 retrying read bu
d330: 66 66 65 72 22 29 3b 0a 0a 09 09 72 65 74 75 72 ffer");....retur
d340: 6e 28 63 61 63 6b 65 79 5f 67 65 74 5f 64 61 74 n(cackey_get_dat
d350: 61 28 73 6c 6f 74 2c 20 62 75 66 66 65 72 2c 20 a(slot, buffer,
d360: 69 6e 69 74 5f 62 75 66 66 65 72 5f 6c 65 6e 2c init_buffer_len,
d370: 20 6f 69 64 29 29 3b 0a 09 7d 0a 0a 09 69 66 20 oid));..}...if
d380: 28 73 65 6e 64 5f 72 65 74 20 21 3d 20 43 41 43 (send_ret != CAC
d390: 4b 45 59 5f 50 43 53 43 5f 53 5f 4f 4b 29 20 7b KEY_PCSC_S_OK) {
d3a0: 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
d3b0: 50 52 49 4e 54 46 28 22 63 61 63 6b 65 79 5f 73 PRINTF("cackey_s
d3c0: 65 6e 64 5f 61 70 64 75 28 29 20 66 61 69 6c 65 end_apdu() faile
d3d0: 64 2c 20 72 65 74 75 72 6e 69 6e 67 20 69 6e 20 d, returning in
d3e0: 66 61 69 6c 75 72 65 22 29 3b 0a 0a 09 09 72 65 failure");....re
d3f0: 74 75 72 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 23 69 turn(-1);..}..#i
d400: 66 64 65 66 20 43 41 43 4b 45 59 5f 50 41 52 41 fdef CACKEY_PARA
d410: 4e 4f 49 44 0a 23 20 20 69 66 64 65 66 20 5f 50 NOID.# ifdef _P
d420: 4f 53 49 58 5f 53 53 49 5a 45 5f 4d 41 58 0a 09 OSIX_SSIZE_MAX..
d430: 69 66 20 28 62 75 66 66 65 72 5f 6c 65 6e 20 3e if (buffer_len >
d440: 20 5f 50 4f 53 49 58 5f 53 53 49 5a 45 5f 4d 41 _POSIX_SSIZE_MA
d450: 58 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 X) {...CACKEY_DE
d460: 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 61 64 BUG_PRINTF("Read
d470: 20 62 79 74 65 73 20 28 62 75 66 66 65 72 5f 6c bytes (buffer_l
d480: 65 6e 29 20 65 78 63 65 65 64 73 20 6d 61 78 69 en) exceeds maxi
d490: 6d 75 6d 20 76 61 6c 75 65 2c 20 72 65 74 75 72 mum value, retur
d4a0: 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 65 2e ning in failure.
d4b0: 20 28 6d 61 78 20 3d 20 25 6c 69 2c 20 62 75 66 (max = %li, buf
d4c0: 66 65 72 5f 6c 65 6e 20 3d 20 25 6c 75 29 22 2c fer_len = %lu)",
d4d0: 20 28 6c 6f 6e 67 29 20 5f 50 4f 53 49 58 5f 53 (long) _POSIX_S
d4e0: 53 49 5a 45 5f 4d 41 58 2c 20 28 75 6e 73 69 67 SIZE_MAX, (unsig
d4f0: 6e 65 64 20 6c 6f 6e 67 29 20 62 75 66 66 65 72 ned long) buffer
d500: 5f 6c 65 6e 29 3b 0a 0a 09 09 72 65 74 75 72 6e _len);....return
d510: 28 2d 31 29 3b 0a 09 7d 0a 23 20 20 65 6e 64 69 (-1);..}.# endi
d520: 66 0a 23 65 6e 64 69 66 0a 0a 09 69 66 20 28 62 f.#endif...if (b
d530: 75 66 66 65 72 5f 6c 65 6e 20 3c 20 32 29 20 7b uffer_len < 2) {
d540: 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
d550: 50 52 49 4e 54 46 28 22 41 50 44 55 20 47 45 54 PRINTF("APDU GET
d560: 20 44 41 54 41 20 72 65 74 75 72 6e 65 64 20 25 DATA returned %
d570: 6c 75 20 62 79 74 65 73 2c 20 77 68 69 63 68 20 lu bytes, which
d580: 69 73 20 74 6f 6f 20 73 68 6f 72 74 20 66 6f 72 is too short for
d590: 20 61 20 42 45 52 2d 54 4c 56 20 72 65 73 70 6f a BER-TLV respo
d5a0: 6e 73 65 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 nse", (unsigned
d5b0: 6c 6f 6e 67 29 20 62 75 66 66 65 72 5f 6c 65 6e long) buffer_len
d5c0: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 2d 31 29 );....return(-1)
d5d0: 3b 0a 09 7d 0a 0a 09 73 69 7a 65 20 3d 20 62 75 ;..}...size = bu
d5e0: 66 66 65 72 5f 6c 65 6e 3b 0a 09 62 75 66 66 65 ffer_len;..buffe
d5f0: 72 5f 70 20 3d 20 63 61 63 6b 65 79 5f 72 65 61 r_p = cackey_rea
d600: 64 5f 62 65 72 74 6c 76 5f 74 61 67 28 62 75 66 d_bertlv_tag(buf
d610: 66 65 72 2c 20 26 62 75 66 66 65 72 5f 6c 65 6e fer, &buffer_len
d620: 2c 20 30 78 35 33 2c 20 4e 55 4c 4c 2c 20 26 73 , 0x53, NULL, &s
d630: 69 7a 65 29 3b 0a 0a 09 69 66 20 28 62 75 66 66 ize);...if (buff
d640: 65 72 5f 70 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a er_p == NULL) {.
d650: 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
d660: 52 49 4e 54 46 28 22 54 61 67 20 64 65 63 6f 64 RINTF("Tag decod
d670: 69 6e 67 20 66 61 69 6c 65 64 2c 20 72 65 74 75 ing failed, retu
d680: 72 6e 69 6e 67 20 69 6e 20 65 72 72 6f 72 2e 22 rning in error."
d690: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 2d 31 29 );....return(-1)
d6a0: 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 ;..}...CACKEY_DE
d6b0: 42 55 47 5f 50 52 49 4e 54 42 55 46 28 22 47 45 BUG_PRINTBUF("GE
d6c0: 54 20 44 41 54 41 20 72 65 73 75 6c 74 22 2c 20 T DATA result",
d6d0: 62 75 66 66 65 72 2c 20 73 69 7a 65 29 3b 0a 0a buffer, size);..
d6e0: 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
d6f0: 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
d700: 69 6e 20 73 75 63 63 65 73 73 2c 20 72 65 61 64 in success, read
d710: 20 25 6c 75 20 62 79 74 65 73 22 2c 20 28 75 6e %lu bytes", (un
d720: 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 73 69 7a signed long) siz
d730: 65 29 3b 0a 0a 09 72 65 74 75 72 6e 28 73 69 7a e);...return(siz
d740: 65 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 59 4e e);.}../*. * SYN
d750: 50 4f 53 49 53 0a 20 2a 20 20 20 20 20 73 73 69 POSIS. * ssi
d760: 7a 65 5f 74 20 63 61 63 6b 65 79 5f 72 65 61 64 ze_t cackey_read
d770: 5f 62 75 66 66 65 72 28 73 74 72 75 63 74 20 63 _buffer(struct c
d780: 61 63 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c 6f 74 ackey_slot *slot
d790: 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 , unsigned char
d7a0: 2a 62 75 66 66 65 72 2c 20 73 69 7a 65 5f 74 20 *buffer, size_t
d7b0: 63 6f 75 6e 74 2c 20 75 6e 73 69 67 6e 65 64 20 count, unsigned
d7c0: 63 68 61 72 20 74 5f 6f 72 5f 76 2c 20 73 69 7a char t_or_v, siz
d7d0: 65 5f 74 20 69 6e 69 74 69 61 6c 5f 6f 66 66 73 e_t initial_offs
d7e0: 65 74 29 3b 0a 20 2a 0a 20 2a 20 41 52 47 55 4d et);. *. * ARGUM
d7f0: 45 4e 54 53 0a 20 2a 20 20 20 20 20 73 74 72 75 ENTS. * stru
d800: 63 74 20 63 61 63 6b 65 79 5f 73 6c 6f 74 20 2a ct cackey_slot *
d810: 73 6c 6f 74 0a 20 2a 20 20 20 20 20 20 20 20 20 slot. *
d820: 53 6c 6f 74 20 74 6f 20 73 65 6e 64 20 63 6f 6d Slot to send com
d830: 6d 61 6e 64 73 20 74 6f 0a 20 2a 0a 20 2a 20 20 mands to. *. *
d840: 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 unsigned char
d850: 20 2a 62 75 66 66 65 72 0a 20 2a 20 20 20 20 20 *buffer. *
d860: 20 20 20 20 5b 4f 55 54 5d 20 42 75 66 66 65 72 [OUT] Buffer
d870: 0a 20 2a 0a 20 2a 20 20 20 20 20 73 69 7a 65 5f . *. * size_
d880: 74 20 63 6f 75 6e 74 0a 20 2a 20 20 20 20 20 20 t count. *
d890: 20 20 20 4e 75 6d 62 65 72 20 6f 66 20 62 79 74 Number of byt
d8a0: 65 73 20 74 6f 20 61 74 74 65 6d 70 74 20 74 6f es to attempt to
d8b0: 20 72 65 61 64 0a 20 2a 0a 20 2a 20 20 20 20 20 read. *. *
d8c0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 74 5f unsigned char t_
d8d0: 6f 72 5f 76 0a 20 2a 20 20 20 20 20 20 20 20 20 or_v. *
d8e0: 53 65 6c 65 63 74 20 74 68 65 20 54 2d 62 75 66 Select the T-buf
d8f0: 66 65 72 20 28 30 31 29 20 6f 72 20 56 2d 62 75 fer (01) or V-bu
d900: 66 66 65 72 20 28 30 32 29 20 74 6f 20 72 65 61 ffer (02) to rea
d910: 64 20 66 72 6f 6d 2e 20 20 0a 20 2a 0a 20 2a 20 d from. . *. *
d920: 20 20 20 20 73 69 7a 65 5f 74 20 69 6e 69 74 69 size_t initi
d930: 61 6c 5f 6f 66 66 73 65 74 0a 20 2a 20 20 20 20 al_offset. *
d940: 20 20 20 20 20 53 70 65 63 69 66 79 20 74 68 65 Specify the
d950: 20 6f 66 66 73 65 74 20 74 6f 20 62 65 67 69 6e offset to begin
d960: 20 74 68 65 20 72 65 61 64 20 66 72 6f 6d 0a 20 the read from.
d970: 2a 0a 20 2a 0a 20 2a 20 52 45 54 55 52 4e 20 56 *. *. * RETURN V
d980: 41 4c 55 45 0a 20 2a 20 20 20 20 20 54 68 69 73 ALUE. * This
d990: 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e function return
d9a0: 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 s the number of
d9b0: 62 79 74 65 73 20 61 63 74 75 61 6c 6c 79 20 72 bytes actually r
d9c0: 65 61 64 2c 20 6f 72 20 2d 31 20 6f 6e 20 65 72 ead, or -1 on er
d9d0: 72 6f 72 2e 0a 20 2a 0a 20 2a 20 4e 4f 54 45 53 ror.. *. * NOTES
d9e0: 0a 20 2a 20 20 20 20 20 4e 6f 6e 65 0a 20 2a 0a . * None. *.
d9f0: 20 2a 2f 0a 73 74 61 74 69 63 20 73 73 69 7a 65 */.static ssize
da00: 5f 74 20 63 61 63 6b 65 79 5f 72 65 61 64 5f 62 _t cackey_read_b
da10: 75 66 66 65 72 28 73 74 72 75 63 74 20 63 61 63 uffer(struct cac
da20: 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c 6f 74 2c 20 key_slot *slot,
da30: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 62 unsigned char *b
da40: 75 66 66 65 72 2c 20 73 69 7a 65 5f 74 20 63 6f uffer, size_t co
da50: 75 6e 74 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 unt, unsigned ch
da60: 61 72 20 74 5f 6f 72 5f 76 2c 20 73 69 7a 65 5f ar t_or_v, size_
da70: 74 20 69 6e 69 74 69 61 6c 5f 6f 66 66 73 65 74 t initial_offset
da80: 29 20 7b 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 ) {..unsigned ch
da90: 61 72 20 2a 69 6e 69 74 5f 62 75 66 66 65 72 3b ar *init_buffer;
daa0: 0a 09 73 69 7a 65 5f 74 20 69 6e 69 74 5f 63 6f ..size_t init_co
dab0: 75 6e 74 3b 0a 09 73 69 7a 65 5f 74 20 69 6e 69 unt;..size_t ini
dac0: 74 5f 69 6e 69 74 69 61 6c 5f 6f 66 66 73 65 74 t_initial_offset
dad0: 3b 0a 0a 09 73 69 7a 65 5f 74 20 6f 66 66 73 65 ;...size_t offse
dae0: 74 20 3d 20 30 2c 20 6d 61 78 5f 6f 66 66 73 65 t = 0, max_offse
daf0: 74 2c 20 6d 61 78 5f 63 6f 75 6e 74 3b 0a 09 75 t, max_count;..u
db00: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 63 6d 64 nsigned char cmd
db10: 5b 32 5d 3b 0a 09 75 69 6e 74 31 36 5f 74 20 72 [2];..uint16_t r
db20: 65 73 70 63 6f 64 65 3b 0a 09 69 6e 74 20 73 65 espcode;..int se
db30: 6e 64 5f 72 65 74 3b 0a 0a 09 43 41 43 4b 45 59 nd_ret;...CACKEY
db40: 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 _DEBUG_PRINTF("C
db50: 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 6e 69 74 alled.");...init
db60: 5f 62 75 66 66 65 72 20 3d 20 62 75 66 66 65 72 _buffer = buffer
db70: 3b 0a 09 69 6e 69 74 5f 63 6f 75 6e 74 20 3d 20 ;..init_count =
db80: 63 6f 75 6e 74 3b 0a 09 69 6e 69 74 5f 69 6e 69 count;..init_ini
db90: 74 69 61 6c 5f 6f 66 66 73 65 74 20 3d 20 69 6e tial_offset = in
dba0: 69 74 69 61 6c 5f 6f 66 66 73 65 74 3b 0a 0a 09 itial_offset;...
dbb0: 6d 61 78 5f 6f 66 66 73 65 74 20 3d 20 63 6f 75 max_offset = cou
dbc0: 6e 74 3b 0a 09 6d 61 78 5f 63 6f 75 6e 74 20 3d nt;..max_count =
dbd0: 20 43 41 43 4b 45 59 5f 41 50 44 55 5f 4d 54 55 CACKEY_APDU_MTU
dbe0: 3b 0a 0a 09 69 66 20 28 74 5f 6f 72 5f 76 20 21 ;...if (t_or_v !
dbf0: 3d 20 31 20 26 26 20 74 5f 6f 72 5f 76 20 21 3d = 1 && t_or_v !=
dc00: 20 32 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 2) {...CACKEY_D
dc10: 45 42 55 47 5f 50 52 49 4e 54 46 28 22 49 6e 76 EBUG_PRINTF("Inv
dc20: 61 6c 69 64 20 54 20 6f 72 20 56 20 70 61 72 61 alid T or V para
dc30: 6d 65 74 65 72 20 73 70 65 63 69 66 69 65 64 2c meter specified,
dc40: 20 72 65 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 returning in fa
dc50: 69 6c 75 72 65 22 29 3b 0a 0a 09 09 72 65 74 75 ilure");....retu
dc60: 72 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 09 63 6d 64 rn(-1);..}...cmd
dc70: 5b 30 5d 20 3d 20 74 5f 6f 72 5f 76 3b 0a 0a 09 [0] = t_or_v;...
dc80: 77 68 69 6c 65 20 28 31 29 20 7b 0a 09 09 69 66 while (1) {...if
dc90: 20 28 6f 66 66 73 65 74 20 3e 3d 20 6d 61 78 5f (offset >= max_
dca0: 6f 66 66 73 65 74 29 20 7b 0a 09 09 09 43 41 43 offset) {....CAC
dcb0: 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
dcc0: 28 22 42 75 66 66 65 72 20 74 6f 6f 20 73 6d 61 ("Buffer too sma
dcd0: 6c 6c 2c 20 72 65 74 75 72 6e 69 6e 67 20 77 68 ll, returning wh
dce0: 61 74 20 77 65 20 67 6f 74 2e 2e 2e 22 29 3b 0a at we got...");.
dcf0: 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 7d 0a 0a ....break;...}..
dd00: 09 09 63 6f 75 6e 74 20 3d 20 6d 61 78 5f 6f 66 ..count = max_of
dd10: 66 73 65 74 20 2d 20 6f 66 66 73 65 74 3b 0a 09 fset - offset;..
dd20: 09 69 66 20 28 63 6f 75 6e 74 20 3e 20 6d 61 78 .if (count > max
dd30: 5f 63 6f 75 6e 74 29 20 7b 0a 09 09 09 63 6f 75 _count) {....cou
dd40: 6e 74 20 3d 20 6d 61 78 5f 63 6f 75 6e 74 3b 0a nt = max_count;.
dd50: 09 09 7d 0a 0a 09 09 63 6d 64 5b 31 5d 20 3d 20 ..}....cmd[1] =
dd60: 63 6f 75 6e 74 3b 0a 0a 09 09 73 65 6e 64 5f 72 count;....send_r
dd70: 65 74 20 3d 20 63 61 63 6b 65 79 5f 73 65 6e 64 et = cackey_send
dd80: 5f 61 70 64 75 28 73 6c 6f 74 2c 20 47 53 43 49 _apdu(slot, GSCI
dd90: 53 5f 43 4c 41 53 53 5f 47 4c 4f 42 41 4c 5f 50 S_CLASS_GLOBAL_P
dda0: 4c 41 54 46 4f 52 4d 2c 20 47 53 43 49 53 5f 49 LATFORM, GSCIS_I
ddb0: 4e 53 54 52 5f 52 45 41 44 5f 42 55 46 46 45 52 NSTR_READ_BUFFER
ddc0: 2c 20 28 28 69 6e 69 74 69 61 6c 5f 6f 66 66 73 , ((initial_offs
ddd0: 65 74 20 2b 20 6f 66 66 73 65 74 29 20 3e 3e 20 et + offset) >>
dde0: 38 29 20 26 20 30 78 66 66 2c 20 28 69 6e 69 74 8) & 0xff, (init
ddf0: 69 61 6c 5f 6f 66 66 73 65 74 20 2b 20 6f 66 66 ial_offset + off
de00: 73 65 74 29 20 26 20 30 78 66 66 2c 20 73 69 7a set) & 0xff, siz
de10: 65 6f 66 28 63 6d 64 29 2c 20 63 6d 64 2c 20 30 eof(cmd), cmd, 0
de20: 78 30 30 2c 20 26 72 65 73 70 63 6f 64 65 2c 20 x00, &respcode,
de30: 62 75 66 66 65 72 20 2b 20 6f 66 66 73 65 74 2c buffer + offset,
de40: 20 26 63 6f 75 6e 74 29 3b 0a 0a 09 09 69 66 20 &count);....if
de50: 28 73 65 6e 64 5f 72 65 74 20 3d 3d 20 43 41 43 (send_ret == CAC
de60: 4b 45 59 5f 50 43 53 43 5f 45 5f 52 45 54 52 59 KEY_PCSC_E_RETRY
de70: 29 20 7b 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 ) {....CACKEY_DE
de80: 42 55 47 5f 50 52 49 4e 54 46 28 22 41 44 50 55 BUG_PRINTF("ADPU
de90: 20 53 65 6e 64 69 6e 67 20 66 61 69 6c 65 64 2c Sending failed,
dea0: 20 72 65 74 72 79 69 6e 67 20 72 65 61 64 20 62 retrying read b
deb0: 75 66 66 65 72 22 29 3b 0a 0a 09 09 09 72 65 74 uffer");.....ret
dec0: 75 72 6e 28 63 61 63 6b 65 79 5f 72 65 61 64 5f urn(cackey_read_
ded0: 62 75 66 66 65 72 28 73 6c 6f 74 2c 20 69 6e 69 buffer(slot, ini
dee0: 74 5f 62 75 66 66 65 72 2c 20 69 6e 69 74 5f 63 t_buffer, init_c
def0: 6f 75 6e 74 2c 20 74 5f 6f 72 5f 76 2c 20 69 6e ount, t_or_v, in
df00: 69 74 5f 69 6e 69 74 69 61 6c 5f 6f 66 66 73 65 it_initial_offse
df10: 74 29 29 3b 0a 09 09 7d 0a 0a 09 09 69 66 20 28 t));...}....if (
df20: 73 65 6e 64 5f 72 65 74 20 21 3d 20 43 41 43 4b send_ret != CACK
df30: 45 59 5f 50 43 53 43 5f 53 5f 4f 4b 29 20 7b 0a EY_PCSC_S_OK) {.
df40: 09 09 09 69 66 20 28 72 65 73 70 63 6f 64 65 20 ...if (respcode
df50: 3d 3d 20 30 78 36 41 38 36 29 20 7b 0a 09 09 09 == 0x6A86) {....
df60: 09 69 66 20 28 6d 61 78 5f 63 6f 75 6e 74 20 3d .if (max_count =
df70: 3d 20 31 29 20 7b 0a 09 09 09 09 09 62 72 65 61 = 1) {......brea
df80: 6b 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 09 6d 61 k;.....}......ma
df90: 78 5f 63 6f 75 6e 74 20 3d 20 6d 61 78 5f 63 6f x_count = max_co
dfa0: 75 6e 74 20 2f 20 32 3b 0a 0a 09 09 09 09 63 6f unt / 2;......co
dfb0: 6e 74 69 6e 75 65 3b 0a 09 09 09 7d 0a 0a 09 09 ntinue;....}....
dfc0: 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
dfd0: 49 4e 54 46 28 22 63 61 63 6b 65 79 5f 73 65 6e INTF("cackey_sen
dfe0: 64 5f 61 70 64 75 28 29 20 66 61 69 6c 65 64 2c d_apdu() failed,
dff0: 20 72 65 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 returning in fa
e000: 69 6c 75 72 65 22 29 3b 0a 0a 09 09 09 72 65 74 ilure");.....ret
e010: 75 72 6e 28 2d 31 29 3b 0a 09 09 7d 0a 0a 09 09 urn(-1);...}....
e020: 6f 66 66 73 65 74 20 2b 3d 20 63 6f 75 6e 74 3b offset += count;
e030: 0a 0a 09 09 69 66 20 28 63 6f 75 6e 74 20 3c 20 ....if (count <
e040: 6d 61 78 5f 63 6f 75 6e 74 29 20 7b 0a 09 09 09 max_count) {....
e050: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
e060: 4e 54 46 28 22 53 68 6f 72 74 20 72 65 61 64 20 NTF("Short read
e070: 2d 2d 20 63 6f 75 6e 74 20 3d 20 25 69 2c 20 63 -- count = %i, c
e080: 6d 64 5b 31 5d 20 3d 20 25 69 22 2c 20 28 69 6e md[1] = %i", (in
e090: 74 29 20 63 6f 75 6e 74 2c 20 28 69 6e 74 29 20 t) count, (int)
e0a0: 63 6d 64 5b 31 5d 29 3b 0a 0a 09 09 09 62 72 65 cmd[1]);.....bre
e0b0: 61 6b 3b 0a 09 09 7d 0a 09 7d 0a 0a 23 69 66 64 ak;...}..}..#ifd
e0c0: 65 66 20 43 41 43 4b 45 59 5f 50 41 52 41 4e 4f ef CACKEY_PARANO
e0d0: 49 44 0a 23 20 20 69 66 64 65 66 20 5f 50 4f 53 ID.# ifdef _POS
e0e0: 49 58 5f 53 53 49 5a 45 5f 4d 41 58 0a 09 69 66 IX_SSIZE_MAX..if
e0f0: 20 28 6f 66 66 73 65 74 20 3e 20 5f 50 4f 53 49 (offset > _POSI
e100: 58 5f 53 53 49 5a 45 5f 4d 41 58 29 20 7b 0a 09 X_SSIZE_MAX) {..
e110: 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
e120: 49 4e 54 46 28 22 4f 66 66 73 65 74 20 65 78 63 INTF("Offset exc
e130: 65 65 64 73 20 6d 61 78 69 6d 75 6d 20 76 61 6c eeds maximum val
e140: 75 65 2c 20 72 65 74 75 72 6e 69 6e 67 20 69 6e ue, returning in
e150: 20 66 61 69 6c 75 72 65 2e 20 28 6d 61 78 20 3d failure. (max =
e160: 20 25 6c 69 2c 20 6f 66 66 73 65 74 20 3d 20 25 %li, offset = %
e170: 6c 75 29 22 2c 20 28 6c 6f 6e 67 29 20 5f 50 4f lu)", (long) _PO
e180: 53 49 58 5f 53 53 49 5a 45 5f 4d 41 58 2c 20 28 SIX_SSIZE_MAX, (
e190: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 6f unsigned long) o
e1a0: 66 66 73 65 74 29 3b 0a 0a 09 09 72 65 74 75 72 ffset);....retur
e1b0: 6e 28 2d 31 29 3b 0a 09 7d 0a 23 20 20 65 6e 64 n(-1);..}.# end
e1c0: 69 66 0a 23 65 6e 64 69 66 0a 0a 09 43 41 43 4b if.#endif...CACK
e1d0: 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
e1e0: 22 52 65 74 75 72 6e 69 6e 67 20 69 6e 20 73 75 "Returning in su
e1f0: 63 63 65 73 73 2c 20 72 65 61 64 20 25 6c 75 20 ccess, read %lu
e200: 62 79 74 65 73 22 2c 20 28 75 6e 73 69 67 6e 65 bytes", (unsigne
e210: 64 20 6c 6f 6e 67 29 20 6f 66 66 73 65 74 29 3b d long) offset);
e220: 0a 0a 09 72 65 74 75 72 6e 28 6f 66 66 73 65 74 ...return(offset
e230: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 59 4e 50 );.}../*. * SYNP
e240: 4f 53 49 53 0a 20 2a 20 20 20 20 20 63 61 63 6b OSIS. * cack
e250: 65 79 5f 72 65 74 20 63 61 63 6b 65 79 5f 73 65 ey_ret cackey_se
e260: 6c 65 63 74 5f 61 70 70 6c 65 74 28 73 74 72 75 lect_applet(stru
e270: 63 74 20 63 61 63 6b 65 79 5f 73 6c 6f 74 20 2a ct cackey_slot *
e280: 73 6c 6f 74 2c 20 75 6e 73 69 67 6e 65 64 20 63 slot, unsigned c
e290: 68 61 72 20 2a 61 69 64 2c 20 73 69 7a 65 5f 74 har *aid, size_t
e2a0: 20 61 69 64 5f 6c 65 6e 29 3b 0a 20 2a 0a 20 2a aid_len);. *. *
e2b0: 20 41 52 47 55 4d 45 4e 54 53 0a 20 2a 20 20 20 ARGUMENTS. *
e2c0: 20 20 73 74 72 75 63 74 20 63 61 63 6b 65 79 5f struct cackey_
e2d0: 73 6c 6f 74 20 2a 73 6c 6f 74 0a 20 2a 20 20 20 slot *slot. *
e2e0: 20 20 20 20 20 20 53 6c 6f 74 20 74 6f 20 73 65 Slot to se
e2f0: 6e 64 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 0a 20 nd commands to.
e300: 2a 0a 20 2a 20 20 20 20 20 75 6e 73 69 67 6e 65 *. * unsigne
e310: 64 20 63 68 61 72 20 2a 61 69 64 0a 20 2a 20 20 d char *aid. *
e320: 20 20 20 20 20 20 20 42 75 66 66 65 72 20 63 6f Buffer co
e330: 6e 74 61 69 6e 69 6e 67 20 41 70 70 6c 65 74 20 ntaining Applet
e340: 49 44 20 74 6f 20 73 65 6c 65 63 74 0a 20 2a 0a ID to select. *.
e350: 20 2a 20 20 20 20 20 73 69 7a 65 5f 74 20 61 69 * size_t ai
e360: 64 5f 6c 65 6e 0a 20 2a 20 20 20 20 20 20 20 20 d_len. *
e370: 20 4e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 Number of bytes
e380: 20 69 6e 20 74 68 65 20 22 61 69 64 22 20 28 41 in the "aid" (A
e390: 70 70 6c 65 74 20 49 44 29 20 70 61 72 61 6d 65 pplet ID) parame
e3a0: 74 65 72 0a 20 2a 0a 20 2a 20 52 45 54 55 52 4e ter. *. * RETURN
e3b0: 20 56 41 4c 55 45 0a 20 2a 20 20 20 20 20 43 41 VALUE. * CA
e3c0: 43 4b 45 59 5f 50 43 53 43 5f 53 5f 4f 4b 20 20 CKEY_PCSC_S_OK
e3d0: 20 20 20 20 20 20 20 4f 6e 20 73 75 63 63 65 73 On succes
e3e0: 73 0a 20 2a 20 20 20 20 20 43 41 43 4b 45 59 5f s. * CACKEY_
e3f0: 50 43 53 43 5f 45 5f 47 45 4e 45 52 49 43 20 20 PCSC_E_GENERIC
e400: 20 20 4f 6e 20 65 72 72 6f 72 0a 20 2a 0a 20 2a On error. *. *
e410: 20 4e 4f 54 45 53 0a 20 2a 20 20 20 20 20 4e 6f NOTES. * No
e420: 6e 65 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 ne. *. */.static
e430: 20 63 61 63 6b 65 79 5f 72 65 74 20 63 61 63 6b cackey_ret cack
e440: 65 79 5f 73 65 6c 65 63 74 5f 61 70 70 6c 65 74 ey_select_applet
e450: 28 73 74 72 75 63 74 20 63 61 63 6b 65 79 5f 73 (struct cackey_s
e460: 6c 6f 74 20 2a 73 6c 6f 74 2c 20 75 6e 73 69 67 lot *slot, unsig
e470: 6e 65 64 20 63 68 61 72 20 2a 61 69 64 2c 20 73 ned char *aid, s
e480: 69 7a 65 5f 74 20 61 69 64 5f 6c 65 6e 29 20 7b ize_t aid_len) {
e490: 0a 09 69 6e 74 20 73 65 6e 64 5f 72 65 74 3b 0a ..int send_ret;.
e4a0: 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
e4b0: 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 RINTF("Called.")
e4c0: 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ;...CACKEY_DEBUG
e4d0: 5f 50 52 49 4e 54 42 55 46 28 22 53 65 6c 65 63 _PRINTBUF("Selec
e4e0: 74 69 6e 67 20 61 70 70 6c 65 74 3a 22 2c 20 61 ting applet:", a
e4f0: 69 64 2c 20 61 69 64 5f 6c 65 6e 29 3b 0a 0a 09 id, aid_len);...
e500: 73 65 6e 64 5f 72 65 74 20 3d 20 63 61 63 6b 65 send_ret = cacke
e510: 79 5f 73 65 6e 64 5f 61 70 64 75 28 73 6c 6f 74 y_send_apdu(slot
e520: 2c 20 47 53 43 49 53 5f 43 4c 41 53 53 5f 49 53 , GSCIS_CLASS_IS
e530: 4f 37 38 31 36 2c 20 47 53 43 49 53 5f 49 4e 53 O7816, GSCIS_INS
e540: 54 52 5f 53 45 4c 45 43 54 2c 20 47 53 43 49 53 TR_SELECT, GSCIS
e550: 5f 50 41 52 41 4d 5f 53 45 4c 45 43 54 5f 41 50 _PARAM_SELECT_AP
e560: 50 4c 45 54 2c 20 30 78 30 30 2c 20 61 69 64 5f PLET, 0x00, aid_
e570: 6c 65 6e 2c 20 61 69 64 2c 20 30 78 30 30 2c 20 len, aid, 0x00,
e580: 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c NULL, NULL, NULL
e590: 29 3b 0a 0a 09 69 66 20 28 73 65 6e 64 5f 72 65 );...if (send_re
e5a0: 74 20 3d 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 t == CACKEY_PCSC
e5b0: 5f 45 5f 52 45 54 52 59 29 20 7b 0a 09 09 43 41 _E_RETRY) {...CA
e5c0: 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
e5d0: 46 28 22 41 44 50 55 20 53 65 6e 64 69 6e 67 20 F("ADPU Sending
e5e0: 66 61 69 6c 65 64 2c 20 72 65 74 72 79 69 6e 67 failed, retrying
e5f0: 20 73 65 6c 65 63 74 20 61 70 70 6c 65 74 22 29 select applet")
e600: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 63 61 63 6b ;....return(cack
e610: 65 79 5f 73 65 6c 65 63 74 5f 61 70 70 6c 65 74 ey_select_applet
e620: 28 73 6c 6f 74 2c 20 61 69 64 2c 20 61 69 64 5f (slot, aid, aid_
e630: 6c 65 6e 29 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 len));..}...if (
e640: 73 65 6e 64 5f 72 65 74 20 21 3d 20 43 41 43 4b send_ret != CACK
e650: 45 59 5f 50 43 53 43 5f 53 5f 4f 4b 29 20 7b 0a EY_PCSC_S_OK) {.
e660: 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
e670: 52 49 4e 54 46 28 22 46 61 69 6c 65 64 20 74 6f RINTF("Failed to
e680: 20 6f 70 65 6e 20 61 70 70 6c 65 74 2c 20 72 65 open applet, re
e690: 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 turning in failu
e6a0: 72 65 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 re");....return(
e6b0: 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 47 45 CACKEY_PCSC_E_GE
e6c0: 4e 45 52 49 43 29 3b 0a 09 7d 0a 0a 09 43 41 43 NERIC);..}...CAC
e6d0: 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
e6e0: 28 22 53 75 63 63 65 73 73 66 75 6c 6c 79 20 73 ("Successfully s
e6f0: 65 6c 65 63 74 65 64 20 66 69 6c 65 22 29 3b 0a elected file");.
e700: 0a 09 72 65 74 75 72 6e 28 43 41 43 4b 45 59 5f ..return(CACKEY_
e710: 50 43 53 43 5f 53 5f 4f 4b 29 3b 0a 7d 0a 0a 2f PCSC_S_OK);.}../
e720: 2a 0a 20 2a 20 53 59 4e 50 4f 53 49 53 0a 20 2a *. * SYNPOSIS. *
e730: 20 20 20 20 20 63 61 63 6b 65 79 5f 70 63 73 63 cackey_pcsc
e740: 5f 69 64 5f 74 79 70 65 20 63 61 63 6b 65 79 5f _id_type cackey_
e750: 64 65 74 65 63 74 5f 61 6e 64 5f 73 65 6c 65 63 detect_and_selec
e760: 74 5f 72 6f 6f 74 5f 61 70 70 6c 65 74 28 73 74 t_root_applet(st
e770: 72 75 63 74 20 63 61 63 6b 65 79 5f 73 6c 6f 74 ruct cackey_slot
e780: 20 2a 73 6c 6f 74 2c 20 63 61 63 6b 65 79 5f 70 *slot, cackey_p
e790: 63 73 63 5f 69 64 5f 74 79 70 65 20 74 79 70 65 csc_id_type type
e7a0: 5f 68 69 6e 74 29 3b 0a 20 2a 0a 20 2a 20 41 52 _hint);. *. * AR
e7b0: 47 55 4d 45 4e 54 53 0a 20 2a 20 20 20 20 20 73 GUMENTS. * s
e7c0: 74 72 75 63 74 20 63 61 63 6b 65 79 5f 73 6c 6f truct cackey_slo
e7d0: 74 20 2a 73 6c 6f 74 0a 20 2a 20 20 20 20 20 20 t *slot. *
e7e0: 20 20 20 53 6c 6f 74 20 74 6f 20 73 65 6e 64 20 Slot to send
e7f0: 63 6f 6d 6d 61 6e 64 73 20 74 6f 0a 20 2a 0a 20 commands to. *.
e800: 2a 20 20 20 20 20 63 61 63 6b 65 79 5f 70 63 73 * cackey_pcs
e810: 63 5f 69 64 5f 74 79 70 65 20 74 79 70 65 5f 68 c_id_type type_h
e820: 69 6e 74 0a 20 2a 20 20 20 20 20 20 20 20 20 41 int. * A
e830: 20 68 69 6e 74 20 61 73 20 74 6f 20 77 68 69 63 hint as to whic
e840: 68 20 74 79 70 65 20 6f 66 20 63 61 72 64 20 6d h type of card m
e850: 69 67 68 74 20 62 65 20 69 6e 20 74 68 69 73 20 ight be in this
e860: 73 6c 6f 74 20 28 43 41 43 20 6f 72 20 50 49 56 slot (CAC or PIV
e870: 29 0a 20 2a 0a 20 2a 20 52 45 54 55 52 4e 20 56 ). *. * RETURN V
e880: 41 4c 55 45 0a 20 2a 20 20 20 20 20 43 41 43 4b ALUE. * CACK
e890: 45 59 5f 49 44 5f 54 59 50 45 5f 50 49 56 20 20 EY_ID_TYPE_PIV
e8a0: 20 20 20 20 20 49 66 20 74 68 65 20 63 61 72 64 If the card
e8b0: 20 63 6f 6e 6e 65 63 74 65 64 20 69 73 20 61 20 connected is a
e8c0: 50 49 56 0a 20 2a 20 20 20 20 20 43 41 43 4b 45 PIV. * CACKE
e8d0: 59 5f 49 44 5f 54 59 50 45 5f 43 41 43 20 20 20 Y_ID_TYPE_CAC
e8e0: 20 20 20 20 49 66 20 74 68 65 20 63 61 72 64 20 If the card
e8f0: 63 6f 6e 6e 65 63 74 65 64 20 69 73 20 61 20 43 connected is a C
e900: 41 43 20 77 69 74 68 20 74 68 65 20 43 43 43 0a AC with the CCC.
e910: 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
e920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
e930: 61 70 70 6c 65 74 0a 20 2a 20 20 20 20 20 43 41 applet. * CA
e940: 43 4b 45 59 5f 49 44 5f 54 59 50 45 5f 45 52 52 CKEY_ID_TYPE_ERR
e950: 4f 52 20 20 20 20 20 49 66 20 77 65 20 61 72 65 OR If we are
e960: 20 75 6e 61 62 6c 65 20 74 6f 20 64 65 74 65 72 unable to deter
e970: 6d 69 6e 65 20 77 68 61 74 20 74 79 70 65 20 6f mine what type o
e980: 66 20 63 61 72 64 0a 20 2a 20 20 20 20 20 20 20 f card. *
e990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
e9a0: 20 20 20 20 20 20 20 69 73 20 63 6f 6e 6e 65 63 is connec
e9b0: 74 65 64 0a 20 2a 0a 20 2a 20 4e 4f 54 45 53 0a ted. *. * NOTES.
e9c0: 20 2a 20 20 20 20 20 54 68 69 73 20 66 75 6e 63 * This func
e9d0: 74 69 6f 6e 20 72 65 73 65 6c 65 63 74 73 20 74 tion reselects t
e9e0: 68 65 20 22 72 6f 6f 74 22 20 61 70 70 6c 65 74 he "root" applet
e9f0: 2c 20 61 66 74 65 72 20 74 68 69 73 20 66 75 6e , after this fun
ea00: 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 0a ction is called.
ea10: 20 2a 20 20 20 20 20 74 68 65 20 75 73 65 72 20 * the user
ea20: 6d 61 79 20 62 65 20 72 65 71 75 69 72 65 64 20 may be required
ea30: 74 6f 20 6c 6f 67 69 6e 20 61 67 61 69 6e 0a 20 to login again.
ea40: 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63 61 63 *. */.static cac
ea50: 6b 65 79 5f 70 63 73 63 5f 69 64 5f 74 79 70 65 key_pcsc_id_type
ea60: 20 63 61 63 6b 65 79 5f 64 65 74 65 63 74 5f 61 cackey_detect_a
ea70: 6e 64 5f 73 65 6c 65 63 74 5f 72 6f 6f 74 5f 61 nd_select_root_a
ea80: 70 70 6c 65 74 28 73 74 72 75 63 74 20 63 61 63 pplet(struct cac
ea90: 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c 6f 74 2c 20 key_slot *slot,
eaa0: 63 61 63 6b 65 79 5f 70 63 73 63 5f 69 64 5f 74 cackey_pcsc_id_t
eab0: 79 70 65 20 74 79 70 65 5f 68 69 6e 74 29 20 7b ype type_hint) {
eac0: 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ..unsigned char
ead0: 63 63 63 5f 61 69 64 5b 5d 20 3d 20 7b 47 53 43 ccc_aid[] = {GSC
eae0: 49 53 5f 41 49 44 5f 43 43 43 7d 2c 20 70 69 76 IS_AID_CCC}, piv
eaf0: 5f 61 69 64 5b 5d 20 3d 20 7b 4e 49 53 54 53 50 _aid[] = {NISTSP
eb00: 38 30 30 5f 37 33 5f 33 5f 50 49 56 5f 41 49 44 800_73_3_PIV_AID
eb10: 7d 3b 0a 09 63 61 63 6b 65 79 5f 70 63 73 63 5f };..cackey_pcsc_
eb20: 69 64 5f 74 79 70 65 20 74 72 79 5f 74 79 70 65 id_type try_type
eb30: 73 5b 32 5d 2c 20 74 72 79 5f 74 79 70 65 3b 0a s[2], try_type;.
eb40: 09 69 6e 74 20 73 65 6e 64 5f 72 65 74 3b 0a 09 .int send_ret;..
eb50: 69 6e 74 20 69 64 78 3b 0a 0a 09 43 41 43 4b 45 int idx;...CACKE
eb60: 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
eb70: 52 65 73 65 6c 65 63 74 69 6e 67 20 74 68 65 20 Reselecting the
eb80: 72 6f 6f 74 20 61 70 70 6c 65 74 22 29 3b 0a 0a root applet");..
eb90: 09 69 66 20 28 74 79 70 65 5f 68 69 6e 74 20 3d .if (type_hint =
eba0: 3d 20 43 41 43 4b 45 59 5f 49 44 5f 54 59 50 45 = CACKEY_ID_TYPE
ebb0: 5f 55 4e 4b 4e 4f 57 4e 29 20 7b 0a 09 09 74 79 _UNKNOWN) {...ty
ebc0: 70 65 5f 68 69 6e 74 20 3d 20 73 6c 6f 74 2d 3e pe_hint = slot->
ebd0: 69 64 5f 74 79 70 65 5f 68 69 6e 74 3b 0a 09 7d id_type_hint;..}
ebe0: 0a 0a 09 73 6c 6f 74 2d 3e 69 64 5f 74 79 70 65 ...slot->id_type
ebf0: 5f 68 69 6e 74 20 3d 20 43 41 43 4b 45 59 5f 49 _hint = CACKEY_I
ec00: 44 5f 54 59 50 45 5f 55 4e 4b 4e 4f 57 4e 3b 0a D_TYPE_UNKNOWN;.
ec10: 0a 09 73 77 69 74 63 68 20 28 74 79 70 65 5f 68 ..switch (type_h
ec20: 69 6e 74 29 20 7b 0a 09 09 63 61 73 65 20 43 41 int) {...case CA
ec30: 43 4b 45 59 5f 49 44 5f 54 59 50 45 5f 50 49 56 CKEY_ID_TYPE_PIV
ec40: 3a 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 :....CACKEY_DEBU
ec50: 47 5f 50 52 49 4e 54 46 28 22 54 72 79 69 6e 67 G_PRINTF("Trying
ec60: 20 74 6f 20 72 65 73 65 6c 65 63 74 20 74 68 65 to reselect the
ec70: 20 50 49 56 20 72 6f 6f 74 20 61 70 70 6c 65 74 PIV root applet
ec80: 20 66 69 72 73 74 22 29 3b 0a 0a 09 09 09 74 72 first");.....tr
ec90: 79 5f 74 79 70 65 73 5b 30 5d 20 3d 20 43 41 43 y_types[0] = CAC
eca0: 4b 45 59 5f 49 44 5f 54 59 50 45 5f 50 49 56 3b KEY_ID_TYPE_PIV;
ecb0: 0a 09 09 09 74 72 79 5f 74 79 70 65 73 5b 31 5d ....try_types[1]
ecc0: 20 3d 20 43 41 43 4b 45 59 5f 49 44 5f 54 59 50 = CACKEY_ID_TYP
ecd0: 45 5f 43 41 43 3b 0a 0a 09 09 09 62 72 65 61 6b E_CAC;.....break
ece0: 3b 0a 09 09 64 65 66 61 75 6c 74 3a 0a 09 09 09 ;...default:....
ecf0: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
ed00: 4e 54 46 28 22 54 72 79 69 6e 67 20 74 6f 20 72 NTF("Trying to r
ed10: 65 73 65 6c 65 63 74 20 74 68 65 20 43 41 43 20 eselect the CAC
ed20: 43 43 43 20 61 70 70 6c 65 74 20 66 69 72 73 74 CCC applet first
ed30: 22 29 3b 0a 0a 09 09 09 74 72 79 5f 74 79 70 65 ");.....try_type
ed40: 73 5b 30 5d 20 3d 20 43 41 43 4b 45 59 5f 49 44 s[0] = CACKEY_ID
ed50: 5f 54 59 50 45 5f 43 41 43 3b 0a 09 09 09 74 72 _TYPE_CAC;....tr
ed60: 79 5f 74 79 70 65 73 5b 31 5d 20 3d 20 43 41 43 y_types[1] = CAC
ed70: 4b 45 59 5f 49 44 5f 54 59 50 45 5f 50 49 56 3b KEY_ID_TYPE_PIV;
ed80: 0a 0a 09 09 09 62 72 65 61 6b 3b 0a 09 7d 0a 0a .....break;..}..
ed90: 09 66 6f 72 20 28 69 64 78 20 3d 20 30 3b 20 69 .for (idx = 0; i
eda0: 64 78 20 3c 20 28 73 69 7a 65 6f 66 28 74 72 79 dx < (sizeof(try
edb0: 5f 74 79 70 65 73 29 20 2f 20 73 69 7a 65 6f 66 _types) / sizeof
edc0: 28 74 72 79 5f 74 79 70 65 73 5b 30 5d 29 29 3b (try_types[0]));
edd0: 20 69 64 78 2b 2b 29 20 7b 0a 09 09 74 72 79 5f idx++) {...try_
ede0: 74 79 70 65 20 3d 20 74 72 79 5f 74 79 70 65 73 type = try_types
edf0: 5b 69 64 78 5d 3b 0a 0a 09 09 73 77 69 74 63 68 [idx];....switch
ee00: 20 28 74 72 79 5f 74 79 70 65 29 20 7b 0a 09 09 (try_type) {...
ee10: 09 63 61 73 65 20 43 41 43 4b 45 59 5f 49 44 5f .case CACKEY_ID_
ee20: 54 59 50 45 5f 43 41 43 3a 0a 09 09 09 09 43 41 TYPE_CAC:.....CA
ee30: 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
ee40: 46 28 22 54 72 79 69 6e 67 20 74 6f 20 73 65 6c F("Trying to sel
ee50: 65 63 74 20 74 68 65 20 43 41 43 20 43 43 43 20 ect the CAC CCC
ee60: 61 70 70 6c 65 74 22 29 3b 0a 0a 09 09 09 09 73 applet");......s
ee70: 65 6e 64 5f 72 65 74 20 3d 20 63 61 63 6b 65 79 end_ret = cackey
ee80: 5f 73 65 6c 65 63 74 5f 61 70 70 6c 65 74 28 73 _select_applet(s
ee90: 6c 6f 74 2c 20 63 63 63 5f 61 69 64 2c 20 73 69 lot, ccc_aid, si
eea0: 7a 65 6f 66 28 63 63 63 5f 61 69 64 29 29 3b 0a zeof(ccc_aid));.
eeb0: 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 63 .....break;....c
eec0: 61 73 65 20 43 41 43 4b 45 59 5f 49 44 5f 54 59 ase CACKEY_ID_TY
eed0: 50 45 5f 50 49 56 3a 0a 09 09 09 09 43 41 43 4b PE_PIV:.....CACK
eee0: 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
eef0: 22 54 72 79 69 6e 67 20 74 6f 20 73 65 6c 65 63 "Trying to selec
ef00: 74 20 74 68 65 20 50 49 56 20 72 6f 6f 74 20 61 t the PIV root a
ef10: 70 70 6c 65 74 22 29 3b 0a 0a 09 09 09 09 73 65 pplet");......se
ef20: 6e 64 5f 72 65 74 20 3d 20 63 61 63 6b 65 79 5f nd_ret = cackey_
ef30: 73 65 6c 65 63 74 5f 61 70 70 6c 65 74 28 73 6c select_applet(sl
ef40: 6f 74 2c 20 70 69 76 5f 61 69 64 2c 20 73 69 7a ot, piv_aid, siz
ef50: 65 6f 66 28 70 69 76 5f 61 69 64 29 29 3b 0a 0a eof(piv_aid));..
ef60: 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 7d 0a 0a ....break;...}..
ef70: 09 09 69 66 20 28 73 65 6e 64 5f 72 65 74 20 3d ..if (send_ret =
ef80: 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f = CACKEY_PCSC_S_
ef90: 4f 4b 29 20 7b 0a 09 09 09 43 41 43 4b 45 59 5f OK) {....CACKEY_
efa0: 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 53 75 DEBUG_PRINTF("Su
efb0: 63 63 65 73 73 66 75 6c 6c 79 20 73 65 6c 65 63 ccessfully selec
efc0: 74 65 64 20 74 68 65 20 25 73 20 61 70 70 6c 65 ted the %s apple
efd0: 74 20 2d 2d 20 73 65 74 74 69 6e 67 20 74 68 65 t -- setting the
efe0: 20 5c 22 4c 4f 47 49 4e 20 52 45 51 55 49 52 45 \"LOGIN REQUIRE
eff0: 44 5c 22 20 66 6c 61 67 20 6f 6e 20 74 68 65 20 D\" flag on the
f000: 74 6f 6b 65 6e 22 2c 0a 09 09 09 09 74 72 79 5f token",.....try_
f010: 74 79 70 65 20 3d 3d 20 43 41 43 4b 45 59 5f 49 type == CACKEY_I
f020: 44 5f 54 59 50 45 5f 43 41 43 20 3f 20 22 43 41 D_TYPE_CAC ? "CA
f030: 43 22 20 3a 20 22 50 49 56 22 0a 09 09 09 29 3b C" : "PIV"....);
f040: 0a 0a 09 09 09 73 6c 6f 74 2d 3e 74 6f 6b 65 6e .....slot->token
f050: 5f 66 6c 61 67 73 20 3d 20 43 4b 46 5f 4c 4f 47 _flags = CKF_LOG
f060: 49 4e 5f 52 45 51 55 49 52 45 44 3b 0a 0a 09 09 IN_REQUIRED;....
f070: 09 73 6c 6f 74 2d 3e 69 64 5f 74 79 70 65 5f 68 .slot->id_type_h
f080: 69 6e 74 20 3d 20 74 72 79 5f 74 79 70 65 3b 0a int = try_type;.
f090: 0a 09 09 09 72 65 74 75 72 6e 28 74 72 79 5f 74 ....return(try_t
f0a0: 79 70 65 29 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 43 ype);...}..}...C
f0b0: 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
f0c0: 54 46 28 22 55 6e 61 62 6c 65 20 74 6f 20 73 65 TF("Unable to se
f0d0: 6c 65 63 74 20 61 6e 79 20 61 70 70 6c 65 74 2c lect any applet,
f0e0: 20 72 65 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 returning in fa
f0f0: 69 6c 75 72 65 22 29 3b 0a 0a 09 72 65 74 75 72 ilure");...retur
f100: 6e 28 43 41 43 4b 45 59 5f 49 44 5f 54 59 50 45 n(CACKEY_ID_TYPE
f110: 5f 45 52 52 4f 52 29 3b 0a 7d 0a 0a 2f 2a 0a 20 _ERROR);.}../*.
f120: 2a 20 53 59 4e 50 4f 53 49 53 0a 20 2a 20 20 20 * SYNPOSIS. *
f130: 20 20 63 61 63 6b 65 79 5f 72 65 74 20 63 61 63 cackey_ret cac
f140: 6b 65 79 5f 73 65 6c 65 63 74 5f 66 69 6c 65 28 key_select_file(
f150: 73 74 72 75 63 74 20 63 61 63 6b 65 79 5f 73 6c struct cackey_sl
f160: 6f 74 20 2a 73 6c 6f 74 2c 20 75 69 6e 74 31 36 ot *slot, uint16
f170: 5f 74 20 65 66 29 3b 0a 20 2a 0a 20 2a 20 41 52 _t ef);. *. * AR
f180: 47 55 4d 45 4e 54 53 0a 20 2a 20 20 20 20 20 73 GUMENTS. * s
f190: 74 72 75 63 74 20 63 61 63 6b 65 79 5f 73 6c 6f truct cackey_slo
f1a0: 74 20 2a 73 6c 6f 74 0a 20 2a 20 20 20 20 20 20 t *slot. *
f1b0: 20 20 20 53 6c 6f 74 20 74 6f 20 73 65 6e 64 20 Slot to send
f1c0: 63 6f 6d 6d 61 6e 64 73 20 74 6f 0a 20 2a 0a 20 commands to. *.
f1d0: 2a 20 20 20 20 20 75 69 6e 74 31 36 5f 74 20 65 * uint16_t e
f1e0: 66 0a 20 2a 20 20 20 20 20 20 20 20 20 45 6c 65 f. * Ele
f1f0: 6d 65 6e 74 61 6c 20 46 69 6c 65 20 74 6f 20 73 mental File to s
f200: 65 6c 65 63 74 0a 20 2a 0a 20 2a 20 52 45 54 55 elect. *. * RETU
f210: 52 4e 20 56 41 4c 55 45 0a 20 2a 20 20 20 20 20 RN VALUE. *
f220: 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f 4f 4b CACKEY_PCSC_S_OK
f230: 20 20 20 20 20 20 20 20 20 4f 6e 20 73 75 63 63 On succ
f240: 65 73 73 0a 20 2a 20 20 20 20 20 43 41 43 4b 45 ess. * CACKE
f250: 59 5f 50 43 53 43 5f 45 5f 47 45 4e 45 52 49 43 Y_PCSC_E_GENERIC
f260: 20 20 20 20 4f 6e 20 65 72 72 6f 72 0a 20 2a 0a On error. *.
f270: 20 2a 20 4e 4f 54 45 53 0a 20 2a 20 20 20 20 20 * NOTES. *
f280: 54 68 69 73 20 73 65 6c 65 63 74 73 20 61 6e 20 This selects an
f290: 45 6c 65 6d 65 6e 74 61 72 79 20 46 69 6c 65 20 Elementary File
f2a0: 28 45 46 29 20 75 6e 64 65 72 20 74 68 65 20 63 (EF) under the c
f2b0: 75 72 72 65 6e 74 6c 79 20 73 65 6c 65 63 74 65 urrently selecte
f2c0: 64 0a 20 2a 20 20 20 20 20 44 65 64 69 63 61 74 d. * Dedicat
f2d0: 65 64 20 46 69 6c 65 20 28 44 46 29 0a 20 2a 0a ed File (DF). *.
f2e0: 20 2a 20 20 20 20 20 54 79 70 69 63 61 6c 6c 79 * Typically
f2f0: 20 74 68 69 73 20 69 73 20 63 61 6c 6c 65 64 20 this is called
f300: 61 66 74 65 72 20 73 65 6c 65 63 74 69 6e 67 20 after selecting
f310: 74 68 65 20 63 6f 72 72 65 63 74 20 41 70 70 6c the correct Appl
f320: 65 74 20 28 75 73 69 6e 67 0a 20 2a 20 20 20 20 et (using. *
f330: 20 63 61 63 6b 65 79 5f 73 65 6c 65 63 74 5f 61 cackey_select_a
f340: 70 70 6c 65 74 29 20 66 6f 72 20 56 4d 20 63 61 pplet) for VM ca
f350: 72 64 73 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 rds. *. */.stati
f360: 63 20 63 61 63 6b 65 79 5f 72 65 74 20 63 61 63 c cackey_ret cac
f370: 6b 65 79 5f 73 65 6c 65 63 74 5f 66 69 6c 65 28 key_select_file(
f380: 73 74 72 75 63 74 20 63 61 63 6b 65 79 5f 73 6c struct cackey_sl
f390: 6f 74 20 2a 73 6c 6f 74 2c 20 75 69 6e 74 31 36 ot *slot, uint16
f3a0: 5f 74 20 65 66 29 20 7b 0a 09 75 6e 73 69 67 6e _t ef) {..unsign
f3b0: 65 64 20 63 68 61 72 20 66 69 64 5f 62 75 66 5b ed char fid_buf[
f3c0: 32 5d 3b 0a 09 69 6e 74 20 73 65 6e 64 5f 72 65 2];..int send_re
f3d0: 74 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 t;...CACKEY_DEBU
f3e0: 47 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 G_PRINTF("Called
f3f0: 2e 22 29 3b 0a 0a 09 2f 2a 20 4f 70 65 6e 20 74 .");.../* Open t
f400: 68 65 20 65 6c 65 6d 65 6e 74 61 72 79 20 66 69 he elementary fi
f410: 6c 65 20 2a 2f 0a 09 66 69 64 5f 62 75 66 5b 30 le */..fid_buf[0
f420: 5d 20 3d 20 28 65 66 20 3e 3e 20 38 29 20 26 20 ] = (ef >> 8) &
f430: 30 78 66 66 3b 0a 09 66 69 64 5f 62 75 66 5b 31 0xff;..fid_buf[1
f440: 5d 20 3d 20 65 66 20 26 20 30 78 66 66 3b 0a 0a ] = ef & 0xff;..
f450: 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
f460: 49 4e 54 46 28 22 53 65 6c 65 63 74 69 6e 67 20 INTF("Selecting
f470: 66 69 6c 65 3a 20 25 30 34 6c 78 22 2c 20 28 75 file: %04lx", (u
f480: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 65 66 nsigned long) ef
f490: 29 3b 0a 0a 09 73 65 6e 64 5f 72 65 74 20 3d 20 );...send_ret =
f4a0: 63 61 63 6b 65 79 5f 73 65 6e 64 5f 61 70 64 75 cackey_send_apdu
f4b0: 28 73 6c 6f 74 2c 20 47 53 43 49 53 5f 43 4c 41 (slot, GSCIS_CLA
f4c0: 53 53 5f 49 53 4f 37 38 31 36 2c 20 47 53 43 49 SS_ISO7816, GSCI
f4d0: 53 5f 49 4e 53 54 52 5f 53 45 4c 45 43 54 2c 20 S_INSTR_SELECT,
f4e0: 30 78 30 32 2c 20 30 78 30 43 2c 20 73 69 7a 65 0x02, 0x0C, size
f4f0: 6f 66 28 66 69 64 5f 62 75 66 29 2c 20 66 69 64 of(fid_buf), fid
f500: 5f 62 75 66 2c 20 30 78 30 30 2c 20 4e 55 4c 4c _buf, 0x00, NULL
f510: 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 09 , NULL, NULL);..
f520: 69 66 20 28 73 65 6e 64 5f 72 65 74 20 21 3d 20 if (send_ret !=
f530: 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f 4f 4b CACKEY_PCSC_S_OK
f540: 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 ) {...CACKEY_DEB
f550: 55 47 5f 50 52 49 4e 54 46 28 22 46 61 69 6c 65 UG_PRINTF("Faile
f560: 64 20 74 6f 20 6f 70 65 6e 20 66 69 6c 65 2c 20 d to open file,
f570: 72 65 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 returning in fai
f580: 6c 75 72 65 22 29 3b 0a 0a 09 09 72 65 74 75 72 lure");....retur
f590: 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f n(CACKEY_PCSC_E_
f5a0: 47 45 4e 45 52 49 43 29 3b 0a 09 7d 0a 0a 09 43 GENERIC);..}...C
f5b0: 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
f5c0: 54 46 28 22 53 75 63 63 65 73 73 66 75 6c 6c 79 TF("Successfully
f5d0: 20 73 65 6c 65 63 74 65 64 20 66 69 6c 65 22 29 selected file")
f5e0: 3b 0a 0a 09 72 65 74 75 72 6e 28 43 41 43 4b 45 ;...return(CACKE
f5f0: 59 5f 50 43 53 43 5f 53 5f 4f 4b 29 3b 0a 7d 0a Y_PCSC_S_OK);.}.
f600: 0a 2f 2a 0a 20 2a 20 53 59 4e 50 4f 53 49 53 0a ./*. * SYNPOSIS.
f610: 20 2a 20 20 20 20 20 76 6f 69 64 20 63 61 63 6b * void cack
f620: 65 79 5f 66 72 65 65 5f 74 6c 76 28 73 74 72 75 ey_free_tlv(stru
f630: 63 74 20 63 61 63 6b 65 79 5f 74 6c 76 5f 65 6e ct cackey_tlv_en
f640: 74 69 74 79 20 2a 72 6f 6f 74 29 3b 0a 20 2a 0a tity *root);. *.
f650: 20 2a 20 41 52 47 55 4d 45 4e 54 53 0a 20 2a 20 * ARGUMENTS. *
f660: 20 20 20 20 73 74 72 75 63 74 20 63 61 63 6b 65 struct cacke
f670: 79 5f 74 6c 76 5f 65 6e 74 69 74 79 20 2a 72 6f y_tlv_entity *ro
f680: 6f 74 0a 20 2a 20 20 20 20 20 20 20 20 20 52 6f ot. * Ro
f690: 6f 74 20 6f 66 20 74 68 65 20 54 4c 56 20 6c 69 ot of the TLV li
f6a0: 73 74 20 74 6f 20 73 74 61 72 74 20 66 72 65 65 st to start free
f6b0: 69 6e 67 0a 20 2a 0a 20 2a 20 52 45 54 55 52 4e ing. *. * RETURN
f6c0: 20 56 41 4c 55 45 0a 20 2a 20 20 20 20 20 4e 6f VALUE. * No
f6d0: 6e 65 0a 20 2a 0a 20 2a 20 4e 4f 54 45 53 0a 20 ne. *. * NOTES.
f6e0: 2a 20 20 20 20 20 54 68 69 73 20 66 75 6e 63 74 * This funct
f6f0: 69 6f 6e 20 66 72 65 65 73 20 74 68 65 20 54 4c ion frees the TL
f700: 56 20 6c 69 6e 6b 65 64 20 6c 69 73 74 65 64 20 V linked listed
f710: 72 65 74 75 72 6e 65 64 20 66 72 6f 6d 0a 20 2a returned from. *
f720: 20 20 20 20 20 22 63 61 63 6b 65 79 5f 72 65 61 "cackey_rea
f730: 64 5f 74 6c 76 22 0a 20 2a 0a 20 2a 2f 0a 73 74 d_tlv". *. */.st
f740: 61 74 69 63 20 76 6f 69 64 20 63 61 63 6b 65 79 atic void cackey
f750: 5f 66 72 65 65 5f 74 6c 76 28 73 74 72 75 63 74 _free_tlv(struct
f760: 20 63 61 63 6b 65 79 5f 74 6c 76 5f 65 6e 74 69 cackey_tlv_enti
f770: 74 79 20 2a 72 6f 6f 74 29 20 7b 0a 09 73 74 72 ty *root) {..str
f780: 75 63 74 20 63 61 63 6b 65 79 5f 74 6c 76 5f 65 uct cackey_tlv_e
f790: 6e 74 69 74 79 20 2a 63 75 72 72 2c 20 2a 6e 65 ntity *curr, *ne
f7a0: 78 74 3b 0a 0a 09 69 66 20 28 72 6f 6f 74 20 3d xt;...if (root =
f7b0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 = NULL) {...retu
f7c0: 72 6e 3b 0a 09 7d 0a 0a 09 66 6f 72 20 28 63 75 rn;..}...for (cu
f7d0: 72 72 20 3d 20 72 6f 6f 74 3b 20 63 75 72 72 3b rr = root; curr;
f7e0: 20 63 75 72 72 20 3d 20 6e 65 78 74 29 20 7b 0a curr = next) {.
f7f0: 09 09 6e 65 78 74 20 3d 20 63 75 72 72 2d 3e 5f ..next = curr->_
f800: 6e 65 78 74 3b 0a 0a 09 09 73 77 69 74 63 68 20 next;....switch
f810: 28 63 75 72 72 2d 3e 74 61 67 29 20 7b 0a 09 09 (curr->tag) {...
f820: 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 47 5f .case GSCIS_TAG_
f830: 41 43 52 5f 54 41 42 4c 45 3a 0a 09 09 09 63 61 ACR_TABLE:....ca
f840: 73 65 20 47 53 43 49 53 5f 54 41 47 5f 43 45 52 se GSCIS_TAG_CER
f850: 54 49 46 49 43 41 54 45 3a 0a 09 09 09 09 69 66 TIFICATE:.....if
f860: 20 28 63 75 72 72 2d 3e 76 61 6c 75 65 29 20 7b (curr->value) {
f870: 0a 09 09 09 09 09 66 72 65 65 28 63 75 72 72 2d ......free(curr-
f880: 3e 76 61 6c 75 65 29 3b 0a 09 09 09 09 7d 0a 09 >value);.....}..
f890: 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 ...break;....cas
f8a0: 65 20 47 53 43 49 53 5f 54 41 47 5f 43 41 52 44 e GSCIS_TAG_CARD
f8b0: 55 52 4c 3a 0a 09 09 09 09 69 66 20 28 63 75 72 URL:.....if (cur
f8c0: 72 2d 3e 76 61 6c 75 65 5f 63 61 72 64 75 72 6c r->value_cardurl
f8d0: 29 20 7b 0a 09 09 09 09 09 66 72 65 65 28 63 75 ) {......free(cu
f8e0: 72 72 2d 3e 76 61 6c 75 65 5f 63 61 72 64 75 72 rr->value_cardur
f8f0: 6c 29 3b 0a 09 09 09 09 7d 0a 09 09 09 09 62 72 l);.....}.....br
f900: 65 61 6b 3b 0a 09 09 7d 0a 0a 09 09 66 72 65 65 eak;...}....free
f910: 28 63 75 72 72 29 3b 0a 09 7d 0a 0a 09 72 65 74 (curr);..}...ret
f920: 75 72 6e 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 59 urn;.}../*. * SY
f930: 4e 50 4f 53 49 53 0a 20 2a 20 20 20 20 20 2e 2e NPOSIS. * ..
f940: 2e 0a 20 2a 0a 20 2a 20 41 52 47 55 4d 45 4e 54 .. *. * ARGUMENT
f950: 53 0a 20 2a 20 20 20 20 20 2e 2e 2e 0a 20 2a 0a S. * .... *.
f960: 20 2a 20 52 45 54 55 52 4e 20 56 41 4c 55 45 0a * RETURN VALUE.
f970: 20 2a 20 20 20 20 20 2e 2e 2e 0a 20 2a 0a 20 2a * .... *. *
f980: 20 4e 4f 54 45 53 0a 20 2a 20 20 20 20 20 2e 2e NOTES. * ..
f990: 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 .. *. */.static
f9a0: 73 74 72 75 63 74 20 63 61 63 6b 65 79 5f 74 6c struct cackey_tl
f9b0: 76 5f 65 6e 74 69 74 79 20 2a 63 61 63 6b 65 79 v_entity *cackey
f9c0: 5f 72 65 61 64 5f 74 6c 76 28 73 74 72 75 63 74 _read_tlv(struct
f9d0: 20 63 61 63 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c cackey_slot *sl
f9e0: 6f 74 29 20 7b 0a 09 73 74 72 75 63 74 20 63 61 ot) {..struct ca
f9f0: 63 6b 65 79 5f 74 6c 76 5f 65 6e 74 69 74 79 20 ckey_tlv_entity
fa00: 2a 63 75 72 72 5f 65 6e 74 69 74 79 2c 20 2a 72 *curr_entity, *r
fa10: 6f 6f 74 20 3d 20 4e 55 4c 4c 2c 20 2a 6c 61 73 oot = NULL, *las
fa20: 74 20 3d 20 4e 55 4c 4c 3b 0a 09 75 6e 73 69 67 t = NULL;..unsig
fa30: 6e 65 64 20 63 68 61 72 20 74 6c 65 6e 5f 62 75 ned char tlen_bu
fa40: 66 5b 32 5d 2c 20 74 76 61 6c 5f 62 75 66 5b 31 f[2], tval_buf[1
fa50: 30 32 34 5d 2c 20 2a 74 76 61 6c 3b 0a 09 75 6e 024], *tval;..un
fa60: 73 69 67 6e 65 64 20 63 68 61 72 20 76 6c 65 6e signed char vlen
fa70: 5f 62 75 66 5b 32 5d 2c 20 76 76 61 6c 5f 62 75 _buf[2], vval_bu
fa80: 66 5b 38 31 39 32 5d 2c 20 2a 76 76 61 6c 3b 0a f[8192], *vval;.
fa90: 09 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a .unsigned char *
faa0: 74 6d 70 62 75 66 3b 0a 09 75 6e 73 69 67 6e 65 tmpbuf;..unsigne
fab0: 64 20 6c 6f 6e 67 20 74 6d 70 62 75 66 6c 65 6e d long tmpbuflen
fac0: 3b 0a 09 73 73 69 7a 65 5f 74 20 74 6c 65 6e 2c ;..ssize_t tlen,
fad0: 20 76 6c 65 6e 3b 0a 09 73 73 69 7a 65 5f 74 20 vlen;..ssize_t
fae0: 72 65 61 64 5f 72 65 74 3b 0a 09 73 69 7a 65 5f read_ret;..size_
faf0: 74 20 6f 66 66 73 65 74 5f 74 20 3d 20 30 2c 20 t offset_t = 0,
fb00: 6f 66 66 73 65 74 5f 76 20 3d 20 30 3b 0a 09 75 offset_v = 0;..u
fb10: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 74 61 67 nsigned char tag
fb20: 3b 0a 09 73 69 7a 65 5f 74 20 6c 65 6e 67 74 68 ;..size_t length
fb30: 3b 0a 23 69 66 64 65 66 20 48 41 56 45 5f 4c 49 ;.#ifdef HAVE_LI
fb40: 42 5a 0a 09 69 6e 74 20 75 6e 63 6f 6d 70 72 65 BZ..int uncompre
fb50: 73 73 5f 72 65 74 3b 0a 23 65 6e 64 69 66 0a 0a ss_ret;.#endif..
fb60: 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
fb70: 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b INTF("Called.");
fb80: 0a 0a 09 72 65 61 64 5f 72 65 74 20 3d 20 63 61 ...read_ret = ca
fb90: 63 6b 65 79 5f 72 65 61 64 5f 62 75 66 66 65 72 ckey_read_buffer
fba0: 28 73 6c 6f 74 2c 20 74 6c 65 6e 5f 62 75 66 2c (slot, tlen_buf,
fbb0: 20 73 69 7a 65 6f 66 28 74 6c 65 6e 5f 62 75 66 sizeof(tlen_buf
fbc0: 29 2c 20 31 2c 20 6f 66 66 73 65 74 5f 74 29 3b ), 1, offset_t);
fbd0: 0a 09 69 66 20 28 72 65 61 64 5f 72 65 74 20 21 ..if (read_ret !
fbe0: 3d 20 73 69 7a 65 6f 66 28 74 6c 65 6e 5f 62 75 = sizeof(tlen_bu
fbf0: 66 29 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 f)) {...CACKEY_D
fc00: 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 61 EBUG_PRINTF("Rea
fc10: 64 20 66 61 69 6c 65 64 2c 20 72 65 74 75 72 6e d failed, return
fc20: 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 65 22 29 ing in failure")
fc30: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c ;....return(NULL
fc40: 29 3b 0a 09 7d 0a 0a 09 74 6c 65 6e 20 3d 20 28 );..}...tlen = (
fc50: 74 6c 65 6e 5f 62 75 66 5b 31 5d 20 3c 3c 20 38 tlen_buf[1] << 8
fc60: 29 20 7c 20 74 6c 65 6e 5f 62 75 66 5b 30 5d 3b ) | tlen_buf[0];
fc70: 0a 0a 09 72 65 61 64 5f 72 65 74 20 3d 20 63 61 ...read_ret = ca
fc80: 63 6b 65 79 5f 72 65 61 64 5f 62 75 66 66 65 72 ckey_read_buffer
fc90: 28 73 6c 6f 74 2c 20 76 6c 65 6e 5f 62 75 66 2c (slot, vlen_buf,
fca0: 20 73 69 7a 65 6f 66 28 76 6c 65 6e 5f 62 75 66 sizeof(vlen_buf
fcb0: 29 2c 20 32 2c 20 6f 66 66 73 65 74 5f 76 29 3b ), 2, offset_v);
fcc0: 0a 09 69 66 20 28 72 65 61 64 5f 72 65 74 20 21 ..if (read_ret !
fcd0: 3d 20 73 69 7a 65 6f 66 28 76 6c 65 6e 5f 62 75 = sizeof(vlen_bu
fce0: 66 29 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 f)) {...CACKEY_D
fcf0: 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 61 EBUG_PRINTF("Rea
fd00: 64 20 66 61 69 6c 65 64 2c 20 72 65 74 75 72 6e d failed, return
fd10: 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 65 22 29 ing in failure")
fd20: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c ;....return(NULL
fd30: 29 3b 0a 09 7d 0a 0a 09 76 6c 65 6e 20 3d 20 28 );..}...vlen = (
fd40: 76 6c 65 6e 5f 62 75 66 5b 31 5d 20 3c 3c 20 38 vlen_buf[1] << 8
fd50: 29 20 7c 20 76 6c 65 6e 5f 62 75 66 5b 30 5d 3b ) | vlen_buf[0];
fd60: 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
fd70: 50 52 49 4e 54 46 28 22 54 61 67 20 4c 65 6e 67 PRINTF("Tag Leng
fd80: 74 68 20 3d 20 25 6c 75 2c 20 56 61 6c 75 65 20 th = %lu, Value
fd90: 4c 65 6e 67 74 68 20 3d 20 25 6c 75 22 2c 20 28 Length = %lu", (
fda0: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 74 unsigned long) t
fdb0: 6c 65 6e 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c len, (unsigned l
fdc0: 6f 6e 67 29 20 76 6c 65 6e 29 3b 0a 0a 09 6f 66 ong) vlen);...of
fdd0: 66 73 65 74 5f 74 20 2b 3d 20 32 3b 0a 09 6f 66 fset_t += 2;..of
fde0: 66 73 65 74 5f 76 20 2b 3d 20 32 3b 0a 0a 09 69 fset_v += 2;...i
fdf0: 66 20 28 74 6c 65 6e 20 3e 20 73 69 7a 65 6f 66 f (tlen > sizeof
fe00: 28 74 76 61 6c 5f 62 75 66 29 29 20 7b 0a 09 09 (tval_buf)) {...
fe10: 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
fe20: 4e 54 46 28 22 54 61 67 20 6c 65 6e 67 74 68 20 NTF("Tag length
fe30: 69 73 20 74 6f 6f 20 6c 61 72 67 65 2c 20 72 65 is too large, re
fe40: 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 turning in failu
fe50: 72 65 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 re");....return(
fe60: 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 NULL);..}...if (
fe70: 76 6c 65 6e 20 3e 20 73 69 7a 65 6f 66 28 76 76 vlen > sizeof(vv
fe80: 61 6c 5f 62 75 66 29 29 20 7b 0a 09 09 43 41 43 al_buf)) {...CAC
fe90: 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
fea0: 28 22 56 61 6c 75 65 20 6c 65 6e 67 74 68 20 69 ("Value length i
feb0: 73 20 74 6f 6f 20 6c 61 72 67 65 2c 20 72 65 74 s too large, ret
fec0: 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 urning in failur
fed0: 65 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e e");....return(N
fee0: 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 72 65 61 64 5f ULL);..}...read_
fef0: 72 65 74 20 3d 20 63 61 63 6b 65 79 5f 72 65 61 ret = cackey_rea
ff00: 64 5f 62 75 66 66 65 72 28 73 6c 6f 74 2c 20 74 d_buffer(slot, t
ff10: 76 61 6c 5f 62 75 66 2c 20 74 6c 65 6e 2c 20 31 val_buf, tlen, 1
ff20: 2c 20 6f 66 66 73 65 74 5f 74 29 3b 0a 09 69 66 , offset_t);..if
ff30: 20 28 72 65 61 64 5f 72 65 74 20 21 3d 20 74 6c (read_ret != tl
ff40: 65 6e 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 en) {...CACKEY_D
ff50: 45 42 55 47 5f 50 52 49 4e 54 46 28 22 55 6e 61 EBUG_PRINTF("Una
ff60: 62 6c 65 20 74 6f 20 72 65 61 64 20 65 6e 74 69 ble to read enti
ff70: 72 65 20 54 2d 62 75 66 66 65 72 2c 20 72 65 74 re T-buffer, ret
ff80: 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 urning in failur
ff90: 65 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e e");....return(N
ffa0: 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 72 65 61 64 5f ULL);..}...read_
ffb0: 72 65 74 20 3d 20 63 61 63 6b 65 79 5f 72 65 61 ret = cackey_rea
ffc0: 64 5f 62 75 66 66 65 72 28 73 6c 6f 74 2c 20 76 d_buffer(slot, v
ffd0: 76 61 6c 5f 62 75 66 2c 20 76 6c 65 6e 2c 20 32 val_buf, vlen, 2
ffe0: 2c 20 6f 66 66 73 65 74 5f 76 29 3b 0a 09 69 66 , offset_v);..if
fff0: 20 28 72 65 61 64 5f 72 65 74 20 21 3d 20 76 6c (read_ret != vl
10000 65 6e 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 en) {...CACKEY_D
10010 45 42 55 47 5f 50 52 49 4e 54 46 28 22 55 6e 61 EBUG_PRINTF("Una
10020 62 6c 65 20 74 6f 20 72 65 61 64 20 65 6e 74 69 ble to read enti
10030 72 65 20 56 2d 62 75 66 66 65 72 2c 20 72 65 74 re V-buffer, ret
10040 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 urning in failur
10050 65 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e e");....return(N
10060 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 74 76 61 6c 20 ULL);..}...tval
10070 3d 20 74 76 61 6c 5f 62 75 66 3b 0a 09 76 76 61 = tval_buf;..vva
10080 6c 20 3d 20 76 76 61 6c 5f 62 75 66 3b 0a 09 77 l = vval_buf;..w
10090 68 69 6c 65 20 28 74 6c 65 6e 20 3e 20 30 20 26 hile (tlen > 0 &
100a0 26 20 76 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 09 & vlen > 0) {...
100b0 74 61 67 20 3d 20 2a 74 76 61 6c 3b 0a 09 09 74 tag = *tval;...t
100c0 76 61 6c 2b 2b 3b 0a 09 09 74 6c 65 6e 2d 2d 3b val++;...tlen--;
100d0 0a 0a 09 09 69 66 20 28 2a 74 76 61 6c 20 3d 3d ....if (*tval ==
100e0 20 30 78 66 66 29 20 7b 0a 09 09 09 6c 65 6e 67 0xff) {....leng
100f0 74 68 20 3d 20 28 74 76 61 6c 5b 32 5d 20 3c 3c th = (tval[2] <<
10100 20 38 29 20 7c 20 74 76 61 6c 5b 31 5d 3b 0a 09 8) | tval[1];..
10110 09 09 74 76 61 6c 20 2b 3d 20 33 3b 0a 09 09 09 ..tval += 3;....
10120 74 6c 65 6e 20 2d 3d 20 33 3b 0a 09 09 7d 20 65 tlen -= 3;...} e
10130 6c 73 65 20 7b 0a 09 09 09 6c 65 6e 67 74 68 20 lse {....length
10140 3d 20 2a 74 76 61 6c 3b 0a 09 09 09 74 76 61 6c = *tval;....tval
10150 2b 2b 3b 0a 09 09 09 74 6c 65 6e 2d 2d 3b 0a 09 ++;....tlen--;..
10160 09 7d 0a 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 .}....CACKEY_DEB
10170 55 47 5f 50 52 49 4e 54 46 28 22 54 61 67 3a 20 UG_PRINTF("Tag:
10180 25 73 20 28 25 30 32 78 29 22 2c 20 43 41 43 4b %s (%02x)", CACK
10190 45 59 5f 44 45 42 55 47 5f 46 55 4e 43 5f 54 41 EY_DEBUG_FUNC_TA
101a0 47 5f 54 4f 5f 53 54 52 28 74 61 67 29 2c 20 28 G_TO_STR(tag), (
101b0 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 20 74 61 unsigned int) ta
101c0 67 29 3b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 g);...CACKEY_DEB
101d0 55 47 5f 50 52 49 4e 54 42 55 46 28 22 56 61 6c UG_PRINTBUF("Val
101e0 75 65 3a 22 2c 20 76 76 61 6c 2c 20 6c 65 6e 67 ue:", vval, leng
101f0 74 68 29 3b 0a 0a 09 09 63 75 72 72 5f 65 6e 74 th);....curr_ent
10200 69 74 79 20 3d 20 4e 55 4c 4c 3b 0a 09 09 73 77 ity = NULL;...sw
10210 69 74 63 68 20 28 74 61 67 29 20 7b 0a 09 09 09 itch (tag) {....
10220 63 61 73 65 20 47 53 43 49 53 5f 54 41 47 5f 43 case GSCIS_TAG_C
10230 41 52 44 55 52 4c 3a 0a 09 09 09 09 63 75 72 72 ARDURL:.....curr
10240 5f 65 6e 74 69 74 79 20 3d 20 6d 61 6c 6c 6f 63 _entity = malloc
10250 28 73 69 7a 65 6f 66 28 2a 63 75 72 72 5f 65 6e (sizeof(*curr_en
10260 74 69 74 79 29 29 3b 0a 09 09 09 09 63 75 72 72 tity));.....curr
10270 5f 65 6e 74 69 74 79 2d 3e 76 61 6c 75 65 5f 63 _entity->value_c
10280 61 72 64 75 72 6c 20 3d 20 6d 61 6c 6c 6f 63 28 ardurl = malloc(
10290 73 69 7a 65 6f 66 28 2a 63 75 72 72 5f 65 6e 74 sizeof(*curr_ent
102a0 69 74 79 2d 3e 76 61 6c 75 65 5f 63 61 72 64 75 ity->value_cardu
102b0 72 6c 29 29 3b 0a 0a 09 09 09 09 6d 65 6d 63 70 rl));......memcp
102c0 79 28 63 75 72 72 5f 65 6e 74 69 74 79 2d 3e 76 y(curr_entity->v
102d0 61 6c 75 65 5f 63 61 72 64 75 72 6c 2d 3e 72 69 alue_cardurl->ri
102e0 64 2c 20 76 76 61 6c 2c 20 35 29 3b 0a 09 09 09 d, vval, 5);....
102f0 09 63 75 72 72 5f 65 6e 74 69 74 79 2d 3e 76 61 .curr_entity->va
10300 6c 75 65 5f 63 61 72 64 75 72 6c 2d 3e 61 70 70 lue_cardurl->app
10310 74 79 70 65 20 3d 20 76 76 61 6c 5b 35 5d 3b 0a type = vval[5];.
10320 09 09 09 09 63 75 72 72 5f 65 6e 74 69 74 79 2d ....curr_entity-
10330 3e 76 61 6c 75 65 5f 63 61 72 64 75 72 6c 2d 3e >value_cardurl->
10340 6f 62 6a 65 63 74 69 64 20 3d 20 28 76 76 61 6c objectid = (vval
10350 5b 36 5d 20 3c 3c 20 38 29 20 7c 20 76 76 61 6c [6] << 8) | vval
10360 5b 37 5d 3b 0a 09 09 09 09 63 75 72 72 5f 65 6e [7];.....curr_en
10370 74 69 74 79 2d 3e 76 61 6c 75 65 5f 63 61 72 64 tity->value_card
10380 75 72 6c 2d 3e 61 70 70 69 64 20 3d 20 28 76 76 url->appid = (vv
10390 61 6c 5b 38 5d 20 3c 3c 20 38 29 20 7c 20 76 76 al[8] << 8) | vv
103a0 61 6c 5b 39 5d 3b 0a 0a 09 09 09 09 63 75 72 72 al[9];......curr
103b0 5f 65 6e 74 69 74 79 2d 3e 74 61 67 20 3d 20 74 _entity->tag = t
103c0 61 67 3b 0a 09 09 09 09 63 75 72 72 5f 65 6e 74 ag;.....curr_ent
103d0 69 74 79 2d 3e 5f 6e 65 78 74 20 3d 20 4e 55 4c ity->_next = NUL
103e0 4c 3b 0a 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 L;......break;..
103f0 09 09 63 61 73 65 20 47 53 43 49 53 5f 54 41 47 ..case GSCIS_TAG
10400 5f 41 43 52 5f 54 41 42 4c 45 3a 0a 09 09 09 09 _ACR_TABLE:.....
10410 63 75 72 72 5f 65 6e 74 69 74 79 20 3d 20 6d 61 curr_entity = ma
10420 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 2a 63 75 72 lloc(sizeof(*cur
10430 72 5f 65 6e 74 69 74 79 29 29 3b 0a 09 09 09 09 r_entity));.....
10440 74 6d 70 62 75 66 20 3d 20 6d 61 6c 6c 6f 63 28 tmpbuf = malloc(
10450 6c 65 6e 67 74 68 29 3b 0a 0a 09 09 09 09 6d 65 length);......me
10460 6d 63 70 79 28 74 6d 70 62 75 66 2c 20 76 76 61 mcpy(tmpbuf, vva
10470 6c 2c 20 6c 65 6e 67 74 68 29 3b 0a 0a 09 09 09 l, length);.....
10480 09 63 75 72 72 5f 65 6e 74 69 74 79 2d 3e 74 61 .curr_entity->ta
10490 67 20 3d 20 74 61 67 3b 0a 09 09 09 09 63 75 72 g = tag;.....cur
104a0 72 5f 65 6e 74 69 74 79 2d 3e 6c 65 6e 67 74 68 r_entity->length
104b0 20 3d 20 6c 65 6e 67 74 68 3b 0a 09 09 09 09 63 = length;.....c
104c0 75 72 72 5f 65 6e 74 69 74 79 2d 3e 76 61 6c 75 urr_entity->valu
104d0 65 20 3d 20 74 6d 70 62 75 66 3b 0a 09 09 09 09 e = tmpbuf;.....
104e0 63 75 72 72 5f 65 6e 74 69 74 79 2d 3e 5f 6e 65 curr_entity->_ne
104f0 78 74 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 09 09 09 xt = NULL;......
10500 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 47 break;....case G
10510 53 43 49 53 5f 54 41 47 5f 43 45 52 54 49 46 49 SCIS_TAG_CERTIFI
10520 43 41 54 45 3a 0a 09 09 09 09 63 75 72 72 5f 65 CATE:.....curr_e
10530 6e 74 69 74 79 20 3d 20 6d 61 6c 6c 6f 63 28 73 ntity = malloc(s
10540 69 7a 65 6f 66 28 2a 63 75 72 72 5f 65 6e 74 69 izeof(*curr_enti
10550 74 79 29 29 3b 0a 0a 23 69 66 64 65 66 20 48 41 ty));..#ifdef HA
10560 56 45 5f 4c 49 42 5a 0a 09 09 09 09 74 6d 70 62 VE_LIBZ.....tmpb
10570 75 66 6c 65 6e 20 3d 20 6c 65 6e 67 74 68 20 2a uflen = length *
10580 20 32 3b 0a 09 09 09 09 74 6d 70 62 75 66 20 3d 2;.....tmpbuf =
10590 20 6d 61 6c 6c 6f 63 28 74 6d 70 62 75 66 6c 65 malloc(tmpbufle
105a0 6e 29 3b 0a 0a 09 09 09 09 75 6e 63 6f 6d 70 72 n);......uncompr
105b0 65 73 73 5f 72 65 74 20 3d 20 75 6e 63 6f 6d 70 ess_ret = uncomp
105c0 72 65 73 73 28 74 6d 70 62 75 66 2c 20 26 74 6d ress(tmpbuf, &tm
105d0 70 62 75 66 6c 65 6e 2c 20 76 76 61 6c 2c 20 6c pbuflen, vval, l
105e0 65 6e 67 74 68 29 3b 0a 09 09 09 09 69 66 20 28 ength);.....if (
105f0 75 6e 63 6f 6d 70 72 65 73 73 5f 72 65 74 20 21 uncompress_ret !
10600 3d 20 5a 5f 4f 4b 29 20 7b 0a 09 09 09 09 09 43 = Z_OK) {......C
10610 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
10620 54 46 28 22 46 61 69 6c 65 64 20 74 6f 20 64 65 TF("Failed to de
10630 63 6f 6d 70 72 65 73 73 2c 20 75 6e 63 6f 6d 70 compress, uncomp
10640 72 65 73 73 28 29 20 72 65 74 75 72 6e 65 64 20 ress() returned
10650 25 69 20 2d 2d 20 72 65 73 6f 72 74 69 6e 67 20 %i -- resorting
10660 74 6f 20 64 69 72 65 63 74 20 63 6f 70 79 22 2c to direct copy",
10670 20 75 6e 63 6f 6d 70 72 65 73 73 5f 72 65 74 29 uncompress_ret)
10680 3b 0a 0a 09 09 09 09 09 74 6d 70 62 75 66 6c 65 ;.......tmpbufle
10690 6e 20 3d 20 6c 65 6e 67 74 68 3b 0a 09 09 09 09 n = length;.....
106a0 09 6d 65 6d 63 70 79 28 74 6d 70 62 75 66 2c 20 .memcpy(tmpbuf,
106b0 76 76 61 6c 2c 20 6c 65 6e 67 74 68 29 3b 0a 09 vval, length);..
106c0 09 09 09 7d 0a 0a 09 09 09 09 43 41 43 4b 45 59 ...}......CACKEY
106d0 5f 44 45 42 55 47 5f 50 52 49 4e 54 42 55 46 28 _DEBUG_PRINTBUF(
106e0 22 44 65 63 6f 6d 70 72 65 73 73 65 64 20 74 6f "Decompressed to
106f0 3a 22 2c 20 74 6d 70 62 75 66 2c 20 74 6d 70 62 :", tmpbuf, tmpb
10700 75 66 6c 65 6e 29 3b 0a 23 65 6c 73 65 0a 09 09 uflen);.#else...
10710 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
10720 52 49 4e 54 46 28 22 4d 69 73 73 69 6e 67 20 5a RINTF("Missing Z
10730 4c 49 42 20 53 75 70 70 6f 72 74 2c 20 74 68 69 LIB Support, thi
10740 73 20 63 65 72 74 69 66 69 63 61 74 65 20 69 73 s certificate is
10750 20 6c 69 6b 65 6c 79 20 75 73 65 6c 65 73 73 2e likely useless.
10760 2e 2e 22 29 3b 0a 0a 09 09 09 09 74 6d 70 62 75 ..");......tmpbu
10770 66 6c 65 6e 20 3d 20 6c 65 6e 67 74 68 3b 0a 09 flen = length;..
10780 09 09 09 6d 65 6d 63 70 79 28 74 6d 70 62 75 66 ...memcpy(tmpbuf
10790 2c 20 76 76 61 6c 2c 20 6c 65 6e 67 74 68 29 3b , vval, length);
107a0 0a 23 65 6e 64 69 66 0a 0a 09 09 09 09 63 75 72 .#endif......cur
107b0 72 5f 65 6e 74 69 74 79 2d 3e 74 61 67 20 3d 20 r_entity->tag =
107c0 74 61 67 3b 0a 09 09 09 09 63 75 72 72 5f 65 6e tag;.....curr_en
107d0 74 69 74 79 2d 3e 6c 65 6e 67 74 68 20 3d 20 74 tity->length = t
107e0 6d 70 62 75 66 6c 65 6e 3b 0a 09 09 09 09 63 75 mpbuflen;.....cu
107f0 72 72 5f 65 6e 74 69 74 79 2d 3e 76 61 6c 75 65 rr_entity->value
10800 20 3d 20 74 6d 70 62 75 66 3b 0a 09 09 09 09 63 = tmpbuf;.....c
10810 75 72 72 5f 65 6e 74 69 74 79 2d 3e 5f 6e 65 78 urr_entity->_nex
10820 74 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 09 09 09 62 t = NULL;......b
10830 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 47 53 reak;....case GS
10840 43 49 53 5f 54 41 47 5f 50 4b 43 53 31 35 3a 0a CIS_TAG_PKCS15:.
10850 09 09 09 09 63 75 72 72 5f 65 6e 74 69 74 79 20 ....curr_entity
10860 3d 20 6d 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 = malloc(sizeof(
10870 2a 63 75 72 72 5f 65 6e 74 69 74 79 29 29 3b 0a *curr_entity));.
10880 0a 09 09 09 09 63 75 72 72 5f 65 6e 74 69 74 79 .....curr_entity
10890 2d 3e 74 61 67 20 3d 20 74 61 67 3b 0a 09 09 09 ->tag = tag;....
108a0 09 63 75 72 72 5f 65 6e 74 69 74 79 2d 3e 76 61 .curr_entity->va
108b0 6c 75 65 5f 62 79 74 65 20 3d 20 76 76 61 6c 5b lue_byte = vval[
108c0 30 5d 3b 0a 09 09 09 09 63 75 72 72 5f 65 6e 74 0];.....curr_ent
108d0 69 74 79 2d 3e 5f 6e 65 78 74 20 3d 20 4e 55 4c ity->_next = NUL
108e0 4c 3b 0a 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 L;......break;..
108f0 09 7d 0a 0a 09 09 76 76 61 6c 20 2b 3d 20 6c 65 .}....vval += le
10900 6e 67 74 68 3b 0a 09 09 76 6c 65 6e 20 2d 3d 20 ngth;...vlen -=
10910 6c 65 6e 67 74 68 3b 0a 0a 09 09 69 66 20 28 63 length;....if (c
10920 75 72 72 5f 65 6e 74 69 74 79 20 21 3d 20 4e 55 urr_entity != NU
10930 4c 4c 29 20 7b 0a 09 09 09 69 66 20 28 72 6f 6f LL) {....if (roo
10940 74 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 t == NULL) {....
10950 09 72 6f 6f 74 20 3d 20 63 75 72 72 5f 65 6e 74 .root = curr_ent
10960 69 74 79 3b 0a 09 09 09 7d 0a 0a 09 09 09 69 66 ity;....}.....if
10970 20 28 6c 61 73 74 20 21 3d 20 4e 55 4c 4c 29 20 (last != NULL)
10980 7b 0a 09 09 09 09 6c 61 73 74 2d 3e 5f 6e 65 78 {.....last->_nex
10990 74 20 3d 20 63 75 72 72 5f 65 6e 74 69 74 79 3b t = curr_entity;
109a0 0a 09 09 09 7d 0a 0a 09 09 09 6c 61 73 74 20 3d ....}.....last =
109b0 20 63 75 72 72 5f 65 6e 74 69 74 79 3b 0a 09 09 curr_entity;...
109c0 7d 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 72 6f }..}...return(ro
109d0 6f 74 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 59 ot);.}../*. * SY
109e0 4e 50 4f 53 49 53 0a 20 2a 20 20 20 20 20 2e 2e NPOSIS. * ..
109f0 2e 0a 20 2a 0a 20 2a 20 41 52 47 55 4d 45 4e 54 .. *. * ARGUMENT
10a00 53 0a 20 2a 20 20 20 20 20 2e 2e 2e 0a 20 2a 0a S. * .... *.
10a10 20 2a 20 52 45 54 55 52 4e 20 56 41 4c 55 45 0a * RETURN VALUE.
10a20 20 2a 20 20 20 20 20 2e 2e 2e 0a 20 2a 0a 20 2a * .... *. *
10a30 20 4e 4f 54 45 53 0a 20 2a 20 20 20 20 20 2e 2e NOTES. * ..
10a40 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 .. *. */.static
10a50 76 6f 69 64 20 63 61 63 6b 65 79 5f 66 72 65 65 void cackey_free
10a60 5f 63 65 72 74 73 28 73 74 72 75 63 74 20 63 61 _certs(struct ca
10a70 63 6b 65 79 5f 70 63 73 63 5f 69 64 65 6e 74 69 ckey_pcsc_identi
10a80 74 79 20 2a 73 74 61 72 74 2c 20 73 69 7a 65 5f ty *start, size_
10a90 74 20 63 6f 75 6e 74 2c 20 69 6e 74 20 66 72 65 t count, int fre
10aa0 65 5f 73 74 61 72 74 29 20 7b 0a 09 73 69 7a 65 e_start) {..size
10ab0 5f 74 20 69 64 78 3b 0a 0a 09 69 66 20 28 73 74 _t idx;...if (st
10ac0 61 72 74 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 art == NULL) {..
10ad0 09 72 65 74 75 72 6e 3b 0a 09 7d 0a 0a 09 66 6f .return;..}...fo
10ae0 72 20 28 69 64 78 20 3d 20 30 3b 20 69 64 78 20 r (idx = 0; idx
10af0 3c 20 63 6f 75 6e 74 3b 20 69 64 78 2b 2b 29 20 < count; idx++)
10b00 7b 0a 09 09 69 66 20 28 73 74 61 72 74 5b 69 64 {...if (start[id
10b10 78 5d 2e 63 65 72 74 69 66 69 63 61 74 65 29 20 x].certificate)
10b20 7b 0a 09 09 09 66 72 65 65 28 73 74 61 72 74 5b {....free(start[
10b30 69 64 78 5d 2e 63 65 72 74 69 66 69 63 61 74 65 idx].certificate
10b40 29 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 69 66 20 28 );...}..}...if (
10b50 66 72 65 65 5f 73 74 61 72 74 29 20 7b 0a 09 09 free_start) {...
10b60 66 72 65 65 28 73 74 61 72 74 29 3b 0a 09 7d 0a free(start);..}.
10b70 0a 09 72 65 74 75 72 6e 3b 0a 7d 0a 0a 73 74 61 ..return;.}..sta
10b80 74 69 63 20 73 74 72 75 63 74 20 63 61 63 6b 65 tic struct cacke
10b90 79 5f 70 63 73 63 5f 69 64 65 6e 74 69 74 79 20 y_pcsc_identity
10ba0 2a 63 61 63 6b 65 79 5f 63 6f 70 79 5f 63 65 72 *cackey_copy_cer
10bb0 74 73 28 73 74 72 75 63 74 20 63 61 63 6b 65 79 ts(struct cackey
10bc0 5f 70 63 73 63 5f 69 64 65 6e 74 69 74 79 20 2a _pcsc_identity *
10bd0 64 65 73 74 2c 20 73 74 72 75 63 74 20 63 61 63 dest, struct cac
10be0 6b 65 79 5f 70 63 73 63 5f 69 64 65 6e 74 69 74 key_pcsc_identit
10bf0 79 20 2a 73 74 61 72 74 2c 20 73 69 7a 65 5f 74 y *start, size_t
10c00 20 63 6f 75 6e 74 29 20 7b 0a 09 73 69 7a 65 5f count) {..size_
10c10 74 20 69 64 78 3b 0a 0a 09 69 66 20 28 73 74 61 t idx;...if (sta
10c20 72 74 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 rt == NULL) {...
10c30 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d return(NULL);..}
10c40 0a 0a 09 69 66 20 28 64 65 73 74 20 3d 3d 20 4e ...if (dest == N
10c50 55 4c 4c 29 20 7b 0a 09 09 64 65 73 74 20 3d 20 ULL) {...dest =
10c60 6d 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 2a 64 malloc(sizeof(*d
10c70 65 73 74 29 20 2a 20 63 6f 75 6e 74 29 3b 0a 09 est) * count);..
10c80 7d 0a 0a 09 66 6f 72 20 28 69 64 78 20 3d 20 30 }...for (idx = 0
10c90 3b 20 69 64 78 20 3c 20 63 6f 75 6e 74 3b 20 69 ; idx < count; i
10ca0 64 78 2b 2b 29 20 7b 0a 09 09 64 65 73 74 5b 69 dx++) {...dest[i
10cb0 64 78 5d 2e 69 64 5f 74 79 70 65 20 3d 20 73 74 dx].id_type = st
10cc0 61 72 74 5b 69 64 78 5d 2e 69 64 5f 74 79 70 65 art[idx].id_type
10cd0 3b 0a 0a 09 09 73 77 69 74 63 68 20 28 64 65 73 ;....switch (des
10ce0 74 5b 69 64 78 5d 2e 69 64 5f 74 79 70 65 29 20 t[idx].id_type)
10cf0 7b 0a 09 09 09 63 61 73 65 20 43 41 43 4b 45 59 {....case CACKEY
10d00 5f 49 44 5f 54 59 50 45 5f 43 41 43 3a 0a 09 09 _ID_TYPE_CAC:...
10d10 09 09 6d 65 6d 63 70 79 28 64 65 73 74 5b 69 64 ..memcpy(dest[id
10d20 78 5d 2e 63 61 72 64 2e 63 61 63 2e 61 70 70 6c x].card.cac.appl
10d30 65 74 2c 20 73 74 61 72 74 5b 69 64 78 5d 2e 63 et, start[idx].c
10d40 61 72 64 2e 63 61 63 2e 61 70 70 6c 65 74 2c 20 ard.cac.applet,
10d50 73 69 7a 65 6f 66 28 64 65 73 74 5b 69 64 78 5d sizeof(dest[idx]
10d60 2e 63 61 72 64 2e 63 61 63 2e 61 70 70 6c 65 74 .card.cac.applet
10d70 29 29 3b 0a 09 09 09 09 64 65 73 74 5b 69 64 78 ));.....dest[idx
10d80 5d 2e 63 61 72 64 2e 63 61 63 2e 66 69 6c 65 20 ].card.cac.file
10d90 3d 20 73 74 61 72 74 5b 69 64 78 5d 2e 63 61 72 = start[idx].car
10da0 64 2e 63 61 63 2e 66 69 6c 65 3b 0a 09 09 09 09 d.cac.file;.....
10db0 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 43 break;....case C
10dc0 41 43 4b 45 59 5f 49 44 5f 54 59 50 45 5f 50 49 ACKEY_ID_TYPE_PI
10dd0 56 3a 0a 09 09 09 09 64 65 73 74 5b 69 64 78 5d V:.....dest[idx]
10de0 2e 63 61 72 64 2e 70 69 76 2e 6b 65 79 5f 69 64 .card.piv.key_id
10df0 20 3d 20 73 74 61 72 74 5b 69 64 78 5d 2e 63 61 = start[idx].ca
10e00 72 64 2e 70 69 76 2e 6b 65 79 5f 69 64 3b 0a 09 rd.piv.key_id;..
10e10 09 09 09 6d 65 6d 63 70 79 28 64 65 73 74 5b 69 ...memcpy(dest[i
10e20 64 78 5d 2e 63 61 72 64 2e 70 69 76 2e 6c 61 62 dx].card.piv.lab
10e30 65 6c 2c 20 73 74 61 72 74 5b 69 64 78 5d 2e 63 el, start[idx].c
10e40 61 72 64 2e 70 69 76 2e 6c 61 62 65 6c 2c 20 73 ard.piv.label, s
10e50 69 7a 65 6f 66 28 64 65 73 74 5b 69 64 78 5d 2e izeof(dest[idx].
10e60 63 61 72 64 2e 70 69 76 2e 6c 61 62 65 6c 29 29 card.piv.label))
10e70 3b 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 ;.....break;....
10e80 63 61 73 65 20 43 41 43 4b 45 59 5f 49 44 5f 54 case CACKEY_ID_T
10e90 59 50 45 5f 43 45 52 54 5f 4f 4e 4c 59 3a 0a 09 YPE_CERT_ONLY:..
10ea0 09 09 09 62 72 65 61 6b 3b 0a 09 09 7d 0a 09 09 ...break;...}...
10eb0 64 65 73 74 5b 69 64 78 5d 2e 63 65 72 74 69 66 dest[idx].certif
10ec0 69 63 61 74 65 5f 6c 65 6e 20 3d 20 73 74 61 72 icate_len = star
10ed0 74 5b 69 64 78 5d 2e 63 65 72 74 69 66 69 63 61 t[idx].certifica
10ee0 74 65 5f 6c 65 6e 3b 0a 09 09 64 65 73 74 5b 69 te_len;...dest[i
10ef0 64 78 5d 2e 6b 65 79 73 69 7a 65 20 3d 20 73 74 dx].keysize = st
10f00 61 72 74 5b 69 64 78 5d 2e 6b 65 79 73 69 7a 65 art[idx].keysize
10f10 3b 0a 0a 09 09 64 65 73 74 5b 69 64 78 5d 2e 63 ;....dest[idx].c
10f20 65 72 74 69 66 69 63 61 74 65 20 3d 20 6d 61 6c ertificate = mal
10f30 6c 6f 63 28 64 65 73 74 5b 69 64 78 5d 2e 63 65 loc(dest[idx].ce
10f40 72 74 69 66 69 63 61 74 65 5f 6c 65 6e 29 3b 0a rtificate_len);.
10f50 09 09 6d 65 6d 63 70 79 28 64 65 73 74 5b 69 64 ..memcpy(dest[id
10f60 78 5d 2e 63 65 72 74 69 66 69 63 61 74 65 2c 20 x].certificate,
10f70 73 74 61 72 74 5b 69 64 78 5d 2e 63 65 72 74 69 start[idx].certi
10f80 66 69 63 61 74 65 2c 20 64 65 73 74 5b 69 64 78 ficate, dest[idx
10f90 5d 2e 63 65 72 74 69 66 69 63 61 74 65 5f 6c 65 ].certificate_le
10fa0 6e 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 n);..}...return(
10fb0 64 65 73 74 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 dest);.}../*. *
10fc0 53 59 4e 50 4f 53 49 53 0a 20 2a 20 20 20 20 20 SYNPOSIS. *
10fd0 2e 2e 2e 0a 20 2a 0a 20 2a 20 41 52 47 55 4d 45 .... *. * ARGUME
10fe0 4e 54 53 0a 20 2a 20 20 20 20 20 2e 2e 2e 0a 20 NTS. * ....
10ff0 2a 0a 20 2a 20 52 45 54 55 52 4e 20 56 41 4c 55 *. * RETURN VALU
11000 45 0a 20 2a 20 20 20 20 20 2e 2e 2e 0a 20 2a 0a E. * .... *.
11010 20 2a 20 4e 4f 54 45 53 0a 20 2a 20 20 20 20 20 * NOTES. *
11020 2e 2e 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 .... *. */.stati
11030 63 20 73 74 72 75 63 74 20 63 61 63 6b 65 79 5f c struct cackey_
11040 70 63 73 63 5f 69 64 65 6e 74 69 74 79 20 2a 63 pcsc_identity *c
11050 61 63 6b 65 79 5f 72 65 61 64 5f 63 65 72 74 73 ackey_read_certs
11060 28 73 74 72 75 63 74 20 63 61 63 6b 65 79 5f 73 (struct cackey_s
11070 6c 6f 74 20 2a 73 6c 6f 74 2c 20 73 74 72 75 63 lot *slot, struc
11080 74 20 63 61 63 6b 65 79 5f 70 63 73 63 5f 69 64 t cackey_pcsc_id
11090 65 6e 74 69 74 79 20 2a 63 65 72 74 73 2c 20 75 entity *certs, u
110a0 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 2a 63 6f nsigned long *co
110b0 75 6e 74 29 20 7b 0a 09 63 61 63 6b 65 79 5f 70 unt) {..cackey_p
110c0 63 73 63 5f 69 64 5f 74 79 70 65 20 63 68 65 63 csc_id_type chec
110d0 6b 5f 69 64 5f 74 79 70 65 3b 0a 09 73 74 72 75 k_id_type;..stru
110e0 63 74 20 63 61 63 6b 65 79 5f 70 63 73 63 5f 69 ct cackey_pcsc_i
110f0 64 65 6e 74 69 74 79 20 2a 63 75 72 72 5f 69 64 dentity *curr_id
11100 3b 0a 09 73 74 72 75 63 74 20 63 61 63 6b 65 79 ;..struct cackey
11110 5f 74 6c 76 5f 65 6e 74 69 74 79 20 2a 63 63 63 _tlv_entity *ccc
11120 5f 74 6c 76 2c 20 2a 63 63 63 5f 63 75 72 72 2c _tlv, *ccc_curr,
11130 20 2a 61 70 70 5f 74 6c 76 2c 20 2a 61 70 70 5f *app_tlv, *app_
11140 63 75 72 72 3b 0a 09 75 6e 73 69 67 6e 65 64 20 curr;..unsigned
11150 63 68 61 72 20 2a 70 69 76 5f 6f 69 64 2c 20 70 char *piv_oid, p
11160 69 76 5f 6f 69 64 5f 70 69 76 61 75 74 68 5b 5d iv_oid_pivauth[]
11170 20 3d 20 7b 4e 49 53 54 53 50 38 30 30 5f 37 33 = {NISTSP800_73
11180 5f 33 5f 4f 49 44 5f 50 49 56 41 55 54 48 7d 2c _3_OID_PIVAUTH},
11190 20 70 69 76 5f 6f 69 64 5f 73 69 67 6e 61 74 75 piv_oid_signatu
111a0 72 65 5b 5d 20 3d 20 7b 4e 49 53 54 53 50 38 30 re[] = {NISTSP80
111b0 30 5f 37 33 5f 33 5f 4f 49 44 5f 53 49 47 4e 41 0_73_3_OID_SIGNA
111c0 54 55 52 45 7d 2c 20 70 69 76 5f 6f 69 64 5f 6b TURE}, piv_oid_k
111d0 65 79 6d 67 74 5b 5d 20 3d 20 7b 4e 49 53 54 53 eymgt[] = {NISTS
111e0 50 38 30 30 5f 37 33 5f 33 5f 4f 49 44 5f 4b 45 P800_73_3_OID_KE
111f0 59 4d 47 54 7d 3b 0a 09 75 6e 73 69 67 6e 65 64 YMGT};..unsigned
11200 20 63 68 61 72 20 63 75 72 72 5f 61 69 64 5b 37 char curr_aid[7
11210 5d 3b 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 ];..unsigned cha
11220 72 20 62 75 66 66 65 72 5b 38 31 39 32 5d 2c 20 r buffer[8192],
11230 2a 62 75 66 66 65 72 5f 70 2c 20 2a 74 6d 70 62 *buffer_p, *tmpb
11240 75 66 3b 0a 09 75 6e 73 69 67 6e 65 64 20 6c 6f uf;..unsigned lo
11250 6e 67 20 6f 75 74 69 64 78 20 3d 20 30 3b 0a 09 ng outidx = 0;..
11260 63 68 61 72 20 2a 70 69 76 5f 6c 61 62 65 6c 3b char *piv_label;
11270 0a 09 63 61 63 6b 65 79 5f 72 65 74 20 74 72 61 ..cackey_ret tra
11280 6e 73 61 63 74 69 6f 6e 5f 72 65 74 3b 0a 09 73 nsaction_ret;..s
11290 73 69 7a 65 5f 74 20 72 65 61 64 5f 72 65 74 3b size_t read_ret;
112a0 0a 09 73 69 7a 65 5f 74 20 62 75 66 66 65 72 5f ..size_t buffer_
112b0 6c 65 6e 2c 20 74 6d 70 62 75 66 6c 65 6e 3b 0a len, tmpbuflen;.
112c0 09 69 6e 74 20 63 65 72 74 73 5f 72 65 73 69 7a .int certs_resiz
112d0 61 62 6c 65 3b 0a 09 69 6e 74 20 73 65 6e 64 5f able;..int send_
112e0 72 65 74 2c 20 73 65 6c 65 63 74 5f 72 65 74 3b ret, select_ret;
112f0 0a 09 69 6e 74 20 70 69 76 5f 6b 65 79 2c 20 70 ..int piv_key, p
11300 69 76 20 3d 20 30 3b 0a 09 69 6e 74 20 63 61 63 iv = 0;..int cac
11310 68 65 64 5f 63 65 72 74 73 5f 76 61 6c 69 64 3b hed_certs_valid;
11320 0a 09 69 6e 74 20 69 64 78 3b 0a 09 63 61 63 6b ..int idx;..cack
11330 65 79 5f 70 63 73 63 5f 69 64 5f 74 79 70 65 20 ey_pcsc_id_type
11340 69 64 5f 74 79 70 65 3b 0a 23 69 66 64 65 66 20 id_type;.#ifdef
11350 48 41 56 45 5f 4c 49 42 5a 0a 09 69 6e 74 20 75 HAVE_LIBZ..int u
11360 6e 63 6f 6d 70 72 65 73 73 5f 72 65 74 3b 0a 09 ncompress_ret;..
11370 7a 5f 73 74 72 65 61 6d 20 67 7a 69 70 5f 73 74 z_stream gzip_st
11380 72 65 61 6d 3b 0a 23 65 6e 64 69 66 0a 0a 09 43 ream;.#endif...C
11390 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
113a0 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a TF("Called.");..
113b0 09 69 66 20 28 63 6f 75 6e 74 20 3d 3d 20 4e 55 .if (count == NU
113c0 4c 4c 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 LL) {...CACKEY_D
113d0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 63 6f 75 EBUG_PRINTF("cou
113e0 6e 74 20 69 73 20 4e 55 4c 4c 2c 20 72 65 74 75 nt is NULL, retu
113f0 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 65 rning in failure
11400 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 ");....return(NU
11410 4c 4c 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 63 65 LL);..}...if (ce
11420 72 74 73 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 rts != NULL) {..
11430 09 69 66 20 28 2a 63 6f 75 6e 74 20 3d 3d 20 30 .if (*count == 0
11440 29 20 7b 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 ) {....CACKEY_DE
11450 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 71 75 BUG_PRINTF("Requ
11460 65 73 74 65 64 20 77 65 20 72 65 74 75 72 6e 20 ested we return
11470 30 20 6f 62 6a 65 63 74 73 2c 20 73 68 6f 72 74 0 objects, short
11480 2d 63 69 72 63 75 69 74 22 29 3b 0a 0a 09 09 09 -circuit");.....
11490 72 65 74 75 72 6e 28 63 65 72 74 73 29 3b 0a 09 return(certs);..
114a0 09 7d 0a 09 7d 0a 0a 09 63 61 63 68 65 64 5f 63 .}..}...cached_c
114b0 65 72 74 73 5f 76 61 6c 69 64 20 3d 20 30 3b 0a erts_valid = 0;.
114c0 09 69 66 20 28 21 73 6c 6f 74 2d 3e 73 6c 6f 74 .if (!slot->slot
114d0 5f 72 65 73 65 74 29 20 7b 0a 09 09 69 66 20 28 _reset) {...if (
114e0 73 6c 6f 74 2d 3e 63 61 63 68 65 64 5f 63 65 72 slot->cached_cer
114f0 74 73 29 20 7b 0a 09 09 09 63 61 63 68 65 64 5f ts) {....cached_
11500 63 65 72 74 73 5f 76 61 6c 69 64 20 3d 20 31 3b certs_valid = 1;
11510 0a 0a 09 09 09 69 66 20 28 73 6c 6f 74 2d 3e 63 .....if (slot->c
11520 61 63 68 65 64 5f 63 65 72 74 73 5f 63 6f 75 6e ached_certs_coun
11530 74 20 3e 20 30 29 20 7b 0a 09 09 09 09 63 61 63 t > 0) {.....cac
11540 68 65 64 5f 63 65 72 74 73 5f 76 61 6c 69 64 20 hed_certs_valid
11550 3d 20 31 3b 0a 09 09 09 7d 0a 09 09 7d 0a 09 7d = 1;....}...}..}
11560 0a 0a 09 69 66 20 28 63 61 63 68 65 64 5f 63 65 ...if (cached_ce
11570 72 74 73 5f 76 61 6c 69 64 29 20 7b 0a 09 09 69 rts_valid) {...i
11580 66 20 28 63 65 72 74 73 20 3d 3d 20 4e 55 4c 4c f (certs == NULL
11590 29 20 7b 0a 09 09 09 63 65 72 74 73 20 3d 20 6d ) {....certs = m
115a0 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 2a 63 65 alloc(sizeof(*ce
115b0 72 74 73 29 20 2a 20 73 6c 6f 74 2d 3e 63 61 63 rts) * slot->cac
115c0 68 65 64 5f 63 65 72 74 73 5f 63 6f 75 6e 74 29 hed_certs_count)
115d0 3b 0a 09 09 09 2a 63 6f 75 6e 74 20 3d 20 73 6c ;....*count = sl
115e0 6f 74 2d 3e 63 61 63 68 65 64 5f 63 65 72 74 73 ot->cached_certs
115f0 5f 63 6f 75 6e 74 3b 0a 09 09 7d 20 65 6c 73 65 _count;...} else
11600 20 7b 0a 09 09 09 69 66 20 28 2a 63 6f 75 6e 74 {....if (*count
11610 20 3e 20 73 6c 6f 74 2d 3e 63 61 63 68 65 64 5f > slot->cached_
11620 63 65 72 74 73 5f 63 6f 75 6e 74 29 20 7b 0a 09 certs_count) {..
11630 09 09 09 2a 63 6f 75 6e 74 20 3d 20 73 6c 6f 74 ...*count = slot
11640 2d 3e 63 61 63 68 65 64 5f 63 65 72 74 73 5f 63 ->cached_certs_c
11650 6f 75 6e 74 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a ount;....}...}..
11660 09 09 63 61 63 6b 65 79 5f 63 6f 70 79 5f 63 65 ..cackey_copy_ce
11670 72 74 73 28 63 65 72 74 73 2c 20 73 6c 6f 74 2d rts(certs, slot-
11680 3e 63 61 63 68 65 64 5f 63 65 72 74 73 2c 20 2a >cached_certs, *
11690 63 6f 75 6e 74 29 3b 0a 0a 09 09 43 41 43 4b 45 count);....CACKE
116a0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
116b0 52 65 74 75 72 6e 69 6e 67 20 63 61 63 68 65 64 Returning cached
116c0 20 63 65 72 74 69 66 69 63 61 74 65 73 20 66 6f certificates fo
116d0 72 20 74 68 69 73 20 73 6c 6f 74 20 28 63 61 72 r this slot (car
116e0 64 20 68 61 73 20 6e 6f 74 20 62 65 65 6e 20 72 d has not been r
116f0 65 73 65 74 20 61 6e 64 20 74 68 65 72 65 20 61 eset and there a
11700 72 65 20 63 61 63 68 65 64 20 63 65 72 74 73 20 re cached certs
11710 61 76 61 69 6c 61 62 6c 65 29 22 29 3b 0a 0a 09 available)");...
11720 09 72 65 74 75 72 6e 28 63 65 72 74 73 29 3b 0a .return(certs);.
11730 09 7d 0a 0a 09 69 66 20 28 73 6c 6f 74 2d 3e 63 .}...if (slot->c
11740 61 63 68 65 64 5f 63 65 72 74 73 29 20 7b 0a 09 ached_certs) {..
11750 09 63 61 63 6b 65 79 5f 66 72 65 65 5f 63 65 72 .cackey_free_cer
11760 74 73 28 73 6c 6f 74 2d 3e 63 61 63 68 65 64 5f ts(slot->cached_
11770 63 65 72 74 73 2c 20 73 6c 6f 74 2d 3e 63 61 63 certs, slot->cac
11780 68 65 64 5f 63 65 72 74 73 5f 63 6f 75 6e 74 2c hed_certs_count,
11790 20 31 29 3b 0a 0a 09 09 73 6c 6f 74 2d 3e 63 61 1);....slot->ca
117a0 63 68 65 64 5f 63 65 72 74 73 20 3d 20 4e 55 4c ched_certs = NUL
117b0 4c 3b 0a 09 7d 0a 0a 09 2f 2a 20 42 65 67 69 6e L;..}.../* Begin
117c0 20 61 20 53 6d 61 72 74 43 61 72 64 20 74 72 61 a SmartCard tra
117d0 6e 73 61 63 74 69 6f 6e 20 2a 2f 0a 09 74 72 61 nsaction */..tra
117e0 6e 73 61 63 74 69 6f 6e 5f 72 65 74 20 3d 20 63 nsaction_ret = c
117f0 61 63 6b 65 79 5f 62 65 67 69 6e 5f 74 72 61 6e ackey_begin_tran
11800 73 61 63 74 69 6f 6e 28 73 6c 6f 74 29 3b 0a 09 saction(slot);..
11810 69 66 20 28 74 72 61 6e 73 61 63 74 69 6f 6e 5f if (transaction_
11820 72 65 74 20 21 3d 20 43 41 43 4b 45 59 5f 50 43 ret != CACKEY_PC
11830 53 43 5f 53 5f 4f 4b 29 20 7b 0a 09 09 43 41 43 SC_S_OK) {...CAC
11840 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
11850 28 22 55 6e 61 62 6c 65 20 62 65 67 69 6e 20 74 ("Unable begin t
11860 72 61 6e 73 61 63 74 69 6f 6e 2c 20 72 65 74 75 ransaction, retu
11870 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 65 rning in failure
11880 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 ");....return(NU
11890 4c 4c 29 3b 0a 09 7d 0a 0a 09 69 64 5f 74 79 70 LL);..}...id_typ
118a0 65 20 3d 20 63 61 63 6b 65 79 5f 64 65 74 65 63 e = cackey_detec
118b0 74 5f 61 6e 64 5f 73 65 6c 65 63 74 5f 72 6f 6f t_and_select_roo
118c0 74 5f 61 70 70 6c 65 74 28 73 6c 6f 74 2c 20 43 t_applet(slot, C
118d0 41 43 4b 45 59 5f 49 44 5f 54 59 50 45 5f 55 4e ACKEY_ID_TYPE_UN
118e0 4b 4e 4f 57 4e 29 3b 0a 0a 09 73 77 69 74 63 68 KNOWN);...switch
118f0 20 28 69 64 5f 74 79 70 65 29 20 7b 0a 09 09 63 (id_type) {...c
11900 61 73 65 20 43 41 43 4b 45 59 5f 49 44 5f 54 59 ase CACKEY_ID_TY
11910 50 45 5f 43 41 43 3a 0a 09 09 09 70 69 76 20 3d PE_CAC:....piv =
11920 20 30 3b 0a 0a 09 09 09 62 72 65 61 6b 3b 0a 09 0;.....break;..
11930 09 63 61 73 65 20 43 41 43 4b 45 59 5f 49 44 5f .case CACKEY_ID_
11940 54 59 50 45 5f 50 49 56 3a 0a 09 09 09 70 69 76 TYPE_PIV:....piv
11950 20 3d 20 31 3b 0a 0a 09 09 09 62 72 65 61 6b 3b = 1;.....break;
11960 0a 09 09 63 61 73 65 20 43 41 43 4b 45 59 5f 49 ...case CACKEY_I
11970 44 5f 54 59 50 45 5f 45 52 52 4f 52 3a 0a 09 09 D_TYPE_ERROR:...
11980 09 2f 2a 20 54 65 72 6d 69 6e 61 74 65 20 53 6d ./* Terminate Sm
11990 61 72 74 43 61 72 64 20 54 72 61 6e 73 61 63 74 artCard Transact
119a0 69 6f 6e 20 2a 2f 0a 09 09 09 63 61 63 6b 65 79 ion */....cackey
119b0 5f 65 6e 64 5f 74 72 61 6e 73 61 63 74 69 6f 6e _end_transaction
119c0 28 73 6c 6f 74 29 3b 0a 0a 09 09 09 69 66 20 28 (slot);.....if (
119d0 63 65 72 74 73 20 3d 3d 20 4e 55 4c 4c 29 20 7b certs == NULL) {
119e0 0a 09 09 09 09 2a 63 6f 75 6e 74 20 3d 20 30 3b .....*count = 0;
119f0 0a 09 09 09 7d 0a 0a 09 09 09 72 65 74 75 72 6e ....}.....return
11a00 28 4e 55 4c 4c 29 3b 0a 0a 09 09 09 62 72 65 61 (NULL);.....brea
11a10 6b 3b 0a 09 09 63 61 73 65 20 43 41 43 4b 45 59 k;...case CACKEY
11a20 5f 49 44 5f 54 59 50 45 5f 43 45 52 54 5f 4f 4e _ID_TYPE_CERT_ON
11a30 4c 59 3a 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 LY:....CACKEY_DE
11a40 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f BUG_PRINTF("Erro
11a50 72 2e 20 20 49 6d 70 6f 73 73 69 62 6c 65 20 63 r. Impossible c
11a60 6f 6e 64 69 74 69 6f 6e 20 72 65 61 63 68 65 64 ondition reached
11a70 2e 22 29 3b 0a 0a 09 09 09 62 72 65 61 6b 3b 0a .");.....break;.
11a80 09 7d 0a 0a 09 69 66 20 28 63 65 72 74 73 20 3d .}...if (certs =
11a90 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 63 65 72 74 = NULL) {...cert
11aa0 73 20 3d 20 6d 61 6c 6c 6f 63 28 73 69 7a 65 6f s = malloc(sizeo
11ab0 66 28 2a 63 65 72 74 73 29 20 2a 20 35 29 3b 0a f(*certs) * 5);.
11ac0 09 09 2a 63 6f 75 6e 74 20 3d 20 35 3b 0a 09 09 ..*count = 5;...
11ad0 63 65 72 74 73 5f 72 65 73 69 7a 61 62 6c 65 20 certs_resizable
11ae0 3d 20 31 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 = 1;..} else {..
11af0 09 63 65 72 74 73 5f 72 65 73 69 7a 61 62 6c 65 .certs_resizable
11b00 20 3d 20 30 3b 0a 09 7d 0a 0a 09 69 66 20 28 70 = 0;..}...if (p
11b10 69 76 29 20 7b 0a 09 09 66 6f 72 20 28 69 64 78 iv) {...for (idx
11b20 20 3d 20 30 3b 20 69 64 78 20 3c 20 33 3b 20 69 = 0; idx < 3; i
11b30 64 78 2b 2b 29 20 7b 0a 09 09 09 73 77 69 74 63 dx++) {....switc
11b40 68 20 28 69 64 78 29 20 7b 0a 09 09 09 09 63 61 h (idx) {.....ca
11b50 73 65 20 30 3a 0a 09 09 09 09 09 70 69 76 5f 6f se 0:......piv_o
11b60 69 64 20 3d 20 70 69 76 5f 6f 69 64 5f 70 69 76 id = piv_oid_piv
11b70 61 75 74 68 3b 0a 09 09 09 09 09 70 69 76 5f 6b auth;......piv_k
11b80 65 79 20 3d 20 4e 49 53 54 53 50 38 30 30 5f 37 ey = NISTSP800_7
11b90 38 5f 33 5f 4b 45 59 5f 50 49 56 41 55 54 48 3b 8_3_KEY_PIVAUTH;
11ba0 0a 09 09 09 09 09 70 69 76 5f 6c 61 62 65 6c 20 ......piv_label
11bb0 3d 20 22 41 75 74 68 65 6e 74 69 63 61 74 69 6f = "Authenticatio
11bc0 6e 22 3b 0a 09 09 09 09 09 62 72 65 61 6b 3b 0a n";......break;.
11bd0 09 09 09 09 63 61 73 65 20 31 3a 0a 09 09 09 09 ....case 1:.....
11be0 09 70 69 76 5f 6f 69 64 20 3d 20 70 69 76 5f 6f .piv_oid = piv_o
11bf0 69 64 5f 73 69 67 6e 61 74 75 72 65 3b 0a 09 09 id_signature;...
11c00 09 09 09 70 69 76 5f 6b 65 79 20 3d 20 4e 49 53 ...piv_key = NIS
11c10 54 53 50 38 30 30 5f 37 38 5f 33 5f 4b 45 59 5f TSP800_78_3_KEY_
11c20 53 49 47 4e 41 54 55 52 45 3b 0a 09 09 09 09 09 SIGNATURE;......
11c30 70 69 76 5f 6c 61 62 65 6c 20 3d 20 22 53 69 67 piv_label = "Sig
11c40 6e 61 74 75 72 65 22 3b 0a 09 09 09 09 09 62 72 nature";......br
11c50 65 61 6b 3b 0a 09 09 09 09 63 61 73 65 20 32 3a eak;.....case 2:
11c60 0a 09 09 09 09 09 70 69 76 5f 6f 69 64 20 3d 20 ......piv_oid =
11c70 70 69 76 5f 6f 69 64 5f 6b 65 79 6d 67 74 3b 0a piv_oid_keymgt;.
11c80 09 09 09 09 09 70 69 76 5f 6b 65 79 20 3d 20 4e .....piv_key = N
11c90 49 53 54 53 50 38 30 30 5f 37 38 5f 33 5f 4b 45 ISTSP800_78_3_KE
11ca0 59 5f 4b 45 59 4d 47 54 3b 0a 09 09 09 09 09 70 Y_KEYMGT;......p
11cb0 69 76 5f 6c 61 62 65 6c 20 3d 20 22 4b 65 79 20 iv_label = "Key
11cc0 4d 61 6e 61 67 65 6d 65 6e 74 22 3b 0a 09 09 09 Management";....
11cd0 09 09 62 72 65 61 6b 3b 0a 09 09 09 7d 0a 0a 09 ..break;....}...
11ce0 09 09 72 65 61 64 5f 72 65 74 20 3d 20 63 61 63 ..read_ret = cac
11cf0 6b 65 79 5f 67 65 74 5f 64 61 74 61 28 73 6c 6f key_get_data(slo
11d00 74 2c 20 62 75 66 66 65 72 2c 20 73 69 7a 65 6f t, buffer, sizeo
11d10 66 28 62 75 66 66 65 72 29 2c 20 70 69 76 5f 6f f(buffer), piv_o
11d20 69 64 29 3b 0a 0a 09 09 09 69 66 20 28 72 65 61 id);.....if (rea
11d30 64 5f 72 65 74 20 3c 3d 20 30 29 20 7b 0a 09 09 d_ret <= 0) {...
11d40 09 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 09 7d ..continue;....}
11d50 0a 0a 09 09 09 63 75 72 72 5f 69 64 20 3d 20 26 .....curr_id = &
11d60 63 65 72 74 73 5b 6f 75 74 69 64 78 5d 3b 0a 09 certs[outidx];..
11d70 09 09 6f 75 74 69 64 78 2b 2b 3b 0a 0a 09 09 09 ..outidx++;.....
11d80 63 75 72 72 5f 69 64 2d 3e 6b 65 79 73 69 7a 65 curr_id->keysize
11d90 20 3d 20 2d 31 3b 0a 09 09 09 63 75 72 72 5f 69 = -1;....curr_i
11da0 64 2d 3e 69 64 5f 74 79 70 65 20 3d 20 43 41 43 d->id_type = CAC
11db0 4b 45 59 5f 49 44 5f 54 59 50 45 5f 50 49 56 3b KEY_ID_TYPE_PIV;
11dc0 0a 09 09 09 63 75 72 72 5f 69 64 2d 3e 63 61 72 ....curr_id->car
11dd0 64 2e 70 69 76 2e 6b 65 79 5f 69 64 20 3d 20 70 d.piv.key_id = p
11de0 69 76 5f 6b 65 79 3b 0a 09 09 09 6d 65 6d 63 70 iv_key;....memcp
11df0 79 28 63 75 72 72 5f 69 64 2d 3e 63 61 72 64 2e y(curr_id->card.
11e00 70 69 76 2e 6c 61 62 65 6c 2c 20 70 69 76 5f 6c piv.label, piv_l
11e10 61 62 65 6c 2c 20 73 74 72 6c 65 6e 28 70 69 76 abel, strlen(piv
11e20 5f 6c 61 62 65 6c 29 20 2b 20 31 29 3b 0a 0a 09 _label) + 1);...
11e30 09 09 63 75 72 72 5f 69 64 2d 3e 63 65 72 74 69 ..curr_id->certi
11e40 66 69 63 61 74 65 5f 6c 65 6e 20 3d 20 72 65 61 ficate_len = rea
11e50 64 5f 72 65 74 3b 0a 09 09 09 63 75 72 72 5f 69 d_ret;....curr_i
11e60 64 2d 3e 63 65 72 74 69 66 69 63 61 74 65 20 3d d->certificate =
11e70 20 6d 61 6c 6c 6f 63 28 63 75 72 72 5f 69 64 2d malloc(curr_id-
11e80 3e 63 65 72 74 69 66 69 63 61 74 65 5f 6c 65 6e >certificate_len
11e90 29 3b 0a 0a 09 09 09 62 75 66 66 65 72 5f 6c 65 );.....buffer_le
11ea0 6e 20 3d 20 73 69 7a 65 6f 66 28 62 75 66 66 65 n = sizeof(buffe
11eb0 72 29 3b 0a 09 09 09 62 75 66 66 65 72 5f 70 20 r);....buffer_p
11ec0 3d 20 63 61 63 6b 65 79 5f 72 65 61 64 5f 62 65 = cackey_read_be
11ed0 72 74 6c 76 5f 74 61 67 28 62 75 66 66 65 72 2c rtlv_tag(buffer,
11ee0 20 26 62 75 66 66 65 72 5f 6c 65 6e 2c 20 30 78 &buffer_len, 0x
11ef0 37 30 2c 20 63 75 72 72 5f 69 64 2d 3e 63 65 72 70, curr_id->cer
11f00 74 69 66 69 63 61 74 65 2c 20 26 63 75 72 72 5f tificate, &curr_
11f10 69 64 2d 3e 63 65 72 74 69 66 69 63 61 74 65 5f id->certificate_
11f20 6c 65 6e 29 3b 0a 0a 09 09 09 69 66 20 28 62 75 len);.....if (bu
11f30 66 66 65 72 5f 70 20 3d 3d 20 4e 55 4c 4c 29 20 ffer_p == NULL)
11f40 7b 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 {.....CACKEY_DEB
11f50 55 47 5f 50 52 49 4e 54 46 28 22 52 65 61 64 69 UG_PRINTF("Readi
11f60 6e 67 20 63 65 72 74 69 66 69 63 61 74 65 20 66 ng certificate f
11f70 72 6f 6d 20 42 45 52 2d 54 4c 56 20 72 65 73 70 rom BER-TLV resp
11f80 6f 6e 73 65 20 66 61 69 6c 65 64 2c 20 73 6b 69 onse failed, ski
11f90 70 70 69 6e 67 20 6b 65 79 20 25 69 22 2c 20 69 pping key %i", i
11fa0 64 78 29 3b 0a 0a 09 09 09 09 66 72 65 65 28 63 dx);......free(c
11fb0 75 72 72 5f 69 64 2d 3e 63 65 72 74 69 66 69 63 urr_id->certific
11fc0 61 74 65 29 3b 0a 0a 09 09 09 09 63 75 72 72 5f ate);......curr_
11fd0 69 64 2d 3e 63 65 72 74 69 66 69 63 61 74 65 20 id->certificate
11fe0 3d 20 4e 55 4c 4c 3b 0a 0a 09 09 09 09 6f 75 74 = NULL;......out
11ff0 69 64 78 2d 2d 3b 0a 0a 09 09 09 09 63 6f 6e 74 idx--;......cont
12000 69 6e 75 65 3b 0a 09 09 09 7d 0a 0a 09 09 09 69 inue;....}.....i
12010 66 20 28 63 75 72 72 5f 69 64 2d 3e 63 65 72 74 f (curr_id->cert
12020 69 66 69 63 61 74 65 5f 6c 65 6e 20 3e 20 34 29 ificate_len > 4)
12030 20 7b 0a 09 09 09 09 69 66 20 28 6d 65 6d 63 6d {.....if (memcm
12040 70 28 63 75 72 72 5f 69 64 2d 3e 63 65 72 74 69 p(curr_id->certi
12050 66 69 63 61 74 65 2c 20 22 5c 78 31 66 5c 78 38 ficate, "\x1f\x8
12060 62 5c 78 30 38 5c 78 30 30 22 2c 20 34 29 20 3d b\x08\x00", 4) =
12070 3d 20 30 29 20 7b 0a 23 69 66 64 65 66 20 48 41 = 0) {.#ifdef HA
12080 56 45 5f 4c 49 42 5a 0a 09 09 09 09 09 74 6d 70 VE_LIBZ......tmp
12090 62 75 66 6c 65 6e 20 3d 20 63 75 72 72 5f 69 64 buflen = curr_id
120a0 2d 3e 63 65 72 74 69 66 69 63 61 74 65 5f 6c 65 ->certificate_le
120b0 6e 20 2a 20 32 3b 0a 09 09 09 09 09 74 6d 70 62 n * 2;......tmpb
120c0 75 66 20 3d 20 6d 61 6c 6c 6f 63 28 74 6d 70 62 uf = malloc(tmpb
120d0 75 66 6c 65 6e 29 3b 0a 0a 09 09 09 09 09 43 41 uflen);.......CA
120e0 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
120f0 42 55 46 28 22 41 74 74 65 6d 70 74 69 6e 67 20 BUF("Attempting
12100 74 6f 20 64 65 63 6f 6d 70 72 65 73 73 3a 22 2c to decompress:",
12110 20 63 75 72 72 5f 69 64 2d 3e 63 65 72 74 69 66 curr_id->certif
12120 69 63 61 74 65 2c 20 63 75 72 72 5f 69 64 2d 3e icate, curr_id->
12130 63 65 72 74 69 66 69 63 61 74 65 5f 6c 65 6e 29 certificate_len)
12140 3b 0a 0a 09 09 09 09 09 67 7a 69 70 5f 73 74 72 ;.......gzip_str
12150 65 61 6d 2e 7a 61 6c 6c 6f 63 20 3d 20 4e 55 4c eam.zalloc = NUL
12160 4c 3b 0a 09 09 09 09 09 67 7a 69 70 5f 73 74 72 L;......gzip_str
12170 65 61 6d 2e 7a 66 72 65 65 20 3d 20 4e 55 4c 4c eam.zfree = NULL
12180 3b 0a 09 09 09 09 09 67 7a 69 70 5f 73 74 72 65 ;......gzip_stre
12190 61 6d 2e 6f 70 61 71 75 65 20 3d 20 4e 55 4c 4c am.opaque = NULL
121a0 3b 0a 0a 09 09 09 09 09 67 7a 69 70 5f 73 74 72 ;.......gzip_str
121b0 65 61 6d 2e 6e 65 78 74 5f 69 6e 20 20 3d 20 63 eam.next_in = c
121c0 75 72 72 5f 69 64 2d 3e 63 65 72 74 69 66 69 63 urr_id->certific
121d0 61 74 65 3b 0a 09 09 09 09 09 67 7a 69 70 5f 73 ate;......gzip_s
121e0 74 72 65 61 6d 2e 61 76 61 69 6c 5f 69 6e 20 3d tream.avail_in =
121f0 20 63 75 72 72 5f 69 64 2d 3e 63 65 72 74 69 66 curr_id->certif
12200 69 63 61 74 65 5f 6c 65 6e 3b 0a 09 09 09 09 09 icate_len;......
12210 67 7a 69 70 5f 73 74 72 65 61 6d 2e 6e 65 78 74 gzip_stream.next
12220 5f 6f 75 74 20 3d 20 74 6d 70 62 75 66 3b 0a 09 _out = tmpbuf;..
12230 09 09 09 09 67 7a 69 70 5f 73 74 72 65 61 6d 2e ....gzip_stream.
12240 61 76 61 69 6c 5f 6f 75 74 20 3d 20 74 6d 70 62 avail_out = tmpb
12250 75 66 6c 65 6e 3b 0a 0a 09 09 09 09 09 75 6e 63 uflen;.......unc
12260 6f 6d 70 72 65 73 73 5f 72 65 74 20 3d 20 69 6e ompress_ret = in
12270 66 6c 61 74 65 49 6e 69 74 28 26 67 7a 69 70 5f flateInit(&gzip_
12280 73 74 72 65 61 6d 29 3b 0a 09 09 09 09 09 69 66 stream);......if
12290 20 28 75 6e 63 6f 6d 70 72 65 73 73 5f 72 65 74 (uncompress_ret
122a0 20 3d 3d 20 5a 5f 4f 4b 29 20 7b 0a 09 09 09 09 == Z_OK) {.....
122b0 09 09 2f 2a 20 54 72 79 20 61 67 61 69 6e 20 61 ../* Try again a
122c0 73 20 61 20 67 7a 69 70 20 62 75 66 66 65 72 20 s a gzip buffer
122d0 2a 2f 0a 09 09 09 09 09 09 75 6e 63 6f 6d 70 72 */.......uncompr
122e0 65 73 73 5f 72 65 74 20 3d 20 69 6e 66 6c 61 74 ess_ret = inflat
122f0 65 45 6e 64 28 26 67 7a 69 70 5f 73 74 72 65 61 eEnd(&gzip_strea
12300 6d 29 3b 0a 09 09 09 09 09 09 69 66 20 28 75 6e m);.......if (un
12310 63 6f 6d 70 72 65 73 73 5f 72 65 74 20 3d 3d 20 compress_ret ==
12320 5a 5f 4f 4b 29 20 7b 0a 09 09 09 09 09 09 09 67 Z_OK) {........g
12330 7a 69 70 5f 73 74 72 65 61 6d 2e 7a 61 6c 6c 6f zip_stream.zallo
12340 63 20 3d 20 4e 55 4c 4c 3b 0a 09 09 09 09 09 09 c = NULL;.......
12350 09 67 7a 69 70 5f 73 74 72 65 61 6d 2e 7a 66 72 .gzip_stream.zfr
12360 65 65 20 3d 20 4e 55 4c 4c 3b 0a 09 09 09 09 09 ee = NULL;......
12370 09 09 67 7a 69 70 5f 73 74 72 65 61 6d 2e 6f 70 ..gzip_stream.op
12380 61 71 75 65 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 09 aque = NULL;....
12390 09 09 09 09 09 67 7a 69 70 5f 73 74 72 65 61 6d .....gzip_stream
123a0 2e 6e 65 78 74 5f 69 6e 20 20 3d 20 63 75 72 72 .next_in = curr
123b0 5f 69 64 2d 3e 63 65 72 74 69 66 69 63 61 74 65 _id->certificate
123c0 3b 0a 09 09 09 09 09 09 09 67 7a 69 70 5f 73 74 ;........gzip_st
123d0 72 65 61 6d 2e 61 76 61 69 6c 5f 69 6e 20 3d 20 ream.avail_in =
123e0 63 75 72 72 5f 69 64 2d 3e 63 65 72 74 69 66 69 curr_id->certifi
123f0 63 61 74 65 5f 6c 65 6e 3b 0a 09 09 09 09 09 09 cate_len;.......
12400 09 67 7a 69 70 5f 73 74 72 65 61 6d 2e 6e 65 78 .gzip_stream.nex
12410 74 5f 6f 75 74 20 3d 20 74 6d 70 62 75 66 3b 0a t_out = tmpbuf;.
12420 09 09 09 09 09 09 09 67 7a 69 70 5f 73 74 72 65 .......gzip_stre
12430 61 6d 2e 61 76 61 69 6c 5f 6f 75 74 20 3d 20 74 am.avail_out = t
12440 6d 70 62 75 66 6c 65 6e 3b 0a 09 09 09 09 09 09 mpbuflen;.......
12450 09 75 6e 63 6f 6d 70 72 65 73 73 5f 72 65 74 20 .uncompress_ret
12460 3d 20 69 6e 66 6c 61 74 65 49 6e 69 74 32 28 26 = inflateInit2(&
12470 67 7a 69 70 5f 73 74 72 65 61 6d 2c 20 33 31 29 gzip_stream, 31)
12480 3b 0a 09 09 09 09 09 09 7d 0a 09 09 09 09 09 7d ;.......}......}
12490 0a 09 09 09 09 09 69 66 20 28 75 6e 63 6f 6d 70 ......if (uncomp
124a0 72 65 73 73 5f 72 65 74 20 3d 3d 20 5a 5f 4f 4b ress_ret == Z_OK
124b0 29 20 7b 0a 09 09 09 09 09 09 75 6e 63 6f 6d 70 ) {.......uncomp
124c0 72 65 73 73 5f 72 65 74 20 3d 20 69 6e 66 6c 61 ress_ret = infla
124d0 74 65 28 26 67 7a 69 70 5f 73 74 72 65 61 6d 2c te(&gzip_stream,
124e0 20 30 29 3b 0a 09 09 09 09 09 7d 0a 09 09 09 09 0);......}.....
124f0 09 69 66 20 28 75 6e 63 6f 6d 70 72 65 73 73 5f .if (uncompress_
12500 72 65 74 20 3d 3d 20 5a 5f 53 54 52 45 41 4d 5f ret == Z_STREAM_
12510 45 4e 44 29 20 7b 0a 09 09 09 09 09 09 75 6e 63 END) {.......unc
12520 6f 6d 70 72 65 73 73 5f 72 65 74 20 3d 20 69 6e ompress_ret = in
12530 66 6c 61 74 65 45 6e 64 28 26 67 7a 69 70 5f 73 flateEnd(&gzip_s
12540 74 72 65 61 6d 29 3b 0a 09 09 09 09 09 7d 20 65 tream);......} e
12550 6c 73 65 20 7b 0a 09 09 09 09 09 09 75 6e 63 6f lse {.......unco
12560 6d 70 72 65 73 73 5f 72 65 74 20 3d 20 5a 5f 44 mpress_ret = Z_D
12570 41 54 41 5f 45 52 52 4f 52 3b 0a 09 09 09 09 09 ATA_ERROR;......
12580 7d 0a 09 09 09 09 09 69 66 20 28 75 6e 63 6f 6d }......if (uncom
12590 70 72 65 73 73 5f 72 65 74 20 3d 3d 20 5a 5f 4f press_ret == Z_O
125a0 4b 29 20 7b 0a 09 09 09 09 09 09 74 6d 70 62 75 K) {.......tmpbu
125b0 66 6c 65 6e 20 3d 20 67 7a 69 70 5f 73 74 72 65 flen = gzip_stre
125c0 61 6d 2e 74 6f 74 61 6c 5f 6f 75 74 3b 0a 0a 09 am.total_out;...
125d0 09 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 .....CACKEY_DEBU
125e0 47 5f 50 52 49 4e 54 42 55 46 28 22 44 65 63 6f G_PRINTBUF("Deco
125f0 6d 70 72 65 73 73 65 64 20 74 6f 3a 22 2c 20 74 mpressed to:", t
12600 6d 70 62 75 66 2c 20 74 6d 70 62 75 66 6c 65 6e mpbuf, tmpbuflen
12610 29 3b 0a 0a 09 09 09 09 09 09 66 72 65 65 28 63 );........free(c
12620 75 72 72 5f 69 64 2d 3e 63 65 72 74 69 66 69 63 urr_id->certific
12630 61 74 65 29 3b 0a 0a 09 09 09 09 09 09 63 75 72 ate);........cur
12640 72 5f 69 64 2d 3e 63 65 72 74 69 66 69 63 61 74 r_id->certificat
12650 65 20 3d 20 74 6d 70 62 75 66 3b 0a 09 09 09 09 e = tmpbuf;.....
12660 09 09 63 75 72 72 5f 69 64 2d 3e 63 65 72 74 69 ..curr_id->certi
12670 66 69 63 61 74 65 5f 6c 65 6e 20 3d 20 74 6d 70 ficate_len = tmp
12680 62 75 66 6c 65 6e 3b 0a 09 09 09 09 09 7d 20 65 buflen;......} e
12690 6c 73 65 20 7b 0a 09 09 09 09 09 09 43 41 43 4b lse {.......CACK
126a0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
126b0 22 44 65 63 6f 6d 70 72 65 73 73 69 6e 67 20 66 "Decompressing f
126c0 61 69 6c 65 64 21 20 75 6e 63 6f 6d 70 72 65 73 ailed! uncompres
126d0 73 28 29 20 72 65 74 75 72 6e 65 64 20 25 69 22 s() returned %i"
126e0 2c 20 75 6e 63 6f 6d 70 72 65 73 73 5f 72 65 74 , uncompress_ret
126f0 29 3b 0a 0a 09 09 09 09 09 09 66 72 65 65 28 74 );........free(t
12700 6d 70 62 75 66 29 3b 0a 09 09 09 09 09 7d 0a 23 mpbuf);......}.#
12710 65 6c 73 65 0a 09 09 09 09 09 43 41 43 4b 45 59 else......CACKEY
12720 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
12730 72 72 6f 72 2e 20 20 57 65 20 67 6f 74 20 61 20 rror. We got a
12740 63 6f 6d 70 72 65 73 73 65 64 20 63 65 72 74 69 compressed certi
12750 66 69 63 61 74 65 20 62 75 74 20 77 65 20 64 6f ficate but we do
12760 20 6e 6f 74 20 68 61 76 65 20 7a 6c 69 62 2e 20 not have zlib.
12770 20 48 6f 70 69 6e 67 20 66 6f 72 20 74 68 65 20 Hoping for the
12780 62 65 73 74 2e 22 29 3b 0a 23 65 6e 64 69 66 0a best.");.#endif.
12790 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 0a 09 ....}....}...}..
127a0 7d 20 65 6c 73 65 20 7b 0a 09 09 2f 2a 20 52 65 } else {.../* Re
127b0 61 64 20 61 6c 6c 20 74 68 65 20 61 70 70 6c 65 ad all the apple
127c0 74 73 20 66 72 6f 6d 20 74 68 65 20 43 43 43 27 ts from the CCC'
127d0 73 20 54 4c 56 20 2a 2f 0a 09 09 63 63 63 5f 74 s TLV */...ccc_t
127e0 6c 76 20 3d 20 63 61 63 6b 65 79 5f 72 65 61 64 lv = cackey_read
127f0 5f 74 6c 76 28 73 6c 6f 74 29 3b 0a 0a 09 09 2f _tlv(slot);..../
12800 2a 20 4c 6f 6f 6b 20 66 6f 72 20 43 41 52 44 55 * Look for CARDU
12810 52 4c 73 20 74 68 61 74 20 63 6f 6f 72 65 73 70 RLs that cooresp
12820 6f 6e 64 20 74 6f 20 50 4b 49 20 61 70 70 6c 65 ond to PKI apple
12830 74 73 20 2a 2f 0a 09 09 66 6f 72 20 28 63 63 63 ts */...for (ccc
12840 5f 63 75 72 72 20 3d 20 63 63 63 5f 74 6c 76 3b _curr = ccc_tlv;
12850 20 63 63 63 5f 63 75 72 72 3b 20 63 63 63 5f 63 ccc_curr; ccc_c
12860 75 72 72 20 3d 20 63 63 63 5f 63 75 72 72 2d 3e urr = ccc_curr->
12870 5f 6e 65 78 74 29 20 7b 0a 09 09 09 43 41 43 4b _next) {....CACK
12880 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
12890 22 46 6f 75 6e 64 20 74 61 67 3a 20 25 73 20 2e "Found tag: %s .
128a0 2e 2e 20 22 2c 20 43 41 43 4b 45 59 5f 44 45 42 .. ", CACKEY_DEB
128b0 55 47 5f 46 55 4e 43 5f 54 41 47 5f 54 4f 5f 53 UG_FUNC_TAG_TO_S
128c0 54 52 28 63 63 63 5f 63 75 72 72 2d 3e 74 61 67 TR(ccc_curr->tag
128d0 29 29 3b 0a 0a 09 09 09 69 66 20 28 63 63 63 5f ));.....if (ccc_
128e0 63 75 72 72 2d 3e 74 61 67 20 21 3d 20 47 53 43 curr->tag != GSC
128f0 49 53 5f 54 41 47 5f 43 41 52 44 55 52 4c 29 20 IS_TAG_CARDURL)
12900 7b 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 {.....CACKEY_DEB
12910 55 47 5f 50 52 49 4e 54 46 28 22 20 20 2e 2e 2e UG_PRINTF(" ...
12920 20 73 6b 69 70 70 69 6e 67 20 69 74 20 28 77 65 skipping it (we
12930 20 6f 6e 6c 79 20 63 61 72 65 20 61 62 6f 75 74 only care about
12940 20 43 41 52 44 55 52 4c 73 29 22 29 3b 0a 0a 09 CARDURLs)");...
12950 09 09 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 09 ...continue;....
12960 7d 0a 0a 09 09 09 69 66 20 28 28 63 63 63 5f 63 }.....if ((ccc_c
12970 75 72 72 2d 3e 76 61 6c 75 65 5f 63 61 72 64 75 urr->value_cardu
12980 72 6c 2d 3e 61 70 70 74 79 70 65 20 26 20 43 41 rl->apptype & CA
12990 43 4b 45 59 5f 54 4c 56 5f 41 50 50 5f 50 4b 49 CKEY_TLV_APP_PKI
129a0 29 20 21 3d 20 43 41 43 4b 45 59 5f 54 4c 56 5f ) != CACKEY_TLV_
129b0 41 50 50 5f 50 4b 49 29 20 7b 0a 09 09 09 09 43 APP_PKI) {.....C
129c0 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
129d0 54 46 28 22 20 20 2e 2e 2e 20 73 6b 69 70 70 69 TF(" ... skippi
129e0 6e 67 20 69 74 20 28 77 65 20 6f 6e 6c 79 20 63 ng it (we only c
129f0 61 72 65 20 61 62 6f 75 74 20 50 4b 49 20 61 70 are about PKI ap
12a00 70 6c 65 74 73 2c 20 74 68 69 73 20 61 70 70 6c plets, this appl
12a10 65 74 20 73 75 70 70 6f 72 74 73 3a 20 25 73 2f et supports: %s/
12a20 25 30 32 78 29 22 2c 20 43 41 43 4b 45 59 5f 44 %02x)", CACKEY_D
12a30 45 42 55 47 5f 46 55 4e 43 5f 41 50 50 54 59 50 EBUG_FUNC_APPTYP
12a40 45 5f 54 4f 5f 53 54 52 28 63 63 63 5f 63 75 72 E_TO_STR(ccc_cur
12a50 72 2d 3e 76 61 6c 75 65 5f 63 61 72 64 75 72 6c r->value_cardurl
12a60 2d 3e 61 70 70 74 79 70 65 29 2c 20 28 75 6e 73 ->apptype), (uns
12a70 69 67 6e 65 64 20 69 6e 74 29 20 63 63 63 5f 63 igned int) ccc_c
12a80 75 72 72 2d 3e 76 61 6c 75 65 5f 63 61 72 64 75 urr->value_cardu
12a90 72 6c 2d 3e 61 70 70 74 79 70 65 29 3b 0a 0a 09 rl->apptype);...
12aa0 09 09 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 09 ...continue;....
12ab0 7d 0a 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 }.....CACKEY_DEB
12ac0 55 47 5f 50 52 49 4e 54 42 55 46 28 22 52 49 44 UG_PRINTBUF("RID
12ad0 3a 22 2c 20 63 63 63 5f 63 75 72 72 2d 3e 76 61 :", ccc_curr->va
12ae0 6c 75 65 5f 63 61 72 64 75 72 6c 2d 3e 72 69 64 lue_cardurl->rid
12af0 2c 20 73 69 7a 65 6f 66 28 63 63 63 5f 63 75 72 , sizeof(ccc_cur
12b00 72 2d 3e 76 61 6c 75 65 5f 63 61 72 64 75 72 6c r->value_cardurl
12b10 2d 3e 72 69 64 29 29 3b 0a 09 09 09 43 41 43 4b ->rid));....CACK
12b20 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
12b30 22 41 70 70 49 44 20 3d 20 25 73 2f 25 30 34 6c "AppID = %s/%04l
12b40 78 22 2c 20 43 41 43 4b 45 59 5f 44 45 42 55 47 x", CACKEY_DEBUG
12b50 5f 46 55 4e 43 5f 4f 42 4a 49 44 5f 54 4f 5f 53 _FUNC_OBJID_TO_S
12b60 54 52 28 63 63 63 5f 63 75 72 72 2d 3e 76 61 6c TR(ccc_curr->val
12b70 75 65 5f 63 61 72 64 75 72 6c 2d 3e 61 70 70 69 ue_cardurl->appi
12b80 64 29 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f d), (unsigned lo
12b90 6e 67 29 20 63 63 63 5f 63 75 72 72 2d 3e 76 61 ng) ccc_curr->va
12ba0 6c 75 65 5f 63 61 72 64 75 72 6c 2d 3e 61 70 70 lue_cardurl->app
12bb0 69 64 29 3b 0a 09 09 09 43 41 43 4b 45 59 5f 44 id);....CACKEY_D
12bc0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 4f 62 6a EBUG_PRINTF("Obj
12bd0 65 63 74 49 44 20 3d 20 25 73 2f 25 30 34 6c 78 ectID = %s/%04lx
12be0 22 2c 20 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ", CACKEY_DEBUG_
12bf0 46 55 4e 43 5f 4f 42 4a 49 44 5f 54 4f 5f 53 54 FUNC_OBJID_TO_ST
12c00 52 28 63 63 63 5f 63 75 72 72 2d 3e 76 61 6c 75 R(ccc_curr->valu
12c10 65 5f 63 61 72 64 75 72 6c 2d 3e 6f 62 6a 65 63 e_cardurl->objec
12c20 74 69 64 29 2c 20 28 75 6e 73 69 67 6e 65 64 20 tid), (unsigned
12c30 6c 6f 6e 67 29 20 63 63 63 5f 63 75 72 72 2d 3e long) ccc_curr->
12c40 76 61 6c 75 65 5f 63 61 72 64 75 72 6c 2d 3e 6f value_cardurl->o
12c50 62 6a 65 63 74 69 64 29 3b 0a 0a 09 09 09 6d 65 bjectid);.....me
12c60 6d 63 70 79 28 63 75 72 72 5f 61 69 64 2c 20 63 mcpy(curr_aid, c
12c70 63 63 5f 63 75 72 72 2d 3e 76 61 6c 75 65 5f 63 cc_curr->value_c
12c80 61 72 64 75 72 6c 2d 3e 72 69 64 2c 20 73 69 7a ardurl->rid, siz
12c90 65 6f 66 28 63 63 63 5f 63 75 72 72 2d 3e 76 61 eof(ccc_curr->va
12ca0 6c 75 65 5f 63 61 72 64 75 72 6c 2d 3e 72 69 64 lue_cardurl->rid
12cb0 29 29 3b 0a 09 09 09 63 75 72 72 5f 61 69 64 5b ));....curr_aid[
12cc0 73 69 7a 65 6f 66 28 63 75 72 72 5f 61 69 64 29 sizeof(curr_aid)
12cd0 20 2d 20 32 5d 20 3d 20 28 63 63 63 5f 63 75 72 - 2] = (ccc_cur
12ce0 72 2d 3e 76 61 6c 75 65 5f 63 61 72 64 75 72 6c r->value_cardurl
12cf0 2d 3e 61 70 70 69 64 20 3e 3e 20 38 29 20 26 20 ->appid >> 8) &
12d00 30 78 66 66 3b 0a 09 09 09 63 75 72 72 5f 61 69 0xff;....curr_ai
12d10 64 5b 73 69 7a 65 6f 66 28 63 75 72 72 5f 61 69 d[sizeof(curr_ai
12d20 64 29 20 2d 20 31 5d 20 3d 20 63 63 63 5f 63 75 d) - 1] = ccc_cu
12d30 72 72 2d 3e 76 61 6c 75 65 5f 63 61 72 64 75 72 rr->value_cardur
12d40 6c 2d 3e 61 70 70 69 64 20 26 20 30 78 66 66 3b l->appid & 0xff;
12d50 0a 0a 09 09 09 2f 2a 20 53 65 6c 65 63 74 20 66 ...../* Select f
12d60 6f 75 6e 64 20 61 70 70 6c 65 74 20 2e 2e 2e 20 ound applet ...
12d70 2a 2f 0a 09 09 09 73 65 6c 65 63 74 5f 72 65 74 */....select_ret
12d80 20 3d 20 63 61 63 6b 65 79 5f 73 65 6c 65 63 74 = cackey_select
12d90 5f 61 70 70 6c 65 74 28 73 6c 6f 74 2c 20 63 75 _applet(slot, cu
12da0 72 72 5f 61 69 64 2c 20 73 69 7a 65 6f 66 28 63 rr_aid, sizeof(c
12db0 75 72 72 5f 61 69 64 29 29 3b 0a 09 09 09 69 66 urr_aid));....if
12dc0 20 28 73 65 6c 65 63 74 5f 72 65 74 20 21 3d 20 (select_ret !=
12dd0 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f 4f 4b CACKEY_PCSC_S_OK
12de0 29 20 7b 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 ) {.....CACKEY_D
12df0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 46 61 69 EBUG_PRINTF("Fai
12e00 6c 65 64 20 74 6f 20 73 65 6c 65 63 74 20 61 70 led to select ap
12e10 70 6c 65 74 2c 20 73 6b 69 70 70 69 6e 67 20 70 plet, skipping p
12e20 72 6f 63 65 73 73 69 6e 67 20 6f 66 20 74 68 69 rocessing of thi
12e30 73 20 6f 62 6a 65 63 74 22 29 3b 0a 0a 09 09 09 s object");.....
12e40 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 09 7d 0a .continue;....}.
12e50 0a 09 09 09 2f 2a 20 2e 2e 2e 20 61 6e 64 20 6f ..../* ... and o
12e60 62 6a 65 63 74 20 28 66 69 6c 65 29 20 2a 2f 0a bject (file) */.
12e70 09 09 09 73 65 6c 65 63 74 5f 72 65 74 20 3d 20 ...select_ret =
12e80 63 61 63 6b 65 79 5f 73 65 6c 65 63 74 5f 66 69 cackey_select_fi
12e90 6c 65 28 73 6c 6f 74 2c 20 63 63 63 5f 63 75 72 le(slot, ccc_cur
12ea0 72 2d 3e 76 61 6c 75 65 5f 63 61 72 64 75 72 6c r->value_cardurl
12eb0 2d 3e 6f 62 6a 65 63 74 69 64 29 3b 0a 09 09 09 ->objectid);....
12ec0 69 66 20 28 73 65 6c 65 63 74 5f 72 65 74 20 21 if (select_ret !
12ed0 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f = CACKEY_PCSC_S_
12ee0 4f 4b 29 20 7b 0a 09 09 09 09 43 41 43 4b 45 59 OK) {.....CACKEY
12ef0 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 46 _DEBUG_PRINTF("F
12f00 61 69 6c 65 64 20 74 6f 20 73 65 6c 65 63 74 20 ailed to select
12f10 66 69 6c 65 2c 20 73 6b 69 70 70 69 6e 67 20 70 file, skipping p
12f20 72 6f 63 65 73 73 69 6e 67 20 6f 66 20 74 68 69 rocessing of thi
12f30 73 20 6f 62 6a 65 63 74 22 29 3b 0a 0a 09 09 09 s object");.....
12f40 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 09 7d 0a .continue;....}.
12f50 0a 09 09 09 2f 2a 20 50 72 6f 63 65 73 73 20 74 ..../* Process t
12f60 68 69 73 20 66 69 6c 65 27 73 20 54 4c 56 20 6c his file's TLV l
12f70 6f 6f 6b 69 6e 67 20 66 6f 72 20 63 65 72 74 69 ooking for certi
12f80 66 69 63 61 74 65 73 20 2a 2f 0a 09 09 09 61 70 ficates */....ap
12f90 70 5f 74 6c 76 20 3d 20 63 61 63 6b 65 79 5f 72 p_tlv = cackey_r
12fa0 65 61 64 5f 74 6c 76 28 73 6c 6f 74 29 3b 0a 09 ead_tlv(slot);..
12fb0 0a 09 09 09 66 6f 72 20 28 61 70 70 5f 63 75 72 ....for (app_cur
12fc0 72 20 3d 20 61 70 70 5f 74 6c 76 3b 20 61 70 70 r = app_tlv; app
12fd0 5f 63 75 72 72 3b 20 61 70 70 5f 63 75 72 72 20 _curr; app_curr
12fe0 3d 20 61 70 70 5f 63 75 72 72 2d 3e 5f 6e 65 78 = app_curr->_nex
12ff0 74 29 20 7b 0a 09 09 09 09 43 41 43 4b 45 59 5f t) {.....CACKEY_
13000 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 46 6f DEBUG_PRINTF("Fo
13010 75 6e 64 20 74 61 67 3a 20 25 73 22 2c 20 43 41 und tag: %s", CA
13020 43 4b 45 59 5f 44 45 42 55 47 5f 46 55 4e 43 5f CKEY_DEBUG_FUNC_
13030 54 41 47 5f 54 4f 5f 53 54 52 28 61 70 70 5f 63 TAG_TO_STR(app_c
13040 75 72 72 2d 3e 74 61 67 29 29 3b 0a 09 09 09 09 urr->tag));.....
13050 69 66 20 28 61 70 70 5f 63 75 72 72 2d 3e 74 61 if (app_curr->ta
13060 67 20 21 3d 20 47 53 43 49 53 5f 54 41 47 5f 43 g != GSCIS_TAG_C
13070 45 52 54 49 46 49 43 41 54 45 29 20 7b 0a 09 09 ERTIFICATE) {...
13080 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
13090 50 52 49 4e 54 46 28 22 20 20 2e 2e 2e 20 73 6b PRINTF(" ... sk
130a0 69 70 70 69 6e 67 20 69 74 20 28 77 65 20 6f 6e ipping it (we on
130b0 6c 79 20 63 61 72 65 20 61 62 6f 75 74 20 43 45 ly care about CE
130c0 52 54 49 46 49 43 41 54 45 73 29 22 29 3b 0a 0a RTIFICATEs)");..
130d0 09 09 09 09 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 .....continue;..
130e0 09 09 09 7d 0a 0a 09 09 09 09 63 75 72 72 5f 69 ...}......curr_i
130f0 64 20 3d 20 26 63 65 72 74 73 5b 6f 75 74 69 64 d = &certs[outid
13100 78 5d 3b 0a 09 09 09 09 6f 75 74 69 64 78 2b 2b x];.....outidx++
13110 3b 0a 0a 09 09 09 09 63 75 72 72 5f 69 64 2d 3e ;......curr_id->
13120 69 64 5f 74 79 70 65 20 3d 20 43 41 43 4b 45 59 id_type = CACKEY
13130 5f 49 44 5f 54 59 50 45 5f 43 41 43 3b 0a 09 09 _ID_TYPE_CAC;...
13140 09 09 6d 65 6d 63 70 79 28 63 75 72 72 5f 69 64 ..memcpy(curr_id
13150 2d 3e 63 61 72 64 2e 63 61 63 2e 61 70 70 6c 65 ->card.cac.apple
13160 74 2c 20 63 75 72 72 5f 61 69 64 2c 20 73 69 7a t, curr_aid, siz
13170 65 6f 66 28 63 75 72 72 5f 69 64 2d 3e 63 61 72 eof(curr_id->car
13180 64 2e 63 61 63 2e 61 70 70 6c 65 74 29 29 3b 0a d.cac.applet));.
13190 09 09 09 09 63 75 72 72 5f 69 64 2d 3e 63 61 72 ....curr_id->car
131a0 64 2e 63 61 63 2e 66 69 6c 65 20 3d 20 63 63 63 d.cac.file = ccc
131b0 5f 63 75 72 72 2d 3e 76 61 6c 75 65 5f 63 61 72 _curr->value_car
131c0 64 75 72 6c 2d 3e 6f 62 6a 65 63 74 69 64 3b 0a durl->objectid;.
131d0 09 09 09 09 63 75 72 72 5f 69 64 2d 3e 6b 65 79 ....curr_id->key
131e0 73 69 7a 65 20 3d 20 2d 31 3b 0a 0a 09 09 09 09 size = -1;......
131f0 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
13200 4e 54 46 28 22 46 69 6c 6c 69 6e 67 20 63 75 72 NTF("Filling cur
13210 72 5f 69 64 2d 3e 63 61 72 64 2e 63 61 63 2e 61 r_id->card.cac.a
13220 70 70 6c 65 74 20 28 25 70 29 20 77 69 74 68 20 pplet (%p) with
13230 25 6c 75 20 62 79 74 65 73 3a 22 2c 20 63 75 72 %lu bytes:", cur
13240 72 5f 69 64 2d 3e 63 61 72 64 2e 63 61 63 2e 61 r_id->card.cac.a
13250 70 70 6c 65 74 2c 20 28 75 6e 73 69 67 6e 65 64 pplet, (unsigned
13260 20 6c 6f 6e 67 29 20 73 69 7a 65 6f 66 28 63 75 long) sizeof(cu
13270 72 72 5f 69 64 2d 3e 63 61 72 64 2e 63 61 63 2e rr_id->card.cac.
13280 61 70 70 6c 65 74 29 29 3b 0a 09 09 09 09 43 41 applet));.....CA
13290 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
132a0 42 55 46 28 22 56 41 4c 3a 22 2c 20 63 75 72 72 BUF("VAL:", curr
132b0 5f 69 64 2d 3e 63 61 72 64 2e 63 61 63 2e 61 70 _id->card.cac.ap
132c0 70 6c 65 74 2c 20 73 69 7a 65 6f 66 28 63 75 72 plet, sizeof(cur
132d0 72 5f 69 64 2d 3e 63 61 72 64 2e 63 61 63 2e 61 r_id->card.cac.a
132e0 70 70 6c 65 74 29 29 3b 0a 0a 09 09 09 09 63 75 pplet));......cu
132f0 72 72 5f 69 64 2d 3e 63 65 72 74 69 66 69 63 61 rr_id->certifica
13300 74 65 5f 6c 65 6e 20 3d 20 61 70 70 5f 63 75 72 te_len = app_cur
13310 72 2d 3e 6c 65 6e 67 74 68 3b 0a 0a 09 09 09 09 r->length;......
13320 63 75 72 72 5f 69 64 2d 3e 63 65 72 74 69 66 69 curr_id->certifi
13330 63 61 74 65 20 3d 20 6d 61 6c 6c 6f 63 28 63 75 cate = malloc(cu
13340 72 72 5f 69 64 2d 3e 63 65 72 74 69 66 69 63 61 rr_id->certifica
13350 74 65 5f 6c 65 6e 29 3b 0a 09 09 09 09 6d 65 6d te_len);.....mem
13360 63 70 79 28 63 75 72 72 5f 69 64 2d 3e 63 65 72 cpy(curr_id->cer
13370 74 69 66 69 63 61 74 65 2c 20 61 70 70 5f 63 75 tificate, app_cu
13380 72 72 2d 3e 76 61 6c 75 65 2c 20 63 75 72 72 5f rr->value, curr_
13390 69 64 2d 3e 63 65 72 74 69 66 69 63 61 74 65 5f id->certificate_
133a0 6c 65 6e 29 3b 0a 0a 09 09 09 09 69 66 20 28 6f len);......if (o
133b0 75 74 69 64 78 20 3e 3d 20 2a 63 6f 75 6e 74 29 utidx >= *count)
133c0 20 7b 0a 09 09 09 09 09 69 66 20 28 63 65 72 74 {......if (cert
133d0 73 5f 72 65 73 69 7a 61 62 6c 65 29 20 7b 0a 09 s_resizable) {..
133e0 09 09 09 09 09 2a 63 6f 75 6e 74 20 2a 3d 20 32 .....*count *= 2
133f0 3b 0a 09 09 09 09 09 09 69 66 20 28 2a 63 6f 75 ;.......if (*cou
13400 6e 74 20 21 3d 20 30 29 20 7b 0a 09 09 09 09 09 nt != 0) {......
13410 09 09 63 65 72 74 73 20 3d 20 72 65 61 6c 6c 6f ..certs = reallo
13420 63 28 63 65 72 74 73 2c 20 73 69 7a 65 6f 66 28 c(certs, sizeof(
13430 2a 63 65 72 74 73 29 20 2a 20 28 2a 63 6f 75 6e *certs) * (*coun
13440 74 29 29 3b 0a 09 09 09 09 09 09 7d 20 65 6c 73 t));.......} els
13450 65 20 7b 0a 09 09 09 09 09 09 09 63 65 72 74 73 e {........certs
13460 20 3d 20 4e 55 4c 4c 3b 0a 09 09 09 09 09 09 7d = NULL;.......}
13470 0a 09 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 ......} else {..
13480 09 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 .....break;.....
13490 09 7d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 0a 09 .}.....}....}...
134a0 09 09 63 61 63 6b 65 79 5f 66 72 65 65 5f 74 6c ..cackey_free_tl
134b0 76 28 61 70 70 5f 74 6c 76 29 3b 0a 0a 09 09 09 v(app_tlv);.....
134c0 69 66 20 28 6f 75 74 69 64 78 20 3e 3d 20 2a 63 if (outidx >= *c
134d0 6f 75 6e 74 29 20 7b 0a 09 09 09 09 62 72 65 61 ount) {.....brea
134e0 6b 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 63 k;....}...}....c
134f0 61 63 6b 65 79 5f 66 72 65 65 5f 74 6c 76 28 63 ackey_free_tlv(c
13500 63 63 5f 74 6c 76 29 3b 0a 09 7d 0a 0a 09 2a 63 cc_tlv);..}...*c
13510 6f 75 6e 74 20 3d 20 6f 75 74 69 64 78 3b 0a 0a ount = outidx;..
13520 09 69 66 20 28 63 65 72 74 73 5f 72 65 73 69 7a .if (certs_resiz
13530 61 62 6c 65 29 20 7b 0a 09 09 69 66 20 28 2a 63 able) {...if (*c
13540 6f 75 6e 74 20 21 3d 20 30 29 20 7b 0a 09 09 09 ount != 0) {....
13550 63 65 72 74 73 20 3d 20 72 65 61 6c 6c 6f 63 28 certs = realloc(
13560 63 65 72 74 73 2c 20 73 69 7a 65 6f 66 28 2a 63 certs, sizeof(*c
13570 65 72 74 73 29 20 2a 20 28 2a 63 6f 75 6e 74 29 erts) * (*count)
13580 29 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 );...} else {...
13590 09 66 72 65 65 28 63 65 72 74 73 29 3b 0a 0a 09 .free(certs);...
135a0 09 09 63 65 72 74 73 20 3d 20 4e 55 4c 4c 3b 0a ..certs = NULL;.
135b0 09 09 7d 0a 09 7d 0a 0a 09 73 6c 6f 74 2d 3e 63 ..}..}...slot->c
135c0 61 63 68 65 64 5f 63 65 72 74 73 20 3d 20 63 61 ached_certs = ca
135d0 63 6b 65 79 5f 63 6f 70 79 5f 63 65 72 74 73 28 ckey_copy_certs(
135e0 4e 55 4c 4c 2c 20 63 65 72 74 73 2c 20 2a 63 6f NULL, certs, *co
135f0 75 6e 74 29 3b 0a 09 73 6c 6f 74 2d 3e 63 61 63 unt);..slot->cac
13600 68 65 64 5f 63 65 72 74 73 5f 63 6f 75 6e 74 20 hed_certs_count
13610 3d 20 2a 63 6f 75 6e 74 3b 0a 0a 09 2f 2a 20 54 = *count;.../* T
13620 65 72 6d 69 6e 61 74 65 20 53 6d 61 72 74 43 61 erminate SmartCa
13630 72 64 20 54 72 61 6e 73 61 63 74 69 6f 6e 20 2a rd Transaction *
13640 2f 0a 09 63 61 63 6b 65 79 5f 65 6e 64 5f 74 72 /..cackey_end_tr
13650 61 6e 73 61 63 74 69 6f 6e 28 73 6c 6f 74 29 3b ansaction(slot);
13660 0a 0a 09 72 65 74 75 72 6e 28 63 65 72 74 73 29 ...return(certs)
13670 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 59 4e 50 4f ;.}../*. * SYNPO
13680 53 49 53 0a 20 2a 20 20 20 20 20 2e 2e 2e 0a 20 SIS. * ....
13690 2a 0a 20 2a 20 41 52 47 55 4d 45 4e 54 53 0a 20 *. * ARGUMENTS.
136a0 2a 20 20 20 20 20 2e 2e 2e 0a 20 2a 0a 20 2a 20 * .... *. *
136b0 52 45 54 55 52 4e 20 56 41 4c 55 45 0a 20 2a 20 RETURN VALUE. *
136c0 20 20 20 20 2e 2e 2e 0a 20 2a 0a 20 2a 20 4e 4f .... *. * NO
136d0 54 45 53 0a 20 2a 20 20 20 20 20 2e 2e 2e 0a 20 TES. * ....
136e0 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 73 73 69 *. */.static ssi
136f0 7a 65 5f 74 20 63 61 63 6b 65 79 5f 73 69 67 6e ze_t cackey_sign
13700 64 65 63 72 79 70 74 28 73 74 72 75 63 74 20 63 decrypt(struct c
13710 61 63 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c 6f 74 ackey_slot *slot
13720 2c 20 73 74 72 75 63 74 20 63 61 63 6b 65 79 5f , struct cackey_
13730 69 64 65 6e 74 69 74 79 20 2a 69 64 65 6e 74 69 identity *identi
13740 74 79 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 ty, unsigned cha
13750 72 20 2a 62 75 66 2c 20 73 69 7a 65 5f 74 20 62 r *buf, size_t b
13760 75 66 6c 65 6e 2c 20 75 6e 73 69 67 6e 65 64 20 uflen, unsigned
13770 63 68 61 72 20 2a 6f 75 74 62 75 66 2c 20 73 69 char *outbuf, si
13780 7a 65 5f 74 20 6f 75 74 62 75 66 6c 65 6e 2c 20 ze_t outbuflen,
13790 69 6e 74 20 70 61 64 49 6e 70 75 74 2c 20 69 6e int padInput, in
137a0 74 20 75 6e 70 61 64 4f 75 74 70 75 74 29 20 7b t unpadOutput) {
137b0 0a 09 63 61 63 6b 65 79 5f 70 63 73 63 5f 69 64 ..cackey_pcsc_id
137c0 5f 74 79 70 65 20 69 64 5f 74 79 70 65 2c 20 63 _type id_type, c
137d0 68 65 63 6b 5f 69 64 5f 74 79 70 65 3b 0a 09 75 heck_id_type;..u
137e0 6e 73 69 67 6e 65 64 20 63 68 61 72 20 64 79 6e nsigned char dyn
137f0 5f 61 75 74 68 5f 74 65 6d 70 6c 61 74 65 5b 31 _auth_template[1
13800 30 5d 2c 20 2a 64 79 6e 5f 61 75 74 68 5f 74 6d 0], *dyn_auth_tm
13810 70 62 75 66 3b 0a 09 75 6e 73 69 67 6e 65 64 20 pbuf;..unsigned
13820 63 68 61 72 20 2a 74 6d 70 62 75 66 2c 20 2a 74 char *tmpbuf, *t
13830 6d 70 62 75 66 5f 73 2c 20 2a 6f 75 74 62 75 66 mpbuf_s, *outbuf
13840 5f 73 2c 20 2a 6f 75 74 62 75 66 5f 70 3b 0a 09 _s, *outbuf_p;..
13850 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 62 79 unsigned char by
13860 74 65 73 5f 74 6f 5f 73 65 6e 64 2c 20 70 31 2c tes_to_send, p1,
13870 20 63 6c 61 73 73 3b 0a 09 75 6e 73 69 67 6e 65 class;..unsigne
13880 64 20 63 68 61 72 20 62 6c 6f 63 6b 74 79 70 65 d char blocktype
13890 3b 0a 09 63 61 63 6b 65 79 5f 72 65 74 20 73 65 ;..cackey_ret se
138a0 6e 64 5f 72 65 74 3b 0a 09 75 69 6e 74 31 36 5f nd_ret;..uint16_
138b0 74 20 72 65 73 70 63 6f 64 65 3b 0a 09 73 73 69 t respcode;..ssi
138c0 7a 65 5f 74 20 72 65 74 76 61 6c 20 3d 20 30 2c ze_t retval = 0,
138d0 20 75 6e 70 61 64 6f 66 66 73 65 74 3b 0a 09 73 unpadoffset;..s
138e0 69 7a 65 5f 74 20 74 6d 70 62 75 66 6c 65 6e 2c ize_t tmpbuflen,
138f0 20 70 61 64 6c 65 6e 2c 20 74 6d 70 6f 75 74 62 padlen, tmpoutb
13900 75 66 6c 65 6e 2c 20 6f 75 74 62 75 66 5f 6c 65 uflen, outbuf_le
13910 6e 3b 0a 09 69 6e 74 20 66 72 65 65 5f 74 6d 70 n;..int free_tmp
13920 62 75 66 20 3d 20 30 3b 0a 09 69 6e 74 20 6c 65 buf = 0;..int le
13930 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ;...CACKEY_DEBUG
13940 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e _PRINTF("Called.
13950 22 29 3b 0a 0a 09 69 66 20 28 73 6c 6f 74 20 3d ");...if (slot =
13960 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b = NULL) {...CACK
13970 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
13980 22 45 72 72 6f 72 2e 20 20 73 6c 6f 74 20 69 73 "Error. slot is
13990 20 4e 55 4c 4c 22 29 3b 0a 0a 09 09 72 65 74 75 NULL");....retu
139a0 72 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 09 69 66 20 rn(-1);..}...if
139b0 28 62 75 66 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a (buf == NULL) {.
139c0 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
139d0 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 62 RINTF("Error. b
139e0 75 66 20 69 73 20 4e 55 4c 4c 22 29 3b 0a 0a 09 uf is NULL");...
139f0 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 7d 0a .return(-1);..}.
13a00 0a 09 69 66 20 28 6f 75 74 62 75 66 20 3d 3d 20 ..if (outbuf ==
13a10 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b 45 59 NULL) {...CACKEY
13a20 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
13a30 72 72 6f 72 2e 20 20 6f 75 74 62 75 66 20 69 73 rror. outbuf is
13a40 20 4e 55 4c 4c 22 29 3b 0a 0a 09 09 72 65 74 75 NULL");....retu
13a50 72 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 09 69 66 20 rn(-1);..}...if
13a60 28 69 64 65 6e 74 69 74 79 20 3d 3d 20 4e 55 4c (identity == NUL
13a70 4c 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 L) {...CACKEY_DE
13a80 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f BUG_PRINTF("Erro
13a90 72 2e 20 20 69 64 65 6e 74 69 74 79 20 69 73 20 r. identity is
13aa0 4e 55 4c 4c 22 29 3b 0a 0a 09 09 72 65 74 75 72 NULL");....retur
13ab0 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 n(-1);..}...if (
13ac0 69 64 65 6e 74 69 74 79 2d 3e 70 63 73 63 5f 69 identity->pcsc_i
13ad0 64 65 6e 74 69 74 79 20 3d 3d 20 4e 55 4c 4c 29 dentity == NULL)
13ae0 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
13af0 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
13b00 20 20 69 64 65 6e 74 69 74 79 2d 3e 70 63 73 63 identity->pcsc
13b10 5f 69 64 65 6e 74 69 74 79 20 69 73 20 4e 55 4c _identity is NUL
13b20 4c 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 2d L");....return(-
13b30 31 29 3b 0a 09 7d 0a 0a 09 69 64 5f 74 79 70 65 1);..}...id_type
13b40 20 3d 20 69 64 65 6e 74 69 74 79 2d 3e 70 63 73 = identity->pcs
13b50 63 5f 69 64 65 6e 74 69 74 79 2d 3e 69 64 5f 74 c_identity->id_t
13b60 79 70 65 3b 0a 09 69 66 20 28 69 64 5f 74 79 70 ype;..if (id_typ
13b70 65 20 3d 3d 20 43 41 43 4b 45 59 5f 49 44 5f 54 e == CACKEY_ID_T
13b80 59 50 45 5f 43 45 52 54 5f 4f 4e 4c 59 29 20 7b YPE_CERT_ONLY) {
13b90 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
13ba0 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 PRINTF("Error.
13bb0 69 64 65 6e 74 69 74 79 2d 3e 70 63 73 63 5f 69 identity->pcsc_i
13bc0 64 65 6e 74 69 74 79 20 69 73 20 43 41 43 4b 45 dentity is CACKE
13bd0 59 5f 49 44 5f 54 59 50 45 5f 43 45 52 54 5f 4f Y_ID_TYPE_CERT_O
13be0 4e 4c 59 2c 20 77 68 69 63 68 20 63 61 6e 6e 6f NLY, which canno
13bf0 74 20 62 65 20 75 73 65 64 20 66 6f 72 20 73 69 t be used for si
13c00 67 6e 2f 64 65 63 72 79 70 74 22 29 3b 0a 0a 09 gn/decrypt");...
13c10 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 7d 0a .return(-1);..}.
13c20 0a 09 73 77 69 74 63 68 20 28 69 64 5f 74 79 70 ..switch (id_typ
13c30 65 29 20 7b 0a 09 09 63 61 73 65 20 43 41 43 4b e) {...case CACK
13c40 45 59 5f 49 44 5f 54 59 50 45 5f 50 49 56 3a 0a EY_ID_TYPE_PIV:.
13c50 09 09 63 61 73 65 20 43 41 43 4b 45 59 5f 49 44 ..case CACKEY_ID
13c60 5f 54 59 50 45 5f 43 41 43 3a 0a 09 09 09 62 72 _TYPE_CAC:....br
13c70 65 61 6b 3b 0a 09 09 64 65 66 61 75 6c 74 3a 0a eak;...default:.
13c80 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
13c90 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 PRINTF("Error.
13ca0 69 64 65 6e 74 69 74 79 2d 3e 70 63 73 63 5f 69 identity->pcsc_i
13cb0 64 65 6e 74 69 74 79 20 69 73 20 6e 6f 74 20 61 dentity is not a
13cc0 20 73 75 70 70 6f 72 74 65 64 20 76 61 6c 75 65 supported value
13cd0 2e 20 54 79 70 65 20 69 73 3a 20 30 78 25 6c 78 . Type is: 0x%lx
13ce0 20 28 50 49 56 20 3d 20 30 78 25 6c 78 2c 20 43 (PIV = 0x%lx, C
13cf0 41 43 20 3d 20 30 78 25 6c 78 29 22 2c 20 28 75 AC = 0x%lx)", (u
13d00 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 69 64 nsigned long) id
13d10 5f 74 79 70 65 2c 20 28 75 6e 73 69 67 6e 65 64 _type, (unsigned
13d20 20 6c 6f 6e 67 29 20 43 41 43 4b 45 59 5f 49 44 long) CACKEY_ID
13d30 5f 54 59 50 45 5f 50 49 56 2c 20 28 75 6e 73 69 _TYPE_PIV, (unsi
13d40 67 6e 65 64 20 6c 6f 6e 67 29 20 43 41 43 4b 45 gned long) CACKE
13d50 59 5f 49 44 5f 54 59 50 45 5f 43 41 43 29 3b 0a Y_ID_TYPE_CAC);.
13d60 0a 09 09 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a ....return(-1);.
13d70 09 7d 0a 0a 09 2f 2a 20 44 65 74 65 72 6d 69 6e .}.../* Determin
13d80 65 20 69 64 65 6e 74 69 74 79 20 4b 65 79 20 73 e identity Key s
13d90 69 7a 65 20 2a 2f 0a 09 69 66 20 28 69 64 65 6e ize */..if (iden
13da0 74 69 74 79 2d 3e 70 63 73 63 5f 69 64 65 6e 74 tity->pcsc_ident
13db0 69 74 79 2d 3e 6b 65 79 73 69 7a 65 20 3c 20 30 ity->keysize < 0
13dc0 29 20 7b 0a 09 09 69 64 65 6e 74 69 74 79 2d 3e ) {...identity->
13dd0 70 63 73 63 5f 69 64 65 6e 74 69 74 79 2d 3e 6b pcsc_identity->k
13de0 65 79 73 69 7a 65 20 3d 20 78 35 30 39 5f 74 6f eysize = x509_to
13df0 5f 6b 65 79 73 69 7a 65 28 69 64 65 6e 74 69 74 _keysize(identit
13e00 79 2d 3e 70 63 73 63 5f 69 64 65 6e 74 69 74 79 y->pcsc_identity
13e10 2d 3e 63 65 72 74 69 66 69 63 61 74 65 2c 20 69 ->certificate, i
13e20 64 65 6e 74 69 74 79 2d 3e 70 63 73 63 5f 69 64 dentity->pcsc_id
13e30 65 6e 74 69 74 79 2d 3e 63 65 72 74 69 66 69 63 entity->certific
13e40 61 74 65 5f 6c 65 6e 29 3b 0a 09 7d 0a 0a 09 2f ate_len);..}.../
13e50 2a 20 50 61 64 20 6d 65 73 73 61 67 65 20 74 6f * Pad message to
13e60 20 6b 65 79 20 73 69 7a 65 20 2a 2f 0a 09 69 66 key size */..if
13e70 20 28 70 61 64 49 6e 70 75 74 29 20 7b 0a 09 09 (padInput) {...
13e80 69 66 20 28 69 64 65 6e 74 69 74 79 2d 3e 70 63 if (identity->pc
13e90 73 63 5f 69 64 65 6e 74 69 74 79 2d 3e 6b 65 79 sc_identity->key
13ea0 73 69 7a 65 20 3e 20 30 29 20 7b 0a 09 09 09 69 size > 0) {....i
13eb0 66 20 28 62 75 66 6c 65 6e 20 21 3d 20 69 64 65 f (buflen != ide
13ec0 6e 74 69 74 79 2d 3e 70 63 73 63 5f 69 64 65 6e ntity->pcsc_iden
13ed0 74 69 74 79 2d 3e 6b 65 79 73 69 7a 65 29 20 7b tity->keysize) {
13ee0 0a 09 09 09 09 69 66 20 28 62 75 66 6c 65 6e 20 .....if (buflen
13ef0 3e 20 28 69 64 65 6e 74 69 74 79 2d 3e 70 63 73 > (identity->pcs
13f00 63 5f 69 64 65 6e 74 69 74 79 2d 3e 6b 65 79 73 c_identity->keys
13f10 69 7a 65 20 2d 20 33 29 29 20 7b 0a 09 09 09 09 ize - 3)) {.....
13f20 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
13f30 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4d 65 INTF("Error. Me
13f40 73 73 61 67 65 20 69 73 20 74 6f 6f 20 6c 61 72 ssage is too lar
13f50 67 65 20 74 6f 20 73 69 67 6e 2f 64 65 63 72 79 ge to sign/decry
13f60 70 74 22 29 3b 0a 0a 09 09 09 09 09 72 65 74 75 pt");.......retu
13f70 72 6e 28 2d 31 29 3b 0a 09 09 09 09 7d 0a 0a 09 rn(-1);.....}...
13f80 09 09 09 74 6d 70 62 75 66 6c 65 6e 20 3d 20 69 ...tmpbuflen = i
13f90 64 65 6e 74 69 74 79 2d 3e 70 63 73 63 5f 69 64 dentity->pcsc_id
13fa0 65 6e 74 69 74 79 2d 3e 6b 65 79 73 69 7a 65 3b entity->keysize;
13fb0 0a 09 09 09 09 74 6d 70 62 75 66 20 3d 20 6d 61 .....tmpbuf = ma
13fc0 6c 6c 6f 63 28 74 6d 70 62 75 66 6c 65 6e 29 3b lloc(tmpbuflen);
13fd0 0a 09 09 09 09 66 72 65 65 5f 74 6d 70 62 75 66 .....free_tmpbuf
13fe0 20 3d 20 31 3b 0a 0a 09 09 09 09 70 61 64 6c 65 = 1;......padle
13ff0 6e 20 3d 20 74 6d 70 62 75 66 6c 65 6e 20 2d 20 n = tmpbuflen -
14000 62 75 66 6c 65 6e 20 2d 20 33 3b 0a 0a 09 09 09 buflen - 3;.....
14010 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
14020 49 4e 54 46 28 22 4e 65 65 64 20 74 6f 20 70 61 INTF("Need to pa
14030 64 20 74 68 65 20 62 75 66 66 65 72 20 77 69 74 d the buffer wit
14040 68 20 25 6c 6c 75 20 62 79 74 65 73 20 28 74 6d h %llu bytes (tm
14050 70 62 75 66 6c 65 6e 20 3d 20 25 6c 6c 75 2c 20 pbuflen = %llu,
14060 62 75 66 6c 65 6e 20 3d 20 25 6c 6c 75 29 22 2c buflen = %llu)",
14070 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 (unsigned long
14080 6c 6f 6e 67 29 20 70 61 64 6c 65 6e 2c 20 28 75 long) padlen, (u
14090 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e nsigned long lon
140a0 67 29 20 74 6d 70 62 75 66 6c 65 6e 2c 20 28 75 g) tmpbuflen, (u
140b0 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e nsigned long lon
140c0 67 29 20 62 75 66 6c 65 6e 29 3b 0a 0a 09 09 09 g) buflen);.....
140d0 09 2f 2a 20 52 53 41 20 50 4b 43 53 23 31 20 45 ./* RSA PKCS#1 E
140e0 4d 53 41 2d 50 4b 43 53 31 2d 76 31 5f 35 20 50 MSA-PKCS1-v1_5 P
140f0 61 64 64 69 6e 67 20 2a 2f 0a 09 09 09 09 74 6d adding */.....tm
14100 70 62 75 66 5b 30 5d 20 3d 20 30 78 30 30 3b 0a pbuf[0] = 0x00;.
14110 09 09 09 09 74 6d 70 62 75 66 5b 31 5d 20 3d 20 ....tmpbuf[1] =
14120 30 78 30 31 3b 0a 09 09 09 09 6d 65 6d 73 65 74 0x01;.....memset
14130 28 26 74 6d 70 62 75 66 5b 32 5d 2c 20 30 78 46 (&tmpbuf[2], 0xF
14140 46 2c 20 70 61 64 6c 65 6e 29 3b 0a 09 09 09 09 F, padlen);.....
14150 74 6d 70 62 75 66 5b 70 61 64 6c 65 6e 20 2b 20 tmpbuf[padlen +
14160 32 5d 3d 20 30 78 30 30 3b 0a 09 09 09 09 6d 65 2]= 0x00;.....me
14170 6d 63 70 79 28 26 74 6d 70 62 75 66 5b 70 61 64 mcpy(&tmpbuf[pad
14180 6c 65 6e 20 2b 20 33 5d 2c 20 62 75 66 2c 20 62 len + 3], buf, b
14190 75 66 6c 65 6e 29 3b 0a 0a 09 09 09 09 43 41 43 uflen);......CAC
141a0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 42 KEY_DEBUG_PRINTB
141b0 55 46 28 22 55 6e 70 61 64 64 65 64 3a 22 2c 20 UF("Unpadded:",
141c0 62 75 66 2c 20 62 75 66 6c 65 6e 29 3b 0a 09 09 buf, buflen);...
141d0 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
141e0 52 49 4e 54 42 55 46 28 22 50 61 64 64 65 64 3a RINTBUF("Padded:
141f0 22 2c 20 74 6d 70 62 75 66 2c 20 74 6d 70 62 75 ", tmpbuf, tmpbu
14200 66 6c 65 6e 29 3b 0a 09 09 09 7d 20 65 6c 73 65 flen);....} else
14210 20 7b 0a 09 09 09 09 74 6d 70 62 75 66 20 3d 20 {.....tmpbuf =
14220 62 75 66 3b 0a 09 09 09 09 74 6d 70 62 75 66 6c buf;.....tmpbufl
14230 65 6e 20 3d 20 62 75 66 6c 65 6e 3b 0a 09 09 09 en = buflen;....
14240 09 66 72 65 65 5f 74 6d 70 62 75 66 20 3d 20 30 .free_tmpbuf = 0
14250 3b 0a 09 09 09 09 70 61 64 6c 65 6e 20 3d 20 30 ;.....padlen = 0
14260 3b 0a 09 09 09 7d 0a 09 09 7d 20 65 6c 73 65 20 ;....}...} else
14270 7b 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {....CACKEY_DEBU
14280 47 5f 50 52 49 4e 54 46 28 22 55 6e 61 62 6c 65 G_PRINTF("Unable
14290 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 6b 65 to determine ke
142a0 79 20 73 69 7a 65 2c 20 68 6f 70 69 6e 67 20 74 y size, hoping t
142b0 68 65 20 6d 65 73 73 61 67 65 20 69 73 20 70 72 he message is pr
142c0 6f 70 65 72 6c 79 20 70 61 64 64 65 64 21 22 29 operly padded!")
142d0 3b 0a 0a 09 09 09 74 6d 70 62 75 66 20 3d 20 62 ;.....tmpbuf = b
142e0 75 66 3b 0a 09 09 09 74 6d 70 62 75 66 6c 65 6e uf;....tmpbuflen
142f0 20 3d 20 62 75 66 6c 65 6e 3b 0a 09 09 09 66 72 = buflen;....fr
14300 65 65 5f 74 6d 70 62 75 66 20 3d 20 30 3b 0a 09 ee_tmpbuf = 0;..
14310 09 09 70 61 64 6c 65 6e 20 3d 20 30 3b 0a 09 09 ..padlen = 0;...
14320 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 74 6d }..} else {...tm
14330 70 62 75 66 20 3d 20 62 75 66 3b 0a 09 09 74 6d pbuf = buf;...tm
14340 70 62 75 66 6c 65 6e 20 3d 20 62 75 66 6c 65 6e pbuflen = buflen
14350 3b 0a 09 09 66 72 65 65 5f 74 6d 70 62 75 66 20 ;...free_tmpbuf
14360 3d 20 30 3b 0a 09 09 70 61 64 6c 65 6e 20 3d 20 = 0;...padlen =
14370 30 3b 0a 09 7d 0a 0a 09 2f 2a 20 42 65 67 69 6e 0;..}.../* Begin
14380 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 2a 2f 0a transaction */.
14390 09 63 61 63 6b 65 79 5f 62 65 67 69 6e 5f 74 72 .cackey_begin_tr
143a0 61 6e 73 61 63 74 69 6f 6e 28 73 6c 6f 74 29 3b ansaction(slot);
143b0 0a 0a 09 2f 2a 20 53 65 6c 65 63 74 20 63 6f 72 .../* Select cor
143c0 72 65 63 74 20 61 70 70 6c 65 74 20 2a 2f 0a 09 rect applet */..
143d0 73 77 69 74 63 68 20 28 69 64 5f 74 79 70 65 29 switch (id_type)
143e0 20 7b 0a 09 09 63 61 73 65 20 43 41 43 4b 45 59 {...case CACKEY
143f0 5f 49 44 5f 54 59 50 45 5f 43 41 43 3a 0a 09 09 _ID_TYPE_CAC:...
14400 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
14410 49 4e 54 46 28 22 53 65 6c 65 63 74 69 6e 67 20 INTF("Selecting
14420 61 70 70 6c 65 74 20 66 6f 75 6e 64 20 61 74 20 applet found at
14430 25 70 20 2e 2e 2e 22 2c 20 69 64 65 6e 74 69 74 %p ...", identit
14440 79 2d 3e 70 63 73 63 5f 69 64 65 6e 74 69 74 79 y->pcsc_identity
14450 2d 3e 63 61 72 64 2e 63 61 63 2e 61 70 70 6c 65 ->card.cac.apple
14460 74 29 3b 0a 09 09 09 63 61 63 6b 65 79 5f 73 65 t);....cackey_se
14470 6c 65 63 74 5f 61 70 70 6c 65 74 28 73 6c 6f 74 lect_applet(slot
14480 2c 20 69 64 65 6e 74 69 74 79 2d 3e 70 63 73 63 , identity->pcsc
14490 5f 69 64 65 6e 74 69 74 79 2d 3e 63 61 72 64 2e _identity->card.
144a0 63 61 63 2e 61 70 70 6c 65 74 2c 20 73 69 7a 65 cac.applet, size
144b0 6f 66 28 69 64 65 6e 74 69 74 79 2d 3e 70 63 73 of(identity->pcs
144c0 63 5f 69 64 65 6e 74 69 74 79 2d 3e 63 61 72 64 c_identity->card
144d0 2e 63 61 63 2e 61 70 70 6c 65 74 29 29 3b 0a 0a .cac.applet));..
144e0 09 09 09 2f 2a 20 53 65 6c 65 63 74 20 63 6f 72 .../* Select cor
144f0 72 65 63 74 20 66 69 6c 65 20 2a 2f 0a 09 09 09 rect file */....
14500 63 61 63 6b 65 79 5f 73 65 6c 65 63 74 5f 66 69 cackey_select_fi
14510 6c 65 28 73 6c 6f 74 2c 20 69 64 65 6e 74 69 74 le(slot, identit
14520 79 2d 3e 70 63 73 63 5f 69 64 65 6e 74 69 74 79 y->pcsc_identity
14530 2d 3e 63 61 72 64 2e 63 61 63 2e 66 69 6c 65 29 ->card.cac.file)
14540 3b 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 ;....break;...ca
14550 73 65 20 43 41 43 4b 45 59 5f 49 44 5f 54 59 50 se CACKEY_ID_TYP
14560 45 5f 50 49 56 3a 0a 09 09 09 64 79 6e 5f 61 75 E_PIV:....dyn_au
14570 74 68 5f 74 65 6d 70 6c 61 74 65 5b 30 5d 20 3d th_template[0] =
14580 20 30 78 37 43 3b 0a 09 09 09 64 79 6e 5f 61 75 0x7C;....dyn_au
14590 74 68 5f 74 65 6d 70 6c 61 74 65 5b 31 5d 20 3d th_template[1] =
145a0 20 30 78 38 32 3b 0a 09 09 09 64 79 6e 5f 61 75 0x82;....dyn_au
145b0 74 68 5f 74 65 6d 70 6c 61 74 65 5b 32 5d 20 3d th_template[2] =
145c0 20 28 28 74 6d 70 62 75 66 6c 65 6e 20 2b 20 36 ((tmpbuflen + 6
145d0 29 20 26 20 30 78 66 66 30 30 29 20 3e 3e 20 38 ) & 0xff00) >> 8
145e0 3b 0a 09 09 09 64 79 6e 5f 61 75 74 68 5f 74 65 ;....dyn_auth_te
145f0 6d 70 6c 61 74 65 5b 33 5d 20 3d 20 28 74 6d 70 mplate[3] = (tmp
14600 62 75 66 6c 65 6e 20 2b 20 36 29 20 26 20 30 78 buflen + 6) & 0x
14610 30 30 66 66 3b 0a 09 09 09 64 79 6e 5f 61 75 74 00ff;....dyn_aut
14620 68 5f 74 65 6d 70 6c 61 74 65 5b 34 5d 20 3d 20 h_template[4] =
14630 30 78 38 32 3b 0a 09 09 09 64 79 6e 5f 61 75 74 0x82;....dyn_aut
14640 68 5f 74 65 6d 70 6c 61 74 65 5b 35 5d 20 3d 20 h_template[5] =
14650 30 78 30 30 3b 0a 09 09 09 64 79 6e 5f 61 75 74 0x00;....dyn_aut
14660 68 5f 74 65 6d 70 6c 61 74 65 5b 36 5d 20 3d 20 h_template[6] =
14670 30 78 38 31 3b 0a 09 09 09 64 79 6e 5f 61 75 74 0x81;....dyn_aut
14680 68 5f 74 65 6d 70 6c 61 74 65 5b 37 5d 20 3d 20 h_template[7] =
14690 30 78 38 32 3b 0a 09 09 09 64 79 6e 5f 61 75 74 0x82;....dyn_aut
146a0 68 5f 74 65 6d 70 6c 61 74 65 5b 38 5d 20 3d 20 h_template[8] =
146b0 28 74 6d 70 62 75 66 6c 65 6e 20 26 20 30 78 66 (tmpbuflen & 0xf
146c0 66 30 30 29 20 3e 3e 20 38 3b 0a 09 09 09 64 79 f00) >> 8;....dy
146d0 6e 5f 61 75 74 68 5f 74 65 6d 70 6c 61 74 65 5b n_auth_template[
146e0 39 5d 20 3d 20 74 6d 70 62 75 66 6c 65 6e 20 26 9] = tmpbuflen &
146f0 20 30 78 30 30 66 66 3b 0a 0a 09 09 09 64 79 6e 0x00ff;.....dyn
14700 5f 61 75 74 68 5f 74 6d 70 62 75 66 20 3d 20 6d _auth_tmpbuf = m
14710 61 6c 6c 6f 63 28 74 6d 70 62 75 66 6c 65 6e 20 alloc(tmpbuflen
14720 2b 20 73 69 7a 65 6f 66 28 64 79 6e 5f 61 75 74 + sizeof(dyn_aut
14730 68 5f 74 65 6d 70 6c 61 74 65 29 29 3b 0a 09 09 h_template));...
14740 09 6d 65 6d 63 70 79 28 64 79 6e 5f 61 75 74 68 .memcpy(dyn_auth
14750 5f 74 6d 70 62 75 66 2c 20 64 79 6e 5f 61 75 74 _tmpbuf, dyn_aut
14760 68 5f 74 65 6d 70 6c 61 74 65 2c 20 73 69 7a 65 h_template, size
14770 6f 66 28 64 79 6e 5f 61 75 74 68 5f 74 65 6d 70 of(dyn_auth_temp
14780 6c 61 74 65 29 29 3b 0a 09 09 09 6d 65 6d 63 70 late));....memcp
14790 79 28 64 79 6e 5f 61 75 74 68 5f 74 6d 70 62 75 y(dyn_auth_tmpbu
147a0 66 20 2b 20 73 69 7a 65 6f 66 28 64 79 6e 5f 61 f + sizeof(dyn_a
147b0 75 74 68 5f 74 65 6d 70 6c 61 74 65 29 2c 20 74 uth_template), t
147c0 6d 70 62 75 66 2c 20 74 6d 70 62 75 66 6c 65 6e mpbuf, tmpbuflen
147d0 29 3b 0a 0a 09 09 09 69 66 20 28 66 72 65 65 5f );.....if (free_
147e0 74 6d 70 62 75 66 29 20 7b 0a 09 09 09 09 66 72 tmpbuf) {.....fr
147f0 65 65 28 74 6d 70 62 75 66 29 3b 0a 09 09 09 7d ee(tmpbuf);....}
14800 0a 0a 09 09 09 74 6d 70 62 75 66 6c 65 6e 20 2b .....tmpbuflen +
14810 3d 20 73 69 7a 65 6f 66 28 64 79 6e 5f 61 75 74 = sizeof(dyn_aut
14820 68 5f 74 65 6d 70 6c 61 74 65 29 3b 0a 09 09 09 h_template);....
14830 74 6d 70 62 75 66 20 3d 20 64 79 6e 5f 61 75 74 tmpbuf = dyn_aut
14840 68 5f 74 6d 70 62 75 66 3b 0a 09 09 09 66 72 65 h_tmpbuf;....fre
14850 65 5f 74 6d 70 62 75 66 20 3d 20 31 3b 0a 0a 09 e_tmpbuf = 1;...
14860 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 ..break;...case
14870 43 41 43 4b 45 59 5f 49 44 5f 54 59 50 45 5f 43 CACKEY_ID_TYPE_C
14880 45 52 54 5f 4f 4e 4c 59 3a 0a 09 09 09 62 72 65 ERT_ONLY:....bre
14890 61 6b 3b 0a 09 7d 0a 0a 09 74 6d 70 62 75 66 5f ak;..}...tmpbuf_
148a0 73 20 3d 20 74 6d 70 62 75 66 3b 0a 09 6f 75 74 s = tmpbuf;..out
148b0 62 75 66 5f 73 20 3d 20 6f 75 74 62 75 66 3b 0a buf_s = outbuf;.
148c0 09 77 68 69 6c 65 20 28 74 6d 70 62 75 66 6c 65 .while (tmpbufle
148d0 6e 29 20 7b 0a 09 09 74 6d 70 6f 75 74 62 75 66 n) {...tmpoutbuf
148e0 6c 65 6e 20 3d 20 6f 75 74 62 75 66 6c 65 6e 3b len = outbuflen;
148f0 0a 0a 09 09 69 66 20 28 74 6d 70 62 75 66 6c 65 ....if (tmpbufle
14900 6e 20 3e 20 43 41 43 4b 45 59 5f 41 50 44 55 5f n > CACKEY_APDU_
14910 4d 54 55 29 20 7b 0a 09 09 09 62 79 74 65 73 5f MTU) {....bytes_
14920 74 6f 5f 73 65 6e 64 20 3d 20 43 41 43 4b 45 59 to_send = CACKEY
14930 5f 41 50 44 55 5f 4d 54 55 3b 0a 09 09 7d 20 65 _APDU_MTU;...} e
14940 6c 73 65 20 7b 0a 09 09 09 62 79 74 65 73 5f 74 lse {....bytes_t
14950 6f 5f 73 65 6e 64 20 3d 20 74 6d 70 62 75 66 6c o_send = tmpbufl
14960 65 6e 3b 0a 09 09 7d 0a 0a 09 09 73 65 6e 64 5f en;...}....send_
14970 72 65 74 20 3d 20 43 41 43 4b 45 59 5f 50 43 53 ret = CACKEY_PCS
14980 43 5f 45 5f 47 45 4e 45 52 49 43 3b 0a 09 09 73 C_E_GENERIC;...s
14990 77 69 74 63 68 20 28 69 64 5f 74 79 70 65 29 20 witch (id_type)
149a0 7b 0a 09 09 09 63 61 73 65 20 43 41 43 4b 45 59 {....case CACKEY
149b0 5f 49 44 5f 54 59 50 45 5f 43 41 43 3a 0a 09 09 _ID_TYPE_CAC:...
149c0 09 09 69 66 20 28 74 6d 70 62 75 66 6c 65 6e 20 ..if (tmpbuflen
149d0 3e 20 43 41 43 4b 45 59 5f 41 50 44 55 5f 4d 54 > CACKEY_APDU_MT
149e0 55 29 20 7b 0a 09 09 09 09 09 70 31 20 3d 20 30 U) {......p1 = 0
149f0 78 38 30 3b 0a 09 09 09 09 09 6c 65 20 3d 20 30 x80;......le = 0
14a00 78 30 30 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20 x00;.....} else
14a10 7b 0a 09 09 09 09 09 70 31 20 3d 20 30 78 30 30 {......p1 = 0x00
14a20 3b 0a 09 09 09 09 09 6c 65 20 3d 20 30 78 30 30 ;......le = 0x00
14a30 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 09 73 65 6e ;.....}......sen
14a40 64 5f 72 65 74 20 3d 20 63 61 63 6b 65 79 5f 73 d_ret = cackey_s
14a50 65 6e 64 5f 61 70 64 75 28 73 6c 6f 74 2c 20 47 end_apdu(slot, G
14a60 53 43 49 53 5f 43 4c 41 53 53 5f 47 4c 4f 42 41 SCIS_CLASS_GLOBA
14a70 4c 5f 50 4c 41 54 46 4f 52 4d 2c 20 47 53 43 49 L_PLATFORM, GSCI
14a80 53 5f 49 4e 53 54 52 5f 53 49 47 4e 44 45 43 52 S_INSTR_SIGNDECR
14a90 59 50 54 2c 20 70 31 2c 20 30 78 30 30 2c 20 62 YPT, p1, 0x00, b
14aa0 79 74 65 73 5f 74 6f 5f 73 65 6e 64 2c 20 74 6d ytes_to_send, tm
14ab0 70 62 75 66 2c 20 6c 65 2c 20 26 72 65 73 70 63 pbuf, le, &respc
14ac0 6f 64 65 2c 20 6f 75 74 62 75 66 2c 20 26 74 6d ode, outbuf, &tm
14ad0 70 6f 75 74 62 75 66 6c 65 6e 29 3b 0a 09 09 09 poutbuflen);....
14ae0 09 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 .break;....case
14af0 43 41 43 4b 45 59 5f 49 44 5f 54 59 50 45 5f 50 CACKEY_ID_TYPE_P
14b00 49 56 3a 0a 09 09 09 09 69 66 20 28 74 6d 70 62 IV:.....if (tmpb
14b10 75 66 6c 65 6e 20 3e 20 43 41 43 4b 45 59 5f 41 uflen > CACKEY_A
14b20 50 44 55 5f 4d 54 55 29 20 7b 0a 09 09 09 09 09 PDU_MTU) {......
14b30 63 6c 61 73 73 20 3d 20 30 78 31 30 3b 0a 09 09 class = 0x10;...
14b40 09 09 09 6c 65 20 3d 20 30 78 30 30 3b 0a 09 09 ...le = 0x00;...
14b50 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 ..} else {......
14b60 63 6c 61 73 73 20 3d 20 47 53 43 49 53 5f 43 4c class = GSCIS_CL
14b70 41 53 53 5f 49 53 4f 37 38 31 36 3b 0a 09 09 09 ASS_ISO7816;....
14b80 09 09 6c 65 20 3d 20 32 35 36 3b 0a 09 09 09 09 ..le = 256;.....
14b90 7d 0a 0a 09 09 09 09 73 65 6e 64 5f 72 65 74 20 }......send_ret
14ba0 3d 20 63 61 63 6b 65 79 5f 73 65 6e 64 5f 61 70 = cackey_send_ap
14bb0 64 75 28 73 6c 6f 74 2c 20 63 6c 61 73 73 2c 20 du(slot, class,
14bc0 4e 49 53 54 53 50 38 30 30 5f 37 33 5f 33 5f 49 NISTSP800_73_3_I
14bd0 4e 53 54 52 5f 47 45 4e 41 55 54 48 2c 20 4e 49 NSTR_GENAUTH, NI
14be0 53 54 53 50 38 30 30 5f 37 38 5f 33 5f 41 4c 47 STSP800_78_3_ALG
14bf0 4f 5f 52 53 41 32 30 34 38 2c 20 69 64 65 6e 74 O_RSA2048, ident
14c00 69 74 79 2d 3e 70 63 73 63 5f 69 64 65 6e 74 69 ity->pcsc_identi
14c10 74 79 2d 3e 63 61 72 64 2e 70 69 76 2e 6b 65 79 ty->card.piv.key
14c20 5f 69 64 2c 20 62 79 74 65 73 5f 74 6f 5f 73 65 _id, bytes_to_se
14c30 6e 64 2c 20 74 6d 70 62 75 66 2c 20 6c 65 2c 20 nd, tmpbuf, le,
14c40 26 72 65 73 70 63 6f 64 65 2c 20 6f 75 74 62 75 &respcode, outbu
14c50 66 2c 20 26 74 6d 70 6f 75 74 62 75 66 6c 65 6e f, &tmpoutbuflen
14c60 29 3b 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 );.....break;...
14c70 09 63 61 73 65 20 43 41 43 4b 45 59 5f 49 44 5f .case CACKEY_ID_
14c80 54 59 50 45 5f 43 45 52 54 5f 4f 4e 4c 59 3a 0a TYPE_CERT_ONLY:.
14c90 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 7d 0a 0a ....break;...}..
14ca0 09 09 69 66 20 28 73 65 6e 64 5f 72 65 74 20 21 ..if (send_ret !
14cb0 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f = CACKEY_PCSC_S_
14cc0 4f 4b 29 20 7b 0a 09 09 09 69 66 20 28 66 72 65 OK) {....if (fre
14cd0 65 5f 74 6d 70 62 75 66 29 20 7b 0a 09 09 09 09 e_tmpbuf) {.....
14ce0 69 66 20 28 74 6d 70 62 75 66 5f 73 29 20 7b 0a if (tmpbuf_s) {.
14cf0 09 09 09 09 09 66 72 65 65 28 74 6d 70 62 75 66 .....free(tmpbuf
14d00 5f 73 29 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 0a _s);.....}....}.
14d10 0a 09 09 09 2f 2a 20 45 6e 64 20 74 72 61 6e 73 ..../* End trans
14d20 61 63 74 69 6f 6e 20 2a 2f 0a 09 09 09 63 61 63 action */....cac
14d30 6b 65 79 5f 65 6e 64 5f 74 72 61 6e 73 61 63 74 key_end_transact
14d40 69 6f 6e 28 73 6c 6f 74 29 3b 0a 0a 09 09 09 69 ion(slot);.....i
14d50 66 20 28 73 65 6e 64 5f 72 65 74 20 3d 3d 20 43 f (send_ret == C
14d60 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 52 45 54 ACKEY_PCSC_E_RET
14d70 52 59 29 20 7b 0a 09 09 09 09 43 41 43 4b 45 59 RY) {.....CACKEY
14d80 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 41 _DEBUG_PRINTF("A
14d90 44 50 55 20 53 65 6e 64 69 6e 67 20 46 61 69 6c DPU Sending Fail
14da0 65 64 20 2d 2d 20 72 65 74 72 79 69 6e 67 2e 22 ed -- retrying."
14db0 29 3b 0a 0a 09 09 09 09 72 65 74 75 72 6e 28 63 );......return(c
14dc0 61 63 6b 65 79 5f 73 69 67 6e 64 65 63 72 79 70 ackey_signdecryp
14dd0 74 28 73 6c 6f 74 2c 20 69 64 65 6e 74 69 74 79 t(slot, identity
14de0 2c 20 62 75 66 2c 20 62 75 66 6c 65 6e 2c 20 6f , buf, buflen, o
14df0 75 74 62 75 66 2c 20 6f 75 74 62 75 66 6c 65 6e utbuf, outbuflen
14e00 2c 20 70 61 64 49 6e 70 75 74 2c 20 75 6e 70 61 , padInput, unpa
14e10 64 4f 75 74 70 75 74 29 29 3b 0a 09 09 09 7d 0a dOutput));....}.
14e20 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
14e30 5f 50 52 49 4e 54 46 28 22 41 44 50 55 20 53 65 _PRINTF("ADPU Se
14e40 6e 64 69 6e 67 20 46 61 69 6c 65 64 20 2d 2d 20 nding Failed --
14e50 72 65 74 75 72 6e 69 6e 67 20 69 6e 20 65 72 72 returning in err
14e60 6f 72 2e 22 29 3b 0a 0a 09 09 09 69 66 20 28 72 or.");.....if (r
14e70 65 73 70 63 6f 64 65 20 3d 3d 20 30 78 36 39 38 espcode == 0x698
14e80 32 20 7c 7c 20 72 65 73 70 63 6f 64 65 20 3d 3d 2 || respcode ==
14e90 20 30 78 36 65 30 30 20 7c 7c 20 72 65 73 70 63 0x6e00 || respc
14ea0 6f 64 65 20 3d 3d 20 30 78 36 64 30 30 29 20 7b ode == 0x6d00) {
14eb0 0a 09 09 09 09 69 66 20 28 72 65 73 70 63 6f 64 .....if (respcod
14ec0 65 20 3d 3d 20 30 78 36 65 30 30 29 20 7b 0a 09 e == 0x6e00) {..
14ed0 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
14ee0 5f 50 52 49 4e 54 46 28 22 47 6f 74 20 5c 22 57 _PRINTF("Got \"W
14ef0 52 4f 4e 47 20 43 4c 41 53 53 5c 22 2c 20 74 68 RONG CLASS\", th
14f00 69 73 20 6d 65 61 6e 73 20 77 65 20 61 72 65 20 is means we are
14f10 74 61 6c 6b 69 6e 67 20 74 6f 20 74 68 65 20 77 talking to the w
14f20 72 6f 6e 67 20 6f 62 6a 65 63 74 20 28 6c 69 6b rong object (lik
14f30 65 6c 79 20 62 65 63 61 75 73 65 20 74 68 65 20 ely because the
14f40 63 61 72 64 20 77 65 6e 74 20 61 77 61 79 29 20 card went away)
14f50 2d 2d 20 72 65 73 65 74 74 69 6e 67 22 29 3b 0a -- resetting");.
14f60 09 09 09 09 7d 20 65 6c 73 65 20 69 66 20 28 72 ....} else if (r
14f70 65 73 70 63 6f 64 65 20 3d 3d 20 30 78 36 64 30 espcode == 0x6d0
14f80 30 29 20 7b 0a 09 09 09 09 09 43 41 43 4b 45 59 0) {......CACKEY
14f90 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 47 _DEBUG_PRINTF("G
14fa0 6f 74 20 5c 22 49 4e 56 41 4c 49 44 20 49 4e 53 ot \"INVALID INS
14fb0 54 52 55 43 54 49 4f 4e 5c 22 2c 20 74 68 69 73 TRUCTION\", this
14fc0 20 6d 65 61 6e 73 20 77 65 20 61 72 65 20 74 61 means we are ta
14fd0 6c 6b 69 6e 67 20 74 6f 20 74 68 65 20 77 72 6f lking to the wro
14fe0 6e 67 20 6f 62 6a 65 63 74 20 28 6c 69 6b 65 6c ng object (likel
14ff0 79 20 62 65 63 61 75 73 65 20 74 68 65 20 63 61 y because the ca
15000 72 64 20 77 65 6e 74 20 61 77 61 79 29 20 2d 2d rd went away) --
15010 20 72 65 73 65 74 74 69 6e 67 22 29 3b 0a 09 09 resetting");...
15020 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 ..} else {......
15030 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
15040 4e 54 46 28 22 53 65 63 75 72 69 74 79 20 73 74 NTF("Security st
15050 61 74 75 73 20 6e 6f 74 20 73 61 74 69 73 69 66 atus not satisif
15060 69 65 64 20 28 72 65 73 70 63 6f 64 65 20 3d 20 ied (respcode =
15070 30 78 25 30 34 78 29 2e 20 20 52 65 74 75 72 6e 0x%04x). Return
15080 69 6e 67 20 4e 45 45 44 4c 4f 47 49 4e 22 2c 20 ing NEEDLOGIN",
15090 28 69 6e 74 29 20 72 65 73 70 63 6f 64 65 29 3b (int) respcode);
150a0 0a 09 09 09 09 7d 0a 0a 09 09 09 09 63 61 63 6b .....}......cack
150b0 65 79 5f 6d 61 72 6b 5f 73 6c 6f 74 5f 72 65 73 ey_mark_slot_res
150c0 65 74 28 73 6c 6f 74 29 3b 0a 0a 09 09 09 09 63 et(slot);......c
150d0 61 63 6b 65 79 5f 64 65 74 65 63 74 5f 61 6e 64 ackey_detect_and
150e0 5f 73 65 6c 65 63 74 5f 72 6f 6f 74 5f 61 70 70 _select_root_app
150f0 6c 65 74 28 73 6c 6f 74 2c 20 43 41 43 4b 45 59 let(slot, CACKEY
15100 5f 49 44 5f 54 59 50 45 5f 55 4e 4b 4e 4f 57 4e _ID_TYPE_UNKNOWN
15110 29 3b 0a 0a 09 09 09 09 73 6c 6f 74 2d 3e 74 6f );......slot->to
15120 6b 65 6e 5f 66 6c 61 67 73 20 3d 20 43 4b 46 5f ken_flags = CKF_
15130 4c 4f 47 49 4e 5f 52 45 51 55 49 52 45 44 3b 0a LOGIN_REQUIRED;.
15140 0a 09 09 09 09 72 65 74 75 72 6e 28 43 41 43 4b .....return(CACK
15150 45 59 5f 50 43 53 43 5f 45 5f 4e 45 45 44 4c 4f EY_PCSC_E_NEEDLO
15160 47 49 4e 29 3b 0a 09 09 09 7d 0a 0a 09 09 09 69 GIN);....}.....i
15170 66 20 28 73 65 6e 64 5f 72 65 74 20 3d 3d 20 43 f (send_ret == C
15180 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 54 4f 4b ACKEY_PCSC_E_TOK
15190 45 4e 41 42 53 45 4e 54 29 20 7b 0a 09 09 09 09 ENABSENT) {.....
151a0 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
151b0 4e 54 46 28 22 54 6f 6b 65 6e 20 61 62 73 65 6e NTF("Token absen
151c0 74 2e 20 20 52 65 74 75 72 6e 69 6e 67 20 54 4f t. Returning TO
151d0 4b 45 4e 41 42 53 45 4e 54 22 29 3b 0a 0a 09 09 KENABSENT");....
151e0 09 09 63 61 63 6b 65 79 5f 6d 61 72 6b 5f 73 6c ..cackey_mark_sl
151f0 6f 74 5f 72 65 73 65 74 28 73 6c 6f 74 29 3b 0a ot_reset(slot);.
15200 0a 09 09 09 09 72 65 74 75 72 6e 28 43 41 43 4b .....return(CACK
15210 45 59 5f 50 43 53 43 5f 45 5f 54 4f 4b 45 4e 41 EY_PCSC_E_TOKENA
15220 42 53 45 4e 54 29 3b 0a 09 09 09 7d 0a 0a 09 09 BSENT);....}....
15230 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
15240 49 4e 54 46 28 22 53 6f 6d 65 74 68 69 6e 67 20 INTF("Something
15250 77 65 6e 74 20 77 72 6f 6e 67 20 64 75 72 69 6e went wrong durin
15260 67 20 73 69 67 6e 69 6e 67 2c 20 72 65 73 65 74 g signing, reset
15270 74 69 6e 67 20 74 68 65 20 73 6c 6f 74 20 61 6e ting the slot an
15280 64 20 68 6f 70 69 6e 67 20 66 6f 72 20 74 68 65 d hoping for the
15290 20 62 65 73 74 2e 22 29 3b 0a 0a 09 09 09 63 61 best.");.....ca
152a0 63 6b 65 79 5f 70 63 73 63 5f 64 69 73 63 6f 6e ckey_pcsc_discon
152b0 6e 65 63 74 28 29 3b 0a 0a 09 09 09 63 61 63 6b nect();.....cack
152c0 65 79 5f 70 63 73 63 5f 63 6f 6e 6e 65 63 74 28 ey_pcsc_connect(
152d0 29 3b 0a 0a 09 09 09 63 61 63 6b 65 79 5f 64 65 );.....cackey_de
152e0 74 65 63 74 5f 61 6e 64 5f 73 65 6c 65 63 74 5f tect_and_select_
152f0 72 6f 6f 74 5f 61 70 70 6c 65 74 28 73 6c 6f 74 root_applet(slot
15300 2c 20 43 41 43 4b 45 59 5f 49 44 5f 54 59 50 45 , CACKEY_ID_TYPE
15310 5f 55 4e 4b 4e 4f 57 4e 29 3b 0a 0a 09 09 09 72 _UNKNOWN);.....r
15320 65 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 eturn(CACKEY_PCS
15330 43 5f 45 5f 47 45 4e 45 52 49 43 29 3b 0a 09 09 C_E_GENERIC);...
15340 7d 0a 0a 09 09 74 6d 70 62 75 66 20 2b 3d 20 62 }....tmpbuf += b
15350 79 74 65 73 5f 74 6f 5f 73 65 6e 64 3b 0a 09 09 ytes_to_send;...
15360 74 6d 70 62 75 66 6c 65 6e 20 2d 3d 20 62 79 74 tmpbuflen -= byt
15370 65 73 5f 74 6f 5f 73 65 6e 64 3b 0a 0a 09 09 6f es_to_send;....o
15380 75 74 62 75 66 20 2b 3d 20 74 6d 70 6f 75 74 62 utbuf += tmpoutb
15390 75 66 6c 65 6e 3b 0a 09 09 6f 75 74 62 75 66 6c uflen;...outbufl
153a0 65 6e 20 2d 3d 20 74 6d 70 6f 75 74 62 75 66 6c en -= tmpoutbufl
153b0 65 6e 3b 0a 09 09 72 65 74 76 61 6c 20 2b 3d 20 en;...retval +=
153c0 74 6d 70 6f 75 74 62 75 66 6c 65 6e 3b 0a 09 7d tmpoutbuflen;..}
153d0 0a 0a 09 69 66 20 28 66 72 65 65 5f 74 6d 70 62 ...if (free_tmpb
153e0 75 66 29 20 7b 0a 09 09 69 66 20 28 74 6d 70 62 uf) {...if (tmpb
153f0 75 66 5f 73 29 20 7b 0a 09 09 09 66 72 65 65 28 uf_s) {....free(
15400 74 6d 70 62 75 66 5f 73 29 3b 0a 09 09 7d 0a 09 tmpbuf_s);...}..
15410 7d 0a 0a 09 6f 75 74 62 75 66 20 3d 20 6f 75 74 }...outbuf = out
15420 62 75 66 5f 73 3b 0a 0a 09 2f 2a 20 45 6e 64 20 buf_s;.../* End
15430 74 72 61 6e 73 61 63 74 69 6f 6e 20 2a 2f 0a 09 transaction */..
15440 63 61 63 6b 65 79 5f 65 6e 64 5f 74 72 61 6e 73 cackey_end_trans
15450 61 63 74 69 6f 6e 28 73 6c 6f 74 29 3b 0a 0a 23 action(slot);..#
15460 69 66 64 65 66 20 43 41 43 4b 45 59 5f 50 41 52 ifdef CACKEY_PAR
15470 41 4e 4f 49 44 0a 23 20 20 69 66 64 65 66 20 5f ANOID.# ifdef _
15480 50 4f 53 49 58 5f 53 53 49 5a 45 5f 4d 41 58 0a POSIX_SSIZE_MAX.
15490 09 69 66 20 28 6f 75 74 62 75 66 6c 65 6e 20 3e .if (outbuflen >
154a0 20 5f 50 4f 53 49 58 5f 53 53 49 5a 45 5f 4d 41 _POSIX_SSIZE_MA
154b0 58 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 X) {...CACKEY_DE
154c0 42 55 47 5f 50 52 49 4e 54 46 28 22 4f 75 74 62 BUG_PRINTF("Outb
154d0 75 66 6c 65 6e 20 65 78 63 65 65 64 73 20 6d 61 uflen exceeds ma
154e0 78 69 6d 75 6d 20 76 61 6c 75 65 2c 20 72 65 74 ximum value, ret
154f0 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 6c 75 72 urning in failur
15500 65 2e 20 28 6d 61 78 20 3d 20 25 6c 69 2c 20 6f e. (max = %li, o
15510 75 74 62 75 66 6c 65 6e 20 3d 20 25 6c 75 29 22 utbuflen = %lu)"
15520 2c 20 28 6c 6f 6e 67 29 20 5f 50 4f 53 49 58 5f , (long) _POSIX_
15530 53 53 49 5a 45 5f 4d 41 58 2c 20 28 75 6e 73 69 SSIZE_MAX, (unsi
15540 67 6e 65 64 20 6c 6f 6e 67 29 20 6f 75 74 62 75 gned long) outbu
15550 66 6c 65 6e 29 3b 0a 0a 09 09 72 65 74 75 72 6e flen);....return
15560 28 2d 31 29 3b 0a 09 7d 0a 23 20 20 65 6e 64 69 (-1);..}.# endi
15570 66 0a 23 65 6e 64 69 66 0a 0a 09 2f 2a 20 57 65 f.#endif.../* We
15580 20 6d 75 73 74 20 72 65 6d 6f 76 65 20 74 68 65 must remove the
15590 20 22 37 43 22 20 74 61 67 20 74 6f 20 67 65 74 "7C" tag to get
155a0 20 74 6f 20 74 68 65 20 73 69 67 6e 61 74 75 72 to the signatur
155b0 65 20 2a 2f 0a 09 73 77 69 74 63 68 20 28 69 64 e */..switch (id
155c0 5f 74 79 70 65 29 20 7b 0a 09 09 63 61 73 65 20 _type) {...case
155d0 43 41 43 4b 45 59 5f 49 44 5f 54 59 50 45 5f 50 CACKEY_ID_TYPE_P
155e0 49 56 3a 0a 09 09 09 6f 75 74 62 75 66 5f 6c 65 IV:....outbuf_le
155f0 6e 20 3d 20 72 65 74 76 61 6c 3b 0a 09 09 09 6f n = retval;....o
15600 75 74 62 75 66 5f 70 20 3d 20 63 61 63 6b 65 79 utbuf_p = cackey
15610 5f 72 65 61 64 5f 62 65 72 74 6c 76 5f 74 61 67 _read_bertlv_tag
15620 28 6f 75 74 62 75 66 2c 20 26 6f 75 74 62 75 66 (outbuf, &outbuf
15630 5f 6c 65 6e 2c 20 30 78 37 43 2c 20 4e 55 4c 4c _len, 0x7C, NULL
15640 2c 20 20 26 6f 75 74 62 75 66 5f 6c 65 6e 29 3b , &outbuf_len);
15650 0a 09 09 09 69 66 20 28 6f 75 74 62 75 66 5f 70 ....if (outbuf_p
15660 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 09 == NULL) {.....
15670 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
15680 4e 54 46 28 22 52 65 73 70 6f 6e 73 65 20 66 72 NTF("Response fr
15690 6f 6d 20 50 49 56 20 66 6f 72 20 47 45 4e 45 52 om PIV for GENER
156a0 41 54 45 20 41 55 54 48 45 4e 54 49 43 41 54 49 ATE AUTHENTICATI
156b0 4f 4e 20 77 61 73 20 6e 6f 74 20 61 20 30 78 37 ON was not a 0x7
156c0 43 20 74 61 67 2c 20 72 65 74 75 72 6e 69 6e 67 C tag, returning
156d0 20 69 6e 20 66 61 69 6c 75 72 65 22 29 3b 0a 0a in failure");..
156e0 09 09 09 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a ....return(-1);.
156f0 09 09 09 7d 0a 0a 09 09 09 72 65 74 76 61 6c 20 ...}.....retval
15700 3d 20 6f 75 74 62 75 66 5f 6c 65 6e 3b 0a 0a 09 = outbuf_len;...
15710 09 09 6f 75 74 62 75 66 5f 6c 65 6e 20 3d 20 72 ..outbuf_len = r
15720 65 74 76 61 6c 3b 0a 09 09 09 6f 75 74 62 75 66 etval;....outbuf
15730 5f 70 20 3d 20 63 61 63 6b 65 79 5f 72 65 61 64 _p = cackey_read
15740 5f 62 65 72 74 6c 76 5f 74 61 67 28 6f 75 74 62 _bertlv_tag(outb
15750 75 66 2c 20 26 6f 75 74 62 75 66 5f 6c 65 6e 2c uf, &outbuf_len,
15760 20 30 78 38 32 2c 20 4e 55 4c 4c 2c 20 20 26 6f 0x82, NULL, &o
15770 75 74 62 75 66 5f 6c 65 6e 29 3b 0a 09 09 09 69 utbuf_len);....i
15780 66 20 28 6f 75 74 62 75 66 5f 70 20 3d 3d 20 4e f (outbuf_p == N
15790 55 4c 4c 29 20 7b 0a 09 09 09 09 43 41 43 4b 45 ULL) {.....CACKE
157a0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
157b0 52 65 73 70 6f 6e 73 65 20 66 72 6f 6d 20 50 49 Response from PI
157c0 56 20 66 6f 72 20 47 45 4e 45 52 41 54 45 20 41 V for GENERATE A
157d0 55 54 48 45 4e 54 49 43 41 54 49 4f 4e 20 77 61 UTHENTICATION wa
157e0 73 20 6e 6f 74 20 61 20 30 78 38 32 20 77 69 74 s not a 0x82 wit
157f0 68 69 6e 20 61 20 30 78 37 43 20 74 61 67 2c 20 hin a 0x7C tag,
15800 72 65 74 75 72 6e 69 6e 67 20 69 6e 20 66 61 69 returning in fai
15810 6c 75 72 65 22 29 3b 0a 0a 09 09 09 09 72 65 74 lure");......ret
15820 75 72 6e 28 2d 31 29 3b 0a 09 09 09 7d 0a 0a 09 urn(-1);....}...
15830 09 09 72 65 74 76 61 6c 20 3d 20 6f 75 74 62 75 ..retval = outbu
15840 66 5f 6c 65 6e 3b 0a 0a 09 09 09 62 72 65 61 6b f_len;.....break
15850 3b 0a 09 09 63 61 73 65 20 43 41 43 4b 45 59 5f ;...case CACKEY_
15860 49 44 5f 54 59 50 45 5f 43 41 43 3a 0a 09 09 63 ID_TYPE_CAC:...c
15870 61 73 65 20 43 41 43 4b 45 59 5f 49 44 5f 54 59 ase CACKEY_ID_TY
15880 50 45 5f 43 45 52 54 5f 4f 4e 4c 59 3a 0a 09 09 PE_CERT_ONLY:...
15890 09 62 72 65 61 6b 3b 0a 09 7d 0a 0a 09 2f 2a 20 .break;..}.../*
158a0 55 6e 70 61 64 20 72 65 70 6c 79 20 2a 2f 0a 09 Unpad reply */..
158b0 69 66 20 28 75 6e 70 61 64 4f 75 74 70 75 74 29 if (unpadOutput)
158c0 20 7b 0a 09 09 69 66 20 28 72 65 74 76 61 6c 20 {...if (retval
158d0 3c 20 33 29 20 7b 0a 09 09 09 43 41 43 4b 45 59 < 3) {....CACKEY
158e0 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 _DEBUG_PRINTF("R
158f0 65 70 6c 79 20 69 73 20 74 6f 6f 20 73 6d 61 6c eply is too smal
15900 6c 2c 20 77 65 20 61 72 65 20 6e 6f 74 20 61 62 l, we are not ab
15910 6c 65 20 74 6f 20 75 6e 70 61 64 20 2d 2d 20 70 le to unpad -- p
15920 61 73 73 69 6e 67 20 62 61 63 6b 20 61 6e 64 20 assing back and
15930 68 6f 70 69 6e 67 20 66 6f 72 20 74 68 65 20 62 hoping for the b
15940 65 73 74 21 22 29 3b 0a 0a 09 09 09 43 41 43 4b est!");.....CACK
15950 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
15960 22 52 65 74 75 72 6e 69 6e 67 20 69 6e 20 73 75 "Returning in su
15970 63 63 65 73 73 2c 20 72 65 74 76 61 6c 20 3d 20 ccess, retval =
15980 25 6c 69 20 28 62 79 74 65 73 29 22 2c 20 28 6c %li (bytes)", (l
15990 6f 6e 67 29 20 72 65 74 76 61 6c 29 3b 0a 09 09 ong) retval);...
159a0 09 72 65 74 75 72 6e 28 72 65 74 76 61 6c 29 3b .return(retval);
159b0 0a 09 09 7d 0a 0a 09 09 69 66 20 28 6f 75 74 62 ...}....if (outb
159c0 75 66 5b 30 5d 20 21 3d 20 30 78 30 30 29 20 7b uf[0] != 0x00) {
159d0 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
159e0 5f 50 52 49 4e 54 46 28 22 55 6e 72 65 63 6f 67 _PRINTF("Unrecog
159f0 6e 69 7a 65 64 20 70 61 64 64 69 6e 67 20 73 63 nized padding sc
15a00 68 65 6d 65 20 2d 2d 20 70 61 73 73 69 6e 67 20 heme -- passing
15a10 62 61 63 6b 20 61 6e 64 20 68 6f 70 69 6e 67 20 back and hoping
15a20 66 6f 72 20 74 68 65 20 62 65 73 74 21 22 29 3b for the best!");
15a30 0a 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 .....CACKEY_DEBU
15a40 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e G_PRINTF("Return
15a50 69 6e 67 20 69 6e 20 73 75 63 63 65 73 73 2c 20 ing in success,
15a60 72 65 74 76 61 6c 20 3d 20 25 6c 69 20 28 62 79 retval = %li (by
15a70 74 65 73 29 22 2c 20 28 6c 6f 6e 67 29 20 72 65 tes)", (long) re
15a80 74 76 61 6c 29 3b 0a 09 09 09 72 65 74 75 72 6e tval);....return
15a90 28 72 65 74 76 61 6c 29 3b 0a 09 09 7d 0a 0a 09 (retval);...}...
15aa0 09 62 6c 6f 63 6b 74 79 70 65 20 3d 20 6f 75 74 .blocktype = out
15ab0 62 75 66 5b 31 5d 3b 0a 09 09 75 6e 70 61 64 6f buf[1];...unpado
15ac0 66 66 73 65 74 20 3d 20 30 3b 0a 0a 09 09 73 77 ffset = 0;....sw
15ad0 69 74 63 68 20 28 62 6c 6f 63 6b 74 79 70 65 29 itch (blocktype)
15ae0 20 7b 0a 09 09 09 63 61 73 65 20 30 78 30 30 3a {....case 0x00:
15af0 0a 09 09 09 09 2f 2a 20 50 61 64 64 69 6e 67 20 ...../* Padding
15b00 53 63 68 65 6d 65 20 31 2c 20 74 68 65 20 66 69 Scheme 1, the fi
15b10 72 73 74 20 6e 6f 6e 2d 7a 65 72 6f 20 62 79 74 rst non-zero byt
15b20 65 20 69 73 20 74 68 65 20 73 74 61 72 74 20 6f e is the start o
15b30 66 20 64 61 74 61 20 2a 2f 0a 09 09 09 09 66 6f f data */.....fo
15b40 72 20 28 75 6e 70 61 64 6f 66 66 73 65 74 20 3d r (unpadoffset =
15b50 20 32 3b 20 75 6e 70 61 64 6f 66 66 73 65 74 20 2; unpadoffset
15b60 3c 20 72 65 74 76 61 6c 3b 20 75 6e 70 61 64 6f < retval; unpado
15b70 66 66 73 65 74 2b 2b 29 20 7b 0a 09 09 09 09 09 ffset++) {......
15b80 69 66 20 28 6f 75 74 62 75 66 5b 75 6e 70 61 64 if (outbuf[unpad
15b90 6f 66 66 73 65 74 5d 20 21 3d 20 30 78 30 30 29 offset] != 0x00)
15ba0 20 7b 0a 09 09 09 09 09 09 62 72 65 61 6b 3b 0a {.......break;.
15bb0 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 09 09 09 .....}.....}....
15bc0 09 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 .break;....case
15bd0 30 78 30 31 3a 0a 09 09 09 09 2f 2a 20 50 61 64 0x01:...../* Pad
15be0 64 69 6e 67 20 53 63 68 65 6d 65 20 32 2c 20 70 ding Scheme 2, p
15bf0 61 64 20 62 79 74 65 73 20 61 72 65 20 30 78 46 ad bytes are 0xF
15c00 46 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 30 78 F followed by 0x
15c10 30 30 20 2a 2f 0a 09 09 09 09 66 6f 72 20 28 75 00 */.....for (u
15c20 6e 70 61 64 6f 66 66 73 65 74 20 3d 20 32 3b 20 npadoffset = 2;
15c30 75 6e 70 61 64 6f 66 66 73 65 74 20 3c 20 72 65 unpadoffset < re
15c40 74 76 61 6c 3b 20 75 6e 70 61 64 6f 66 66 73 65 tval; unpadoffse
15c50 74 2b 2b 29 20 7b 0a 09 09 09 09 09 69 66 20 28 t++) {......if (
15c60 6f 75 74 62 75 66 5b 75 6e 70 61 64 6f 66 66 73 outbuf[unpadoffs
15c70 65 74 5d 20 21 3d 20 30 78 46 46 29 20 7b 0a 09 et] != 0xFF) {..
15c80 09 09 09 09 09 69 66 20 28 6f 75 74 62 75 66 5b .....if (outbuf[
15c90 75 6e 70 61 64 6f 66 66 73 65 74 5d 20 3d 3d 20 unpadoffset] ==
15ca0 30 78 30 30 29 20 7b 0a 09 09 09 09 09 09 09 75 0x00) {........u
15cb0 6e 70 61 64 6f 66 66 73 65 74 2b 2b 3b 0a 0a 09 npadoffset++;...
15cc0 09 09 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 ......break;....
15cd0 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 ...} else {.....
15ce0 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
15cf0 50 52 49 4e 54 46 28 22 49 6e 76 61 6c 69 64 20 PRINTF("Invalid
15d00 70 61 64 64 69 6e 67 20 64 61 74 61 20 66 6f 75 padding data fou
15d10 6e 64 2c 20 72 65 74 75 72 6e 69 6e 67 20 69 6e nd, returning in
15d20 20 66 61 69 6c 75 72 65 2c 20 73 68 6f 75 6c 64 failure, should
15d30 20 68 61 76 65 20 62 65 65 6e 20 30 78 30 30 20 have been 0x00
15d40 66 6f 75 6e 64 20 30 78 25 30 32 78 22 2c 20 28 found 0x%02x", (
15d50 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 20 6f 75 unsigned int) ou
15d60 74 62 75 66 5b 75 6e 70 61 64 6f 66 66 73 65 74 tbuf[unpadoffset
15d70 5d 29 3b 0a 0a 09 09 09 09 09 09 09 72 65 74 75 ]);.........retu
15d80 72 6e 28 2d 31 29 3b 0a 09 09 09 09 09 09 7d 0a rn(-1);.......}.
15d90 09 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 .....} else {...
15da0 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
15db0 5f 50 52 49 4e 54 46 28 22 49 6e 76 61 6c 69 64 _PRINTF("Invalid
15dc0 20 70 61 64 64 69 6e 67 20 64 61 74 61 20 66 6f padding data fo
15dd0 75 6e 64 2c 20 72 65 74 75 72 6e 69 6e 67 20 69 und, returning i
15de0 6e 20 66 61 69 6c 75 72 65 2c 20 73 68 6f 75 6c n failure, shoul
15df0 64 20 68 61 76 65 20 62 65 65 6e 20 30 78 46 46 d have been 0xFF
15e00 20 66 6f 75 6e 64 20 30 78 25 30 32 78 22 2c 20 found 0x%02x",
15e10 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 20 6f (unsigned int) o
15e20 75 74 62 75 66 5b 75 6e 70 61 64 6f 66 66 73 65 utbuf[unpadoffse
15e30 74 5d 29 3b 0a 0a 09 09 09 09 09 09 72 65 74 75 t]);........retu
15e40 72 6e 28 2d 31 29 3b 0a 09 09 09 09 09 7d 0a 09 rn(-1);......}..
15e50 09 09 09 7d 0a 09 09 09 09 62 72 65 61 6b 3b 0a ...}.....break;.
15e60 09 09 09 63 61 73 65 20 30 78 30 32 3a 0a 09 09 ...case 0x02:...
15e70 09 09 2f 2a 20 50 61 64 64 69 6e 67 20 53 63 68 ../* Padding Sch
15e80 65 6d 65 20 33 2c 20 70 61 64 20 62 79 74 65 73 eme 3, pad bytes
15e90 20 61 72 65 20 6e 6f 6e 2d 7a 65 72 6f 20 66 69 are non-zero fi
15ea0 72 73 74 20 7a 65 72 6f 20 62 79 74 65 20 66 6f rst zero byte fo
15eb0 75 6e 64 20 69 73 20 74 68 65 20 73 65 70 65 72 und is the seper
15ec0 61 74 6f 72 20 62 79 74 65 20 2a 2f 0a 09 09 09 ator byte */....
15ed0 09 66 6f 72 20 28 75 6e 70 61 64 6f 66 66 73 65 .for (unpadoffse
15ee0 74 20 3d 20 32 3b 20 75 6e 70 61 64 6f 66 66 73 t = 2; unpadoffs
15ef0 65 74 20 3c 20 72 65 74 76 61 6c 3b 20 75 6e 70 et < retval; unp
15f00 61 64 6f 66 66 73 65 74 2b 2b 29 20 7b 0a 09 09 adoffset++) {...
15f10 09 09 09 69 66 20 28 6f 75 74 62 75 66 5b 75 6e ...if (outbuf[un
15f20 70 61 64 6f 66 66 73 65 74 5d 20 3d 3d 20 30 78 padoffset] == 0x
15f30 30 30 29 20 7b 0a 09 09 09 09 09 09 75 6e 70 61 00) {.......unpa
15f40 64 6f 66 66 73 65 74 2b 2b 3b 0a 0a 09 09 09 09 doffset++;......
15f50 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 09 7d 0a ..break;......}.
15f60 09 09 09 09 7d 0a 09 09 09 09 62 72 65 61 6b 3b ....}.....break;
15f70 0a 09 09 7d 0a 0a 09 09 69 66 20 28 75 6e 70 61 ...}....if (unpa
15f80 64 6f 66 66 73 65 74 20 3e 20 72 65 74 76 61 6c doffset > retval
15f90 29 20 7b 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 ) {....CACKEY_DE
15fa0 42 55 47 5f 50 52 49 4e 54 46 28 22 4f 66 66 73 BUG_PRINTF("Offs
15fb0 65 74 20 67 72 65 61 74 65 72 20 74 68 61 6e 20 et greater than
15fc0 72 65 70 6c 79 20 73 69 7a 65 2c 20 61 62 6f 72 reply size, abor
15fd0 74 69 6e 67 2e 20 20 28 75 6e 70 61 64 6f 66 66 ting. (unpadoff
15fe0 73 65 74 20 3d 20 25 6c 75 2c 20 72 65 74 76 61 set = %lu, retva
15ff0 6c 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 l = %lu)", (unsi
16000 67 6e 65 64 20 6c 6f 6e 67 29 20 75 6e 70 61 64 gned long) unpad
16010 6f 66 66 73 65 74 2c 20 28 75 6e 73 69 67 6e 65 offset, (unsigne
16020 64 20 6c 6f 6e 67 29 20 72 65 74 76 61 6c 29 3b d long) retval);
16030 0a 0a 09 09 09 72 65 74 75 72 6e 28 2d 31 29 3b .....return(-1);
16040 0a 09 09 7d 0a 0a 09 09 43 41 43 4b 45 59 5f 44 ...}....CACKEY_D
16050 45 42 55 47 5f 50 52 49 4e 54 42 55 46 28 22 50 EBUG_PRINTBUF("P
16060 61 64 64 65 64 3a 22 2c 20 6f 75 74 62 75 66 2c added:", outbuf,
16070 20 72 65 74 76 61 6c 29 3b 0a 0a 09 09 72 65 74 retval);....ret
16080 76 61 6c 20 2d 3d 20 75 6e 70 61 64 6f 66 66 73 val -= unpadoffs
16090 65 74 3b 0a 09 09 6d 65 6d 6d 6f 76 65 28 6f 75 et;...memmove(ou
160a0 74 62 75 66 2c 20 6f 75 74 62 75 66 20 2b 20 75 tbuf, outbuf + u
160b0 6e 70 61 64 6f 66 66 73 65 74 2c 20 72 65 74 76 npadoffset, retv
160c0 61 6c 29 3b 0a 0a 09 09 43 41 43 4b 45 59 5f 44 al);....CACKEY_D
160d0 45 42 55 47 5f 50 52 49 4e 54 42 55 46 28 22 55 EBUG_PRINTBUF("U
160e0 6e 70 61 64 64 65 64 3a 22 2c 20 6f 75 74 62 75 npadded:", outbu
160f0 66 2c 20 72 65 74 76 61 6c 29 3b 0a 09 7d 0a 0a f, retval);..}..
16100 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
16110 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 RINTF("Returning
16120 20 69 6e 20 73 75 63 63 65 73 73 2c 20 72 65 74 in success, ret
16130 76 61 6c 20 3d 20 25 6c 69 20 28 62 79 74 65 73 val = %li (bytes
16140 29 22 2c 20 28 6c 6f 6e 67 29 20 72 65 74 76 61 )", (long) retva
16150 6c 29 3b 0a 0a 09 72 65 74 75 72 6e 28 72 65 74 l);...return(ret
16160 76 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 val);.}../*. * S
16170 59 4e 50 4f 53 49 53 0a 20 2a 20 20 20 20 20 2e YNPOSIS. * .
16180 2e 2e 0a 20 2a 0a 20 2a 20 41 52 47 55 4d 45 4e ... *. * ARGUMEN
16190 54 53 0a 20 2a 20 20 20 20 20 2e 2e 2e 0a 20 2a TS. * .... *
161a0 0a 20 2a 20 52 45 54 55 52 4e 20 56 41 4c 55 45 . * RETURN VALUE
161b0 0a 20 2a 20 20 20 20 20 2e 2e 2e 0a 20 2a 0a 20 . * .... *.
161c0 2a 20 4e 4f 54 45 53 0a 20 2a 20 20 20 20 20 2e * NOTES. * .
161d0 2e 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 ... *. */.static
161e0 20 63 61 63 6b 65 79 5f 72 65 74 20 63 61 63 6b cackey_ret cack
161f0 65 79 5f 74 6f 6b 65 6e 5f 70 72 65 73 65 6e 74 ey_token_present
16200 28 73 74 72 75 63 74 20 63 61 63 6b 65 79 5f 73 (struct cackey_s
16210 6c 6f 74 20 2a 73 6c 6f 74 29 20 7b 0a 09 63 61 lot *slot) {..ca
16220 63 6b 65 79 5f 72 65 74 20 70 63 73 63 5f 63 6f ckey_ret pcsc_co
16230 6e 6e 65 63 74 5f 72 65 74 3b 0a 09 44 57 4f 52 nnect_ret;..DWOR
16240 44 20 72 65 61 64 65 72 5f 6c 65 6e 20 3d 20 30 D reader_len = 0
16250 2c 20 73 74 61 74 65 20 3d 20 30 2c 20 70 72 6f , state = 0, pro
16260 74 6f 63 6f 6c 20 3d 20 30 2c 20 61 74 72 5f 6c tocol = 0, atr_l
16270 65 6e 3b 0a 09 42 59 54 45 20 61 74 72 5b 4d 41 en;..BYTE atr[MA
16280 58 5f 41 54 52 5f 53 49 5a 45 5d 3b 0a 09 4c 4f X_ATR_SIZE];..LO
16290 4e 47 20 73 74 61 74 75 73 5f 72 65 74 2c 20 73 NG status_ret, s
162a0 63 61 72 64 5f 72 65 63 6f 6e 6e 5f 72 65 74 3b card_reconn_ret;
162b0 0a 09 4c 50 53 54 52 20 2a 72 65 61 64 65 72 5f ..LPSTR *reader_
162c0 6e 61 6d 65 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 name;...CACKEY_D
162d0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 6c EBUG_PRINTF("Cal
162e0 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 28 73 6c led.");...if (sl
162f0 6f 74 2d 3e 69 6e 74 65 72 6e 61 6c 29 20 7b 0a ot->internal) {.
16300 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
16310 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 RINTF("Returning
16320 20 74 6f 6b 65 6e 20 70 72 65 73 65 6e 74 20 28 token present (
16330 69 6e 74 65 72 6e 61 6c 20 74 6f 6b 65 6e 29 22 internal token)"
16340 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 41 43 );....return(CAC
16350 4b 45 59 5f 50 43 53 43 5f 53 5f 54 4f 4b 45 4e KEY_PCSC_S_TOKEN
16360 50 52 45 53 45 4e 54 29 3b 0a 09 7d 0a 0a 09 70 PRESENT);..}...p
16370 63 73 63 5f 63 6f 6e 6e 65 63 74 5f 72 65 74 20 csc_connect_ret
16380 3d 20 63 61 63 6b 65 79 5f 63 6f 6e 6e 65 63 74 = cackey_connect
16390 5f 63 61 72 64 28 73 6c 6f 74 29 3b 0a 09 69 66 _card(slot);..if
163a0 20 28 70 63 73 63 5f 63 6f 6e 6e 65 63 74 5f 72 (pcsc_connect_r
163b0 65 74 20 21 3d 20 43 41 43 4b 45 59 5f 50 43 53 et != CACKEY_PCS
163c0 43 5f 53 5f 4f 4b 29 20 7b 0a 09 09 43 41 43 4b C_S_OK) {...CACK
163d0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
163e0 22 55 6e 61 62 6c 65 20 74 6f 20 63 6f 6e 6e 65 "Unable to conne
163f0 63 74 20 74 6f 20 63 61 72 64 2c 20 72 65 74 75 ct to card, retu
16400 72 6e 69 6e 67 20 74 6f 6b 65 6e 20 61 62 73 65 rning token abse
16410 6e 74 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 nt");....return(
16420 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 54 4f CACKEY_PCSC_E_TO
16430 4b 45 4e 41 42 53 45 4e 54 29 3b 0a 09 7d 0a 0a KENABSENT);..}..
16440 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
16450 49 4e 54 46 28 22 43 61 6c 6c 69 6e 67 20 53 43 INTF("Calling SC
16460 61 72 64 53 74 61 74 75 73 28 29 20 74 6f 20 64 ardStatus() to d
16470 65 74 65 72 6d 69 6e 65 20 63 61 72 64 20 73 74 etermine card st
16480 61 74 75 73 22 29 3b 0a 0a 09 61 74 72 5f 6c 65 atus");...atr_le
16490 6e 20 3d 20 73 69 7a 65 6f 66 28 61 74 72 29 3b n = sizeof(atr);
164a0 0a 09 73 74 61 74 75 73 5f 72 65 74 20 3d 20 53 ..status_ret = S
164b0 43 61 72 64 53 74 61 74 75 73 28 73 6c 6f 74 2d CardStatus(slot-
164c0 3e 70 63 73 63 5f 63 61 72 64 2c 20 4e 55 4c 4c >pcsc_card, NULL
164d0 2c 20 26 72 65 61 64 65 72 5f 6c 65 6e 2c 20 26 , &reader_len, &
164e0 73 74 61 74 65 2c 20 26 70 72 6f 74 6f 63 6f 6c state, &protocol
164f0 2c 20 61 74 72 2c 20 26 61 74 72 5f 6c 65 6e 29 , atr, &atr_len)
16500 3b 0a 20 0a 09 69 66 20 28 73 74 61 74 75 73 5f ;. ..if (status_
16510 72 65 74 20 3d 3d 20 53 43 41 52 44 5f 45 5f 49 ret == SCARD_E_I
16520 4e 53 55 46 46 49 43 49 45 4e 54 5f 42 55 46 46 NSUFFICIENT_BUFF
16530 45 52 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ER) {...CACKEY_D
16540 45 42 55 47 5f 50 52 49 4e 54 46 28 22 53 63 61 EBUG_PRINTF("Sca
16550 72 64 53 74 61 74 75 73 28 29 20 72 65 74 75 72 rdStatus() retur
16560 6e 65 64 20 53 43 41 52 44 5f 45 5f 49 4e 53 55 ned SCARD_E_INSU
16570 46 46 49 43 49 45 4e 54 5f 42 55 46 46 45 52 2c FFICIENT_BUFFER,
16580 20 61 73 73 75 6d 69 6e 67 20 74 68 69 73 20 69 assuming this i
16590 73 20 61 20 62 75 67 20 28 65 2e 67 2e 2c 20 47 s a bug (e.g., G
165a0 6f 6f 67 6c 65 20 50 43 53 43 29 20 69 6d 70 6c oogle PCSC) impl
165b0 65 6d 65 6e 74 61 74 69 6f 6e 20 61 6e 64 20 72 ementation and r
165c0 65 74 72 79 69 6e 67 22 29 3b 0a 0a 09 09 61 74 etrying");....at
165d0 72 5f 6c 65 6e 20 3d 20 73 69 7a 65 6f 66 28 61 r_len = sizeof(a
165e0 74 72 29 3b 0a 0a 09 09 72 65 61 64 65 72 5f 6c tr);....reader_l
165f0 65 6e 20 3d 20 33 32 37 36 38 3b 0a 09 09 72 65 en = 32768;...re
16600 61 64 65 72 5f 6e 61 6d 65 20 3d 20 6d 61 6c 6c ader_name = mall
16610 6f 63 28 72 65 61 64 65 72 5f 6c 65 6e 29 3b 0a oc(reader_len);.
16620 0a 09 09 73 74 61 74 75 73 5f 72 65 74 20 3d 20 ...status_ret =
16630 53 43 61 72 64 53 74 61 74 75 73 28 73 6c 6f 74 SCardStatus(slot
16640 2d 3e 70 63 73 63 5f 63 61 72 64 2c 20 72 65 61 ->pcsc_card, rea
16650 64 65 72 5f 6e 61 6d 65 2c 20 26 72 65 61 64 65 der_name, &reade
16660 72 5f 6c 65 6e 2c 20 26 73 74 61 74 65 2c 20 26 r_len, &state, &
16670 70 72 6f 74 6f 63 6f 6c 2c 20 61 74 72 2c 20 26 protocol, atr, &
16680 61 74 72 5f 6c 65 6e 29 3b 0a 0a 09 09 66 72 65 atr_len);....fre
16690 65 28 72 65 61 64 65 72 5f 6e 61 6d 65 29 3b 0a e(reader_name);.
166a0 09 7d 0a 0a 09 69 66 20 28 73 74 61 74 75 73 5f .}...if (status_
166b0 72 65 74 20 3d 3d 20 53 43 41 52 44 5f 45 5f 49 ret == SCARD_E_I
166c0 4e 56 41 4c 49 44 5f 48 41 4e 44 4c 45 29 20 7b NVALID_HANDLE) {
166d0 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
166e0 50 52 49 4e 54 46 28 22 53 43 61 72 64 53 74 61 PRINTF("SCardSta
166f0 74 75 73 28 29 20 72 65 74 75 72 6e 65 64 20 53 tus() returned S
16700 43 41 52 44 5f 45 5f 49 4e 56 41 4c 49 44 5f 48 CARD_E_INVALID_H
16710 41 4e 44 4c 45 2c 20 6d 61 72 6b 69 6e 67 20 61 ANDLE, marking a
16720 73 20 6e 6f 74 20 61 6c 72 65 61 64 79 20 63 6f s not already co
16730 6e 6e 65 63 74 65 64 20 61 6e 64 20 74 72 79 69 nnected and tryi
16740 6e 67 20 61 67 61 69 6e 22 29 3b 0a 09 09 63 61 ng again");...ca
16750 63 6b 65 79 5f 6d 61 72 6b 5f 73 6c 6f 74 5f 72 ckey_mark_slot_r
16760 65 73 65 74 28 73 6c 6f 74 29 3b 0a 0a 09 09 70 eset(slot);....p
16770 63 73 63 5f 63 6f 6e 6e 65 63 74 5f 72 65 74 20 csc_connect_ret
16780 3d 20 63 61 63 6b 65 79 5f 63 6f 6e 6e 65 63 74 = cackey_connect
16790 5f 63 61 72 64 28 73 6c 6f 74 29 3b 0a 09 09 69 _card(slot);...i
167a0 66 20 28 70 63 73 63 5f 63 6f 6e 6e 65 63 74 5f f (pcsc_connect_
167b0 72 65 74 20 21 3d 20 43 41 43 4b 45 59 5f 50 43 ret != CACKEY_PC
167c0 53 43 5f 53 5f 4f 4b 29 20 7b 0a 09 09 09 43 41 SC_S_OK) {....CA
167d0 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
167e0 46 28 22 55 6e 61 62 6c 65 20 74 6f 20 63 6f 6e F("Unable to con
167f0 6e 65 63 74 20 74 6f 20 63 61 72 64 2c 20 72 65 nect to card, re
16800 74 75 72 6e 69 6e 67 20 74 6f 6b 65 6e 20 61 62 turning token ab
16810 73 65 6e 74 22 29 3b 0a 0a 09 09 09 72 65 74 75 sent");.....retu
16820 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 rn(CACKEY_PCSC_E
16830 5f 54 4f 4b 45 4e 41 42 53 45 4e 54 29 3b 0a 09 _TOKENABSENT);..
16840 09 7d 0a 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 .}....CACKEY_DEB
16850 55 47 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c 69 UG_PRINTF("Calli
16860 6e 67 20 53 43 61 72 64 53 74 61 74 75 73 28 29 ng SCardStatus()
16870 20 61 67 61 69 6e 22 29 3b 0a 0a 09 09 61 74 72 again");....atr
16880 5f 6c 65 6e 20 3d 20 73 69 7a 65 6f 66 28 61 74 _len = sizeof(at
16890 72 29 3b 0a 09 09 73 74 61 74 75 73 5f 72 65 74 r);...status_ret
168a0 20 3d 20 53 43 61 72 64 53 74 61 74 75 73 28 73 = SCardStatus(s
168b0 6c 6f 74 2d 3e 70 63 73 63 5f 63 61 72 64 2c 20 lot->pcsc_card,
168c0 4e 55 4c 4c 2c 20 26 72 65 61 64 65 72 5f 6c 65 NULL, &reader_le
168d0 6e 2c 20 26 73 74 61 74 65 2c 20 26 70 72 6f 74 n, &state, &prot
168e0 6f 63 6f 6c 2c 20 61 74 72 2c 20 26 61 74 72 5f ocol, atr, &atr_
168f0 6c 65 6e 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 73 len);..}...if (s
16900 74 61 74 75 73 5f 72 65 74 20 21 3d 20 53 43 41 tatus_ret != SCA
16910 52 44 5f 53 5f 53 55 43 43 45 53 53 29 20 7b 0a RD_S_SUCCESS) {.
16920 09 09 63 61 63 6b 65 79 5f 6d 61 72 6b 5f 73 6c ..cackey_mark_sl
16930 6f 74 5f 72 65 73 65 74 28 73 6c 6f 74 29 3b 0a ot_reset(slot);.
16940 0a 09 09 69 66 20 28 73 74 61 74 75 73 5f 72 65 ...if (status_re
16950 74 20 3d 3d 20 53 43 41 52 44 5f 57 5f 52 45 53 t == SCARD_W_RES
16960 45 54 5f 43 41 52 44 29 20 7b 0a 09 09 09 43 41 ET_CARD) {....CA
16970 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
16980 46 28 22 52 65 73 65 74 20 72 65 71 75 69 72 65 F("Reset require
16990 64 2c 20 70 6c 65 61 73 65 20 68 6f 6c 64 2e 2e d, please hold..
169a0 2e 22 29 3b 0a 0a 09 09 09 73 63 61 72 64 5f 72 .");.....scard_r
169b0 65 63 6f 6e 6e 5f 72 65 74 20 3d 20 63 61 63 6b econn_ret = cack
169c0 65 79 5f 72 65 63 6f 6e 6e 65 63 74 5f 63 61 72 ey_reconnect_car
169d0 64 28 73 6c 6f 74 2c 20 53 43 41 52 44 5f 50 52 d(slot, SCARD_PR
169e0 4f 54 4f 43 4f 4c 5f 54 30 20 7c 20 53 43 41 52 OTOCOL_T0 | SCAR
169f0 44 5f 50 52 4f 54 4f 43 4f 4c 5f 54 31 29 3b 0a D_PROTOCOL_T1);.
16a00 09 09 09 69 66 20 28 73 63 61 72 64 5f 72 65 63 ...if (scard_rec
16a10 6f 6e 6e 5f 72 65 74 20 3d 3d 20 53 43 41 52 44 onn_ret == SCARD
16a20 5f 53 5f 53 55 43 43 45 53 53 29 20 7b 0a 09 09 _S_SUCCESS) {...
16a30 09 09 2f 2a 20 52 65 2d 65 73 74 61 62 6c 69 73 ../* Re-establis
16a40 68 20 74 72 61 6e 73 61 63 74 69 6f 6e 2c 20 69 h transaction, i
16a50 66 20 69 74 20 77 61 73 20 70 72 65 73 65 6e 74 f it was present
16a60 20 2a 2f 0a 09 09 09 09 69 66 20 28 73 6c 6f 74 */.....if (slot
16a70 2d 3e 74 72 61 6e 73 61 63 74 69 6f 6e 5f 64 65 ->transaction_de
16a80 70 74 68 20 3e 20 30 29 20 7b 0a 09 09 09 09 09 pth > 0) {......
16a90 73 6c 6f 74 2d 3e 74 72 61 6e 73 61 63 74 69 6f slot->transactio
16aa0 6e 5f 64 65 70 74 68 2d 2d 3b 0a 09 09 09 09 09 n_depth--;......
16ab0 73 6c 6f 74 2d 3e 74 72 61 6e 73 61 63 74 69 6f slot->transactio
16ac0 6e 5f 6e 65 65 64 5f 68 77 5f 6c 6f 63 6b 20 3d n_need_hw_lock =
16ad0 20 31 3b 0a 09 09 09 09 09 63 61 63 6b 65 79 5f 1;......cackey_
16ae0 62 65 67 69 6e 5f 74 72 61 6e 73 61 63 74 69 6f begin_transactio
16af0 6e 28 73 6c 6f 74 29 3b 0a 09 09 09 09 7d 0a 0a n(slot);.....}..
16b00 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
16b10 5f 50 52 49 4e 54 46 28 22 52 65 73 65 74 20 73 _PRINTF("Reset s
16b20 75 63 63 65 73 73 66 75 6c 2c 20 72 65 71 75 65 uccessful, reque
16b30 72 79 69 6e 67 22 29 3b 0a 09 09 09 09 73 74 61 rying");.....sta
16b40 74 75 73 5f 72 65 74 20 3d 20 53 43 61 72 64 53 tus_ret = SCardS
16b50 74 61 74 75 73 28 73 6c 6f 74 2d 3e 70 63 73 63 tatus(slot->pcsc
16b60 5f 63 61 72 64 2c 20 4e 55 4c 4c 2c 20 26 72 65 _card, NULL, &re
16b70 61 64 65 72 5f 6c 65 6e 2c 20 26 73 74 61 74 65 ader_len, &state
16b80 2c 20 26 70 72 6f 74 6f 63 6f 6c 2c 20 61 74 72 , &protocol, atr
16b90 2c 20 26 61 74 72 5f 6c 65 6e 29 3b 0a 09 09 09 , &atr_len);....
16ba0 09 69 66 20 28 73 74 61 74 75 73 5f 72 65 74 20 .if (status_ret
16bb0 21 3d 20 53 43 41 52 44 5f 53 5f 53 55 43 43 45 != SCARD_S_SUCCE
16bc0 53 53 29 20 7b 0a 09 09 09 09 09 43 41 43 4b 45 SS) {......CACKE
16bd0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
16be0 53 74 69 6c 6c 20 75 6e 61 62 6c 65 20 74 6f 20 Still unable to
16bf0 71 75 65 72 79 20 63 61 72 64 20 73 74 61 74 75 query card statu
16c00 73 2c 20 72 65 74 75 72 6e 69 6e 67 20 74 6f 6b s, returning tok
16c10 65 6e 20 61 62 73 65 6e 74 2e 20 20 53 43 61 72 en absent. SCar
16c20 64 53 74 61 74 75 73 28 29 20 3d 20 25 73 22 2c dStatus() = %s",
16c30 20 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 46 55 CACKEY_DEBUG_FU
16c40 4e 43 5f 53 43 41 52 44 45 52 52 5f 54 4f 5f 53 NC_SCARDERR_TO_S
16c50 54 52 28 73 74 61 74 75 73 5f 72 65 74 29 29 3b TR(status_ret));
16c60 0a 0a 09 09 09 09 09 72 65 74 75 72 6e 28 43 41 .......return(CA
16c70 43 4b 45 59 5f 50 43 53 43 5f 45 5f 54 4f 4b 45 CKEY_PCSC_E_TOKE
16c80 4e 41 42 53 45 4e 54 29 3b 0a 09 09 09 09 7d 0a NABSENT);.....}.
16c90 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 ...} else {.....
16ca0 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
16cb0 4e 54 46 28 22 55 6e 61 62 6c 65 20 74 6f 20 72 NTF("Unable to r
16cc0 65 63 6f 6e 6e 65 63 74 20 74 6f 20 63 61 72 64 econnect to card
16cd0 2c 20 72 65 74 75 72 6e 69 6e 67 20 74 6f 6b 65 , returning toke
16ce0 6e 20 61 62 73 65 6e 74 2e 20 20 53 43 61 72 64 n absent. SCard
16cf0 52 65 63 6f 6e 6e 65 63 74 28 29 20 3d 20 25 73 Reconnect() = %s
16d00 22 2c 20 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ", CACKEY_DEBUG_
16d10 46 55 4e 43 5f 53 43 41 52 44 45 52 52 5f 54 4f FUNC_SCARDERR_TO
16d20 5f 53 54 52 28 73 63 61 72 64 5f 72 65 63 6f 6e _STR(scard_recon
16d30 6e 5f 72 65 74 29 29 3b 0a 0a 09 09 09 09 72 65 n_ret));......re
16d40 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 turn(CACKEY_PCSC
16d50 5f 45 5f 54 4f 4b 45 4e 41 42 53 45 4e 54 29 3b _E_TOKENABSENT);
16d60 0a 09 09 09 7d 0a 09 09 7d 20 65 6c 73 65 20 7b ....}...} else {
16d70 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
16d80 5f 50 52 49 4e 54 46 28 22 55 6e 61 62 6c 65 20 _PRINTF("Unable
16d90 74 6f 20 71 75 65 72 79 20 63 61 72 64 20 73 74 to query card st
16da0 61 74 75 73 2c 20 72 65 74 75 72 6e 69 6e 67 20 atus, returning
16db0 74 6f 6b 65 6e 20 61 62 73 65 6e 74 2e 20 20 53 token absent. S
16dc0 43 61 72 64 53 74 61 74 75 73 28 29 20 3d 20 25 CardStatus() = %
16dd0 73 22 2c 20 43 41 43 4b 45 59 5f 44 45 42 55 47 s", CACKEY_DEBUG
16de0 5f 46 55 4e 43 5f 53 43 41 52 44 45 52 52 5f 54 _FUNC_SCARDERR_T
16df0 4f 5f 53 54 52 28 73 74 61 74 75 73 5f 72 65 74 O_STR(status_ret
16e00 29 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e 28 43 ));.....return(C
16e10 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 54 4f 4b ACKEY_PCSC_E_TOK
16e20 45 4e 41 42 53 45 4e 54 29 3b 0a 09 09 7d 0a 09 ENABSENT);...}..
16e30 7d 0a 0a 09 69 66 20 28 28 73 74 61 74 65 20 26 }...if ((state &
16e40 20 53 43 41 52 44 5f 41 42 53 45 4e 54 29 20 3d SCARD_ABSENT) =
16e50 3d 20 53 43 41 52 44 5f 41 42 53 45 4e 54 29 20 = SCARD_ABSENT)
16e60 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
16e70 5f 50 52 49 4e 54 46 28 22 43 61 72 64 20 69 73 _PRINTF("Card is
16e80 20 61 62 73 65 6e 74 2c 20 72 65 74 75 72 6e 69 absent, returni
16e90 6e 67 20 74 6f 6b 65 6e 20 61 62 73 65 6e 74 22 ng token absent"
16ea0 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 41 43 );....return(CAC
16eb0 4b 45 59 5f 50 43 53 43 5f 45 5f 54 4f 4b 45 4e KEY_PCSC_E_TOKEN
16ec0 41 42 53 45 4e 54 29 3b 0a 09 7d 0a 0a 09 43 41 ABSENT);..}...CA
16ed0 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
16ee0 46 28 22 52 65 74 75 72 6e 69 6e 67 20 74 6f 6b F("Returning tok
16ef0 65 6e 20 70 72 65 73 65 6e 74 2e 22 29 3b 0a 0a en present.");..
16f00 09 72 65 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 .return(CACKEY_P
16f10 43 53 43 5f 53 5f 54 4f 4b 45 4e 50 52 45 53 45 CSC_S_TOKENPRESE
16f20 4e 54 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 59 NT);.}../*. * SY
16f30 4e 50 4f 53 49 53 0a 20 2a 20 20 20 20 20 2e 2e NPOSIS. * ..
16f40 2e 0a 20 2a 0a 20 2a 20 41 52 47 55 4d 45 4e 54 .. *. * ARGUMENT
16f50 53 0a 20 2a 20 20 20 20 20 2e 2e 2e 0a 20 2a 0a S. * .... *.
16f60 20 2a 20 52 45 54 55 52 4e 20 56 41 4c 55 45 0a * RETURN VALUE.
16f70 20 2a 20 20 20 20 20 2e 2e 2e 0a 20 2a 0a 20 2a * .... *. *
16f80 20 4e 4f 54 45 53 0a 20 2a 20 20 20 20 20 2e 2e NOTES. * ..
16f90 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 .. *. */.static
16fa0 63 61 63 6b 65 79 5f 72 65 74 20 63 61 63 6b 65 cackey_ret cacke
16fb0 79 5f 73 65 74 5f 70 69 6e 28 73 74 72 75 63 74 y_set_pin(struct
16fc0 20 63 61 63 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c cackey_slot *sl
16fd0 6f 74 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 ot, unsigned cha
16fe0 72 20 2a 6f 6c 64 5f 70 69 6e 2c 20 75 6e 73 69 r *old_pin, unsi
16ff0 67 6e 65 64 20 6c 6f 6e 67 20 6f 6c 64 5f 70 69 gned long old_pi
17000 6e 5f 6c 65 6e 2c 20 75 6e 73 69 67 6e 65 64 20 n_len, unsigned
17010 63 68 61 72 20 2a 70 69 6e 2c 20 75 6e 73 69 67 char *pin, unsig
17020 6e 65 64 20 6c 6f 6e 67 20 70 69 6e 5f 6c 65 6e ned long pin_len
17030 29 20 7b 0a 09 73 74 72 75 63 74 20 63 61 63 6b ) {..struct cack
17040 65 79 5f 70 63 73 63 5f 69 64 65 6e 74 69 74 79 ey_pcsc_identity
17050 20 2a 70 63 73 63 5f 69 64 65 6e 74 69 74 69 65 *pcsc_identitie
17060 73 3b 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 s;..unsigned cha
17070 72 20 63 61 63 5f 70 69 6e 5b 38 5d 20 3d 20 7b r cac_pin[8] = {
17080 30 78 46 46 2c 20 30 78 46 46 2c 20 30 78 46 46 0xFF, 0xFF, 0xFF
17090 2c 20 30 78 46 46 2c 20 30 78 46 46 2c 20 30 78 , 0xFF, 0xFF, 0x
170a0 46 46 2c 20 30 78 46 46 2c 20 30 78 46 46 7d 3b FF, 0xFF, 0xFF};
170b0 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ..unsigned char
170c0 6f 6c 64 5f 63 61 63 5f 70 69 6e 5b 38 5d 20 3d old_cac_pin[8] =
170d0 20 7b 30 78 46 46 2c 20 30 78 46 46 2c 20 30 78 {0xFF, 0xFF, 0x
170e0 46 46 2c 20 30 78 46 46 2c 20 30 78 46 46 2c 20 FF, 0xFF, 0xFF,
170f0 30 78 46 46 2c 20 30 78 46 46 2c 20 30 78 46 46 0xFF, 0xFF, 0xFF
17100 7d 3b 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 };..unsigned cha
17110 72 20 70 69 6e 5f 75 70 64 61 74 65 5b 73 69 7a r pin_update[siz
17120 65 6f 66 28 63 61 63 5f 70 69 6e 29 20 2b 20 73 eof(cac_pin) + s
17130 69 7a 65 6f 66 28 6f 6c 64 5f 63 61 63 5f 70 69 izeof(old_cac_pi
17140 6e 29 5d 3b 0a 09 75 6e 73 69 67 6e 65 64 20 6c n)];..unsigned l
17150 6f 6e 67 20 6e 75 6d 5f 63 65 72 74 73 3b 0a 09 ong num_certs;..
17160 75 69 6e 74 31 36 5f 74 20 72 65 73 70 6f 6e 73 uint16_t respons
17170 65 5f 63 6f 64 65 3b 0a 09 69 6e 74 20 74 72 69 e_code;..int tri
17180 65 73 5f 72 65 6d 61 69 6e 69 6e 67 3b 0a 09 69 es_remaining;..i
17190 6e 74 20 73 65 6e 64 5f 72 65 74 3b 0a 09 69 6e nt send_ret;..in
171a0 74 20 6b 65 79 5f 72 65 66 65 72 65 6e 63 65 20 t key_reference
171b0 3d 20 30 78 30 30 3b 0a 0a 09 2f 2a 20 41 70 70 = 0x00;.../* App
171c0 61 72 65 6e 74 6c 79 2c 20 43 41 43 20 50 49 4e arently, CAC PIN
171d0 73 20 61 72 65 20 2a 45 58 41 43 54 4c 59 2a 20 s are *EXACTLY*
171e0 38 20 62 79 74 65 73 20 6c 6f 6e 67 20 2d 2d 20 8 bytes long --
171f0 70 61 64 20 77 69 74 68 20 30 78 46 46 20 69 66 pad with 0xFF if
17200 20 74 6f 6f 20 73 68 6f 72 74 20 2a 2f 0a 09 69 too short */..i
17210 66 20 28 70 69 6e 5f 6c 65 6e 20 3e 3d 20 38 29 f (pin_len >= 8)
17220 20 7b 0a 09 09 6d 65 6d 63 70 79 28 63 61 63 5f {...memcpy(cac_
17230 70 69 6e 2c 20 70 69 6e 2c 20 38 29 3b 0a 09 7d pin, pin, 8);..}
17240 20 65 6c 73 65 20 7b 0a 09 09 6d 65 6d 63 70 79 else {...memcpy
17250 28 63 61 63 5f 70 69 6e 2c 20 70 69 6e 2c 20 70 (cac_pin, pin, p
17260 69 6e 5f 6c 65 6e 29 3b 0a 09 7d 0a 0a 09 69 66 in_len);..}...if
17270 20 28 6f 6c 64 5f 70 69 6e 5f 6c 65 6e 20 3e 3d (old_pin_len >=
17280 20 38 29 20 7b 0a 09 09 6d 65 6d 63 70 79 28 6f 8) {...memcpy(o
17290 6c 64 5f 63 61 63 5f 70 69 6e 2c 20 6f 6c 64 5f ld_cac_pin, old_
172a0 70 69 6e 2c 20 38 29 3b 0a 09 7d 20 65 6c 73 65 pin, 8);..} else
172b0 20 7b 0a 09 09 6d 65 6d 63 70 79 28 6f 6c 64 5f {...memcpy(old_
172c0 63 61 63 5f 70 69 6e 2c 20 6f 6c 64 5f 70 69 6e cac_pin, old_pin
172d0 2c 20 6f 6c 64 5f 70 69 6e 5f 6c 65 6e 29 3b 0a , old_pin_len);.
172e0 09 7d 0a 0a 09 2f 2a 20 43 6f 6e 63 61 74 65 6e .}.../* Concaten
172f0 61 74 65 20 62 6f 74 68 20 50 49 4e 73 20 74 6f ate both PINs to
17300 67 65 74 68 65 72 20 74 6f 20 73 65 6e 64 20 61 gether to send a
17310 73 20 61 20 73 69 6e 67 6c 65 20 69 6e 73 74 72 s a single instr
17320 75 63 74 69 6f 6e 20 2a 2f 0a 09 6d 65 6d 63 70 uction */..memcp
17330 79 28 70 69 6e 5f 75 70 64 61 74 65 2c 20 6f 6c y(pin_update, ol
17340 64 5f 63 61 63 5f 70 69 6e 2c 20 73 69 7a 65 6f d_cac_pin, sizeo
17350 66 28 6f 6c 64 5f 63 61 63 5f 70 69 6e 29 29 3b f(old_cac_pin));
17360 0a 09 6d 65 6d 63 70 79 28 70 69 6e 5f 75 70 64 ..memcpy(pin_upd
17370 61 74 65 20 2b 20 73 69 7a 65 6f 66 28 6f 6c 64 ate + sizeof(old
17380 5f 63 61 63 5f 70 69 6e 29 2c 20 63 61 63 5f 70 _cac_pin), cac_p
17390 69 6e 2c 20 73 69 7a 65 6f 66 28 63 61 63 5f 70 in, sizeof(cac_p
173a0 69 6e 29 29 3b 0a 0a 09 2f 2a 20 52 65 6a 65 63 in));.../* Rejec
173b0 74 20 50 49 4e 73 20 77 68 69 63 68 20 61 72 65 t PINs which are
173c0 20 74 6f 6f 20 73 68 6f 72 74 20 2a 2f 0a 09 69 too short */..i
173d0 66 20 28 70 69 6e 5f 6c 65 6e 20 3c 20 35 29 20 f (pin_len < 5)
173e0 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
173f0 5f 50 52 49 4e 54 46 28 22 52 65 6a 65 63 74 69 _PRINTF("Rejecti
17400 6e 67 20 4e 65 77 20 50 49 4e 20 77 68 69 63 68 ng New PIN which
17410 20 69 73 20 74 6f 6f 20 73 68 6f 72 74 20 28 6c is too short (l
17420 65 6e 67 74 68 20 3d 20 25 6c 75 2c 20 6d 75 73 ength = %lu, mus
17430 74 20 62 65 20 61 74 6c 65 61 73 74 20 35 29 22 t be atleast 5)"
17440 2c 20 70 69 6e 5f 6c 65 6e 29 3b 0a 0a 09 09 72 , pin_len);....r
17450 65 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 eturn(CACKEY_PCS
17460 43 5f 45 5f 42 41 44 50 49 4e 29 3b 0a 09 7d 0a C_E_BADPIN);..}.
17470 0a 09 69 66 20 28 6f 6c 64 5f 70 69 6e 5f 6c 65 ..if (old_pin_le
17480 6e 20 3c 20 35 29 20 7b 0a 09 09 43 41 43 4b 45 n < 5) {...CACKE
17490 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
174a0 52 65 6a 65 63 74 69 6e 67 20 4f 6c 64 20 50 49 Rejecting Old PI
174b0 4e 20 77 68 69 63 68 20 69 73 20 74 6f 6f 20 73 N which is too s
174c0 68 6f 72 74 20 28 6c 65 6e 67 74 68 20 3d 20 25 hort (length = %
174d0 6c 75 2c 20 6d 75 73 74 20 62 65 20 61 74 6c 65 lu, must be atle
174e0 61 73 74 20 35 29 22 2c 20 6f 6c 64 5f 70 69 6e ast 5)", old_pin
174f0 5f 6c 65 6e 29 3b 0a 0a 09 09 72 65 74 75 72 6e _len);....return
17500 28 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 42 (CACKEY_PCSC_E_B
17510 41 44 50 49 4e 29 3b 0a 09 7d 0a 0a 09 2f 2a 20 ADPIN);..}.../*
17520 50 49 56 20 61 75 74 68 65 6e 74 69 63 61 74 69 PIV authenticati
17530 6f 6e 20 75 73 65 73 20 61 20 22 6b 65 79 5f 72 on uses a "key_r
17540 65 66 65 72 65 6e 63 65 22 20 6f 66 20 30 78 38 eference" of 0x8
17550 30 20 2a 2f 0a 09 70 63 73 63 5f 69 64 65 6e 74 0 */..pcsc_ident
17560 69 74 69 65 73 20 3d 20 63 61 63 6b 65 79 5f 72 ities = cackey_r
17570 65 61 64 5f 63 65 72 74 73 28 73 6c 6f 74 2c 20 ead_certs(slot,
17580 4e 55 4c 4c 2c 20 26 6e 75 6d 5f 63 65 72 74 73 NULL, &num_certs
17590 29 3b 0a 09 69 66 20 28 6e 75 6d 5f 63 65 72 74 );..if (num_cert
175a0 73 20 3e 20 30 20 26 26 20 70 63 73 63 5f 69 64 s > 0 && pcsc_id
175b0 65 6e 74 69 74 69 65 73 20 21 3d 20 4e 55 4c 4c entities != NULL
175c0 29 20 7b 0a 09 09 73 77 69 74 63 68 20 28 70 63 ) {...switch (pc
175d0 73 63 5f 69 64 65 6e 74 69 74 69 65 73 5b 30 5d sc_identities[0]
175e0 2e 69 64 5f 74 79 70 65 29 20 7b 0a 09 09 09 63 .id_type) {....c
175f0 61 73 65 20 43 41 43 4b 45 59 5f 49 44 5f 54 59 ase CACKEY_ID_TY
17600 50 45 5f 50 49 56 3a 0a 09 09 09 09 43 41 43 4b PE_PIV:.....CACK
17610 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
17620 22 57 65 20 68 61 76 65 20 50 49 56 20 63 61 72 "We have PIV car
17630 64 2c 20 73 6f 20 77 65 20 77 69 6c 6c 20 61 74 d, so we will at
17640 74 65 6d 70 74 20 74 6f 20 61 75 74 68 65 6e 74 tempt to authent
17650 69 63 61 74 65 20 75 73 69 6e 67 20 74 68 65 20 icate using the
17660 50 49 56 20 41 70 70 6c 69 63 61 74 69 6f 6e 20 PIV Application
17670 6b 65 79 20 72 65 66 65 72 65 6e 63 65 22 29 3b key reference");
17680 0a 0a 09 09 09 09 6b 65 79 5f 72 65 66 65 72 65 ......key_refere
17690 6e 63 65 20 3d 20 30 78 38 30 3b 0a 09 09 09 09 nce = 0x80;.....
176a0 62 72 65 61 6b 3b 0a 09 09 09 64 65 66 61 75 6c break;....defaul
176b0 74 3a 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 t:.....break;...
176c0 7d 0a 0a 09 09 63 61 63 6b 65 79 5f 66 72 65 65 }....cackey_free
176d0 5f 63 65 72 74 73 28 70 63 73 63 5f 69 64 65 6e _certs(pcsc_iden
176e0 74 69 74 69 65 73 2c 20 6e 75 6d 5f 63 65 72 74 tities, num_cert
176f0 73 2c 20 31 29 3b 0a 09 7d 0a 0a 09 2f 2a 20 49 s, 1);..}.../* I
17700 73 73 75 65 20 61 20 53 65 74 20 50 49 4e 20 28 ssue a Set PIN (
17710 43 48 41 4e 47 45 20 52 45 46 45 52 45 4e 43 45 CHANGE REFERENCE
17720 29 20 2a 2f 0a 09 73 65 6e 64 5f 72 65 74 20 3d ) */..send_ret =
17730 20 63 61 63 6b 65 79 5f 73 65 6e 64 5f 61 70 64 cackey_send_apd
17740 75 28 73 6c 6f 74 2c 20 47 53 43 49 53 5f 43 4c u(slot, GSCIS_CL
17750 41 53 53 5f 49 53 4f 37 38 31 36 2c 20 47 53 43 ASS_ISO7816, GSC
17760 49 53 5f 49 4e 53 54 52 5f 43 48 41 4e 47 45 5f IS_INSTR_CHANGE_
17770 52 45 46 45 52 45 4e 43 45 2c 20 30 78 30 30 2c REFERENCE, 0x00,
17780 20 6b 65 79 5f 72 65 66 65 72 65 6e 63 65 2c 20 key_reference,
17790 73 69 7a 65 6f 66 28 70 69 6e 5f 75 70 64 61 74 sizeof(pin_updat
177a0 65 29 2c 20 70 69 6e 5f 75 70 64 61 74 65 2c 20 e), pin_update,
177b0 30 78 30 30 2c 20 26 72 65 73 70 6f 6e 73 65 5f 0x00, &response_
177c0 63 6f 64 65 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c code, NULL, NULL
177d0 29 3b 0a 0a 09 69 66 20 28 73 65 6e 64 5f 72 65 );...if (send_re
177e0 74 20 21 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 t != CACKEY_PCSC
177f0 5f 53 5f 4f 4b 29 20 7b 0a 09 09 69 66 20 28 28 _S_OK) {...if ((
17800 72 65 73 70 6f 6e 73 65 5f 63 6f 64 65 20 26 20 response_code &
17810 30 78 36 33 43 30 29 20 3d 3d 20 30 78 36 33 43 0x63C0) == 0x63C
17820 30 29 20 7b 0a 09 09 09 74 72 69 65 73 5f 72 65 0) {....tries_re
17830 6d 61 69 6e 69 6e 67 20 3d 20 28 72 65 73 70 6f maining = (respo
17840 6e 73 65 5f 63 6f 64 65 20 26 20 30 78 46 29 3b nse_code & 0xF);
17850 0a 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 .....CACKEY_DEBU
17860 47 5f 50 52 49 4e 54 46 28 22 50 49 4e 20 56 65 G_PRINTF("PIN Ve
17870 72 69 66 69 63 61 74 69 6f 6e 20 66 61 69 6c 65 rification faile
17880 64 2c 20 25 69 20 74 72 69 65 73 20 72 65 6d 61 d, %i tries rema
17890 69 6e 69 6e 67 22 2c 20 74 72 69 65 73 5f 72 65 ining", tries_re
178a0 6d 61 69 6e 69 6e 67 29 3b 0a 0a 09 09 09 72 65 maining);.....re
178b0 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 turn(CACKEY_PCSC
178c0 5f 45 5f 42 41 44 50 49 4e 29 3b 0a 09 09 7d 0a _E_BADPIN);...}.
178d0 0a 09 09 69 66 20 28 72 65 73 70 6f 6e 73 65 5f ...if (response_
178e0 63 6f 64 65 20 3d 3d 20 30 78 36 39 38 33 29 20 code == 0x6983)
178f0 7b 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {....CACKEY_DEBU
17900 47 5f 50 52 49 4e 54 46 28 22 55 6e 61 62 6c 65 G_PRINTF("Unable
17910 20 74 6f 20 73 65 74 20 50 49 4e 2c 20 64 65 76 to set PIN, dev
17920 69 63 65 20 69 73 20 6c 6f 63 6b 65 64 20 6f 72 ice is locked or
17930 20 63 68 61 6e 67 69 6e 67 20 74 68 65 20 50 49 changing the PI
17940 4e 20 69 73 20 64 69 73 61 62 6c 65 64 22 29 3b N is disabled");
17950 0a 0a 09 09 09 72 65 74 75 72 6e 28 43 41 43 4b .....return(CACK
17960 45 59 5f 50 43 53 43 5f 45 5f 4c 4f 43 4b 45 44 EY_PCSC_E_LOCKED
17970 29 3b 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e );...}....return
17980 28 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 47 (CACKEY_PCSC_E_G
17990 45 4e 45 52 49 43 29 3b 0a 09 7d 0a 0a 09 43 41 ENERIC);..}...CA
179a0 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
179b0 46 28 22 50 49 4e 20 43 68 61 6e 67 65 20 73 75 F("PIN Change su
179c0 63 63 65 65 64 65 64 22 29 3b 0a 0a 09 72 65 74 cceeded");...ret
179d0 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 5f urn(CACKEY_PCSC_
179e0 53 5f 4f 4b 29 3b 0a 0a 09 2f 2a 20 44 69 73 61 S_OK);.../* Disa
179f0 62 6c 65 20 61 20 77 61 72 6e 69 6e 67 2c 20 73 ble a warning, s
17a00 69 6e 63 65 20 74 68 69 73 20 69 73 20 6f 6e 6c ince this is onl
17a10 79 20 75 73 65 64 20 69 6e 20 64 65 62 75 67 20 y used in debug
17a20 6d 6f 64 65 20 2a 2f 0a 09 74 72 69 65 73 5f 72 mode */..tries_r
17a30 65 6d 61 69 6e 69 6e 67 20 3d 20 74 72 69 65 73 emaining = tries
17a40 5f 72 65 6d 61 69 6e 69 6e 67 3b 0a 7d 0a 0a 2f _remaining;.}../
17a50 2a 0a 20 2a 20 53 59 4e 50 4f 53 49 53 0a 20 2a *. * SYNPOSIS. *
17a60 20 20 20 20 20 2e 2e 2e 0a 20 2a 0a 20 2a 20 41 .... *. * A
17a70 52 47 55 4d 45 4e 54 53 0a 20 2a 20 20 20 20 20 RGUMENTS. *
17a80 2e 2e 2e 0a 20 2a 0a 20 2a 20 52 45 54 55 52 4e .... *. * RETURN
17a90 20 56 41 4c 55 45 0a 20 2a 20 20 20 20 20 2e 2e VALUE. * ..
17aa0 2e 0a 20 2a 0a 20 2a 20 4e 4f 54 45 53 0a 20 2a .. *. * NOTES. *
17ab0 20 20 20 20 20 2e 2e 2e 0a 20 2a 0a 20 2a 2f 0a .... *. */.
17ac0 73 74 61 74 69 63 20 63 61 63 6b 65 79 5f 72 65 static cackey_re
17ad0 74 20 63 61 63 6b 65 79 5f 6c 6f 67 69 6e 28 73 t cackey_login(s
17ae0 74 72 75 63 74 20 63 61 63 6b 65 79 5f 73 6c 6f truct cackey_slo
17af0 74 20 2a 73 6c 6f 74 2c 20 75 6e 73 69 67 6e 65 t *slot, unsigne
17b00 64 20 63 68 61 72 20 2a 70 69 6e 2c 20 75 6e 73 d char *pin, uns
17b10 69 67 6e 65 64 20 6c 6f 6e 67 20 70 69 6e 5f 6c igned long pin_l
17b20 65 6e 2c 20 69 6e 74 20 2a 74 72 69 65 73 5f 72 en, int *tries_r
17b30 65 6d 61 69 6e 69 6e 67 5f 70 2c 20 69 6e 74 20 emaining_p, int
17b40 72 65 74 72 69 65 73 29 20 7b 0a 09 73 74 72 75 retries) {..stru
17b50 63 74 20 63 61 63 6b 65 79 5f 70 63 73 63 5f 69 ct cackey_pcsc_i
17b60 64 65 6e 74 69 74 79 20 2a 70 63 73 63 5f 69 64 dentity *pcsc_id
17b70 65 6e 74 69 74 69 65 73 3b 0a 09 75 6e 73 69 67 entities;..unsig
17b80 6e 65 64 20 63 68 61 72 20 63 61 63 5f 70 69 6e ned char cac_pin
17b90 5b 38 5d 20 3d 20 7b 30 78 46 46 2c 20 30 78 46 [8] = {0xFF, 0xF
17ba0 46 2c 20 30 78 46 46 2c 20 30 78 46 46 2c 20 30 F, 0xFF, 0xFF, 0
17bb0 78 46 46 2c 20 30 78 46 46 2c 20 30 78 46 46 2c xFF, 0xFF, 0xFF,
17bc0 20 30 78 46 46 7d 3b 0a 09 75 6e 73 69 67 6e 65 0xFF};..unsigne
17bd0 64 20 6c 6f 6e 67 20 6e 75 6d 5f 63 65 72 74 73 d long num_certs
17be0 3b 0a 09 75 69 6e 74 31 36 5f 74 20 72 65 73 70 ;..uint16_t resp
17bf0 6f 6e 73 65 5f 63 6f 64 65 3b 0a 09 69 6e 74 20 onse_code;..int
17c00 74 72 69 65 73 5f 72 65 6d 61 69 6e 69 6e 67 3b tries_remaining;
17c10 0a 09 69 6e 74 20 73 65 6e 64 5f 72 65 74 3b 0a ..int send_ret;.
17c20 09 69 6e 74 20 6b 65 79 5f 72 65 66 65 72 65 6e .int key_referen
17c30 63 65 20 3d 20 30 78 30 30 2c 20 68 61 76 65 5f ce = 0x00, have_
17c40 70 69 76 20 3d 20 30 3b 0a 09 63 61 63 6b 65 79 piv = 0;..cackey
17c50 5f 72 65 74 20 63 6f 6e 6e 65 63 74 5f 72 65 74 _ret connect_ret
17c60 2c 20 74 6f 6b 65 6e 5f 72 65 74 3b 0a 0a 09 2f , token_ret;.../
17c70 2a 20 49 6e 64 69 63 61 74 65 20 74 68 61 74 20 * Indicate that
17c80 77 65 20 64 6f 20 6e 6f 74 20 6b 6e 6f 77 20 61 we do not know a
17c90 62 6f 75 74 20 68 6f 77 20 6d 61 6e 79 20 74 72 bout how many tr
17ca0 69 65 73 20 61 72 65 20 72 65 6d 61 69 6e 69 6e ies are remainin
17cb0 67 20 2a 2f 0a 09 69 66 20 28 74 72 69 65 73 5f g */..if (tries_
17cc0 72 65 6d 61 69 6e 69 6e 67 5f 70 29 20 7b 0a 09 remaining_p) {..
17cd0 09 2a 74 72 69 65 73 5f 72 65 6d 61 69 6e 69 6e .*tries_remainin
17ce0 67 5f 70 20 3d 20 2d 31 3b 0a 09 7d 0a 0a 09 2f g_p = -1;..}.../
17cf0 2a 20 41 70 70 61 72 65 6e 74 6c 79 2c 20 43 41 * Apparently, CA
17d00 43 20 50 49 4e 73 20 61 72 65 20 2a 45 58 41 43 C PINs are *EXAC
17d10 54 4c 59 2a 20 38 20 62 79 74 65 73 20 6c 6f 6e TLY* 8 bytes lon
17d20 67 20 2d 2d 20 70 61 64 20 77 69 74 68 20 30 78 g -- pad with 0x
17d30 46 46 20 69 66 20 74 6f 6f 20 73 68 6f 72 74 20 FF if too short
17d40 2a 2f 0a 09 69 66 20 28 70 69 6e 5f 6c 65 6e 20 */..if (pin_len
17d50 3e 3d 20 38 29 20 7b 0a 09 09 6d 65 6d 63 70 79 >= 8) {...memcpy
17d60 28 63 61 63 5f 70 69 6e 2c 20 70 69 6e 2c 20 38 (cac_pin, pin, 8
17d70 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 6d );..} else {...m
17d80 65 6d 63 70 79 28 63 61 63 5f 70 69 6e 2c 20 70 emcpy(cac_pin, p
17d90 69 6e 2c 20 70 69 6e 5f 6c 65 6e 29 3b 0a 09 7d in, pin_len);..}
17da0 0a 0a 09 2f 2a 20 52 65 6a 65 63 74 20 50 49 4e .../* Reject PIN
17db0 73 20 77 68 69 63 68 20 61 72 65 20 74 6f 6f 20 s which are too
17dc0 73 68 6f 72 74 20 2a 2f 0a 09 69 66 20 28 70 69 short */..if (pi
17dd0 6e 5f 6c 65 6e 20 3c 20 35 29 20 7b 0a 09 09 43 n_len < 5) {...C
17de0 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
17df0 54 46 28 22 52 65 6a 65 63 74 69 6e 67 20 50 49 TF("Rejecting PI
17e00 4e 20 77 68 69 63 68 20 69 73 20 74 6f 6f 20 73 N which is too s
17e10 68 6f 72 74 20 28 6c 65 6e 67 74 68 20 3d 20 25 hort (length = %
17e20 6c 75 2c 20 6d 75 73 74 20 62 65 20 61 74 6c 65 lu, must be atle
17e30 61 73 74 20 35 29 22 2c 20 70 69 6e 5f 6c 65 6e ast 5)", pin_len
17e40 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 41 43 );....return(CAC
17e50 4b 45 59 5f 50 43 53 43 5f 45 5f 42 41 44 50 49 KEY_PCSC_E_BADPI
17e60 4e 29 3b 0a 09 7d 0a 0a 09 2f 2a 20 50 49 56 20 N);..}.../* PIV
17e70 61 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 20 75 authentication u
17e80 73 65 73 20 61 20 22 6b 65 79 5f 72 65 66 65 72 ses a "key_refer
17e90 65 6e 63 65 22 20 6f 66 20 30 78 38 30 20 2a 2f ence" of 0x80 */
17ea0 0a 09 70 63 73 63 5f 69 64 65 6e 74 69 74 69 65 ..pcsc_identitie
17eb0 73 20 3d 20 63 61 63 6b 65 79 5f 72 65 61 64 5f s = cackey_read_
17ec0 63 65 72 74 73 28 73 6c 6f 74 2c 20 4e 55 4c 4c certs(slot, NULL
17ed0 2c 20 26 6e 75 6d 5f 63 65 72 74 73 29 3b 0a 09 , &num_certs);..
17ee0 69 66 20 28 6e 75 6d 5f 63 65 72 74 73 20 3e 20 if (num_certs >
17ef0 30 20 26 26 20 70 63 73 63 5f 69 64 65 6e 74 69 0 && pcsc_identi
17f00 74 69 65 73 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a ties != NULL) {.
17f10 09 09 73 77 69 74 63 68 20 28 70 63 73 63 5f 69 ..switch (pcsc_i
17f20 64 65 6e 74 69 74 69 65 73 5b 30 5d 2e 69 64 5f dentities[0].id_
17f30 74 79 70 65 29 20 7b 0a 09 09 09 63 61 73 65 20 type) {....case
17f40 43 41 43 4b 45 59 5f 49 44 5f 54 59 50 45 5f 50 CACKEY_ID_TYPE_P
17f50 49 56 3a 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 IV:.....CACKEY_D
17f60 45 42 55 47 5f 50 52 49 4e 54 46 28 22 57 65 20 EBUG_PRINTF("We
17f70 68 61 76 65 20 50 49 56 20 63 61 72 64 2c 20 73 have PIV card, s
17f80 6f 20 77 65 20 77 69 6c 6c 20 61 74 74 65 6d 70 o we will attemp
17f90 74 20 74 6f 20 61 75 74 68 65 6e 74 69 63 61 74 t to authenticat
17fa0 65 20 75 73 69 6e 67 20 74 68 65 20 50 49 56 20 e using the PIV
17fb0 41 70 70 6c 69 63 61 74 69 6f 6e 20 6b 65 79 20 Application key
17fc0 72 65 66 65 72 65 6e 63 65 22 29 3b 0a 0a 09 09 reference");....
17fd0 09 09 68 61 76 65 5f 70 69 76 20 3d 20 31 3b 0a ..have_piv = 1;.
17fe0 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 64 65 ....break;....de
17ff0 66 61 75 6c 74 3a 0a 09 09 09 09 62 72 65 61 6b fault:.....break
18000 3b 0a 09 09 7d 0a 0a 09 09 63 61 63 6b 65 79 5f ;...}....cackey_
18010 66 72 65 65 5f 63 65 72 74 73 28 70 63 73 63 5f free_certs(pcsc_
18020 69 64 65 6e 74 69 74 69 65 73 2c 20 6e 75 6d 5f identities, num_
18030 63 65 72 74 73 2c 20 31 29 3b 0a 09 7d 0a 0a 09 certs, 1);..}...
18040 69 66 20 28 68 61 76 65 5f 70 69 76 20 3d 3d 20 if (have_piv ==
18050 31 29 20 7b 0a 09 09 6b 65 79 5f 72 65 66 65 72 1) {...key_refer
18060 65 6e 63 65 20 3d 20 30 78 38 30 3b 0a 09 7d 0a ence = 0x80;..}.
18070 0a 09 2f 2a 20 49 73 73 75 65 20 50 49 4e 20 56 ../* Issue PIN V
18080 65 72 69 66 79 20 2a 2f 0a 09 73 65 6e 64 5f 72 erify */..send_r
18090 65 74 20 3d 20 63 61 63 6b 65 79 5f 73 65 6e 64 et = cackey_send
180a0 5f 61 70 64 75 28 73 6c 6f 74 2c 20 47 53 43 49 _apdu(slot, GSCI
180b0 53 5f 43 4c 41 53 53 5f 49 53 4f 37 38 31 36 2c S_CLASS_ISO7816,
180c0 20 47 53 43 49 53 5f 49 4e 53 54 52 5f 56 45 52 GSCIS_INSTR_VER
180d0 49 46 59 2c 20 30 78 30 30 2c 20 6b 65 79 5f 72 IFY, 0x00, key_r
180e0 65 66 65 72 65 6e 63 65 2c 20 73 69 7a 65 6f 66 eference, sizeof
180f0 28 63 61 63 5f 70 69 6e 29 2c 20 63 61 63 5f 70 (cac_pin), cac_p
18100 69 6e 2c 20 30 78 30 30 2c 20 26 72 65 73 70 6f in, 0x00, &respo
18110 6e 73 65 5f 63 6f 64 65 2c 20 4e 55 4c 4c 2c 20 nse_code, NULL,
18120 4e 55 4c 4c 29 3b 0a 0a 09 69 66 20 28 73 65 6e NULL);...if (sen
18130 64 5f 72 65 74 20 21 3d 20 43 41 43 4b 45 59 5f d_ret != CACKEY_
18140 50 43 53 43 5f 53 5f 4f 4b 29 20 7b 0a 09 09 69 PCSC_S_OK) {...i
18150 66 20 28 28 72 65 73 70 6f 6e 73 65 5f 63 6f 64 f ((response_cod
18160 65 20 26 20 30 78 36 33 43 30 29 20 3d 3d 20 30 e & 0x63C0) == 0
18170 78 36 33 43 30 29 20 7b 0a 09 09 09 74 72 69 65 x63C0) {....trie
18180 73 5f 72 65 6d 61 69 6e 69 6e 67 20 3d 20 28 72 s_remaining = (r
18190 65 73 70 6f 6e 73 65 5f 63 6f 64 65 20 26 20 30 esponse_code & 0
181a0 78 46 29 3b 0a 0a 09 09 09 43 41 43 4b 45 59 5f xF);.....CACKEY_
181b0 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 50 49 DEBUG_PRINTF("PI
181c0 4e 20 56 65 72 69 66 69 63 61 74 69 6f 6e 20 66 N Verification f
181d0 61 69 6c 65 64 2c 20 25 69 20 74 72 69 65 73 20 ailed, %i tries
181e0 72 65 6d 61 69 6e 69 6e 67 22 2c 20 74 72 69 65 remaining", trie
181f0 73 5f 72 65 6d 61 69 6e 69 6e 67 29 3b 0a 0a 09 s_remaining);...
18200 09 09 69 66 20 28 74 72 69 65 73 5f 72 65 6d 61 ..if (tries_rema
18210 69 6e 69 6e 67 5f 70 29 20 7b 0a 09 09 09 09 2a ining_p) {.....*
18220 74 72 69 65 73 5f 72 65 6d 61 69 6e 69 6e 67 5f tries_remaining_
18230 70 20 3d 20 74 72 69 65 73 5f 72 65 6d 61 69 6e p = tries_remain
18240 69 6e 67 3b 0a 09 09 09 7d 0a 0a 09 09 09 72 65 ing;....}.....re
18250 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 turn(CACKEY_PCSC
18260 5f 45 5f 42 41 44 50 49 4e 29 3b 0a 09 09 7d 0a _E_BADPIN);...}.
18270 0a 09 09 69 66 20 28 72 65 73 70 6f 6e 73 65 5f ...if (response_
18280 63 6f 64 65 20 3d 3d 20 30 78 36 39 38 33 29 20 code == 0x6983)
18290 7b 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {....CACKEY_DEBU
182a0 47 5f 50 52 49 4e 54 46 28 22 50 49 4e 20 56 65 G_PRINTF("PIN Ve
182b0 72 69 66 69 63 61 74 69 6f 6e 20 66 61 69 6c 65 rification faile
182c0 64 2c 20 64 65 76 69 63 65 20 69 73 20 6c 6f 63 d, device is loc
182d0 6b 65 64 22 29 3b 0a 0a 09 09 09 72 65 74 75 72 ked");.....retur
182e0 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f n(CACKEY_PCSC_E_
182f0 4c 4f 43 4b 45 44 29 3b 0a 09 09 7d 0a 0a 09 09 LOCKED);...}....
18300 69 66 20 28 72 65 73 70 6f 6e 73 65 5f 63 6f 64 if (response_cod
18310 65 20 3d 3d 20 30 78 36 64 30 30 29 20 7b 0a 09 e == 0x6d00) {..
18320 09 09 69 66 20 28 72 65 74 72 69 65 73 20 3e 20 ..if (retries >
18330 30 29 20 7b 0a 09 09 09 09 43 41 43 4b 45 59 5f 0) {.....CACKEY_
18340 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 47 6f DEBUG_PRINTF("Go
18350 74 20 49 53 4f 20 37 38 31 36 20 52 65 73 70 6f t ISO 7816 Respo
18360 6e 73 65 20 5c 22 36 44 20 30 30 5c 22 20 69 6e nse \"6D 00\" in
18370 20 72 65 73 70 6f 6e 73 65 20 74 6f 20 61 20 56 response to a V
18380 45 52 49 46 59 20 72 65 71 75 65 73 74 2e 22 29 ERIFY request.")
18390 3b 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 ;.....CACKEY_DEB
183a0 55 47 5f 50 52 49 4e 54 46 28 22 57 65 20 64 69 UG_PRINTF("We di
183b0 64 20 6e 6f 74 20 65 78 70 65 63 74 20 74 68 69 d not expect thi
183c0 73 20 62 65 63 61 75 73 65 20 69 74 20 69 73 20 s because it is
183d0 6e 6f 74 20 6d 65 6e 74 69 6f 6e 65 64 20 69 6e not mentioned in
183e0 20 4e 49 53 54 20 53 50 20 38 30 30 2d 37 33 2d NIST SP 800-73-
183f0 33 20 50 61 72 74 20 32 20 53 65 63 74 69 6f 6e 3 Part 2 Section
18400 20 33 2e 32 2e 31 20 6f 72 20 47 53 43 2d 49 53 3.2.1 or GSC-IS
18410 20 76 32 2e 31 22 29 3b 0a 09 09 09 09 43 41 43 v2.1");.....CAC
18420 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
18430 28 22 57 65 20 61 72 65 20 67 6f 69 6e 67 20 74 ("We are going t
18440 6f 20 74 72 79 20 74 6f 20 72 65 73 65 74 20 74 o try to reset t
18450 68 65 20 63 61 72 64 20 61 6e 64 20 73 65 6c 65 he card and sele
18460 63 74 20 74 68 65 20 61 70 70 6c 65 74 20 61 67 ct the applet ag
18470 61 69 6e 2e 22 29 3b 0a 0a 09 09 09 09 69 66 20 ain.");......if
18480 28 6e 75 6d 5f 63 65 72 74 73 20 3e 20 30 20 26 (num_certs > 0 &
18490 26 20 70 63 73 63 5f 69 64 65 6e 74 69 74 69 65 & pcsc_identitie
184a0 73 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 s != NULL) {....
184b0 09 09 63 61 63 6b 65 79 5f 64 65 74 65 63 74 5f ..cackey_detect_
184c0 61 6e 64 5f 73 65 6c 65 63 74 5f 72 6f 6f 74 5f and_select_root_
184d0 61 70 70 6c 65 74 28 73 6c 6f 74 2c 20 70 63 73 applet(slot, pcs
184e0 63 5f 69 64 65 6e 74 69 74 69 65 73 5b 30 5d 2e c_identities[0].
184f0 69 64 5f 74 79 70 65 29 3b 0a 09 09 09 09 7d 0a id_type);.....}.
18500 0a 09 09 09 09 63 61 63 6b 65 79 5f 6d 61 72 6b .....cackey_mark
18510 5f 73 6c 6f 74 5f 72 65 73 65 74 28 73 6c 6f 74 _slot_reset(slot
18520 29 3b 0a 0a 09 09 09 09 63 6f 6e 6e 65 63 74 5f );......connect_
18530 72 65 74 20 3d 20 63 61 63 6b 65 79 5f 63 6f 6e ret = cackey_con
18540 6e 65 63 74 5f 63 61 72 64 28 73 6c 6f 74 29 3b nect_card(slot);
18550 0a 09 09 09 09 69 66 20 28 63 6f 6e 6e 65 63 74 .....if (connect
18560 5f 72 65 74 20 21 3d 20 43 41 43 4b 45 59 5f 50 _ret != CACKEY_P
18570 43 53 43 5f 53 5f 4f 4b 29 20 7b 0a 09 09 09 09 CSC_S_OK) {.....
18580 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
18590 49 4e 54 46 28 22 55 6e 61 62 6c 65 20 74 6f 20 INTF("Unable to
185a0 72 65 63 6f 6e 6e 65 63 74 20 61 66 74 65 72 20 reconnect after
185b0 72 65 73 65 74 74 69 6e 67 20 74 68 65 20 63 61 resetting the ca
185c0 72 64 2c 20 72 65 74 75 72 6e 69 6e 67 20 69 6e rd, returning in
185d0 20 65 72 72 6f 72 2e 22 29 3b 0a 0a 09 09 09 09 error.");......
185e0 09 72 65 74 75 72 6e 28 63 6f 6e 6e 65 63 74 5f .return(connect_
185f0 72 65 74 29 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 ret);.....}.....
18600 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
18610 49 4e 54 46 28 22 56 65 72 69 66 79 69 6e 67 20 INTF("Verifying
18620 77 65 20 73 74 69 6c 6c 20 68 61 76 65 20 61 20 we still have a
18630 74 6f 6b 65 6e 2e 22 29 3b 0a 09 09 09 09 74 6f token.");.....to
18640 6b 65 6e 5f 72 65 74 20 3d 20 63 61 63 6b 65 79 ken_ret = cackey
18650 5f 74 6f 6b 65 6e 5f 70 72 65 73 65 6e 74 28 73 _token_present(s
18660 6c 6f 74 29 3b 0a 09 09 09 09 69 66 20 28 74 6f lot);.....if (to
18670 6b 65 6e 5f 72 65 74 20 21 3d 20 43 41 43 4b 45 ken_ret != CACKE
18680 59 5f 50 43 53 43 5f 53 5f 54 4f 4b 45 4e 50 52 Y_PCSC_S_TOKENPR
18690 45 53 45 4e 54 29 20 7b 0a 09 09 09 09 09 43 41 ESENT) {......CA
186a0 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
186b0 46 28 22 54 6f 6b 65 6e 20 6e 6f 74 20 70 72 65 F("Token not pre
186c0 73 65 6e 74 2c 20 72 65 74 75 72 6e 69 6e 67 20 sent, returning
186d0 69 6e 20 65 72 72 6f 72 2e 22 29 3b 0a 0a 09 09 in error.");....
186e0 09 09 09 72 65 74 75 72 6e 28 74 6f 6b 65 6e 5f ...return(token_
186f0 72 65 74 29 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 ret);.....}.....
18700 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
18710 49 4e 54 46 28 22 54 72 79 69 6e 67 20 74 6f 20 INTF("Trying to
18720 6c 6f 67 69 6e 20 61 67 61 69 6e 22 29 3b 0a 09 login again");..
18730 09 09 09 72 65 74 75 72 6e 28 63 61 63 6b 65 79 ...return(cackey
18740 5f 6c 6f 67 69 6e 28 73 6c 6f 74 2c 20 70 69 6e _login(slot, pin
18750 2c 20 70 69 6e 5f 6c 65 6e 2c 20 74 72 69 65 73 , pin_len, tries
18760 5f 72 65 6d 61 69 6e 69 6e 67 5f 70 2c 20 72 65 _remaining_p, re
18770 74 72 69 65 73 20 2d 20 31 29 29 3b 0a 09 09 09 tries - 1));....
18780 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 28 }...}....return(
18790 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 47 45 CACKEY_PCSC_E_GE
187a0 4e 45 52 49 43 29 3b 0a 09 7d 0a 0a 09 43 41 43 NERIC);..}...CAC
187b0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
187c0 28 22 50 49 4e 20 56 65 72 69 66 69 63 61 74 69 ("PIN Verificati
187d0 6f 6e 20 73 75 63 63 65 65 64 65 64 22 29 3b 0a on succeeded");.
187e0 0a 09 72 65 74 75 72 6e 28 43 41 43 4b 45 59 5f ..return(CACKEY_
187f0 50 43 53 43 5f 53 5f 4f 4b 29 3b 0a 7d 0a 0a 2f PCSC_S_OK);.}../
18800 2a 0a 20 2a 20 53 59 4e 50 4f 53 49 53 0a 20 2a *. * SYNPOSIS. *
18810 20 20 20 20 20 2e 2e 2e 0a 20 2a 0a 20 2a 20 41 .... *. * A
18820 52 47 55 4d 45 4e 54 53 0a 20 2a 20 20 20 20 20 RGUMENTS. *
18830 2e 2e 2e 0a 20 2a 0a 20 2a 20 52 45 54 55 52 4e .... *. * RETURN
18840 20 56 41 4c 55 45 0a 20 2a 20 20 20 20 20 2e 2e VALUE. * ..
18850 2e 0a 20 2a 0a 20 2a 20 4e 4f 54 45 53 0a 20 2a .. *. * NOTES. *
18860 20 20 20 20 20 2e 2e 2e 0a 20 2a 0a 20 2a 2f 0a .... *. */.
18870 73 74 61 74 69 63 20 73 73 69 7a 65 5f 74 20 63 static ssize_t c
18880 61 63 6b 65 79 5f 70 63 73 63 5f 69 64 65 6e 74 ackey_pcsc_ident
18890 69 74 79 5f 74 6f 5f 6c 61 62 65 6c 28 73 74 72 ity_to_label(str
188a0 75 63 74 20 63 61 63 6b 65 79 5f 70 63 73 63 5f uct cackey_pcsc_
188b0 69 64 65 6e 74 69 74 79 20 2a 69 64 65 6e 74 69 identity *identi
188c0 74 79 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 ty, unsigned cha
188d0 72 20 2a 6c 61 62 65 6c 5f 62 75 66 2c 20 75 6e r *label_buf, un
188e0 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 61 62 65 signed long labe
188f0 6c 5f 62 75 66 5f 6c 65 6e 29 20 7b 0a 09 75 6e l_buf_len) {..un
18900 73 69 67 6e 65 64 20 6c 6f 6e 67 20 63 65 72 74 signed long cert
18910 69 66 69 63 61 74 65 5f 6c 65 6e 3b 0a 09 76 6f ificate_len;..vo
18920 69 64 20 2a 6c 61 62 65 6c 5f 61 73 6e 31 3b 0a id *label_asn1;.
18930 09 76 6f 69 64 20 2a 63 65 72 74 69 66 69 63 61 .void *certifica
18940 74 65 3b 0a 09 69 6e 74 20 78 35 30 39 5f 72 65 te;..int x509_re
18950 61 64 5f 72 65 74 3b 0a 0a 09 63 65 72 74 69 66 ad_ret;...certif
18960 69 63 61 74 65 20 3d 20 69 64 65 6e 74 69 74 79 icate = identity
18970 2d 3e 63 65 72 74 69 66 69 63 61 74 65 3b 0a 09 ->certificate;..
18980 63 65 72 74 69 66 69 63 61 74 65 5f 6c 65 6e 20 certificate_len
18990 3d 20 69 64 65 6e 74 69 74 79 2d 3e 63 65 72 74 = identity->cert
189a0 69 66 69 63 61 74 65 5f 6c 65 6e 3b 0a 0a 09 69 ificate_len;...i
189b0 66 20 28 63 65 72 74 69 66 69 63 61 74 65 5f 6c f (certificate_l
189c0 65 6e 20 3c 20 30 29 20 7b 0a 09 09 72 65 74 75 en < 0) {...retu
189d0 72 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 09 78 35 30 rn(-1);..}...x50
189e0 39 5f 72 65 61 64 5f 72 65 74 20 3d 20 78 35 30 9_read_ret = x50
189f0 39 5f 74 6f 5f 73 75 62 6a 65 63 74 28 63 65 72 9_to_subject(cer
18a00 74 69 66 69 63 61 74 65 2c 20 63 65 72 74 69 66 tificate, certif
18a10 69 63 61 74 65 5f 6c 65 6e 2c 20 28 76 6f 69 64 icate_len, (void
18a20 20 2a 2a 29 20 26 6c 61 62 65 6c 5f 61 73 6e 31 **) &label_asn1
18a30 29 3b 0a 09 69 66 20 28 78 35 30 39 5f 72 65 61 );..if (x509_rea
18a40 64 5f 72 65 74 20 3c 20 30 29 20 7b 0a 09 09 72 d_ret < 0) {...r
18a50 65 74 75 72 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 09 eturn(-1);..}...
18a60 78 35 30 39 5f 72 65 61 64 5f 72 65 74 20 3d 20 x509_read_ret =
18a70 78 35 30 39 5f 64 6e 5f 74 6f 5f 73 74 72 69 6e x509_dn_to_strin
18a80 67 28 6c 61 62 65 6c 5f 61 73 6e 31 2c 20 78 35 g(label_asn1, x5
18a90 30 39 5f 72 65 61 64 5f 72 65 74 2c 20 28 63 68 09_read_ret, (ch
18aa0 61 72 20 2a 29 20 6c 61 62 65 6c 5f 62 75 66 2c ar *) label_buf,
18ab0 20 6c 61 62 65 6c 5f 62 75 66 5f 6c 65 6e 2c 20 label_buf_len,
18ac0 22 43 4e 22 29 3b 0a 09 69 66 20 28 78 35 30 39 "CN");..if (x509
18ad0 5f 72 65 61 64 5f 72 65 74 20 3c 3d 20 30 29 20 _read_ret <= 0)
18ae0 7b 0a 09 09 78 35 30 39 5f 72 65 61 64 5f 72 65 {...x509_read_re
18af0 74 20 3d 20 78 35 30 39 5f 64 6e 5f 74 6f 5f 73 t = x509_dn_to_s
18b00 74 72 69 6e 67 28 6c 61 62 65 6c 5f 61 73 6e 31 tring(label_asn1
18b10 2c 20 78 35 30 39 5f 72 65 61 64 5f 72 65 74 2c , x509_read_ret,
18b20 20 28 63 68 61 72 20 2a 29 20 6c 61 62 65 6c 5f (char *) label_
18b30 62 75 66 2c 20 6c 61 62 65 6c 5f 62 75 66 5f 6c buf, label_buf_l
18b40 65 6e 2c 20 4e 55 4c 4c 29 3b 0a 0a 09 09 69 66 en, NULL);....if
18b50 20 28 78 35 30 39 5f 72 65 61 64 5f 72 65 74 20 (x509_read_ret
18b60 3c 3d 20 30 29 20 7b 0a 09 09 09 72 65 74 75 72 <= 0) {....retur
18b70 6e 28 2d 31 29 3b 0a 09 09 7d 0a 09 7d 0a 0a 23 n(-1);...}..}..#
18b80 69 66 64 65 66 20 43 41 43 4b 45 59 5f 50 41 52 ifdef CACKEY_PAR
18b90 41 4e 4f 49 44 0a 23 20 20 69 66 64 65 66 20 5f ANOID.# ifdef _
18ba0 50 4f 53 49 58 5f 53 53 49 5a 45 5f 4d 41 58 0a POSIX_SSIZE_MAX.
18bb0 09 69 66 20 28 78 35 30 39 5f 72 65 61 64 5f 72 .if (x509_read_r
18bc0 65 74 20 3e 20 5f 50 4f 53 49 58 5f 53 53 49 5a et > _POSIX_SSIZ
18bd0 45 5f 4d 41 58 29 20 7b 0a 09 09 43 41 43 4b 45 E_MAX) {...CACKE
18be0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
18bf0 78 35 30 39 5f 72 65 61 64 5f 72 65 74 20 65 78 x509_read_ret ex
18c00 63 65 65 64 73 20 6d 61 78 69 6d 75 6d 20 76 61 ceeds maximum va
18c10 6c 75 65 2c 20 72 65 74 75 72 6e 69 6e 67 20 69 lue, returning i
18c20 6e 20 66 61 69 6c 75 72 65 2e 20 28 6d 61 78 20 n failure. (max
18c30 3d 20 25 6c 69 2c 20 78 35 30 39 5f 72 65 61 64 = %li, x509_read
18c40 5f 72 65 74 20 3d 20 25 6c 75 29 22 2c 20 28 6c _ret = %lu)", (l
18c50 6f 6e 67 29 20 5f 50 4f 53 49 58 5f 53 53 49 5a ong) _POSIX_SSIZ
18c60 45 5f 4d 41 58 2c 20 28 75 6e 73 69 67 6e 65 64 E_MAX, (unsigned
18c70 20 6c 6f 6e 67 29 20 78 35 30 39 5f 72 65 61 64 long) x509_read
18c80 5f 72 65 74 29 3b 0a 0a 09 09 72 65 74 75 72 6e _ret);....return
18c90 28 2d 31 29 3b 0a 09 7d 0a 23 20 20 65 6e 64 69 (-1);..}.# endi
18ca0 66 0a 23 65 6e 64 69 66 0a 0a 09 72 65 74 75 72 f.#endif...retur
18cb0 6e 28 78 35 30 39 5f 72 65 61 64 5f 72 65 74 29 n(x509_read_ret)
18cc0 3b 0a 7d 0a 0a 2f 2a 20 52 65 74 75 72 6e 73 20 ;.}../* Returns
18cd0 30 20 6f 6e 20 73 75 63 63 65 73 73 20 2a 2f 0a 0 on success */.
18ce0 73 74 61 74 69 63 20 69 6e 74 20 63 61 63 6b 65 static int cacke
18cf0 79 5f 6d 75 74 65 78 5f 63 72 65 61 74 65 28 76 y_mutex_create(v
18d00 6f 69 64 20 2a 2a 6d 75 74 65 78 29 20 7b 0a 09 oid **mutex) {..
18d10 70 74 68 72 65 61 64 5f 6d 75 74 65 78 5f 74 20 pthread_mutex_t
18d20 2a 70 74 68 72 65 61 64 5f 6d 75 74 65 78 3b 0a *pthread_mutex;.
18d30 09 69 6e 74 20 70 74 68 72 65 61 64 5f 72 65 74 .int pthread_ret
18d40 76 61 6c 3b 0a 09 43 4b 5f 52 56 20 63 75 73 74 val;..CK_RV cust
18d50 6f 6d 5f 72 65 74 76 61 6c 3b 0a 0a 09 43 41 43 om_retval;...CAC
18d60 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
18d70 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 ("Called.");...i
18d80 66 20 28 28 63 61 63 6b 65 79 5f 61 72 67 73 2e f ((cackey_args.
18d90 66 6c 61 67 73 20 26 20 43 4b 46 5f 4f 53 5f 4c flags & CKF_OS_L
18da0 4f 43 4b 49 4e 47 5f 4f 4b 29 20 3d 3d 20 43 4b OCKING_OK) == CK
18db0 46 5f 4f 53 5f 4c 4f 43 4b 49 4e 47 5f 4f 4b 29 F_OS_LOCKING_OK)
18dc0 20 7b 0a 09 09 70 74 68 72 65 61 64 5f 6d 75 74 {...pthread_mut
18dd0 65 78 20 3d 20 6d 61 6c 6c 6f 63 28 73 69 7a 65 ex = malloc(size
18de0 6f 66 28 2a 70 74 68 72 65 61 64 5f 6d 75 74 65 of(*pthread_mute
18df0 78 29 29 3b 0a 09 09 69 66 20 28 21 70 74 68 72 x));...if (!pthr
18e00 65 61 64 5f 6d 75 74 65 78 29 20 7b 0a 09 09 09 ead_mutex) {....
18e10 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
18e20 4e 54 46 28 22 46 61 69 6c 65 64 20 74 6f 20 61 NTF("Failed to a
18e30 6c 6c 6f 63 61 74 65 20 6d 65 6d 6f 72 79 2e 22 llocate memory."
18e40 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e 28 2d 31 );.....return(-1
18e50 29 3b 0a 09 09 7d 0a 0a 09 09 70 74 68 72 65 61 );...}....pthrea
18e60 64 5f 72 65 74 76 61 6c 20 3d 20 70 74 68 72 65 d_retval = pthre
18e70 61 64 5f 6d 75 74 65 78 5f 69 6e 69 74 28 70 74 ad_mutex_init(pt
18e80 68 72 65 61 64 5f 6d 75 74 65 78 2c 20 4e 55 4c hread_mutex, NUL
18e90 4c 29 3b 0a 09 09 69 66 20 28 70 74 68 72 65 61 L);...if (pthrea
18ea0 64 5f 72 65 74 76 61 6c 20 21 3d 20 30 29 20 7b d_retval != 0) {
18eb0 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
18ec0 5f 50 52 49 4e 54 46 28 22 70 74 68 72 65 61 64 _PRINTF("pthread
18ed0 5f 6d 75 74 65 78 5f 69 6e 69 74 28 29 20 72 65 _mutex_init() re
18ee0 74 75 72 6e 65 64 20 65 72 72 6f 72 20 28 25 69 turned error (%i
18ef0 29 2e 22 2c 20 70 74 68 72 65 61 64 5f 72 65 74 ).", pthread_ret
18f00 76 61 6c 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e val);.....return
18f10 28 2d 31 29 3b 0a 09 09 7d 0a 0a 09 09 2a 6d 75 (-1);...}....*mu
18f20 74 65 78 20 3d 20 70 74 68 72 65 61 64 5f 6d 75 tex = pthread_mu
18f30 74 65 78 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 tex;..} else {..
18f40 09 69 66 20 28 63 61 63 6b 65 79 5f 61 72 67 73 .if (cackey_args
18f50 2e 43 72 65 61 74 65 4d 75 74 65 78 29 20 7b 0a .CreateMutex) {.
18f60 09 09 09 63 75 73 74 6f 6d 5f 72 65 74 76 61 6c ...custom_retval
18f70 20 3d 20 63 61 63 6b 65 79 5f 61 72 67 73 2e 43 = cackey_args.C
18f80 72 65 61 74 65 4d 75 74 65 78 28 6d 75 74 65 78 reateMutex(mutex
18f90 29 3b 0a 0a 09 09 09 69 66 20 28 63 75 73 74 6f );.....if (custo
18fa0 6d 5f 72 65 74 76 61 6c 20 21 3d 20 43 4b 52 5f m_retval != CKR_
18fb0 4f 4b 29 20 7b 0a 09 09 09 09 43 41 43 4b 45 59 OK) {.....CACKEY
18fc0 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 63 _DEBUG_PRINTF("c
18fd0 61 63 6b 65 79 5f 61 72 67 73 2e 43 72 65 61 74 ackey_args.Creat
18fe0 65 4d 75 74 65 78 28 29 20 72 65 74 75 72 6e 65 eMutex() returne
18ff0 64 20 65 72 72 6f 72 20 28 25 6c 69 29 2e 22 2c d error (%li).",
19000 20 28 6c 6f 6e 67 29 20 63 75 73 74 6f 6d 5f 72 (long) custom_r
19010 65 74 76 61 6c 29 3b 0a 0a 09 09 09 09 72 65 74 etval);......ret
19020 75 72 6e 28 2d 31 29 3b 0a 09 09 09 7d 0a 09 09 urn(-1);....}...
19030 7d 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 }..}...CACKEY_DE
19040 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 BUG_PRINTF("Retu
19050 72 6e 69 6e 67 20 73 75 63 65 73 73 66 75 6c 6c rning sucessfull
19060 79 20 28 30 29 22 29 3b 0a 0a 09 72 65 74 75 72 y (0)");...retur
19070 6e 28 30 29 3b 0a 7d 0a 0a 2f 2a 20 52 65 74 75 n(0);.}../* Retu
19080 72 6e 73 20 30 20 6f 6e 20 73 75 63 63 65 73 73 rns 0 on success
19090 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 63 */.static int c
190a0 61 63 6b 65 79 5f 6d 75 74 65 78 5f 6c 6f 63 6b ackey_mutex_lock
190b0 28 76 6f 69 64 20 2a 6d 75 74 65 78 29 20 7b 0a (void *mutex) {.
190c0 09 70 74 68 72 65 61 64 5f 6d 75 74 65 78 5f 74 .pthread_mutex_t
190d0 20 2a 70 74 68 72 65 61 64 5f 6d 75 74 65 78 3b *pthread_mutex;
190e0 0a 09 69 6e 74 20 70 74 68 72 65 61 64 5f 72 65 ..int pthread_re
190f0 74 76 61 6c 3b 0a 09 43 4b 5f 52 56 20 63 75 73 tval;..CK_RV cus
19100 74 6f 6d 5f 72 65 74 76 61 6c 3b 0a 0a 09 43 41 tom_retval;...CA
19110 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
19120 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 F("Called.");...
19130 69 66 20 28 28 63 61 63 6b 65 79 5f 61 72 67 73 if ((cackey_args
19140 2e 66 6c 61 67 73 20 26 20 43 4b 46 5f 4f 53 5f .flags & CKF_OS_
19150 4c 4f 43 4b 49 4e 47 5f 4f 4b 29 20 3d 3d 20 43 LOCKING_OK) == C
19160 4b 46 5f 4f 53 5f 4c 4f 43 4b 49 4e 47 5f 4f 4b KF_OS_LOCKING_OK
19170 29 20 7b 0a 09 09 70 74 68 72 65 61 64 5f 6d 75 ) {...pthread_mu
19180 74 65 78 20 3d 20 6d 75 74 65 78 3b 0a 0a 09 09 tex = mutex;....
19190 70 74 68 72 65 61 64 5f 72 65 74 76 61 6c 20 3d pthread_retval =
191a0 20 70 74 68 72 65 61 64 5f 6d 75 74 65 78 5f 6c pthread_mutex_l
191b0 6f 63 6b 28 70 74 68 72 65 61 64 5f 6d 75 74 65 ock(pthread_mute
191c0 78 29 3b 0a 09 09 69 66 20 28 70 74 68 72 65 61 x);...if (pthrea
191d0 64 5f 72 65 74 76 61 6c 20 21 3d 20 30 29 20 7b d_retval != 0) {
191e0 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
191f0 5f 50 52 49 4e 54 46 28 22 70 74 68 72 65 61 64 _PRINTF("pthread
19200 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 29 20 72 65 _mutex_lock() re
19210 74 75 72 6e 65 64 20 65 72 72 6f 72 20 28 25 69 turned error (%i
19220 29 2e 22 2c 20 70 74 68 72 65 61 64 5f 72 65 74 ).", pthread_ret
19230 76 61 6c 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e val);.....return
19240 28 2d 31 29 3b 0a 09 09 7d 0a 09 7d 20 65 6c 73 (-1);...}..} els
19250 65 20 7b 0a 09 09 69 66 20 28 63 61 63 6b 65 79 e {...if (cackey
19260 5f 61 72 67 73 2e 4c 6f 63 6b 4d 75 74 65 78 29 _args.LockMutex)
19270 20 7b 0a 09 09 09 63 75 73 74 6f 6d 5f 72 65 74 {....custom_ret
19280 76 61 6c 20 3d 20 63 61 63 6b 65 79 5f 61 72 67 val = cackey_arg
19290 73 2e 4c 6f 63 6b 4d 75 74 65 78 28 6d 75 74 65 s.LockMutex(mute
192a0 78 29 3b 0a 0a 09 09 09 69 66 20 28 63 75 73 74 x);.....if (cust
192b0 6f 6d 5f 72 65 74 76 61 6c 20 21 3d 20 43 4b 52 om_retval != CKR
192c0 5f 4f 4b 29 20 7b 0a 09 09 09 09 43 41 43 4b 45 _OK) {.....CACKE
192d0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
192e0 63 61 63 6b 65 79 5f 61 72 67 73 2e 4c 6f 63 6b cackey_args.Lock
192f0 4d 75 74 65 78 28 29 20 72 65 74 75 72 6e 65 64 Mutex() returned
19300 20 65 72 72 6f 72 20 28 25 6c 69 29 2e 22 2c 20 error (%li).",
19310 28 6c 6f 6e 67 29 20 63 75 73 74 6f 6d 5f 72 65 (long) custom_re
19320 74 76 61 6c 29 3b 0a 0a 09 09 09 09 72 65 74 75 tval);......retu
19330 72 6e 28 2d 31 29 3b 0a 09 09 09 7d 0a 09 09 7d rn(-1);....}...}
19340 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 ..}...CACKEY_DEB
19350 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 UG_PRINTF("Retur
19360 6e 69 6e 67 20 73 75 63 65 73 73 66 75 6c 6c 79 ning sucessfully
19370 20 28 30 29 22 29 3b 0a 0a 09 72 65 74 75 72 6e (0)");...return
19380 28 30 29 3b 0a 7d 0a 0a 2f 2a 20 52 65 74 75 72 (0);.}../* Retur
19390 6e 73 20 30 20 6f 6e 20 73 75 63 63 65 73 73 20 ns 0 on success
193a0 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 63 61 */.static int ca
193b0 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 ckey_mutex_unloc
193c0 6b 28 76 6f 69 64 20 2a 6d 75 74 65 78 29 20 7b k(void *mutex) {
193d0 0a 09 70 74 68 72 65 61 64 5f 6d 75 74 65 78 5f ..pthread_mutex_
193e0 74 20 2a 70 74 68 72 65 61 64 5f 6d 75 74 65 78 t *pthread_mutex
193f0 3b 0a 09 69 6e 74 20 70 74 68 72 65 61 64 5f 72 ;..int pthread_r
19400 65 74 76 61 6c 3b 0a 09 43 4b 5f 52 56 20 63 75 etval;..CK_RV cu
19410 73 74 6f 6d 5f 72 65 74 76 61 6c 3b 0a 0a 09 43 stom_retval;...C
19420 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
19430 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a TF("Called.");..
19440 09 69 66 20 28 28 63 61 63 6b 65 79 5f 61 72 67 .if ((cackey_arg
19450 73 2e 66 6c 61 67 73 20 26 20 43 4b 46 5f 4f 53 s.flags & CKF_OS
19460 5f 4c 4f 43 4b 49 4e 47 5f 4f 4b 29 20 3d 3d 20 _LOCKING_OK) ==
19470 43 4b 46 5f 4f 53 5f 4c 4f 43 4b 49 4e 47 5f 4f CKF_OS_LOCKING_O
19480 4b 29 20 7b 0a 09 09 70 74 68 72 65 61 64 5f 6d K) {...pthread_m
19490 75 74 65 78 20 3d 20 6d 75 74 65 78 3b 0a 0a 09 utex = mutex;...
194a0 09 70 74 68 72 65 61 64 5f 72 65 74 76 61 6c 20 .pthread_retval
194b0 3d 20 70 74 68 72 65 61 64 5f 6d 75 74 65 78 5f = pthread_mutex_
194c0 75 6e 6c 6f 63 6b 28 70 74 68 72 65 61 64 5f 6d unlock(pthread_m
194d0 75 74 65 78 29 3b 0a 09 09 69 66 20 28 70 74 68 utex);...if (pth
194e0 72 65 61 64 5f 72 65 74 76 61 6c 20 21 3d 20 30 read_retval != 0
194f0 29 20 7b 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 ) {....CACKEY_DE
19500 42 55 47 5f 50 52 49 4e 54 46 28 22 70 74 68 72 BUG_PRINTF("pthr
19510 65 61 64 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b ead_mutex_unlock
19520 28 29 20 72 65 74 75 72 6e 65 64 20 65 72 72 6f () returned erro
19530 72 20 28 25 69 29 2e 22 2c 20 70 74 68 72 65 61 r (%i).", pthrea
19540 64 5f 72 65 74 76 61 6c 29 3b 0a 0a 09 09 09 72 d_retval);.....r
19550 65 74 75 72 6e 28 2d 31 29 3b 0a 09 09 7d 0a 09 eturn(-1);...}..
19560 7d 20 65 6c 73 65 20 7b 0a 09 09 69 66 20 28 63 } else {...if (c
19570 61 63 6b 65 79 5f 61 72 67 73 2e 55 6e 6c 6f 63 ackey_args.Unloc
19580 6b 4d 75 74 65 78 29 20 7b 0a 09 09 09 63 75 73 kMutex) {....cus
19590 74 6f 6d 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 tom_retval = cac
195a0 6b 65 79 5f 61 72 67 73 2e 55 6e 6c 6f 63 6b 4d key_args.UnlockM
195b0 75 74 65 78 28 6d 75 74 65 78 29 3b 0a 0a 09 09 utex(mutex);....
195c0 09 69 66 20 28 63 75 73 74 6f 6d 5f 72 65 74 76 .if (custom_retv
195d0 61 6c 20 21 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a al != CKR_OK) {.
195e0 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
195f0 5f 50 52 49 4e 54 46 28 22 63 61 63 6b 65 79 5f _PRINTF("cackey_
19600 61 72 67 73 2e 55 6e 6c 6f 63 6b 4d 75 74 65 78 args.UnlockMutex
19610 28 29 20 72 65 74 75 72 6e 65 64 20 65 72 72 6f () returned erro
19620 72 20 28 25 6c 69 29 2e 22 2c 20 28 6c 6f 6e 67 r (%li).", (long
19630 29 20 63 75 73 74 6f 6d 5f 72 65 74 76 61 6c 29 ) custom_retval)
19640 3b 0a 0a 09 09 09 09 72 65 74 75 72 6e 28 2d 31 ;......return(-1
19650 29 3b 0a 09 09 09 7d 0a 09 09 7d 0a 09 7d 0a 0a );....}...}..}..
19660 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
19670 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
19680 73 75 63 65 73 73 66 75 6c 6c 79 20 28 30 29 22 sucessfully (0)"
19690 29 3b 0a 0a 09 72 65 74 75 72 6e 28 30 29 3b 0a );...return(0);.
196a0 7d 0a 0a 73 74 61 74 69 63 20 43 4b 5f 41 54 54 }..static CK_ATT
196b0 52 49 42 55 54 45 5f 50 54 52 20 63 61 63 6b 65 RIBUTE_PTR cacke
196c0 79 5f 67 65 74 5f 61 74 74 72 69 62 75 74 65 73 y_get_attributes
196d0 28 43 4b 5f 4f 42 4a 45 43 54 5f 43 4c 41 53 53 (CK_OBJECT_CLASS
196e0 20 6f 62 6a 65 63 74 63 6c 61 73 73 2c 20 73 74 objectclass, st
196f0 72 75 63 74 20 63 61 63 6b 65 79 5f 70 63 73 63 ruct cackey_pcsc
19700 5f 69 64 65 6e 74 69 74 79 20 2a 69 64 65 6e 74 _identity *ident
19710 69 74 79 2c 20 75 6e 73 69 67 6e 65 64 20 6c 6f ity, unsigned lo
19720 6e 67 20 69 64 65 6e 74 69 74 79 5f 6e 75 6d 2c ng identity_num,
19730 20 43 4b 5f 55 4c 4f 4e 47 5f 50 54 52 20 70 75 CK_ULONG_PTR pu
19740 6c 43 6f 75 6e 74 29 20 7b 0a 09 73 74 61 74 69 lCount) {..stati
19750 63 20 43 4b 5f 42 42 4f 4f 4c 20 63 6b 5f 74 72 c CK_BBOOL ck_tr
19760 75 65 20 3d 20 31 3b 0a 09 73 74 61 74 69 63 20 ue = 1;..static
19770 43 4b 5f 42 42 4f 4f 4c 20 63 6b 5f 66 61 6c 73 CK_BBOOL ck_fals
19780 65 20 3d 20 30 3b 0a 09 73 74 61 74 69 63 20 43 e = 0;..static C
19790 4b 5f 54 52 55 53 54 20 63 6b 5f 74 72 75 73 74 K_TRUST ck_trust
197a0 65 64 20 3d 20 43 4b 5f 54 52 55 53 54 45 44 5f ed = CK_TRUSTED_
197b0 44 45 4c 45 47 41 54 4f 52 3b 0a 09 43 4b 5f 55 DELEGATOR;..CK_U
197c0 4c 4f 4e 47 20 6e 75 6d 61 74 74 72 73 20 3d 20 LONG numattrs =
197d0 30 2c 20 72 65 74 76 61 6c 5f 63 6f 75 6e 74 3b 0, retval_count;
197e0 0a 09 43 4b 5f 41 54 54 52 49 42 55 54 45 5f 54 ..CK_ATTRIBUTE_T
197f0 59 50 45 20 63 75 72 72 5f 61 74 74 72 5f 74 79 YPE curr_attr_ty
19800 70 65 3b 0a 09 43 4b 5f 41 54 54 52 49 42 55 54 pe;..CK_ATTRIBUT
19810 45 20 63 75 72 72 5f 61 74 74 72 2c 20 2a 72 65 E curr_attr, *re
19820 74 76 61 6c 3b 0a 09 43 4b 5f 56 4f 49 44 5f 50 tval;..CK_VOID_P
19830 54 52 20 70 56 61 6c 75 65 3b 0a 09 43 4b 5f 55 TR pValue;..CK_U
19840 4c 4f 4e 47 20 75 6c 56 61 6c 75 65 4c 65 6e 3b LONG ulValueLen;
19850 0a 09 43 4b 5f 4f 42 4a 45 43 54 5f 43 4c 41 53 ..CK_OBJECT_CLAS
19860 53 20 63 6b 5f 6f 62 6a 65 63 74 5f 63 6c 61 73 S ck_object_clas
19870 73 3b 0a 09 43 4b 5f 43 45 52 54 49 46 49 43 41 s;..CK_CERTIFICA
19880 54 45 5f 54 59 50 45 20 63 6b 5f 63 65 72 74 69 TE_TYPE ck_certi
19890 66 69 63 61 74 65 5f 74 79 70 65 3b 0a 09 43 4b ficate_type;..CK
198a0 5f 4b 45 59 5f 54 59 50 45 20 63 6b 5f 6b 65 79 _KEY_TYPE ck_key
198b0 5f 74 79 70 65 3b 0a 09 43 4b 5f 55 54 46 38 43 _type;..CK_UTF8C
198c0 48 41 52 20 75 63 54 6d 70 42 75 66 5b 31 30 32 HAR ucTmpBuf[102
198d0 34 5d 3b 0a 09 53 48 41 31 43 6f 6e 74 65 78 74 4];..SHA1Context
198e0 20 73 68 61 31 5f 63 74 78 3b 0a 09 4d 44 35 5f sha1_ctx;..MD5_
198f0 43 54 58 20 6d 64 35 5f 63 74 78 3b 0a 09 75 69 CTX md5_ctx;..ui
19900 6e 74 38 5f 74 20 73 68 61 31 5f 68 61 73 68 5b nt8_t sha1_hash[
19910 53 48 41 31 48 61 73 68 53 69 7a 65 5d 3b 0a 09 SHA1HashSize];..
19920 75 69 6e 74 38 5f 74 20 6d 64 35 5f 68 61 73 68 uint8_t md5_hash
19930 5b 4d 44 35 48 61 73 68 53 69 7a 65 5d 3b 0a 09 [MD5HashSize];..
19940 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 63 unsigned char *c
19950 65 72 74 69 66 69 63 61 74 65 3b 0a 09 73 73 69 ertificate;..ssi
19960 7a 65 5f 74 20 63 65 72 74 69 66 69 63 61 74 65 ze_t certificate
19970 5f 6c 65 6e 20 3d 20 2d 31 2c 20 78 35 30 39 5f _len = -1, x509_
19980 72 65 61 64 5f 72 65 74 3b 0a 09 69 6e 74 20 70 read_ret;..int p
19990 56 61 6c 75 65 5f 66 72 65 65 3b 0a 0a 09 43 41 Value_free;...CA
199a0 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
199b0 46 28 22 43 61 6c 6c 65 64 20 28 6f 62 6a 65 63 F("Called (objec
199c0 74 43 6c 61 73 73 20 3d 20 25 6c 75 2c 20 69 64 tClass = %lu, id
199d0 65 6e 74 69 74 79 5f 6e 75 6d 20 3d 20 25 6c 75 entity_num = %lu
199e0 29 2e 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c ).", (unsigned l
199f0 6f 6e 67 29 20 6f 62 6a 65 63 74 63 6c 61 73 73 ong) objectclass
19a00 2c 20 69 64 65 6e 74 69 74 79 5f 6e 75 6d 29 3b , identity_num);
19a10 0a 0a 09 2a 70 75 6c 43 6f 75 6e 74 20 3d 20 30 ...*pulCount = 0
19a20 3b 0a 0a 09 69 66 20 28 6f 62 6a 65 63 74 63 6c ;...if (objectcl
19a30 61 73 73 20 21 3d 20 43 4b 4f 5f 43 45 52 54 49 ass != CKO_CERTI
19a40 46 49 43 41 54 45 20 26 26 20 6f 62 6a 65 63 74 FICATE && object
19a50 63 6c 61 73 73 20 21 3d 20 43 4b 4f 5f 50 55 42 class != CKO_PUB
19a60 4c 49 43 5f 4b 45 59 20 26 26 20 6f 62 6a 65 63 LIC_KEY && objec
19a70 74 63 6c 61 73 73 20 21 3d 20 43 4b 4f 5f 50 52 tclass != CKO_PR
19a80 49 56 41 54 45 5f 4b 45 59 20 26 26 20 6f 62 6a IVATE_KEY && obj
19a90 65 63 74 63 6c 61 73 73 20 21 3d 20 43 4b 4f 5f ectclass != CKO_
19aa0 4e 45 54 53 43 41 50 45 5f 54 52 55 53 54 29 20 NETSCAPE_TRUST)
19ab0 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
19ac0 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 _PRINTF("Returni
19ad0 6e 67 20 30 20 6f 62 6a 65 63 74 73 20 28 4e 55 ng 0 objects (NU
19ae0 4c 4c 29 2c 20 69 6e 76 61 6c 69 64 20 6f 62 6a LL), invalid obj
19af0 65 63 74 20 63 6c 61 73 73 22 29 3b 0a 0a 09 09 ect class");....
19b00 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d return(NULL);..}
19b10 0a 0a 09 2f 2a 20 47 65 74 20 43 65 72 74 20 2a .../* Get Cert *
19b20 2f 0a 09 69 66 20 28 69 64 65 6e 74 69 74 79 20 /..if (identity
19b30 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 == NULL) {...CAC
19b40 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
19b50 28 22 52 65 74 75 72 6e 69 6e 67 20 30 20 6f 62 ("Returning 0 ob
19b60 6a 65 63 74 73 20 28 4e 55 4c 4c 29 2c 20 69 6e jects (NULL), in
19b70 76 61 6c 69 64 20 69 64 65 6e 74 69 79 20 70 72 valid identiy pr
19b80 6f 76 69 64 65 64 22 29 3b 0a 0a 09 09 72 65 74 ovided");....ret
19b90 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 urn(NULL);..}...
19ba0 63 65 72 74 69 66 69 63 61 74 65 20 3d 20 69 64 certificate = id
19bb0 65 6e 74 69 74 79 2d 3e 63 65 72 74 69 66 69 63 entity->certific
19bc0 61 74 65 3b 0a 09 63 65 72 74 69 66 69 63 61 74 ate;..certificat
19bd0 65 5f 6c 65 6e 20 3d 20 69 64 65 6e 74 69 74 79 e_len = identity
19be0 2d 3e 63 65 72 74 69 66 69 63 61 74 65 5f 6c 65 ->certificate_le
19bf0 6e 3b 0a 0a 09 69 66 20 28 63 65 72 74 69 66 69 n;...if (certifi
19c00 63 61 74 65 5f 6c 65 6e 20 3d 3d 20 2d 31 20 7c cate_len == -1 |
19c10 7c 20 63 65 72 74 69 66 69 63 61 74 65 20 3d 3d | certificate ==
19c20 20 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b 45 NULL) {...CACKE
19c30 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
19c40 52 65 74 75 72 6e 69 6e 67 20 30 20 6f 62 6a 65 Returning 0 obje
19c50 63 74 73 20 28 4e 55 4c 4c 29 2c 20 74 68 69 73 cts (NULL), this
19c60 20 69 64 65 6e 74 69 74 79 20 64 6f 65 73 20 6e identity does n
19c70 6f 74 20 68 61 76 65 20 61 6e 20 58 2e 35 30 39 ot have an X.509
19c80 20 63 65 72 74 69 66 69 63 61 74 65 20 61 73 73 certificate ass
19c90 6f 63 69 61 74 65 64 20 77 69 74 68 20 69 74 20 ociated with it
19ca0 61 6e 64 20 77 69 6c 6c 20 6e 6f 74 20 77 6f 72 and will not wor
19cb0 6b 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e k");....return(N
19cc0 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 2f 2a 20 56 65 ULL);..}.../* Ve
19cd0 72 69 66 79 20 74 68 61 74 20 63 65 72 74 69 66 rify that certif
19ce0 69 63 61 74 65 20 69 73 20 41 53 4e 2e 31 20 65 icate is ASN.1 e
19cf0 6e 63 6f 64 65 64 20 58 2e 35 30 39 20 63 65 72 ncoded X.509 cer
19d00 74 69 66 69 63 61 74 65 20 2a 2f 0a 09 69 66 20 tificate */..if
19d10 28 78 35 30 39 5f 74 6f 5f 73 65 72 69 61 6c 28 (x509_to_serial(
19d20 63 65 72 74 69 66 69 63 61 74 65 2c 20 63 65 72 certificate, cer
19d30 74 69 66 69 63 61 74 65 5f 6c 65 6e 2c 20 4e 55 tificate_len, NU
19d40 4c 4c 29 20 3c 20 30 29 20 7b 0a 09 09 43 41 43 LL) < 0) {...CAC
19d50 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
19d60 28 22 52 65 74 75 72 6e 69 6e 67 20 30 20 6f 62 ("Returning 0 ob
19d70 6a 65 63 74 73 20 28 4e 55 4c 4c 29 2c 20 74 68 jects (NULL), th
19d80 65 20 58 2e 35 30 39 20 63 65 72 74 69 66 69 63 e X.509 certific
19d90 61 74 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 ate associated w
19da0 69 74 68 20 74 68 69 73 20 69 64 65 6e 74 69 74 ith this identit
19db0 79 20 69 73 20 6e 6f 74 20 76 61 6c 69 64 22 29 y is not valid")
19dc0 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e 55 4c 4c ;....return(NULL
19dd0 29 3b 0a 09 7d 0a 0a 09 72 65 74 76 61 6c 5f 63 );..}...retval_c
19de0 6f 75 6e 74 20 3d 20 36 34 3b 0a 09 72 65 74 76 ount = 64;..retv
19df0 61 6c 20 3d 20 6d 61 6c 6c 6f 63 28 72 65 74 76 al = malloc(retv
19e00 61 6c 5f 63 6f 75 6e 74 20 2a 20 73 69 7a 65 6f al_count * sizeo
19e10 66 28 2a 72 65 74 76 61 6c 29 29 3b 0a 0a 09 66 f(*retval));...f
19e20 6f 72 20 28 63 75 72 72 5f 61 74 74 72 5f 74 79 or (curr_attr_ty
19e30 70 65 20 3d 20 30 3b 20 63 75 72 72 5f 61 74 74 pe = 0; curr_att
19e40 72 5f 74 79 70 65 20 3c 20 30 78 63 65 35 33 36 r_type < 0xce536
19e50 33 62 66 3b 20 63 75 72 72 5f 61 74 74 72 5f 74 3bf; curr_attr_t
19e60 79 70 65 2b 2b 29 20 7b 0a 09 09 69 66 20 28 63 ype++) {...if (c
19e70 75 72 72 5f 61 74 74 72 5f 74 79 70 65 20 3d 3d urr_attr_type ==
19e80 20 30 78 38 30 30 29 20 7b 0a 09 09 09 63 75 72 0x800) {....cur
19e90 72 5f 61 74 74 72 5f 74 79 70 65 20 3d 20 30 78 r_attr_type = 0x
19ea0 63 65 35 33 36 33 30 30 3b 0a 09 09 7d 0a 0a 09 ce536300;...}...
19eb0 09 70 56 61 6c 75 65 5f 66 72 65 65 20 3d 20 30 .pValue_free = 0
19ec0 3b 0a 09 09 70 56 61 6c 75 65 20 3d 20 4e 55 4c ;...pValue = NUL
19ed0 4c 3b 0a 09 09 75 6c 56 61 6c 75 65 4c 65 6e 20 L;...ulValueLen
19ee0 3d 20 28 43 4b 5f 4c 4f 4e 47 29 20 2d 31 3b 0a = (CK_LONG) -1;.
19ef0 0a 09 09 73 77 69 74 63 68 20 28 63 75 72 72 5f ...switch (curr_
19f00 61 74 74 72 5f 74 79 70 65 29 20 7b 0a 09 09 09 attr_type) {....
19f10 63 61 73 65 20 43 4b 41 5f 43 4c 41 53 53 3a 0a case CKA_CLASS:.
19f20 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
19f30 5f 50 52 49 4e 54 46 28 22 52 65 71 75 65 73 74 _PRINTF("Request
19f40 69 6e 67 20 61 74 74 72 69 62 75 74 65 20 43 4b ing attribute CK
19f50 41 5f 43 4c 41 53 53 20 28 30 78 25 30 38 6c 78 A_CLASS (0x%08lx
19f60 29 20 2e 2e 2e 22 2c 20 28 75 6e 73 69 67 6e 65 ) ...", (unsigne
19f70 64 20 6c 6f 6e 67 29 20 63 75 72 72 5f 61 74 74 d long) curr_att
19f80 72 5f 74 79 70 65 29 3b 0a 0a 09 09 09 09 63 6b r_type);......ck
19f90 5f 6f 62 6a 65 63 74 5f 63 6c 61 73 73 20 3d 20 _object_class =
19fa0 6f 62 6a 65 63 74 63 6c 61 73 73 3b 0a 0a 09 09 objectclass;....
19fb0 09 09 70 56 61 6c 75 65 20 3d 20 26 63 6b 5f 6f ..pValue = &ck_o
19fc0 62 6a 65 63 74 5f 63 6c 61 73 73 3b 0a 09 09 09 bject_class;....
19fd0 09 75 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 73 69 .ulValueLen = si
19fe0 7a 65 6f 66 28 63 6b 5f 6f 62 6a 65 63 74 5f 63 zeof(ck_object_c
19ff0 6c 61 73 73 29 3b 0a 0a 09 09 09 09 43 41 43 4b lass);......CACK
1a000 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
1a010 22 20 2e 2e 2e 20 72 65 74 75 72 6e 69 6e 67 20 " ... returning
1a020 25 6c 75 20 28 25 70 2f 25 6c 75 29 22 2c 20 28 %lu (%p/%lu)", (
1a030 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 2a unsigned long) *
1a040 28 28 43 4b 5f 4f 42 4a 45 43 54 5f 43 4c 41 53 ((CK_OBJECT_CLAS
1a050 53 20 2a 29 20 70 56 61 6c 75 65 29 2c 20 70 56 S *) pValue), pV
1a060 61 6c 75 65 2c 20 28 75 6e 73 69 67 6e 65 64 20 alue, (unsigned
1a070 6c 6f 6e 67 29 20 75 6c 56 61 6c 75 65 4c 65 6e long) ulValueLen
1a080 29 3b 0a 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 );......break;..
1a090 09 09 63 61 73 65 20 43 4b 41 5f 54 4f 4b 45 4e ..case CKA_TOKEN
1a0a0 3a 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 :.....CACKEY_DEB
1a0b0 55 47 5f 50 52 49 4e 54 46 28 22 52 65 71 75 65 UG_PRINTF("Reque
1a0c0 73 74 69 6e 67 20 61 74 74 72 69 62 75 74 65 20 sting attribute
1a0d0 43 4b 41 5f 54 4f 4b 45 4e 20 28 30 78 25 30 38 CKA_TOKEN (0x%08
1a0e0 6c 78 29 20 2e 2e 2e 22 2c 20 28 75 6e 73 69 67 lx) ...", (unsig
1a0f0 6e 65 64 20 6c 6f 6e 67 29 20 63 75 72 72 5f 61 ned long) curr_a
1a100 74 74 72 5f 74 79 70 65 29 3b 0a 0a 09 09 09 09 ttr_type);......
1a110 70 56 61 6c 75 65 20 3d 20 26 63 6b 5f 74 72 75 pValue = &ck_tru
1a120 65 3b 0a 09 09 09 09 75 6c 56 61 6c 75 65 4c 65 e;.....ulValueLe
1a130 6e 20 3d 20 73 69 7a 65 6f 66 28 63 6b 5f 74 72 n = sizeof(ck_tr
1a140 75 65 29 3b 0a 0a 09 09 09 09 43 41 43 4b 45 59 ue);......CACKEY
1a150 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 20 _DEBUG_PRINTF("
1a160 2e 2e 2e 20 72 65 74 75 72 6e 69 6e 67 20 25 6c ... returning %l
1a170 75 20 28 25 70 2f 25 6c 75 29 22 2c 20 28 75 6e u (%p/%lu)", (un
1a180 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 2a 28 28 signed long) *((
1a190 43 4b 5f 42 42 4f 4f 4c 20 2a 29 20 70 56 61 6c CK_BBOOL *) pVal
1a1a0 75 65 29 2c 20 70 56 61 6c 75 65 2c 20 28 75 6e ue), pValue, (un
1a1b0 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 75 6c 56 signed long) ulV
1a1c0 61 6c 75 65 4c 65 6e 29 3b 0a 0a 09 09 09 09 62 alueLen);......b
1a1d0 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 43 4b reak;....case CK
1a1e0 41 5f 50 52 49 56 41 54 45 3a 0a 09 09 09 09 43 A_PRIVATE:.....C
1a1f0 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
1a200 54 46 28 22 52 65 71 75 65 73 74 69 6e 67 20 61 TF("Requesting a
1a210 74 74 72 69 62 75 74 65 20 43 4b 41 5f 50 52 49 ttribute CKA_PRI
1a220 56 41 54 45 20 28 30 78 25 30 38 6c 78 29 20 2e VATE (0x%08lx) .
1a230 2e 2e 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c ..", (unsigned l
1a240 6f 6e 67 29 20 63 75 72 72 5f 61 74 74 72 5f 74 ong) curr_attr_t
1a250 79 70 65 29 3b 0a 0a 09 09 09 09 69 66 20 28 6f ype);......if (o
1a260 62 6a 65 63 74 63 6c 61 73 73 20 21 3d 20 43 4b bjectclass != CK
1a270 4f 5f 4e 45 54 53 43 41 50 45 5f 54 52 55 53 54 O_NETSCAPE_TRUST
1a280 29 20 7b 0a 09 09 09 09 09 43 41 43 4b 45 59 5f ) {......CACKEY_
1a290 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 20 2e DEBUG_PRINTF(" .
1a2a0 2e 2e 20 62 75 74 20 6e 6f 74 20 67 65 74 74 69 .. but not getti
1a2b0 6e 67 20 69 74 20 62 65 63 61 75 73 65 20 77 65 ng it because we
1a2c0 20 61 72 65 20 6e 6f 74 20 61 20 4e 65 74 73 63 are not a Netsc
1a2d0 61 70 65 20 74 72 75 73 74 20 6f 62 6a 65 63 74 ape trust object
1a2e0 22 29 3b 0a 0a 09 09 09 09 09 62 72 65 61 6b 3b ");.......break;
1a2f0 0a 09 09 09 09 7d 0a 0a 09 09 09 09 70 56 61 6c .....}......pVal
1a300 75 65 20 3d 20 26 63 6b 5f 66 61 6c 73 65 3b 0a ue = &ck_false;.
1a310 09 09 09 09 75 6c 56 61 6c 75 65 4c 65 6e 20 3d ....ulValueLen =
1a320 20 73 69 7a 65 6f 66 28 63 6b 5f 66 61 6c 73 65 sizeof(ck_false
1a330 29 3b 0a 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 );......CACKEY_D
1a340 45 42 55 47 5f 50 52 49 4e 54 46 28 22 20 2e 2e EBUG_PRINTF(" ..
1a350 2e 20 72 65 74 75 72 6e 69 6e 67 20 25 6c 75 20 . returning %lu
1a360 28 25 70 2f 25 6c 75 29 22 2c 20 28 75 6e 73 69 (%p/%lu)", (unsi
1a370 67 6e 65 64 20 6c 6f 6e 67 29 20 2a 28 28 43 4b gned long) *((CK
1a380 5f 42 42 4f 4f 4c 20 2a 29 20 70 56 61 6c 75 65 _BBOOL *) pValue
1a390 29 2c 20 70 56 61 6c 75 65 2c 20 28 75 6e 73 69 ), pValue, (unsi
1a3a0 67 6e 65 64 20 6c 6f 6e 67 29 20 75 6c 56 61 6c gned long) ulVal
1a3b0 75 65 4c 65 6e 29 3b 0a 0a 09 09 09 09 62 72 65 ueLen);......bre
1a3c0 61 6b 3b 0a 09 09 09 63 61 73 65 20 43 4b 41 5f ak;....case CKA_
1a3d0 54 52 55 53 54 45 44 3a 0a 09 09 09 09 43 41 43 TRUSTED:.....CAC
1a3e0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
1a3f0 28 22 52 65 71 75 65 73 74 69 6e 67 20 61 74 74 ("Requesting att
1a400 72 69 62 75 74 65 20 43 4b 41 5f 54 52 55 53 54 ribute CKA_TRUST
1a410 45 44 20 28 30 78 25 30 38 6c 78 29 20 2e 2e 2e ED (0x%08lx) ...
1a420 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e ", (unsigned lon
1a430 67 29 20 63 75 72 72 5f 61 74 74 72 5f 74 79 70 g) curr_attr_typ
1a440 65 29 3b 0a 0a 09 09 09 09 69 66 20 28 6f 62 6a e);......if (obj
1a450 65 63 74 63 6c 61 73 73 20 3d 3d 20 43 4b 4f 5f ectclass == CKO_
1a460 4e 45 54 53 43 41 50 45 5f 54 52 55 53 54 29 20 NETSCAPE_TRUST)
1a470 7b 0a 09 09 09 09 09 43 41 43 4b 45 59 5f 44 45 {......CACKEY_DE
1a480 42 55 47 5f 50 52 49 4e 54 46 28 22 20 2e 2e 2e BUG_PRINTF(" ...
1a490 20 62 75 74 20 6e 6f 74 20 67 65 74 74 69 6e 67 but not getting
1a4a0 20 69 74 20 62 65 63 61 75 73 65 20 77 65 20 61 it because we a
1a4b0 72 65 20 61 20 4e 65 74 73 63 61 70 65 20 74 72 re a Netscape tr
1a4c0 75 73 74 20 6f 62 6a 65 63 74 22 29 3b 0a 0a 09 ust object");...
1a4d0 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 7d ....break;.....}
1a4e0 0a 0a 09 09 09 09 70 56 61 6c 75 65 20 3d 20 26 ......pValue = &
1a4f0 63 6b 5f 74 72 75 65 3b 0a 09 09 09 09 75 6c 56 ck_true;.....ulV
1a500 61 6c 75 65 4c 65 6e 20 3d 20 73 69 7a 65 6f 66 alueLen = sizeof
1a510 28 63 6b 5f 74 72 75 65 29 3b 0a 0a 09 09 09 09 (ck_true);......
1a520 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
1a530 4e 54 46 28 22 20 2e 2e 2e 20 72 65 74 75 72 6e NTF(" ... return
1a540 69 6e 67 20 25 6c 75 20 28 25 70 2f 25 6c 75 29 ing %lu (%p/%lu)
1a550 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e ", (unsigned lon
1a560 67 29 20 2a 28 28 43 4b 5f 42 42 4f 4f 4c 20 2a g) *((CK_BBOOL *
1a570 29 20 70 56 61 6c 75 65 29 2c 20 70 56 61 6c 75 ) pValue), pValu
1a580 65 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e e, (unsigned lon
1a590 67 29 20 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a g) ulValueLen);.
1a5a0 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 63 .....break;....c
1a5b0 61 73 65 20 43 4b 41 5f 4d 4f 44 49 46 49 41 42 ase CKA_MODIFIAB
1a5c0 4c 45 3a 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 LE:.....CACKEY_D
1a5d0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 71 EBUG_PRINTF("Req
1a5e0 75 65 73 74 69 6e 67 20 61 74 74 72 69 62 75 74 uesting attribut
1a5f0 65 20 43 4b 41 5f 4d 4f 44 49 46 49 41 42 4c 45 e CKA_MODIFIABLE
1a600 20 28 30 78 25 30 38 6c 78 29 20 2e 2e 2e 22 2c (0x%08lx) ...",
1a610 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 (unsigned long)
1a620 20 63 75 72 72 5f 61 74 74 72 5f 74 79 70 65 29 curr_attr_type)
1a630 3b 0a 0a 09 09 09 09 70 56 61 6c 75 65 20 3d 20 ;......pValue =
1a640 26 63 6b 5f 66 61 6c 73 65 3b 0a 09 09 09 09 75 &ck_false;.....u
1a650 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 73 69 7a 65 lValueLen = size
1a660 6f 66 28 63 6b 5f 66 61 6c 73 65 29 3b 0a 0a 09 of(ck_false);...
1a670 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
1a680 50 52 49 4e 54 46 28 22 20 2e 2e 2e 20 72 65 74 PRINTF(" ... ret
1a690 75 72 6e 69 6e 67 20 25 6c 75 20 28 25 70 2f 25 urning %lu (%p/%
1a6a0 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 lu)", (unsigned
1a6b0 6c 6f 6e 67 29 20 2a 28 28 43 4b 5f 42 42 4f 4f long) *((CK_BBOO
1a6c0 4c 20 2a 29 20 70 56 61 6c 75 65 29 2c 20 70 56 L *) pValue), pV
1a6d0 61 6c 75 65 2c 20 28 75 6e 73 69 67 6e 65 64 20 alue, (unsigned
1a6e0 6c 6f 6e 67 29 20 75 6c 56 61 6c 75 65 4c 65 6e long) ulValueLen
1a6f0 29 3b 0a 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 );......break;..
1a700 09 09 63 61 73 65 20 43 4b 41 5f 4c 41 42 45 4c ..case CKA_LABEL
1a710 3a 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 :.....CACKEY_DEB
1a720 55 47 5f 50 52 49 4e 54 46 28 22 52 65 71 75 65 UG_PRINTF("Reque
1a730 73 74 69 6e 67 20 61 74 74 72 69 62 75 74 65 20 sting attribute
1a740 43 4b 41 5f 4c 41 42 45 4c 20 28 30 78 25 30 38 CKA_LABEL (0x%08
1a750 6c 78 29 20 2e 2e 2e 22 2c 20 28 75 6e 73 69 67 lx) ...", (unsig
1a760 6e 65 64 20 6c 6f 6e 67 29 20 63 75 72 72 5f 61 ned long) curr_a
1a770 74 74 72 5f 74 79 70 65 29 3b 0a 0a 09 09 09 09 ttr_type);......
1a780 69 66 20 28 69 64 65 6e 74 69 74 79 2d 3e 69 64 if (identity->id
1a790 5f 74 79 70 65 20 3d 3d 20 43 41 43 4b 45 59 5f _type == CACKEY_
1a7a0 49 44 5f 54 59 50 45 5f 50 49 56 29 20 7b 0a 09 ID_TYPE_PIV) {..
1a7b0 09 09 09 09 70 56 61 6c 75 65 20 3d 20 69 64 65 ....pValue = ide
1a7c0 6e 74 69 74 79 2d 3e 63 61 72 64 2e 70 69 76 2e ntity->card.piv.
1a7d0 6c 61 62 65 6c 3b 0a 09 09 09 09 09 75 6c 56 61 label;......ulVa
1a7e0 6c 75 65 4c 65 6e 20 3d 20 73 74 72 6c 65 6e 28 lueLen = strlen(
1a7f0 70 56 61 6c 75 65 29 3b 0a 09 09 09 09 7d 20 65 pValue);.....} e
1a800 6c 73 65 20 7b 0a 09 09 09 09 09 75 6c 56 61 6c lse {......ulVal
1a810 75 65 4c 65 6e 20 3d 20 73 6e 70 72 69 6e 74 66 ueLen = snprintf
1a820 28 28 63 68 61 72 20 2a 29 20 75 63 54 6d 70 42 ((char *) ucTmpB
1a830 75 66 2c 20 73 69 7a 65 6f 66 28 75 63 54 6d 70 uf, sizeof(ucTmp
1a840 42 75 66 29 2c 20 22 49 64 65 6e 74 69 74 79 20 Buf), "Identity
1a850 23 25 6c 75 22 2c 20 28 75 6e 73 69 67 6e 65 64 #%lu", (unsigned
1a860 20 6c 6f 6e 67 29 20 69 64 65 6e 74 69 74 79 5f long) identity_
1a870 6e 75 6d 29 3b 0a 09 09 09 09 09 70 56 61 6c 75 num);......pValu
1a880 65 20 3d 20 75 63 54 6d 70 42 75 66 3b 0a 0a 09 e = ucTmpBuf;...
1a890 09 09 09 09 69 66 20 28 75 6c 56 61 6c 75 65 4c ....if (ulValueL
1a8a0 65 6e 20 3e 3d 20 73 69 7a 65 6f 66 28 75 63 54 en >= sizeof(ucT
1a8b0 6d 70 42 75 66 29 29 20 7b 0a 09 09 09 09 09 09 mpBuf)) {.......
1a8c0 75 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 30 3b 0a ulValueLen = 0;.
1a8d0 09 09 09 09 09 09 70 56 61 6c 75 65 20 3d 20 4e ......pValue = N
1a8e0 55 4c 4c 3b 0a 09 09 09 09 09 7d 0a 09 09 09 09 ULL;......}.....
1a8f0 7d 0a 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 }......CACKEY_DE
1a900 42 55 47 5f 50 52 49 4e 54 46 28 22 20 2e 2e 2e BUG_PRINTF(" ...
1a910 20 72 65 74 75 72 6e 69 6e 67 20 28 25 70 2f 25 returning (%p/%
1a920 6c 75 29 22 2c 20 70 56 61 6c 75 65 2c 20 28 75 lu)", pValue, (u
1a930 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 75 6c nsigned long) ul
1a940 56 61 6c 75 65 4c 65 6e 29 3b 0a 0a 09 09 09 09 ValueLen);......
1a950 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 43 break;....case C
1a960 4b 41 5f 56 41 4c 55 45 3a 0a 09 09 09 09 43 41 KA_VALUE:.....CA
1a970 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
1a980 46 28 22 52 65 71 75 65 73 74 69 6e 67 20 61 74 F("Requesting at
1a990 74 72 69 62 75 74 65 20 43 4b 41 5f 56 41 4c 55 tribute CKA_VALU
1a9a0 45 20 28 30 78 25 30 38 6c 78 29 20 2e 2e 2e 22 E (0x%08lx) ..."
1a9b0 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 , (unsigned long
1a9c0 29 20 63 75 72 72 5f 61 74 74 72 5f 74 79 70 65 ) curr_attr_type
1a9d0 29 3b 0a 0a 09 09 09 09 73 77 69 74 63 68 20 28 );......switch (
1a9e0 6f 62 6a 65 63 74 63 6c 61 73 73 29 20 7b 0a 09 objectclass) {..
1a9f0 09 09 09 09 63 61 73 65 20 43 4b 4f 5f 50 52 49 ....case CKO_PRI
1aa00 56 41 54 45 5f 4b 45 59 3a 0a 09 09 09 09 09 09 VATE_KEY:.......
1aa10 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
1aa20 4e 54 46 28 22 20 2e 2e 2e 20 62 75 74 20 6e 6f NTF(" ... but no
1aa30 74 20 67 65 74 74 69 6e 67 20 69 74 20 62 65 63 t getting it bec
1aa40 61 75 73 65 20 77 65 20 61 72 65 20 61 20 70 72 ause we are a pr
1aa50 69 76 61 74 65 20 6b 65 79 2e 22 29 3b 0a 0a 09 ivate key.");...
1aa60 09 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 .....break;.....
1aa70 09 63 61 73 65 20 43 4b 4f 5f 4e 45 54 53 43 41 .case CKO_NETSCA
1aa80 50 45 5f 54 52 55 53 54 3a 0a 09 09 09 09 09 09 PE_TRUST:.......
1aa90 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
1aaa0 4e 54 46 28 22 20 2e 2e 2e 20 62 75 74 20 6e 6f NTF(" ... but no
1aab0 74 20 67 65 74 74 69 6e 67 20 69 74 20 62 65 63 t getting it bec
1aac0 61 75 73 65 20 77 65 20 61 72 65 20 61 20 4e 65 ause we are a Ne
1aad0 74 73 63 61 70 65 20 74 72 75 73 74 20 6f 62 6a tscape trust obj
1aae0 65 63 74 22 29 3b 0a 0a 09 09 09 09 09 09 62 72 ect");........br
1aaf0 65 61 6b 3b 0a 09 09 09 09 09 63 61 73 65 20 43 eak;......case C
1ab00 4b 4f 5f 50 55 42 4c 49 43 5f 4b 45 59 3a 0a 09 KO_PUBLIC_KEY:..
1ab10 09 09 09 09 09 69 66 20 28 63 65 72 74 69 66 69 .....if (certifi
1ab20 63 61 74 65 5f 6c 65 6e 20 3e 3d 20 30 29 20 7b cate_len >= 0) {
1ab30 0a 09 09 09 09 09 09 09 78 35 30 39 5f 72 65 61 ........x509_rea
1ab40 64 5f 72 65 74 20 3d 20 78 35 30 39 5f 74 6f 5f d_ret = x509_to_
1ab50 70 75 62 6b 65 79 28 63 65 72 74 69 66 69 63 61 pubkey(certifica
1ab60 74 65 2c 20 63 65 72 74 69 66 69 63 61 74 65 5f te, certificate_
1ab70 6c 65 6e 2c 20 26 70 56 61 6c 75 65 29 3b 0a 09 len, &pValue);..
1ab80 09 09 09 09 09 09 69 66 20 28 78 35 30 39 5f 72 ......if (x509_r
1ab90 65 61 64 5f 72 65 74 20 3c 20 30 29 20 7b 20 0a ead_ret < 0) { .
1aba0 09 09 09 09 09 09 09 09 70 56 61 6c 75 65 20 3d ........pValue =
1abb0 20 4e 55 4c 4c 3b 0a 09 09 09 09 09 09 09 7d 20 NULL;........}
1abc0 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 09 09 75 else {.........u
1abd0 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 78 35 30 39 lValueLen = x509
1abe0 5f 72 65 61 64 5f 72 65 74 3b 0a 09 09 09 09 09 _read_ret;......
1abf0 09 09 7d 0a 09 09 09 09 09 09 7d 0a 0a 09 09 09 ..}.......}.....
1ac00 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 09 63 ...break;......c
1ac10 61 73 65 20 43 4b 4f 5f 43 45 52 54 49 46 49 43 ase CKO_CERTIFIC
1ac20 41 54 45 3a 0a 09 09 09 09 09 09 70 56 61 6c 75 ATE:.......pValu
1ac30 65 20 3d 20 63 65 72 74 69 66 69 63 61 74 65 3b e = certificate;
1ac40 0a 09 09 09 09 09 09 75 6c 56 61 6c 75 65 4c 65 .......ulValueLe
1ac50 6e 20 3d 20 63 65 72 74 69 66 69 63 61 74 65 5f n = certificate_
1ac60 6c 65 6e 3b 0a 0a 09 09 09 09 09 09 62 72 65 61 len;........brea
1ac70 6b 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 09 43 41 k;.....}......CA
1ac80 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
1ac90 46 28 22 20 2e 2e 2e 20 72 65 74 75 72 6e 69 6e F(" ... returnin
1aca0 67 20 25 70 2f 25 6c 75 22 2c 20 70 56 61 6c 75 g %p/%lu", pValu
1acb0 65 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e e, (unsigned lon
1acc0 67 29 20 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a g) ulValueLen);.
1acd0 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 63 .....break;....c
1ace0 61 73 65 20 43 4b 41 5f 49 53 53 55 45 52 3a 0a ase CKA_ISSUER:.
1acf0 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
1ad00 5f 50 52 49 4e 54 46 28 22 52 65 71 75 65 73 74 _PRINTF("Request
1ad10 69 6e 67 20 61 74 74 72 69 62 75 74 65 20 43 4b ing attribute CK
1ad20 41 5f 49 53 53 55 45 52 20 28 30 78 25 30 38 6c A_ISSUER (0x%08l
1ad30 78 29 20 2e 2e 2e 22 2c 20 28 75 6e 73 69 67 6e x) ...", (unsign
1ad40 65 64 20 6c 6f 6e 67 29 20 63 75 72 72 5f 61 74 ed long) curr_at
1ad50 74 72 5f 74 79 70 65 29 3b 0a 0a 09 09 09 09 69 tr_type);......i
1ad60 66 20 28 6f 62 6a 65 63 74 63 6c 61 73 73 20 21 f (objectclass !
1ad70 3d 20 43 4b 4f 5f 43 45 52 54 49 46 49 43 41 54 = CKO_CERTIFICAT
1ad80 45 20 26 26 20 6f 62 6a 65 63 74 63 6c 61 73 73 E && objectclass
1ad90 20 21 3d 20 43 4b 4f 5f 4e 45 54 53 43 41 50 45 != CKO_NETSCAPE
1ada0 5f 54 52 55 53 54 29 20 7b 0a 09 09 09 09 09 43 _TRUST) {......C
1adb0 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
1adc0 54 46 28 22 20 2e 2e 2e 20 62 75 74 20 6e 6f 74 TF(" ... but not
1add0 20 67 65 74 74 69 6e 67 20 69 74 20 62 65 63 61 getting it beca
1ade0 75 73 65 20 77 65 20 61 72 65 20 6e 6f 74 20 61 use we are not a
1adf0 20 63 65 72 74 69 66 69 63 61 74 65 20 6f 72 20 certificate or
1ae00 4e 65 74 73 63 61 70 65 20 74 72 75 73 74 20 6f Netscape trust o
1ae10 62 6a 65 63 74 22 29 3b 0a 0a 09 09 09 09 09 62 bject");.......b
1ae20 72 65 61 6b 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 reak;.....}.....
1ae30 09 69 66 20 28 63 65 72 74 69 66 69 63 61 74 65 .if (certificate
1ae40 5f 6c 65 6e 20 3e 3d 20 30 29 20 7b 0a 09 09 09 _len >= 0) {....
1ae50 09 09 78 35 30 39 5f 72 65 61 64 5f 72 65 74 20 ..x509_read_ret
1ae60 3d 20 78 35 30 39 5f 74 6f 5f 69 73 73 75 65 72 = x509_to_issuer
1ae70 28 63 65 72 74 69 66 69 63 61 74 65 2c 20 63 65 (certificate, ce
1ae80 72 74 69 66 69 63 61 74 65 5f 6c 65 6e 2c 20 26 rtificate_len, &
1ae90 70 56 61 6c 75 65 29 3b 0a 09 09 09 09 09 69 66 pValue);......if
1aea0 20 28 78 35 30 39 5f 72 65 61 64 5f 72 65 74 20 (x509_read_ret
1aeb0 3c 20 30 29 20 7b 0a 09 09 09 09 09 09 70 56 61 < 0) {.......pVa
1aec0 6c 75 65 20 3d 20 4e 55 4c 4c 3b 0a 09 09 09 09 lue = NULL;.....
1aed0 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 .} else {.......
1aee0 75 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 78 35 30 ulValueLen = x50
1aef0 39 5f 72 65 61 64 5f 72 65 74 3b 0a 09 09 09 09 9_read_ret;.....
1af00 09 7d 0a 09 09 09 09 7d 0a 0a 09 09 09 09 43 41 .}.....}......CA
1af10 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
1af20 46 28 22 20 2e 2e 2e 20 72 65 74 75 72 6e 69 6e F(" ... returnin
1af30 67 20 25 70 2f 25 6c 75 22 2c 20 70 56 61 6c 75 g %p/%lu", pValu
1af40 65 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e e, (unsigned lon
1af50 67 29 20 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a g) ulValueLen);.
1af60 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 63 .....break;....c
1af70 61 73 65 20 43 4b 41 5f 53 45 52 49 41 4c 5f 4e ase CKA_SERIAL_N
1af80 55 4d 42 45 52 3a 0a 09 09 09 09 43 41 43 4b 45 UMBER:.....CACKE
1af90 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
1afa0 52 65 71 75 65 73 74 69 6e 67 20 61 74 74 72 69 Requesting attri
1afb0 62 75 74 65 20 43 4b 41 5f 53 45 52 49 41 4c 5f bute CKA_SERIAL_
1afc0 4e 55 4d 42 45 52 20 28 30 78 25 30 38 6c 78 29 NUMBER (0x%08lx)
1afd0 20 2e 2e 2e 22 2c 20 28 75 6e 73 69 67 6e 65 64 ...", (unsigned
1afe0 20 6c 6f 6e 67 29 20 63 75 72 72 5f 61 74 74 72 long) curr_attr
1aff0 5f 74 79 70 65 29 3b 0a 0a 09 09 09 09 69 66 20 _type);......if
1b000 28 6f 62 6a 65 63 74 63 6c 61 73 73 20 21 3d 20 (objectclass !=
1b010 43 4b 4f 5f 43 45 52 54 49 46 49 43 41 54 45 20 CKO_CERTIFICATE
1b020 26 26 20 6f 62 6a 65 63 74 63 6c 61 73 73 20 21 && objectclass !
1b030 3d 20 43 4b 4f 5f 4e 45 54 53 43 41 50 45 5f 54 = CKO_NETSCAPE_T
1b040 52 55 53 54 29 20 7b 0a 09 09 09 09 09 43 41 43 RUST) {......CAC
1b050 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
1b060 28 22 20 2e 2e 2e 20 62 75 74 20 6e 6f 74 20 67 (" ... but not g
1b070 65 74 74 69 6e 67 20 69 74 20 62 65 63 61 75 73 etting it becaus
1b080 65 20 77 65 20 61 72 65 20 6e 6f 74 20 61 20 63 e we are not a c
1b090 65 72 74 69 66 69 63 61 74 65 20 6f 72 20 4e 65 ertificate or Ne
1b0a0 74 73 63 61 70 65 20 74 72 75 73 74 20 6f 62 6a tscape trust obj
1b0b0 65 63 74 22 29 3b 0a 0a 09 09 09 09 09 62 72 65 ect");.......bre
1b0c0 61 6b 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 09 69 ak;.....}......i
1b0d0 66 20 28 63 65 72 74 69 66 69 63 61 74 65 5f 6c f (certificate_l
1b0e0 65 6e 20 3e 3d 20 30 29 20 7b 0a 09 09 09 09 09 en >= 0) {......
1b0f0 78 35 30 39 5f 72 65 61 64 5f 72 65 74 20 3d 20 x509_read_ret =
1b100 78 35 30 39 5f 74 6f 5f 73 65 72 69 61 6c 28 63 x509_to_serial(c
1b110 65 72 74 69 66 69 63 61 74 65 2c 20 63 65 72 74 ertificate, cert
1b120 69 66 69 63 61 74 65 5f 6c 65 6e 2c 20 26 70 56 ificate_len, &pV
1b130 61 6c 75 65 29 3b 0a 09 09 09 09 09 69 66 20 28 alue);......if (
1b140 78 35 30 39 5f 72 65 61 64 5f 72 65 74 20 3c 20 x509_read_ret <
1b150 30 29 20 7b 0a 09 09 09 09 09 09 70 56 61 6c 75 0) {.......pValu
1b160 65 20 3d 20 4e 55 4c 4c 3b 0a 09 09 09 09 09 7d e = NULL;......}
1b170 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 75 6c else {.......ul
1b180 56 61 6c 75 65 4c 65 6e 20 3d 20 78 35 30 39 5f ValueLen = x509_
1b190 72 65 61 64 5f 72 65 74 3b 0a 09 09 09 09 09 7d read_ret;......}
1b1a0 0a 09 09 09 09 7d 0a 0a 09 09 09 09 43 41 43 4b .....}......CACK
1b1b0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
1b1c0 22 20 2e 2e 2e 20 72 65 74 75 72 6e 69 6e 67 20 " ... returning
1b1d0 28 25 70 2f 25 6c 75 29 22 2c 20 70 56 61 6c 75 (%p/%lu)", pValu
1b1e0 65 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e e, (unsigned lon
1b1f0 67 29 20 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a g) ulValueLen);.
1b200 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 63 .....break;....c
1b210 61 73 65 20 43 4b 41 5f 53 55 42 4a 45 43 54 3a ase CKA_SUBJECT:
1b220 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 .....CACKEY_DEBU
1b230 47 5f 50 52 49 4e 54 46 28 22 52 65 71 75 65 73 G_PRINTF("Reques
1b240 74 69 6e 67 20 61 74 74 72 69 62 75 74 65 20 43 ting attribute C
1b250 4b 41 5f 53 55 42 4a 45 43 54 20 28 30 78 25 30 KA_SUBJECT (0x%0
1b260 38 6c 78 29 20 2e 2e 2e 22 2c 20 28 75 6e 73 69 8lx) ...", (unsi
1b270 67 6e 65 64 20 6c 6f 6e 67 29 20 63 75 72 72 5f gned long) curr_
1b280 61 74 74 72 5f 74 79 70 65 29 3b 0a 0a 09 09 09 attr_type);.....
1b290 09 69 66 20 28 6f 62 6a 65 63 74 63 6c 61 73 73 .if (objectclass
1b2a0 20 21 3d 20 43 4b 4f 5f 43 45 52 54 49 46 49 43 != CKO_CERTIFIC
1b2b0 41 54 45 29 20 7b 0a 09 09 09 09 09 43 41 43 4b ATE) {......CACK
1b2c0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
1b2d0 22 20 2e 2e 2e 20 62 75 74 20 6e 6f 74 20 67 65 " ... but not ge
1b2e0 74 74 69 6e 67 20 69 74 20 62 65 63 61 75 73 65 tting it because
1b2f0 20 77 65 20 61 72 65 20 6e 6f 74 20 61 20 63 65 we are not a ce
1b300 72 74 69 66 69 63 61 74 65 22 29 3b 0a 0a 09 09 rtificate");....
1b310 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 7d 0a ...break;.....}.
1b320 0a 09 09 09 09 69 66 20 28 63 65 72 74 69 66 69 .....if (certifi
1b330 63 61 74 65 5f 6c 65 6e 20 3e 3d 20 30 29 20 7b cate_len >= 0) {
1b340 0a 09 09 09 09 09 78 35 30 39 5f 72 65 61 64 5f ......x509_read_
1b350 72 65 74 20 3d 20 78 35 30 39 5f 74 6f 5f 73 75 ret = x509_to_su
1b360 62 6a 65 63 74 28 63 65 72 74 69 66 69 63 61 74 bject(certificat
1b370 65 2c 20 63 65 72 74 69 66 69 63 61 74 65 5f 6c e, certificate_l
1b380 65 6e 2c 20 26 70 56 61 6c 75 65 29 3b 0a 09 09 en, &pValue);...
1b390 09 09 09 69 66 20 28 78 35 30 39 5f 72 65 61 64 ...if (x509_read
1b3a0 5f 72 65 74 20 3c 20 30 29 20 7b 0a 09 09 09 09 _ret < 0) {.....
1b3b0 09 09 70 56 61 6c 75 65 20 3d 20 4e 55 4c 4c 3b ..pValue = NULL;
1b3c0 0a 09 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 ......} else {..
1b3d0 09 09 09 09 09 75 6c 56 61 6c 75 65 4c 65 6e 20 .....ulValueLen
1b3e0 3d 20 78 35 30 39 5f 72 65 61 64 5f 72 65 74 3b = x509_read_ret;
1b3f0 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 0a 09 ......}.....}...
1b400 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
1b410 50 52 49 4e 54 46 28 22 20 2e 2e 2e 20 72 65 74 PRINTF(" ... ret
1b420 75 72 6e 69 6e 67 20 25 70 2f 25 6c 75 22 2c 20 urning %p/%lu",
1b430 70 56 61 6c 75 65 2c 20 28 75 6e 73 69 67 6e 65 pValue, (unsigne
1b440 64 20 6c 6f 6e 67 29 20 75 6c 56 61 6c 75 65 4c d long) ulValueL
1b450 65 6e 29 3b 0a 0a 09 09 09 09 62 72 65 61 6b 3b en);......break;
1b460 0a 09 09 09 63 61 73 65 20 43 4b 41 5f 49 44 3a ....case CKA_ID:
1b470 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 .....CACKEY_DEBU
1b480 47 5f 50 52 49 4e 54 46 28 22 52 65 71 75 65 73 G_PRINTF("Reques
1b490 74 69 6e 67 20 61 74 74 72 69 62 75 74 65 20 43 ting attribute C
1b4a0 4b 41 5f 49 44 20 28 30 78 25 30 38 6c 78 29 20 KA_ID (0x%08lx)
1b4b0 2e 2e 2e 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 ...", (unsigned
1b4c0 6c 6f 6e 67 29 20 63 75 72 72 5f 61 74 74 72 5f long) curr_attr_
1b4d0 74 79 70 65 29 3b 0a 0a 09 09 09 09 69 66 20 28 type);......if (
1b4e0 6f 62 6a 65 63 74 63 6c 61 73 73 20 3d 3d 20 43 objectclass == C
1b4f0 4b 4f 5f 4e 45 54 53 43 41 50 45 5f 54 52 55 53 KO_NETSCAPE_TRUS
1b500 54 29 20 7b 0a 09 09 09 09 09 43 41 43 4b 45 59 T) {......CACKEY
1b510 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 20 _DEBUG_PRINTF("
1b520 2e 2e 2e 20 62 75 74 20 6e 6f 74 20 67 65 74 74 ... but not gett
1b530 69 6e 67 20 69 74 20 62 65 63 61 75 73 65 20 77 ing it because w
1b540 65 20 61 72 65 20 61 20 4e 65 74 73 63 61 70 65 e are a Netscape
1b550 20 74 72 75 73 74 20 6f 62 6a 65 63 74 22 29 3b trust object");
1b560 0a 0a 09 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 .......break;...
1b570 09 09 7d 0a 0a 09 09 09 09 75 63 54 6d 70 42 75 ..}......ucTmpBu
1b580 66 5b 30 5d 20 3d 20 28 28 69 64 65 6e 74 69 74 f[0] = ((identit
1b590 79 5f 6e 75 6d 20 2b 20 31 29 20 3e 3e 20 38 29 y_num + 1) >> 8)
1b5a0 20 26 20 30 78 66 66 3b 0a 09 09 09 09 75 63 54 & 0xff;.....ucT
1b5b0 6d 70 42 75 66 5b 31 5d 20 3d 20 20 28 69 64 65 mpBuf[1] = (ide
1b5c0 6e 74 69 74 79 5f 6e 75 6d 20 2b 20 31 29 20 26 ntity_num + 1) &
1b5d0 20 30 78 66 66 3b 0a 0a 09 09 09 09 70 56 61 6c 0xff;......pVal
1b5e0 75 65 20 3d 20 26 75 63 54 6d 70 42 75 66 3b 0a ue = &ucTmpBuf;.
1b5f0 09 09 09 09 75 6c 56 61 6c 75 65 4c 65 6e 20 3d ....ulValueLen =
1b600 20 32 3b 0a 0a 09 09 09 09 43 41 43 4b 45 59 5f 2;......CACKEY_
1b610 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 20 2e DEBUG_PRINTF(" .
1b620 2e 2e 20 72 65 74 75 72 6e 69 6e 67 20 25 70 2f .. returning %p/
1b630 25 6c 75 22 2c 20 70 56 61 6c 75 65 2c 20 28 75 %lu", pValue, (u
1b640 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 75 6c nsigned long) ul
1b650 56 61 6c 75 65 4c 65 6e 29 3b 0a 0a 09 09 09 09 ValueLen);......
1b660 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 43 break;....case C
1b670 4b 41 5f 43 45 52 54 49 46 49 43 41 54 45 5f 54 KA_CERTIFICATE_T
1b680 59 50 45 3a 0a 09 09 09 09 43 41 43 4b 45 59 5f YPE:.....CACKEY_
1b690 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 DEBUG_PRINTF("Re
1b6a0 71 75 65 73 74 69 6e 67 20 61 74 74 72 69 62 75 questing attribu
1b6b0 74 65 20 43 4b 41 5f 43 45 52 54 49 46 49 43 41 te CKA_CERTIFICA
1b6c0 54 45 5f 54 59 50 45 20 28 30 78 25 30 38 6c 78 TE_TYPE (0x%08lx
1b6d0 29 20 2e 2e 2e 22 2c 20 28 75 6e 73 69 67 6e 65 ) ...", (unsigne
1b6e0 64 20 6c 6f 6e 67 29 20 63 75 72 72 5f 61 74 74 d long) curr_att
1b6f0 72 5f 74 79 70 65 29 3b 0a 0a 09 09 09 09 69 66 r_type);......if
1b700 20 28 6f 62 6a 65 63 74 63 6c 61 73 73 20 21 3d (objectclass !=
1b710 20 43 4b 4f 5f 43 45 52 54 49 46 49 43 41 54 45 CKO_CERTIFICATE
1b720 29 20 7b 0a 09 09 09 09 09 43 41 43 4b 45 59 5f ) {......CACKEY_
1b730 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 20 2e DEBUG_PRINTF(" .
1b740 2e 2e 20 62 75 74 20 6e 6f 74 20 67 65 74 74 69 .. but not getti
1b750 6e 67 20 69 74 20 62 65 63 61 75 73 65 20 77 65 ng it because we
1b760 20 61 72 65 20 6e 6f 74 20 61 20 63 65 72 74 69 are not a certi
1b770 66 69 63 61 74 65 2e 22 29 3b 0a 0a 09 09 09 09 ficate.");......
1b780 09 62 72 65 61 6b 3b 0a 09 09 09 09 7d 0a 0a 09 .break;.....}...
1b790 09 09 09 2f 2a 20 57 65 20 6f 6e 6c 79 20 73 75 .../* We only su
1b7a0 70 70 6f 72 74 20 6f 6e 65 20 63 65 72 74 69 66 pport one certif
1b7b0 69 63 61 74 65 20 74 79 70 65 20 2a 2f 0a 09 09 icate type */...
1b7c0 09 09 63 6b 5f 63 65 72 74 69 66 69 63 61 74 65 ..ck_certificate
1b7d0 5f 74 79 70 65 20 3d 20 43 4b 43 5f 58 5f 35 30 _type = CKC_X_50
1b7e0 39 3b 0a 0a 09 09 09 09 70 56 61 6c 75 65 20 3d 9;......pValue =
1b7f0 20 26 63 6b 5f 63 65 72 74 69 66 69 63 61 74 65 &ck_certificate
1b800 5f 74 79 70 65 3b 0a 09 09 09 09 75 6c 56 61 6c _type;.....ulVal
1b810 75 65 4c 65 6e 20 3d 20 73 69 7a 65 6f 66 28 63 ueLen = sizeof(c
1b820 6b 5f 63 65 72 74 69 66 69 63 61 74 65 5f 74 79 k_certificate_ty
1b830 70 65 29 3b 0a 0a 09 09 09 09 43 41 43 4b 45 59 pe);......CACKEY
1b840 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 20 _DEBUG_PRINTF("
1b850 2e 2e 2e 20 72 65 74 75 72 6e 69 6e 67 20 43 4b ... returning CK
1b860 43 5f 58 5f 35 30 39 20 28 25 6c 75 29 20 28 25 C_X_509 (%lu) (%
1b870 70 2f 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e p/%lu)", (unsign
1b880 65 64 20 6c 6f 6e 67 29 20 2a 28 28 43 4b 5f 43 ed long) *((CK_C
1b890 45 52 54 49 46 49 43 41 54 45 5f 54 59 50 45 20 ERTIFICATE_TYPE
1b8a0 2a 29 20 70 56 61 6c 75 65 29 2c 20 70 56 61 6c *) pValue), pVal
1b8b0 75 65 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f ue, (unsigned lo
1b8c0 6e 67 29 20 75 6c 56 61 6c 75 65 4c 65 6e 29 3b ng) ulValueLen);
1b8d0 0a 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 ......break;....
1b8e0 63 61 73 65 20 43 4b 41 5f 4b 45 59 5f 54 59 50 case CKA_KEY_TYP
1b8f0 45 3a 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 E:.....CACKEY_DE
1b900 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 71 75 BUG_PRINTF("Requ
1b910 65 73 74 69 6e 67 20 61 74 74 72 69 62 75 74 65 esting attribute
1b920 20 43 4b 41 5f 4b 45 59 5f 54 59 50 45 20 28 30 CKA_KEY_TYPE (0
1b930 78 25 30 38 6c 78 29 20 2e 2e 2e 22 2c 20 28 75 x%08lx) ...", (u
1b940 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 63 75 nsigned long) cu
1b950 72 72 5f 61 74 74 72 5f 74 79 70 65 29 3b 0a 0a rr_attr_type);..
1b960 09 09 09 09 69 66 20 28 6f 62 6a 65 63 74 63 6c ....if (objectcl
1b970 61 73 73 20 21 3d 20 43 4b 4f 5f 50 52 49 56 41 ass != CKO_PRIVA
1b980 54 45 5f 4b 45 59 20 26 26 20 6f 62 6a 65 63 74 TE_KEY && object
1b990 63 6c 61 73 73 20 21 3d 20 43 4b 4f 5f 50 55 42 class != CKO_PUB
1b9a0 4c 49 43 5f 4b 45 59 29 20 7b 0a 09 09 09 09 09 LIC_KEY) {......
1b9b0 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
1b9c0 4e 54 46 28 22 20 2e 2e 2e 20 62 75 74 20 6e 6f NTF(" ... but no
1b9d0 74 20 67 65 74 74 69 6e 67 20 69 74 20 62 65 63 t getting it bec
1b9e0 61 75 73 65 20 77 65 20 61 72 65 20 6e 6f 74 20 ause we are not
1b9f0 61 20 6b 65 79 2e 22 29 3b 0a 0a 09 09 09 09 09 a key.");.......
1ba00 62 72 65 61 6b 3b 0a 09 09 09 09 7d 0a 0a 09 09 break;.....}....
1ba10 09 09 2f 2a 20 57 65 20 6f 6e 6c 79 20 73 75 70 ../* We only sup
1ba20 70 6f 72 74 20 6f 6e 65 20 6b 65 79 20 74 79 70 port one key typ
1ba30 65 20 2a 2f 0a 09 09 09 09 63 6b 5f 6b 65 79 5f e */.....ck_key_
1ba40 74 79 70 65 20 3d 20 43 4b 4b 5f 52 53 41 3b 0a type = CKK_RSA;.
1ba50 0a 09 09 09 09 70 56 61 6c 75 65 20 3d 20 26 63 .....pValue = &c
1ba60 6b 5f 6b 65 79 5f 74 79 70 65 3b 0a 09 09 09 09 k_key_type;.....
1ba70 75 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 73 69 7a ulValueLen = siz
1ba80 65 6f 66 28 63 6b 5f 6b 65 79 5f 74 79 70 65 29 eof(ck_key_type)
1ba90 3b 0a 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 ;......CACKEY_DE
1baa0 42 55 47 5f 50 52 49 4e 54 46 28 22 20 2e 2e 2e BUG_PRINTF(" ...
1bab0 20 72 65 74 75 72 6e 69 6e 67 20 43 4b 4b 5f 52 returning CKK_R
1bac0 53 41 20 28 25 6c 75 29 20 28 25 70 2f 25 6c 75 SA (%lu) (%p/%lu
1bad0 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f )", (unsigned lo
1bae0 6e 67 29 20 2a 28 28 43 4b 5f 43 45 52 54 49 46 ng) *((CK_CERTIF
1baf0 49 43 41 54 45 5f 54 59 50 45 20 2a 29 20 70 56 ICATE_TYPE *) pV
1bb00 61 6c 75 65 29 2c 20 70 56 61 6c 75 65 2c 20 28 alue), pValue, (
1bb10 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 75 unsigned long) u
1bb20 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a 0a 09 09 09 lValueLen);.....
1bb30 09 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 .break;....case
1bb40 43 4b 41 5f 53 49 47 4e 3a 0a 09 09 09 09 43 41 CKA_SIGN:.....CA
1bb50 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
1bb60 46 28 22 52 65 71 75 65 73 74 69 6e 67 20 61 74 F("Requesting at
1bb70 74 72 69 62 75 74 65 20 43 4b 41 5f 53 49 47 4e tribute CKA_SIGN
1bb80 20 28 30 78 25 30 38 6c 78 29 20 2e 2e 2e 22 2c (0x%08lx) ...",
1bb90 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 (unsigned long)
1bba0 20 63 75 72 72 5f 61 74 74 72 5f 74 79 70 65 29 curr_attr_type)
1bbb0 3b 0a 0a 09 09 09 09 69 66 20 28 6f 62 6a 65 63 ;......if (objec
1bbc0 74 63 6c 61 73 73 20 3d 3d 20 43 4b 4f 5f 4e 45 tclass == CKO_NE
1bbd0 54 53 43 41 50 45 5f 54 52 55 53 54 29 20 7b 0a TSCAPE_TRUST) {.
1bbe0 09 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 .....CACKEY_DEBU
1bbf0 47 5f 50 52 49 4e 54 46 28 22 20 2e 2e 2e 20 62 G_PRINTF(" ... b
1bc00 75 74 20 6e 6f 74 20 67 65 74 74 69 6e 67 20 69 ut not getting i
1bc10 74 20 62 65 63 61 75 73 65 20 77 65 20 61 72 65 t because we are
1bc20 20 61 20 4e 65 74 73 63 61 70 65 20 74 72 75 73 a Netscape trus
1bc30 74 20 6f 62 6a 65 63 74 22 29 3b 0a 0a 09 09 09 t object");.....
1bc40 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 7d 0a 0a ..break;.....}..
1bc50 09 09 09 09 69 66 20 28 6f 62 6a 65 63 74 63 6c ....if (objectcl
1bc60 61 73 73 20 3d 3d 20 43 4b 4f 5f 50 52 49 56 41 ass == CKO_PRIVA
1bc70 54 45 5f 4b 45 59 29 20 7b 0a 09 09 09 09 09 70 TE_KEY) {......p
1bc80 56 61 6c 75 65 20 3d 20 26 63 6b 5f 74 72 75 65 Value = &ck_true
1bc90 3b 0a 09 09 09 09 09 75 6c 56 61 6c 75 65 4c 65 ;......ulValueLe
1bca0 6e 20 3d 20 73 69 7a 65 6f 66 28 63 6b 5f 74 72 n = sizeof(ck_tr
1bcb0 75 65 29 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20 ue);.....} else
1bcc0 7b 0a 09 09 09 09 09 70 56 61 6c 75 65 20 3d 20 {......pValue =
1bcd0 26 63 6b 5f 66 61 6c 73 65 3b 0a 09 09 09 09 09 &ck_false;......
1bce0 75 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 73 69 7a ulValueLen = siz
1bcf0 65 6f 66 28 63 6b 5f 66 61 6c 73 65 29 3b 0a 09 eof(ck_false);..
1bd00 09 09 09 7d 0a 0a 09 09 09 09 43 41 43 4b 45 59 ...}......CACKEY
1bd10 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 20 _DEBUG_PRINTF("
1bd20 2e 2e 2e 20 72 65 74 75 72 6e 69 6e 67 20 25 6c ... returning %l
1bd30 75 20 28 25 70 2f 25 6c 75 29 22 2c 20 28 75 6e u (%p/%lu)", (un
1bd40 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 2a 28 28 signed long) *((
1bd50 43 4b 5f 42 42 4f 4f 4c 20 2a 29 20 70 56 61 6c CK_BBOOL *) pVal
1bd60 75 65 29 2c 20 70 56 61 6c 75 65 2c 20 28 75 6e ue), pValue, (un
1bd70 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 75 6c 56 signed long) ulV
1bd80 61 6c 75 65 4c 65 6e 29 3b 0a 0a 09 09 09 09 62 alueLen);......b
1bd90 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 43 4b reak;....case CK
1bda0 41 5f 53 49 47 4e 5f 52 45 43 4f 56 45 52 3a 0a A_SIGN_RECOVER:.
1bdb0 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
1bdc0 5f 50 52 49 4e 54 46 28 22 52 65 71 75 65 73 74 _PRINTF("Request
1bdd0 69 6e 67 20 61 74 74 72 69 62 75 74 65 20 43 4b ing attribute CK
1bde0 41 5f 53 49 47 4e 5f 52 45 43 4f 56 45 52 20 28 A_SIGN_RECOVER (
1bdf0 30 78 25 30 38 6c 78 29 20 2e 2e 2e 22 2c 20 28 0x%08lx) ...", (
1be00 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 63 unsigned long) c
1be10 75 72 72 5f 61 74 74 72 5f 74 79 70 65 29 3b 0a urr_attr_type);.
1be20 0a 09 09 09 09 69 66 20 28 6f 62 6a 65 63 74 63 .....if (objectc
1be30 6c 61 73 73 20 3d 3d 20 43 4b 4f 5f 4e 45 54 53 lass == CKO_NETS
1be40 43 41 50 45 5f 54 52 55 53 54 29 20 7b 0a 09 09 CAPE_TRUST) {...
1be50 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
1be60 50 52 49 4e 54 46 28 22 20 2e 2e 2e 20 62 75 74 PRINTF(" ... but
1be70 20 6e 6f 74 20 67 65 74 74 69 6e 67 20 69 74 20 not getting it
1be80 62 65 63 61 75 73 65 20 77 65 20 61 72 65 20 61 because we are a
1be90 20 4e 65 74 73 63 61 70 65 20 74 72 75 73 74 20 Netscape trust
1bea0 6f 62 6a 65 63 74 22 29 3b 0a 0a 09 09 09 09 09 object");.......
1beb0 62 72 65 61 6b 3b 0a 09 09 09 09 7d 0a 0a 09 09 break;.....}....
1bec0 09 09 2f 2a 20 57 65 20 63 75 72 72 65 6e 74 6c ../* We currentl
1bed0 79 20 6f 6e 6c 79 20 73 75 70 70 6f 72 74 20 22 y only support "
1bee0 53 69 67 6e 20 77 69 74 68 20 41 70 70 65 6e 64 Sign with Append
1bef0 69 78 22 20 2a 2f 0a 09 09 09 09 70 56 61 6c 75 ix" */.....pValu
1bf00 65 20 3d 20 26 63 6b 5f 66 61 6c 73 65 3b 0a 09 e = &ck_false;..
1bf10 09 09 09 75 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 ...ulValueLen =
1bf20 73 69 7a 65 6f 66 28 63 6b 5f 66 61 6c 73 65 29 sizeof(ck_false)
1bf30 3b 0a 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 ;......CACKEY_DE
1bf40 42 55 47 5f 50 52 49 4e 54 46 28 22 20 2e 2e 2e BUG_PRINTF(" ...
1bf50 20 72 65 74 75 72 6e 69 6e 67 20 25 6c 75 20 28 returning %lu (
1bf60 25 70 2f 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 %p/%lu)", (unsig
1bf70 6e 65 64 20 6c 6f 6e 67 29 20 2a 28 28 43 4b 5f ned long) *((CK_
1bf80 42 42 4f 4f 4c 20 2a 29 20 70 56 61 6c 75 65 29 BBOOL *) pValue)
1bf90 2c 20 70 56 61 6c 75 65 2c 20 28 75 6e 73 69 67 , pValue, (unsig
1bfa0 6e 65 64 20 6c 6f 6e 67 29 20 75 6c 56 61 6c 75 ned long) ulValu
1bfb0 65 4c 65 6e 29 3b 0a 0a 09 09 09 09 62 72 65 61 eLen);......brea
1bfc0 6b 3b 0a 09 09 09 63 61 73 65 20 43 4b 41 5f 44 k;....case CKA_D
1bfd0 45 43 52 59 50 54 3a 0a 09 09 09 09 43 41 43 4b ECRYPT:.....CACK
1bfe0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
1bff0 22 52 65 71 75 65 73 74 69 6e 67 20 61 74 74 72 "Requesting attr
1c000 69 62 75 74 65 20 43 4b 41 5f 44 45 43 52 59 50 ibute CKA_DECRYP
1c010 54 20 28 30 78 25 30 38 6c 78 29 20 2e 2e 2e 22 T (0x%08lx) ..."
1c020 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 , (unsigned long
1c030 29 20 63 75 72 72 5f 61 74 74 72 5f 74 79 70 65 ) curr_attr_type
1c040 29 3b 0a 0a 09 09 09 09 69 66 20 28 6f 62 6a 65 );......if (obje
1c050 63 74 63 6c 61 73 73 20 3d 3d 20 43 4b 4f 5f 4e ctclass == CKO_N
1c060 45 54 53 43 41 50 45 5f 54 52 55 53 54 29 20 7b ETSCAPE_TRUST) {
1c070 0a 09 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 ......CACKEY_DEB
1c080 55 47 5f 50 52 49 4e 54 46 28 22 20 2e 2e 2e 20 UG_PRINTF(" ...
1c090 62 75 74 20 6e 6f 74 20 67 65 74 74 69 6e 67 20 but not getting
1c0a0 69 74 20 62 65 63 61 75 73 65 20 77 65 20 61 72 it because we ar
1c0b0 65 20 61 20 4e 65 74 73 63 61 70 65 20 74 72 75 e a Netscape tru
1c0c0 73 74 20 6f 62 6a 65 63 74 22 29 3b 0a 0a 09 09 st object");....
1c0d0 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 7d 0a ...break;.....}.
1c0e0 0a 09 09 09 09 69 66 20 28 6f 62 6a 65 63 74 63 .....if (objectc
1c0f0 6c 61 73 73 20 3d 3d 20 43 4b 4f 5f 50 52 49 56 lass == CKO_PRIV
1c100 41 54 45 5f 4b 45 59 20 7c 7c 20 6f 62 6a 65 63 ATE_KEY || objec
1c110 74 63 6c 61 73 73 20 3d 3d 20 43 4b 4f 5f 50 55 tclass == CKO_PU
1c120 42 4c 49 43 5f 4b 45 59 29 20 7b 0a 09 09 09 09 BLIC_KEY) {.....
1c130 09 70 56 61 6c 75 65 20 3d 20 26 63 6b 5f 74 72 .pValue = &ck_tr
1c140 75 65 3b 0a 09 09 09 09 09 75 6c 56 61 6c 75 65 ue;......ulValue
1c150 4c 65 6e 20 3d 20 73 69 7a 65 6f 66 28 63 6b 5f Len = sizeof(ck_
1c160 74 72 75 65 29 3b 0a 09 09 09 09 7d 20 65 6c 73 true);.....} els
1c170 65 20 7b 0a 09 09 09 09 09 70 56 61 6c 75 65 20 e {......pValue
1c180 3d 20 26 63 6b 5f 66 61 6c 73 65 3b 0a 09 09 09 = &ck_false;....
1c190 09 09 75 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 73 ..ulValueLen = s
1c1a0 69 7a 65 6f 66 28 63 6b 5f 66 61 6c 73 65 29 3b izeof(ck_false);
1c1b0 0a 09 09 09 09 7d 0a 0a 09 09 09 09 43 41 43 4b .....}......CACK
1c1c0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
1c1d0 22 20 2e 2e 2e 20 72 65 74 75 72 6e 69 6e 67 20 " ... returning
1c1e0 25 6c 75 20 28 25 70 2f 25 6c 75 29 22 2c 20 28 %lu (%p/%lu)", (
1c1f0 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 2a unsigned long) *
1c200 28 28 43 4b 5f 42 42 4f 4f 4c 20 2a 29 20 70 56 ((CK_BBOOL *) pV
1c210 61 6c 75 65 29 2c 20 70 56 61 6c 75 65 2c 20 28 alue), pValue, (
1c220 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 75 unsigned long) u
1c230 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a 0a 09 09 09 lValueLen);.....
1c240 09 62 72 65 61 6b 3b 0a 09 09 09 63 61 73 65 20 .break;....case
1c250 43 4b 41 5f 53 45 4e 53 49 54 49 56 45 3a 0a 09 CKA_SENSITIVE:..
1c260 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
1c270 50 52 49 4e 54 46 28 22 52 65 71 75 65 73 74 69 PRINTF("Requesti
1c280 6e 67 20 61 74 74 72 69 62 75 74 65 20 43 4b 41 ng attribute CKA
1c290 5f 53 45 4e 53 49 54 49 56 45 20 28 30 78 25 30 _SENSITIVE (0x%0
1c2a0 38 6c 78 29 20 2e 2e 2e 22 2c 20 28 75 6e 73 69 8lx) ...", (unsi
1c2b0 67 6e 65 64 20 6c 6f 6e 67 29 20 63 75 72 72 5f gned long) curr_
1c2c0 61 74 74 72 5f 74 79 70 65 29 3b 0a 0a 09 09 09 attr_type);.....
1c2d0 09 69 66 20 28 6f 62 6a 65 63 74 63 6c 61 73 73 .if (objectclass
1c2e0 20 3d 3d 20 43 4b 4f 5f 4e 45 54 53 43 41 50 45 == CKO_NETSCAPE
1c2f0 5f 54 52 55 53 54 29 20 7b 0a 09 09 09 09 09 43 _TRUST) {......C
1c300 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
1c310 54 46 28 22 20 2e 2e 2e 20 62 75 74 20 6e 6f 74 TF(" ... but not
1c320 20 67 65 74 74 69 6e 67 20 69 74 20 62 65 63 61 getting it beca
1c330 75 73 65 20 77 65 20 61 72 65 20 61 20 4e 65 74 use we are a Net
1c340 73 63 61 70 65 20 74 72 75 73 74 20 6f 62 6a 65 scape trust obje
1c350 63 74 22 29 3b 0a 0a 09 09 09 09 09 62 72 65 61 ct");.......brea
1c360 6b 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 09 69 66 k;.....}......if
1c370 20 28 6f 62 6a 65 63 74 63 6c 61 73 73 20 3d 3d (objectclass ==
1c380 20 43 4b 4f 5f 50 52 49 56 41 54 45 5f 4b 45 59 CKO_PRIVATE_KEY
1c390 29 20 7b 0a 09 09 09 09 09 70 56 61 6c 75 65 20 ) {......pValue
1c3a0 3d 20 26 63 6b 5f 74 72 75 65 3b 0a 09 09 09 09 = &ck_true;.....
1c3b0 09 75 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 73 69 .ulValueLen = si
1c3c0 7a 65 6f 66 28 63 6b 5f 74 72 75 65 29 3b 0a 09 zeof(ck_true);..
1c3d0 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 ...} else {.....
1c3e0 09 70 56 61 6c 75 65 20 3d 20 26 63 6b 5f 66 61 .pValue = &ck_fa
1c3f0 6c 73 65 3b 0a 09 09 09 09 09 75 6c 56 61 6c 75 lse;......ulValu
1c400 65 4c 65 6e 20 3d 20 73 69 7a 65 6f 66 28 63 6b eLen = sizeof(ck
1c410 5f 66 61 6c 73 65 29 3b 0a 09 09 09 09 7d 0a 0a _false);.....}..
1c420 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
1c430 5f 50 52 49 4e 54 46 28 22 20 2e 2e 2e 20 72 65 _PRINTF(" ... re
1c440 74 75 72 6e 69 6e 67 20 25 6c 75 20 28 25 70 2f turning %lu (%p/
1c450 25 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 %lu)", (unsigned
1c460 20 6c 6f 6e 67 29 20 2a 28 28 43 4b 5f 42 42 4f long) *((CK_BBO
1c470 4f 4c 20 2a 29 20 70 56 61 6c 75 65 29 2c 20 70 OL *) pValue), p
1c480 56 61 6c 75 65 2c 20 28 75 6e 73 69 67 6e 65 64 Value, (unsigned
1c490 20 6c 6f 6e 67 29 20 75 6c 56 61 6c 75 65 4c 65 long) ulValueLe
1c4a0 6e 29 3b 0a 0a 09 09 09 09 62 72 65 61 6b 3b 0a n);......break;.
1c4b0 09 09 09 63 61 73 65 20 43 4b 41 5f 45 58 54 52 ...case CKA_EXTR
1c4c0 41 43 54 41 42 4c 45 3a 0a 09 09 09 09 43 41 43 ACTABLE:.....CAC
1c4d0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
1c4e0 28 22 52 65 71 75 65 73 74 69 6e 67 20 61 74 74 ("Requesting att
1c4f0 72 69 62 75 74 65 20 43 4b 41 5f 45 58 54 52 41 ribute CKA_EXTRA
1c500 43 54 41 42 4c 45 20 28 30 78 25 30 38 6c 78 29 CTABLE (0x%08lx)
1c510 20 2e 2e 2e 22 2c 20 28 75 6e 73 69 67 6e 65 64 ...", (unsigned
1c520 20 6c 6f 6e 67 29 20 63 75 72 72 5f 61 74 74 72 long) curr_attr
1c530 5f 74 79 70 65 29 3b 0a 0a 09 09 09 09 69 66 20 _type);......if
1c540 28 6f 62 6a 65 63 74 63 6c 61 73 73 20 3d 3d 20 (objectclass ==
1c550 43 4b 4f 5f 4e 45 54 53 43 41 50 45 5f 54 52 55 CKO_NETSCAPE_TRU
1c560 53 54 29 20 7b 0a 09 09 09 09 09 43 41 43 4b 45 ST) {......CACKE
1c570 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
1c580 20 2e 2e 2e 20 62 75 74 20 6e 6f 74 20 67 65 74 ... but not get
1c590 74 69 6e 67 20 69 74 20 62 65 63 61 75 73 65 20 ting it because
1c5a0 77 65 20 61 72 65 20 61 20 4e 65 74 73 63 61 70 we are a Netscap
1c5b0 65 20 74 72 75 73 74 20 6f 62 6a 65 63 74 22 29 e trust object")
1c5c0 3b 0a 0a 09 09 09 09 09 62 72 65 61 6b 3b 0a 09 ;.......break;..
1c5d0 09 09 09 7d 0a 0a 09 09 09 09 69 66 20 28 6f 62 ...}......if (ob
1c5e0 6a 65 63 74 63 6c 61 73 73 20 3d 3d 20 43 4b 4f jectclass == CKO
1c5f0 5f 50 52 49 56 41 54 45 5f 4b 45 59 29 20 7b 0a _PRIVATE_KEY) {.
1c600 09 09 09 09 09 70 56 61 6c 75 65 20 3d 20 26 63 .....pValue = &c
1c610 6b 5f 66 61 6c 73 65 3b 0a 09 09 09 09 09 75 6c k_false;......ul
1c620 56 61 6c 75 65 4c 65 6e 20 3d 20 73 69 7a 65 6f ValueLen = sizeo
1c630 66 28 63 6b 5f 74 72 75 65 29 3b 0a 09 09 09 09 f(ck_true);.....
1c640 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 70 56 } else {......pV
1c650 61 6c 75 65 20 3d 20 26 63 6b 5f 74 72 75 65 3b alue = &ck_true;
1c660 0a 09 09 09 09 09 75 6c 56 61 6c 75 65 4c 65 6e ......ulValueLen
1c670 20 3d 20 73 69 7a 65 6f 66 28 63 6b 5f 66 61 6c = sizeof(ck_fal
1c680 73 65 29 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 09 se);.....}......
1c690 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
1c6a0 4e 54 46 28 22 20 2e 2e 2e 20 72 65 74 75 72 6e NTF(" ... return
1c6b0 69 6e 67 20 25 6c 75 20 28 25 70 2f 25 6c 75 29 ing %lu (%p/%lu)
1c6c0 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e ", (unsigned lon
1c6d0 67 29 20 2a 28 28 43 4b 5f 42 42 4f 4f 4c 20 2a g) *((CK_BBOOL *
1c6e0 29 20 70 56 61 6c 75 65 29 2c 20 70 56 61 6c 75 ) pValue), pValu
1c6f0 65 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e e, (unsigned lon
1c700 67 29 20 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a g) ulValueLen);.
1c710 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 63 .....break;....c
1c720 61 73 65 20 43 4b 41 5f 4d 4f 44 55 4c 55 53 3a ase CKA_MODULUS:
1c730 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 .....CACKEY_DEBU
1c740 47 5f 50 52 49 4e 54 46 28 22 52 65 71 75 65 73 G_PRINTF("Reques
1c750 74 69 6e 67 20 61 74 74 72 69 62 75 74 65 20 43 ting attribute C
1c760 4b 41 5f 4d 4f 44 55 4c 55 53 20 28 30 78 25 30 KA_MODULUS (0x%0
1c770 38 6c 78 29 20 2e 2e 2e 22 2c 20 28 75 6e 73 69 8lx) ...", (unsi
1c780 67 6e 65 64 20 6c 6f 6e 67 29 20 63 75 72 72 5f gned long) curr_
1c790 61 74 74 72 5f 74 79 70 65 29 3b 0a 0a 09 09 09 attr_type);.....
1c7a0 09 69 66 20 28 6f 62 6a 65 63 74 63 6c 61 73 73 .if (objectclass
1c7b0 20 3d 3d 20 43 4b 4f 5f 4e 45 54 53 43 41 50 45 == CKO_NETSCAPE
1c7c0 5f 54 52 55 53 54 29 20 7b 0a 09 09 09 09 09 43 _TRUST) {......C
1c7d0 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
1c7e0 54 46 28 22 20 2e 2e 2e 20 62 75 74 20 6e 6f 74 TF(" ... but not
1c7f0 20 67 65 74 74 69 6e 67 20 69 74 20 62 65 63 61 getting it beca
1c800 75 73 65 20 77 65 20 61 72 65 20 61 20 4e 65 74 use we are a Net
1c810 73 63 61 70 65 20 74 72 75 73 74 20 6f 62 6a 65 scape trust obje
1c820 63 74 22 29 3b 0a 0a 09 09 09 09 09 62 72 65 61 ct");.......brea
1c830 6b 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 09 69 66 k;.....}......if
1c840 20 28 63 65 72 74 69 66 69 63 61 74 65 5f 6c 65 (certificate_le
1c850 6e 20 3e 3d 20 30 29 20 7b 0a 09 09 09 09 09 78 n >= 0) {......x
1c860 35 30 39 5f 72 65 61 64 5f 72 65 74 20 3d 20 78 509_read_ret = x
1c870 35 30 39 5f 74 6f 5f 6d 6f 64 75 6c 75 73 28 63 509_to_modulus(c
1c880 65 72 74 69 66 69 63 61 74 65 2c 20 63 65 72 74 ertificate, cert
1c890 69 66 69 63 61 74 65 5f 6c 65 6e 2c 20 26 70 56 ificate_len, &pV
1c8a0 61 6c 75 65 29 3b 0a 09 09 09 09 09 69 66 20 28 alue);......if (
1c8b0 78 35 30 39 5f 72 65 61 64 5f 72 65 74 20 3c 20 x509_read_ret <
1c8c0 30 29 20 7b 0a 09 09 09 09 09 09 70 56 61 6c 75 0) {.......pValu
1c8d0 65 20 3d 20 4e 55 4c 4c 3b 0a 09 09 09 09 09 7d e = NULL;......}
1c8e0 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 75 6c else {.......ul
1c8f0 56 61 6c 75 65 4c 65 6e 20 3d 20 78 35 30 39 5f ValueLen = x509_
1c900 72 65 61 64 5f 72 65 74 3b 0a 09 09 09 09 09 7d read_ret;......}
1c910 0a 09 09 09 09 7d 0a 0a 09 09 09 09 43 41 43 4b .....}......CACK
1c920 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
1c930 22 20 2e 2e 2e 20 72 65 74 75 72 6e 69 6e 67 20 " ... returning
1c940 28 25 70 2f 25 6c 75 29 22 2c 20 70 56 61 6c 75 (%p/%lu)", pValu
1c950 65 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e e, (unsigned lon
1c960 67 29 20 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a g) ulValueLen);.
1c970 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 63 .....break;....c
1c980 61 73 65 20 43 4b 41 5f 50 55 42 4c 49 43 5f 45 ase CKA_PUBLIC_E
1c990 58 50 4f 4e 45 4e 54 3a 0a 09 09 09 09 43 41 43 XPONENT:.....CAC
1c9a0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
1c9b0 28 22 52 65 71 75 65 73 74 69 6e 67 20 61 74 74 ("Requesting att
1c9c0 72 69 62 75 74 65 20 43 4b 41 5f 50 55 42 4c 49 ribute CKA_PUBLI
1c9d0 43 5f 45 58 50 4f 4e 45 4e 54 20 28 30 78 25 30 C_EXPONENT (0x%0
1c9e0 38 6c 78 29 20 2e 2e 2e 22 2c 20 28 75 6e 73 69 8lx) ...", (unsi
1c9f0 67 6e 65 64 20 6c 6f 6e 67 29 20 63 75 72 72 5f gned long) curr_
1ca00 61 74 74 72 5f 74 79 70 65 29 3b 0a 0a 09 09 09 attr_type);.....
1ca10 09 69 66 20 28 6f 62 6a 65 63 74 63 6c 61 73 73 .if (objectclass
1ca20 20 3d 3d 20 43 4b 4f 5f 4e 45 54 53 43 41 50 45 == CKO_NETSCAPE
1ca30 5f 54 52 55 53 54 29 20 7b 0a 09 09 09 09 09 43 _TRUST) {......C
1ca40 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
1ca50 54 46 28 22 20 2e 2e 2e 20 62 75 74 20 6e 6f 74 TF(" ... but not
1ca60 20 67 65 74 74 69 6e 67 20 69 74 20 62 65 63 61 getting it beca
1ca70 75 73 65 20 77 65 20 61 72 65 20 61 20 4e 65 74 use we are a Net
1ca80 73 63 61 70 65 20 74 72 75 73 74 20 6f 62 6a 65 scape trust obje
1ca90 63 74 22 29 3b 0a 0a 09 09 09 09 09 62 72 65 61 ct");.......brea
1caa0 6b 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 09 69 66 k;.....}......if
1cab0 20 28 63 65 72 74 69 66 69 63 61 74 65 5f 6c 65 (certificate_le
1cac0 6e 20 3e 3d 20 30 29 20 7b 0a 09 09 09 09 09 78 n >= 0) {......x
1cad0 35 30 39 5f 72 65 61 64 5f 72 65 74 20 3d 20 78 509_read_ret = x
1cae0 35 30 39 5f 74 6f 5f 65 78 70 6f 6e 65 6e 74 28 509_to_exponent(
1caf0 63 65 72 74 69 66 69 63 61 74 65 2c 20 63 65 72 certificate, cer
1cb00 74 69 66 69 63 61 74 65 5f 6c 65 6e 2c 20 26 70 tificate_len, &p
1cb10 56 61 6c 75 65 29 3b 0a 09 09 09 09 09 69 66 20 Value);......if
1cb20 28 78 35 30 39 5f 72 65 61 64 5f 72 65 74 20 3c (x509_read_ret <
1cb30 20 30 29 20 7b 0a 09 09 09 09 09 09 70 56 61 6c 0) {.......pVal
1cb40 75 65 20 3d 20 4e 55 4c 4c 3b 0a 09 09 09 09 09 ue = NULL;......
1cb50 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 75 } else {.......u
1cb60 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 78 35 30 39 lValueLen = x509
1cb70 5f 72 65 61 64 5f 72 65 74 3b 0a 09 09 09 09 09 _read_ret;......
1cb80 7d 0a 09 09 09 09 7d 0a 0a 09 09 09 09 43 41 43 }.....}......CAC
1cb90 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
1cba0 28 22 20 2e 2e 2e 20 72 65 74 75 72 6e 69 6e 67 (" ... returning
1cbb0 20 28 25 70 2f 25 6c 75 29 22 2c 20 70 56 61 6c (%p/%lu)", pVal
1cbc0 75 65 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f ue, (unsigned lo
1cbd0 6e 67 29 20 75 6c 56 61 6c 75 65 4c 65 6e 29 3b ng) ulValueLen);
1cbe0 0a 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 ......break;....
1cbf0 63 61 73 65 20 43 4b 41 5f 54 52 55 53 54 5f 44 case CKA_TRUST_D
1cc00 49 47 49 54 41 4c 5f 53 49 47 4e 41 54 55 52 45 IGITAL_SIGNATURE
1cc10 3a 0a 09 09 09 63 61 73 65 20 43 4b 41 5f 54 52 :....case CKA_TR
1cc20 55 53 54 5f 4e 4f 4e 5f 52 45 50 55 44 49 41 54 UST_NON_REPUDIAT
1cc30 49 4f 4e 3a 0a 09 09 09 63 61 73 65 20 43 4b 41 ION:....case CKA
1cc40 5f 54 52 55 53 54 5f 4b 45 59 5f 45 4e 43 49 50 _TRUST_KEY_ENCIP
1cc50 48 45 52 4d 45 4e 54 3a 0a 09 09 09 63 61 73 65 HERMENT:....case
1cc60 20 43 4b 41 5f 54 52 55 53 54 5f 44 41 54 41 5f CKA_TRUST_DATA_
1cc70 45 4e 43 49 50 48 45 52 4d 45 4e 54 3a 0a 09 09 ENCIPHERMENT:...
1cc80 09 63 61 73 65 20 43 4b 41 5f 54 52 55 53 54 5f .case CKA_TRUST_
1cc90 4b 45 59 5f 41 47 52 45 45 4d 45 4e 54 3a 0a 09 KEY_AGREEMENT:..
1cca0 09 09 63 61 73 65 20 43 4b 41 5f 54 52 55 53 54 ..case CKA_TRUST
1ccb0 5f 4b 45 59 5f 43 45 52 54 5f 53 49 47 4e 3a 0a _KEY_CERT_SIGN:.
1ccc0 09 09 09 63 61 73 65 20 43 4b 41 5f 54 52 55 53 ...case CKA_TRUS
1ccd0 54 5f 43 52 4c 5f 53 49 47 4e 3a 0a 09 09 09 63 T_CRL_SIGN:....c
1cce0 61 73 65 20 43 4b 41 5f 54 52 55 53 54 5f 53 45 ase CKA_TRUST_SE
1ccf0 52 56 45 52 5f 41 55 54 48 3a 0a 09 09 09 63 61 RVER_AUTH:....ca
1cd00 73 65 20 43 4b 41 5f 54 52 55 53 54 5f 43 4c 49 se CKA_TRUST_CLI
1cd10 45 4e 54 5f 41 55 54 48 3a 0a 09 09 09 63 61 73 ENT_AUTH:....cas
1cd20 65 20 43 4b 41 5f 54 52 55 53 54 5f 43 4f 44 45 e CKA_TRUST_CODE
1cd30 5f 53 49 47 4e 49 4e 47 3a 0a 09 09 09 63 61 73 _SIGNING:....cas
1cd40 65 20 43 4b 41 5f 54 52 55 53 54 5f 45 4d 41 49 e CKA_TRUST_EMAI
1cd50 4c 5f 50 52 4f 54 45 43 54 49 4f 4e 3a 0a 09 09 L_PROTECTION:...
1cd60 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
1cd70 52 49 4e 54 46 28 22 52 65 71 75 65 73 74 69 6e RINTF("Requestin
1cd80 67 20 61 74 74 72 69 62 75 74 65 20 43 4b 41 5f g attribute CKA_
1cd90 54 52 55 53 54 5f 2e 2e 2e 20 28 30 78 25 30 38 TRUST_... (0x%08
1cda0 6c 78 29 20 2e 2e 2e 22 2c 20 28 75 6e 73 69 67 lx) ...", (unsig
1cdb0 6e 65 64 20 6c 6f 6e 67 29 20 63 75 72 72 5f 61 ned long) curr_a
1cdc0 74 74 72 5f 74 79 70 65 29 3b 0a 0a 09 09 09 09 ttr_type);......
1cdd0 70 56 61 6c 75 65 20 3d 20 26 63 6b 5f 74 72 75 pValue = &ck_tru
1cde0 73 74 65 64 3b 0a 09 09 09 09 75 6c 56 61 6c 75 sted;.....ulValu
1cdf0 65 4c 65 6e 20 3d 20 73 69 7a 65 6f 66 28 63 6b eLen = sizeof(ck
1ce00 5f 74 72 75 73 74 65 64 29 3b 0a 0a 09 09 09 09 _trusted);......
1ce10 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
1ce20 4e 54 46 28 22 20 2e 2e 2e 20 72 65 74 75 72 6e NTF(" ... return
1ce30 69 6e 67 20 25 6c 75 20 28 25 70 2f 25 6c 75 29 ing %lu (%p/%lu)
1ce40 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e ", (unsigned lon
1ce50 67 29 20 2a 28 28 43 4b 5f 54 52 55 53 54 20 2a g) *((CK_TRUST *
1ce60 29 20 70 56 61 6c 75 65 29 2c 20 70 56 61 6c 75 ) pValue), pValu
1ce70 65 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e e, (unsigned lon
1ce80 67 29 20 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a g) ulValueLen);.
1ce90 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 63 .....break;....c
1cea0 61 73 65 20 43 4b 41 5f 43 45 52 54 5f 53 48 41 ase CKA_CERT_SHA
1ceb0 31 5f 48 41 53 48 3a 0a 09 09 09 09 43 41 43 4b 1_HASH:.....CACK
1cec0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
1ced0 22 52 65 71 75 65 73 74 69 6e 67 20 61 74 74 72 "Requesting attr
1cee0 69 62 75 74 65 20 43 4b 41 5f 43 45 52 54 5f 53 ibute CKA_CERT_S
1cef0 48 41 31 5f 48 41 53 48 20 28 30 78 25 30 38 6c HA1_HASH (0x%08l
1cf00 78 29 20 2e 2e 2e 22 2c 20 28 75 6e 73 69 67 6e x) ...", (unsign
1cf10 65 64 20 6c 6f 6e 67 29 20 63 75 72 72 5f 61 74 ed long) curr_at
1cf20 74 72 5f 74 79 70 65 29 3b 0a 0a 09 09 09 09 69 tr_type);......i
1cf30 66 20 28 6f 62 6a 65 63 74 63 6c 61 73 73 20 21 f (objectclass !
1cf40 3d 20 43 4b 4f 5f 4e 45 54 53 43 41 50 45 5f 54 = CKO_NETSCAPE_T
1cf50 52 55 53 54 29 20 7b 0a 09 09 09 09 09 43 41 43 RUST) {......CAC
1cf60 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
1cf70 28 22 20 2e 2e 2e 20 62 75 74 20 6e 6f 74 20 67 (" ... but not g
1cf80 65 74 74 69 6e 67 20 69 74 20 62 65 63 61 75 73 etting it becaus
1cf90 65 20 77 65 20 61 72 65 20 6e 6f 74 20 61 20 4e e we are not a N
1cfa0 65 74 73 63 61 70 65 20 74 72 75 73 74 20 6f 62 etscape trust ob
1cfb0 6a 65 63 74 22 29 3b 0a 0a 09 09 09 09 09 62 72 ject");.......br
1cfc0 65 61 6b 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 09 eak;.....}......
1cfd0 53 48 41 31 52 65 73 65 74 28 26 73 68 61 31 5f SHA1Reset(&sha1_
1cfe0 63 74 78 29 3b 0a 09 09 09 09 53 48 41 31 49 6e ctx);.....SHA1In
1cff0 70 75 74 28 26 73 68 61 31 5f 63 74 78 2c 20 63 put(&sha1_ctx, c
1d000 65 72 74 69 66 69 63 61 74 65 2c 20 63 65 72 74 ertificate, cert
1d010 69 66 69 63 61 74 65 5f 6c 65 6e 29 3b 0a 09 09 ificate_len);...
1d020 09 09 53 48 41 31 52 65 73 75 6c 74 28 26 73 68 ..SHA1Result(&sh
1d030 61 31 5f 63 74 78 2c 20 73 68 61 31 5f 68 61 73 a1_ctx, sha1_has
1d040 68 29 3b 0a 0a 09 09 09 09 70 56 61 6c 75 65 20 h);......pValue
1d050 3d 20 73 68 61 31 5f 68 61 73 68 3b 0a 09 09 09 = sha1_hash;....
1d060 09 75 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 73 69 .ulValueLen = si
1d070 7a 65 6f 66 28 73 68 61 31 5f 68 61 73 68 29 3b zeof(sha1_hash);
1d080 0a 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 ......CACKEY_DEB
1d090 55 47 5f 50 52 49 4e 54 46 28 22 20 2e 2e 2e 20 UG_PRINTF(" ...
1d0a0 72 65 74 75 72 6e 69 6e 67 20 25 70 2f 25 6c 75 returning %p/%lu
1d0b0 22 2c 20 70 56 61 6c 75 65 2c 20 28 75 6e 73 69 ", pValue, (unsi
1d0c0 67 6e 65 64 20 6c 6f 6e 67 29 20 75 6c 56 61 6c gned long) ulVal
1d0d0 75 65 4c 65 6e 29 3b 0a 0a 09 09 09 09 62 72 65 ueLen);......bre
1d0e0 61 6b 3b 0a 09 09 09 63 61 73 65 20 43 4b 41 5f ak;....case CKA_
1d0f0 43 45 52 54 5f 4d 44 35 5f 48 41 53 48 3a 0a 09 CERT_MD5_HASH:..
1d100 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
1d110 50 52 49 4e 54 46 28 22 52 65 71 75 65 73 74 69 PRINTF("Requesti
1d120 6e 67 20 61 74 74 72 69 62 75 74 65 20 43 4b 41 ng attribute CKA
1d130 5f 43 45 52 54 5f 4d 44 35 5f 48 41 53 48 20 28 _CERT_MD5_HASH (
1d140 30 78 25 30 38 6c 78 29 20 2e 2e 2e 22 2c 20 28 0x%08lx) ...", (
1d150 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 63 unsigned long) c
1d160 75 72 72 5f 61 74 74 72 5f 74 79 70 65 29 3b 0a urr_attr_type);.
1d170 0a 09 09 09 09 69 66 20 28 6f 62 6a 65 63 74 63 .....if (objectc
1d180 6c 61 73 73 20 21 3d 20 43 4b 4f 5f 4e 45 54 53 lass != CKO_NETS
1d190 43 41 50 45 5f 54 52 55 53 54 29 20 7b 0a 09 09 CAPE_TRUST) {...
1d1a0 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
1d1b0 50 52 49 4e 54 46 28 22 20 2e 2e 2e 20 62 75 74 PRINTF(" ... but
1d1c0 20 6e 6f 74 20 67 65 74 74 69 6e 67 20 69 74 20 not getting it
1d1d0 62 65 63 61 75 73 65 20 77 65 20 61 72 65 20 6e because we are n
1d1e0 6f 74 20 61 20 4e 65 74 73 63 61 70 65 20 74 72 ot a Netscape tr
1d1f0 75 73 74 20 6f 62 6a 65 63 74 22 29 3b 0a 0a 09 ust object");...
1d200 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 7d ....break;.....}
1d210 0a 0a 09 09 09 09 4d 44 35 49 6e 69 74 28 26 6d ......MD5Init(&m
1d220 64 35 5f 63 74 78 29 3b 0a 09 09 09 09 4d 44 35 d5_ctx);.....MD5
1d230 55 70 64 61 74 65 28 26 6d 64 35 5f 63 74 78 2c Update(&md5_ctx,
1d240 20 63 65 72 74 69 66 69 63 61 74 65 2c 20 63 65 certificate, ce
1d250 72 74 69 66 69 63 61 74 65 5f 6c 65 6e 29 3b 0a rtificate_len);.
1d260 09 09 09 09 4d 44 35 46 69 6e 61 6c 28 6d 64 35 ....MD5Final(md5
1d270 5f 68 61 73 68 2c 20 26 6d 64 35 5f 63 74 78 29 _hash, &md5_ctx)
1d280 3b 0a 0a 09 09 09 09 70 56 61 6c 75 65 20 3d 20 ;......pValue =
1d290 6d 64 35 5f 68 61 73 68 3b 0a 09 09 09 09 75 6c md5_hash;.....ul
1d2a0 56 61 6c 75 65 4c 65 6e 20 3d 20 73 69 7a 65 6f ValueLen = sizeo
1d2b0 66 28 6d 64 35 5f 68 61 73 68 29 3b 0a 0a 09 09 f(md5_hash);....
1d2c0 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
1d2d0 52 49 4e 54 46 28 22 20 2e 2e 2e 20 72 65 74 75 RINTF(" ... retu
1d2e0 72 6e 69 6e 67 20 25 70 2f 25 6c 75 22 2c 20 70 rning %p/%lu", p
1d2f0 56 61 6c 75 65 2c 20 28 75 6e 73 69 67 6e 65 64 Value, (unsigned
1d300 20 6c 6f 6e 67 29 20 75 6c 56 61 6c 75 65 4c 65 long) ulValueLe
1d310 6e 29 3b 0a 0a 09 09 09 09 62 72 65 61 6b 3b 0a n);......break;.
1d320 09 09 09 64 65 66 61 75 6c 74 3a 0a 09 09 09 09 ...default:.....
1d330 70 56 61 6c 75 65 20 3d 20 4e 55 4c 4c 3b 0a 09 pValue = NULL;..
1d340 09 09 09 75 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 ...ulValueLen =
1d350 28 43 4b 5f 4c 4f 4e 47 29 20 2d 31 3b 0a 09 09 (CK_LONG) -1;...
1d360 09 09 62 72 65 61 6b 3b 0a 09 09 7d 0a 0a 09 09 ..break;...}....
1d370 69 66 20 28 28 28 43 4b 5f 4c 4f 4e 47 29 20 75 if (((CK_LONG) u
1d380 6c 56 61 6c 75 65 4c 65 6e 29 20 21 3d 20 28 28 lValueLen) != ((
1d390 43 4b 5f 4c 4f 4e 47 29 20 2d 31 29 29 20 7b 0a CK_LONG) -1)) {.
1d3a0 09 09 09 2f 2a 20 50 75 73 68 20 63 75 72 72 5f .../* Push curr_
1d3b0 61 74 74 72 20 6f 6e 74 6f 20 74 68 65 20 73 74 attr onto the st
1d3c0 61 63 6b 20 2a 2f 0a 09 09 09 63 75 72 72 5f 61 ack */....curr_a
1d3d0 74 74 72 2e 74 79 70 65 20 3d 20 63 75 72 72 5f ttr.type = curr_
1d3e0 61 74 74 72 5f 74 79 70 65 3b 0a 09 09 09 63 75 attr_type;....cu
1d3f0 72 72 5f 61 74 74 72 2e 75 6c 56 61 6c 75 65 4c rr_attr.ulValueL
1d400 65 6e 20 3d 20 75 6c 56 61 6c 75 65 4c 65 6e 3b en = ulValueLen;
1d410 0a 0a 09 09 09 63 75 72 72 5f 61 74 74 72 2e 70 .....curr_attr.p
1d420 56 61 6c 75 65 20 3d 20 6d 61 6c 6c 6f 63 28 63 Value = malloc(c
1d430 75 72 72 5f 61 74 74 72 2e 75 6c 56 61 6c 75 65 urr_attr.ulValue
1d440 4c 65 6e 29 3b 0a 09 09 09 6d 65 6d 63 70 79 28 Len);....memcpy(
1d450 63 75 72 72 5f 61 74 74 72 2e 70 56 61 6c 75 65 curr_attr.pValue
1d460 2c 20 70 56 61 6c 75 65 2c 20 63 75 72 72 5f 61 , pValue, curr_a
1d470 74 74 72 2e 75 6c 56 61 6c 75 65 4c 65 6e 29 3b ttr.ulValueLen);
1d480 0a 0a 09 09 09 69 66 20 28 70 56 61 6c 75 65 5f .....if (pValue_
1d490 66 72 65 65 20 26 26 20 70 56 61 6c 75 65 29 20 free && pValue)
1d4a0 7b 0a 09 09 09 09 66 72 65 65 28 70 56 61 6c 75 {.....free(pValu
1d4b0 65 29 3b 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 e);....}.....if
1d4c0 28 6e 75 6d 61 74 74 72 73 20 3e 3d 20 72 65 74 (numattrs >= ret
1d4d0 76 61 6c 5f 63 6f 75 6e 74 29 20 7b 0a 09 09 09 val_count) {....
1d4e0 09 72 65 74 76 61 6c 20 3d 20 72 65 61 6c 6c 6f .retval = reallo
1d4f0 63 28 72 65 74 76 61 6c 2c 20 72 65 74 76 61 6c c(retval, retval
1d500 5f 63 6f 75 6e 74 20 2a 20 73 69 7a 65 6f 66 28 _count * sizeof(
1d510 2a 72 65 74 76 61 6c 29 29 3b 0a 09 09 09 7d 0a *retval));....}.
1d520 0a 09 09 09 6d 65 6d 63 70 79 28 26 72 65 74 76 ....memcpy(&retv
1d530 61 6c 5b 6e 75 6d 61 74 74 72 73 5d 2c 20 26 63 al[numattrs], &c
1d540 75 72 72 5f 61 74 74 72 2c 20 73 69 7a 65 6f 66 urr_attr, sizeof
1d550 28 63 75 72 72 5f 61 74 74 72 29 29 3b 0a 09 09 (curr_attr));...
1d560 09 6e 75 6d 61 74 74 72 73 2b 2b 3b 0a 09 09 7d .numattrs++;...}
1d570 0a 09 7d 0a 0a 09 69 66 20 28 6e 75 6d 61 74 74 ..}...if (numatt
1d580 72 73 20 21 3d 20 30 29 20 7b 0a 09 09 72 65 74 rs != 0) {...ret
1d590 76 61 6c 5f 63 6f 75 6e 74 20 3d 20 6e 75 6d 61 val_count = numa
1d5a0 74 74 72 73 3b 0a 09 09 72 65 74 76 61 6c 20 3d ttrs;...retval =
1d5b0 20 72 65 61 6c 6c 6f 63 28 72 65 74 76 61 6c 2c realloc(retval,
1d5c0 20 72 65 74 76 61 6c 5f 63 6f 75 6e 74 20 2a 20 retval_count *
1d5d0 73 69 7a 65 6f 66 28 2a 72 65 74 76 61 6c 29 29 sizeof(*retval))
1d5e0 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 66 72 ;..} else {...fr
1d5f0 65 65 28 72 65 74 76 61 6c 29 3b 0a 0a 09 09 72 ee(retval);....r
1d600 65 74 76 61 6c 20 3d 20 4e 55 4c 4c 3b 0a 09 7d etval = NULL;..}
1d610 0a 0a 09 2a 70 75 6c 43 6f 75 6e 74 20 3d 20 6e ...*pulCount = n
1d620 75 6d 61 74 74 72 73 3b 0a 0a 09 43 41 43 4b 45 umattrs;...CACKE
1d630 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
1d640 52 65 74 75 72 6e 69 6e 67 20 25 6c 75 20 6f 62 Returning %lu ob
1d650 6a 65 63 74 73 20 28 25 70 29 2e 22 2c 20 6e 75 jects (%p).", nu
1d660 6d 61 74 74 72 73 2c 20 28 76 6f 69 64 20 2a 29 mattrs, (void *)
1d670 20 72 65 74 76 61 6c 29 3b 0a 0a 09 72 65 74 75 retval);...retu
1d680 72 6e 28 72 65 74 76 61 6c 29 3b 0a 7d 0a 0a 73 rn(retval);.}..s
1d690 74 61 74 69 63 20 76 6f 69 64 20 63 61 63 6b 65 tatic void cacke
1d6a0 79 5f 66 72 65 65 5f 69 64 65 6e 74 69 74 69 65 y_free_identitie
1d6b0 73 28 73 74 72 75 63 74 20 63 61 63 6b 65 79 5f s(struct cackey_
1d6c0 69 64 65 6e 74 69 74 79 20 2a 69 64 65 6e 74 69 identity *identi
1d6d0 74 69 65 73 2c 20 75 6e 73 69 67 6e 65 64 20 6c ties, unsigned l
1d6e0 6f 6e 67 20 69 64 65 6e 74 69 74 69 65 73 5f 63 ong identities_c
1d6f0 6f 75 6e 74 29 20 7b 0a 09 43 4b 5f 41 54 54 52 ount) {..CK_ATTR
1d700 49 42 55 54 45 20 2a 63 75 72 72 5f 61 74 74 72 IBUTE *curr_attr
1d710 3b 0a 09 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 ;..unsigned long
1d720 20 69 64 5f 69 64 78 2c 20 61 74 74 72 5f 69 64 id_idx, attr_id
1d730 78 3b 0a 0a 09 69 66 20 28 69 64 65 6e 74 69 74 x;...if (identit
1d740 69 65 73 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 69 ies == NULL || i
1d750 64 65 6e 74 69 74 69 65 73 5f 63 6f 75 6e 74 20 dentities_count
1d760 3d 3d 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e == 0) {...return
1d770 3b 0a 09 7d 0a 0a 09 66 6f 72 20 28 69 64 5f 69 ;..}...for (id_i
1d780 64 78 20 3d 20 30 3b 20 69 64 5f 69 64 78 20 3c dx = 0; id_idx <
1d790 20 69 64 65 6e 74 69 74 69 65 73 5f 63 6f 75 6e identities_coun
1d7a0 74 3b 20 69 64 5f 69 64 78 2b 2b 29 20 7b 0a 09 t; id_idx++) {..
1d7b0 09 69 66 20 28 69 64 65 6e 74 69 74 69 65 73 5b .if (identities[
1d7c0 69 64 5f 69 64 78 5d 2e 61 74 74 72 69 62 75 74 id_idx].attribut
1d7d0 65 73 29 20 7b 0a 09 09 09 66 6f 72 20 28 61 74 es) {....for (at
1d7e0 74 72 5f 69 64 78 20 3d 20 30 3b 20 61 74 74 72 tr_idx = 0; attr
1d7f0 5f 69 64 78 20 3c 20 69 64 65 6e 74 69 74 69 65 _idx < identitie
1d800 73 5b 69 64 5f 69 64 78 5d 2e 61 74 74 72 69 62 s[id_idx].attrib
1d810 75 74 65 73 5f 63 6f 75 6e 74 3b 20 61 74 74 72 utes_count; attr
1d820 5f 69 64 78 2b 2b 29 20 7b 0a 09 09 09 09 63 75 _idx++) {.....cu
1d830 72 72 5f 61 74 74 72 20 3d 20 26 69 64 65 6e 74 rr_attr = &ident
1d840 69 74 69 65 73 5b 69 64 5f 69 64 78 5d 2e 61 74 ities[id_idx].at
1d850 74 72 69 62 75 74 65 73 5b 61 74 74 72 5f 69 64 tributes[attr_id
1d860 78 5d 3b 0a 0a 09 09 09 09 69 66 20 28 63 75 72 x];......if (cur
1d870 72 5f 61 74 74 72 2d 3e 70 56 61 6c 75 65 29 20 r_attr->pValue)
1d880 7b 0a 09 09 09 09 09 66 72 65 65 28 63 75 72 72 {......free(curr
1d890 5f 61 74 74 72 2d 3e 70 56 61 6c 75 65 29 3b 0a _attr->pValue);.
1d8a0 09 09 09 09 7d 0a 09 09 09 7d 0a 0a 09 09 09 69 ....}....}.....i
1d8b0 66 20 28 69 64 65 6e 74 69 74 69 65 73 5b 69 64 f (identities[id
1d8c0 5f 69 64 78 5d 2e 61 74 74 72 69 62 75 74 65 73 _idx].attributes
1d8d0 29 20 7b 0a 09 09 09 09 66 72 65 65 28 69 64 65 ) {.....free(ide
1d8e0 6e 74 69 74 69 65 73 5b 69 64 5f 69 64 78 5d 2e ntities[id_idx].
1d8f0 61 74 74 72 69 62 75 74 65 73 29 3b 0a 09 09 09 attributes);....
1d900 7d 0a 0a 09 09 09 63 61 63 6b 65 79 5f 66 72 65 }.....cackey_fre
1d910 65 5f 63 65 72 74 73 28 69 64 65 6e 74 69 74 69 e_certs(identiti
1d920 65 73 5b 69 64 5f 69 64 78 5d 2e 70 63 73 63 5f es[id_idx].pcsc_
1d930 69 64 65 6e 74 69 74 79 2c 20 31 2c 20 31 29 3b identity, 1, 1);
1d940 0a 09 09 7d 0a 09 7d 0a 0a 09 66 72 65 65 28 69 ...}..}...free(i
1d950 64 65 6e 74 69 74 69 65 73 29 3b 0a 7d 0a 0a 73 dentities);.}..s
1d960 74 61 74 69 63 20 75 6e 73 69 67 6e 65 64 20 6c tatic unsigned l
1d970 6f 6e 67 20 63 61 63 6b 65 79 5f 72 65 61 64 5f ong cackey_read_
1d980 64 6f 64 5f 69 64 65 6e 74 69 74 69 65 73 28 73 dod_identities(s
1d990 74 72 75 63 74 20 63 61 63 6b 65 79 5f 69 64 65 truct cackey_ide
1d9a0 6e 74 69 74 79 20 2a 69 64 65 6e 74 69 74 69 65 ntity *identitie
1d9b0 73 2c 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 s, unsigned long
1d9c0 20 6e 75 6d 5f 64 6f 64 5f 63 65 72 74 73 29 20 num_dod_certs)
1d9d0 7b 0a 09 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 {..unsigned long
1d9e0 20 63 65 72 74 5f 69 64 78 2c 20 69 64 5f 69 64 cert_idx, id_id
1d9f0 78 20 3d 20 30 3b 0a 0a 09 69 66 20 28 69 64 65 x = 0;...if (ide
1da00 6e 74 69 74 69 65 73 20 3d 3d 20 4e 55 4c 4c 29 ntities == NULL)
1da10 20 7b 0a 09 09 72 65 74 75 72 6e 28 6e 75 6d 5f {...return(num_
1da20 64 6f 64 5f 63 65 72 74 73 20 2a 20 33 29 3b 0a dod_certs * 3);.
1da30 09 7d 0a 0a 09 66 6f 72 20 28 63 65 72 74 5f 69 .}...for (cert_i
1da40 64 78 20 3d 20 30 3b 20 63 65 72 74 5f 69 64 78 dx = 0; cert_idx
1da50 20 3c 20 6e 75 6d 5f 64 6f 64 5f 63 65 72 74 73 < num_dod_certs
1da60 3b 20 63 65 72 74 5f 69 64 78 2b 2b 29 20 7b 0a ; cert_idx++) {.
1da70 09 09 69 64 65 6e 74 69 74 69 65 73 5b 69 64 5f ..identities[id_
1da80 69 64 78 5d 2e 70 63 73 63 5f 69 64 65 6e 74 69 idx].pcsc_identi
1da90 74 79 20 3d 20 4e 55 4c 4c 3b 0a 09 09 69 64 65 ty = NULL;...ide
1daa0 6e 74 69 74 69 65 73 5b 69 64 5f 69 64 78 5d 2e ntities[id_idx].
1dab0 61 74 74 72 69 62 75 74 65 73 20 3d 20 63 61 63 attributes = cac
1dac0 6b 65 79 5f 67 65 74 5f 61 74 74 72 69 62 75 74 key_get_attribut
1dad0 65 73 28 43 4b 4f 5f 43 45 52 54 49 46 49 43 41 es(CKO_CERTIFICA
1dae0 54 45 2c 20 26 65 78 74 72 61 5f 63 65 72 74 73 TE, &extra_certs
1daf0 5b 63 65 72 74 5f 69 64 78 5d 2c 20 30 78 66 30 [cert_idx], 0xf0
1db00 30 30 20 7c 20 63 65 72 74 5f 69 64 78 2c 20 26 00 | cert_idx, &
1db10 69 64 65 6e 74 69 74 69 65 73 5b 69 64 5f 69 64 identities[id_id
1db20 78 5d 2e 61 74 74 72 69 62 75 74 65 73 5f 63 6f x].attributes_co
1db30 75 6e 74 29 3b 0a 09 09 69 64 5f 69 64 78 2b 2b unt);...id_idx++
1db40 3b 0a 0a 09 09 69 64 65 6e 74 69 74 69 65 73 5b ;....identities[
1db50 69 64 5f 69 64 78 5d 2e 70 63 73 63 5f 69 64 65 id_idx].pcsc_ide
1db60 6e 74 69 74 79 20 3d 20 4e 55 4c 4c 3b 0a 09 09 ntity = NULL;...
1db70 69 64 65 6e 74 69 74 69 65 73 5b 69 64 5f 69 64 identities[id_id
1db80 78 5d 2e 61 74 74 72 69 62 75 74 65 73 20 3d 20 x].attributes =
1db90 63 61 63 6b 65 79 5f 67 65 74 5f 61 74 74 72 69 cackey_get_attri
1dba0 62 75 74 65 73 28 43 4b 4f 5f 50 55 42 4c 49 43 butes(CKO_PUBLIC
1dbb0 5f 4b 45 59 2c 20 26 65 78 74 72 61 5f 63 65 72 _KEY, &extra_cer
1dbc0 74 73 5b 63 65 72 74 5f 69 64 78 5d 2c 20 30 78 ts[cert_idx], 0x
1dbd0 66 30 30 30 20 7c 20 63 65 72 74 5f 69 64 78 2c f000 | cert_idx,
1dbe0 20 26 69 64 65 6e 74 69 74 69 65 73 5b 69 64 5f &identities[id_
1dbf0 69 64 78 5d 2e 61 74 74 72 69 62 75 74 65 73 5f idx].attributes_
1dc00 63 6f 75 6e 74 29 3b 0a 09 09 69 64 5f 69 64 78 count);...id_idx
1dc10 2b 2b 3b 0a 0a 09 09 69 64 65 6e 74 69 74 69 65 ++;....identitie
1dc20 73 5b 69 64 5f 69 64 78 5d 2e 70 63 73 63 5f 69 s[id_idx].pcsc_i
1dc30 64 65 6e 74 69 74 79 20 3d 20 4e 55 4c 4c 3b 0a dentity = NULL;.
1dc40 09 09 69 64 65 6e 74 69 74 69 65 73 5b 69 64 5f ..identities[id_
1dc50 69 64 78 5d 2e 61 74 74 72 69 62 75 74 65 73 20 idx].attributes
1dc60 3d 20 63 61 63 6b 65 79 5f 67 65 74 5f 61 74 74 = cackey_get_att
1dc70 72 69 62 75 74 65 73 28 43 4b 4f 5f 4e 45 54 53 ributes(CKO_NETS
1dc80 43 41 50 45 5f 54 52 55 53 54 2c 20 26 65 78 74 CAPE_TRUST, &ext
1dc90 72 61 5f 63 65 72 74 73 5b 63 65 72 74 5f 69 64 ra_certs[cert_id
1dca0 78 5d 2c 20 30 78 66 30 30 30 20 7c 20 63 65 72 x], 0xf000 | cer
1dcb0 74 5f 69 64 78 2c 20 26 69 64 65 6e 74 69 74 69 t_idx, &identiti
1dcc0 65 73 5b 69 64 5f 69 64 78 5d 2e 61 74 74 72 69 es[id_idx].attri
1dcd0 62 75 74 65 73 5f 63 6f 75 6e 74 29 3b 0a 09 09 butes_count);...
1dce0 69 64 5f 69 64 78 2b 2b 3b 0a 09 7d 0a 0a 09 72 id_idx++;..}...r
1dcf0 65 74 75 72 6e 28 69 64 5f 69 64 78 29 3b 0a 7d eturn(id_idx);.}
1dd00 0a 0a 73 74 61 74 69 63 20 73 74 72 75 63 74 20 ..static struct
1dd10 63 61 63 6b 65 79 5f 69 64 65 6e 74 69 74 79 20 cackey_identity
1dd20 2a 63 61 63 6b 65 79 5f 72 65 61 64 5f 69 64 65 *cackey_read_ide
1dd30 6e 74 69 74 69 65 73 28 73 74 72 75 63 74 20 63 ntities(struct c
1dd40 61 63 6b 65 79 5f 73 6c 6f 74 20 2a 73 6c 6f 74 ackey_slot *slot
1dd50 2c 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 , unsigned long
1dd60 2a 69 64 73 5f 66 6f 75 6e 64 29 20 7b 0a 09 73 *ids_found) {..s
1dd70 74 72 75 63 74 20 63 61 63 6b 65 79 5f 70 63 73 truct cackey_pcs
1dd80 63 5f 69 64 65 6e 74 69 74 79 20 2a 70 63 73 63 c_identity *pcsc
1dd90 5f 69 64 65 6e 74 69 74 69 65 73 3b 0a 09 73 74 _identities;..st
1dda0 72 75 63 74 20 63 61 63 6b 65 79 5f 69 64 65 6e ruct cackey_iden
1ddb0 74 69 74 79 20 2a 69 64 65 6e 74 69 74 69 65 73 tity *identities
1ddc0 3b 0a 09 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 ;..unsigned long
1ddd0 20 6e 75 6d 5f 69 64 73 2c 20 69 64 5f 69 64 78 num_ids, id_idx
1dde0 2c 20 63 75 72 72 5f 69 64 5f 74 79 70 65 3b 0a , curr_id_type;.
1ddf0 09 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6e .unsigned long n
1de00 75 6d 5f 63 65 72 74 73 2c 20 6e 75 6d 5f 64 6f um_certs, num_do
1de10 64 5f 63 65 72 74 73 2c 20 63 65 72 74 5f 69 64 d_certs, cert_id
1de20 78 3b 0a 09 69 6e 74 20 69 6e 63 6c 75 64 65 5f x;..int include_
1de30 65 78 74 72 61 5f 63 65 72 74 73 20 3d 20 30 2c extra_certs = 0,
1de40 20 69 6e 63 6c 75 64 65 5f 64 6f 64 5f 63 65 72 include_dod_cer
1de50 74 73 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 ts;...CACKEY_DEB
1de60 55 47 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 UG_PRINTF("Calle
1de70 64 2e 22 29 3b 0a 0a 09 69 66 20 28 69 64 73 5f d.");...if (ids_
1de80 66 6f 75 6e 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b found == NULL) {
1de90 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
1dea0 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 PRINTF("Error.
1deb0 69 64 73 5f 66 6f 75 6e 64 20 69 73 20 4e 55 4c ids_found is NUL
1dec0 4c 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 4e L");....return(N
1ded0 55 4c 4c 29 3b 0a 09 7d 0a 0a 23 69 66 64 65 66 ULL);..}..#ifdef
1dee0 20 43 41 43 4b 45 59 5f 43 41 52 44 5f 53 4c 4f CACKEY_CARD_SLO
1def0 54 5f 49 4e 43 4c 55 44 45 5f 45 58 54 52 41 5f T_INCLUDE_EXTRA_
1df00 43 45 52 54 53 0a 09 69 6e 63 6c 75 64 65 5f 65 CERTS..include_e
1df10 78 74 72 61 5f 63 65 72 74 73 20 3d 20 31 3b 0a xtra_certs = 1;.
1df20 23 65 6e 64 69 66 0a 0a 09 69 66 20 28 67 65 74 #endif...if (get
1df30 65 6e 76 28 22 43 41 43 4b 45 59 5f 44 4f 44 5f env("CACKEY_DOD_
1df40 43 45 52 54 53 5f 4f 4e 5f 48 57 5f 53 4c 4f 54 CERTS_ON_HW_SLOT
1df50 53 22 29 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 S") != NULL) {..
1df60 09 69 6e 63 6c 75 64 65 5f 65 78 74 72 61 5f 63 .include_extra_c
1df70 65 72 74 73 20 3d 20 31 3b 0a 09 7d 0a 0a 09 69 erts = 1;..}...i
1df80 66 20 28 67 65 74 65 6e 76 28 22 43 41 43 4b 45 f (getenv("CACKE
1df90 59 5f 4e 4f 5f 44 4f 44 5f 43 45 52 54 53 5f 4f Y_NO_DOD_CERTS_O
1dfa0 4e 5f 48 57 5f 53 4c 4f 54 53 22 29 20 21 3d 20 N_HW_SLOTS") !=
1dfb0 4e 55 4c 4c 29 20 7b 0a 09 09 69 6e 63 6c 75 64 NULL) {...includ
1dfc0 65 5f 65 78 74 72 61 5f 63 65 72 74 73 20 3d 20 e_extra_certs =
1dfd0 30 3b 0a 09 7d 0a 0a 23 69 66 64 65 66 20 43 41 0;..}..#ifdef CA
1dfe0 43 4b 45 59 5f 4e 4f 5f 45 58 54 52 41 5f 43 45 CKEY_NO_EXTRA_CE
1dff0 52 54 53 0a 09 69 66 20 28 67 65 74 65 6e 76 28 RTS..if (getenv(
1e000 22 43 41 43 4b 45 59 5f 45 58 54 52 41 5f 43 45 "CACKEY_EXTRA_CE
1e010 52 54 53 22 29 20 21 3d 20 4e 55 4c 4c 29 20 7b RTS") != NULL) {
1e020 0a 09 09 69 6e 63 6c 75 64 65 5f 64 6f 64 5f 63 ...include_dod_c
1e030 65 72 74 73 20 3d 20 31 3b 0a 09 7d 20 65 6c 73 erts = 1;..} els
1e040 65 20 7b 0a 09 09 69 6e 63 6c 75 64 65 5f 64 6f e {...include_do
1e050 64 5f 63 65 72 74 73 20 3d 20 30 3b 0a 09 7d 0a d_certs = 0;..}.
1e060 23 65 6c 73 65 0a 09 69 66 20 28 67 65 74 65 6e #else..if (geten
1e070 76 28 22 43 41 43 4b 45 59 5f 4e 4f 5f 45 58 54 v("CACKEY_NO_EXT
1e080 52 41 5f 43 45 52 54 53 22 29 20 21 3d 20 4e 55 RA_CERTS") != NU
1e090 4c 4c 29 20 7b 0a 09 09 69 6e 63 6c 75 64 65 5f LL) {...include_
1e0a0 64 6f 64 5f 63 65 72 74 73 20 3d 20 30 3b 0a 09 dod_certs = 0;..
1e0b0 7d 20 65 6c 73 65 20 7b 0a 09 09 69 6e 63 6c 75 } else {...inclu
1e0c0 64 65 5f 64 6f 64 5f 63 65 72 74 73 20 3d 20 31 de_dod_certs = 1
1e0d0 3b 0a 09 7d 0a 23 65 6e 64 69 66 0a 0a 09 69 66 ;..}.#endif...if
1e0e0 20 28 69 6e 63 6c 75 64 65 5f 64 6f 64 5f 63 65 (include_dod_ce
1e0f0 72 74 73 29 20 7b 0a 09 09 6e 75 6d 5f 64 6f 64 rts) {...num_dod
1e100 5f 63 65 72 74 73 20 3d 20 73 69 7a 65 6f 66 28 _certs = sizeof(
1e110 65 78 74 72 61 5f 63 65 72 74 73 29 20 2f 20 73 extra_certs) / s
1e120 69 7a 65 6f 66 28 65 78 74 72 61 5f 63 65 72 74 izeof(extra_cert
1e130 73 5b 30 5d 29 3b 0a 09 7d 20 65 6c 73 65 20 7b s[0]);..} else {
1e140 0a 09 09 6e 75 6d 5f 64 6f 64 5f 63 65 72 74 73 ...num_dod_certs
1e150 20 3d 20 30 3b 0a 09 7d 0a 0a 09 69 66 20 28 73 = 0;..}...if (s
1e160 6c 6f 74 2d 3e 69 6e 74 65 72 6e 61 6c 29 20 7b lot->internal) {
1e170 0a 09 09 6e 75 6d 5f 69 64 73 20 3d 20 63 61 63 ...num_ids = cac
1e180 6b 65 79 5f 72 65 61 64 5f 64 6f 64 5f 69 64 65 key_read_dod_ide
1e190 6e 74 69 74 69 65 73 28 4e 55 4c 4c 2c 20 6e 75 ntities(NULL, nu
1e1a0 6d 5f 64 6f 64 5f 63 65 72 74 73 29 3b 0a 0a 09 m_dod_certs);...
1e1b0 09 69 66 20 28 6e 75 6d 5f 69 64 73 20 21 3d 20 .if (num_ids !=
1e1c0 30 29 20 7b 0a 09 09 09 69 64 65 6e 74 69 74 69 0) {....identiti
1e1d0 65 73 20 3d 20 6d 61 6c 6c 6f 63 28 6e 75 6d 5f es = malloc(num_
1e1e0 69 64 73 20 2a 20 73 69 7a 65 6f 66 28 2a 69 64 ids * sizeof(*id
1e1f0 65 6e 74 69 74 69 65 73 29 29 3b 0a 0a 09 09 09 entities));.....
1e200 63 61 63 6b 65 79 5f 72 65 61 64 5f 64 6f 64 5f cackey_read_dod_
1e210 69 64 65 6e 74 69 74 69 65 73 28 69 64 65 6e 74 identities(ident
1e220 69 74 69 65 73 2c 20 6e 75 6d 5f 64 6f 64 5f 63 ities, num_dod_c
1e230 65 72 74 73 29 3b 0a 09 09 7d 20 65 6c 73 65 20 erts);...} else
1e240 7b 0a 09 09 09 69 64 65 6e 74 69 74 69 65 73 20 {....identities
1e250 3d 20 4e 55 4c 4c 3b 0a 09 09 7d 0a 0a 09 09 2a = NULL;...}....*
1e260 69 64 73 5f 66 6f 75 6e 64 20 3d 20 6e 75 6d 5f ids_found = num_
1e270 69 64 73 3b 0a 0a 09 09 72 65 74 75 72 6e 28 69 ids;....return(i
1e280 64 65 6e 74 69 74 69 65 73 29 3b 0a 09 7d 0a 0a dentities);..}..
1e290 09 70 63 73 63 5f 69 64 65 6e 74 69 74 69 65 73 .pcsc_identities
1e2a0 20 3d 20 63 61 63 6b 65 79 5f 72 65 61 64 5f 63 = cackey_read_c
1e2b0 65 72 74 73 28 73 6c 6f 74 2c 20 4e 55 4c 4c 2c erts(slot, NULL,
1e2c0 20 26 6e 75 6d 5f 63 65 72 74 73 29 3b 0a 09 69 &num_certs);..i
1e2d0 66 20 28 70 63 73 63 5f 69 64 65 6e 74 69 74 69 f (pcsc_identiti
1e2e0 65 73 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 es != NULL) {...
1e2f0 2f 2a 20 43 6f 6e 76 65 72 74 20 6e 75 6d 62 65 /* Convert numbe
1e300 72 20 6f 66 20 43 65 72 74 73 20 74 6f 20 6e 75 r of Certs to nu
1e310 6d 62 65 72 20 6f 66 20 6f 62 6a 65 63 74 73 20 mber of objects
1e320 2a 2f 0a 09 09 6e 75 6d 5f 69 64 73 20 3d 20 28 */...num_ids = (
1e330 43 4b 4f 5f 50 52 49 56 41 54 45 5f 4b 45 59 20 CKO_PRIVATE_KEY
1e340 2d 20 43 4b 4f 5f 43 45 52 54 49 46 49 43 41 54 - CKO_CERTIFICAT
1e350 45 20 2b 20 31 29 20 2a 20 6e 75 6d 5f 63 65 72 E + 1) * num_cer
1e360 74 73 3b 0a 0a 09 09 69 66 20 28 69 6e 63 6c 75 ts;....if (inclu
1e370 64 65 5f 65 78 74 72 61 5f 63 65 72 74 73 29 20 de_extra_certs)
1e380 7b 0a 09 09 09 6e 75 6d 5f 69 64 73 20 2b 3d 20 {....num_ids +=
1e390 63 61 63 6b 65 79 5f 72 65 61 64 5f 64 6f 64 5f cackey_read_dod_
1e3a0 69 64 65 6e 74 69 74 69 65 73 28 4e 55 4c 4c 2c identities(NULL,
1e3b0 20 6e 75 6d 5f 64 6f 64 5f 63 65 72 74 73 29 3b num_dod_certs);
1e3c0 0a 09 09 7d 0a 0a 09 09 69 64 65 6e 74 69 74 69 ...}....identiti
1e3d0 65 73 20 3d 20 6d 61 6c 6c 6f 63 28 6e 75 6d 5f es = malloc(num_
1e3e0 69 64 73 20 2a 20 73 69 7a 65 6f 66 28 2a 69 64 ids * sizeof(*id
1e3f0 65 6e 74 69 74 69 65 73 29 29 3b 0a 0a 09 09 2f entities));..../
1e400 2a 20 41 64 64 20 63 65 72 74 69 66 69 63 61 74 * Add certificat
1e410 65 73 2c 20 70 75 62 6c 69 63 20 6b 65 79 73 2c es, public keys,
1e420 20 61 6e 64 20 70 72 69 76 61 74 65 20 6b 65 79 and private key
1e430 73 20 66 72 6f 6d 20 74 68 65 20 73 6d 61 72 74 s from the smart
1e440 63 61 72 64 20 2a 2f 0a 09 09 69 64 5f 69 64 78 card */...id_idx
1e450 20 3d 20 30 3b 0a 09 09 66 6f 72 20 28 63 65 72 = 0;...for (cer
1e460 74 5f 69 64 78 20 3d 20 30 3b 20 63 65 72 74 5f t_idx = 0; cert_
1e470 69 64 78 20 3c 20 6e 75 6d 5f 63 65 72 74 73 3b idx < num_certs;
1e480 20 63 65 72 74 5f 69 64 78 2b 2b 29 20 7b 0a 09 cert_idx++) {..
1e490 09 09 66 6f 72 20 28 63 75 72 72 5f 69 64 5f 74 ..for (curr_id_t
1e4a0 79 70 65 20 3d 20 43 4b 4f 5f 43 45 52 54 49 46 ype = CKO_CERTIF
1e4b0 49 43 41 54 45 3b 20 63 75 72 72 5f 69 64 5f 74 ICATE; curr_id_t
1e4c0 79 70 65 20 3c 3d 20 43 4b 4f 5f 50 52 49 56 41 ype <= CKO_PRIVA
1e4d0 54 45 5f 4b 45 59 3b 20 63 75 72 72 5f 69 64 5f TE_KEY; curr_id_
1e4e0 74 79 70 65 2b 2b 29 20 7b 0a 09 09 09 09 69 64 type++) {.....id
1e4f0 65 6e 74 69 74 69 65 73 5b 69 64 5f 69 64 78 5d entities[id_idx]
1e500 2e 61 74 74 72 69 62 75 74 65 73 20 3d 20 63 61 .attributes = ca
1e510 63 6b 65 79 5f 67 65 74 5f 61 74 74 72 69 62 75 ckey_get_attribu
1e520 74 65 73 28 63 75 72 72 5f 69 64 5f 74 79 70 65 tes(curr_id_type
1e530 2c 20 26 70 63 73 63 5f 69 64 65 6e 74 69 74 69 , &pcsc_identiti
1e540 65 73 5b 63 65 72 74 5f 69 64 78 5d 2c 20 63 65 es[cert_idx], ce
1e550 72 74 5f 69 64 78 2c 20 26 69 64 65 6e 74 69 74 rt_idx, &identit
1e560 69 65 73 5b 69 64 5f 69 64 78 5d 2e 61 74 74 72 ies[id_idx].attr
1e570 69 62 75 74 65 73 5f 63 6f 75 6e 74 29 3b 0a 0a ibutes_count);..
1e580 09 09 09 09 69 64 65 6e 74 69 74 69 65 73 5b 69 ....identities[i
1e590 64 5f 69 64 78 5d 2e 70 63 73 63 5f 69 64 65 6e d_idx].pcsc_iden
1e5a0 74 69 74 79 20 3d 20 6d 61 6c 6c 6f 63 28 73 69 tity = malloc(si
1e5b0 7a 65 6f 66 28 2a 69 64 65 6e 74 69 74 69 65 73 zeof(*identities
1e5c0 5b 69 64 5f 69 64 78 5d 2e 70 63 73 63 5f 69 64 [id_idx].pcsc_id
1e5d0 65 6e 74 69 74 79 29 29 3b 0a 09 09 09 09 6d 65 entity));.....me
1e5e0 6d 63 70 79 28 69 64 65 6e 74 69 74 69 65 73 5b mcpy(identities[
1e5f0 69 64 5f 69 64 78 5d 2e 70 63 73 63 5f 69 64 65 id_idx].pcsc_ide
1e600 6e 74 69 74 79 2c 20 26 70 63 73 63 5f 69 64 65 ntity, &pcsc_ide
1e610 6e 74 69 74 69 65 73 5b 63 65 72 74 5f 69 64 78 ntities[cert_idx
1e620 5d 2c 20 73 69 7a 65 6f 66 28 2a 69 64 65 6e 74 ], sizeof(*ident
1e630 69 74 69 65 73 5b 69 64 5f 69 64 78 5d 2e 70 63 ities[id_idx].pc
1e640 73 63 5f 69 64 65 6e 74 69 74 79 29 29 3b 0a 0a sc_identity));..
1e650 09 09 09 09 69 64 65 6e 74 69 74 69 65 73 5b 69 ....identities[i
1e660 64 5f 69 64 78 5d 2e 70 63 73 63 5f 69 64 65 6e d_idx].pcsc_iden
1e670 74 69 74 79 2d 3e 63 65 72 74 69 66 69 63 61 74 tity->certificat
1e680 65 20 3d 20 6d 61 6c 6c 6f 63 28 70 63 73 63 5f e = malloc(pcsc_
1e690 69 64 65 6e 74 69 74 69 65 73 5b 63 65 72 74 5f identities[cert_
1e6a0 69 64 78 5d 2e 63 65 72 74 69 66 69 63 61 74 65 idx].certificate
1e6b0 5f 6c 65 6e 29 3b 0a 09 09 09 09 6d 65 6d 63 70 _len);.....memcp
1e6c0 79 28 69 64 65 6e 74 69 74 69 65 73 5b 69 64 5f y(identities[id_
1e6d0 69 64 78 5d 2e 70 63 73 63 5f 69 64 65 6e 74 69 idx].pcsc_identi
1e6e0 74 79 2d 3e 63 65 72 74 69 66 69 63 61 74 65 2c ty->certificate,
1e6f0 20 70 63 73 63 5f 69 64 65 6e 74 69 74 69 65 73 pcsc_identities
1e700 5b 63 65 72 74 5f 69 64 78 5d 2e 63 65 72 74 69 [cert_idx].certi
1e710 66 69 63 61 74 65 2c 20 70 63 73 63 5f 69 64 65 ficate, pcsc_ide
1e720 6e 74 69 74 69 65 73 5b 63 65 72 74 5f 69 64 78 ntities[cert_idx
1e730 5d 2e 63 65 72 74 69 66 69 63 61 74 65 5f 6c 65 ].certificate_le
1e740 6e 29 3b 0a 0a 09 09 09 09 69 64 5f 69 64 78 2b n);......id_idx+
1e750 2b 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 69 +;....}...}....i
1e760 66 20 28 69 6e 63 6c 75 64 65 5f 65 78 74 72 61 f (include_extra
1e770 5f 63 65 72 74 73 29 20 7b 0a 09 09 09 43 41 43 _certs) {....CAC
1e780 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
1e790 28 22 49 6e 63 6c 75 64 69 6e 67 20 55 53 20 47 ("Including US G
1e7a0 6f 76 65 72 6e 6d 65 6e 74 20 43 65 72 74 69 66 overnment Certif
1e7b0 69 63 61 74 65 73 20 6f 6e 20 68 61 72 64 77 61 icates on hardwa
1e7c0 72 65 20 73 6c 6f 74 22 29 3b 0a 0a 09 09 09 63 re slot");.....c
1e7d0 61 63 6b 65 79 5f 72 65 61 64 5f 64 6f 64 5f 69 ackey_read_dod_i
1e7e0 64 65 6e 74 69 74 69 65 73 28 69 64 65 6e 74 69 dentities(identi
1e7f0 74 69 65 73 20 2b 20 69 64 5f 69 64 78 2c 20 6e ties + id_idx, n
1e800 75 6d 5f 64 6f 64 5f 63 65 72 74 73 29 3b 0a 09 um_dod_certs);..
1e810 09 7d 0a 0a 09 09 63 61 63 6b 65 79 5f 66 72 65 .}....cackey_fre
1e820 65 5f 63 65 72 74 73 28 70 63 73 63 5f 69 64 65 e_certs(pcsc_ide
1e830 6e 74 69 74 69 65 73 2c 20 6e 75 6d 5f 63 65 72 ntities, num_cer
1e840 74 73 2c 20 31 29 3b 0a 0a 09 09 2a 69 64 73 5f ts, 1);....*ids_
1e850 66 6f 75 6e 64 20 3d 20 6e 75 6d 5f 69 64 73 3b found = num_ids;
1e860 0a 0a 09 09 72 65 74 75 72 6e 28 69 64 65 6e 74 ....return(ident
1e870 69 74 69 65 73 29 3b 0a 09 7d 0a 0a 09 2a 69 64 ities);..}...*id
1e880 73 5f 66 6f 75 6e 64 20 3d 20 30 3b 0a 09 72 65 s_found = 0;..re
1e890 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 7d 0a 0a 73 turn(NULL);.}..s
1e8a0 74 61 74 69 63 20 63 61 63 6b 65 79 5f 72 65 74 tatic cackey_ret
1e8b0 20 63 61 63 6b 65 79 5f 67 65 74 5f 70 69 6e 28 cackey_get_pin(
1e8c0 63 68 61 72 20 2a 70 69 6e 62 75 66 29 20 7b 0a char *pinbuf) {.
1e8d0 09 46 49 4c 45 20 2a 70 69 6e 66 64 3b 0a 09 63 .FILE *pinfd;..c
1e8e0 68 61 72 20 2a 66 67 65 74 73 5f 72 65 74 3b 0a har *fgets_ret;.
1e8f0 09 69 6e 74 20 70 63 6c 6f 73 65 5f 72 65 74 3b .int pclose_ret;
1e900 0a 0a 09 69 66 20 28 63 61 63 6b 65 79 5f 70 69 ...if (cackey_pi
1e910 6e 5f 63 6f 6d 6d 61 6e 64 20 3d 3d 20 4e 55 4c n_command == NUL
1e920 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 43 41 L) {...return(CA
1e930 43 4b 45 59 5f 50 43 53 43 5f 45 5f 47 45 4e 45 CKEY_PCSC_E_GENE
1e940 52 49 43 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 70 RIC);..}...if (p
1e950 69 6e 62 75 66 20 3d 3d 20 4e 55 4c 4c 29 20 7b inbuf == NULL) {
1e960 0a 09 09 72 65 74 75 72 6e 28 43 41 43 4b 45 59 ...return(CACKEY
1e970 5f 50 43 53 43 5f 45 5f 47 45 4e 45 52 49 43 29 _PCSC_E_GENERIC)
1e980 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 ;..}...CACKEY_DE
1e990 42 55 47 5f 50 52 49 4e 54 46 28 22 43 41 43 4b BUG_PRINTF("CACK
1e9a0 45 59 5f 50 49 4e 5f 43 4f 4d 4d 41 4e 44 20 3d EY_PIN_COMMAND =
1e9b0 20 25 73 22 2c 20 63 61 63 6b 65 79 5f 70 69 6e %s", cackey_pin
1e9c0 5f 63 6f 6d 6d 61 6e 64 29 3b 0a 0a 09 70 69 6e _command);...pin
1e9d0 66 64 20 3d 20 70 6f 70 65 6e 28 63 61 63 6b 65 fd = popen(cacke
1e9e0 79 5f 70 69 6e 5f 63 6f 6d 6d 61 6e 64 2c 20 22 y_pin_command, "
1e9f0 72 22 29 3b 0a 09 69 66 20 28 70 69 6e 66 64 20 r");..if (pinfd
1ea00 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 == NULL) {...CAC
1ea10 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
1ea20 28 22 45 72 72 6f 72 2e 20 20 25 73 3a 20 55 6e ("Error. %s: Un
1ea30 61 62 6c 65 20 74 6f 20 72 75 6e 22 2c 20 63 61 able to run", ca
1ea40 63 6b 65 79 5f 70 69 6e 5f 63 6f 6d 6d 61 6e 64 ckey_pin_command
1ea50 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 41 43 );....return(CAC
1ea60 4b 45 59 5f 50 43 53 43 5f 45 5f 42 41 44 50 49 KEY_PCSC_E_BADPI
1ea70 4e 29 3b 0a 09 7d 0a 0a 09 66 67 65 74 73 5f 72 N);..}...fgets_r
1ea80 65 74 20 3d 20 66 67 65 74 73 28 70 69 6e 62 75 et = fgets(pinbu
1ea90 66 2c 20 33 32 2c 20 70 69 6e 66 64 29 3b 0a 09 f, 32, pinfd);..
1eaa0 69 66 20 28 66 67 65 74 73 5f 72 65 74 20 3d 3d if (fgets_ret ==
1eab0 20 4e 55 4c 4c 29 20 7b 0a 09 09 70 69 6e 62 75 NULL) {...pinbu
1eac0 66 5b 30 5d 20 3d 20 27 5c 30 27 3b 0a 09 7d 0a f[0] = '\0';..}.
1ead0 0a 09 70 63 6c 6f 73 65 5f 72 65 74 20 3d 20 70 ..pclose_ret = p
1eae0 63 6c 6f 73 65 28 70 69 6e 66 64 29 3b 0a 09 69 close(pinfd);..i
1eaf0 66 20 28 70 63 6c 6f 73 65 5f 72 65 74 20 3d 3d f (pclose_ret ==
1eb00 20 2d 31 20 26 26 20 65 72 72 6e 6f 20 3d 3d 20 -1 && errno ==
1eb10 45 43 48 49 4c 44 29 20 7b 0a 09 09 43 41 43 4b ECHILD) {...CACK
1eb20 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
1eb30 22 4e 6f 74 69 63 65 2e 20 20 70 63 6c 6f 73 65 "Notice. pclose
1eb40 28 29 20 69 6e 64 69 63 61 74 65 64 20 69 74 20 () indicated it
1eb50 63 6f 75 6c 64 20 6e 6f 74 20 67 65 74 20 74 68 could not get th
1eb60 65 20 73 74 61 74 75 73 20 6f 66 20 74 68 65 20 e status of the
1eb70 63 68 69 6c 64 2c 20 61 73 73 75 6d 69 6e 67 20 child, assuming
1eb80 69 74 20 73 75 63 63 65 65 65 64 65 64 20 21 22 it succeeeded !"
1eb90 29 3b 0a 0a 09 09 70 63 6c 6f 73 65 5f 72 65 74 );....pclose_ret
1eba0 20 3d 20 30 3b 0a 09 7d 0a 0a 09 69 66 20 28 70 = 0;..}...if (p
1ebb0 63 6c 6f 73 65 5f 72 65 74 20 21 3d 20 30 29 20 close_ret != 0)
1ebc0 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
1ebd0 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
1ebe0 20 25 73 3a 20 65 78 69 74 65 64 20 77 69 74 68 %s: exited with
1ebf0 20 6e 6f 6e 2d 7a 65 72 6f 20 73 74 61 74 75 73 non-zero status
1ec00 20 6f 66 20 25 69 22 2c 20 63 61 63 6b 65 79 5f of %i", cackey_
1ec10 70 69 6e 5f 63 6f 6d 6d 61 6e 64 2c 20 70 63 6c pin_command, pcl
1ec20 6f 73 65 5f 72 65 74 29 3b 0a 0a 09 09 72 65 74 ose_ret);....ret
1ec30 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 43 5f urn(CACKEY_PCSC_
1ec40 45 5f 42 41 44 50 49 4e 29 3b 0a 09 7d 0a 0a 09 E_BADPIN);..}...
1ec50 69 66 20 28 73 74 72 6c 65 6e 28 70 69 6e 62 75 if (strlen(pinbu
1ec60 66 29 20 3c 20 31 29 20 7b 0a 09 09 43 41 43 4b f) < 1) {...CACK
1ec70 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
1ec80 22 45 72 72 6f 72 2e 20 20 25 73 3a 20 72 65 74 "Error. %s: ret
1ec90 75 72 6e 65 64 20 6e 6f 20 64 61 74 61 22 2c 20 urned no data",
1eca0 63 61 63 6b 65 79 5f 70 69 6e 5f 63 6f 6d 6d 61 cackey_pin_comma
1ecb0 6e 64 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 nd);....return(C
1ecc0 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 42 41 44 ACKEY_PCSC_E_BAD
1ecd0 50 49 4e 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 70 PIN);..}...if (p
1ece0 69 6e 62 75 66 5b 73 74 72 6c 65 6e 28 70 69 6e inbuf[strlen(pin
1ecf0 62 75 66 29 20 2d 20 31 5d 20 3d 3d 20 27 5c 6e buf) - 1] == '\n
1ed00 27 29 20 7b 0a 09 09 70 69 6e 62 75 66 5b 73 74 ') {...pinbuf[st
1ed10 72 6c 65 6e 28 70 69 6e 62 75 66 29 20 2d 20 31 rlen(pinbuf) - 1
1ed20 5d 20 3d 20 27 5c 30 27 3b 0a 09 7d 0a 0a 09 72 ] = '\0';..}...r
1ed30 65 74 75 72 6e 28 43 41 43 4b 45 59 5f 50 43 53 eturn(CACKEY_PCS
1ed40 43 5f 53 5f 4f 4b 29 3b 0a 7d 0a 0a 43 4b 5f 44 C_S_OK);.}..CK_D
1ed50 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 43 EFINE_FUNCTION(C
1ed60 4b 5f 52 56 2c 20 43 5f 49 6e 69 74 69 61 6c 69 K_RV, C_Initiali
1ed70 7a 65 29 28 43 4b 5f 56 4f 49 44 5f 50 54 52 20 ze)(CK_VOID_PTR
1ed80 70 49 6e 69 74 41 72 67 73 29 20 7b 0a 09 43 4b pInitArgs) {..CK
1ed90 5f 43 5f 49 4e 49 54 49 41 4c 49 5a 45 5f 41 52 _C_INITIALIZE_AR
1eda0 47 53 20 43 4b 5f 50 54 52 20 61 72 67 73 3b 0a GS CK_PTR args;.
1edb0 09 75 69 6e 74 33 32 5f 74 20 69 64 78 2c 20 68 .uint32_t idx, h
1edc0 69 67 68 65 73 74 5f 73 6c 6f 74 3b 0a 09 69 6e ighest_slot;..in
1edd0 74 20 6d 75 74 65 78 5f 69 6e 69 74 5f 72 65 74 t mutex_init_ret
1ede0 3b 0a 09 69 6e 74 20 69 6e 63 6c 75 64 65 5f 64 ;..int include_d
1edf0 6f 64 5f 63 65 72 74 73 3b 0a 0a 09 43 41 43 4b od_certs;...CACK
1ee00 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
1ee10 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 "Called.");...if
1ee20 20 28 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c (cackey_initial
1ee30 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 ized) {...CACKEY
1ee40 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
1ee50 72 72 6f 72 2e 20 20 41 6c 72 65 61 64 79 20 69 rror. Already i
1ee60 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a nitialized.");..
1ee70 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 ..return(CKR_CRY
1ee80 50 54 4f 4b 49 5f 41 4c 52 45 41 44 59 5f 49 4e PTOKI_ALREADY_IN
1ee90 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a ITIALIZED);..}..
1eea0 09 69 66 20 28 70 49 6e 69 74 41 72 67 73 20 21 .if (pInitArgs !
1eeb0 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 61 72 67 73 = NULL) {...args
1eec0 20 3d 20 70 49 6e 69 74 41 72 67 73 3b 0a 09 09 = pInitArgs;...
1eed0 6d 65 6d 63 70 79 28 26 63 61 63 6b 65 79 5f 61 memcpy(&cackey_a
1eee0 72 67 73 2c 20 61 72 67 73 2c 20 73 69 7a 65 6f rgs, args, sizeo
1eef0 66 28 63 61 63 6b 65 79 5f 61 72 67 73 29 29 3b f(cackey_args));
1ef00 0a 0a 09 09 69 66 20 28 61 72 67 73 2d 3e 43 72 ....if (args->Cr
1ef10 65 61 74 65 4d 75 74 65 78 20 3d 3d 20 4e 55 4c eateMutex == NUL
1ef20 4c 20 7c 7c 20 61 72 67 73 2d 3e 44 65 73 74 72 L || args->Destr
1ef30 6f 79 4d 75 74 65 78 20 3d 3d 20 4e 55 4c 4c 20 oyMutex == NULL
1ef40 7c 7c 20 61 72 67 73 2d 3e 4c 6f 63 6b 4d 75 74 || args->LockMut
1ef50 65 78 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 61 72 ex == NULL || ar
1ef60 67 73 2d 3e 55 6e 6c 6f 63 6b 4d 75 74 65 78 20 gs->UnlockMutex
1ef70 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 69 66 == NULL) {....if
1ef80 20 28 61 72 67 73 2d 3e 43 72 65 61 74 65 4d 75 (args->CreateMu
1ef90 74 65 78 20 21 3d 20 4e 55 4c 4c 20 7c 7c 20 61 tex != NULL || a
1efa0 72 67 73 2d 3e 44 65 73 74 72 6f 79 4d 75 74 65 rgs->DestroyMute
1efb0 78 20 21 3d 20 4e 55 4c 4c 20 7c 7c 20 61 72 67 x != NULL || arg
1efc0 73 2d 3e 4c 6f 63 6b 4d 75 74 65 78 20 21 3d 20 s->LockMutex !=
1efd0 4e 55 4c 4c 20 7c 7c 20 61 72 67 73 2d 3e 55 6e NULL || args->Un
1efe0 6c 6f 63 6b 4d 75 74 65 78 20 21 3d 20 4e 55 4c lockMutex != NUL
1eff0 4c 29 20 7b 0a 09 09 09 09 43 41 43 4b 45 59 5f L) {.....CACKEY_
1f000 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
1f010 72 6f 72 2e 20 53 6f 6d 65 2c 20 62 75 74 20 6e ror. Some, but n
1f020 6f 74 20 41 6c 6c 20 74 68 72 65 61 64 69 6e 67 ot All threading
1f030 20 70 72 69 6d 69 74 69 76 65 73 20 70 72 6f 76 primitives prov
1f040 69 64 65 64 2e 22 29 3b 0a 0a 09 09 09 09 72 65 ided.");......re
1f050 74 75 72 6e 28 43 4b 52 5f 41 52 47 55 4d 45 4e turn(CKR_ARGUMEN
1f060 54 53 5f 42 41 44 29 3b 0a 09 09 09 7d 0a 09 09 TS_BAD);....}...
1f070 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 63 61 }..} else {...ca
1f080 63 6b 65 79 5f 61 72 67 73 2e 43 72 65 61 74 65 ckey_args.Create
1f090 4d 75 74 65 78 20 3d 20 4e 55 4c 4c 3b 0a 09 09 Mutex = NULL;...
1f0a0 63 61 63 6b 65 79 5f 61 72 67 73 2e 44 65 73 74 cackey_args.Dest
1f0b0 72 6f 79 4d 75 74 65 78 20 3d 20 4e 55 4c 4c 3b royMutex = NULL;
1f0c0 0a 09 09 63 61 63 6b 65 79 5f 61 72 67 73 2e 4c ...cackey_args.L
1f0d0 6f 63 6b 4d 75 74 65 78 20 3d 20 4e 55 4c 4c 3b ockMutex = NULL;
1f0e0 0a 09 09 63 61 63 6b 65 79 5f 61 72 67 73 2e 55 ...cackey_args.U
1f0f0 6e 6c 6f 63 6b 4d 75 74 65 78 20 3d 20 4e 55 4c nlockMutex = NUL
1f100 4c 3b 0a 09 09 63 61 63 6b 65 79 5f 61 72 67 73 L;...cackey_args
1f110 2e 66 6c 61 67 73 20 3d 20 30 3b 0a 09 7d 0a 0a .flags = 0;..}..
1f120 09 66 6f 72 20 28 69 64 78 20 3d 20 30 3b 20 69 .for (idx = 0; i
1f130 64 78 20 3c 20 28 73 69 7a 65 6f 66 28 63 61 63 dx < (sizeof(cac
1f140 6b 65 79 5f 73 65 73 73 69 6f 6e 73 29 20 2f 20 key_sessions) /
1f150 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 65 sizeof(cackey_se
1f160 73 73 69 6f 6e 73 5b 30 5d 29 29 3b 20 69 64 78 ssions[0])); idx
1f170 2b 2b 29 20 7b 0a 09 09 63 61 63 6b 65 79 5f 73 ++) {...cackey_s
1f180 65 73 73 69 6f 6e 73 5b 69 64 78 5d 2e 61 63 74 essions[idx].act
1f190 69 76 65 20 3d 20 30 3b 0a 09 7d 0a 0a 09 66 6f ive = 0;..}...fo
1f1a0 72 20 28 69 64 78 20 3d 20 30 3b 20 69 64 78 20 r (idx = 0; idx
1f1b0 3c 20 28 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 < (sizeof(cackey
1f1c0 5f 73 6c 6f 74 73 29 20 2f 20 73 69 7a 65 6f 66 _slots) / sizeof
1f1d0 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 30 5d (cackey_slots[0]
1f1e0 29 29 3b 20 69 64 78 2b 2b 29 20 7b 0a 09 09 63 )); idx++) {...c
1f1f0 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 78 5d ackey_slots[idx]
1f200 2e 61 63 74 69 76 65 20 3d 20 30 3b 0a 09 09 63 .active = 0;...c
1f210 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 78 5d ackey_slots[idx]
1f220 2e 70 63 73 63 5f 72 65 61 64 65 72 20 3d 20 4e .pcsc_reader = N
1f230 55 4c 4c 3b 0a 09 09 63 61 63 6b 65 79 5f 73 6c ULL;...cackey_sl
1f240 6f 74 73 5b 69 64 78 5d 2e 74 72 61 6e 73 61 63 ots[idx].transac
1f250 74 69 6f 6e 5f 64 65 70 74 68 20 3d 20 30 3b 0a tion_depth = 0;.
1f260 09 09 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 69 ..cackey_slots[i
1f270 64 78 5d 2e 74 72 61 6e 73 61 63 74 69 6f 6e 5f dx].transaction_
1f280 6e 65 65 64 5f 68 77 5f 6c 6f 63 6b 20 3d 20 30 need_hw_lock = 0
1f290 3b 0a 09 09 63 61 63 6b 65 79 5f 73 6c 6f 74 73 ;...cackey_slots
1f2a0 5b 69 64 78 5d 2e 73 6c 6f 74 5f 72 65 73 65 74 [idx].slot_reset
1f2b0 20 3d 20 30 3b 0a 09 09 63 61 63 6b 65 79 5f 73 = 0;...cackey_s
1f2c0 6c 6f 74 73 5b 69 64 78 5d 2e 74 6f 6b 65 6e 5f lots[idx].token_
1f2d0 66 6c 61 67 73 20 3d 20 30 3b 0a 09 09 63 61 63 flags = 0;...cac
1f2e0 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 78 5d 2e 6c key_slots[idx].l
1f2f0 61 62 65 6c 20 3d 20 4e 55 4c 4c 3b 0a 09 09 63 abel = NULL;...c
1f300 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 78 5d ackey_slots[idx]
1f310 2e 69 6e 74 65 72 6e 61 6c 20 3d 20 30 3b 0a 09 .internal = 0;..
1f320 09 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 .cackey_slots[id
1f330 78 5d 2e 69 64 5f 74 79 70 65 5f 68 69 6e 74 20 x].id_type_hint
1f340 3d 20 43 41 43 4b 45 59 5f 49 44 5f 54 59 50 45 = CACKEY_ID_TYPE
1f350 5f 55 4e 4b 4e 4f 57 4e 3b 0a 09 7d 0a 0a 23 69 _UNKNOWN;..}..#i
1f360 66 64 65 66 20 43 41 43 4b 45 59 5f 4e 4f 5f 45 fdef CACKEY_NO_E
1f370 58 54 52 41 5f 43 45 52 54 53 0a 09 69 66 20 28 XTRA_CERTS..if (
1f380 67 65 74 65 6e 76 28 22 43 41 43 4b 45 59 5f 45 getenv("CACKEY_E
1f390 58 54 52 41 5f 43 45 52 54 53 22 29 20 21 3d 20 XTRA_CERTS") !=
1f3a0 4e 55 4c 4c 29 20 7b 0a 09 09 69 6e 63 6c 75 64 NULL) {...includ
1f3b0 65 5f 64 6f 64 5f 63 65 72 74 73 20 3d 20 31 3b e_dod_certs = 1;
1f3c0 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 69 6e 63 ..} else {...inc
1f3d0 6c 75 64 65 5f 64 6f 64 5f 63 65 72 74 73 20 3d lude_dod_certs =
1f3e0 20 30 3b 0a 09 7d 0a 23 65 6c 73 65 0a 09 69 66 0;..}.#else..if
1f3f0 20 28 67 65 74 65 6e 76 28 22 43 41 43 4b 45 59 (getenv("CACKEY
1f400 5f 4e 4f 5f 45 58 54 52 41 5f 43 45 52 54 53 22 _NO_EXTRA_CERTS"
1f410 29 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 69 ) != NULL) {...i
1f420 6e 63 6c 75 64 65 5f 64 6f 64 5f 63 65 72 74 73 nclude_dod_certs
1f430 20 3d 20 30 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a = 0;..} else {.
1f440 09 09 69 6e 63 6c 75 64 65 5f 64 6f 64 5f 63 65 ..include_dod_ce
1f450 72 74 73 20 3d 20 31 3b 0a 09 7d 0a 23 65 6e 64 rts = 1;..}.#end
1f460 69 66 0a 0a 09 69 66 20 28 69 6e 63 6c 75 64 65 if...if (include
1f470 5f 64 6f 64 5f 63 65 72 74 73 20 3d 3d 20 30 29 _dod_certs == 0)
1f480 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
1f490 47 5f 50 52 49 4e 54 46 28 22 41 73 6b 65 64 20 G_PRINTF("Asked
1f4a0 6e 6f 74 20 74 6f 20 69 6e 63 6c 75 64 65 20 44 not to include D
1f4b0 6f 44 20 63 65 72 74 69 66 69 63 61 74 65 73 22 oD certificates"
1f4c0 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 68 );..} else {...h
1f4d0 69 67 68 65 73 74 5f 73 6c 6f 74 20 3d 20 28 73 ighest_slot = (s
1f4e0 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 6c 6f izeof(cackey_slo
1f4f0 74 73 29 20 2f 20 73 69 7a 65 6f 66 28 63 61 63 ts) / sizeof(cac
1f500 6b 65 79 5f 73 6c 6f 74 73 5b 30 5d 29 29 20 2d key_slots[0])) -
1f510 20 31 3b 0a 0a 09 09 43 41 43 4b 45 59 5f 44 45 1;....CACKEY_DE
1f520 42 55 47 5f 50 52 49 4e 54 46 28 22 49 6e 63 6c BUG_PRINTF("Incl
1f530 75 64 69 6e 67 20 44 6f 44 20 63 65 72 74 73 20 uding DoD certs
1f540 69 6e 20 73 6c 6f 74 20 25 6c 75 22 2c 20 28 75 in slot %lu", (u
1f550 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 68 69 nsigned long) hi
1f560 67 68 65 73 74 5f 73 6c 6f 74 29 3b 0a 0a 09 09 ghest_slot);....
1f570 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 68 69 67 cackey_slots[hig
1f580 68 65 73 74 5f 73 6c 6f 74 5d 2e 61 63 74 69 76 hest_slot].activ
1f590 65 20 3d 20 31 3b 0a 09 09 63 61 63 6b 65 79 5f e = 1;...cackey_
1f5a0 73 6c 6f 74 73 5b 68 69 67 68 65 73 74 5f 73 6c slots[highest_sl
1f5b0 6f 74 5d 2e 69 6e 74 65 72 6e 61 6c 20 3d 20 31 ot].internal = 1
1f5c0 3b 0a 09 09 63 61 63 6b 65 79 5f 73 6c 6f 74 73 ;...cackey_slots
1f5d0 5b 68 69 67 68 65 73 74 5f 73 6c 6f 74 5d 2e 6c [highest_slot].l
1f5e0 61 62 65 6c 20 3d 20 28 75 6e 73 69 67 6e 65 64 abel = (unsigned
1f5f0 20 63 68 61 72 20 2a 29 20 22 55 53 20 47 6f 76 char *) "US Gov
1f600 65 72 6e 6d 65 6e 74 20 43 65 72 74 69 66 69 63 ernment Certific
1f610 61 74 65 73 22 3b 0a 09 09 63 61 63 6b 65 79 5f ates";...cackey_
1f620 73 6c 6f 74 73 5b 68 69 67 68 65 73 74 5f 73 6c slots[highest_sl
1f630 6f 74 5d 2e 70 63 73 63 5f 72 65 61 64 65 72 20 ot].pcsc_reader
1f640 3d 20 22 43 41 43 4b 65 79 22 3b 0a 09 09 63 61 = "CACKey";...ca
1f650 63 6b 65 79 5f 73 6c 6f 74 73 5b 68 69 67 68 65 ckey_slots[highe
1f660 73 74 5f 73 6c 6f 74 5d 2e 74 6f 6b 65 6e 5f 66 st_slot].token_f
1f670 6c 61 67 73 20 3d 20 30 3b 0a 09 7d 0a 0a 09 63 lags = 0;..}...c
1f680 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a 65 ackey_initialize
1f690 64 20 3d 20 31 3b 0a 0a 09 69 66 20 28 21 63 61 d = 1;...if (!ca
1f6a0 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 5f 69 6e 69 ckey_biglock_ini
1f6b0 74 29 20 7b 0a 09 09 6d 75 74 65 78 5f 69 6e 69 t) {...mutex_ini
1f6c0 74 5f 72 65 74 20 3d 20 63 61 63 6b 65 79 5f 6d t_ret = cackey_m
1f6d0 75 74 65 78 5f 63 72 65 61 74 65 28 26 63 61 63 utex_create(&cac
1f6e0 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 key_biglock);...
1f6f0 09 69 66 20 28 6d 75 74 65 78 5f 69 6e 69 74 5f .if (mutex_init_
1f700 72 65 74 20 21 3d 20 30 29 20 7b 0a 09 09 09 43 ret != 0) {....C
1f710 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
1f720 54 46 28 22 45 72 72 6f 72 2e 20 20 4d 75 74 65 TF("Error. Mute
1f730 78 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e x initialization
1f740 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 09 failed.");.....
1f750 72 65 74 75 72 6e 28 43 4b 52 5f 43 41 4e 54 5f return(CKR_CANT_
1f760 4c 4f 43 4b 29 3b 0a 09 09 7d 0a 0a 09 09 63 61 LOCK);...}....ca
1f770 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 5f 69 6e 69 ckey_biglock_ini
1f780 74 20 3d 20 31 3b 0a 09 7d 0a 0a 09 2f 2a 20 44 t = 1;..}.../* D
1f790 65 66 69 6e 65 20 61 20 63 6f 6d 6d 61 6e 64 20 efine a command
1f7a0 74 6f 20 70 72 6f 6d 70 74 20 75 73 65 72 20 66 to prompt user f
1f7b0 6f 72 20 61 20 50 49 4e 20 2a 2f 0a 23 69 66 64 or a PIN */.#ifd
1f7c0 65 66 20 43 41 43 4b 45 59 5f 50 49 4e 5f 43 4f ef CACKEY_PIN_CO
1f7d0 4d 4d 41 4e 44 5f 44 45 46 41 55 4c 54 0a 09 63 MMAND_DEFAULT..c
1f7e0 61 63 6b 65 79 5f 70 69 6e 5f 63 6f 6d 6d 61 6e ackey_pin_comman
1f7f0 64 20 3d 20 73 74 72 64 75 70 28 43 41 43 4b 45 d = strdup(CACKE
1f800 59 5f 4d 41 43 52 4f 5f 44 45 46 41 55 4c 54 5f Y_MACRO_DEFAULT_
1f810 58 53 54 52 28 43 41 43 4b 45 59 5f 50 49 4e 5f XSTR(CACKEY_PIN_
1f820 43 4f 4d 4d 41 4e 44 5f 44 45 46 41 55 4c 54 29 COMMAND_DEFAULT)
1f830 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 );.#endif..#ifde
1f840 66 20 43 41 43 4b 45 59 5f 50 49 4e 5f 43 4f 4d f CACKEY_PIN_COM
1f850 4d 41 4e 44 5f 58 4f 4e 4c 59 5f 44 45 46 41 55 MAND_XONLY_DEFAU
1f860 4c 54 0a 09 69 66 20 28 67 65 74 65 6e 76 28 22 LT..if (getenv("
1f870 44 49 53 50 4c 41 59 22 29 20 21 3d 20 4e 55 4c DISPLAY") != NUL
1f880 4c 29 20 7b 0a 09 09 63 61 63 6b 65 79 5f 70 69 L) {...cackey_pi
1f890 6e 5f 63 6f 6d 6d 61 6e 64 20 3d 20 73 74 72 64 n_command = strd
1f8a0 75 70 28 43 41 43 4b 45 59 5f 4d 41 43 52 4f 5f up(CACKEY_MACRO_
1f8b0 44 45 46 41 55 4c 54 5f 58 53 54 52 28 43 41 43 DEFAULT_XSTR(CAC
1f8c0 4b 45 59 5f 50 49 4e 5f 43 4f 4d 4d 41 4e 44 5f KEY_PIN_COMMAND_
1f8d0 58 4f 4e 4c 59 5f 44 45 46 41 55 4c 54 29 29 3b XONLY_DEFAULT));
1f8e0 0a 09 7d 0a 23 65 6e 64 69 66 0a 0a 09 69 66 20 ..}.#endif...if
1f8f0 28 67 65 74 65 6e 76 28 22 43 41 43 4b 45 59 5f (getenv("CACKEY_
1f900 50 49 4e 5f 43 4f 4d 4d 41 4e 44 22 29 20 21 3d PIN_COMMAND") !=
1f910 20 4e 55 4c 4c 29 20 7b 0a 09 09 63 61 63 6b 65 NULL) {...cacke
1f920 79 5f 70 69 6e 5f 63 6f 6d 6d 61 6e 64 20 3d 20 y_pin_command =
1f930 73 74 72 64 75 70 28 67 65 74 65 6e 76 28 22 43 strdup(getenv("C
1f940 41 43 4b 45 59 5f 50 49 4e 5f 43 4f 4d 4d 41 4e ACKEY_PIN_COMMAN
1f950 44 22 29 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 67 D"));..}...if (g
1f960 65 74 65 6e 76 28 22 43 41 43 4b 45 59 5f 50 49 etenv("CACKEY_PI
1f970 4e 5f 43 4f 4d 4d 41 4e 44 5f 58 4f 4e 4c 59 22 N_COMMAND_XONLY"
1f980 29 20 21 3d 20 4e 55 4c 4c 20 26 26 20 67 65 74 ) != NULL && get
1f990 65 6e 76 28 22 44 49 53 50 4c 41 59 22 29 20 21 env("DISPLAY") !
1f9a0 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 63 61 63 6b = NULL) {...cack
1f9b0 65 79 5f 70 69 6e 5f 63 6f 6d 6d 61 6e 64 20 3d ey_pin_command =
1f9c0 20 73 74 72 64 75 70 28 67 65 74 65 6e 76 28 22 strdup(getenv("
1f9d0 43 41 43 4b 45 59 5f 50 49 4e 5f 43 4f 4d 4d 41 CACKEY_PIN_COMMA
1f9e0 4e 44 5f 58 4f 4e 4c 59 22 29 29 3b 0a 09 7d 0a ND_XONLY"));..}.
1f9f0 0a 23 69 66 64 65 66 20 43 41 43 4b 45 59 5f 52 .#ifdef CACKEY_R
1fa00 45 41 44 45 52 53 5f 49 4e 43 4c 55 44 45 5f 4f EADERS_INCLUDE_O
1fa10 4e 4c 59 5f 44 45 46 41 55 4c 54 0a 09 63 61 63 NLY_DEFAULT..cac
1fa20 6b 65 79 5f 72 65 61 64 65 72 73 5f 69 6e 63 6c key_readers_incl
1fa30 75 64 65 5f 6f 6e 6c 79 20 3d 20 73 74 72 64 75 ude_only = strdu
1fa40 70 28 43 41 43 4b 45 59 5f 4d 41 43 52 4f 5f 44 p(CACKEY_MACRO_D
1fa50 45 46 41 55 4c 54 5f 58 53 54 52 28 43 41 43 4b EFAULT_XSTR(CACK
1fa60 45 59 5f 52 45 41 44 45 52 53 5f 49 4e 43 4c 55 EY_READERS_INCLU
1fa70 44 45 5f 4f 4e 4c 59 5f 44 45 46 41 55 4c 54 29 DE_ONLY_DEFAULT)
1fa80 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 );.#endif..#ifde
1fa90 66 20 43 41 43 4b 45 59 5f 52 45 41 44 45 52 53 f CACKEY_READERS
1faa0 5f 45 58 43 4c 55 44 45 5f 44 45 46 41 55 4c 54 _EXCLUDE_DEFAULT
1fab0 0a 09 63 61 63 6b 65 79 5f 72 65 61 64 65 72 73 ..cackey_readers
1fac0 5f 65 78 63 6c 75 64 65 20 3d 20 73 74 72 64 75 _exclude = strdu
1fad0 70 28 43 41 43 4b 45 59 5f 4d 41 43 52 4f 5f 44 p(CACKEY_MACRO_D
1fae0 45 46 41 55 4c 54 5f 58 53 54 52 28 43 41 43 4b EFAULT_XSTR(CACK
1faf0 45 59 5f 52 45 41 44 45 52 53 5f 45 58 43 4c 55 EY_READERS_EXCLU
1fb00 44 45 5f 44 45 46 41 55 4c 54 29 29 3b 0a 23 65 DE_DEFAULT));.#e
1fb10 6e 64 69 66 0a 0a 09 69 66 20 28 67 65 74 65 6e ndif...if (geten
1fb20 76 28 22 43 41 43 4b 45 59 5f 52 45 41 44 45 52 v("CACKEY_READER
1fb30 53 5f 49 4e 43 4c 55 44 45 5f 4f 4e 4c 59 22 29 S_INCLUDE_ONLY")
1fb40 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 63 61 != NULL) {...ca
1fb50 63 6b 65 79 5f 72 65 61 64 65 72 73 5f 69 6e 63 ckey_readers_inc
1fb60 6c 75 64 65 5f 6f 6e 6c 79 20 3d 20 73 74 72 64 lude_only = strd
1fb70 75 70 28 67 65 74 65 6e 76 28 22 43 41 43 4b 45 up(getenv("CACKE
1fb80 59 5f 52 45 41 44 45 52 53 5f 49 4e 43 4c 55 44 Y_READERS_INCLUD
1fb90 45 5f 4f 4e 4c 59 22 29 29 3b 0a 0a 09 09 69 66 E_ONLY"));....if
1fba0 20 28 63 61 63 6b 65 79 5f 72 65 61 64 65 72 73 (cackey_readers
1fbb0 5f 69 6e 63 6c 75 64 65 5f 6f 6e 6c 79 5b 30 5d _include_only[0]
1fbc0 20 3d 3d 20 27 5c 30 27 29 20 7b 0a 09 09 09 66 == '\0') {....f
1fbd0 72 65 65 28 63 61 63 6b 65 79 5f 72 65 61 64 65 ree(cackey_reade
1fbe0 72 73 5f 69 6e 63 6c 75 64 65 5f 6f 6e 6c 79 29 rs_include_only)
1fbf0 3b 0a 0a 09 09 09 63 61 63 6b 65 79 5f 72 65 61 ;.....cackey_rea
1fc00 64 65 72 73 5f 69 6e 63 6c 75 64 65 5f 6f 6e 6c ders_include_onl
1fc10 79 20 3d 20 4e 55 4c 4c 3b 0a 09 09 7d 0a 09 7d y = NULL;...}..}
1fc20 0a 0a 09 69 66 20 28 67 65 74 65 6e 76 28 22 43 ...if (getenv("C
1fc30 41 43 4b 45 59 5f 52 45 41 44 45 52 53 5f 45 58 ACKEY_READERS_EX
1fc40 43 4c 55 44 45 22 29 20 21 3d 20 4e 55 4c 4c 29 CLUDE") != NULL)
1fc50 20 7b 0a 09 09 63 61 63 6b 65 79 5f 72 65 61 64 {...cackey_read
1fc60 65 72 73 5f 65 78 63 6c 75 64 65 20 3d 20 73 74 ers_exclude = st
1fc70 72 64 75 70 28 67 65 74 65 6e 76 28 22 43 41 43 rdup(getenv("CAC
1fc80 4b 45 59 5f 52 45 41 44 45 52 53 5f 45 58 43 4c KEY_READERS_EXCL
1fc90 55 44 45 22 29 29 3b 0a 0a 09 09 69 66 20 28 63 UDE"));....if (c
1fca0 61 63 6b 65 79 5f 72 65 61 64 65 72 73 5f 65 78 ackey_readers_ex
1fcb0 63 6c 75 64 65 5b 30 5d 20 3d 3d 20 27 5c 30 27 clude[0] == '\0'
1fcc0 29 20 7b 0a 09 09 09 66 72 65 65 28 63 61 63 6b ) {....free(cack
1fcd0 65 79 5f 72 65 61 64 65 72 73 5f 65 78 63 6c 75 ey_readers_exclu
1fce0 64 65 29 3b 0a 0a 09 09 09 63 61 63 6b 65 79 5f de);.....cackey_
1fcf0 72 65 61 64 65 72 73 5f 65 78 63 6c 75 64 65 20 readers_exclude
1fd00 3d 20 4e 55 4c 4c 3b 0a 09 09 7d 0a 09 7d 0a 0a = NULL;...}..}..
1fd10 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
1fd20 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
1fd30 43 4b 52 5f 4f 4b 20 28 25 69 29 22 2c 20 43 4b CKR_OK (%i)", CK
1fd40 52 5f 4f 4b 29 3b 0a 0a 09 72 65 74 75 72 6e 28 R_OK);...return(
1fd50 43 4b 52 5f 4f 4b 29 3b 0a 7d 0a 0a 43 4b 5f 44 CKR_OK);.}..CK_D
1fd60 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 43 EFINE_FUNCTION(C
1fd70 4b 5f 52 56 2c 20 43 5f 46 69 6e 61 6c 69 7a 65 K_RV, C_Finalize
1fd80 29 28 43 4b 5f 56 4f 49 44 5f 50 54 52 20 70 52 )(CK_VOID_PTR pR
1fd90 65 73 65 72 76 65 64 29 20 7b 0a 09 75 69 6e 74 eserved) {..uint
1fda0 33 32 5f 74 20 69 64 78 3b 0a 0a 09 43 41 43 4b 32_t idx;...CACK
1fdb0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
1fdc0 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 "Called.");...if
1fdd0 20 28 70 52 65 73 65 72 76 65 64 20 21 3d 20 4e (pReserved != N
1fde0 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f ULL) {...CACKEY_
1fdf0 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
1fe00 72 6f 72 2e 20 70 52 65 73 65 72 76 65 64 20 69 ror. pReserved i
1fe10 73 20 6e 6f 74 20 4e 55 4c 4c 2e 22 29 3b 0a 0a s not NULL.");..
1fe20 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 41 52 47 ..return(CKR_ARG
1fe30 55 4d 45 4e 54 53 5f 42 41 44 29 3b 0a 09 7d 0a UMENTS_BAD);..}.
1fe40 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e ..if (!cackey_in
1fe50 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 itialized) {...C
1fe60 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
1fe70 54 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 TF("Error. Not
1fe80 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a initialized.");.
1fe90 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 ...return(CKR_CR
1fea0 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 YPTOKI_NOT_INITI
1feb0 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 66 6f ALIZED);..}...fo
1fec0 72 20 28 69 64 78 20 3d 20 30 3b 20 69 64 78 20 r (idx = 0; idx
1fed0 3c 20 28 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 < (sizeof(cackey
1fee0 5f 73 65 73 73 69 6f 6e 73 29 20 2f 20 73 69 7a _sessions) / siz
1fef0 65 6f 66 28 63 61 63 6b 65 79 5f 73 65 73 73 69 eof(cackey_sessi
1ff00 6f 6e 73 5b 30 5d 29 29 3b 20 69 64 78 2b 2b 29 ons[0])); idx++)
1ff10 20 7b 0a 09 09 69 66 20 28 63 61 63 6b 65 79 5f {...if (cackey_
1ff20 73 65 73 73 69 6f 6e 73 5b 69 64 78 5d 2e 61 63 sessions[idx].ac
1ff30 74 69 76 65 29 20 7b 0a 09 09 09 43 5f 43 6c 6f tive) {....C_Clo
1ff40 73 65 53 65 73 73 69 6f 6e 28 69 64 78 29 3b 0a seSession(idx);.
1ff50 09 09 7d 0a 09 7d 0a 0a 09 63 61 63 6b 65 79 5f ..}..}...cackey_
1ff60 73 6c 6f 74 73 5f 64 69 73 63 6f 6e 6e 65 63 74 slots_disconnect
1ff70 5f 61 6c 6c 28 31 29 3b 0a 0a 09 66 6f 72 20 28 _all(1);...for (
1ff80 69 64 78 20 3d 20 30 3b 20 69 64 78 20 3c 20 28 idx = 0; idx < (
1ff90 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 6c sizeof(cackey_sl
1ffa0 6f 74 73 29 20 2f 20 73 69 7a 65 6f 66 28 63 61 ots) / sizeof(ca
1ffb0 63 6b 65 79 5f 73 6c 6f 74 73 5b 30 5d 29 29 3b ckey_slots[0]));
1ffc0 20 69 64 78 2b 2b 29 20 7b 0a 09 09 69 66 20 28 idx++) {...if (
1ffd0 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 78 cackey_slots[idx
1ffe0 5d 2e 69 6e 74 65 72 6e 61 6c 29 20 7b 0a 09 09 ].internal) {...
1fff0 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 7d 0a 0a .continue;...}..
20000 09 09 69 66 20 28 63 61 63 6b 65 79 5f 73 6c 6f ..if (cackey_slo
20010 74 73 5b 69 64 78 5d 2e 63 61 63 68 65 64 5f 63 ts[idx].cached_c
20020 65 72 74 73 29 20 7b 0a 09 09 09 63 61 63 6b 65 erts) {....cacke
20030 79 5f 66 72 65 65 5f 63 65 72 74 73 28 63 61 63 y_free_certs(cac
20040 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 78 5d 2e 63 key_slots[idx].c
20050 61 63 68 65 64 5f 63 65 72 74 73 2c 20 63 61 63 ached_certs, cac
20060 6b 65 79 5f 73 6c 6f 74 73 5b 69 64 78 5d 2e 63 key_slots[idx].c
20070 61 63 68 65 64 5f 63 65 72 74 73 5f 63 6f 75 6e ached_certs_coun
20080 74 2c 20 31 29 3b 0a 0a 09 09 09 63 61 63 6b 65 t, 1);.....cacke
20090 79 5f 73 6c 6f 74 73 5b 69 64 78 5d 2e 63 61 63 y_slots[idx].cac
200a0 68 65 64 5f 63 65 72 74 73 20 3d 20 4e 55 4c 4c hed_certs = NULL
200b0 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 63 61 63 6b 65 ;...}..}...cacke
200c0 79 5f 70 63 73 63 5f 64 69 73 63 6f 6e 6e 65 63 y_pcsc_disconnec
200d0 74 28 29 3b 0a 0a 09 69 66 20 28 63 61 63 6b 65 t();...if (cacke
200e0 79 5f 70 69 6e 5f 63 6f 6d 6d 61 6e 64 20 21 3d y_pin_command !=
200f0 20 4e 55 4c 4c 29 20 7b 0a 09 09 66 72 65 65 28 NULL) {...free(
20100 63 61 63 6b 65 79 5f 70 69 6e 5f 63 6f 6d 6d 61 cackey_pin_comma
20110 6e 64 29 3b 0a 0a 09 09 63 61 63 6b 65 79 5f 70 nd);....cackey_p
20120 69 6e 5f 63 6f 6d 6d 61 6e 64 20 3d 20 4e 55 4c in_command = NUL
20130 4c 3b 0a 09 7d 0a 0a 09 69 66 20 28 63 61 63 6b L;..}...if (cack
20140 65 79 5f 72 65 61 64 65 72 73 5f 69 6e 63 6c 75 ey_readers_inclu
20150 64 65 5f 6f 6e 6c 79 20 21 3d 20 4e 55 4c 4c 29 de_only != NULL)
20160 20 7b 0a 09 09 66 72 65 65 28 63 61 63 6b 65 79 {...free(cackey
20170 5f 72 65 61 64 65 72 73 5f 69 6e 63 6c 75 64 65 _readers_include
20180 5f 6f 6e 6c 79 29 3b 0a 0a 09 09 63 61 63 6b 65 _only);....cacke
20190 79 5f 72 65 61 64 65 72 73 5f 69 6e 63 6c 75 64 y_readers_includ
201a0 65 5f 6f 6e 6c 79 20 3d 20 4e 55 4c 4c 3b 0a 09 e_only = NULL;..
201b0 7d 0a 0a 09 69 66 20 28 63 61 63 6b 65 79 5f 72 }...if (cackey_r
201c0 65 61 64 65 72 73 5f 65 78 63 6c 75 64 65 20 21 eaders_exclude !
201d0 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 66 72 65 65 = NULL) {...free
201e0 28 63 61 63 6b 65 79 5f 72 65 61 64 65 72 73 5f (cackey_readers_
201f0 65 78 63 6c 75 64 65 29 3b 0a 0a 09 09 63 61 63 exclude);....cac
20200 6b 65 79 5f 72 65 61 64 65 72 73 5f 65 78 63 6c key_readers_excl
20210 75 64 65 20 3d 20 4e 55 4c 4c 3b 0a 09 7d 0a 0a ude = NULL;..}..
20220 09 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 .cackey_initiali
20230 7a 65 64 20 3d 20 30 3b 0a 0a 09 43 41 43 4b 45 zed = 0;...CACKE
20240 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
20250 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 4f 4b Returning CKR_OK
20260 20 28 25 69 29 22 2c 20 43 4b 52 5f 4f 4b 29 3b (%i)", CKR_OK);
20270 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f 4b ...return(CKR_OK
20280 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f );.}..CK_DEFINE_
20290 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 FUNCTION(CK_RV,
202a0 43 5f 47 65 74 49 6e 66 6f 29 28 43 4b 5f 49 4e C_GetInfo)(CK_IN
202b0 46 4f 5f 50 54 52 20 70 49 6e 66 6f 29 20 7b 0a FO_PTR pInfo) {.
202c0 09 73 74 61 74 69 63 20 43 4b 5f 55 54 46 38 43 .static CK_UTF8C
202d0 48 41 52 20 6d 61 6e 75 66 61 63 74 75 72 65 72 HAR manufacturer
202e0 49 44 5b 5d 20 3d 20 22 55 2e 53 2e 20 47 6f 76 ID[] = "U.S. Gov
202f0 65 72 6e 6d 65 6e 74 22 3b 0a 09 73 74 61 74 69 ernment";..stati
20300 63 20 43 4b 5f 55 54 46 38 43 48 41 52 20 6c 69 c CK_UTF8CHAR li
20310 62 72 61 72 79 44 65 73 63 72 69 70 74 69 6f 6e braryDescription
20320 5b 5d 20 3d 20 22 43 41 43 4b 65 79 22 3b 0a 0a [] = "CACKey";..
20330 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
20340 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b INTF("Called.");
20350 0a 0a 09 69 66 20 28 70 49 6e 66 6f 20 3d 3d 20 ...if (pInfo ==
20360 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b 45 59 NULL) {...CACKEY
20370 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
20380 72 72 6f 72 2e 20 70 49 6e 66 6f 20 69 73 20 4e rror. pInfo is N
20390 55 4c 4c 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 ULL.");....retur
203a0 6e 28 43 4b 52 5f 41 52 47 55 4d 45 4e 54 53 5f n(CKR_ARGUMENTS_
203b0 42 41 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 21 BAD);..}...if (!
203c0 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a cackey_initializ
203d0 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ed) {...CACKEY_D
203e0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
203f0 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c or. Not initial
20400 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 ized.");....retu
20410 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f rn(CKR_CRYPTOKI_
20420 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 NOT_INITIALIZED)
20430 3b 0a 09 7d 0a 0a 09 70 49 6e 66 6f 2d 3e 63 72 ;..}...pInfo->cr
20440 79 70 74 6f 6b 69 56 65 72 73 69 6f 6e 2e 6d 61 yptokiVersion.ma
20450 6a 6f 72 20 3d 20 28 28 43 41 43 4b 45 59 5f 43 jor = ((CACKEY_C
20460 52 59 50 54 4f 4b 49 5f 56 45 52 53 49 4f 4e 5f RYPTOKI_VERSION_
20470 43 4f 44 45 29 20 3e 3e 20 31 36 29 20 26 20 30 CODE) >> 16) & 0
20480 78 66 66 3b 0a 09 70 49 6e 66 6f 2d 3e 63 72 79 xff;..pInfo->cry
20490 70 74 6f 6b 69 56 65 72 73 69 6f 6e 2e 6d 69 6e ptokiVersion.min
204a0 6f 72 20 3d 20 28 28 43 41 43 4b 45 59 5f 43 52 or = ((CACKEY_CR
204b0 59 50 54 4f 4b 49 5f 56 45 52 53 49 4f 4e 5f 43 YPTOKI_VERSION_C
204c0 4f 44 45 29 20 3e 3e 20 38 29 20 26 20 30 78 66 ODE) >> 8) & 0xf
204d0 66 3b 0a 0a 09 6d 65 6d 73 65 74 28 70 49 6e 66 f;...memset(pInf
204e0 6f 2d 3e 6d 61 6e 75 66 61 63 74 75 72 65 72 49 o->manufacturerI
204f0 44 2c 20 27 20 27 2c 20 73 69 7a 65 6f 66 28 70 D, ' ', sizeof(p
20500 49 6e 66 6f 2d 3e 6d 61 6e 75 66 61 63 74 75 72 Info->manufactur
20510 65 72 49 44 29 29 3b 0a 09 6d 65 6d 63 70 79 28 erID));..memcpy(
20520 70 49 6e 66 6f 2d 3e 6d 61 6e 75 66 61 63 74 75 pInfo->manufactu
20530 72 65 72 49 44 2c 20 6d 61 6e 75 66 61 63 74 75 rerID, manufactu
20540 72 65 72 49 44 2c 20 73 69 7a 65 6f 66 28 6d 61 rerID, sizeof(ma
20550 6e 75 66 61 63 74 75 72 65 72 49 44 29 20 2d 20 nufacturerID) -
20560 31 29 3b 0a 0a 09 70 49 6e 66 6f 2d 3e 66 6c 61 1);...pInfo->fla
20570 67 73 20 3d 20 30 78 30 30 3b 0a 0a 09 6d 65 6d gs = 0x00;...mem
20580 73 65 74 28 70 49 6e 66 6f 2d 3e 6c 69 62 72 61 set(pInfo->libra
20590 72 79 44 65 73 63 72 69 70 74 69 6f 6e 2c 20 27 ryDescription, '
205a0 20 27 2c 20 73 69 7a 65 6f 66 28 70 49 6e 66 6f ', sizeof(pInfo
205b0 2d 3e 6c 69 62 72 61 72 79 44 65 73 63 72 69 70 ->libraryDescrip
205c0 74 69 6f 6e 29 29 3b 0a 09 6d 65 6d 63 70 79 28 tion));..memcpy(
205d0 70 49 6e 66 6f 2d 3e 6c 69 62 72 61 72 79 44 65 pInfo->libraryDe
205e0 73 63 72 69 70 74 69 6f 6e 2c 20 6c 69 62 72 61 scription, libra
205f0 72 79 44 65 73 63 72 69 70 74 69 6f 6e 2c 20 73 ryDescription, s
20600 69 7a 65 6f 66 28 6c 69 62 72 61 72 79 44 65 73 izeof(libraryDes
20610 63 72 69 70 74 69 6f 6e 29 20 2d 20 31 29 3b 0a cription) - 1);.
20620 0a 09 70 49 6e 66 6f 2d 3e 6c 69 62 72 61 72 79 ..pInfo->library
20630 56 65 72 73 69 6f 6e 2e 6d 61 6a 6f 72 20 3d 20 Version.major =
20640 28 63 61 63 6b 65 79 5f 67 65 74 76 65 72 73 69 (cackey_getversi
20650 6f 6e 28 29 20 3e 3e 20 31 36 29 20 26 20 30 78 on() >> 16) & 0x
20660 66 66 3b 0a 09 70 49 6e 66 6f 2d 3e 6c 69 62 72 ff;..pInfo->libr
20670 61 72 79 56 65 72 73 69 6f 6e 2e 6d 69 6e 6f 72 aryVersion.minor
20680 20 3d 20 28 63 61 63 6b 65 79 5f 67 65 74 76 65 = (cackey_getve
20690 72 73 69 6f 6e 28 29 20 3e 3e 20 38 29 20 26 20 rsion() >> 8) &
206a0 30 78 66 66 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 0xff;...CACKEY_D
206b0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 EBUG_PRINTF("Ret
206c0 75 72 6e 69 6e 67 20 43 4b 52 5f 4f 4b 20 28 25 urning CKR_OK (%
206d0 69 29 22 2c 20 43 4b 52 5f 4f 4b 29 3b 0a 0a 09 i)", CKR_OK);...
206e0 72 65 74 75 72 6e 28 43 4b 52 5f 4f 4b 29 3b 0a return(CKR_OK);.
206f0 7d 0a 0a 2f 2a 0a 20 2a 20 50 72 6f 63 65 73 73 }../*. * Process
20700 20 6c 69 73 74 20 6f 66 20 72 65 61 64 65 72 73 list of readers
20710 2c 20 61 6e 64 20 63 72 65 61 74 65 20 6d 61 70 , and create map
20720 70 69 6e 67 20 62 65 74 77 65 65 6e 20 72 65 61 ping between rea
20730 64 65 72 20 6e 61 6d 65 20 61 6e 64 20 73 6c 6f der name and slo
20740 74 20 49 44 0a 20 2a 2f 0a 43 4b 5f 44 45 46 49 t ID. */.CK_DEFI
20750 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 NE_FUNCTION(CK_R
20760 56 2c 20 43 5f 47 65 74 53 6c 6f 74 4c 69 73 74 V, C_GetSlotList
20770 29 28 43 4b 5f 42 42 4f 4f 4c 20 74 6f 6b 65 6e )(CK_BBOOL token
20780 50 72 65 73 65 6e 74 2c 20 43 4b 5f 53 4c 4f 54 Present, CK_SLOT
20790 5f 49 44 5f 50 54 52 20 70 53 6c 6f 74 4c 69 73 _ID_PTR pSlotLis
207a0 74 2c 20 43 4b 5f 55 4c 4f 4e 47 5f 50 54 52 20 t, CK_ULONG_PTR
207b0 70 75 6c 43 6f 75 6e 74 29 20 7b 0a 09 73 74 61 pulCount) {..sta
207c0 74 69 63 20 69 6e 74 20 66 69 72 73 74 5f 63 61 tic int first_ca
207d0 6c 6c 20 3d 20 31 3b 0a 09 69 6e 74 20 6d 75 74 ll = 1;..int mut
207e0 65 78 5f 72 65 74 76 61 6c 3b 0a 09 69 6e 74 20 ex_retval;..int
207f0 70 63 73 63 5f 63 6f 6e 6e 65 63 74 5f 72 65 74 pcsc_connect_ret
20800 3b 0a 09 43 4b 5f 55 4c 4f 4e 47 20 63 6f 75 6e ;..CK_ULONG coun
20810 74 2c 20 73 6c 6f 74 5f 63 6f 75 6e 74 20 3d 20 t, slot_count =
20820 30 2c 20 63 75 72 72 73 6c 6f 74 2c 20 73 6c 6f 0, currslot, slo
20830 74 5f 69 64 78 3b 0a 09 63 68 61 72 20 2a 70 63 t_idx;..char *pc
20840 73 63 5f 72 65 61 64 65 72 73 2c 20 2a 70 63 73 sc_readers, *pcs
20850 63 5f 72 65 61 64 65 72 73 5f 73 2c 20 2a 70 63 c_readers_s, *pc
20860 73 63 5f 72 65 61 64 65 72 73 5f 65 3b 0a 09 63 sc_readers_e;..c
20870 68 61 72 20 2a 72 65 61 64 65 72 5f 63 68 65 63 har *reader_chec
20880 6b 5f 70 61 74 74 65 72 6e 3b 0a 09 44 57 4f 52 k_pattern;..DWOR
20890 44 20 70 63 73 63 5f 72 65 61 64 65 72 73 5f 6c D pcsc_readers_l
208a0 65 6e 3b 0a 09 4c 4f 4e 47 20 73 63 61 72 64 5f en;..LONG scard_
208b0 6c 69 73 74 72 65 61 64 65 72 73 5f 72 65 74 3b listreaders_ret;
208c0 0a 09 73 69 7a 65 5f 74 20 63 75 72 72 5f 72 65 ..size_t curr_re
208d0 61 64 65 72 5f 6c 65 6e 3b 0a 09 69 6e 74 20 73 ader_len;..int s
208e0 6c 6f 74 5f 72 65 73 65 74 3b 0a 09 69 6e 74 20 lot_reset;..int
208f0 69 6e 63 6c 75 64 65 5f 72 65 61 64 65 72 3b 0a include_reader;.
20900 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
20910 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 RINTF("Called.")
20920 3b 0a 0a 09 69 66 20 28 70 75 6c 43 6f 75 6e 74 ;...if (pulCount
20930 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 == NULL) {...CA
20940 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
20950 46 28 22 45 72 72 6f 72 2e 20 70 75 6c 43 6f 75 F("Error. pulCou
20960 6e 74 20 69 73 20 4e 55 4c 4c 2e 22 29 3b 0a 0a nt is NULL.");..
20970 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 41 52 47 ..return(CKR_ARG
20980 55 4d 45 4e 54 53 5f 42 41 44 29 3b 0a 09 7d 0a UMENTS_BAD);..}.
20990 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e ..if (!cackey_in
209a0 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 itialized) {...C
209b0 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
209c0 54 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 TF("Error. Not
209d0 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a initialized.");.
209e0 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 ...return(CKR_CR
209f0 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 YPTOKI_NOT_INITI
20a00 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 6d 75 ALIZED);..}...mu
20a10 74 65 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 tex_retval = cac
20a20 6b 65 79 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 63 key_mutex_lock(c
20a30 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a ackey_biglock);.
20a40 09 69 66 20 28 6d 75 74 65 78 5f 72 65 74 76 61 .if (mutex_retva
20a50 6c 20 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b l != 0) {...CACK
20a60 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
20a70 22 45 72 72 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 "Error. Locking
20a80 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 failed.");....r
20a90 65 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 eturn(CKR_GENERA
20aa0 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 2f L_ERROR);..}.../
20ab0 2a 20 43 6c 65 61 72 20 6c 69 73 74 20 6f 66 20 * Clear list of
20ac0 73 6c 6f 74 73 20 2a 2f 0a 09 73 6c 6f 74 5f 72 slots */..slot_r
20ad0 65 73 65 74 20 3d 20 30 3b 0a 09 69 66 20 28 70 eset = 0;..if (p
20ae0 53 6c 6f 74 4c 69 73 74 29 20 7b 0a 09 09 69 66 SlotList) {...if
20af0 20 28 66 69 72 73 74 5f 63 61 6c 6c 29 20 7b 0a (first_call) {.
20b00 09 09 09 66 69 72 73 74 5f 63 61 6c 6c 20 3d 20 ...first_call =
20b10 30 3b 0a 0a 09 09 09 73 6c 6f 74 5f 72 65 73 65 0;.....slot_rese
20b20 74 20 3d 20 31 3b 0a 09 09 7d 0a 0a 09 09 2f 2a t = 1;...}..../*
20b30 20 49 66 20 61 6e 79 20 6f 66 20 74 68 65 20 73 If any of the s
20b40 6c 6f 74 73 20 68 61 76 65 20 62 65 65 6e 20 72 lots have been r
20b50 65 73 65 74 20 74 68 65 6e 20 70 75 72 67 65 20 eset then purge
20b60 61 6c 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 all information
20b70 61 6e 64 20 63 68 65 63 6b 20 61 67 61 69 6e 20 and check again
20b80 2a 2f 0a 09 09 66 6f 72 20 28 63 75 72 72 73 6c */...for (currsl
20b90 6f 74 20 3d 20 30 3b 20 63 75 72 72 73 6c 6f 74 ot = 0; currslot
20ba0 20 3c 20 28 73 69 7a 65 6f 66 28 63 61 63 6b 65 < (sizeof(cacke
20bb0 79 5f 73 6c 6f 74 73 29 20 2f 20 73 69 7a 65 6f y_slots) / sizeo
20bc0 66 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 30 f(cackey_slots[0
20bd0 5d 29 29 3b 20 63 75 72 72 73 6c 6f 74 2b 2b 29 ])); currslot++)
20be0 20 7b 0a 09 09 09 69 66 20 28 63 61 63 6b 65 79 {....if (cackey
20bf0 5f 73 6c 6f 74 73 5b 63 75 72 72 73 6c 6f 74 5d _slots[currslot]
20c00 2e 69 6e 74 65 72 6e 61 6c 29 20 7b 0a 09 09 09 .internal) {....
20c10 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 09 7d 0a .continue;....}.
20c20 0a 09 09 09 69 66 20 28 21 63 61 63 6b 65 79 5f ....if (!cackey_
20c30 73 6c 6f 74 73 5b 63 75 72 72 73 6c 6f 74 5d 2e slots[currslot].
20c40 61 63 74 69 76 65 29 20 7b 0a 09 09 09 09 63 6f active) {.....co
20c50 6e 74 69 6e 75 65 3b 0a 09 09 09 7d 0a 0a 09 09 ntinue;....}....
20c60 09 69 66 20 28 63 61 63 6b 65 79 5f 73 6c 6f 74 .if (cackey_slot
20c70 73 5b 63 75 72 72 73 6c 6f 74 5d 2e 73 6c 6f 74 s[currslot].slot
20c80 5f 72 65 73 65 74 29 20 7b 0a 09 09 09 09 73 6c _reset) {.....sl
20c90 6f 74 5f 72 65 73 65 74 20 3d 20 31 3b 0a 0a 09 ot_reset = 1;...
20ca0 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 7d 0a 09 ...break;....}..
20cb0 09 7d 0a 0a 09 09 69 66 20 28 73 6c 6f 74 5f 72 .}....if (slot_r
20cc0 65 73 65 74 29 20 7b 0a 09 09 09 43 41 43 4b 45 eset) {....CACKE
20cd0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
20ce0 50 75 72 67 69 6e 67 20 61 6c 6c 20 73 6c 6f 74 Purging all slot
20cf0 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 29 3b information.");
20d00 0a 0a 09 09 09 2f 2a 20 4f 6e 6c 79 20 75 70 64 ...../* Only upd
20d10 61 74 65 20 74 68 65 20 6c 69 73 74 20 6f 66 20 ate the list of
20d20 73 6c 6f 74 73 20 69 66 20 77 65 20 61 72 65 20 slots if we are
20d30 61 63 74 75 61 6c 6c 79 20 62 65 69 6e 67 20 73 actually being s
20d40 75 70 70 6c 79 20 74 68 65 20 73 6c 6f 74 20 69 upply the slot i
20d50 6e 66 6f 72 6d 61 74 69 6f 6e 20 2a 2f 0a 09 09 nformation */...
20d60 09 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5f 64 69 .cackey_slots_di
20d70 73 63 6f 6e 6e 65 63 74 5f 61 6c 6c 28 31 29 3b sconnect_all(1);
20d80 0a 0a 09 09 09 66 6f 72 20 28 63 75 72 72 73 6c .....for (currsl
20d90 6f 74 20 3d 20 30 3b 20 63 75 72 72 73 6c 6f 74 ot = 0; currslot
20da0 20 3c 20 28 73 69 7a 65 6f 66 28 63 61 63 6b 65 < (sizeof(cacke
20db0 79 5f 73 6c 6f 74 73 29 20 2f 20 73 69 7a 65 6f y_slots) / sizeo
20dc0 66 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 30 f(cackey_slots[0
20dd0 5d 29 29 3b 20 63 75 72 72 73 6c 6f 74 2b 2b 29 ])); currslot++)
20de0 20 7b 0a 09 09 09 09 69 66 20 28 63 61 63 6b 65 {.....if (cacke
20df0 79 5f 73 6c 6f 74 73 5b 63 75 72 72 73 6c 6f 74 y_slots[currslot
20e00 5d 2e 69 6e 74 65 72 6e 61 6c 29 20 7b 0a 09 09 ].internal) {...
20e10 09 09 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 09 ...continue;....
20e20 09 7d 0a 0a 09 09 09 09 63 61 63 6b 65 79 5f 73 .}......cackey_s
20e30 6c 6f 74 73 5b 63 75 72 72 73 6c 6f 74 5d 2e 61 lots[currslot].a
20e40 63 74 69 76 65 20 3d 20 30 3b 0a 09 09 09 7d 0a ctive = 0;....}.
20e50 09 09 7d 0a 09 7d 0a 0a 09 2f 2a 20 44 65 74 65 ..}..}.../* Dete
20e60 72 6d 69 6e 65 20 6c 69 73 74 20 6f 66 20 72 65 rmine list of re
20e70 61 64 65 72 73 20 2a 2f 0a 09 70 63 73 63 5f 63 aders */..pcsc_c
20e80 6f 6e 6e 65 63 74 5f 72 65 74 20 3d 20 63 61 63 onnect_ret = cac
20e90 6b 65 79 5f 70 63 73 63 5f 63 6f 6e 6e 65 63 74 key_pcsc_connect
20ea0 28 29 3b 0a 09 69 66 20 28 70 63 73 63 5f 63 6f ();..if (pcsc_co
20eb0 6e 6e 65 63 74 5f 72 65 74 20 21 3d 20 43 41 43 nnect_ret != CAC
20ec0 4b 45 59 5f 50 43 53 43 5f 53 5f 4f 4b 29 20 7b KEY_PCSC_S_OK) {
20ed0 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
20ee0 50 52 49 4e 54 46 28 22 43 6f 6e 6e 65 63 74 69 PRINTF("Connecti
20ef0 6f 6e 20 74 6f 20 50 43 2f 53 43 20 66 61 69 6c on to PC/SC fail
20f00 65 64 2c 20 61 73 73 75 6d 69 6e 67 20 6e 6f 20 ed, assuming no
20f10 68 61 72 64 77 61 72 65 20 73 6c 6f 74 73 22 29 hardware slots")
20f20 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 70 63 ;..} else {...pc
20f30 73 63 5f 72 65 61 64 65 72 73 5f 6c 65 6e 20 3d sc_readers_len =
20f40 20 30 3b 0a 0a 09 09 73 63 61 72 64 5f 6c 69 73 0;....scard_lis
20f50 74 72 65 61 64 65 72 73 5f 72 65 74 20 3d 20 53 treaders_ret = S
20f60 43 61 72 64 4c 69 73 74 52 65 61 64 65 72 73 28 CardListReaders(
20f70 2a 63 61 63 6b 65 79 5f 70 63 73 63 5f 68 61 6e *cackey_pcsc_han
20f80 64 6c 65 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c dle, NULL, NULL,
20f90 20 26 70 63 73 63 5f 72 65 61 64 65 72 73 5f 6c &pcsc_readers_l
20fa0 65 6e 29 3b 0a 0a 09 09 69 66 20 28 73 63 61 72 en);....if (scar
20fb0 64 5f 6c 69 73 74 72 65 61 64 65 72 73 5f 72 65 d_listreaders_re
20fc0 74 20 3d 3d 20 53 43 41 52 44 5f 46 5f 43 4f 4d t == SCARD_F_COM
20fd0 4d 5f 45 52 52 4f 52 29 20 7b 0a 09 09 09 43 41 M_ERROR) {....CA
20fe0 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
20ff0 46 28 22 45 72 72 6f 72 2e 20 53 43 61 72 64 4c F("Error. SCardL
21000 69 73 74 52 65 61 64 65 72 73 28 29 20 72 65 74 istReaders() ret
21010 75 72 6e 65 64 20 53 43 41 52 44 5f 46 5f 43 4f urned SCARD_F_CO
21020 4d 4d 5f 45 52 52 4f 52 2c 20 61 73 73 75 6d 69 MM_ERROR, assumi
21030 6e 67 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f ng Connection to
21040 20 50 43 2f 53 43 20 77 65 6e 74 20 61 77 61 79 PC/SC went away
21050 2e 20 52 65 63 6f 6e 6e 65 63 74 69 6e 67 2e 22 . Reconnecting."
21060 29 3b 0a 0a 09 09 09 63 61 63 6b 65 79 5f 70 63 );.....cackey_pc
21070 73 63 5f 64 69 73 63 6f 6e 6e 65 63 74 28 29 3b sc_disconnect();
21080 0a 09 09 09 63 61 63 6b 65 79 5f 70 63 73 63 5f ....cackey_pcsc_
21090 63 6f 6e 6e 65 63 74 28 29 3b 0a 0a 09 09 09 43 connect();.....C
210a0 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
210b0 54 46 28 22 54 72 79 69 6e 67 20 53 43 61 72 64 TF("Trying SCard
210c0 4c 69 73 74 52 65 61 64 65 72 73 28 29 20 61 67 ListReaders() ag
210d0 61 69 6e 22 29 3b 0a 09 09 09 73 63 61 72 64 5f ain");....scard_
210e0 6c 69 73 74 72 65 61 64 65 72 73 5f 72 65 74 20 listreaders_ret
210f0 3d 20 53 43 61 72 64 4c 69 73 74 52 65 61 64 65 = SCardListReade
21100 72 73 28 2a 63 61 63 6b 65 79 5f 70 63 73 63 5f rs(*cackey_pcsc_
21110 68 61 6e 64 6c 65 2c 20 4e 55 4c 4c 2c 20 4e 55 handle, NULL, NU
21120 4c 4c 2c 20 26 70 63 73 63 5f 72 65 61 64 65 72 LL, &pcsc_reader
21130 73 5f 6c 65 6e 29 3b 0a 09 09 7d 0a 0a 09 09 69 s_len);...}....i
21140 66 20 28 73 63 61 72 64 5f 6c 69 73 74 72 65 61 f (scard_listrea
21150 64 65 72 73 5f 72 65 74 20 3d 3d 20 53 43 41 52 ders_ret == SCAR
21160 44 5f 45 5f 49 4e 53 55 46 46 49 43 49 45 4e 54 D_E_INSUFFICIENT
21170 5f 42 55 46 46 45 52 29 20 7b 0a 09 09 09 43 41 _BUFFER) {....CA
21180 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
21190 46 28 22 45 72 72 6f 72 2e 20 53 43 61 72 64 4c F("Error. SCardL
211a0 69 73 74 52 65 61 64 65 72 73 28 29 20 72 65 74 istReaders() ret
211b0 75 72 6e 65 64 20 53 43 41 52 44 5f 45 5f 49 4e urned SCARD_E_IN
211c0 53 55 46 46 49 43 49 45 4e 54 5f 42 55 46 46 45 SUFFICIENT_BUFFE
211d0 52 2c 20 61 73 73 75 6d 69 6e 67 20 74 68 69 73 R, assuming this
211e0 20 69 73 20 61 20 62 75 67 20 28 65 2e 67 2e 2c is a bug (e.g.,
211f0 20 47 6f 6f 67 6c 65 20 50 43 53 43 29 20 61 6e Google PCSC) an
21200 64 20 61 6c 6c 6f 63 61 74 69 6e 67 20 61 20 6d d allocating a m
21210 61 73 73 69 76 65 20 61 6d 6f 75 6e 74 20 6f 66 assive amount of
21220 20 73 70 61 63 65 20 74 6f 20 68 6f 6c 64 20 74 space to hold t
21230 68 65 20 72 65 61 64 65 72 20 6c 69 73 74 2e 22 he reader list."
21240 29 3b 0a 0a 09 09 09 70 63 73 63 5f 72 65 61 64 );.....pcsc_read
21250 65 72 73 5f 6c 65 6e 20 3d 20 33 32 37 36 38 3b ers_len = 32768;
21260 0a 09 09 09 73 63 61 72 64 5f 6c 69 73 74 72 65 ....scard_listre
21270 61 64 65 72 73 5f 72 65 74 20 3d 20 53 43 41 52 aders_ret = SCAR
21280 44 5f 53 5f 53 55 43 43 45 53 53 3b 0a 09 09 7d D_S_SUCCESS;...}
21290 0a 0a 09 09 69 66 20 28 73 63 61 72 64 5f 6c 69 ....if (scard_li
212a0 73 74 72 65 61 64 65 72 73 5f 72 65 74 20 3d 3d streaders_ret ==
212b0 20 53 43 41 52 44 5f 53 5f 53 55 43 43 45 53 53 SCARD_S_SUCCESS
212c0 20 26 26 20 70 63 73 63 5f 72 65 61 64 65 72 73 && pcsc_readers
212d0 5f 6c 65 6e 20 21 3d 20 30 29 20 7b 0a 09 09 09 _len != 0) {....
212e0 70 63 73 63 5f 72 65 61 64 65 72 73 20 3d 20 6d pcsc_readers = m
212f0 61 6c 6c 6f 63 28 70 63 73 63 5f 72 65 61 64 65 alloc(pcsc_reade
21300 72 73 5f 6c 65 6e 29 3b 0a 09 09 09 70 63 73 63 rs_len);....pcsc
21310 5f 72 65 61 64 65 72 73 5f 73 20 3d 20 70 63 73 _readers_s = pcs
21320 63 5f 72 65 61 64 65 72 73 3b 0a 0a 09 09 09 73 c_readers;.....s
21330 63 61 72 64 5f 6c 69 73 74 72 65 61 64 65 72 73 card_listreaders
21340 5f 72 65 74 20 3d 20 53 43 61 72 64 4c 69 73 74 _ret = SCardList
21350 52 65 61 64 65 72 73 28 2a 63 61 63 6b 65 79 5f Readers(*cackey_
21360 70 63 73 63 5f 68 61 6e 64 6c 65 2c 20 4e 55 4c pcsc_handle, NUL
21370 4c 2c 20 70 63 73 63 5f 72 65 61 64 65 72 73 2c L, pcsc_readers,
21380 20 26 70 63 73 63 5f 72 65 61 64 65 72 73 5f 6c &pcsc_readers_l
21390 65 6e 29 3b 0a 09 09 09 69 66 20 28 73 63 61 72 en);....if (scar
213a0 64 5f 6c 69 73 74 72 65 61 64 65 72 73 5f 72 65 d_listreaders_re
213b0 74 20 3d 3d 20 53 43 41 52 44 5f 53 5f 53 55 43 t == SCARD_S_SUC
213c0 43 45 53 53 29 20 7b 0a 09 09 09 09 70 63 73 63 CESS) {.....pcsc
213d0 5f 72 65 61 64 65 72 73 5f 65 20 3d 20 70 63 73 _readers_e = pcs
213e0 63 5f 72 65 61 64 65 72 73 20 2b 20 70 63 73 63 c_readers + pcsc
213f0 5f 72 65 61 64 65 72 73 5f 6c 65 6e 3b 0a 0a 09 _readers_len;...
21400 09 09 09 2f 2a 20 53 74 61 72 74 20 77 69 74 68 .../* Start with
21410 20 53 6c 6f 74 20 49 44 20 31 2c 20 74 6f 20 61 Slot ID 1, to a
21420 76 6f 69 64 20 61 20 62 75 67 20 69 6e 20 47 44 void a bug in GD
21430 4d 20 6f 6e 20 52 48 45 4c 20 2a 2f 0a 09 09 09 M on RHEL */....
21440 09 2f 2a 20 42 75 67 20 35 39 34 39 31 31 3a 20 ./* Bug 594911:
21450 68 74 74 70 73 3a 2f 2f 62 75 67 7a 69 6c 6c 61 https://bugzilla
21460 2e 72 65 64 68 61 74 2e 63 6f 6d 2f 73 68 6f 77 .redhat.com/show
21470 5f 62 75 67 2e 63 67 69 3f 69 64 3d 35 39 34 39 _bug.cgi?id=5949
21480 31 31 20 2a 2f 0a 09 09 09 09 63 75 72 72 73 6c 11 */.....currsl
21490 6f 74 20 3d 20 31 3b 0a 09 09 09 09 77 68 69 6c ot = 1;.....whil
214a0 65 20 28 70 63 73 63 5f 72 65 61 64 65 72 73 20 e (pcsc_readers
214b0 3c 20 70 63 73 63 5f 72 65 61 64 65 72 73 5f 65 < pcsc_readers_e
214c0 29 20 7b 0a 09 09 09 09 09 2f 2a 20 46 69 6e 64 ) {....../* Find
214d0 20 6e 65 78 74 20 61 76 61 69 6c 61 62 6c 65 20 next available
214e0 73 6c 6f 74 20 2a 2f 0a 09 09 09 09 09 66 6f 72 slot */......for
214f0 20 28 3b 20 63 75 72 72 73 6c 6f 74 20 3c 20 28 (; currslot < (
21500 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 6c sizeof(cackey_sl
21510 6f 74 73 29 20 2f 20 73 69 7a 65 6f 66 28 63 61 ots) / sizeof(ca
21520 63 6b 65 79 5f 73 6c 6f 74 73 5b 30 5d 29 29 3b ckey_slots[0]));
21530 20 63 75 72 72 73 6c 6f 74 2b 2b 29 20 7b 0a 09 currslot++) {..
21540 09 09 09 09 09 69 66 20 28 21 63 61 63 6b 65 79 .....if (!cackey
21550 5f 73 6c 6f 74 73 5b 63 75 72 72 73 6c 6f 74 5d _slots[currslot]
21560 2e 61 63 74 69 76 65 29 20 7b 0a 09 09 09 09 09 .active) {......
21570 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 09 09 7d ..break;.......}
21580 0a 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 63 75 ......}.......cu
21590 72 72 5f 72 65 61 64 65 72 5f 6c 65 6e 20 3d 20 rr_reader_len =
215a0 73 74 72 6c 65 6e 28 70 63 73 63 5f 72 65 61 64 strlen(pcsc_read
215b0 65 72 73 29 3b 0a 0a 09 09 09 09 09 69 66 20 28 ers);.......if (
215c0 28 70 63 73 63 5f 72 65 61 64 65 72 73 20 2b 20 (pcsc_readers +
215d0 63 75 72 72 5f 72 65 61 64 65 72 5f 6c 65 6e 29 curr_reader_len)
215e0 20 3e 20 70 63 73 63 5f 72 65 61 64 65 72 73 5f > pcsc_readers_
215f0 65 29 20 7b 0a 09 09 09 09 09 09 62 72 65 61 6b e) {.......break
21600 3b 0a 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 69 ;......}.......i
21610 66 20 28 63 75 72 72 5f 72 65 61 64 65 72 5f 6c f (curr_reader_l
21620 65 6e 20 3d 3d 20 30 29 20 7b 0a 09 09 09 09 09 en == 0) {......
21630 09 62 72 65 61 6b 3b 0a 09 09 09 09 09 7d 0a 0a .break;......}..
21640 09 09 09 09 09 69 66 20 28 63 75 72 72 73 6c 6f .....if (currslo
21650 74 20 3e 3d 20 28 73 69 7a 65 6f 66 28 63 61 63 t >= (sizeof(cac
21660 6b 65 79 5f 73 6c 6f 74 73 29 20 2f 20 73 69 7a key_slots) / siz
21670 65 6f 66 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 eof(cackey_slots
21680 5b 30 5d 29 29 29 20 7b 0a 09 09 09 09 09 09 43 [0]))) {.......C
21690 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
216a0 54 46 28 22 46 6f 75 6e 64 20 6d 6f 72 65 20 72 TF("Found more r
216b0 65 61 64 65 72 73 20 74 68 61 6e 20 73 6c 6f 74 eaders than slot
216c0 73 20 61 72 65 20 61 76 61 69 6c 61 62 6c 65 21 s are available!
216d0 22 29 3b 0a 0a 09 09 09 09 09 09 62 72 65 61 6b ");........break
216e0 3b 0a 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 43 ;......}.......C
216f0 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
21700 54 46 28 22 46 6f 75 6e 64 20 72 65 61 64 65 72 TF("Found reader
21710 3a 20 25 73 20 28 63 75 72 72 73 6c 6f 74 20 3d : %s (currslot =
21720 20 25 6c 75 29 22 2c 20 70 63 73 63 5f 72 65 61 %lu)", pcsc_rea
21730 64 65 72 73 2c 20 28 75 6e 73 69 67 6e 65 64 20 ders, (unsigned
21740 6c 6f 6e 67 29 20 63 75 72 72 73 6c 6f 74 29 3b long) currslot);
21750 0a 0a 09 09 09 09 09 69 66 20 28 63 61 63 6b 65 .......if (cacke
21760 79 5f 72 65 61 64 65 72 73 5f 69 6e 63 6c 75 64 y_readers_includ
21770 65 5f 6f 6e 6c 79 20 21 3d 20 4e 55 4c 4c 29 20 e_only != NULL)
21780 7b 0a 09 09 09 09 09 09 43 41 43 4b 45 59 5f 44 {.......CACKEY_D
21790 45 42 55 47 5f 50 52 49 4e 54 46 28 22 41 73 6b EBUG_PRINTF("Ask
217a0 65 64 20 74 6f 20 69 6e 63 6c 75 64 65 20 6f 6e ed to include on
217b0 6c 79 20 72 65 61 64 65 72 73 20 6d 61 74 63 68 ly readers match
217c0 69 6e 67 3a 20 25 73 22 2c 20 63 61 63 6b 65 79 ing: %s", cackey
217d0 5f 72 65 61 64 65 72 73 5f 69 6e 63 6c 75 64 65 _readers_include
217e0 5f 6f 6e 6c 79 29 3b 0a 0a 09 09 09 09 09 09 69 _only);........i
217f0 6e 63 6c 75 64 65 5f 72 65 61 64 65 72 20 3d 20 nclude_reader =
21800 30 3b 0a 09 09 09 09 09 09 72 65 61 64 65 72 5f 0;.......reader_
21810 63 68 65 63 6b 5f 70 61 74 74 65 72 6e 20 3d 20 check_pattern =
21820 63 61 63 6b 65 79 5f 72 65 61 64 65 72 73 5f 69 cackey_readers_i
21830 6e 63 6c 75 64 65 5f 6f 6e 6c 79 3b 0a 09 09 09 nclude_only;....
21840 09 09 7d 20 65 6c 73 65 20 69 66 20 28 63 61 63 ..} else if (cac
21850 6b 65 79 5f 72 65 61 64 65 72 73 5f 65 78 63 6c key_readers_excl
21860 75 64 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 ude != NULL) {..
21870 09 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 .....CACKEY_DEBU
21880 47 5f 50 52 49 4e 54 46 28 22 41 73 6b 65 64 20 G_PRINTF("Asked
21890 74 6f 20 65 78 63 6c 75 64 65 20 72 65 61 64 65 to exclude reade
218a0 72 73 20 6d 61 74 63 68 69 6e 67 3a 20 25 73 22 rs matching: %s"
218b0 2c 20 63 61 63 6b 65 79 5f 72 65 61 64 65 72 73 , cackey_readers
218c0 5f 65 78 63 6c 75 64 65 29 3b 0a 0a 09 09 09 09 _exclude);......
218d0 09 09 69 6e 63 6c 75 64 65 5f 72 65 61 64 65 72 ..include_reader
218e0 20 3d 20 31 3b 0a 09 09 09 09 09 09 72 65 61 64 = 1;.......read
218f0 65 72 5f 63 68 65 63 6b 5f 70 61 74 74 65 72 6e er_check_pattern
21900 20 3d 20 63 61 63 6b 65 79 5f 72 65 61 64 65 72 = cackey_reader
21910 73 5f 65 78 63 6c 75 64 65 3b 0a 09 09 09 09 09 s_exclude;......
21920 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 09 69 } else {.......i
21930 6e 63 6c 75 64 65 5f 72 65 61 64 65 72 20 3d 20 nclude_reader =
21940 31 3b 0a 09 09 09 09 09 09 72 65 61 64 65 72 5f 1;.......reader_
21950 63 68 65 63 6b 5f 70 61 74 74 65 72 6e 20 3d 20 check_pattern =
21960 4e 55 4c 4c 3b 0a 09 09 09 09 09 7d 0a 0a 09 09 NULL;......}....
21970 09 09 09 69 66 20 28 72 65 61 64 65 72 5f 63 68 ...if (reader_ch
21980 65 63 6b 5f 70 61 74 74 65 72 6e 20 21 3d 20 4e eck_pattern != N
21990 55 4c 4c 29 20 7b 0a 09 09 09 09 09 09 69 66 20 ULL) {.......if
219a0 28 73 74 72 73 74 72 28 70 63 73 63 5f 72 65 61 (strstr(pcsc_rea
219b0 64 65 72 73 2c 20 72 65 61 64 65 72 5f 63 68 65 ders, reader_che
219c0 63 6b 5f 70 61 74 74 65 72 6e 29 20 21 3d 20 4e ck_pattern) != N
219d0 55 4c 4c 29 20 7b 0a 09 09 09 09 09 09 09 43 41 ULL) {........CA
219e0 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
219f0 46 28 22 54 68 69 73 20 72 65 61 64 65 72 20 6d F("This reader m
21a00 61 74 63 68 65 64 20 74 68 65 20 70 61 74 74 65 atched the patte
21a10 72 6e 2e 22 29 3b 0a 09 09 09 09 09 09 0a 09 09 rn.");..........
21a20 09 09 09 09 09 69 6e 63 6c 75 64 65 5f 72 65 61 .....include_rea
21a30 64 65 72 20 3d 20 21 69 6e 63 6c 75 64 65 5f 72 der = !include_r
21a40 65 61 64 65 72 3b 0a 09 09 09 09 09 09 7d 0a 09 eader;.......}..
21a50 09 09 09 09 7d 0a 0a 09 09 09 09 09 69 66 20 28 ....}.......if (
21a60 69 6e 63 6c 75 64 65 5f 72 65 61 64 65 72 20 21 include_reader !
21a70 3d 20 31 29 20 7b 0a 09 09 09 09 09 09 43 41 43 = 1) {.......CAC
21a80 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
21a90 28 22 53 6b 69 70 70 69 6e 67 20 74 68 69 73 20 ("Skipping this
21aa0 72 65 61 64 65 72 2e 22 29 3b 0a 0a 09 09 09 09 reader.");......
21ab0 09 09 70 63 73 63 5f 72 65 61 64 65 72 73 20 2b ..pcsc_readers +
21ac0 3d 20 63 75 72 72 5f 72 65 61 64 65 72 5f 6c 65 = curr_reader_le
21ad0 6e 20 2b 20 31 3b 0a 0a 09 09 09 09 09 09 63 6f n + 1;........co
21ae0 6e 74 69 6e 75 65 3b 0a 09 09 09 09 09 7d 0a 0a ntinue;......}..
21af0 09 09 09 09 09 2f 2a 20 4f 6e 6c 79 20 75 70 64 ...../* Only upd
21b00 61 74 65 20 74 68 65 20 6c 69 73 74 20 6f 66 20 ate the list of
21b10 73 6c 6f 74 73 20 69 66 20 77 65 20 61 72 65 20 slots if we are
21b20 61 63 74 75 61 6c 6c 79 20 62 65 69 6e 67 20 61 actually being a
21b30 73 6b 65 64 20 73 75 70 70 6c 79 20 74 68 65 20 sked supply the
21b40 73 6c 6f 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e slot information
21b50 20 2a 2f 0a 09 09 09 09 09 69 66 20 28 70 53 6c */......if (pSl
21b60 6f 74 4c 69 73 74 29 20 7b 0a 09 09 09 09 09 09 otList) {.......
21b70 69 66 20 28 73 6c 6f 74 5f 72 65 73 65 74 29 20 if (slot_reset)
21b80 7b 0a 09 09 09 09 09 09 09 63 61 63 6b 65 79 5f {........cackey_
21b90 73 6c 6f 74 73 5b 63 75 72 72 73 6c 6f 74 5d 2e slots[currslot].
21ba0 61 63 74 69 76 65 20 3d 20 31 3b 0a 09 09 09 09 active = 1;.....
21bb0 09 09 09 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b ...cackey_slots[
21bc0 63 75 72 72 73 6c 6f 74 5d 2e 69 6e 74 65 72 6e currslot].intern
21bd0 61 6c 20 3d 20 30 3b 0a 09 09 09 09 09 09 09 63 al = 0;........c
21be0 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 63 75 72 72 ackey_slots[curr
21bf0 73 6c 6f 74 5d 2e 70 63 73 63 5f 72 65 61 64 65 slot].pcsc_reade
21c00 72 20 3d 20 73 74 72 64 75 70 28 70 63 73 63 5f r = strdup(pcsc_
21c10 72 65 61 64 65 72 73 29 3b 0a 09 09 09 09 09 09 readers);.......
21c20 09 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 63 75 .cackey_slots[cu
21c30 72 72 73 6c 6f 74 5d 2e 70 63 73 63 5f 63 61 72 rrslot].pcsc_car
21c40 64 5f 63 6f 6e 6e 65 63 74 65 64 20 3d 20 30 3b d_connected = 0;
21c50 0a 09 09 09 09 09 09 09 63 61 63 6b 65 79 5f 73 ........cackey_s
21c60 6c 6f 74 73 5b 63 75 72 72 73 6c 6f 74 5d 2e 74 lots[currslot].t
21c70 72 61 6e 73 61 63 74 69 6f 6e 5f 64 65 70 74 68 ransaction_depth
21c80 20 3d 20 30 3b 0a 09 09 09 09 09 09 09 63 61 63 = 0;........cac
21c90 6b 65 79 5f 73 6c 6f 74 73 5b 63 75 72 72 73 6c key_slots[currsl
21ca0 6f 74 5d 2e 74 72 61 6e 73 61 63 74 69 6f 6e 5f ot].transaction_
21cb0 6e 65 65 64 5f 68 77 5f 6c 6f 63 6b 20 3d 20 30 need_hw_lock = 0
21cc0 3b 0a 09 09 09 09 09 09 09 69 66 20 28 63 61 63 ;........if (cac
21cd0 6b 65 79 5f 70 69 6e 5f 63 6f 6d 6d 61 6e 64 20 key_pin_command
21ce0 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 09 09 == NULL) {......
21cf0 09 09 09 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b ...cackey_slots[
21d00 63 75 72 72 73 6c 6f 74 5d 2e 74 6f 6b 65 6e 5f currslot].token_
21d10 66 6c 61 67 73 20 3d 20 43 4b 46 5f 4c 4f 47 49 flags = CKF_LOGI
21d20 4e 5f 52 45 51 55 49 52 45 44 3b 0a 09 09 09 09 N_REQUIRED;.....
21d30 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 ...} else {.....
21d40 09 09 09 09 63 61 63 6b 65 79 5f 73 6c 6f 74 73 ....cackey_slots
21d50 5b 63 75 72 72 73 6c 6f 74 5d 2e 74 6f 6b 65 6e [currslot].token
21d60 5f 66 6c 61 67 73 20 3d 20 30 3b 0a 09 09 09 09 _flags = 0;.....
21d70 09 09 09 7d 0a 09 09 09 09 09 09 09 63 61 63 6b ...}........cack
21d80 65 79 5f 73 6c 6f 74 73 5b 63 75 72 72 73 6c 6f ey_slots[currslo
21d90 74 5d 2e 6c 61 62 65 6c 20 3d 20 4e 55 4c 4c 3b t].label = NULL;
21da0 0a 0a 09 09 09 09 09 09 09 63 61 63 6b 65 79 5f .........cackey_
21db0 6d 61 72 6b 5f 73 6c 6f 74 5f 72 65 73 65 74 28 mark_slot_reset(
21dc0 26 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 63 75 &cackey_slots[cu
21dd0 72 72 73 6c 6f 74 5d 29 3b 0a 09 09 09 09 09 09 rrslot]);.......
21de0 7d 0a 09 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a }......} else {.
21df0 09 09 09 09 09 09 69 66 20 28 21 63 61 63 6b 65 ......if (!cacke
21e00 79 5f 73 6c 6f 74 73 5b 63 75 72 72 73 6c 6f 74 y_slots[currslot
21e10 5d 2e 61 63 74 69 76 65 29 20 7b 0a 09 09 09 09 ].active) {.....
21e20 09 09 09 2f 2a 20 41 72 74 69 66 69 63 69 61 6c .../* Artificial
21e30 6c 79 20 69 6e 63 72 65 61 73 65 20 74 68 65 20 ly increase the
21e40 6e 75 6d 62 65 72 20 6f 66 20 61 63 74 69 76 65 number of active
21e50 20 73 6c 6f 74 73 20 62 79 20 77 68 61 74 20 77 slots by what w
21e60 69 6c 6c 20 62 65 63 6f 6d 65 20 61 63 74 69 76 ill become activ
21e70 65 20 2a 2f 0a 09 09 09 09 09 09 09 43 41 43 4b e */........CACK
21e80 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
21e90 22 46 6f 75 6e 64 20 69 6e 2d 61 63 74 69 76 65 "Found in-active
21ea0 20 73 6c 6f 74 20 25 6c 75 2c 20 62 75 74 20 69 slot %lu, but i
21eb0 74 20 77 69 6c 6c 20 62 65 20 61 63 74 69 76 65 t will be active
21ec0 20 61 66 74 65 72 20 61 20 72 65 73 65 74 20 2d after a reset -
21ed0 2d 20 6d 61 72 6b 69 6e 67 20 61 73 20 61 63 74 - marking as act
21ee0 69 76 65 20 66 6f 72 20 61 63 63 6f 75 6e 74 69 ive for accounti
21ef0 6e 67 20 70 75 72 70 6f 73 65 73 22 2c 20 28 75 ng purposes", (u
21f00 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 63 75 nsigned long) cu
21f10 72 72 73 6c 6f 74 29 3b 0a 0a 09 09 09 09 09 09 rrslot);........
21f20 09 73 6c 6f 74 5f 63 6f 75 6e 74 2b 2b 3b 0a 09 .slot_count++;..
21f30 09 09 09 09 09 7d 0a 09 09 09 09 09 7d 0a 09 09 .....}......}...
21f40 09 09 09 63 75 72 72 73 6c 6f 74 2b 2b 3b 0a 0a ...currslot++;..
21f50 09 09 09 09 09 70 63 73 63 5f 72 65 61 64 65 72 .....pcsc_reader
21f60 73 20 2b 3d 20 63 75 72 72 5f 72 65 61 64 65 72 s += curr_reader
21f70 5f 6c 65 6e 20 2b 20 31 3b 0a 09 09 09 09 7d 0a _len + 1;.....}.
21f80 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 ...} else {.....
21f90 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
21fa0 4e 54 46 28 22 53 65 63 6f 6e 64 20 63 61 6c 6c NTF("Second call
21fb0 20 74 6f 20 53 43 61 72 64 4c 69 73 74 52 65 61 to SCardListRea
21fc0 64 65 72 73 20 66 61 69 6c 65 64 2c 20 72 65 74 ders failed, ret
21fd0 75 72 6e 20 25 73 2f 25 6c 69 22 2c 20 43 41 43 urn %s/%li", CAC
21fe0 4b 45 59 5f 44 45 42 55 47 5f 46 55 4e 43 5f 53 KEY_DEBUG_FUNC_S
21ff0 43 41 52 44 45 52 52 5f 54 4f 5f 53 54 52 28 73 CARDERR_TO_STR(s
22000 63 61 72 64 5f 6c 69 73 74 72 65 61 64 65 72 73 card_listreaders
22010 5f 72 65 74 29 2c 20 28 6c 6f 6e 67 29 20 73 63 _ret), (long) sc
22020 61 72 64 5f 6c 69 73 74 72 65 61 64 65 72 73 5f ard_listreaders_
22030 72 65 74 29 3b 0a 09 09 09 7d 0a 0a 09 09 09 66 ret);....}.....f
22040 72 65 65 28 70 63 73 63 5f 72 65 61 64 65 72 73 ree(pcsc_readers
22050 5f 73 29 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a _s);...} else {.
22060 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
22070 50 52 49 4e 54 46 28 22 46 69 72 73 74 20 63 61 PRINTF("First ca
22080 6c 6c 20 74 6f 20 53 43 61 72 64 4c 69 73 74 52 ll to SCardListR
22090 65 61 64 65 72 73 20 66 61 69 6c 65 64 2c 20 72 eaders failed, r
220a0 65 74 75 72 6e 20 25 73 2f 25 6c 69 22 2c 20 43 eturn %s/%li", C
220b0 41 43 4b 45 59 5f 44 45 42 55 47 5f 46 55 4e 43 ACKEY_DEBUG_FUNC
220c0 5f 53 43 41 52 44 45 52 52 5f 54 4f 5f 53 54 52 _SCARDERR_TO_STR
220d0 28 73 63 61 72 64 5f 6c 69 73 74 72 65 61 64 65 (scard_listreade
220e0 72 73 5f 72 65 74 29 2c 20 28 6c 6f 6e 67 29 20 rs_ret), (long)
220f0 73 63 61 72 64 5f 6c 69 73 74 72 65 61 64 65 72 scard_listreader
22100 73 5f 72 65 74 29 3b 0a 09 09 7d 0a 09 7d 0a 0a s_ret);...}..}..
22110 09 66 6f 72 20 28 63 75 72 72 73 6c 6f 74 20 3d .for (currslot =
22120 20 30 3b 20 63 75 72 72 73 6c 6f 74 20 3c 20 28 0; currslot < (
22130 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 6c sizeof(cackey_sl
22140 6f 74 73 29 20 2f 20 73 69 7a 65 6f 66 28 63 61 ots) / sizeof(ca
22150 63 6b 65 79 5f 73 6c 6f 74 73 5b 30 5d 29 29 3b ckey_slots[0]));
22160 20 63 75 72 72 73 6c 6f 74 2b 2b 29 20 7b 0a 09 currslot++) {..
22170 09 69 66 20 28 63 61 63 6b 65 79 5f 73 6c 6f 74 .if (cackey_slot
22180 73 5b 63 75 72 72 73 6c 6f 74 5d 2e 61 63 74 69 s[currslot].acti
22190 76 65 29 20 7b 0a 09 09 09 43 41 43 4b 45 59 5f ve) {....CACKEY_
221a0 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 46 6f DEBUG_PRINTF("Fo
221b0 75 6e 64 20 61 63 74 69 76 65 20 73 6c 6f 74 20 und active slot
221c0 25 6c 75 2c 20 72 65 61 64 65 72 20 3d 20 25 73 %lu, reader = %s
221d0 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e ", (unsigned lon
221e0 67 29 20 63 75 72 72 73 6c 6f 74 2c 20 63 61 63 g) currslot, cac
221f0 6b 65 79 5f 73 6c 6f 74 73 5b 63 75 72 72 73 6c key_slots[currsl
22200 6f 74 5d 2e 70 63 73 63 5f 72 65 61 64 65 72 29 ot].pcsc_reader)
22210 3b 0a 0a 09 09 09 73 6c 6f 74 5f 63 6f 75 6e 74 ;.....slot_count
22220 2b 2b 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 6d 75 74 ++;...}..}...mut
22230 65 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 6b ex_retval = cack
22240 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 ey_mutex_unlock(
22250 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b cackey_biglock);
22260 0a 09 69 66 20 28 6d 75 74 65 78 5f 72 65 74 76 ..if (mutex_retv
22270 61 6c 20 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 al != 0) {...CAC
22280 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
22290 28 22 45 72 72 6f 72 2e 20 20 55 6e 6c 6f 63 6b ("Error. Unlock
222a0 69 6e 67 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a ing failed.");..
222b0 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 47 45 4e ..return(CKR_GEN
222c0 45 52 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a ERAL_ERROR);..}.
222d0 0a 09 69 66 20 28 70 53 6c 6f 74 4c 69 73 74 20 ..if (pSlotList
222e0 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 2a 70 75 == NULL) {...*pu
222f0 6c 43 6f 75 6e 74 20 3d 20 73 6c 6f 74 5f 63 6f lCount = slot_co
22300 75 6e 74 3b 0a 0a 09 09 43 41 43 4b 45 59 5f 44 unt;....CACKEY_D
22310 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 EBUG_PRINTF("Ret
22320 75 72 6e 69 6e 67 20 43 4b 52 5f 4f 4b 20 28 25 urning CKR_OK (%
22330 69 29 2e 20 20 46 6f 75 6e 64 20 25 6c 75 20 72 i). Found %lu r
22340 65 61 64 65 72 73 2c 20 62 75 74 20 6e 6f 74 20 eaders, but not
22350 73 74 6f 72 69 6e 67 20 49 44 73 20 28 70 53 6c storing IDs (pSl
22360 6f 74 4c 69 73 74 20 3d 3d 20 4e 55 4c 4c 29 22 otList == NULL)"
22370 2c 20 43 4b 52 5f 4f 4b 2c 20 28 75 6e 73 69 67 , CKR_OK, (unsig
22380 6e 65 64 20 6c 6f 6e 67 29 20 73 6c 6f 74 5f 63 ned long) slot_c
22390 6f 75 6e 74 29 3b 0a 0a 09 09 72 65 74 75 72 6e ount);....return
223a0 28 43 4b 52 5f 4f 4b 29 3b 0a 09 7d 0a 0a 09 63 (CKR_OK);..}...c
223b0 6f 75 6e 74 20 3d 20 2a 70 75 6c 43 6f 75 6e 74 ount = *pulCount
223c0 3b 0a 09 69 66 20 28 63 6f 75 6e 74 20 3c 20 73 ;..if (count < s
223d0 6c 6f 74 5f 63 6f 75 6e 74 29 20 7b 0a 09 09 43 lot_count) {...C
223e0 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
223f0 54 46 28 22 45 72 72 6f 72 2e 20 55 73 65 72 20 TF("Error. User
22400 61 6c 6c 6f 63 61 74 65 64 20 25 6c 75 20 65 6e allocated %lu en
22410 74 72 69 65 73 2c 20 62 75 74 20 77 65 20 68 61 tries, but we ha
22420 76 65 20 25 6c 75 20 65 6e 74 72 69 65 73 2e 22 ve %lu entries."
22430 2c 20 63 6f 75 6e 74 2c 20 73 6c 6f 74 5f 63 6f , count, slot_co
22440 75 6e 74 29 3b 0a 0a 09 09 43 41 43 4b 45 59 5f unt);....CACKEY_
22450 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 DEBUG_PRINTF("Re
22460 74 75 72 6e 69 6e 67 20 43 4b 52 5f 42 55 46 46 turning CKR_BUFF
22470 45 52 5f 54 4f 4f 5f 53 4d 41 4c 4c 22 29 3b 0a ER_TOO_SMALL");.
22480 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 42 55 ...return(CKR_BU
22490 46 46 45 52 5f 54 4f 4f 5f 53 4d 41 4c 4c 29 3b FFER_TOO_SMALL);
224a0 09 0a 09 7d 0a 0a 09 6d 75 74 65 78 5f 72 65 74 ...}...mutex_ret
224b0 76 61 6c 20 3d 20 63 61 63 6b 65 79 5f 6d 75 74 val = cackey_mut
224c0 65 78 5f 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 ex_lock(cackey_b
224d0 69 67 6c 6f 63 6b 29 3b 0a 09 69 66 20 28 6d 75 iglock);..if (mu
224e0 74 65 78 5f 72 65 74 76 61 6c 20 21 3d 20 30 29 tex_retval != 0)
224f0 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
22500 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
22510 20 20 4c 6f 63 6b 69 6e 67 20 66 61 69 6c 65 64 Locking failed
22520 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 .");....return(C
22530 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 KR_GENERAL_ERROR
22540 29 3b 0a 09 7d 0a 0a 09 73 6c 6f 74 5f 69 64 78 );..}...slot_idx
22550 20 3d 20 30 3b 0a 09 66 6f 72 20 28 63 75 72 72 = 0;..for (curr
22560 73 6c 6f 74 20 3d 20 30 3b 20 28 63 75 72 72 73 slot = 0; (currs
22570 6c 6f 74 20 3c 20 28 73 69 7a 65 6f 66 28 63 61 lot < (sizeof(ca
22580 63 6b 65 79 5f 73 6c 6f 74 73 29 20 2f 20 73 69 ckey_slots) / si
22590 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 6c 6f 74 zeof(cackey_slot
225a0 73 5b 30 5d 29 29 29 3b 20 63 75 72 72 73 6c 6f s[0]))); currslo
225b0 74 2b 2b 29 20 7b 0a 09 09 69 66 20 28 21 63 61 t++) {...if (!ca
225c0 63 6b 65 79 5f 73 6c 6f 74 73 5b 63 75 72 72 73 ckey_slots[currs
225d0 6c 6f 74 5d 2e 61 63 74 69 76 65 29 20 7b 0a 09 lot].active) {..
225e0 09 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 7d 0a ..continue;...}.
225f0 0a 09 09 69 66 20 28 73 6c 6f 74 5f 69 64 78 20 ...if (slot_idx
22600 3e 3d 20 63 6f 75 6e 74 29 20 7b 0a 09 09 09 43 >= count) {....C
22610 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
22620 54 46 28 22 45 72 72 6f 72 2e 20 55 73 65 72 20 TF("Error. User
22630 61 6c 6c 6f 63 61 74 65 64 20 25 6c 75 20 65 6e allocated %lu en
22640 74 72 69 65 73 2c 20 62 75 74 20 77 65 20 6a 75 tries, but we ju
22650 73 74 20 74 72 69 65 64 20 74 6f 20 77 72 69 74 st tried to writ
22660 65 20 74 6f 20 74 68 65 20 25 6c 75 20 69 6e 64 e to the %lu ind
22670 65 78 20 2d 2d 20 69 67 6e 6f 72 69 6e 67 22 2c ex -- ignoring",
22680 20 63 6f 75 6e 74 2c 20 73 6c 6f 74 5f 69 64 78 count, slot_idx
22690 29 3b 0a 0a 09 09 09 63 6f 6e 74 69 6e 75 65 3b );.....continue;
226a0 0a 09 09 7d 0a 0a 09 09 70 53 6c 6f 74 4c 69 73 ...}....pSlotLis
226b0 74 5b 73 6c 6f 74 5f 69 64 78 5d 20 3d 20 63 75 t[slot_idx] = cu
226c0 72 72 73 6c 6f 74 3b 0a 09 09 73 6c 6f 74 5f 69 rrslot;...slot_i
226d0 64 78 2b 2b 3b 0a 09 7d 0a 0a 09 6d 75 74 65 78 dx++;..}...mutex
226e0 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 79 _retval = cackey
226f0 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 _mutex_unlock(ca
22700 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 ckey_biglock);..
22710 69 66 20 28 6d 75 74 65 78 5f 72 65 74 76 61 6c if (mutex_retval
22720 20 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 != 0) {...CACKE
22730 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
22740 45 72 72 6f 72 2e 20 20 55 6e 6c 6f 63 6b 69 6e Error. Unlockin
22750 67 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 g failed.");....
22760 72 65 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 return(CKR_GENER
22770 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 AL_ERROR);..}...
22780 2a 70 75 6c 43 6f 75 6e 74 20 3d 20 73 6c 6f 74 *pulCount = slot
22790 5f 63 6f 75 6e 74 3b 0a 0a 09 43 41 43 4b 45 59 _count;...CACKEY
227a0 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 _DEBUG_PRINTF("R
227b0 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 4f 4b 20 eturning CKR_OK
227c0 28 25 69 29 2e 20 20 46 6f 75 6e 64 20 25 6c 75 (%i). Found %lu
227d0 20 72 65 61 64 65 72 73 2e 22 2c 20 43 4b 52 5f readers.", CKR_
227e0 4f 4b 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f OK, (unsigned lo
227f0 6e 67 29 20 73 6c 6f 74 5f 63 6f 75 6e 74 29 3b ng) slot_count);
22800 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f 4b ...return(CKR_OK
22810 29 3b 0a 0a 09 74 6f 6b 65 6e 50 72 65 73 65 6e );...tokenPresen
22820 74 20 3d 20 74 6f 6b 65 6e 50 72 65 73 65 6e 74 t = tokenPresent
22830 3b 20 2f 2a 20 53 75 70 72 65 73 73 20 75 6e 75 ; /* Supress unu
22840 73 65 64 20 76 61 72 69 61 62 6c 65 20 77 61 72 sed variable war
22850 6e 69 6e 67 20 2a 2f 0a 7d 0a 0a 43 4b 5f 44 45 ning */.}..CK_DE
22860 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b FINE_FUNCTION(CK
22870 5f 52 56 2c 20 43 5f 47 65 74 53 6c 6f 74 49 6e _RV, C_GetSlotIn
22880 66 6f 29 28 43 4b 5f 53 4c 4f 54 5f 49 44 20 73 fo)(CK_SLOT_ID s
22890 6c 6f 74 49 44 2c 20 43 4b 5f 53 4c 4f 54 5f 49 lotID, CK_SLOT_I
228a0 4e 46 4f 5f 50 54 52 20 70 49 6e 66 6f 29 20 7b NFO_PTR pInfo) {
228b0 0a 09 73 74 61 74 69 63 20 43 4b 5f 55 54 46 38 ..static CK_UTF8
228c0 43 48 41 52 20 73 6c 6f 74 44 65 73 63 72 69 70 CHAR slotDescrip
228d0 74 69 6f 6e 5b 5d 20 3d 20 22 43 41 43 4b 65 79 tion[] = "CACKey
228e0 20 53 6c 6f 74 22 3b 0a 09 69 6e 74 20 6d 75 74 Slot";..int mut
228f0 65 78 5f 72 65 74 76 61 6c 3b 0a 09 69 6e 74 20 ex_retval;..int
22900 62 79 74 65 73 5f 74 6f 5f 63 6f 70 79 3b 0a 0a bytes_to_copy;..
22910 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
22920 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b INTF("Called.");
22930 0a 0a 09 69 66 20 28 70 49 6e 66 6f 20 3d 3d 20 ...if (pInfo ==
22940 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b 45 59 NULL) {...CACKEY
22950 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
22960 72 72 6f 72 2e 20 70 49 6e 66 6f 20 69 73 20 4e rror. pInfo is N
22970 55 4c 4c 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 ULL.");....retur
22980 6e 28 43 4b 52 5f 41 52 47 55 4d 45 4e 54 53 5f n(CKR_ARGUMENTS_
22990 42 41 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 21 BAD);..}...if (!
229a0 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a cackey_initializ
229b0 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ed) {...CACKEY_D
229c0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
229d0 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c or. Not initial
229e0 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 ized.");....retu
229f0 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f rn(CKR_CRYPTOKI_
22a00 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 NOT_INITIALIZED)
22a10 3b 0a 09 7d 0a 0a 09 69 66 20 28 73 6c 6f 74 49 ;..}...if (slotI
22a20 44 20 3c 20 30 20 7c 7c 20 73 6c 6f 74 49 44 20 D < 0 || slotID
22a30 3e 3d 20 28 73 69 7a 65 6f 66 28 63 61 63 6b 65 >= (sizeof(cacke
22a40 79 5f 73 6c 6f 74 73 29 20 2f 20 73 69 7a 65 6f y_slots) / sizeo
22a50 66 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 30 f(cackey_slots[0
22a60 5d 29 29 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f ]))) {...CACKEY_
22a70 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
22a80 72 6f 72 2e 20 49 6e 76 61 6c 69 64 20 73 6c 6f ror. Invalid slo
22a90 74 20 72 65 71 75 65 73 74 65 64 20 28 25 6c 75 t requested (%lu
22aa0 29 2c 20 6f 75 74 73 69 64 65 20 6f 66 20 76 61 ), outside of va
22ab0 6c 69 64 20 72 61 6e 67 65 22 2c 20 73 6c 6f 74 lid range", slot
22ac0 49 44 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 ID);....return(C
22ad0 4b 52 5f 53 4c 4f 54 5f 49 44 5f 49 4e 56 41 4c KR_SLOT_ID_INVAL
22ae0 49 44 29 3b 0a 09 7d 0a 0a 09 6d 75 74 65 78 5f ID);..}...mutex_
22af0 72 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 79 5f retval = cackey_
22b00 6d 75 74 65 78 5f 6c 6f 63 6b 28 63 61 63 6b 65 mutex_lock(cacke
22b10 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 69 66 20 y_biglock);..if
22b20 28 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 21 3d (mutex_retval !=
22b30 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 0) {...CACKEY_D
22b40 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
22b50 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 20 66 61 69 or. Locking fai
22b60 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 led.");....retur
22b70 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 n(CKR_GENERAL_ER
22b80 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 63 ROR);..}...if (c
22b90 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 73 6c 6f 74 ackey_slots[slot
22ba0 49 44 5d 2e 61 63 74 69 76 65 20 3d 3d 20 30 29 ID].active == 0)
22bb0 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
22bc0 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
22bd0 20 49 6e 76 61 6c 69 64 20 73 6c 6f 74 20 72 65 Invalid slot re
22be0 71 75 65 73 74 65 64 20 28 25 6c 75 29 2c 20 73 quested (%lu), s
22bf0 6c 6f 74 20 6e 6f 74 20 63 75 72 72 65 6e 74 6c lot not currentl
22c00 79 20 61 63 74 69 76 65 22 2c 20 73 6c 6f 74 49 y active", slotI
22c10 44 29 3b 0a 0a 09 09 63 61 63 6b 65 79 5f 6d 75 D);....cackey_mu
22c20 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 tex_unlock(cacke
22c30 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 72 y_biglock);....r
22c40 65 74 75 72 6e 28 43 4b 52 5f 53 4c 4f 54 5f 49 eturn(CKR_SLOT_I
22c50 44 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a D_INVALID);..}..
22c60 09 70 49 6e 66 6f 2d 3e 66 6c 61 67 73 20 3d 20 .pInfo->flags =
22c70 43 4b 46 5f 48 57 5f 53 4c 4f 54 3b 0a 0a 09 69 CKF_HW_SLOT;...i
22c80 66 20 28 21 63 61 63 6b 65 79 5f 73 6c 6f 74 73 f (!cackey_slots
22c90 5b 73 6c 6f 74 49 44 5d 2e 69 6e 74 65 72 6e 61 [slotID].interna
22ca0 6c 29 20 7b 0a 09 09 70 49 6e 66 6f 2d 3e 66 6c l) {...pInfo->fl
22cb0 61 67 73 20 7c 3d 20 43 4b 46 5f 52 45 4d 4f 56 ags |= CKF_REMOV
22cc0 41 42 4c 45 5f 44 45 56 49 43 45 3b 0a 09 7d 0a ABLE_DEVICE;..}.
22cd0 0a 09 69 66 20 28 63 61 63 6b 65 79 5f 74 6f 6b ..if (cackey_tok
22ce0 65 6e 5f 70 72 65 73 65 6e 74 28 26 63 61 63 6b en_present(&cack
22cf0 65 79 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d ey_slots[slotID]
22d00 29 20 3d 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 ) == CACKEY_PCSC
22d10 5f 53 5f 54 4f 4b 45 4e 50 52 45 53 45 4e 54 29 _S_TOKENPRESENT)
22d20 20 7b 0a 09 09 70 49 6e 66 6f 2d 3e 66 6c 61 67 {...pInfo->flag
22d30 73 20 7c 3d 20 43 4b 46 5f 54 4f 4b 45 4e 5f 50 s |= CKF_TOKEN_P
22d40 52 45 53 45 4e 54 3b 0a 09 7d 0a 0a 09 62 79 74 RESENT;..}...byt
22d50 65 73 5f 74 6f 5f 63 6f 70 79 20 3d 20 73 74 72 es_to_copy = str
22d60 6c 65 6e 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 len(cackey_slots
22d70 5b 73 6c 6f 74 49 44 5d 2e 70 63 73 63 5f 72 65 [slotID].pcsc_re
22d80 61 64 65 72 29 3b 0a 09 69 66 20 28 73 69 7a 65 ader);..if (size
22d90 6f 66 28 70 49 6e 66 6f 2d 3e 6d 61 6e 75 66 61 of(pInfo->manufa
22da0 63 74 75 72 65 72 49 44 29 20 3c 20 62 79 74 65 cturerID) < byte
22db0 73 5f 74 6f 5f 63 6f 70 79 29 20 7b 0a 09 09 62 s_to_copy) {...b
22dc0 79 74 65 73 5f 74 6f 5f 63 6f 70 79 20 3d 20 73 ytes_to_copy = s
22dd0 69 7a 65 6f 66 28 70 49 6e 66 6f 2d 3e 6d 61 6e izeof(pInfo->man
22de0 75 66 61 63 74 75 72 65 72 49 44 29 3b 0a 09 7d ufacturerID);..}
22df0 0a 09 6d 65 6d 63 70 79 28 70 49 6e 66 6f 2d 3e ..memcpy(pInfo->
22e00 6d 61 6e 75 66 61 63 74 75 72 65 72 49 44 2c 20 manufacturerID,
22e10 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 73 6c 6f cackey_slots[slo
22e20 74 49 44 5d 2e 70 63 73 63 5f 72 65 61 64 65 72 tID].pcsc_reader
22e30 2c 20 62 79 74 65 73 5f 74 6f 5f 63 6f 70 79 29 , bytes_to_copy)
22e40 3b 0a 0a 09 6d 75 74 65 78 5f 72 65 74 76 61 6c ;...mutex_retval
22e50 20 3d 20 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f = cackey_mutex_
22e60 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 unlock(cackey_bi
22e70 67 6c 6f 63 6b 29 3b 0a 09 69 66 20 28 6d 75 74 glock);..if (mut
22e80 65 78 5f 72 65 74 76 61 6c 20 21 3d 20 30 29 20 ex_retval != 0)
22e90 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
22ea0 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
22eb0 20 55 6e 6c 6f 63 6b 69 6e 67 20 66 61 69 6c 65 Unlocking faile
22ec0 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 d.");....return(
22ed0 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f CKR_GENERAL_ERRO
22ee0 52 29 3b 0a 09 7d 0a 0a 09 6d 65 6d 73 65 74 28 R);..}...memset(
22ef0 70 49 6e 66 6f 2d 3e 73 6c 6f 74 44 65 73 63 72 pInfo->slotDescr
22f00 69 70 74 69 6f 6e 2c 20 27 20 27 2c 20 73 69 7a iption, ' ', siz
22f10 65 6f 66 28 70 49 6e 66 6f 2d 3e 73 6c 6f 74 44 eof(pInfo->slotD
22f20 65 73 63 72 69 70 74 69 6f 6e 29 29 3b 0a 09 6d escription));..m
22f30 65 6d 63 70 79 28 70 49 6e 66 6f 2d 3e 73 6c 6f emcpy(pInfo->slo
22f40 74 44 65 73 63 72 69 70 74 69 6f 6e 2c 20 73 6c tDescription, sl
22f50 6f 74 44 65 73 63 72 69 70 74 69 6f 6e 2c 20 73 otDescription, s
22f60 69 7a 65 6f 66 28 73 6c 6f 74 44 65 73 63 72 69 izeof(slotDescri
22f70 70 74 69 6f 6e 29 20 2d 20 31 29 3b 0a 0a 09 6d ption) - 1);...m
22f80 65 6d 73 65 74 28 70 49 6e 66 6f 2d 3e 6d 61 6e emset(pInfo->man
22f90 75 66 61 63 74 75 72 65 72 49 44 2c 20 27 20 27 ufacturerID, ' '
22fa0 2c 20 73 69 7a 65 6f 66 28 70 49 6e 66 6f 2d 3e , sizeof(pInfo->
22fb0 6d 61 6e 75 66 61 63 74 75 72 65 72 49 44 29 29 manufacturerID))
22fc0 3b 0a 0a 09 70 49 6e 66 6f 2d 3e 68 61 72 64 77 ;...pInfo->hardw
22fd0 61 72 65 56 65 72 73 69 6f 6e 2e 6d 61 6a 6f 72 areVersion.major
22fe0 20 3d 20 28 63 61 63 6b 65 79 5f 67 65 74 76 65 = (cackey_getve
22ff0 72 73 69 6f 6e 28 29 20 3e 3e 20 31 36 29 20 26 rsion() >> 16) &
23000 20 30 78 66 66 3b 0a 09 70 49 6e 66 6f 2d 3e 68 0xff;..pInfo->h
23010 61 72 64 77 61 72 65 56 65 72 73 69 6f 6e 2e 6d ardwareVersion.m
23020 69 6e 6f 72 20 3d 20 28 63 61 63 6b 65 79 5f 67 inor = (cackey_g
23030 65 74 76 65 72 73 69 6f 6e 28 29 20 3e 3e 20 38 etversion() >> 8
23040 29 20 26 20 30 78 66 66 3b 0a 0a 09 70 49 6e 66 ) & 0xff;...pInf
23050 6f 2d 3e 66 69 72 6d 77 61 72 65 56 65 72 73 69 o->firmwareVersi
23060 6f 6e 2e 6d 61 6a 6f 72 20 3d 20 30 78 30 30 3b on.major = 0x00;
23070 0a 09 70 49 6e 66 6f 2d 3e 66 69 72 6d 77 61 72 ..pInfo->firmwar
23080 65 56 65 72 73 69 6f 6e 2e 6d 69 6e 6f 72 20 3d eVersion.minor =
23090 20 30 78 30 30 3b 0a 0a 09 43 41 43 4b 45 59 5f 0x00;...CACKEY_
230a0 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 DEBUG_PRINTF("Re
230b0 74 75 72 6e 69 6e 67 20 43 4b 52 5f 4f 4b 20 28 turning CKR_OK (
230c0 25 69 29 22 2c 20 43 4b 52 5f 4f 4b 29 3b 0a 0a %i)", CKR_OK);..
230d0 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f 4b 29 3b .return(CKR_OK);
230e0 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 55 .}..CK_DEFINE_FU
230f0 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f NCTION(CK_RV, C_
23100 47 65 74 54 6f 6b 65 6e 49 6e 66 6f 29 28 43 4b GetTokenInfo)(CK
23110 5f 53 4c 4f 54 5f 49 44 20 73 6c 6f 74 49 44 2c _SLOT_ID slotID,
23120 20 43 4b 5f 54 4f 4b 45 4e 5f 49 4e 46 4f 5f 50 CK_TOKEN_INFO_P
23130 54 52 20 70 49 6e 66 6f 29 20 7b 0a 09 73 74 61 TR pInfo) {..sta
23140 74 69 63 20 43 4b 5f 55 54 46 38 43 48 41 52 20 tic CK_UTF8CHAR
23150 6d 61 6e 75 66 61 63 74 75 72 65 72 49 44 5b 5d manufacturerID[]
23160 20 3d 20 22 55 2e 53 2e 20 47 6f 76 65 72 6e 6d = "U.S. Governm
23170 65 6e 74 22 3b 0a 09 73 74 61 74 69 63 20 43 4b ent";..static CK
23180 5f 55 54 46 38 43 48 41 52 20 64 65 66 61 75 6c _UTF8CHAR defaul
23190 74 4c 61 62 65 6c 5b 5d 20 3d 20 22 55 6e 6b 6e tLabel[] = "Unkn
231a0 6f 77 6e 20 54 6f 6b 65 6e 22 3b 0a 09 73 74 61 own Token";..sta
231b0 74 69 63 20 43 4b 5f 55 54 46 38 43 48 41 52 20 tic CK_UTF8CHAR
231c0 6d 6f 64 65 6c 5b 5d 20 3d 20 22 43 41 43 20 54 model[] = "CAC T
231d0 6f 6b 65 6e 22 3b 0a 09 73 74 72 75 63 74 20 63 oken";..struct c
231e0 61 63 6b 65 79 5f 70 63 73 63 5f 69 64 65 6e 74 ackey_pcsc_ident
231f0 69 74 79 20 2a 70 63 73 63 5f 69 64 65 6e 74 69 ity *pcsc_identi
23200 74 69 65 73 3b 0a 09 75 6e 73 69 67 6e 65 64 20 ties;..unsigned
23210 6c 6f 6e 67 20 6e 75 6d 5f 63 65 72 74 73 3b 0a long num_certs;.
23220 09 73 73 69 7a 65 5f 74 20 6c 61 62 65 6c 5f 72 .ssize_t label_r
23230 65 74 3b 0a 09 69 6e 74 20 6d 75 74 65 78 5f 72 et;..int mutex_r
23240 65 74 76 61 6c 3b 0a 09 69 6e 74 20 75 73 65 5f etval;..int use_
23250 64 65 66 61 75 6c 74 5f 6c 61 62 65 6c 3b 0a 0a default_label;..
23260 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
23270 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b INTF("Called.");
23280 0a 0a 09 69 66 20 28 70 49 6e 66 6f 20 3d 3d 20 ...if (pInfo ==
23290 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b 45 59 NULL) {...CACKEY
232a0 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
232b0 72 72 6f 72 2e 20 70 49 6e 66 6f 20 69 73 20 4e rror. pInfo is N
232c0 55 4c 4c 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 ULL.");....retur
232d0 6e 28 43 4b 52 5f 41 52 47 55 4d 45 4e 54 53 5f n(CKR_ARGUMENTS_
232e0 42 41 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 21 BAD);..}...if (!
232f0 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a cackey_initializ
23300 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ed) {...CACKEY_D
23310 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
23320 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c or. Not initial
23330 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 ized.");....retu
23340 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f rn(CKR_CRYPTOKI_
23350 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 NOT_INITIALIZED)
23360 3b 0a 09 7d 0a 0a 09 69 66 20 28 73 6c 6f 74 49 ;..}...if (slotI
23370 44 20 3c 20 30 20 7c 7c 20 73 6c 6f 74 49 44 20 D < 0 || slotID
23380 3e 3d 20 28 73 69 7a 65 6f 66 28 63 61 63 6b 65 >= (sizeof(cacke
23390 79 5f 73 6c 6f 74 73 29 20 2f 20 73 69 7a 65 6f y_slots) / sizeo
233a0 66 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 30 f(cackey_slots[0
233b0 5d 29 29 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f ]))) {...CACKEY_
233c0 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
233d0 72 6f 72 2e 20 49 6e 76 61 6c 69 64 20 73 6c 6f ror. Invalid slo
233e0 74 20 72 65 71 75 65 73 74 65 64 20 28 25 6c 75 t requested (%lu
233f0 29 2c 20 6f 75 74 73 69 64 65 20 6f 66 20 76 61 ), outside of va
23400 6c 69 64 20 72 61 6e 67 65 22 2c 20 73 6c 6f 74 lid range", slot
23410 49 44 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 ID);....return(C
23420 4b 52 5f 53 4c 4f 54 5f 49 44 5f 49 4e 56 41 4c KR_SLOT_ID_INVAL
23430 49 44 29 3b 0a 09 7d 0a 0a 09 6d 75 74 65 78 5f ID);..}...mutex_
23440 72 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 79 5f retval = cackey_
23450 6d 75 74 65 78 5f 6c 6f 63 6b 28 63 61 63 6b 65 mutex_lock(cacke
23460 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 69 66 20 y_biglock);..if
23470 28 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 21 3d (mutex_retval !=
23480 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 0) {...CACKEY_D
23490 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
234a0 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 20 66 61 69 or. Locking fai
234b0 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 led.");....retur
234c0 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 n(CKR_GENERAL_ER
234d0 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 63 ROR);..}...if (c
234e0 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 73 6c 6f 74 ackey_slots[slot
234f0 49 44 5d 2e 61 63 74 69 76 65 20 3d 3d 20 30 29 ID].active == 0)
23500 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
23510 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
23520 20 49 6e 76 61 6c 69 64 20 73 6c 6f 74 20 72 65 Invalid slot re
23530 71 75 65 73 74 65 64 20 28 25 6c 75 29 2c 20 73 quested (%lu), s
23540 6c 6f 74 20 6e 6f 74 20 63 75 72 72 65 6e 74 6c lot not currentl
23550 79 20 61 63 74 69 76 65 22 2c 20 73 6c 6f 74 49 y active", slotI
23560 44 29 3b 0a 0a 09 09 63 61 63 6b 65 79 5f 6d 75 D);....cackey_mu
23570 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 tex_unlock(cacke
23580 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 72 y_biglock);....r
23590 65 74 75 72 6e 28 43 4b 52 5f 53 4c 4f 54 5f 49 eturn(CKR_SLOT_I
235a0 44 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a D_INVALID);..}..
235b0 09 69 66 20 28 63 61 63 6b 65 79 5f 74 6f 6b 65 .if (cackey_toke
235c0 6e 5f 70 72 65 73 65 6e 74 28 26 63 61 63 6b 65 n_present(&cacke
235d0 79 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 29 y_slots[slotID])
235e0 20 21 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 5f != CACKEY_PCSC_
235f0 53 5f 54 4f 4b 45 4e 50 52 45 53 45 4e 54 29 20 S_TOKENPRESENT)
23600 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
23610 5f 50 52 49 4e 54 46 28 22 4e 6f 20 74 6f 6b 65 _PRINTF("No toke
23620 6e 20 69 73 20 70 72 65 73 65 6e 74 20 69 6e 20 n is present in
23630 73 6c 6f 74 49 44 20 3d 20 25 6c 75 22 2c 20 73 slotID = %lu", s
23640 6c 6f 74 49 44 29 3b 0a 0a 09 09 63 61 63 6b 65 lotID);....cacke
23650 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 y_mutex_unlock(c
23660 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a ackey_biglock);.
23670 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 54 4f ...return(CKR_TO
23680 4b 45 4e 5f 4e 4f 54 5f 50 52 45 53 45 4e 54 29 KEN_NOT_PRESENT)
23690 3b 0a 09 7d 0a 0a 09 2f 2a 20 44 65 74 65 72 6d ;..}.../* Determ
236a0 69 6e 65 20 74 6f 6b 65 6e 20 6c 61 62 65 6c 20 ine token label
236b0 66 72 6f 6d 20 63 65 72 74 69 66 69 63 61 74 65 from certificate
236c0 73 20 2a 2f 0a 09 6d 65 6d 73 65 74 28 70 49 6e s */..memset(pIn
236d0 66 6f 2d 3e 6c 61 62 65 6c 2c 20 27 20 27 2c 20 fo->label, ' ',
236e0 73 69 7a 65 6f 66 28 70 49 6e 66 6f 2d 3e 6c 61 sizeof(pInfo->la
236f0 62 65 6c 29 29 3b 0a 09 75 73 65 5f 64 65 66 61 bel));..use_defa
23700 75 6c 74 5f 6c 61 62 65 6c 20 3d 20 31 3b 0a 0a ult_label = 1;..
23710 09 69 66 20 28 63 61 63 6b 65 79 5f 73 6c 6f 74 .if (cackey_slot
23720 73 5b 73 6c 6f 74 49 44 5d 2e 6c 61 62 65 6c 20 s[slotID].label
23730 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 70 63 73 == NULL) {...pcs
23740 63 5f 69 64 65 6e 74 69 74 69 65 73 20 3d 20 63 c_identities = c
23750 61 63 6b 65 79 5f 72 65 61 64 5f 63 65 72 74 73 ackey_read_certs
23760 28 26 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 73 (&cackey_slots[s
23770 6c 6f 74 49 44 5d 2c 20 4e 55 4c 4c 2c 20 26 6e lotID], NULL, &n
23780 75 6d 5f 63 65 72 74 73 29 3b 0a 09 09 69 66 20 um_certs);...if
23790 28 70 63 73 63 5f 69 64 65 6e 74 69 74 69 65 73 (pcsc_identities
237a0 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 69 != NULL) {....i
237b0 66 20 28 6e 75 6d 5f 63 65 72 74 73 20 3e 20 30 f (num_certs > 0
237c0 29 20 7b 0a 09 09 09 09 6c 61 62 65 6c 5f 72 65 ) {.....label_re
237d0 74 20 3d 20 63 61 63 6b 65 79 5f 70 63 73 63 5f t = cackey_pcsc_
237e0 69 64 65 6e 74 69 74 79 5f 74 6f 5f 6c 61 62 65 identity_to_labe
237f0 6c 28 70 63 73 63 5f 69 64 65 6e 74 69 74 69 65 l(pcsc_identitie
23800 73 2c 20 70 49 6e 66 6f 2d 3e 6c 61 62 65 6c 2c s, pInfo->label,
23810 20 73 69 7a 65 6f 66 28 70 49 6e 66 6f 2d 3e 6c sizeof(pInfo->l
23820 61 62 65 6c 29 29 3b 0a 09 09 09 09 69 66 20 28 abel));.....if (
23830 6c 61 62 65 6c 5f 72 65 74 20 3e 20 30 29 20 7b label_ret > 0) {
23840 0a 09 09 09 09 09 75 73 65 5f 64 65 66 61 75 6c ......use_defaul
23850 74 5f 6c 61 62 65 6c 20 3d 20 30 3b 0a 0a 09 09 t_label = 0;....
23860 09 09 09 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b ...cackey_slots[
23870 73 6c 6f 74 49 44 5d 2e 6c 61 62 65 6c 20 3d 20 slotID].label =
23880 6d 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 70 49 malloc(sizeof(pI
23890 6e 66 6f 2d 3e 6c 61 62 65 6c 29 29 3b 0a 0a 09 nfo->label));...
238a0 09 09 09 09 6d 65 6d 63 70 79 28 63 61 63 6b 65 ....memcpy(cacke
238b0 79 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 2e y_slots[slotID].
238c0 6c 61 62 65 6c 2c 20 70 49 6e 66 6f 2d 3e 6c 61 label, pInfo->la
238d0 62 65 6c 2c 20 73 69 7a 65 6f 66 28 70 49 6e 66 bel, sizeof(pInf
238e0 6f 2d 3e 6c 61 62 65 6c 29 29 3b 0a 09 09 09 09 o->label));.....
238f0 7d 0a 09 09 09 7d 0a 0a 09 09 09 63 61 63 6b 65 }....}.....cacke
23900 79 5f 66 72 65 65 5f 63 65 72 74 73 28 70 63 73 y_free_certs(pcs
23910 63 5f 69 64 65 6e 74 69 74 69 65 73 2c 20 6e 75 c_identities, nu
23920 6d 5f 63 65 72 74 73 2c 20 31 29 3b 0a 09 09 7d m_certs, 1);...}
23930 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 6d 65 6d ..} else {...mem
23940 63 70 79 28 70 49 6e 66 6f 2d 3e 6c 61 62 65 6c cpy(pInfo->label
23950 2c 20 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 73 , cackey_slots[s
23960 6c 6f 74 49 44 5d 2e 6c 61 62 65 6c 2c 20 73 69 lotID].label, si
23970 7a 65 6f 66 28 70 49 6e 66 6f 2d 3e 6c 61 62 65 zeof(pInfo->labe
23980 6c 29 29 3b 0a 0a 09 09 75 73 65 5f 64 65 66 61 l));....use_defa
23990 75 6c 74 5f 6c 61 62 65 6c 20 3d 20 30 3b 0a 09 ult_label = 0;..
239a0 7d 0a 0a 09 6d 75 74 65 78 5f 72 65 74 76 61 6c }...mutex_retval
239b0 20 3d 20 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f = cackey_mutex_
239c0 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 unlock(cackey_bi
239d0 67 6c 6f 63 6b 29 3b 0a 09 69 66 20 28 6d 75 74 glock);..if (mut
239e0 65 78 5f 72 65 74 76 61 6c 20 21 3d 20 30 29 20 ex_retval != 0)
239f0 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
23a00 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
23a10 20 55 6e 6c 6f 63 6b 69 6e 67 20 66 61 69 6c 65 Unlocking faile
23a20 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 d.");....return(
23a30 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f CKR_GENERAL_ERRO
23a40 52 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 75 73 65 R);..}...if (use
23a50 5f 64 65 66 61 75 6c 74 5f 6c 61 62 65 6c 29 20 _default_label)
23a60 7b 0a 09 09 6d 65 6d 63 70 79 28 70 49 6e 66 6f {...memcpy(pInfo
23a70 2d 3e 6c 61 62 65 6c 2c 20 64 65 66 61 75 6c 74 ->label, default
23a80 4c 61 62 65 6c 2c 20 73 69 7a 65 6f 66 28 64 65 Label, sizeof(de
23a90 66 61 75 6c 74 4c 61 62 65 6c 29 20 2d 20 31 29 faultLabel) - 1)
23aa0 3b 0a 09 7d 0a 0a 09 6d 65 6d 73 65 74 28 70 49 ;..}...memset(pI
23ab0 6e 66 6f 2d 3e 6d 61 6e 75 66 61 63 74 75 72 65 nfo->manufacture
23ac0 72 49 44 2c 20 27 20 27 2c 20 73 69 7a 65 6f 66 rID, ' ', sizeof
23ad0 28 70 49 6e 66 6f 2d 3e 6d 61 6e 75 66 61 63 74 (pInfo->manufact
23ae0 75 72 65 72 49 44 29 29 3b 0a 09 6d 65 6d 63 70 urerID));..memcp
23af0 79 28 70 49 6e 66 6f 2d 3e 6d 61 6e 75 66 61 63 y(pInfo->manufac
23b00 74 75 72 65 72 49 44 2c 20 6d 61 6e 75 66 61 63 turerID, manufac
23b10 74 75 72 65 72 49 44 2c 20 73 69 7a 65 6f 66 28 turerID, sizeof(
23b20 6d 61 6e 75 66 61 63 74 75 72 65 72 49 44 29 20 manufacturerID)
23b30 2d 20 31 29 3b 0a 0a 09 6d 65 6d 73 65 74 28 70 - 1);...memset(p
23b40 49 6e 66 6f 2d 3e 6d 6f 64 65 6c 2c 20 27 20 27 Info->model, ' '
23b50 2c 20 73 69 7a 65 6f 66 28 70 49 6e 66 6f 2d 3e , sizeof(pInfo->
23b60 6d 6f 64 65 6c 29 29 3b 0a 09 6d 65 6d 63 70 79 model));..memcpy
23b70 28 70 49 6e 66 6f 2d 3e 6d 6f 64 65 6c 2c 20 6d (pInfo->model, m
23b80 6f 64 65 6c 2c 20 73 69 7a 65 6f 66 28 6d 6f 64 odel, sizeof(mod
23b90 65 6c 29 20 2d 20 31 29 3b 0a 0a 09 6d 65 6d 73 el) - 1);...mems
23ba0 65 74 28 70 49 6e 66 6f 2d 3e 73 65 72 69 61 6c et(pInfo->serial
23bb0 4e 75 6d 62 65 72 2c 20 27 20 27 2c 20 73 69 7a Number, ' ', siz
23bc0 65 6f 66 28 70 49 6e 66 6f 2d 3e 73 65 72 69 61 eof(pInfo->seria
23bd0 6c 4e 75 6d 62 65 72 29 29 3b 0a 0a 09 6d 65 6d lNumber));...mem
23be0 73 65 74 28 70 49 6e 66 6f 2d 3e 75 74 63 54 69 set(pInfo->utcTi
23bf0 6d 65 2c 20 27 20 27 2c 20 73 69 7a 65 6f 66 28 me, ' ', sizeof(
23c00 70 49 6e 66 6f 2d 3e 75 74 63 54 69 6d 65 29 29 pInfo->utcTime))
23c10 3b 0a 0a 09 70 49 6e 66 6f 2d 3e 68 61 72 64 77 ;...pInfo->hardw
23c20 61 72 65 56 65 72 73 69 6f 6e 2e 6d 61 6a 6f 72 areVersion.major
23c30 20 3d 20 28 63 61 63 6b 65 79 5f 67 65 74 76 65 = (cackey_getve
23c40 72 73 69 6f 6e 28 29 20 3e 3e 20 31 36 29 20 26 rsion() >> 16) &
23c50 20 30 78 66 66 3b 0a 09 70 49 6e 66 6f 2d 3e 68 0xff;..pInfo->h
23c60 61 72 64 77 61 72 65 56 65 72 73 69 6f 6e 2e 6d ardwareVersion.m
23c70 69 6e 6f 72 20 3d 20 28 63 61 63 6b 65 79 5f 67 inor = (cackey_g
23c80 65 74 76 65 72 73 69 6f 6e 28 29 20 3e 3e 20 38 etversion() >> 8
23c90 29 20 26 20 30 78 66 66 3b 0a 0a 09 70 49 6e 66 ) & 0xff;...pInf
23ca0 6f 2d 3e 66 69 72 6d 77 61 72 65 56 65 72 73 69 o->firmwareVersi
23cb0 6f 6e 2e 6d 61 6a 6f 72 20 3d 20 30 78 30 30 3b on.major = 0x00;
23cc0 0a 09 70 49 6e 66 6f 2d 3e 66 69 72 6d 77 61 72 ..pInfo->firmwar
23cd0 65 56 65 72 73 69 6f 6e 2e 6d 69 6e 6f 72 20 3d eVersion.minor =
23ce0 20 30 78 30 30 3b 0a 0a 09 70 49 6e 66 6f 2d 3e 0x00;...pInfo->
23cf0 66 6c 61 67 73 20 3d 20 43 4b 46 5f 57 52 49 54 flags = CKF_WRIT
23d00 45 5f 50 52 4f 54 45 43 54 45 44 20 7c 20 43 4b E_PROTECTED | CK
23d10 46 5f 55 53 45 52 5f 50 49 4e 5f 49 4e 49 54 49 F_USER_PIN_INITI
23d20 41 4c 49 5a 45 44 20 7c 20 43 4b 46 5f 54 4f 4b ALIZED | CKF_TOK
23d30 45 4e 5f 49 4e 49 54 49 41 4c 49 5a 45 44 20 7c EN_INITIALIZED |
23d40 20 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 73 6c cackey_slots[sl
23d50 6f 74 49 44 5d 2e 74 6f 6b 65 6e 5f 66 6c 61 67 otID].token_flag
23d60 73 3b 0a 0a 09 69 66 20 28 63 61 63 6b 65 79 5f s;...if (cackey_
23d70 70 69 6e 5f 63 6f 6d 6d 61 6e 64 20 21 3d 20 4e pin_command != N
23d80 55 4c 4c 29 20 7b 0a 09 09 70 49 6e 66 6f 2d 3e ULL) {...pInfo->
23d90 66 6c 61 67 73 20 7c 3d 20 43 4b 46 5f 50 52 4f flags |= CKF_PRO
23da0 54 45 43 54 45 44 5f 41 55 54 48 45 4e 54 49 43 TECTED_AUTHENTIC
23db0 41 54 49 4f 4e 5f 50 41 54 48 3b 0a 09 7d 0a 0a ATION_PATH;..}..
23dc0 09 70 49 6e 66 6f 2d 3e 75 6c 4d 61 78 53 65 73 .pInfo->ulMaxSes
23dd0 73 69 6f 6e 43 6f 75 6e 74 20 3d 20 28 73 69 7a sionCount = (siz
23de0 65 6f 66 28 63 61 63 6b 65 79 5f 73 65 73 73 69 eof(cackey_sessi
23df0 6f 6e 73 29 20 2f 20 73 69 7a 65 6f 66 28 63 61 ons) / sizeof(ca
23e00 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 30 5d ckey_sessions[0]
23e10 29 29 20 2d 20 31 3b 0a 09 70 49 6e 66 6f 2d 3e )) - 1;..pInfo->
23e20 75 6c 53 65 73 73 69 6f 6e 43 6f 75 6e 74 20 3d ulSessionCount =
23e30 20 43 4b 5f 55 4e 41 56 41 49 4c 41 42 4c 45 5f CK_UNAVAILABLE_
23e40 49 4e 46 4f 52 4d 41 54 49 4f 4e 3b 0a 09 70 49 INFORMATION;..pI
23e50 6e 66 6f 2d 3e 75 6c 4d 61 78 52 77 53 65 73 73 nfo->ulMaxRwSess
23e60 69 6f 6e 43 6f 75 6e 74 20 3d 20 30 3b 0a 09 70 ionCount = 0;..p
23e70 49 6e 66 6f 2d 3e 75 6c 52 77 53 65 73 73 69 6f Info->ulRwSessio
23e80 6e 43 6f 75 6e 74 20 3d 20 43 4b 5f 55 4e 41 56 nCount = CK_UNAV
23e90 41 49 4c 41 42 4c 45 5f 49 4e 46 4f 52 4d 41 54 AILABLE_INFORMAT
23ea0 49 4f 4e 3b 0a 09 70 49 6e 66 6f 2d 3e 75 6c 4d ION;..pInfo->ulM
23eb0 61 78 50 69 6e 4c 65 6e 20 3d 20 31 32 38 3b 0a axPinLen = 128;.
23ec0 09 70 49 6e 66 6f 2d 3e 75 6c 4d 69 6e 50 69 6e .pInfo->ulMinPin
23ed0 4c 65 6e 20 3d 20 30 3b 0a 09 70 49 6e 66 6f 2d Len = 0;..pInfo-
23ee0 3e 75 6c 54 6f 74 61 6c 50 75 62 6c 69 63 4d 65 >ulTotalPublicMe
23ef0 6d 6f 72 79 20 3d 20 43 4b 5f 55 4e 41 56 41 49 mory = CK_UNAVAI
23f00 4c 41 42 4c 45 5f 49 4e 46 4f 52 4d 41 54 49 4f LABLE_INFORMATIO
23f10 4e 3b 0a 09 70 49 6e 66 6f 2d 3e 75 6c 46 72 65 N;..pInfo->ulFre
23f20 65 50 75 62 6c 69 63 4d 65 6d 6f 72 79 20 3d 20 ePublicMemory =
23f30 43 4b 5f 55 4e 41 56 41 49 4c 41 42 4c 45 5f 49 CK_UNAVAILABLE_I
23f40 4e 46 4f 52 4d 41 54 49 4f 4e 3b 0a 09 70 49 6e NFORMATION;..pIn
23f50 66 6f 2d 3e 75 6c 54 6f 74 61 6c 50 72 69 76 61 fo->ulTotalPriva
23f60 74 65 4d 65 6d 6f 72 79 20 3d 20 43 4b 5f 55 4e teMemory = CK_UN
23f70 41 56 41 49 4c 41 42 4c 45 5f 49 4e 46 4f 52 4d AVAILABLE_INFORM
23f80 41 54 49 4f 4e 3b 0a 09 70 49 6e 66 6f 2d 3e 75 ATION;..pInfo->u
23f90 6c 46 72 65 65 50 72 69 76 61 74 65 4d 65 6d 6f lFreePrivateMemo
23fa0 72 79 20 3d 20 43 4b 5f 55 4e 41 56 41 49 4c 41 ry = CK_UNAVAILA
23fb0 42 4c 45 5f 49 4e 46 4f 52 4d 41 54 49 4f 4e 3b BLE_INFORMATION;
23fc0 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
23fd0 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e PRINTF("Returnin
23fe0 67 20 43 4b 52 5f 4f 4b 20 28 25 69 29 22 2c 20 g CKR_OK (%i)",
23ff0 43 4b 52 5f 4f 4b 29 3b 0a 0a 09 72 65 74 75 72 CKR_OK);...retur
24000 6e 28 43 4b 52 5f 4f 4b 29 3b 0a 7d 0a 0a 43 4b n(CKR_OK);.}..CK
24010 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e _DEFINE_FUNCTION
24020 28 43 4b 5f 52 56 2c 20 43 5f 57 61 69 74 46 6f (CK_RV, C_WaitFo
24030 72 53 6c 6f 74 45 76 65 6e 74 29 28 43 4b 5f 46 rSlotEvent)(CK_F
24040 4c 41 47 53 20 66 6c 61 67 73 2c 20 43 4b 5f 53 LAGS flags, CK_S
24050 4c 4f 54 5f 49 44 5f 50 54 52 20 70 53 6c 6f 74 LOT_ID_PTR pSlot
24060 49 44 2c 20 43 4b 5f 56 4f 49 44 5f 50 54 52 20 ID, CK_VOID_PTR
24070 70 52 65 73 65 72 76 65 64 29 20 7b 0a 09 43 41 pReserved) {..CA
24080 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
24090 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 F("Called.");...
240a0 69 66 20 28 70 52 65 73 65 72 76 65 64 20 21 3d if (pReserved !=
240b0 20 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b 45 NULL) {...CACKE
240c0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
240d0 45 72 72 6f 72 2e 20 70 52 65 73 65 72 76 65 64 Error. pReserved
240e0 20 69 73 20 6e 6f 74 20 4e 55 4c 4c 2e 22 29 3b is not NULL.");
240f0 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 41 ....return(CKR_A
24100 52 47 55 4d 45 4e 54 53 5f 42 41 44 29 3b 0a 09 RGUMENTS_BAD);..
24110 7d 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f }...if (!cackey_
24120 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 initialized) {..
24130 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
24140 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f INTF("Error. No
24150 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 t initialized.")
24160 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f ;....return(CKR_
24170 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 CRYPTOKI_NOT_INI
24180 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 TIALIZED);..}...
24190 2f 2a 20 58 58 58 3a 20 54 4f 44 4f 3a 20 49 6d /* XXX: TODO: Im
241a0 70 6c 65 6d 65 6e 74 20 74 68 69 73 2e 2e 2e 20 plement this...
241b0 2a 2f 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 */..CACKEY_DEBUG
241c0 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 _PRINTF("Returni
241d0 6e 67 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f ng CKR_FUNCTION_
241e0 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 20 28 25 NOT_SUPPORTED (%
241f0 69 29 22 2c 20 43 4b 52 5f 46 55 4e 43 54 49 4f i)", CKR_FUNCTIO
24200 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 N_NOT_SUPPORTED)
24210 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f 46 ;...return(CKR_F
24220 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 UNCTION_NOT_SUPP
24230 4f 52 54 45 44 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 ORTED);.}..CK_DE
24240 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b FINE_FUNCTION(CK
24250 5f 52 56 2c 20 43 5f 47 65 74 4d 65 63 68 61 6e _RV, C_GetMechan
24260 69 73 6d 4c 69 73 74 29 28 43 4b 5f 53 4c 4f 54 ismList)(CK_SLOT
24270 5f 49 44 20 73 6c 6f 74 49 44 2c 20 43 4b 5f 4d _ID slotID, CK_M
24280 45 43 48 41 4e 49 53 4d 5f 54 59 50 45 5f 50 54 ECHANISM_TYPE_PT
24290 52 20 70 4d 65 63 68 61 6e 69 73 6d 4c 69 73 74 R pMechanismList
242a0 2c 20 43 4b 5f 55 4c 4f 4e 47 5f 50 54 52 20 70 , CK_ULONG_PTR p
242b0 75 6c 43 6f 75 6e 74 29 20 7b 0a 09 43 41 43 4b ulCount) {..CACK
242c0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
242d0 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 "Called.");...if
242e0 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 (!cackey_initia
242f0 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 lized) {...CACKE
24300 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
24310 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 Error. Not init
24320 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 ialized.");....r
24330 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f eturn(CKR_CRYPTO
24340 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a KI_NOT_INITIALIZ
24350 45 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 70 75 ED);..}...if (pu
24360 6c 43 6f 75 6e 74 20 3d 3d 20 4e 55 4c 4c 29 20 lCount == NULL)
24370 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
24380 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
24390 20 70 75 6c 43 6f 75 6e 74 20 69 73 20 4e 55 4c pulCount is NUL
243a0 4c 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 L.");....return(
243b0 43 4b 52 5f 41 52 47 55 4d 45 4e 54 53 5f 42 41 CKR_ARGUMENTS_BA
243c0 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 70 4d 65 D);..}...if (pMe
243d0 63 68 61 6e 69 73 6d 4c 69 73 74 20 3d 3d 20 4e chanismList == N
243e0 55 4c 4c 29 20 7b 0a 09 09 2a 70 75 6c 43 6f 75 ULL) {...*pulCou
243f0 6e 74 20 3d 20 31 3b 0a 0a 09 09 43 41 43 4b 45 nt = 1;....CACKE
24400 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
24410 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 4f 4b Returning CKR_OK
24420 20 28 25 69 29 22 2c 20 43 4b 52 5f 4f 4b 29 3b (%i)", CKR_OK);
24430 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f ....return(CKR_O
24440 4b 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 2a 70 75 K);..}...if (*pu
24450 6c 43 6f 75 6e 74 20 3c 20 31 29 20 7b 0a 09 09 lCount < 1) {...
24460 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
24470 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 42 75 66 NTF("Error. Buf
24480 66 65 72 20 74 6f 6f 20 73 6d 61 6c 6c 2e 22 29 fer too small.")
24490 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f ;....return(CKR_
244a0 42 55 46 46 45 52 5f 54 4f 4f 5f 53 4d 41 4c 4c BUFFER_TOO_SMALL
244b0 29 3b 0a 09 7d 0a 0a 09 70 4d 65 63 68 61 6e 69 );..}...pMechani
244c0 73 6d 4c 69 73 74 5b 30 5d 20 3d 20 43 4b 4d 5f smList[0] = CKM_
244d0 52 53 41 5f 50 4b 43 53 3b 0a 09 2a 70 75 6c 43 RSA_PKCS;..*pulC
244e0 6f 75 6e 74 20 3d 20 31 3b 0a 0a 09 43 41 43 4b ount = 1;...CACK
244f0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
24500 22 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 4f "Returning CKR_O
24510 4b 20 28 25 69 29 22 2c 20 43 4b 52 5f 4f 4b 29 K (%i)", CKR_OK)
24520 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f ;...return(CKR_O
24530 4b 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 K);.}..CK_DEFINE
24540 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c _FUNCTION(CK_RV,
24550 20 43 5f 47 65 74 4d 65 63 68 61 6e 69 73 6d 49 C_GetMechanismI
24560 6e 66 6f 29 28 43 4b 5f 53 4c 4f 54 5f 49 44 20 nfo)(CK_SLOT_ID
24570 73 6c 6f 74 49 44 2c 20 43 4b 5f 4d 45 43 48 41 slotID, CK_MECHA
24580 4e 49 53 4d 5f 54 59 50 45 20 74 79 70 65 2c 20 NISM_TYPE type,
24590 43 4b 5f 4d 45 43 48 41 4e 49 53 4d 5f 49 4e 46 CK_MECHANISM_INF
245a0 4f 5f 50 54 52 20 70 49 6e 66 6f 29 20 7b 0a 09 O_PTR pInfo) {..
245b0 69 6e 74 20 6d 75 74 65 78 5f 72 65 74 76 61 6c int mutex_retval
245c0 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ;...CACKEY_DEBUG
245d0 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e _PRINTF("Called.
245e0 22 29 3b 0a 0a 09 69 66 20 28 70 49 6e 66 6f 20 ");...if (pInfo
245f0 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 == NULL) {...CAC
24600 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
24610 28 22 45 72 72 6f 72 2e 20 70 49 6e 66 6f 20 69 ("Error. pInfo i
24620 73 20 4e 55 4c 4c 2e 22 29 3b 0a 0a 09 09 72 65 s NULL.");....re
24630 74 75 72 6e 28 43 4b 52 5f 41 52 47 55 4d 45 4e turn(CKR_ARGUMEN
24640 54 53 5f 42 41 44 29 3b 0a 09 7d 0a 0a 09 69 66 TS_BAD);..}...if
24650 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 (!cackey_initia
24660 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 lized) {...CACKE
24670 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
24680 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 Error. Not init
24690 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 ialized.");....r
246a0 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f eturn(CKR_CRYPTO
246b0 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a KI_NOT_INITIALIZ
246c0 45 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 73 6c ED);..}...if (sl
246d0 6f 74 49 44 20 3c 20 30 20 7c 7c 20 73 6c 6f 74 otID < 0 || slot
246e0 49 44 20 3e 3d 20 28 73 69 7a 65 6f 66 28 63 61 ID >= (sizeof(ca
246f0 63 6b 65 79 5f 73 6c 6f 74 73 29 20 2f 20 73 69 ckey_slots) / si
24700 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 6c 6f 74 zeof(cackey_slot
24710 73 5b 30 5d 29 29 29 20 7b 0a 09 09 43 41 43 4b s[0]))) {...CACK
24720 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
24730 22 45 72 72 6f 72 2e 20 49 6e 76 61 6c 69 64 20 "Error. Invalid
24740 73 6c 6f 74 20 72 65 71 75 65 73 74 65 64 20 28 slot requested (
24750 25 6c 75 29 2c 20 6f 75 74 73 69 64 65 20 6f 66 %lu), outside of
24760 20 76 61 6c 69 64 20 72 61 6e 67 65 22 2c 20 73 valid range", s
24770 6c 6f 74 49 44 29 3b 0a 0a 09 09 72 65 74 75 72 lotID);....retur
24780 6e 28 43 4b 52 5f 53 4c 4f 54 5f 49 44 5f 49 4e n(CKR_SLOT_ID_IN
24790 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 6d 75 74 VALID);..}...mut
247a0 65 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 6b ex_retval = cack
247b0 65 79 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 63 61 ey_mutex_lock(ca
247c0 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 ckey_biglock);..
247d0 69 66 20 28 6d 75 74 65 78 5f 72 65 74 76 61 6c if (mutex_retval
247e0 20 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 != 0) {...CACKE
247f0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
24800 45 72 72 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 20 Error. Locking
24810 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 65 failed.");....re
24820 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c turn(CKR_GENERAL
24830 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 _ERROR);..}...if
24840 20 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 73 (cackey_slots[s
24850 6c 6f 74 49 44 5d 2e 61 63 74 69 76 65 20 3d 3d lotID].active ==
24860 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 0) {...CACKEY_D
24870 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
24880 6f 72 2e 20 49 6e 76 61 6c 69 64 20 73 6c 6f 74 or. Invalid slot
24890 20 72 65 71 75 65 73 74 65 64 20 28 25 6c 75 29 requested (%lu)
248a0 2c 20 73 6c 6f 74 20 6e 6f 74 20 63 75 72 72 65 , slot not curre
248b0 6e 74 6c 79 20 61 63 74 69 76 65 22 2c 20 73 6c ntly active", sl
248c0 6f 74 49 44 29 3b 0a 0a 09 09 63 61 63 6b 65 79 otID);....cackey
248d0 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 _mutex_unlock(ca
248e0 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a ckey_biglock);..
248f0 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 53 4c 4f ..return(CKR_SLO
24900 54 5f 49 44 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 T_ID_INVALID);..
24910 7d 0a 0a 09 6d 75 74 65 78 5f 72 65 74 76 61 6c }...mutex_retval
24920 20 3d 20 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f = cackey_mutex_
24930 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 unlock(cackey_bi
24940 67 6c 6f 63 6b 29 3b 0a 09 69 66 20 28 6d 75 74 glock);..if (mut
24950 65 78 5f 72 65 74 76 61 6c 20 21 3d 20 30 29 20 ex_retval != 0)
24960 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
24970 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
24980 20 55 6e 6c 6f 63 6b 69 6e 67 20 66 61 69 6c 65 Unlocking faile
24990 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 d.");....return(
249a0 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f CKR_GENERAL_ERRO
249b0 52 29 3b 0a 09 7d 0a 0a 09 73 77 69 74 63 68 20 R);..}...switch
249c0 28 74 79 70 65 29 20 7b 0a 09 09 63 61 73 65 20 (type) {...case
249d0 43 4b 4d 5f 52 53 41 5f 50 4b 43 53 3a 0a 09 09 CKM_RSA_PKCS:...
249e0 09 70 49 6e 66 6f 2d 3e 75 6c 4d 69 6e 4b 65 79 .pInfo->ulMinKey
249f0 53 69 7a 65 20 3d 20 35 31 32 3b 0a 09 09 09 70 Size = 512;....p
24a00 49 6e 66 6f 2d 3e 75 6c 4d 61 78 4b 65 79 53 69 Info->ulMaxKeySi
24a10 7a 65 20 3d 20 38 31 39 32 3b 0a 09 09 09 70 49 ze = 8192;....pI
24a20 6e 66 6f 2d 3e 66 6c 61 67 73 20 3d 20 43 4b 46 nfo->flags = CKF
24a30 5f 48 57 20 7c 20 43 4b 46 5f 45 4e 43 52 59 50 _HW | CKF_ENCRYP
24a40 54 20 7c 20 43 4b 46 5f 44 45 43 52 59 50 54 20 T | CKF_DECRYPT
24a50 7c 20 43 4b 46 5f 53 49 47 4e 20 7c 20 43 4b 46 | CKF_SIGN | CKF
24a60 5f 56 45 52 49 46 59 3b 0a 09 09 09 62 72 65 61 _VERIFY;....brea
24a70 6b 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 k;..}...CACKEY_D
24a80 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 EBUG_PRINTF("Ret
24a90 75 72 6e 69 6e 67 20 43 4b 52 5f 4f 4b 20 28 25 urning CKR_OK (%
24aa0 69 29 22 2c 20 43 4b 52 5f 4f 4b 29 3b 0a 0a 09 i)", CKR_OK);...
24ab0 72 65 74 75 72 6e 28 43 4b 52 5f 4f 4b 29 3b 0a return(CKR_OK);.
24ac0 7d 0a 0a 2f 2a 20 57 65 20 64 6f 6e 27 74 20 73 }../* We don't s
24ad0 75 70 70 6f 72 74 20 74 68 69 73 20 6d 65 74 68 upport this meth
24ae0 6f 64 2e 20 2a 2f 0a 43 4b 5f 44 45 46 49 4e 45 od. */.CK_DEFINE
24af0 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c _FUNCTION(CK_RV,
24b00 20 43 5f 49 6e 69 74 54 6f 6b 65 6e 29 28 43 4b C_InitToken)(CK
24b10 5f 53 4c 4f 54 5f 49 44 20 73 6c 6f 74 49 44 2c _SLOT_ID slotID,
24b20 20 43 4b 5f 55 54 46 38 43 48 41 52 5f 50 54 52 CK_UTF8CHAR_PTR
24b30 20 70 50 69 6e 2c 20 43 4b 5f 55 4c 4f 4e 47 20 pPin, CK_ULONG
24b40 75 6c 50 69 6e 4c 65 6e 2c 20 43 4b 5f 55 54 46 ulPinLen, CK_UTF
24b50 38 43 48 41 52 5f 50 54 52 20 70 4c 61 62 65 6c 8CHAR_PTR pLabel
24b60 29 20 7b 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 ) {..CACKEY_DEBU
24b70 47 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 G_PRINTF("Called
24b80 2e 22 29 3b 0a 0a 09 69 66 20 28 21 63 61 63 6b .");...if (!cack
24b90 65 79 5f 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 ey_initialized)
24ba0 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
24bb0 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
24bc0 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 Not initialized
24bd0 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 .");....return(C
24be0 4b 52 5f 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f KR_CRYPTOKI_NOT_
24bf0 49 4e 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d INITIALIZED);..}
24c00 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
24c10 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e PRINTF("Returnin
24c20 67 20 43 4b 52 5f 54 4f 4b 45 4e 5f 57 52 49 54 g CKR_TOKEN_WRIT
24c30 45 5f 50 52 4f 54 45 43 54 45 44 20 28 25 69 29 E_PROTECTED (%i)
24c40 22 2c 20 43 4b 52 5f 54 4f 4b 45 4e 5f 57 52 49 ", CKR_TOKEN_WRI
24c50 54 45 5f 50 52 4f 54 45 43 54 45 44 29 3b 0a 0a TE_PROTECTED);..
24c60 09 72 65 74 75 72 6e 28 43 4b 52 5f 54 4f 4b 45 .return(CKR_TOKE
24c70 4e 5f 57 52 49 54 45 5f 50 52 4f 54 45 43 54 45 N_WRITE_PROTECTE
24c80 44 29 3b 0a 7d 0a 0a 2f 2a 20 57 65 20 64 6f 6e D);.}../* We don
24c90 27 74 20 73 75 70 70 6f 72 74 20 74 68 69 73 20 't support this
24ca0 6d 65 74 68 6f 64 2e 20 2a 2f 0a 43 4b 5f 44 45 method. */.CK_DE
24cb0 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b FINE_FUNCTION(CK
24cc0 5f 52 56 2c 20 43 5f 49 6e 69 74 50 49 4e 29 28 _RV, C_InitPIN)(
24cd0 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c CK_SESSION_HANDL
24ce0 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 55 E hSession, CK_U
24cf0 54 46 38 43 48 41 52 5f 50 54 52 20 70 50 69 6e TF8CHAR_PTR pPin
24d00 2c 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 50 69 6e , CK_ULONG ulPin
24d10 4c 65 6e 29 20 7b 0a 09 43 41 43 4b 45 59 5f 44 Len) {..CACKEY_D
24d20 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 6c EBUG_PRINTF("Cal
24d30 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 28 21 63 led.");...if (!c
24d40 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a 65 ackey_initialize
24d50 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 d) {...CACKEY_DE
24d60 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f BUG_PRINTF("Erro
24d70 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 r. Not initiali
24d80 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 zed.");....retur
24d90 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f 4e n(CKR_CRYPTOKI_N
24da0 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 3b OT_INITIALIZED);
24db0 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 ..}...CACKEY_DEB
24dc0 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 UG_PRINTF("Retur
24dd0 6e 69 6e 67 20 43 4b 52 5f 54 4f 4b 45 4e 5f 57 ning CKR_TOKEN_W
24de0 52 49 54 45 5f 50 52 4f 54 45 43 54 45 44 20 28 RITE_PROTECTED (
24df0 25 69 29 22 2c 20 43 4b 52 5f 54 4f 4b 45 4e 5f %i)", CKR_TOKEN_
24e00 57 52 49 54 45 5f 50 52 4f 54 45 43 54 45 44 29 WRITE_PROTECTED)
24e10 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f 54 ;...return(CKR_T
24e20 4f 4b 45 4e 5f 57 52 49 54 45 5f 50 52 4f 54 45 OKEN_WRITE_PROTE
24e30 43 54 45 44 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 CTED);.}..CK_DEF
24e40 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f INE_FUNCTION(CK_
24e50 52 56 2c 20 43 5f 53 65 74 50 49 4e 29 28 43 4b RV, C_SetPIN)(CK
24e60 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 _SESSION_HANDLE
24e70 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 55 54 46 hSession, CK_UTF
24e80 38 43 48 41 52 5f 50 54 52 20 70 4f 6c 64 50 69 8CHAR_PTR pOldPi
24e90 6e 2c 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 4f 6c n, CK_ULONG ulOl
24ea0 64 50 69 6e 4c 65 6e 2c 20 43 4b 5f 55 54 46 38 dPinLen, CK_UTF8
24eb0 43 48 41 52 5f 50 54 52 20 70 4e 65 77 50 69 6e CHAR_PTR pNewPin
24ec0 2c 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 4e 65 77 , CK_ULONG ulNew
24ed0 50 69 6e 4c 65 6e 29 20 7b 0a 09 63 68 61 72 20 PinLen) {..char
24ee0 6f 6c 64 70 69 6e 62 75 66 5b 36 34 5d 2c 20 6e oldpinbuf[64], n
24ef0 65 77 70 69 6e 62 75 66 5b 36 34 5d 3b 0a 09 63 ewpinbuf[64];..c
24f00 61 63 6b 65 79 5f 72 65 74 20 73 65 74 5f 70 69 ackey_ret set_pi
24f10 6e 5f 72 65 74 2c 20 67 65 74 5f 70 69 6e 5f 72 n_ret, get_pin_r
24f20 65 74 3b 0a 09 43 4b 5f 53 4c 4f 54 5f 49 44 20 et;..CK_SLOT_ID
24f30 73 6c 6f 74 49 44 3b 0a 09 69 6e 74 20 6d 75 74 slotID;..int mut
24f40 65 78 5f 72 65 74 76 61 6c 3b 0a 0a 09 43 41 43 ex_retval;...CAC
24f50 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
24f60 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 ("Called.");...i
24f70 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 f (!cackey_initi
24f80 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b alized) {...CACK
24f90 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
24fa0 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 "Error. Not ini
24fb0 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 tialized.");....
24fc0 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 return(CKR_CRYPT
24fd0 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 OKI_NOT_INITIALI
24fe0 5a 45 44 29 3b 0a 09 7d 0a 0a 09 6d 75 74 65 78 ZED);..}...mutex
24ff0 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 79 _retval = cackey
25000 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 63 61 63 6b _mutex_lock(cack
25010 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 69 66 ey_biglock);..if
25020 20 28 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 21 (mutex_retval !
25030 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f = 0) {...CACKEY_
25040 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
25050 72 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 20 66 61 ror. Locking fa
25060 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 iled.");....retu
25070 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 rn(CKR_GENERAL_E
25080 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 RROR);..}...if (
25090 21 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 !cackey_sessions
250a0 5b 68 53 65 73 73 69 6f 6e 5d 2e 61 63 74 69 76 [hSession].activ
250b0 65 29 20 7b 0a 09 09 63 61 63 6b 65 79 5f 6d 75 e) {...cackey_mu
250c0 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 tex_unlock(cacke
250d0 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 43 y_biglock);....C
250e0 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
250f0 54 46 28 22 45 72 72 6f 72 2e 20 20 53 65 73 73 TF("Error. Sess
25100 69 6f 6e 20 6e 6f 74 20 61 63 74 69 76 65 2e 22 ion not active."
25110 29 3b 0a 09 09 0a 09 09 72 65 74 75 72 6e 28 43 );......return(C
25120 4b 52 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c KR_SESSION_HANDL
25130 45 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a E_INVALID);..}..
25140 09 73 6c 6f 74 49 44 20 3d 20 63 61 63 6b 65 79 .slotID = cackey
25150 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 _sessions[hSessi
25160 6f 6e 5d 2e 73 6c 6f 74 49 44 3b 0a 0a 09 69 66 on].slotID;...if
25170 20 28 73 6c 6f 74 49 44 20 3c 20 30 20 7c 7c 20 (slotID < 0 ||
25180 73 6c 6f 74 49 44 20 3e 3d 20 28 73 69 7a 65 6f slotID >= (sizeo
25190 66 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 29 20 f(cackey_slots)
251a0 2f 20 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f / sizeof(cackey_
251b0 73 6c 6f 74 73 5b 30 5d 29 29 29 20 7b 0a 09 09 slots[0]))) {...
251c0 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
251d0 4e 54 46 28 22 45 72 72 6f 72 2e 20 49 6e 76 61 NTF("Error. Inva
251e0 6c 69 64 20 73 6c 6f 74 20 72 65 71 75 65 73 74 lid slot request
251f0 65 64 20 28 25 6c 75 29 2c 20 6f 75 74 73 69 64 ed (%lu), outsid
25200 65 20 6f 66 20 76 61 6c 69 64 20 72 61 6e 67 65 e of valid range
25210 22 2c 20 73 6c 6f 74 49 44 29 3b 0a 0a 09 09 63 ", slotID);....c
25220 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f ackey_mutex_unlo
25230 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 ck(cackey_bigloc
25240 6b 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b k);....return(CK
25250 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 29 R_GENERAL_ERROR)
25260 3b 0a 09 7d 0a 0a 09 69 66 20 28 63 61 63 6b 65 ;..}...if (cacke
25270 79 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 2e y_slots[slotID].
25280 61 63 74 69 76 65 20 3d 3d 20 30 29 20 7b 0a 09 active == 0) {..
25290 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
252a0 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 49 6e 76 INTF("Error. Inv
252b0 61 6c 69 64 20 73 6c 6f 74 20 72 65 71 75 65 73 alid slot reques
252c0 74 65 64 20 28 25 6c 75 29 2c 20 73 6c 6f 74 20 ted (%lu), slot
252d0 6e 6f 74 20 63 75 72 72 65 6e 74 6c 79 20 61 63 not currently ac
252e0 74 69 76 65 22 2c 20 73 6c 6f 74 49 44 29 3b 0a tive", slotID);.
252f0 0a 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f ...cackey_mutex_
25300 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 unlock(cackey_bi
25310 67 6c 6f 63 6b 29 3b 0a 0a 09 09 72 65 74 75 72 glock);....retur
25320 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 n(CKR_GENERAL_ER
25330 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 63 ROR);..}...if (c
25340 61 63 6b 65 79 5f 70 69 6e 5f 63 6f 6d 6d 61 6e ackey_pin_comman
25350 64 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 2f d != NULL) {.../
25360 2a 20 47 65 74 20 6f 6c 64 20 50 49 4e 20 2a 2f * Get old PIN */
25370 0a 09 09 67 65 74 5f 70 69 6e 5f 72 65 74 20 3d ...get_pin_ret =
25380 20 63 61 63 6b 65 79 5f 67 65 74 5f 70 69 6e 28 cackey_get_pin(
25390 6f 6c 64 70 69 6e 62 75 66 29 3b 0a 0a 09 09 69 oldpinbuf);....i
253a0 66 20 28 67 65 74 5f 70 69 6e 5f 72 65 74 20 21 f (get_pin_ret !
253b0 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f = CACKEY_PCSC_S_
253c0 4f 4b 29 20 7b 0a 09 09 09 43 41 43 4b 45 59 5f OK) {....CACKEY_
253d0 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
253e0 72 6f 72 20 77 68 69 6c 65 20 67 65 74 74 69 6e ror while gettin
253f0 67 20 4f 6c 64 20 50 49 4e 2c 20 72 65 74 75 72 g Old PIN, retur
25400 6e 69 6e 67 20 43 4b 52 5f 50 49 4e 5f 49 4e 43 ning CKR_PIN_INC
25410 4f 52 52 45 43 54 2e 22 29 3b 0a 0a 09 09 09 63 ORRECT.");.....c
25420 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f ackey_mutex_unlo
25430 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 ck(cackey_bigloc
25440 6b 29 3b 0a 09 09 09 0a 09 09 09 72 65 74 75 72 k);........retur
25450 6e 28 43 4b 52 5f 50 49 4e 5f 49 4e 43 4f 52 52 n(CKR_PIN_INCORR
25460 45 43 54 29 3b 0a 09 09 7d 0a 0a 09 09 70 4f 6c ECT);...}....pOl
25470 64 50 69 6e 20 3d 20 28 43 4b 5f 55 54 46 38 43 dPin = (CK_UTF8C
25480 48 41 52 5f 50 54 52 29 20 6f 6c 64 70 69 6e 62 HAR_PTR) oldpinb
25490 75 66 3b 0a 09 09 75 6c 4f 6c 64 50 69 6e 4c 65 uf;...ulOldPinLe
254a0 6e 20 3d 20 73 74 72 6c 65 6e 28 6f 6c 64 70 69 n = strlen(oldpi
254b0 6e 62 75 66 29 3b 0a 0a 09 09 2f 2a 20 47 65 74 nbuf);..../* Get
254c0 20 6e 65 77 20 50 49 4e 20 2a 2f 0a 09 09 67 65 new PIN */...ge
254d0 74 5f 70 69 6e 5f 72 65 74 20 3d 20 63 61 63 6b t_pin_ret = cack
254e0 65 79 5f 67 65 74 5f 70 69 6e 28 6e 65 77 70 69 ey_get_pin(newpi
254f0 6e 62 75 66 29 3b 0a 0a 09 09 69 66 20 28 67 65 nbuf);....if (ge
25500 74 5f 70 69 6e 5f 72 65 74 20 21 3d 20 43 41 43 t_pin_ret != CAC
25510 4b 45 59 5f 50 43 53 43 5f 53 5f 4f 4b 29 20 7b KEY_PCSC_S_OK) {
25520 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
25530 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 20 77 _PRINTF("Error w
25540 68 69 6c 65 20 67 65 74 74 69 6e 67 20 4e 65 77 hile getting New
25550 20 50 49 4e 2c 20 72 65 74 75 72 6e 69 6e 67 20 PIN, returning
25560 43 4b 52 5f 50 49 4e 5f 49 4e 56 41 4c 49 44 2e CKR_PIN_INVALID.
25570 22 29 3b 0a 0a 09 09 09 63 61 63 6b 65 79 5f 6d ");.....cackey_m
25580 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b utex_unlock(cack
25590 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 09 09 ey_biglock);....
255a0 0a 09 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 50 ....return(CKR_P
255b0 49 4e 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 09 7d IN_INVALID);...}
255c0 0a 0a 09 09 70 4e 65 77 50 69 6e 20 3d 20 28 43 ....pNewPin = (C
255d0 4b 5f 55 54 46 38 43 48 41 52 5f 50 54 52 29 20 K_UTF8CHAR_PTR)
255e0 6e 65 77 70 69 6e 62 75 66 3b 0a 09 09 75 6c 4e newpinbuf;...ulN
255f0 65 77 50 69 6e 4c 65 6e 20 3d 20 73 74 72 6c 65 ewPinLen = strle
25600 6e 28 6e 65 77 70 69 6e 62 75 66 29 3b 0a 09 7d n(newpinbuf);..}
25610 0a 0a 09 69 66 20 28 70 4f 6c 64 50 69 6e 20 3d ...if (pOldPin =
25620 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b = NULL) {...CACK
25630 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
25640 22 4f 6c 64 20 50 49 4e 20 76 61 6c 75 65 20 69 "Old PIN value i
25650 73 20 77 72 6f 6e 67 20 28 6e 75 6c 6c 29 2e 22 s wrong (null)."
25660 29 3b 0a 0a 09 09 63 61 63 6b 65 79 5f 6d 75 74 );....cackey_mut
25670 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 ex_unlock(cackey
25680 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 72 65 _biglock);....re
25690 74 75 72 6e 28 43 4b 52 5f 50 49 4e 5f 49 4e 43 turn(CKR_PIN_INC
256a0 4f 52 52 45 43 54 29 3b 0a 09 7d 0a 0a 09 69 66 ORRECT);..}...if
256b0 20 28 75 6c 4f 6c 64 50 69 6e 4c 65 6e 20 3d 3d (ulOldPinLen ==
256c0 20 30 20 7c 7c 20 75 6c 4f 6c 64 50 69 6e 4c 65 0 || ulOldPinLe
256d0 6e 20 3e 20 38 29 20 7b 0a 09 09 43 41 43 4b 45 n > 8) {...CACKE
256e0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
256f0 4f 6c 64 20 50 49 4e 20 6c 65 6e 67 74 68 20 69 Old PIN length i
25700 73 20 77 72 6f 6e 67 3a 20 25 6c 75 2e 22 2c 20 s wrong: %lu.",
25710 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 (unsigned long)
25720 75 6c 4f 6c 64 50 69 6e 4c 65 6e 29 3b 0a 0a 09 ulOldPinLen);...
25730 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e .cackey_mutex_un
25740 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c lock(cackey_bigl
25750 6f 63 6b 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 ock);....return(
25760 43 4b 52 5f 50 49 4e 5f 49 4e 43 4f 52 52 45 43 CKR_PIN_INCORREC
25770 54 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 70 4e 65 T);..}...if (pNe
25780 77 50 69 6e 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a wPin == NULL) {.
25790 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
257a0 52 49 4e 54 46 28 22 4e 65 77 20 50 49 4e 20 76 RINTF("New PIN v
257b0 61 6c 75 65 20 69 73 20 77 72 6f 6e 67 20 28 65 alue is wrong (e
257c0 69 74 68 65 72 20 4e 55 4c 4c 2c 20 6f 72 20 74 ither NULL, or t
257d0 6f 6f 20 6c 6f 6e 67 2f 73 68 6f 72 74 29 2e 22 oo long/short)."
257e0 29 3b 0a 0a 09 09 63 61 63 6b 65 79 5f 6d 75 74 );....cackey_mut
257f0 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 ex_unlock(cackey
25800 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 72 65 _biglock);....re
25810 74 75 72 6e 28 43 4b 52 5f 50 49 4e 5f 49 4e 56 turn(CKR_PIN_INV
25820 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 ALID);..}...if (
25830 75 6c 4e 65 77 50 69 6e 4c 65 6e 20 3c 20 35 20 ulNewPinLen < 5
25840 7c 7c 20 75 6c 4e 65 77 50 69 6e 4c 65 6e 20 3e || ulNewPinLen >
25850 20 38 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 8) {...CACKEY_D
25860 45 42 55 47 5f 50 52 49 4e 54 46 28 22 4e 65 77 EBUG_PRINTF("New
25870 20 50 49 4e 20 6c 65 6e 67 74 68 20 69 73 20 77 PIN length is w
25880 72 6f 6e 67 3a 20 25 6c 75 2c 20 6d 75 73 74 20 rong: %lu, must
25890 62 65 20 61 74 6c 65 61 73 74 20 35 20 61 6e 64 be atleast 5 and
258a0 20 6e 6f 20 6d 6f 72 65 20 74 68 61 6e 20 38 2e no more than 8.
258b0 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e ", (unsigned lon
258c0 67 29 20 75 6c 4e 65 77 50 69 6e 4c 65 6e 29 3b g) ulNewPinLen);
258d0 0a 0a 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 ....cackey_mutex
258e0 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 _unlock(cackey_b
258f0 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 72 65 74 75 iglock);....retu
25900 72 6e 28 43 4b 52 5f 50 49 4e 5f 4c 45 4e 5f 52 rn(CKR_PIN_LEN_R
25910 41 4e 47 45 29 3b 0a 09 7d 0a 0a 09 73 65 74 5f ANGE);..}...set_
25920 70 69 6e 5f 72 65 74 20 3d 20 63 61 63 6b 65 79 pin_ret = cackey
25930 5f 73 65 74 5f 70 69 6e 28 26 63 61 63 6b 65 79 _set_pin(&cackey
25940 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 2c 20 _slots[slotID],
25950 70 4f 6c 64 50 69 6e 2c 20 75 6c 4f 6c 64 50 69 pOldPin, ulOldPi
25960 6e 4c 65 6e 2c 20 70 4e 65 77 50 69 6e 2c 20 75 nLen, pNewPin, u
25970 6c 4e 65 77 50 69 6e 4c 65 6e 29 3b 0a 0a 09 69 lNewPinLen);...i
25980 66 20 28 73 65 74 5f 70 69 6e 5f 72 65 74 20 21 f (set_pin_ret !
25990 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f = CACKEY_PCSC_S_
259a0 4f 4b 29 20 7b 0a 09 09 69 66 20 28 63 61 63 6b OK) {...if (cack
259b0 65 79 5f 70 69 6e 5f 63 6f 6d 6d 61 6e 64 20 3d ey_pin_command =
259c0 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 63 61 63 = NULL) {....cac
259d0 6b 65 79 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 key_slots[slotID
259e0 5d 2e 74 6f 6b 65 6e 5f 66 6c 61 67 73 20 7c 3d ].token_flags |=
259f0 20 43 4b 46 5f 4c 4f 47 49 4e 5f 52 45 51 55 49 CKF_LOGIN_REQUI
25a00 52 45 44 3b 0a 09 09 7d 0a 0a 09 09 69 66 20 28 RED;...}....if (
25a10 73 65 74 5f 70 69 6e 5f 72 65 74 20 3d 3d 20 43 set_pin_ret == C
25a20 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 4c 4f 43 ACKEY_PCSC_E_LOC
25a30 4b 45 44 29 20 7b 0a 09 09 09 63 61 63 6b 65 79 KED) {....cackey
25a40 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 2e 74 _slots[slotID].t
25a50 6f 6b 65 6e 5f 66 6c 61 67 73 20 7c 3d 20 43 4b oken_flags |= CK
25a60 46 5f 55 53 45 52 5f 50 49 4e 5f 4c 4f 43 4b 45 F_USER_PIN_LOCKE
25a70 44 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 6d 75 74 65 D;...}..}...mute
25a80 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 x_retval = cacke
25a90 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 y_mutex_unlock(c
25aa0 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a ackey_biglock);.
25ab0 09 69 66 20 28 6d 75 74 65 78 5f 72 65 74 76 61 .if (mutex_retva
25ac0 6c 20 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b l != 0) {...CACK
25ad0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
25ae0 22 45 72 72 6f 72 2e 20 20 55 6e 6c 6f 63 6b 69 "Error. Unlocki
25af0 6e 67 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 ng failed.");...
25b00 09 72 65 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 .return(CKR_GENE
25b10 52 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a RAL_ERROR);..}..
25b20 09 73 77 69 74 63 68 20 28 73 65 74 5f 70 69 6e .switch (set_pin
25b30 5f 72 65 74 29 20 7b 0a 09 09 63 61 73 65 20 43 _ret) {...case C
25b40 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f 4f 4b 3a ACKEY_PCSC_S_OK:
25b50 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
25b60 5f 50 52 49 4e 54 46 28 22 53 75 63 63 65 73 73 _PRINTF("Success
25b70 66 75 6c 6c 79 20 73 65 74 20 50 49 4e 2e 22 29 fully set PIN.")
25b80 3b 0a 0a 09 09 09 72 65 74 75 72 6e 28 43 4b 52 ;.....return(CKR
25b90 5f 4f 4b 29 3b 0a 09 09 63 61 73 65 20 43 41 43 _OK);...case CAC
25ba0 4b 45 59 5f 50 43 53 43 5f 45 5f 42 41 44 50 49 KEY_PCSC_E_BADPI
25bb0 4e 3a 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 N:....CACKEY_DEB
25bc0 55 47 5f 50 52 49 4e 54 46 28 22 50 49 4e 20 77 UG_PRINTF("PIN w
25bd0 61 73 20 69 6e 76 61 6c 69 64 2e 22 29 3b 0a 0a as invalid.");..
25be0 09 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 50 49 ...return(CKR_PI
25bf0 4e 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 09 63 61 N_INVALID);...ca
25c00 73 65 20 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 se CACKEY_PCSC_E
25c10 5f 4c 4f 43 4b 45 44 3a 0a 09 09 09 43 41 43 4b _LOCKED:....CACK
25c20 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
25c30 22 54 6f 6b 65 6e 20 69 73 20 6c 6f 63 6b 65 64 "Token is locked
25c40 20 6f 72 20 74 68 69 73 20 63 68 61 6e 67 65 20 or this change
25c50 69 73 20 6e 6f 74 20 70 65 72 6d 69 74 74 65 64 is not permitted
25c60 2e 22 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e 28 .");.....return(
25c70 43 4b 52 5f 50 49 4e 5f 4c 4f 43 4b 45 44 29 3b CKR_PIN_LOCKED);
25c80 0a 09 09 64 65 66 61 75 6c 74 3a 0a 09 09 09 43 ...default:....C
25c90 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
25ca0 54 46 28 22 53 6f 6d 65 74 68 69 6e 67 20 65 6c TF("Something el
25cb0 73 65 20 77 65 6e 74 20 77 72 6f 6e 67 20 63 68 se went wrong ch
25cc0 61 6e 67 69 6e 67 20 74 68 65 20 50 49 4e 3a 20 anging the PIN:
25cd0 25 69 22 2c 20 73 65 74 5f 70 69 6e 5f 72 65 74 %i", set_pin_ret
25ce0 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e 28 43 4b );.....return(CK
25cf0 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 29 R_GENERAL_ERROR)
25d00 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 43 4b ;..}...return(CK
25d10 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 29 R_GENERAL_ERROR)
25d20 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 ;.}..CK_DEFINE_F
25d30 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 UNCTION(CK_RV, C
25d40 5f 4f 70 65 6e 53 65 73 73 69 6f 6e 29 28 43 4b _OpenSession)(CK
25d50 5f 53 4c 4f 54 5f 49 44 20 73 6c 6f 74 49 44 2c _SLOT_ID slotID,
25d60 20 43 4b 5f 46 4c 41 47 53 20 66 6c 61 67 73 2c CK_FLAGS flags,
25d70 20 43 4b 5f 56 4f 49 44 5f 50 54 52 20 70 41 70 CK_VOID_PTR pAp
25d80 70 6c 69 63 61 74 69 6f 6e 2c 20 43 4b 5f 4e 4f plication, CK_NO
25d90 54 49 46 59 20 6e 6f 74 69 66 79 2c 20 43 4b 5f TIFY notify, CK_
25da0 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 5f 50 SESSION_HANDLE_P
25db0 54 52 20 70 68 53 65 73 73 69 6f 6e 29 20 7b 0a TR phSession) {.
25dc0 09 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 69 .unsigned long i
25dd0 64 78 3b 0a 09 69 6e 74 20 6d 75 74 65 78 5f 72 dx;..int mutex_r
25de0 65 74 76 61 6c 3b 0a 09 69 6e 74 20 66 6f 75 6e etval;..int foun
25df0 64 5f 73 65 73 73 69 6f 6e 20 3d 20 30 3b 0a 0a d_session = 0;..
25e00 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
25e10 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b INTF("Called.");
25e20 0a 0a 09 69 66 20 28 28 66 6c 61 67 73 20 26 20 ...if ((flags &
25e30 43 4b 46 5f 53 45 52 49 41 4c 5f 53 45 53 53 49 CKF_SERIAL_SESSI
25e40 4f 4e 29 20 21 3d 20 43 4b 46 5f 53 45 52 49 41 ON) != CKF_SERIA
25e50 4c 5f 53 45 53 53 49 4f 4e 29 20 7b 0a 09 09 72 L_SESSION) {...r
25e60 65 74 75 72 6e 28 43 4b 52 5f 53 45 53 53 49 4f eturn(CKR_SESSIO
25e70 4e 5f 50 41 52 41 4c 4c 45 4c 5f 4e 4f 54 5f 53 N_PARALLEL_NOT_S
25e80 55 50 50 4f 52 54 45 44 29 3b 0a 09 7d 0a 0a 09 UPPORTED);..}...
25e90 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 if (!cackey_init
25ea0 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 ialized) {...CAC
25eb0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
25ec0 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e ("Error. Not in
25ed0 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 itialized.");...
25ee0 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 .return(CKR_CRYP
25ef0 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c TOKI_NOT_INITIAL
25f00 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 IZED);..}...if (
25f10 73 6c 6f 74 49 44 20 3c 20 30 20 7c 7c 20 73 6c slotID < 0 || sl
25f20 6f 74 49 44 20 3e 3d 20 28 73 69 7a 65 6f 66 28 otID >= (sizeof(
25f30 63 61 63 6b 65 79 5f 73 6c 6f 74 73 29 20 2f 20 cackey_slots) /
25f40 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 6c sizeof(cackey_sl
25f50 6f 74 73 5b 30 5d 29 29 29 20 7b 0a 09 09 43 41 ots[0]))) {...CA
25f60 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
25f70 46 28 22 45 72 72 6f 72 2e 20 49 6e 76 61 6c 69 F("Error. Invali
25f80 64 20 73 6c 6f 74 20 72 65 71 75 65 73 74 65 64 d slot requested
25f90 20 28 25 6c 75 29 2c 20 6f 75 74 73 69 64 65 20 (%lu), outside
25fa0 6f 66 20 76 61 6c 69 64 20 72 61 6e 67 65 22 2c of valid range",
25fb0 20 73 6c 6f 74 49 44 29 3b 0a 0a 09 09 72 65 74 slotID);....ret
25fc0 75 72 6e 28 43 4b 52 5f 53 4c 4f 54 5f 49 44 5f urn(CKR_SLOT_ID_
25fd0 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 6d INVALID);..}...m
25fe0 75 74 65 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 utex_retval = ca
25ff0 63 6b 65 79 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 ckey_mutex_lock(
26000 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b cackey_biglock);
26010 0a 09 69 66 20 28 6d 75 74 65 78 5f 72 65 74 76 ..if (mutex_retv
26020 61 6c 20 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 al != 0) {...CAC
26030 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
26040 28 22 45 72 72 6f 72 2e 20 20 4c 6f 63 6b 69 6e ("Error. Lockin
26050 67 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 g failed.");....
26060 72 65 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 return(CKR_GENER
26070 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 AL_ERROR);..}...
26080 69 66 20 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 if (cackey_slots
26090 5b 73 6c 6f 74 49 44 5d 2e 61 63 74 69 76 65 20 [slotID].active
260a0 3d 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 == 0) {...CACKEY
260b0 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
260c0 72 72 6f 72 2e 20 49 6e 76 61 6c 69 64 20 73 6c rror. Invalid sl
260d0 6f 74 20 72 65 71 75 65 73 74 65 64 20 28 25 6c ot requested (%l
260e0 75 29 2c 20 73 6c 6f 74 20 6e 6f 74 20 63 75 72 u), slot not cur
260f0 72 65 6e 74 6c 79 20 61 63 74 69 76 65 22 2c 20 rently active",
26100 73 6c 6f 74 49 44 29 3b 0a 0a 09 09 63 61 63 6b slotID);....cack
26110 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 ey_mutex_unlock(
26120 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b cackey_biglock);
26130 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 53 ....return(CKR_S
26140 4c 4f 54 5f 49 44 5f 49 4e 56 41 4c 49 44 29 3b LOT_ID_INVALID);
26150 0a 09 7d 0a 0a 09 2f 2a 20 56 65 72 69 66 79 20 ..}.../* Verify
26160 74 68 61 74 20 74 68 65 20 63 61 72 64 20 69 73 that the card is
26170 20 61 63 74 75 61 6c 6c 79 20 69 6e 20 74 68 65 actually in the
26180 20 73 6c 6f 74 2e 20 2a 2f 0a 09 2f 2a 20 58 58 slot. */../* XX
26190 58 3a 20 43 68 65 63 6b 20 74 6f 20 6d 61 6b 65 X: Check to make
261a0 20 73 75 72 65 20 74 68 69 73 20 69 73 20 69 6e sure this is in
261b0 20 74 68 65 20 50 4b 43 53 23 31 31 20 73 70 65 the PKCS#11 spe
261c0 63 69 66 69 63 61 74 69 6f 6e 20 2a 2f 0a 09 69 cification */..i
261d0 66 20 28 63 61 63 6b 65 79 5f 74 6f 6b 65 6e 5f f (cackey_token_
261e0 70 72 65 73 65 6e 74 28 26 63 61 63 6b 65 79 5f present(&cackey_
261f0 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 29 20 21 slots[slotID]) !
26200 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 5f 53 5f = CACKEY_PCSC_S_
26210 54 4f 4b 45 4e 50 52 45 53 45 4e 54 29 20 7b 0a TOKENPRESENT) {.
26220 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
26230 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 43 RINTF("Error. C
26240 61 72 64 20 6e 6f 74 20 70 72 65 73 65 6e 74 2e ard not present.
26250 20 20 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f Returning CKR_
26260 44 45 56 49 43 45 5f 52 45 4d 4f 56 45 44 22 29 DEVICE_REMOVED")
26270 3b 0a 0a 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 ;....cackey_mute
26280 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f x_unlock(cackey_
26290 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 72 65 74 biglock);....ret
262a0 75 72 6e 28 43 4b 52 5f 44 45 56 49 43 45 5f 52 urn(CKR_DEVICE_R
262b0 45 4d 4f 56 45 44 29 3b 0a 09 7d 0a 0a 09 66 6f EMOVED);..}...fo
262c0 72 20 28 69 64 78 20 3d 20 31 3b 20 69 64 78 20 r (idx = 1; idx
262d0 3c 20 28 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 < (sizeof(cackey
262e0 5f 73 65 73 73 69 6f 6e 73 29 20 2f 20 73 69 7a _sessions) / siz
262f0 65 6f 66 28 63 61 63 6b 65 79 5f 73 65 73 73 69 eof(cackey_sessi
26300 6f 6e 73 5b 30 5d 29 29 3b 20 69 64 78 2b 2b 29 ons[0])); idx++)
26310 20 7b 0a 09 09 69 66 20 28 21 63 61 63 6b 65 79 {...if (!cackey
26320 5f 73 65 73 73 69 6f 6e 73 5b 69 64 78 5d 2e 61 _sessions[idx].a
26330 63 74 69 76 65 29 20 7b 0a 09 09 09 66 6f 75 6e ctive) {....foun
26340 64 5f 73 65 73 73 69 6f 6e 20 3d 20 31 3b 0a 0a d_session = 1;..
26350 09 09 09 2a 70 68 53 65 73 73 69 6f 6e 20 3d 20 ...*phSession =
26360 69 64 78 3b 0a 0a 09 09 09 63 61 63 6b 65 79 5f idx;.....cackey_
26370 73 65 73 73 69 6f 6e 73 5b 69 64 78 5d 2e 61 63 sessions[idx].ac
26380 74 69 76 65 20 3d 20 31 3b 0a 09 09 09 63 61 63 tive = 1;....cac
26390 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 69 64 78 key_sessions[idx
263a0 5d 2e 73 6c 6f 74 49 44 20 3d 20 73 6c 6f 74 49 ].slotID = slotI
263b0 44 3b 0a 09 09 09 63 61 63 6b 65 79 5f 73 65 73 D;....cackey_ses
263c0 73 69 6f 6e 73 5b 69 64 78 5d 2e 73 74 61 74 65 sions[idx].state
263d0 20 3d 20 43 4b 53 5f 52 4f 5f 50 55 42 4c 49 43 = CKS_RO_PUBLIC
263e0 5f 53 45 53 53 49 4f 4e 3b 0a 09 09 09 63 61 63 _SESSION;....cac
263f0 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 69 64 78 key_sessions[idx
26400 5d 2e 66 6c 61 67 73 20 3d 20 66 6c 61 67 73 3b ].flags = flags;
26410 0a 09 09 09 63 61 63 6b 65 79 5f 73 65 73 73 69 ....cackey_sessi
26420 6f 6e 73 5b 69 64 78 5d 2e 75 6c 44 65 76 69 63 ons[idx].ulDevic
26430 65 45 72 72 6f 72 20 3d 20 30 3b 0a 09 09 09 63 eError = 0;....c
26440 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 69 ackey_sessions[i
26450 64 78 5d 2e 70 41 70 70 6c 69 63 61 74 69 6f 6e dx].pApplication
26460 20 3d 20 70 41 70 70 6c 69 63 61 74 69 6f 6e 3b = pApplication;
26470 0a 09 09 09 63 61 63 6b 65 79 5f 73 65 73 73 69 ....cackey_sessi
26480 6f 6e 73 5b 69 64 78 5d 2e 4e 6f 74 69 66 79 20 ons[idx].Notify
26490 3d 20 6e 6f 74 69 66 79 3b 0a 0a 09 09 09 63 61 = notify;.....ca
264a0 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 69 64 ckey_sessions[id
264b0 78 5d 2e 69 64 65 6e 74 69 74 69 65 73 20 3d 20 x].identities =
264c0 4e 55 4c 4c 3b 0a 09 09 09 63 61 63 6b 65 79 5f NULL;....cackey_
264d0 73 65 73 73 69 6f 6e 73 5b 69 64 78 5d 2e 69 64 sessions[idx].id
264e0 65 6e 74 69 74 69 65 73 5f 63 6f 75 6e 74 20 3d entities_count =
264f0 20 30 3b 0a 0a 09 09 09 63 61 63 6b 65 79 5f 73 0;.....cackey_s
26500 65 73 73 69 6f 6e 73 5b 69 64 78 5d 2e 73 65 61 essions[idx].sea
26510 72 63 68 5f 61 63 74 69 76 65 20 3d 20 30 3b 0a rch_active = 0;.
26520 0a 09 09 09 63 61 63 6b 65 79 5f 73 65 73 73 69 ....cackey_sessi
26530 6f 6e 73 5b 69 64 78 5d 2e 73 69 67 6e 5f 61 63 ons[idx].sign_ac
26540 74 69 76 65 20 3d 20 30 3b 0a 0a 09 09 09 63 61 tive = 0;.....ca
26550 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 69 64 ckey_sessions[id
26560 78 5d 2e 64 65 63 72 79 70 74 5f 61 63 74 69 76 x].decrypt_activ
26570 65 20 3d 20 30 3b 0a 0a 09 09 09 63 61 63 6b 65 e = 0;.....cacke
26580 79 5f 73 65 73 73 69 6f 6e 73 5b 69 64 78 5d 2e y_sessions[idx].
26590 69 64 65 6e 74 69 74 69 65 73 20 3d 20 63 61 63 identities = cac
265a0 6b 65 79 5f 72 65 61 64 5f 69 64 65 6e 74 69 74 key_read_identit
265b0 69 65 73 28 26 63 61 63 6b 65 79 5f 73 6c 6f 74 ies(&cackey_slot
265c0 73 5b 73 6c 6f 74 49 44 5d 2c 20 26 63 61 63 6b s[slotID], &cack
265d0 65 79 5f 73 65 73 73 69 6f 6e 73 5b 69 64 78 5d ey_sessions[idx]
265e0 2e 69 64 65 6e 74 69 74 69 65 73 5f 63 6f 75 6e .identities_coun
265f0 74 29 3b 0a 0a 0a 09 09 09 62 72 65 61 6b 3b 0a t);......break;.
26600 09 09 7d 0a 09 7d 0a 0a 09 6d 75 74 65 78 5f 72 ..}..}...mutex_r
26610 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 79 5f 6d etval = cackey_m
26620 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b utex_unlock(cack
26630 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 69 66 ey_biglock);..if
26640 20 28 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 21 (mutex_retval !
26650 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f = 0) {...CACKEY_
26660 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
26670 72 6f 72 2e 20 20 55 6e 6c 6f 63 6b 69 6e 67 20 ror. Unlocking
26680 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 65 failed.");....re
26690 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c turn(CKR_GENERAL
266a0 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 _ERROR);..}...if
266b0 20 28 21 66 6f 75 6e 64 5f 73 65 73 73 69 6f 6e (!found_session
266c0 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 ) {...CACKEY_DEB
266d0 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 UG_PRINTF("Retur
266e0 6e 69 6e 67 20 43 4b 52 5f 53 45 53 53 49 4f 4e ning CKR_SESSION
266f0 5f 43 4f 55 4e 54 20 28 25 69 29 22 2c 20 43 4b _COUNT (%i)", CK
26700 52 5f 53 45 53 53 49 4f 4e 5f 43 4f 55 4e 54 29 R_SESSION_COUNT)
26710 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f ;....return(CKR_
26720 53 45 53 53 49 4f 4e 5f 43 4f 55 4e 54 29 3b 0a SESSION_COUNT);.
26730 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 .}...CACKEY_DEBU
26740 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e G_PRINTF("Return
26750 69 6e 67 20 43 4b 52 5f 4f 4b 20 28 25 69 29 22 ing CKR_OK (%i)"
26760 2c 20 43 4b 52 5f 4f 4b 29 3b 0a 0a 09 72 65 74 , CKR_OK);...ret
26770 75 72 6e 28 43 4b 52 5f 4f 4b 29 3b 0a 7d 0a 0a urn(CKR_OK);.}..
26780 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 CK_DEFINE_FUNCTI
26790 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f 43 6c 6f 73 ON(CK_RV, C_Clos
267a0 65 53 65 73 73 69 6f 6e 29 28 43 4b 5f 53 45 53 eSession)(CK_SES
267b0 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 SION_HANDLE hSes
267c0 73 69 6f 6e 29 20 7b 0a 09 69 6e 74 20 6d 75 74 sion) {..int mut
267d0 65 78 5f 72 65 74 76 61 6c 3b 0a 0a 09 43 41 43 ex_retval;...CAC
267e0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
267f0 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 ("Called.");...i
26800 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 f (!cackey_initi
26810 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b alized) {...CACK
26820 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
26830 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 "Error. Not ini
26840 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 tialized.");....
26850 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 return(CKR_CRYPT
26860 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 OKI_NOT_INITIALI
26870 5a 45 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 68 ZED);..}...if (h
26880 53 65 73 73 69 6f 6e 20 3d 3d 20 30 20 7c 7c 20 Session == 0 ||
26890 68 53 65 73 73 69 6f 6e 20 3e 3d 20 28 73 69 7a hSession >= (siz
268a0 65 6f 66 28 63 61 63 6b 65 79 5f 73 65 73 73 69 eof(cackey_sessi
268b0 6f 6e 73 29 20 2f 20 73 69 7a 65 6f 66 28 63 61 ons) / sizeof(ca
268c0 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 30 5d ckey_sessions[0]
268d0 29 29 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ))) {...CACKEY_D
268e0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
268f0 6f 72 2e 20 20 53 65 73 73 69 6f 6e 20 6f 75 74 or. Session out
26900 20 6f 66 20 72 61 6e 67 65 2e 22 29 3b 0a 09 09 of range.");...
26910 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 53 45 ...return(CKR_SE
26920 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 5f 49 4e 56 SSION_HANDLE_INV
26930 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 6d 75 74 65 ALID);..}...mute
26940 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 x_retval = cacke
26950 79 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 63 61 63 y_mutex_lock(cac
26960 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 69 key_biglock);..i
26970 66 20 28 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 f (mutex_retval
26980 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 != 0) {...CACKEY
26990 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
269a0 72 72 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 20 66 rror. Locking f
269b0 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 ailed.");....ret
269c0 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f urn(CKR_GENERAL_
269d0 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 20 ERROR);..}...if
269e0 28 21 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e (!cackey_session
269f0 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 61 63 74 69 s[hSession].acti
26a00 76 65 29 20 7b 0a 09 09 63 61 63 6b 65 79 5f 6d ve) {...cackey_m
26a10 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b utex_unlock(cack
26a20 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 ey_biglock);....
26a30 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
26a40 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 53 65 73 NTF("Error. Ses
26a50 73 69 6f 6e 20 6e 6f 74 20 61 63 74 69 76 65 2e sion not active.
26a60 22 29 3b 0a 09 09 0a 09 09 72 65 74 75 72 6e 28 ");......return(
26a70 43 4b 52 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 CKR_SESSION_HAND
26a80 4c 45 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a LE_INVALID);..}.
26a90 0a 09 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e ..cackey_session
26aa0 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 61 63 74 69 s[hSession].acti
26ab0 76 65 20 3d 20 30 3b 0a 09 63 61 63 6b 65 79 5f ve = 0;..cackey_
26ac0 66 72 65 65 5f 69 64 65 6e 74 69 74 69 65 73 28 free_identities(
26ad0 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b cackey_sessions[
26ae0 68 53 65 73 73 69 6f 6e 5d 2e 69 64 65 6e 74 69 hSession].identi
26af0 74 69 65 73 2c 20 63 61 63 6b 65 79 5f 73 65 73 ties, cackey_ses
26b00 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e sions[hSession].
26b10 69 64 65 6e 74 69 74 69 65 73 5f 63 6f 75 6e 74 identities_count
26b20 29 3b 0a 0a 09 6d 75 74 65 78 5f 72 65 74 76 61 );...mutex_retva
26b30 6c 20 3d 20 63 61 63 6b 65 79 5f 6d 75 74 65 78 l = cackey_mutex
26b40 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 _unlock(cackey_b
26b50 69 67 6c 6f 63 6b 29 3b 0a 09 69 66 20 28 6d 75 iglock);..if (mu
26b60 74 65 78 5f 72 65 74 76 61 6c 20 21 3d 20 30 29 tex_retval != 0)
26b70 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
26b80 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
26b90 20 20 55 6e 6c 6f 63 6b 69 6e 67 20 66 61 69 6c Unlocking fail
26ba0 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e ed.");....return
26bb0 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 (CKR_GENERAL_ERR
26bc0 4f 52 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 OR);..}...CACKEY
26bd0 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 _DEBUG_PRINTF("R
26be0 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 4f 4b 20 eturning CKR_OK
26bf0 28 25 69 29 22 2c 20 43 4b 52 5f 4f 4b 29 3b 0a (%i)", CKR_OK);.
26c00 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f 4b 29 ..return(CKR_OK)
26c10 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 ;.}..CK_DEFINE_F
26c20 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 UNCTION(CK_RV, C
26c30 5f 43 6c 6f 73 65 41 6c 6c 53 65 73 73 69 6f 6e _CloseAllSession
26c40 73 29 28 43 4b 5f 53 4c 4f 54 5f 49 44 20 73 6c s)(CK_SLOT_ID sl
26c50 6f 74 49 44 29 20 7b 0a 09 75 69 6e 74 33 32 5f otID) {..uint32_
26c60 74 20 69 64 78 3b 0a 09 69 6e 74 20 6d 75 74 65 t idx;..int mute
26c70 78 5f 72 65 74 76 61 6c 3b 0a 0a 09 43 41 43 4b x_retval;...CACK
26c80 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
26c90 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 "Called.");...if
26ca0 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 (!cackey_initia
26cb0 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 lized) {...CACKE
26cc0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
26cd0 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 Error. Not init
26ce0 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 ialized.");....r
26cf0 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f eturn(CKR_CRYPTO
26d00 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a KI_NOT_INITIALIZ
26d10 45 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 73 6c ED);..}...if (sl
26d20 6f 74 49 44 20 3c 20 30 20 7c 7c 20 73 6c 6f 74 otID < 0 || slot
26d30 49 44 20 3e 3d 20 28 73 69 7a 65 6f 66 28 63 61 ID >= (sizeof(ca
26d40 63 6b 65 79 5f 73 6c 6f 74 73 29 20 2f 20 73 69 ckey_slots) / si
26d50 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 6c 6f 74 zeof(cackey_slot
26d60 73 5b 30 5d 29 29 29 20 7b 0a 09 09 43 41 43 4b s[0]))) {...CACK
26d70 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
26d80 22 45 72 72 6f 72 2e 20 49 6e 76 61 6c 69 64 20 "Error. Invalid
26d90 73 6c 6f 74 20 72 65 71 75 65 73 74 65 64 20 28 slot requested (
26da0 25 6c 75 29 2c 20 6f 75 74 73 69 64 65 20 6f 66 %lu), outside of
26db0 20 76 61 6c 69 64 20 72 61 6e 67 65 22 2c 20 73 valid range", s
26dc0 6c 6f 74 49 44 29 3b 0a 0a 09 09 72 65 74 75 72 lotID);....retur
26dd0 6e 28 43 4b 52 5f 53 4c 4f 54 5f 49 44 5f 49 4e n(CKR_SLOT_ID_IN
26de0 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 6d 75 74 VALID);..}...mut
26df0 65 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 6b ex_retval = cack
26e00 65 79 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 63 61 ey_mutex_lock(ca
26e10 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 ckey_biglock);..
26e20 69 66 20 28 6d 75 74 65 78 5f 72 65 74 76 61 6c if (mutex_retval
26e30 20 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 != 0) {...CACKE
26e40 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
26e50 45 72 72 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 20 Error. Locking
26e60 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 65 failed.");....re
26e70 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c turn(CKR_GENERAL
26e80 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 _ERROR);..}...if
26e90 20 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 73 (cackey_slots[s
26ea0 6c 6f 74 49 44 5d 2e 61 63 74 69 76 65 20 3d 3d lotID].active ==
26eb0 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 0) {...CACKEY_D
26ec0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
26ed0 6f 72 2e 20 49 6e 76 61 6c 69 64 20 73 6c 6f 74 or. Invalid slot
26ee0 20 72 65 71 75 65 73 74 65 64 20 28 25 6c 75 29 requested (%lu)
26ef0 2c 20 73 6c 6f 74 20 6e 6f 74 20 63 75 72 72 65 , slot not curre
26f00 6e 74 6c 79 20 61 63 74 69 76 65 22 2c 20 73 6c ntly active", sl
26f10 6f 74 49 44 29 3b 0a 0a 09 09 63 61 63 6b 65 79 otID);....cackey
26f20 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 _mutex_unlock(ca
26f30 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a ckey_biglock);..
26f40 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 53 4c 4f ..return(CKR_SLO
26f50 54 5f 49 44 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 T_ID_INVALID);..
26f60 7d 0a 0a 09 66 6f 72 20 28 69 64 78 20 3d 20 30 }...for (idx = 0
26f70 3b 20 69 64 78 20 3c 20 28 73 69 7a 65 6f 66 28 ; idx < (sizeof(
26f80 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 29 cackey_sessions)
26f90 20 2f 20 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 / sizeof(cackey
26fa0 5f 73 65 73 73 69 6f 6e 73 5b 30 5d 29 29 3b 20 _sessions[0]));
26fb0 69 64 78 2b 2b 29 20 7b 0a 09 09 69 66 20 28 63 idx++) {...if (c
26fc0 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 69 ackey_sessions[i
26fd0 64 78 5d 2e 61 63 74 69 76 65 29 20 7b 0a 09 09 dx].active) {...
26fe0 09 69 66 20 28 63 61 63 6b 65 79 5f 73 65 73 73 .if (cackey_sess
26ff0 69 6f 6e 73 5b 69 64 78 5d 2e 73 6c 6f 74 49 44 ions[idx].slotID
27000 20 21 3d 20 73 6c 6f 74 49 44 29 20 7b 0a 09 09 != slotID) {...
27010 09 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 09 7d ..continue;....}
27020 0a 0a 09 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 .....cackey_mute
27030 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f x_unlock(cackey_
27040 62 69 67 6c 6f 63 6b 29 3b 0a 09 09 09 43 5f 43 biglock);....C_C
27050 6c 6f 73 65 53 65 73 73 69 6f 6e 28 69 64 78 29 loseSession(idx)
27060 3b 0a 09 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 ;....cackey_mute
27070 78 5f 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 x_lock(cackey_bi
27080 67 6c 6f 63 6b 29 3b 0a 09 09 7d 0a 09 7d 0a 0a glock);...}..}..
27090 09 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 3d 20 .mutex_retval =
270a0 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c cackey_mutex_unl
270b0 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f ock(cackey_biglo
270c0 63 6b 29 3b 0a 09 69 66 20 28 6d 75 74 65 78 5f ck);..if (mutex_
270d0 72 65 74 76 61 6c 20 21 3d 20 30 29 20 7b 0a 09 retval != 0) {..
270e0 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
270f0 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 55 6e INTF("Error. Un
27100 6c 6f 63 6b 69 6e 67 20 66 61 69 6c 65 64 2e 22 locking failed."
27110 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 );....return(CKR
27120 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 29 3b _GENERAL_ERROR);
27130 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 ..}...CACKEY_DEB
27140 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 UG_PRINTF("Retur
27150 6e 69 6e 67 20 43 4b 52 5f 4f 4b 20 28 25 69 29 ning CKR_OK (%i)
27160 22 2c 20 43 4b 52 5f 4f 4b 29 3b 0a 0a 09 72 65 ", CKR_OK);...re
27170 74 75 72 6e 28 43 4b 52 5f 4f 4b 29 3b 0a 7d 0a turn(CKR_OK);.}.
27180 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 .CK_DEFINE_FUNCT
27190 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f 47 65 74 ION(CK_RV, C_Get
271a0 53 65 73 73 69 6f 6e 49 6e 66 6f 29 28 43 4b 5f SessionInfo)(CK_
271b0 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 SESSION_HANDLE h
271c0 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 53 45 53 53 Session, CK_SESS
271d0 49 4f 4e 5f 49 4e 46 4f 5f 50 54 52 20 70 49 6e ION_INFO_PTR pIn
271e0 66 6f 29 20 7b 0a 09 69 6e 74 20 6d 75 74 65 78 fo) {..int mutex
271f0 5f 72 65 74 76 61 6c 3b 0a 0a 09 43 41 43 4b 45 _retval;...CACKE
27200 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
27210 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 Called.");...if
27220 28 70 49 6e 66 6f 20 3d 3d 20 4e 55 4c 4c 29 20 (pInfo == NULL)
27230 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
27240 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
27250 70 49 6e 66 6f 20 69 73 20 4e 55 4c 4c 2e 22 29 pInfo is NULL.")
27260 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f ;....return(CKR_
27270 41 52 47 55 4d 45 4e 54 53 5f 42 41 44 29 3b 0a ARGUMENTS_BAD);.
27280 09 7d 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 .}...if (!cackey
27290 5f 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a _initialized) {.
272a0 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
272b0 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4e RINTF("Error. N
272c0 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 ot initialized."
272d0 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 );....return(CKR
272e0 5f 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e _CRYPTOKI_NOT_IN
272f0 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a ITIALIZED);..}..
27300 09 69 66 20 28 68 53 65 73 73 69 6f 6e 20 3d 3d .if (hSession ==
27310 20 30 20 7c 7c 20 68 53 65 73 73 69 6f 6e 20 3e 0 || hSession >
27320 3d 20 28 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 = (sizeof(cackey
27330 5f 73 65 73 73 69 6f 6e 73 29 20 2f 20 73 69 7a _sessions) / siz
27340 65 6f 66 28 63 61 63 6b 65 79 5f 73 65 73 73 69 eof(cackey_sessi
27350 6f 6e 73 5b 30 5d 29 29 29 20 7b 0a 09 09 43 41 ons[0]))) {...CA
27360 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
27370 46 28 22 45 72 72 6f 72 2e 20 20 53 65 73 73 69 F("Error. Sessi
27380 6f 6e 20 6f 75 74 20 6f 66 20 72 61 6e 67 65 2e on out of range.
27390 22 29 3b 0a 09 09 0a 09 09 72 65 74 75 72 6e 28 ");......return(
273a0 43 4b 52 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 CKR_SESSION_HAND
273b0 4c 45 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a LE_INVALID);..}.
273c0 0a 09 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 3d ..mutex_retval =
273d0 20 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 6c 6f cackey_mutex_lo
273e0 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 ck(cackey_bigloc
273f0 6b 29 3b 0a 09 69 66 20 28 6d 75 74 65 78 5f 72 k);..if (mutex_r
27400 65 74 76 61 6c 20 21 3d 20 30 29 20 7b 0a 09 09 etval != 0) {...
27410 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
27420 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4c 6f 63 NTF("Error. Loc
27430 6b 69 6e 67 20 66 61 69 6c 65 64 2e 22 29 3b 0a king failed.");.
27440 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 47 45 ...return(CKR_GE
27450 4e 45 52 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d NERAL_ERROR);..}
27460 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f 73 ...if (!cackey_s
27470 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e essions[hSession
27480 5d 2e 61 63 74 69 76 65 29 20 7b 0a 09 09 63 61 ].active) {...ca
27490 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 ckey_mutex_unloc
274a0 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b k(cackey_biglock
274b0 29 3b 0a 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 );....CACKEY_DEB
274c0 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 UG_PRINTF("Error
274d0 2e 20 20 53 65 73 73 69 6f 6e 20 6e 6f 74 20 61 . Session not a
274e0 63 74 69 76 65 2e 22 29 3b 0a 09 09 0a 09 09 72 ctive.");......r
274f0 65 74 75 72 6e 28 43 4b 52 5f 53 45 53 53 49 4f eturn(CKR_SESSIO
27500 4e 5f 48 41 4e 44 4c 45 5f 49 4e 56 41 4c 49 44 N_HANDLE_INVALID
27510 29 3b 0a 09 7d 0a 0a 09 70 49 6e 66 6f 2d 3e 73 );..}...pInfo->s
27520 6c 6f 74 49 44 20 3d 20 63 61 63 6b 65 79 5f 73 lotID = cackey_s
27530 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e essions[hSession
27540 5d 2e 73 6c 6f 74 49 44 3b 0a 09 70 49 6e 66 6f ].slotID;..pInfo
27550 2d 3e 73 74 61 74 65 20 3d 20 63 61 63 6b 65 79 ->state = cackey
27560 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 _sessions[hSessi
27570 6f 6e 5d 2e 73 74 61 74 65 3b 0a 09 70 49 6e 66 on].state;..pInf
27580 6f 2d 3e 66 6c 61 67 73 20 3d 20 63 61 63 6b 65 o->flags = cacke
27590 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 y_sessions[hSess
275a0 69 6f 6e 5d 2e 66 6c 61 67 73 3b 0a 09 70 49 6e ion].flags;..pIn
275b0 66 6f 2d 3e 75 6c 44 65 76 69 63 65 45 72 72 6f fo->ulDeviceErro
275c0 72 20 3d 20 63 61 63 6b 65 79 5f 73 65 73 73 69 r = cackey_sessi
275d0 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 75 6c ons[hSession].ul
275e0 44 65 76 69 63 65 45 72 72 6f 72 3b 0a 0a 09 6d DeviceError;...m
275f0 75 74 65 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 utex_retval = ca
27600 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 ckey_mutex_unloc
27610 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b k(cackey_biglock
27620 29 3b 0a 09 69 66 20 28 6d 75 74 65 78 5f 72 65 );..if (mutex_re
27630 74 76 61 6c 20 21 3d 20 30 29 20 7b 0a 09 09 43 tval != 0) {...C
27640 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
27650 54 46 28 22 45 72 72 6f 72 2e 20 20 55 6e 6c 6f TF("Error. Unlo
27660 63 6b 69 6e 67 20 66 61 69 6c 65 64 2e 22 29 3b cking failed.");
27670 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 47 ....return(CKR_G
27680 45 4e 45 52 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 ENERAL_ERROR);..
27690 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 }...CACKEY_DEBUG
276a0 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 _PRINTF("Returni
276b0 6e 67 20 43 4b 52 5f 4f 4b 20 28 25 69 29 22 2c ng CKR_OK (%i)",
276c0 20 43 4b 52 5f 4f 4b 29 3b 0a 0a 09 72 65 74 75 CKR_OK);...retu
276d0 72 6e 28 43 4b 52 5f 4f 4b 29 3b 0a 7d 0a 0a 43 rn(CKR_OK);.}..C
276e0 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f K_DEFINE_FUNCTIO
276f0 4e 28 43 4b 5f 52 56 2c 20 43 5f 47 65 74 4f 70 N(CK_RV, C_GetOp
27700 65 72 61 74 69 6f 6e 53 74 61 74 65 29 28 43 4b erationState)(CK
27710 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 _SESSION_HANDLE
27720 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 42 59 54 hSession, CK_BYT
27730 45 5f 50 54 52 20 70 4f 70 65 72 61 74 69 6f 6e E_PTR pOperation
27740 53 74 61 74 65 2c 20 43 4b 5f 55 4c 4f 4e 47 5f State, CK_ULONG_
27750 50 54 52 20 70 75 6c 4f 70 65 72 61 74 69 6f 6e PTR pulOperation
27760 53 74 61 74 65 4c 65 6e 29 20 7b 0a 09 43 41 43 StateLen) {..CAC
27770 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
27780 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 ("Called.");...i
27790 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 f (!cackey_initi
277a0 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b alized) {...CACK
277b0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
277c0 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 "Error. Not ini
277d0 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 tialized.");....
277e0 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 return(CKR_CRYPT
277f0 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 OKI_NOT_INITIALI
27800 5a 45 44 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 ZED);..}...CACKE
27810 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
27820 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 46 55 Returning CKR_FU
27830 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f NCTION_NOT_SUPPO
27840 52 54 45 44 20 28 25 69 29 22 2c 20 43 4b 52 5f RTED (%i)", CKR_
27850 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 FUNCTION_NOT_SUP
27860 50 4f 52 54 45 44 29 3b 0a 0a 09 72 65 74 75 72 PORTED);...retur
27870 6e 28 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e n(CKR_FUNCTION_N
27880 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 7d OT_SUPPORTED);.}
27890 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 ..CK_DEFINE_FUNC
278a0 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f 53 65 TION(CK_RV, C_Se
278b0 74 4f 70 65 72 61 74 69 6f 6e 53 74 61 74 65 29 tOperationState)
278c0 28 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 (CK_SESSION_HAND
278d0 4c 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f LE hSession, CK_
278e0 42 59 54 45 5f 50 54 52 20 70 4f 70 65 72 61 74 BYTE_PTR pOperat
278f0 69 6f 6e 53 74 61 74 65 2c 20 43 4b 5f 55 4c 4f ionState, CK_ULO
27900 4e 47 20 75 6c 4f 70 65 72 61 74 69 6f 6e 53 74 NG ulOperationSt
27910 61 74 65 4c 65 6e 2c 20 43 4b 5f 4f 42 4a 45 43 ateLen, CK_OBJEC
27920 54 5f 48 41 4e 44 4c 45 20 68 45 6e 63 72 79 70 T_HANDLE hEncryp
27930 74 69 6f 6e 4b 65 79 2c 20 43 4b 5f 4f 42 4a 45 tionKey, CK_OBJE
27940 43 54 5f 48 41 4e 44 4c 45 20 68 41 75 74 68 65 CT_HANDLE hAuthe
27950 6e 74 69 63 61 74 69 6f 6e 4b 65 79 29 20 7b 0a nticationKey) {.
27960 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
27970 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b INTF("Called.");
27980 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f 69 ...if (!cackey_i
27990 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 nitialized) {...
279a0 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
279b0 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 NTF("Error. Not
279c0 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b initialized.");
279d0 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 ....return(CKR_C
279e0 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 RYPTOKI_NOT_INIT
279f0 49 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 43 IALIZED);..}...C
27a00 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
27a10 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 43 4b TF("Returning CK
27a20 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 R_FUNCTION_NOT_S
27a30 55 50 50 4f 52 54 45 44 20 28 25 69 29 22 2c 20 UPPORTED (%i)",
27a40 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 CKR_FUNCTION_NOT
27a50 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 0a 09 72 _SUPPORTED);...r
27a60 65 74 75 72 6e 28 43 4b 52 5f 46 55 4e 43 54 49 eturn(CKR_FUNCTI
27a70 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 ON_NOT_SUPPORTED
27a80 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f );.}..CK_DEFINE_
27a90 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 FUNCTION(CK_RV,
27aa0 43 5f 4c 6f 67 69 6e 4d 75 74 65 78 41 72 67 29 C_LoginMutexArg)
27ab0 28 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 (CK_SESSION_HAND
27ac0 4c 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f LE hSession, CK_
27ad0 55 53 45 52 5f 54 59 50 45 20 75 73 65 72 54 79 USER_TYPE userTy
27ae0 70 65 2c 20 43 4b 5f 55 54 46 38 43 48 41 52 5f pe, CK_UTF8CHAR_
27af0 50 54 52 20 70 50 69 6e 2c 20 43 4b 5f 55 4c 4f PTR pPin, CK_ULO
27b00 4e 47 20 75 6c 50 69 6e 4c 65 6e 2c 20 69 6e 74 NG ulPinLen, int
27b10 20 6c 6f 63 6b 5f 6d 75 74 65 78 29 20 7b 0a 09 lock_mutex) {..
27b20 43 4b 5f 53 4c 4f 54 5f 49 44 20 73 6c 6f 74 49 CK_SLOT_ID slotI
27b30 44 3b 0a 09 63 61 63 6b 65 79 5f 72 65 74 20 67 D;..cackey_ret g
27b40 65 74 5f 70 69 6e 5f 72 65 74 3b 0a 09 63 68 61 et_pin_ret;..cha
27b50 72 20 70 69 6e 62 75 66 5b 36 34 5d 3b 0a 09 69 r pinbuf[64];..i
27b60 6e 74 20 6d 75 74 65 78 5f 72 65 74 76 61 6c 3b nt mutex_retval;
27b70 0a 09 69 6e 74 20 74 72 69 65 73 5f 72 65 6d 61 ..int tries_rema
27b80 69 6e 69 6e 67 3b 0a 09 69 6e 74 20 6c 6f 67 69 ining;..int logi
27b90 6e 5f 72 65 74 3b 0a 0a 09 43 41 43 4b 45 59 5f n_ret;...CACKEY_
27ba0 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 DEBUG_PRINTF("Ca
27bb0 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 28 21 lled.");...if (!
27bc0 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a cackey_initializ
27bd0 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ed) {...CACKEY_D
27be0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
27bf0 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c or. Not initial
27c00 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 ized.");....retu
27c10 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f rn(CKR_CRYPTOKI_
27c20 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 NOT_INITIALIZED)
27c30 3b 0a 09 7d 0a 0a 09 69 66 20 28 68 53 65 73 73 ;..}...if (hSess
27c40 69 6f 6e 20 3d 3d 20 30 20 7c 7c 20 68 53 65 73 ion == 0 || hSes
27c50 73 69 6f 6e 20 3e 3d 20 28 73 69 7a 65 6f 66 28 sion >= (sizeof(
27c60 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 29 cackey_sessions)
27c70 20 2f 20 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 / sizeof(cackey
27c80 5f 73 65 73 73 69 6f 6e 73 5b 30 5d 29 29 29 20 _sessions[0])))
27c90 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
27ca0 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
27cb0 20 53 65 73 73 69 6f 6e 20 6f 75 74 20 6f 66 20 Session out of
27cc0 72 61 6e 67 65 2e 22 29 3b 0a 09 09 0a 09 09 72 range.");......r
27cd0 65 74 75 72 6e 28 43 4b 52 5f 53 45 53 53 49 4f eturn(CKR_SESSIO
27ce0 4e 5f 48 41 4e 44 4c 45 5f 49 4e 56 41 4c 49 44 N_HANDLE_INVALID
27cf0 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 75 73 65 72 );..}...if (user
27d00 54 79 70 65 20 21 3d 20 43 4b 55 5f 55 53 45 52 Type != CKU_USER
27d10 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 ) {...CACKEY_DEB
27d20 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 UG_PRINTF("Error
27d30 2e 20 20 57 65 20 6f 6e 6c 79 20 73 75 70 70 6f . We only suppo
27d40 72 74 20 55 53 45 52 20 6d 6f 64 65 2c 20 61 73 rt USER mode, as
27d50 6b 65 64 20 66 6f 72 20 25 6c 75 20 6d 6f 64 65 ked for %lu mode
27d60 2e 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f .", (unsigned lo
27d70 6e 67 29 20 75 73 65 72 54 79 70 65 29 0a 0a 09 ng) userType)...
27d80 09 72 65 74 75 72 6e 28 43 4b 52 5f 55 53 45 52 .return(CKR_USER
27d90 5f 54 59 50 45 5f 49 4e 56 41 4c 49 44 29 3b 0a _TYPE_INVALID);.
27da0 09 7d 0a 0a 09 69 66 20 28 6c 6f 63 6b 5f 6d 75 .}...if (lock_mu
27db0 74 65 78 29 20 7b 0a 09 09 6d 75 74 65 78 5f 72 tex) {...mutex_r
27dc0 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 79 5f 6d etval = cackey_m
27dd0 75 74 65 78 5f 6c 6f 63 6b 28 63 61 63 6b 65 79 utex_lock(cackey
27de0 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 09 69 66 20 _biglock);...if
27df0 28 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 21 3d (mutex_retval !=
27e00 20 30 29 20 7b 0a 09 09 09 43 41 43 4b 45 59 5f 0) {....CACKEY_
27e10 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
27e20 72 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 20 66 61 ror. Locking fa
27e30 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 09 72 65 74 iled.");.....ret
27e40 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f urn(CKR_GENERAL_
27e50 45 52 52 4f 52 29 3b 0a 09 09 7d 0a 09 7d 0a 0a ERROR);...}..}..
27e60 09 69 66 20 28 21 63 61 63 6b 65 79 5f 73 65 73 .if (!cackey_ses
27e70 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e sions[hSession].
27e80 61 63 74 69 76 65 29 20 7b 0a 09 09 69 66 20 28 active) {...if (
27e90 6c 6f 63 6b 5f 6d 75 74 65 78 29 20 7b 0a 09 09 lock_mutex) {...
27ea0 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e .cackey_mutex_un
27eb0 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c lock(cackey_bigl
27ec0 6f 63 6b 29 3b 0a 09 09 7d 0a 0a 09 09 43 41 43 ock);...}....CAC
27ed0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
27ee0 28 22 45 72 72 6f 72 2e 20 20 53 65 73 73 69 6f ("Error. Sessio
27ef0 6e 20 6e 6f 74 20 61 63 74 69 76 65 2e 22 29 3b n not active.");
27f00 0a 09 09 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 ......return(CKR
27f10 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 5f _SESSION_HANDLE_
27f20 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 73 INVALID);..}...s
27f30 6c 6f 74 49 44 20 3d 20 63 61 63 6b 65 79 5f 73 lotID = cackey_s
27f40 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e essions[hSession
27f50 5d 2e 73 6c 6f 74 49 44 3b 0a 0a 09 69 66 20 28 ].slotID;...if (
27f60 73 6c 6f 74 49 44 20 3c 20 30 20 7c 7c 20 73 6c slotID < 0 || sl
27f70 6f 74 49 44 20 3e 3d 20 28 73 69 7a 65 6f 66 28 otID >= (sizeof(
27f80 63 61 63 6b 65 79 5f 73 6c 6f 74 73 29 20 2f 20 cackey_slots) /
27f90 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 6c sizeof(cackey_sl
27fa0 6f 74 73 5b 30 5d 29 29 29 20 7b 0a 09 09 43 41 ots[0]))) {...CA
27fb0 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
27fc0 46 28 22 45 72 72 6f 72 2e 20 49 6e 76 61 6c 69 F("Error. Invali
27fd0 64 20 73 6c 6f 74 20 72 65 71 75 65 73 74 65 64 d slot requested
27fe0 20 28 25 6c 75 29 2c 20 6f 75 74 73 69 64 65 20 (%lu), outside
27ff0 6f 66 20 76 61 6c 69 64 20 72 61 6e 67 65 22 2c of valid range",
28000 20 73 6c 6f 74 49 44 29 3b 0a 0a 09 09 69 66 20 slotID);....if
28010 28 6c 6f 63 6b 5f 6d 75 74 65 78 29 20 7b 0a 09 (lock_mutex) {..
28020 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 ..cackey_mutex_u
28030 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 nlock(cackey_big
28040 6c 6f 63 6b 29 3b 0a 09 09 7d 0a 0a 09 09 72 65 lock);...}....re
28050 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c turn(CKR_GENERAL
28060 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 _ERROR);..}...if
28070 20 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 73 (cackey_slots[s
28080 6c 6f 74 49 44 5d 2e 61 63 74 69 76 65 20 3d 3d lotID].active ==
28090 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 0) {...CACKEY_D
280a0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
280b0 6f 72 2e 20 49 6e 76 61 6c 69 64 20 73 6c 6f 74 or. Invalid slot
280c0 20 72 65 71 75 65 73 74 65 64 20 28 25 6c 75 29 requested (%lu)
280d0 2c 20 73 6c 6f 74 20 6e 6f 74 20 63 75 72 72 65 , slot not curre
280e0 6e 74 6c 79 20 61 63 74 69 76 65 22 2c 20 73 6c ntly active", sl
280f0 6f 74 49 44 29 3b 0a 0a 09 09 69 66 20 28 6c 6f otID);....if (lo
28100 63 6b 5f 6d 75 74 65 78 29 20 7b 0a 09 09 09 63 ck_mutex) {....c
28110 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f ackey_mutex_unlo
28120 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 ck(cackey_bigloc
28130 6b 29 3b 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 k);...}....retur
28140 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 n(CKR_GENERAL_ER
28150 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 63 ROR);..}...if (c
28160 61 63 6b 65 79 5f 70 69 6e 5f 63 6f 6d 6d 61 6e ackey_pin_comman
28170 64 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 69 d != NULL) {...i
28180 66 20 28 70 50 69 6e 20 21 3d 20 4e 55 4c 4c 29 f (pPin != NULL)
28190 20 7b 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 {....CACKEY_DEB
281a0 55 47 5f 50 52 49 4e 54 46 28 22 50 72 6f 74 65 UG_PRINTF("Prote
281b0 63 74 65 64 20 61 75 74 68 65 6e 74 69 63 61 74 cted authenticat
281c0 69 6f 6e 20 70 61 74 68 20 69 6e 20 65 66 66 65 ion path in effe
281d0 63 74 20 61 6e 64 20 50 49 4e 20 70 72 6f 76 69 ct and PIN provi
281e0 64 65 64 20 21 3f 22 29 3b 0a 09 09 7d 0a 0a 09 ded !?");...}...
281f0 09 67 65 74 5f 70 69 6e 5f 72 65 74 20 3d 20 63 .get_pin_ret = c
28200 61 63 6b 65 79 5f 67 65 74 5f 70 69 6e 28 70 69 ackey_get_pin(pi
28210 6e 62 75 66 29 3b 0a 0a 09 09 69 66 20 28 67 65 nbuf);....if (ge
28220 74 5f 70 69 6e 5f 72 65 74 20 21 3d 20 43 41 43 t_pin_ret != CAC
28230 4b 45 59 5f 50 43 53 43 5f 53 5f 4f 4b 29 20 7b KEY_PCSC_S_OK) {
28240 0a 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
28250 5f 50 52 49 4e 54 46 28 22 63 61 63 6b 65 79 5f _PRINTF("cackey_
28260 67 65 74 5f 70 69 6e 28 29 20 72 65 74 75 72 6e get_pin() return
28270 65 64 20 69 6e 20 66 61 69 6c 75 72 65 2c 20 61 ed in failure, a
28280 73 73 75 6d 69 6e 67 20 74 68 65 20 50 49 4e 20 ssuming the PIN
28290 77 61 73 20 69 6e 63 6f 72 72 65 63 74 2e 22 29 was incorrect.")
282a0 3b 0a 0a 09 09 09 69 66 20 28 6c 6f 63 6b 5f 6d ;.....if (lock_m
282b0 75 74 65 78 29 20 7b 0a 09 09 09 09 63 61 63 6b utex) {.....cack
282c0 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 ey_mutex_unlock(
282d0 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b cackey_biglock);
282e0 0a 09 09 09 7d 0a 0a 09 09 09 72 65 74 75 72 6e ....}.....return
282f0 28 43 4b 52 5f 50 49 4e 5f 49 4e 43 4f 52 52 45 (CKR_PIN_INCORRE
28300 43 54 29 3b 0a 09 09 7d 0a 0a 09 09 70 50 69 6e CT);...}....pPin
28310 20 3d 20 28 43 4b 5f 55 54 46 38 43 48 41 52 5f = (CK_UTF8CHAR_
28320 50 54 52 29 20 70 69 6e 62 75 66 3b 0a 09 09 75 PTR) pinbuf;...u
28330 6c 50 69 6e 4c 65 6e 20 3d 20 73 74 72 6c 65 6e lPinLen = strlen
28340 28 70 69 6e 62 75 66 29 3b 0a 09 7d 0a 0a 09 6c (pinbuf);..}...l
28350 6f 67 69 6e 5f 72 65 74 20 3d 20 63 61 63 6b 65 ogin_ret = cacke
28360 79 5f 6c 6f 67 69 6e 28 26 63 61 63 6b 65 79 5f y_login(&cackey_
28370 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 2c 20 70 slots[slotID], p
28380 50 69 6e 2c 20 75 6c 50 69 6e 4c 65 6e 2c 20 26 Pin, ulPinLen, &
28390 74 72 69 65 73 5f 72 65 6d 61 69 6e 69 6e 67 2c tries_remaining,
283a0 20 33 29 3b 0a 09 69 66 20 28 6c 6f 67 69 6e 5f 3);..if (login_
283b0 72 65 74 20 21 3d 20 43 41 43 4b 45 59 5f 50 43 ret != CACKEY_PC
283c0 53 43 5f 53 5f 4f 4b 29 20 7b 0a 09 09 69 66 20 SC_S_OK) {...if
283d0 28 6c 6f 63 6b 5f 6d 75 74 65 78 29 20 7b 0a 09 (lock_mutex) {..
283e0 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 ..cackey_mutex_u
283f0 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 nlock(cackey_big
28400 6c 6f 63 6b 29 3b 0a 09 09 7d 0a 0a 09 09 69 66 lock);...}....if
28410 20 28 6c 6f 67 69 6e 5f 72 65 74 20 3d 3d 20 43 (login_ret == C
28420 41 43 4b 45 59 5f 50 43 53 43 5f 45 5f 4c 4f 43 ACKEY_PCSC_E_LOC
28430 4b 45 44 29 20 7b 0a 09 09 09 43 41 43 4b 45 59 KED) {....CACKEY
28440 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
28450 72 72 6f 72 2e 20 20 54 6f 6b 65 6e 20 69 73 20 rror. Token is
28460 6c 6f 63 6b 65 64 2e 22 29 3b 0a 0a 09 09 09 63 locked.");.....c
28470 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 73 6c 6f 74 ackey_slots[slot
28480 49 44 5d 2e 74 6f 6b 65 6e 5f 66 6c 61 67 73 20 ID].token_flags
28490 7c 3d 20 43 4b 46 5f 55 53 45 52 5f 50 49 4e 5f |= CKF_USER_PIN_
284a0 4c 4f 43 4b 45 44 3b 0a 0a 09 09 09 43 41 43 4b LOCKED;.....CACK
284b0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
284c0 22 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 50 "Returning CKR_P
284d0 49 4e 5f 4c 4f 43 4b 45 44 20 28 25 69 29 22 2c IN_LOCKED (%i)",
284e0 20 28 69 6e 74 29 20 43 4b 52 5f 50 49 4e 5f 4c (int) CKR_PIN_L
284f0 4f 43 4b 45 44 29 3b 0a 0a 09 09 09 72 65 74 75 OCKED);.....retu
28500 72 6e 28 43 4b 52 5f 50 49 4e 5f 4c 4f 43 4b 45 rn(CKR_PIN_LOCKE
28510 44 29 3b 0a 09 09 7d 20 65 6c 73 65 20 69 66 20 D);...} else if
28520 28 6c 6f 67 69 6e 5f 72 65 74 20 3d 3d 20 43 41 (login_ret == CA
28530 43 4b 45 59 5f 50 43 53 43 5f 45 5f 42 41 44 50 CKEY_PCSC_E_BADP
28540 49 4e 29 20 7b 0a 09 09 09 43 41 43 4b 45 59 5f IN) {....CACKEY_
28550 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
28560 72 6f 72 2e 20 20 49 6e 76 61 6c 69 64 20 50 49 ror. Invalid PI
28570 4e 2e 22 29 3b 0a 0a 09 09 09 63 61 63 6b 65 79 N.");.....cackey
28580 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 2e 74 _slots[slotID].t
28590 6f 6b 65 6e 5f 66 6c 61 67 73 20 7c 3d 20 43 4b oken_flags |= CK
285a0 46 5f 55 53 45 52 5f 50 49 4e 5f 43 4f 55 4e 54 F_USER_PIN_COUNT
285b0 5f 4c 4f 57 3b 0a 0a 09 09 09 69 66 20 28 74 72 _LOW;.....if (tr
285c0 69 65 73 5f 72 65 6d 61 69 6e 69 6e 67 20 3d 3d ies_remaining ==
285d0 20 31 29 20 7b 0a 09 09 09 09 63 61 63 6b 65 79 1) {.....cackey
285e0 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 2e 74 _slots[slotID].t
285f0 6f 6b 65 6e 5f 66 6c 61 67 73 20 7c 3d 20 43 4b oken_flags |= CK
28600 46 5f 55 53 45 52 5f 50 49 4e 5f 46 49 4e 41 4c F_USER_PIN_FINAL
28610 5f 54 52 59 3b 0a 09 09 09 7d 0a 0a 09 09 09 43 _TRY;....}.....C
28620 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
28630 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 43 4b TF("Returning CK
28640 52 5f 50 49 4e 5f 49 4e 43 4f 52 52 45 43 54 20 R_PIN_INCORRECT
28650 28 25 69 29 22 2c 20 28 69 6e 74 29 20 43 4b 52 (%i)", (int) CKR
28660 5f 50 49 4e 5f 49 4e 43 4f 52 52 45 43 54 29 3b _PIN_INCORRECT);
28670 0a 0a 09 09 09 72 65 74 75 72 6e 28 43 4b 52 5f .....return(CKR_
28680 50 49 4e 5f 49 4e 43 4f 52 52 45 43 54 29 3b 0a PIN_INCORRECT);.
28690 09 09 7d 0a 0a 09 09 43 41 43 4b 45 59 5f 44 45 ..}....CACKEY_DE
286a0 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f BUG_PRINTF("Erro
286b0 72 2e 20 20 55 6e 6b 6e 6f 77 6e 20 65 72 72 6f r. Unknown erro
286c0 72 20 72 65 74 75 72 6e 65 64 20 66 72 6f 6d 20 r returned from
286d0 63 61 63 6b 65 79 5f 6c 6f 67 69 6e 28 29 20 28 cackey_login() (
286e0 25 69 29 22 2c 20 6c 6f 67 69 6e 5f 72 65 74 29 %i)", login_ret)
286f0 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f ;....return(CKR_
28700 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 29 3b 0a GENERAL_ERROR);.
28710 09 7d 0a 0a 09 63 61 63 6b 65 79 5f 73 6c 6f 74 .}...cackey_slot
28720 73 5b 73 6c 6f 74 49 44 5d 2e 74 6f 6b 65 6e 5f s[slotID].token_
28730 66 6c 61 67 73 20 26 3d 20 7e 28 43 4b 46 5f 55 flags &= ~(CKF_U
28740 53 45 52 5f 50 49 4e 5f 4c 4f 43 4b 45 44 20 7c SER_PIN_LOCKED |
28750 20 43 4b 46 5f 55 53 45 52 5f 50 49 4e 5f 43 4f CKF_USER_PIN_CO
28760 55 4e 54 5f 4c 4f 57 20 7c 20 43 4b 46 5f 4c 4f UNT_LOW | CKF_LO
28770 47 49 4e 5f 52 45 51 55 49 52 45 44 20 7c 20 43 GIN_REQUIRED | C
28780 4b 46 5f 55 53 45 52 5f 50 49 4e 5f 46 49 4e 41 KF_USER_PIN_FINA
28790 4c 5f 54 52 59 29 3b 0a 0a 09 63 61 63 6b 65 79 L_TRY);...cackey
287a0 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 _sessions[hSessi
287b0 6f 6e 5d 2e 73 74 61 74 65 20 3d 20 43 4b 53 5f on].state = CKS_
287c0 52 4f 5f 55 53 45 52 5f 46 55 4e 43 54 49 4f 4e RO_USER_FUNCTION
287d0 53 3b 0a 0a 09 69 66 20 28 6c 6f 63 6b 5f 6d 75 S;...if (lock_mu
287e0 74 65 78 29 20 7b 0a 09 09 6d 75 74 65 78 5f 72 tex) {...mutex_r
287f0 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 79 5f 6d etval = cackey_m
28800 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b utex_unlock(cack
28810 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 09 69 ey_biglock);...i
28820 66 20 28 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 f (mutex_retval
28830 21 3d 20 30 29 20 7b 0a 09 09 09 43 41 43 4b 45 != 0) {....CACKE
28840 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
28850 45 72 72 6f 72 2e 20 20 55 6e 6c 6f 63 6b 69 6e Error. Unlockin
28860 67 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 g failed.");....
28870 09 72 65 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 .return(CKR_GENE
28880 52 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 09 7d 0a RAL_ERROR);...}.
28890 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 .}...CACKEY_DEBU
288a0 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e G_PRINTF("Return
288b0 69 6e 67 20 43 4b 52 5f 4f 4b 20 28 25 69 29 22 ing CKR_OK (%i)"
288c0 2c 20 43 4b 52 5f 4f 4b 29 3b 0a 0a 09 72 65 74 , CKR_OK);...ret
288d0 75 72 6e 28 43 4b 52 5f 4f 4b 29 3b 0a 7d 0a 0a urn(CKR_OK);.}..
288e0 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 CK_DEFINE_FUNCTI
288f0 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f 4c 6f 67 69 ON(CK_RV, C_Logi
28900 6e 29 28 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 n)(CK_SESSION_HA
28910 4e 44 4c 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 NDLE hSession, C
28920 4b 5f 55 53 45 52 5f 54 59 50 45 20 75 73 65 72 K_USER_TYPE user
28930 54 79 70 65 2c 20 43 4b 5f 55 54 46 38 43 48 41 Type, CK_UTF8CHA
28940 52 5f 50 54 52 20 70 50 69 6e 2c 20 43 4b 5f 55 R_PTR pPin, CK_U
28950 4c 4f 4e 47 20 75 6c 50 69 6e 4c 65 6e 29 20 7b LONG ulPinLen) {
28960 0a 09 72 65 74 75 72 6e 28 43 5f 4c 6f 67 69 6e ..return(C_Login
28970 4d 75 74 65 78 41 72 67 28 68 53 65 73 73 69 6f MutexArg(hSessio
28980 6e 2c 20 75 73 65 72 54 79 70 65 2c 20 70 50 69 n, userType, pPi
28990 6e 2c 20 75 6c 50 69 6e 4c 65 6e 2c 20 31 29 29 n, ulPinLen, 1))
289a0 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 ;.}..CK_DEFINE_F
289b0 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 UNCTION(CK_RV, C
289c0 5f 4c 6f 67 6f 75 74 29 28 43 4b 5f 53 45 53 53 _Logout)(CK_SESS
289d0 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 73 ION_HANDLE hSess
289e0 69 6f 6e 29 20 7b 0a 09 43 4b 5f 53 4c 4f 54 5f ion) {..CK_SLOT_
289f0 49 44 20 73 6c 6f 74 49 44 3b 0a 09 69 6e 74 20 ID slotID;..int
28a00 6d 75 74 65 78 5f 72 65 74 76 61 6c 3b 0a 0a 09 mutex_retval;...
28a10 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
28a20 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a NTF("Called.");.
28a30 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e ..if (!cackey_in
28a40 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 itialized) {...C
28a50 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
28a60 54 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 TF("Error. Not
28a70 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a initialized.");.
28a80 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 ...return(CKR_CR
28a90 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 YPTOKI_NOT_INITI
28aa0 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 69 66 ALIZED);..}...if
28ab0 20 28 68 53 65 73 73 69 6f 6e 20 3d 3d 20 30 20 (hSession == 0
28ac0 7c 7c 20 68 53 65 73 73 69 6f 6e 20 3e 3d 20 28 || hSession >= (
28ad0 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 65 sizeof(cackey_se
28ae0 73 73 69 6f 6e 73 29 20 2f 20 73 69 7a 65 6f 66 ssions) / sizeof
28af0 28 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 (cackey_sessions
28b00 5b 30 5d 29 29 29 20 7b 0a 09 09 43 41 43 4b 45 [0]))) {...CACKE
28b10 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
28b20 45 72 72 6f 72 2e 20 20 53 65 73 73 69 6f 6e 20 Error. Session
28b30 6f 75 74 20 6f 66 20 72 61 6e 67 65 2e 22 29 3b out of range.");
28b40 0a 09 09 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 ......return(CKR
28b50 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 5f _SESSION_HANDLE_
28b60 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 6d INVALID);..}...m
28b70 75 74 65 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 utex_retval = ca
28b80 63 6b 65 79 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 ckey_mutex_lock(
28b90 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b cackey_biglock);
28ba0 0a 09 69 66 20 28 6d 75 74 65 78 5f 72 65 74 76 ..if (mutex_retv
28bb0 61 6c 20 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 al != 0) {...CAC
28bc0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
28bd0 28 22 45 72 72 6f 72 2e 20 20 4c 6f 63 6b 69 6e ("Error. Lockin
28be0 67 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 g failed.");....
28bf0 72 65 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 return(CKR_GENER
28c00 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 AL_ERROR);..}...
28c10 69 66 20 28 21 63 61 63 6b 65 79 5f 73 65 73 73 if (!cackey_sess
28c20 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 61 ions[hSession].a
28c30 63 74 69 76 65 29 20 7b 0a 09 09 63 61 63 6b 65 ctive) {...cacke
28c40 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 y_mutex_unlock(c
28c50 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a ackey_biglock);.
28c60 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
28c70 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 PRINTF("Error.
28c80 53 65 73 73 69 6f 6e 20 6e 6f 74 20 61 63 74 69 Session not acti
28c90 76 65 2e 22 29 3b 0a 09 09 0a 09 09 72 65 74 75 ve.");......retu
28ca0 72 6e 28 43 4b 52 5f 53 45 53 53 49 4f 4e 5f 48 rn(CKR_SESSION_H
28cb0 41 4e 44 4c 45 5f 49 4e 56 41 4c 49 44 29 3b 0a ANDLE_INVALID);.
28cc0 09 7d 0a 0a 09 73 6c 6f 74 49 44 20 3d 20 63 61 .}...slotID = ca
28cd0 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 ckey_sessions[hS
28ce0 65 73 73 69 6f 6e 5d 2e 73 6c 6f 74 49 44 3b 0a ession].slotID;.
28cf0 0a 09 69 66 20 28 73 6c 6f 74 49 44 20 3c 20 30 ..if (slotID < 0
28d00 20 7c 7c 20 73 6c 6f 74 49 44 20 3e 3d 20 28 73 || slotID >= (s
28d10 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 6c 6f izeof(cackey_slo
28d20 74 73 29 20 2f 20 73 69 7a 65 6f 66 28 63 61 63 ts) / sizeof(cac
28d30 6b 65 79 5f 73 6c 6f 74 73 5b 30 5d 29 29 29 20 key_slots[0])))
28d40 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
28d50 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
28d60 49 6e 76 61 6c 69 64 20 73 6c 6f 74 20 72 65 71 Invalid slot req
28d70 75 65 73 74 65 64 20 28 25 6c 75 29 2c 20 6f 75 uested (%lu), ou
28d80 74 73 69 64 65 20 6f 66 20 76 61 6c 69 64 20 72 tside of valid r
28d90 61 6e 67 65 22 2c 20 73 6c 6f 74 49 44 29 3b 0a ange", slotID);.
28da0 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 47 45 ...return(CKR_GE
28db0 4e 45 52 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d NERAL_ERROR);..}
28dc0 0a 0a 09 69 66 20 28 63 61 63 6b 65 79 5f 73 6c ...if (cackey_sl
28dd0 6f 74 73 5b 73 6c 6f 74 49 44 5d 2e 61 63 74 69 ots[slotID].acti
28de0 76 65 20 3d 3d 20 30 29 20 7b 0a 09 09 43 41 43 ve == 0) {...CAC
28df0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
28e00 28 22 45 72 72 6f 72 2e 20 49 6e 76 61 6c 69 64 ("Error. Invalid
28e10 20 73 6c 6f 74 20 72 65 71 75 65 73 74 65 64 20 slot requested
28e20 28 25 6c 75 29 2c 20 73 6c 6f 74 20 6e 6f 74 20 (%lu), slot not
28e30 63 75 72 72 65 6e 74 6c 79 20 61 63 74 69 76 65 currently active
28e40 22 2c 20 73 6c 6f 74 49 44 29 3b 0a 0a 09 09 63 ", slotID);....c
28e50 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f ackey_mutex_unlo
28e60 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 ck(cackey_bigloc
28e70 6b 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b k);....return(CK
28e80 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 29 R_GENERAL_ERROR)
28e90 3b 0a 09 7d 0a 0a 09 63 61 63 6b 65 79 5f 73 65 ;..}...cackey_se
28ea0 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d ssions[hSession]
28eb0 2e 73 74 61 74 65 20 3d 20 43 4b 53 5f 52 4f 5f .state = CKS_RO_
28ec0 50 55 42 4c 49 43 5f 53 45 53 53 49 4f 4e 3b 0a PUBLIC_SESSION;.
28ed0 0a 09 69 66 20 28 63 61 63 6b 65 79 5f 70 69 6e ..if (cackey_pin
28ee0 5f 63 6f 6d 6d 61 6e 64 20 3d 3d 20 4e 55 4c 4c _command == NULL
28ef0 29 20 7b 0a 09 09 63 61 63 6b 65 79 5f 73 6c 6f ) {...cackey_slo
28f00 74 73 5b 73 6c 6f 74 49 44 5d 2e 74 6f 6b 65 6e ts[slotID].token
28f10 5f 66 6c 61 67 73 20 3d 20 43 4b 46 5f 4c 4f 47 _flags = CKF_LOG
28f20 49 4e 5f 52 45 51 55 49 52 45 44 3b 0a 09 7d 20 IN_REQUIRED;..}
28f30 65 6c 73 65 20 7b 0a 09 09 63 61 63 6b 65 79 5f else {...cackey_
28f40 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 2e 74 6f slots[slotID].to
28f50 6b 65 6e 5f 66 6c 61 67 73 20 3d 20 30 3b 0a 09 ken_flags = 0;..
28f60 7d 0a 0a 09 6d 75 74 65 78 5f 72 65 74 76 61 6c }...mutex_retval
28f70 20 3d 20 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f = cackey_mutex_
28f80 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 unlock(cackey_bi
28f90 67 6c 6f 63 6b 29 3b 0a 09 69 66 20 28 6d 75 74 glock);..if (mut
28fa0 65 78 5f 72 65 74 76 61 6c 20 21 3d 20 30 29 20 ex_retval != 0)
28fb0 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
28fc0 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
28fd0 20 55 6e 6c 6f 63 6b 69 6e 67 20 66 61 69 6c 65 Unlocking faile
28fe0 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 d.");....return(
28ff0 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f CKR_GENERAL_ERRO
29000 52 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f R);..}...CACKEY_
29010 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 DEBUG_PRINTF("Re
29020 74 75 72 6e 69 6e 67 20 43 4b 52 5f 4f 4b 20 28 turning CKR_OK (
29030 25 69 29 22 2c 20 43 4b 52 5f 4f 4b 29 3b 0a 0a %i)", CKR_OK);..
29040 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f 4b 29 3b .return(CKR_OK);
29050 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 55 .}..CK_DEFINE_FU
29060 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f NCTION(CK_RV, C_
29070 43 72 65 61 74 65 4f 62 6a 65 63 74 29 28 43 4b CreateObject)(CK
29080 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 _SESSION_HANDLE
29090 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 41 54 54 hSession, CK_ATT
290a0 52 49 42 55 54 45 5f 50 54 52 20 70 54 65 6d 70 RIBUTE_PTR pTemp
290b0 6c 61 74 65 2c 20 43 4b 5f 55 4c 4f 4e 47 20 75 late, CK_ULONG u
290c0 6c 43 6f 75 6e 74 2c 20 43 4b 5f 4f 42 4a 45 43 lCount, CK_OBJEC
290d0 54 5f 48 41 4e 44 4c 45 5f 50 54 52 20 70 68 4f T_HANDLE_PTR phO
290e0 62 6a 65 63 74 29 20 7b 0a 09 43 41 43 4b 45 59 bject) {..CACKEY
290f0 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 _DEBUG_PRINTF("C
29100 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 28 alled.");...if (
29110 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 !cackey_initiali
29120 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f zed) {...CACKEY_
29130 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
29140 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 61 ror. Not initia
29150 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 lized.");....ret
29160 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b 49 urn(CKR_CRYPTOKI
29170 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 _NOT_INITIALIZED
29180 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 );..}...CACKEY_D
29190 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 EBUG_PRINTF("Ret
291a0 75 72 6e 69 6e 67 20 43 4b 52 5f 46 55 4e 43 54 urning CKR_FUNCT
291b0 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 ION_NOT_SUPPORTE
291c0 44 20 28 25 69 29 22 2c 20 43 4b 52 5f 46 55 4e D (%i)", CKR_FUN
291d0 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 CTION_NOT_SUPPOR
291e0 54 45 44 29 3b 0a 0a 09 72 65 74 75 72 6e 28 43 TED);...return(C
291f0 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f KR_FUNCTION_NOT_
29200 53 55 50 50 4f 52 54 45 44 29 3b 0a 7d 0a 0a 43 SUPPORTED);.}..C
29210 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f K_DEFINE_FUNCTIO
29220 4e 28 43 4b 5f 52 56 2c 20 43 5f 43 6f 70 79 4f N(CK_RV, C_CopyO
29230 62 6a 65 63 74 29 28 43 4b 5f 53 45 53 53 49 4f bject)(CK_SESSIO
29240 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 73 69 6f N_HANDLE hSessio
29250 6e 2c 20 43 4b 5f 4f 42 4a 45 43 54 5f 48 41 4e n, CK_OBJECT_HAN
29260 44 4c 45 20 68 4f 62 6a 65 63 74 2c 20 43 4b 5f DLE hObject, CK_
29270 41 54 54 52 49 42 55 54 45 5f 50 54 52 20 70 54 ATTRIBUTE_PTR pT
29280 65 6d 70 6c 61 74 65 2c 20 43 4b 5f 55 4c 4f 4e emplate, CK_ULON
29290 47 20 75 6c 43 6f 75 6e 74 2c 20 43 4b 5f 4f 42 G ulCount, CK_OB
292a0 4a 45 43 54 5f 48 41 4e 44 4c 45 5f 50 54 52 20 JECT_HANDLE_PTR
292b0 70 68 4e 65 77 4f 62 6a 65 63 74 29 20 7b 0a 09 phNewObject) {..
292c0 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
292d0 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a NTF("Called.");.
292e0 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e ..if (!cackey_in
292f0 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 itialized) {...C
29300 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
29310 54 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 TF("Error. Not
29320 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a initialized.");.
29330 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 ...return(CKR_CR
29340 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 YPTOKI_NOT_INITI
29350 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 43 41 ALIZED);..}...CA
29360 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
29370 46 28 22 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 F("Returning CKR
29380 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 _FUNCTION_NOT_SU
29390 50 50 4f 52 54 45 44 20 28 25 69 29 22 2c 20 43 PPORTED (%i)", C
293a0 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f KR_FUNCTION_NOT_
293b0 53 55 50 50 4f 52 54 45 44 29 3b 0a 0a 09 72 65 SUPPORTED);...re
293c0 74 75 72 6e 28 43 4b 52 5f 46 55 4e 43 54 49 4f turn(CKR_FUNCTIO
293d0 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 N_NOT_SUPPORTED)
293e0 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 ;.}..CK_DEFINE_F
293f0 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 UNCTION(CK_RV, C
29400 5f 44 65 73 74 72 6f 79 4f 62 6a 65 63 74 29 28 _DestroyObject)(
29410 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c CK_SESSION_HANDL
29420 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 4f E hSession, CK_O
29430 42 4a 45 43 54 5f 48 41 4e 44 4c 45 20 68 4f 62 BJECT_HANDLE hOb
29440 6a 65 63 74 29 20 7b 0a 09 43 41 43 4b 45 59 5f ject) {..CACKEY_
29450 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 DEBUG_PRINTF("Ca
29460 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 28 21 lled.");...if (!
29470 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a cackey_initializ
29480 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ed) {...CACKEY_D
29490 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
294a0 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c or. Not initial
294b0 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 ized.");....retu
294c0 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f rn(CKR_CRYPTOKI_
294d0 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 NOT_INITIALIZED)
294e0 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 ;..}...CACKEY_DE
294f0 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 BUG_PRINTF("Retu
29500 72 6e 69 6e 67 20 43 4b 52 5f 46 55 4e 43 54 49 rning CKR_FUNCTI
29510 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 ON_NOT_SUPPORTED
29520 20 28 25 69 29 22 2c 20 43 4b 52 5f 46 55 4e 43 (%i)", CKR_FUNC
29530 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 TION_NOT_SUPPORT
29540 45 44 29 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b ED);...return(CK
29550 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 R_FUNCTION_NOT_S
29560 55 50 50 4f 52 54 45 44 29 3b 0a 7d 0a 0a 43 4b UPPORTED);.}..CK
29570 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e _DEFINE_FUNCTION
29580 28 43 4b 5f 52 56 2c 20 43 5f 47 65 74 4f 62 6a (CK_RV, C_GetObj
29590 65 63 74 53 69 7a 65 29 28 43 4b 5f 53 45 53 53 ectSize)(CK_SESS
295a0 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 73 ION_HANDLE hSess
295b0 69 6f 6e 2c 20 43 4b 5f 4f 42 4a 45 43 54 5f 48 ion, CK_OBJECT_H
295c0 41 4e 44 4c 45 20 68 4f 62 6a 65 63 74 2c 20 43 ANDLE hObject, C
295d0 4b 5f 55 4c 4f 4e 47 5f 50 54 52 20 70 75 6c 53 K_ULONG_PTR pulS
295e0 69 7a 65 29 20 7b 0a 09 43 41 43 4b 45 59 5f 44 ize) {..CACKEY_D
295f0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 6c EBUG_PRINTF("Cal
29600 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 28 21 63 led.");...if (!c
29610 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a 65 ackey_initialize
29620 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 d) {...CACKEY_DE
29630 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f BUG_PRINTF("Erro
29640 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 r. Not initiali
29650 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 zed.");....retur
29660 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f 4e n(CKR_CRYPTOKI_N
29670 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 3b OT_INITIALIZED);
29680 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 ..}...CACKEY_DEB
29690 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 UG_PRINTF("Retur
296a0 6e 69 6e 67 20 43 4b 52 5f 46 55 4e 43 54 49 4f ning CKR_FUNCTIO
296b0 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 20 N_NOT_SUPPORTED
296c0 28 25 69 29 22 2c 20 43 4b 52 5f 46 55 4e 43 54 (%i)", CKR_FUNCT
296d0 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 ION_NOT_SUPPORTE
296e0 44 29 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 D);...return(CKR
296f0 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 _FUNCTION_NOT_SU
29700 50 50 4f 52 54 45 44 29 3b 0a 7d 0a 0a 43 4b 5f PPORTED);.}..CK_
29710 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 DEFINE_FUNCTION(
29720 43 4b 5f 52 56 2c 20 43 5f 47 65 74 41 74 74 72 CK_RV, C_GetAttr
29730 69 62 75 74 65 56 61 6c 75 65 29 28 43 4b 5f 53 ibuteValue)(CK_S
29740 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 ESSION_HANDLE hS
29750 65 73 73 69 6f 6e 2c 20 43 4b 5f 4f 42 4a 45 43 ession, CK_OBJEC
29760 54 5f 48 41 4e 44 4c 45 20 68 4f 62 6a 65 63 74 T_HANDLE hObject
29770 2c 20 43 4b 5f 41 54 54 52 49 42 55 54 45 5f 50 , CK_ATTRIBUTE_P
29780 54 52 20 70 54 65 6d 70 6c 61 74 65 2c 20 43 4b TR pTemplate, CK
29790 5f 55 4c 4f 4e 47 20 75 6c 43 6f 75 6e 74 29 20 _ULONG ulCount)
297a0 7b 0a 09 43 4b 5f 41 54 54 52 49 42 55 54 45 20 {..CK_ATTRIBUTE
297b0 2a 63 75 72 72 5f 61 74 74 72 3b 0a 09 73 74 72 *curr_attr;..str
297c0 75 63 74 20 63 61 63 6b 65 79 5f 69 64 65 6e 74 uct cackey_ident
297d0 69 74 79 20 2a 69 64 65 6e 74 69 74 79 3b 0a 09 ity *identity;..
297e0 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 69 64 unsigned long id
297f0 65 6e 74 69 74 79 5f 69 64 78 2c 20 61 74 74 72 entity_idx, attr
29800 5f 69 64 78 2c 20 73 65 73 73 5f 61 74 74 72 5f _idx, sess_attr_
29810 69 64 78 2c 20 6e 75 6d 5f 69 64 73 3b 0a 09 69 idx, num_ids;..i
29820 6e 74 20 6d 75 74 65 78 5f 72 65 74 76 61 6c 3b nt mutex_retval;
29830 0a 09 43 4b 5f 52 56 20 72 65 74 76 61 6c 20 3d ..CK_RV retval =
29840 20 43 4b 52 5f 4f 4b 3b 0a 09 43 4b 5f 56 4f 49 CKR_OK;..CK_VOI
29850 44 5f 50 54 52 20 70 56 61 6c 75 65 3b 0a 09 43 D_PTR pValue;..C
29860 4b 5f 55 4c 4f 4e 47 20 75 6c 56 61 6c 75 65 4c K_ULONG ulValueL
29870 65 6e 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 en;...CACKEY_DEB
29880 55 47 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 UG_PRINTF("Calle
29890 64 2e 22 29 3b 0a 0a 09 69 66 20 28 21 63 61 63 d.");...if (!cac
298a0 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a 65 64 29 key_initialized)
298b0 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
298c0 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
298d0 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 Not initialize
298e0 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 d.");....return(
298f0 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 CKR_CRYPTOKI_NOT
29900 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 _INITIALIZED);..
29910 7d 0a 0a 09 69 66 20 28 68 53 65 73 73 69 6f 6e }...if (hSession
29920 20 3d 3d 20 30 20 7c 7c 20 68 53 65 73 73 69 6f == 0 || hSessio
29930 6e 20 3e 3d 20 28 73 69 7a 65 6f 66 28 63 61 63 n >= (sizeof(cac
29940 6b 65 79 5f 73 65 73 73 69 6f 6e 73 29 20 2f 20 key_sessions) /
29950 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 65 sizeof(cackey_se
29960 73 73 69 6f 6e 73 5b 30 5d 29 29 29 20 7b 0a 09 ssions[0]))) {..
29970 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
29980 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 53 65 INTF("Error. Se
29990 73 73 69 6f 6e 20 6f 75 74 20 6f 66 20 72 61 6e ssion out of ran
299a0 67 65 2e 22 29 3b 0a 09 09 0a 09 09 72 65 74 75 ge.");......retu
299b0 72 6e 28 43 4b 52 5f 53 45 53 53 49 4f 4e 5f 48 rn(CKR_SESSION_H
299c0 41 4e 44 4c 45 5f 49 4e 56 41 4c 49 44 29 3b 0a ANDLE_INVALID);.
299d0 09 7d 0a 0a 09 69 66 20 28 68 4f 62 6a 65 63 74 .}...if (hObject
299e0 20 3d 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 == 0) {...CACKE
299f0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
29a00 45 72 72 6f 72 2e 20 20 4f 62 6a 65 63 74 20 68 Error. Object h
29a10 61 6e 64 6c 65 20 6f 75 74 20 6f 66 20 72 61 6e andle out of ran
29a20 67 65 2e 22 29 3b 0a 09 09 0a 09 09 72 65 74 75 ge.");......retu
29a30 72 6e 28 43 4b 52 5f 4f 42 4a 45 43 54 5f 48 41 rn(CKR_OBJECT_HA
29a40 4e 44 4c 45 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 NDLE_INVALID);..
29a50 7d 0a 0a 09 69 66 20 28 75 6c 43 6f 75 6e 74 20 }...if (ulCount
29a60 3d 3d 20 30 29 20 7b 0a 09 09 2f 2a 20 53 68 6f == 0) {.../* Sho
29a70 72 74 20 63 69 72 63 75 69 74 2c 20 69 66 20 7a rt circuit, if z
29a80 65 72 6f 20 6f 62 6a 65 63 74 73 20 77 65 72 65 ero objects were
29a90 20 73 70 65 63 69 66 69 65 64 20 72 65 74 75 72 specified retur
29aa0 6e 20 7a 65 72 6f 20 69 74 65 6d 73 20 69 6d 6d n zero items imm
29ab0 65 64 69 61 74 65 6c 79 20 2a 2f 0a 09 09 43 41 ediately */...CA
29ac0 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
29ad0 46 28 22 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 F("Returning CKR
29ae0 5f 4f 4b 20 28 25 69 29 20 28 73 68 6f 72 74 20 _OK (%i) (short
29af0 63 69 72 63 75 69 74 29 22 2c 20 43 4b 52 5f 4f circuit)", CKR_O
29b00 4b 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b K);....return(CK
29b10 52 5f 4f 4b 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 R_OK);..}...if (
29b20 70 54 65 6d 70 6c 61 74 65 20 3d 3d 20 4e 55 4c pTemplate == NUL
29b30 4c 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 L) {...CACKEY_DE
29b40 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f BUG_PRINTF("Erro
29b50 72 2e 20 20 70 54 65 6d 70 6c 61 74 65 20 69 73 r. pTemplate is
29b60 20 4e 55 4c 4c 2e 22 29 3b 0a 0a 09 09 72 65 74 NULL.");....ret
29b70 75 72 6e 28 43 4b 52 5f 41 52 47 55 4d 45 4e 54 urn(CKR_ARGUMENT
29b80 53 5f 42 41 44 29 3b 0a 09 7d 0a 0a 09 69 64 65 S_BAD);..}...ide
29b90 6e 74 69 74 79 5f 69 64 78 20 3d 20 68 4f 62 6a ntity_idx = hObj
29ba0 65 63 74 20 2d 20 31 3b 0a 0a 09 6d 75 74 65 78 ect - 1;...mutex
29bb0 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 79 _retval = cackey
29bc0 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 63 61 63 6b _mutex_lock(cack
29bd0 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 69 66 ey_biglock);..if
29be0 20 28 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 21 (mutex_retval !
29bf0 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f = 0) {...CACKEY_
29c00 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
29c10 72 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 20 66 61 ror. Locking fa
29c20 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 iled.");....retu
29c30 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 rn(CKR_GENERAL_E
29c40 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 RROR);..}...if (
29c50 21 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 !cackey_sessions
29c60 5b 68 53 65 73 73 69 6f 6e 5d 2e 61 63 74 69 76 [hSession].activ
29c70 65 29 20 7b 0a 09 09 63 61 63 6b 65 79 5f 6d 75 e) {...cackey_mu
29c80 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 tex_unlock(cacke
29c90 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 43 y_biglock);....C
29ca0 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
29cb0 54 46 28 22 45 72 72 6f 72 2e 20 20 53 65 73 73 TF("Error. Sess
29cc0 69 6f 6e 20 6e 6f 74 20 61 63 74 69 76 65 2e 22 ion not active."
29cd0 29 3b 0a 09 09 0a 09 09 72 65 74 75 72 6e 28 43 );......return(C
29ce0 4b 52 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c KR_SESSION_HANDL
29cf0 45 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a E_INVALID);..}..
29d00 09 6e 75 6d 5f 69 64 73 20 3d 20 63 61 63 6b 65 .num_ids = cacke
29d10 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 y_sessions[hSess
29d20 69 6f 6e 5d 2e 69 64 65 6e 74 69 74 69 65 73 5f ion].identities_
29d30 63 6f 75 6e 74 3b 0a 0a 09 69 66 20 28 69 64 65 count;...if (ide
29d40 6e 74 69 74 79 5f 69 64 78 20 3e 3d 20 6e 75 6d ntity_idx >= num
29d50 5f 69 64 73 29 20 7b 0a 09 09 63 61 63 6b 65 79 _ids) {...cackey
29d60 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 _mutex_unlock(ca
29d70 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a ckey_biglock);..
29d80 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
29d90 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4f RINTF("Error. O
29da0 62 6a 65 63 74 20 68 61 6e 64 6c 65 20 6f 75 74 bject handle out
29db0 20 6f 66 20 72 61 6e 67 65 2e 20 20 69 64 65 6e of range. iden
29dc0 74 69 74 79 5f 69 64 78 20 3d 20 25 6c 75 2c 20 tity_idx = %lu,
29dd0 6e 75 6d 5f 69 64 73 20 3d 20 25 6c 75 2e 22 2c num_ids = %lu.",
29de0 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 (unsigned long)
29df0 20 69 64 65 6e 74 69 74 79 5f 69 64 78 2c 20 28 identity_idx, (
29e00 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 6e unsigned long) n
29e10 75 6d 5f 69 64 73 29 3b 0a 0a 09 09 72 65 74 75 um_ids);....retu
29e20 72 6e 28 43 4b 52 5f 4f 42 4a 45 43 54 5f 48 41 rn(CKR_OBJECT_HA
29e30 4e 44 4c 45 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 NDLE_INVALID);..
29e40 7d 0a 0a 09 69 64 65 6e 74 69 74 79 20 3d 20 26 }...identity = &
29e50 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b cackey_sessions[
29e60 68 53 65 73 73 69 6f 6e 5d 2e 69 64 65 6e 74 69 hSession].identi
29e70 74 69 65 73 5b 69 64 65 6e 74 69 74 79 5f 69 64 ties[identity_id
29e80 78 5d 3b 0a 0a 09 66 6f 72 20 28 61 74 74 72 5f x];...for (attr_
29e90 69 64 78 20 3d 20 30 3b 20 61 74 74 72 5f 69 64 idx = 0; attr_id
29ea0 78 20 3c 20 75 6c 43 6f 75 6e 74 3b 20 61 74 74 x < ulCount; att
29eb0 72 5f 69 64 78 2b 2b 29 20 7b 0a 09 09 63 75 72 r_idx++) {...cur
29ec0 72 5f 61 74 74 72 20 3d 20 26 70 54 65 6d 70 6c r_attr = &pTempl
29ed0 61 74 65 5b 61 74 74 72 5f 69 64 78 5d 3b 0a 0a ate[attr_idx];..
29ee0 09 09 70 56 61 6c 75 65 20 3d 20 4e 55 4c 4c 3b ..pValue = NULL;
29ef0 0a 09 09 75 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 ...ulValueLen =
29f00 28 43 4b 5f 4c 4f 4e 47 29 20 2d 31 3b 0a 0a 09 (CK_LONG) -1;...
29f10 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
29f20 49 4e 54 46 28 22 4c 6f 6f 6b 69 6e 67 20 66 6f INTF("Looking fo
29f30 72 20 61 74 74 72 69 62 75 74 65 20 30 78 25 30 r attribute 0x%0
29f40 38 6c 78 20 28 69 64 65 6e 74 69 74 79 3a 25 6c 8lx (identity:%l
29f50 75 29 20 2e 2e 2e 22 2c 20 28 75 6e 73 69 67 6e u) ...", (unsign
29f60 65 64 20 6c 6f 6e 67 29 20 63 75 72 72 5f 61 74 ed long) curr_at
29f70 74 72 2d 3e 74 79 70 65 2c 20 28 75 6e 73 69 67 tr->type, (unsig
29f80 6e 65 64 20 6c 6f 6e 67 29 20 69 64 65 6e 74 69 ned long) identi
29f90 74 79 5f 69 64 78 29 3b 0a 0a 09 09 66 6f 72 20 ty_idx);....for
29fa0 28 73 65 73 73 5f 61 74 74 72 5f 69 64 78 20 3d (sess_attr_idx =
29fb0 20 30 3b 20 73 65 73 73 5f 61 74 74 72 5f 69 64 0; sess_attr_id
29fc0 78 20 3c 20 69 64 65 6e 74 69 74 79 2d 3e 61 74 x < identity->at
29fd0 74 72 69 62 75 74 65 73 5f 63 6f 75 6e 74 3b 20 tributes_count;
29fe0 73 65 73 73 5f 61 74 74 72 5f 69 64 78 2b 2b 29 sess_attr_idx++)
29ff0 20 7b 0a 09 09 09 69 66 20 28 69 64 65 6e 74 69 {....if (identi
2a000 74 79 2d 3e 61 74 74 72 69 62 75 74 65 73 5b 73 ty->attributes[s
2a010 65 73 73 5f 61 74 74 72 5f 69 64 78 5d 2e 74 79 ess_attr_idx].ty
2a020 70 65 20 3d 3d 20 63 75 72 72 5f 61 74 74 72 2d pe == curr_attr-
2a030 3e 74 79 70 65 29 20 7b 0a 09 09 09 09 43 41 43 >type) {.....CAC
2a040 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
2a050 28 22 20 2e 2e 2e 20 66 6f 75 6e 64 20 69 74 2c (" ... found it,
2a060 20 70 56 61 6c 75 65 20 3d 20 25 70 2c 20 75 6c pValue = %p, ul
2a070 56 61 6c 75 65 4c 65 6e 20 3d 20 25 6c 75 22 2c ValueLen = %lu",
2a080 20 69 64 65 6e 74 69 74 79 2d 3e 61 74 74 72 69 identity->attri
2a090 62 75 74 65 73 5b 73 65 73 73 5f 61 74 74 72 5f butes[sess_attr_
2a0a0 69 64 78 5d 2e 70 56 61 6c 75 65 2c 20 69 64 65 idx].pValue, ide
2a0b0 6e 74 69 74 79 2d 3e 61 74 74 72 69 62 75 74 65 ntity->attribute
2a0c0 73 5b 73 65 73 73 5f 61 74 74 72 5f 69 64 78 5d s[sess_attr_idx]
2a0d0 2e 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a 09 09 .ulValueLen);...
2a0e0 09 09 0a 09 09 09 09 70 56 61 6c 75 65 20 3d 20 .......pValue =
2a0f0 69 64 65 6e 74 69 74 79 2d 3e 61 74 74 72 69 62 identity->attrib
2a100 75 74 65 73 5b 73 65 73 73 5f 61 74 74 72 5f 69 utes[sess_attr_i
2a110 64 78 5d 2e 70 56 61 6c 75 65 3b 0a 09 09 09 09 dx].pValue;.....
2a120 75 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 69 64 65 ulValueLen = ide
2a130 6e 74 69 74 79 2d 3e 61 74 74 72 69 62 75 74 65 ntity->attribute
2a140 73 5b 73 65 73 73 5f 61 74 74 72 5f 69 64 78 5d s[sess_attr_idx]
2a150 2e 75 6c 56 61 6c 75 65 4c 65 6e 3b 0a 09 09 09 .ulValueLen;....
2a160 7d 0a 09 09 7d 0a 0a 09 09 69 66 20 28 63 75 72 }...}....if (cur
2a170 72 5f 61 74 74 72 2d 3e 70 56 61 6c 75 65 20 26 r_attr->pValue &
2a180 26 20 70 56 61 6c 75 65 29 20 7b 0a 09 09 09 69 & pValue) {....i
2a190 66 20 28 63 75 72 72 5f 61 74 74 72 2d 3e 75 6c f (curr_attr->ul
2a1a0 56 61 6c 75 65 4c 65 6e 20 3e 3d 20 75 6c 56 61 ValueLen >= ulVa
2a1b0 6c 75 65 4c 65 6e 29 20 7b 0a 09 09 09 09 6d 65 lueLen) {.....me
2a1c0 6d 63 70 79 28 63 75 72 72 5f 61 74 74 72 2d 3e mcpy(curr_attr->
2a1d0 70 56 61 6c 75 65 2c 20 70 56 61 6c 75 65 2c 20 pValue, pValue,
2a1e0 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a 09 09 09 ulValueLen);....
2a1f0 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 75 6c 56 } else {.....ulV
2a200 61 6c 75 65 4c 65 6e 20 3d 20 28 43 4b 5f 4c 4f alueLen = (CK_LO
2a210 4e 47 29 20 2d 31 3b 0a 0a 09 09 09 09 72 65 74 NG) -1;......ret
2a220 76 61 6c 20 3d 20 43 4b 52 5f 42 55 46 46 45 52 val = CKR_BUFFER
2a230 5f 54 4f 4f 5f 53 4d 41 4c 4c 3b 0a 09 09 09 7d _TOO_SMALL;....}
2a240 0a 09 09 7d 0a 0a 09 09 63 75 72 72 5f 61 74 74 ...}....curr_att
2a250 72 2d 3e 75 6c 56 61 6c 75 65 4c 65 6e 20 3d 20 r->ulValueLen =
2a260 75 6c 56 61 6c 75 65 4c 65 6e 3b 0a 09 7d 0a 0a ulValueLen;..}..
2a270 09 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 3d 20 .mutex_retval =
2a280 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c cackey_mutex_unl
2a290 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f ock(cackey_biglo
2a2a0 63 6b 29 3b 0a 09 69 66 20 28 6d 75 74 65 78 5f ck);..if (mutex_
2a2b0 72 65 74 76 61 6c 20 21 3d 20 30 29 20 7b 0a 09 retval != 0) {..
2a2c0 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
2a2d0 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 55 6e INTF("Error. Un
2a2e0 6c 6f 63 6b 69 6e 67 20 66 61 69 6c 65 64 2e 22 locking failed."
2a2f0 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 );....return(CKR
2a300 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 29 3b _GENERAL_ERROR);
2a310 0a 09 7d 0a 0a 09 69 66 20 28 72 65 74 76 61 6c ..}...if (retval
2a320 20 3d 3d 20 43 4b 52 5f 41 54 54 52 49 42 55 54 == CKR_ATTRIBUT
2a330 45 5f 54 59 50 45 5f 49 4e 56 41 4c 49 44 29 20 E_TYPE_INVALID)
2a340 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
2a350 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 _PRINTF("Returni
2a360 6e 67 20 43 4b 52 5f 41 54 54 52 49 42 55 54 45 ng CKR_ATTRIBUTE
2a370 5f 54 59 50 45 5f 49 4e 56 41 4c 49 44 20 28 25 _TYPE_INVALID (%
2a380 69 29 22 2c 20 28 69 6e 74 29 20 72 65 74 76 61 i)", (int) retva
2a390 6c 29 3b 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 l);..} else if (
2a3a0 72 65 74 76 61 6c 20 3d 3d 20 43 4b 52 5f 42 55 retval == CKR_BU
2a3b0 46 46 45 52 5f 54 4f 4f 5f 53 4d 41 4c 4c 29 20 FFER_TOO_SMALL)
2a3c0 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
2a3d0 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 _PRINTF("Returni
2a3e0 6e 67 20 43 4b 52 5f 42 55 46 46 45 52 5f 54 4f ng CKR_BUFFER_TO
2a3f0 4f 5f 53 4d 41 4c 4c 20 28 25 69 29 22 2c 20 28 O_SMALL (%i)", (
2a400 69 6e 74 29 20 72 65 74 76 61 6c 29 3b 0a 09 7d int) retval);..}
2a410 20 65 6c 73 65 20 69 66 20 28 72 65 74 76 61 6c else if (retval
2a420 20 3d 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a 09 09 == CKR_OK) {...
2a430 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
2a440 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 43 NTF("Returning C
2a450 4b 52 5f 4f 4b 20 28 25 69 29 22 2c 20 28 69 6e KR_OK (%i)", (in
2a460 74 29 20 72 65 74 76 61 6c 29 3b 0a 09 7d 20 65 t) retval);..} e
2a470 6c 73 65 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 lse {...CACKEY_D
2a480 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 EBUG_PRINTF("Ret
2a490 75 72 6e 69 6e 67 20 25 69 22 2c 20 28 69 6e 74 urning %i", (int
2a4a0 29 20 72 65 74 76 61 6c 29 3b 0a 09 7d 0a 0a 09 ) retval);..}...
2a4b0 72 65 74 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a return(retval);.
2a4c0 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e }..CK_DEFINE_FUN
2a4d0 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f 53 CTION(CK_RV, C_S
2a4e0 65 74 41 74 74 72 69 62 75 74 65 56 61 6c 75 65 etAttributeValue
2a4f0 29 28 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e )(CK_SESSION_HAN
2a500 44 4c 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b DLE hSession, CK
2a510 5f 4f 42 4a 45 43 54 5f 48 41 4e 44 4c 45 20 68 _OBJECT_HANDLE h
2a520 4f 62 6a 65 63 74 2c 20 43 4b 5f 41 54 54 52 49 Object, CK_ATTRI
2a530 42 55 54 45 5f 50 54 52 20 70 54 65 6d 70 6c 61 BUTE_PTR pTempla
2a540 74 65 2c 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 43 te, CK_ULONG ulC
2a550 6f 75 6e 74 29 20 7b 0a 09 43 41 43 4b 45 59 5f ount) {..CACKEY_
2a560 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 DEBUG_PRINTF("Ca
2a570 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 28 21 lled.");...if (!
2a580 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a cackey_initializ
2a590 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ed) {...CACKEY_D
2a5a0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
2a5b0 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c or. Not initial
2a5c0 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 ized.");....retu
2a5d0 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f rn(CKR_CRYPTOKI_
2a5e0 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 NOT_INITIALIZED)
2a5f0 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 ;..}...CACKEY_DE
2a600 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 BUG_PRINTF("Retu
2a610 72 6e 69 6e 67 20 43 4b 52 5f 46 55 4e 43 54 49 rning CKR_FUNCTI
2a620 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 ON_NOT_SUPPORTED
2a630 20 28 25 69 29 22 2c 20 43 4b 52 5f 46 55 4e 43 (%i)", CKR_FUNC
2a640 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 TION_NOT_SUPPORT
2a650 45 44 29 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b ED);...return(CK
2a660 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 R_FUNCTION_NOT_S
2a670 55 50 50 4f 52 54 45 44 29 3b 0a 7d 0a 0a 43 4b UPPORTED);.}..CK
2a680 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e _DEFINE_FUNCTION
2a690 28 43 4b 5f 52 56 2c 20 43 5f 46 69 6e 64 4f 62 (CK_RV, C_FindOb
2a6a0 6a 65 63 74 73 49 6e 69 74 29 28 43 4b 5f 53 45 jectsInit)(CK_SE
2a6b0 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 SSION_HANDLE hSe
2a6c0 73 73 69 6f 6e 2c 20 43 4b 5f 41 54 54 52 49 42 ssion, CK_ATTRIB
2a6d0 55 54 45 5f 50 54 52 20 70 54 65 6d 70 6c 61 74 UTE_PTR pTemplat
2a6e0 65 2c 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 43 6f e, CK_ULONG ulCo
2a6f0 75 6e 74 29 20 7b 0a 09 43 4b 5f 53 4c 4f 54 5f unt) {..CK_SLOT_
2a700 49 44 20 73 6c 6f 74 49 44 3b 0a 09 43 4b 5f 55 ID slotID;..CK_U
2a710 4c 4f 4e 47 20 69 64 78 3b 0a 09 69 6e 74 20 6d LONG idx;..int m
2a720 75 74 65 78 5f 72 65 74 76 61 6c 3b 0a 0a 09 43 utex_retval;...C
2a730 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
2a740 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a TF("Called.");..
2a750 09 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 .if (!cackey_ini
2a760 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 tialized) {...CA
2a770 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
2a780 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 F("Error. Not i
2a790 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a nitialized.");..
2a7a0 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 ..return(CKR_CRY
2a7b0 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 PTOKI_NOT_INITIA
2a7c0 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 LIZED);..}...if
2a7d0 28 68 53 65 73 73 69 6f 6e 20 3d 3d 20 30 20 7c (hSession == 0 |
2a7e0 7c 20 68 53 65 73 73 69 6f 6e 20 3e 3d 20 28 73 | hSession >= (s
2a7f0 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 65 73 izeof(cackey_ses
2a800 73 69 6f 6e 73 29 20 2f 20 73 69 7a 65 6f 66 28 sions) / sizeof(
2a810 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b cackey_sessions[
2a820 30 5d 29 29 29 20 7b 0a 09 09 43 41 43 4b 45 59 0]))) {...CACKEY
2a830 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
2a840 72 72 6f 72 2e 20 20 53 65 73 73 69 6f 6e 20 6f rror. Session o
2a850 75 74 20 6f 66 20 72 61 6e 67 65 2e 22 29 3b 0a ut of range.");.
2a860 09 09 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f .....return(CKR_
2a870 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 5f 49 SESSION_HANDLE_I
2a880 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 6d 75 NVALID);..}...mu
2a890 74 65 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 tex_retval = cac
2a8a0 6b 65 79 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 63 key_mutex_lock(c
2a8b0 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a ackey_biglock);.
2a8c0 09 69 66 20 28 6d 75 74 65 78 5f 72 65 74 76 61 .if (mutex_retva
2a8d0 6c 20 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b l != 0) {...CACK
2a8e0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
2a8f0 22 45 72 72 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 "Error. Locking
2a900 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 failed.");....r
2a910 65 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 eturn(CKR_GENERA
2a920 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 L_ERROR);..}...i
2a930 66 20 28 21 63 61 63 6b 65 79 5f 73 65 73 73 69 f (!cackey_sessi
2a940 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 61 63 ons[hSession].ac
2a950 74 69 76 65 29 20 7b 0a 09 09 63 61 63 6b 65 79 tive) {...cackey
2a960 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 _mutex_unlock(ca
2a970 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a ckey_biglock);..
2a980 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
2a990 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 53 RINTF("Error. S
2a9a0 65 73 73 69 6f 6e 20 6e 6f 74 20 61 63 74 69 76 ession not activ
2a9b0 65 2e 22 29 3b 0a 09 09 0a 09 09 72 65 74 75 72 e.");......retur
2a9c0 6e 28 43 4b 52 5f 53 45 53 53 49 4f 4e 5f 48 41 n(CKR_SESSION_HA
2a9d0 4e 44 4c 45 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 NDLE_INVALID);..
2a9e0 7d 0a 0a 09 69 66 20 28 63 61 63 6b 65 79 5f 73 }...if (cackey_s
2a9f0 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e essions[hSession
2aa00 5d 2e 73 65 61 72 63 68 5f 61 63 74 69 76 65 29 ].search_active)
2aa10 20 7b 0a 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 {...cackey_mute
2aa20 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f x_unlock(cackey_
2aa30 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 43 41 43 biglock);....CAC
2aa40 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
2aa50 28 22 45 72 72 6f 72 2e 20 20 53 65 61 72 63 68 ("Error. Search
2aa60 20 61 6c 72 65 61 64 79 20 61 63 74 69 76 65 2e already active.
2aa70 22 29 3b 0a 09 09 0a 09 09 72 65 74 75 72 6e 28 ");......return(
2aa80 43 4b 52 5f 4f 50 45 52 41 54 49 4f 4e 5f 41 43 CKR_OPERATION_AC
2aa90 54 49 56 45 29 3b 0a 09 7d 0a 0a 09 73 6c 6f 74 TIVE);..}...slot
2aaa0 49 44 20 3d 20 63 61 63 6b 65 79 5f 73 65 73 73 ID = cackey_sess
2aab0 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 ions[hSession].s
2aac0 6c 6f 74 49 44 3b 0a 0a 09 69 66 20 28 73 6c 6f lotID;...if (slo
2aad0 74 49 44 20 3c 20 30 20 7c 7c 20 73 6c 6f 74 49 tID < 0 || slotI
2aae0 44 20 3e 3d 20 28 73 69 7a 65 6f 66 28 63 61 63 D >= (sizeof(cac
2aaf0 6b 65 79 5f 73 6c 6f 74 73 29 20 2f 20 73 69 7a key_slots) / siz
2ab00 65 6f 66 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 eof(cackey_slots
2ab10 5b 30 5d 29 29 29 20 7b 0a 09 09 43 41 43 4b 45 [0]))) {...CACKE
2ab20 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
2ab30 45 72 72 6f 72 2e 20 49 6e 76 61 6c 69 64 20 73 Error. Invalid s
2ab40 6c 6f 74 20 72 65 71 75 65 73 74 65 64 20 28 25 lot requested (%
2ab50 6c 75 29 2c 20 6f 75 74 73 69 64 65 20 6f 66 20 lu), outside of
2ab60 76 61 6c 69 64 20 72 61 6e 67 65 22 2c 20 73 6c valid range", sl
2ab70 6f 74 49 44 29 3b 0a 0a 09 09 72 65 74 75 72 6e otID);....return
2ab80 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 (CKR_GENERAL_ERR
2ab90 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 63 61 OR);..}...if (ca
2aba0 63 6b 65 79 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 ckey_slots[slotI
2abb0 44 5d 2e 61 63 74 69 76 65 20 3d 3d 20 30 29 20 D].active == 0)
2abc0 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
2abd0 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
2abe0 49 6e 76 61 6c 69 64 20 73 6c 6f 74 20 72 65 71 Invalid slot req
2abf0 75 65 73 74 65 64 20 28 25 6c 75 29 2c 20 73 6c uested (%lu), sl
2ac00 6f 74 20 6e 6f 74 20 63 75 72 72 65 6e 74 6c 79 ot not currently
2ac10 20 61 63 74 69 76 65 22 2c 20 73 6c 6f 74 49 44 active", slotID
2ac20 29 3b 0a 0a 09 09 63 61 63 6b 65 79 5f 6d 75 74 );....cackey_mut
2ac30 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 ex_unlock(cackey
2ac40 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 72 65 _biglock);....re
2ac50 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c turn(CKR_GENERAL
2ac60 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 _ERROR);..}...if
2ac70 20 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 73 (cackey_slots[s
2ac80 6c 6f 74 49 44 5d 2e 73 6c 6f 74 5f 72 65 73 65 lotID].slot_rese
2ac90 74 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 t) {...CACKEY_DE
2aca0 42 55 47 5f 50 52 49 4e 54 46 28 22 54 68 65 20 BUG_PRINTF("The
2acb0 73 6c 6f 74 20 68 61 73 20 62 65 65 6e 20 72 65 slot has been re
2acc0 73 65 74 20 73 69 6e 63 65 20 77 65 20 6c 61 73 set since we las
2acd0 74 20 6c 6f 6f 6b 65 64 20 66 6f 72 20 69 64 65 t looked for ide
2ace0 6e 74 69 74 69 65 73 20 2d 2d 20 72 65 73 63 61 ntities -- resca
2acf0 6e 6e 69 6e 67 22 29 3b 0a 0a 09 09 69 66 20 28 nning");....if (
2ad00 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b cackey_sessions[
2ad10 68 53 65 73 73 69 6f 6e 5d 2e 69 64 65 6e 74 69 hSession].identi
2ad20 74 69 65 73 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a ties != NULL) {.
2ad30 09 09 09 63 61 63 6b 65 79 5f 66 72 65 65 5f 69 ...cackey_free_i
2ad40 64 65 6e 74 69 74 69 65 73 28 63 61 63 6b 65 79 dentities(cackey
2ad50 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 _sessions[hSessi
2ad60 6f 6e 5d 2e 69 64 65 6e 74 69 74 69 65 73 2c 20 on].identities,
2ad70 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b cackey_sessions[
2ad80 68 53 65 73 73 69 6f 6e 5d 2e 69 64 65 6e 74 69 hSession].identi
2ad90 74 69 65 73 5f 63 6f 75 6e 74 29 3b 0a 0a 09 09 ties_count);....
2ada0 09 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 .cackey_sessions
2adb0 5b 68 53 65 73 73 69 6f 6e 5d 2e 69 64 65 6e 74 [hSession].ident
2adc0 69 74 69 65 73 20 3d 20 4e 55 4c 4c 3b 0a 09 09 ities = NULL;...
2add0 09 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 .cackey_sessions
2ade0 5b 68 53 65 73 73 69 6f 6e 5d 2e 69 64 65 6e 74 [hSession].ident
2adf0 69 74 69 65 73 5f 63 6f 75 6e 74 20 3d 20 30 3b ities_count = 0;
2ae00 0a 09 09 7d 0a 0a 09 09 69 66 20 28 63 61 63 6b ...}....if (cack
2ae10 65 79 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d ey_slots[slotID]
2ae20 2e 6c 61 62 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 .label != NULL)
2ae30 7b 0a 09 09 09 66 72 65 65 28 63 61 63 6b 65 79 {....free(cackey
2ae40 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 2e 6c _slots[slotID].l
2ae50 61 62 65 6c 29 3b 0a 09 09 09 63 61 63 6b 65 79 abel);....cackey
2ae60 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 2e 6c _slots[slotID].l
2ae70 61 62 65 6c 20 3d 20 4e 55 4c 4c 3b 0a 09 09 7d abel = NULL;...}
2ae80 0a 0a 09 09 63 61 63 6b 65 79 5f 6d 61 72 6b 5f ....cackey_mark_
2ae90 73 6c 6f 74 5f 72 65 73 65 74 28 26 63 61 63 6b slot_reset(&cack
2aea0 65 79 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d ey_slots[slotID]
2aeb0 29 3b 0a 09 09 63 61 63 6b 65 79 5f 73 6c 6f 74 );...cackey_slot
2aec0 73 5b 73 6c 6f 74 49 44 5d 2e 73 6c 6f 74 5f 72 s[slotID].slot_r
2aed0 65 73 65 74 20 3d 20 30 3b 0a 09 7d 0a 0a 09 69 eset = 0;..}...i
2aee0 66 20 28 63 61 63 6b 65 79 5f 73 65 73 73 69 6f f (cackey_sessio
2aef0 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 69 64 65 ns[hSession].ide
2af00 6e 74 69 74 69 65 73 20 3d 3d 20 4e 55 4c 4c 29 ntities == NULL)
2af10 20 7b 0a 09 09 63 61 63 6b 65 79 5f 73 65 73 73 {...cackey_sess
2af20 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 69 ions[hSession].i
2af30 64 65 6e 74 69 74 69 65 73 20 3d 20 63 61 63 6b dentities = cack
2af40 65 79 5f 72 65 61 64 5f 69 64 65 6e 74 69 74 69 ey_read_identiti
2af50 65 73 28 26 63 61 63 6b 65 79 5f 73 6c 6f 74 73 es(&cackey_slots
2af60 5b 73 6c 6f 74 49 44 5d 2c 20 26 63 61 63 6b 65 [slotID], &cacke
2af70 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 y_sessions[hSess
2af80 69 6f 6e 5d 2e 69 64 65 6e 74 69 74 69 65 73 5f ion].identities_
2af90 63 6f 75 6e 74 29 3b 0a 09 7d 0a 0a 09 69 66 20 count);..}...if
2afa0 28 70 54 65 6d 70 6c 61 74 65 20 21 3d 20 4e 55 (pTemplate != NU
2afb0 4c 4c 29 20 7b 0a 09 09 69 66 20 28 75 6c 43 6f LL) {...if (ulCo
2afc0 75 6e 74 20 21 3d 20 30 29 20 7b 0a 09 09 09 63 unt != 0) {....c
2afd0 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 ackey_sessions[h
2afe0 53 65 73 73 69 6f 6e 5d 2e 73 65 61 72 63 68 5f Session].search_
2aff0 71 75 65 72 79 5f 63 6f 75 6e 74 20 3d 20 75 6c query_count = ul
2b000 43 6f 75 6e 74 3b 0a 09 09 09 63 61 63 6b 65 79 Count;....cackey
2b010 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 _sessions[hSessi
2b020 6f 6e 5d 2e 73 65 61 72 63 68 5f 71 75 65 72 79 on].search_query
2b030 20 3d 20 6d 61 6c 6c 6f 63 28 75 6c 43 6f 75 6e = malloc(ulCoun
2b040 74 20 2a 20 73 69 7a 65 6f 66 28 2a 70 54 65 6d t * sizeof(*pTem
2b050 70 6c 61 74 65 29 29 3b 0a 0a 09 09 09 6d 65 6d plate));.....mem
2b060 63 70 79 28 63 61 63 6b 65 79 5f 73 65 73 73 69 cpy(cackey_sessi
2b070 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 65 ons[hSession].se
2b080 61 72 63 68 5f 71 75 65 72 79 2c 20 70 54 65 6d arch_query, pTem
2b090 70 6c 61 74 65 2c 20 75 6c 43 6f 75 6e 74 20 2a plate, ulCount *
2b0a0 20 73 69 7a 65 6f 66 28 2a 70 54 65 6d 70 6c 61 sizeof(*pTempla
2b0b0 74 65 29 29 3b 0a 09 09 09 66 6f 72 20 28 69 64 te));....for (id
2b0c0 78 20 3d 20 30 3b 20 69 64 78 20 3c 20 75 6c 43 x = 0; idx < ulC
2b0d0 6f 75 6e 74 3b 20 69 64 78 2b 2b 29 20 7b 0a 09 ount; idx++) {..
2b0e0 09 09 09 69 66 20 28 70 54 65 6d 70 6c 61 74 65 ...if (pTemplate
2b0f0 5b 69 64 78 5d 2e 75 6c 56 61 6c 75 65 4c 65 6e [idx].ulValueLen
2b100 20 3d 3d 20 30 29 20 7b 0a 09 09 09 09 09 63 61 == 0) {......ca
2b110 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 ckey_sessions[hS
2b120 65 73 73 69 6f 6e 5d 2e 73 65 61 72 63 68 5f 71 ession].search_q
2b130 75 65 72 79 5b 69 64 78 5d 2e 70 56 61 6c 75 65 uery[idx].pValue
2b140 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 09 09 09 09 63 = NULL;.......c
2b150 6f 6e 74 69 6e 75 65 3b 0a 09 09 09 09 7d 0a 0a ontinue;.....}..
2b160 09 09 09 09 63 61 63 6b 65 79 5f 73 65 73 73 69 ....cackey_sessi
2b170 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 65 ons[hSession].se
2b180 61 72 63 68 5f 71 75 65 72 79 5b 69 64 78 5d 2e arch_query[idx].
2b190 70 56 61 6c 75 65 20 3d 20 6d 61 6c 6c 6f 63 28 pValue = malloc(
2b1a0 70 54 65 6d 70 6c 61 74 65 5b 69 64 78 5d 2e 75 pTemplate[idx].u
2b1b0 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a 0a 09 09 09 lValueLen);.....
2b1c0 09 69 66 20 28 63 61 63 6b 65 79 5f 73 65 73 73 .if (cackey_sess
2b1d0 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 ions[hSession].s
2b1e0 65 61 72 63 68 5f 71 75 65 72 79 5b 69 64 78 5d earch_query[idx]
2b1f0 2e 70 56 61 6c 75 65 29 20 7b 0a 09 09 09 09 09 .pValue) {......
2b200 6d 65 6d 63 70 79 28 63 61 63 6b 65 79 5f 73 65 memcpy(cackey_se
2b210 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d ssions[hSession]
2b220 2e 73 65 61 72 63 68 5f 71 75 65 72 79 5b 69 64 .search_query[id
2b230 78 5d 2e 70 56 61 6c 75 65 2c 20 70 54 65 6d 70 x].pValue, pTemp
2b240 6c 61 74 65 5b 69 64 78 5d 2e 70 56 61 6c 75 65 late[idx].pValue
2b250 2c 20 70 54 65 6d 70 6c 61 74 65 5b 69 64 78 5d , pTemplate[idx]
2b260 2e 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a 09 09 .ulValueLen);...
2b270 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 20 65 6c 73 ..}....}...} els
2b280 65 20 7b 0a 09 09 09 63 61 63 6b 65 79 5f 73 65 e {....cackey_se
2b290 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d ssions[hSession]
2b2a0 2e 73 65 61 72 63 68 5f 71 75 65 72 79 5f 63 6f .search_query_co
2b2b0 75 6e 74 20 3d 20 30 3b 0a 09 09 09 63 61 63 6b unt = 0;....cack
2b2c0 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 ey_sessions[hSes
2b2d0 73 69 6f 6e 5d 2e 73 65 61 72 63 68 5f 71 75 65 sion].search_que
2b2e0 72 79 20 3d 20 4e 55 4c 4c 3b 0a 09 09 7d 0a 09 ry = NULL;...}..
2b2f0 7d 20 65 6c 73 65 20 7b 0a 09 09 69 66 20 28 75 } else {...if (u
2b300 6c 43 6f 75 6e 74 20 21 3d 20 30 29 20 7b 0a 09 lCount != 0) {..
2b310 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 ..cackey_mutex_u
2b320 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 nlock(cackey_big
2b330 6c 6f 63 6b 29 3b 0a 0a 09 09 09 43 41 43 4b 45 lock);.....CACKE
2b340 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
2b350 45 72 72 6f 72 2e 20 20 53 65 61 72 63 68 20 71 Error. Search q
2b360 75 65 72 79 20 73 70 65 63 69 66 69 65 64 20 61 uery specified a
2b370 73 20 4e 55 4c 4c 2c 20 62 75 74 20 6e 75 6d 62 s NULL, but numb
2b380 65 72 20 6f 66 20 71 75 65 72 79 20 74 65 72 6d er of query term
2b390 73 20 6e 6f 74 20 73 70 65 63 69 66 69 65 64 20 s not specified
2b3a0 61 73 20 30 2e 22 29 3b 0a 0a 09 09 09 72 65 74 as 0.");.....ret
2b3b0 75 72 6e 28 43 4b 52 5f 41 52 47 55 4d 45 4e 54 urn(CKR_ARGUMENT
2b3c0 53 5f 42 41 44 29 3b 0a 09 09 7d 0a 0a 09 09 63 S_BAD);...}....c
2b3d0 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 ackey_sessions[h
2b3e0 53 65 73 73 69 6f 6e 5d 2e 73 65 61 72 63 68 5f Session].search_
2b3f0 71 75 65 72 79 5f 63 6f 75 6e 74 20 3d 20 30 3b query_count = 0;
2b400 0a 09 09 63 61 63 6b 65 79 5f 73 65 73 73 69 6f ...cackey_sessio
2b410 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 65 61 ns[hSession].sea
2b420 72 63 68 5f 71 75 65 72 79 20 3d 20 4e 55 4c 4c rch_query = NULL
2b430 3b 0a 09 7d 0a 0a 09 63 61 63 6b 65 79 5f 73 65 ;..}...cackey_se
2b440 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d ssions[hSession]
2b450 2e 73 65 61 72 63 68 5f 61 63 74 69 76 65 20 3d .search_active =
2b460 20 31 3b 0a 09 63 61 63 6b 65 79 5f 73 65 73 73 1;..cackey_sess
2b470 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 ions[hSession].s
2b480 65 61 72 63 68 5f 63 75 72 72 5f 69 64 20 3d 20 earch_curr_id =
2b490 30 3b 0a 0a 09 6d 75 74 65 78 5f 72 65 74 76 61 0;...mutex_retva
2b4a0 6c 20 3d 20 63 61 63 6b 65 79 5f 6d 75 74 65 78 l = cackey_mutex
2b4b0 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 _unlock(cackey_b
2b4c0 69 67 6c 6f 63 6b 29 3b 0a 09 69 66 20 28 6d 75 iglock);..if (mu
2b4d0 74 65 78 5f 72 65 74 76 61 6c 20 21 3d 20 30 29 tex_retval != 0)
2b4e0 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
2b4f0 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
2b500 20 20 55 6e 6c 6f 63 6b 69 6e 67 20 66 61 69 6c Unlocking fail
2b510 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e ed.");....return
2b520 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 (CKR_GENERAL_ERR
2b530 4f 52 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 OR);..}...CACKEY
2b540 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 _DEBUG_PRINTF("R
2b550 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 4f 4b 20 eturning CKR_OK
2b560 28 25 69 29 22 2c 20 43 4b 52 5f 4f 4b 29 3b 0a (%i)", CKR_OK);.
2b570 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f 4b 29 ..return(CKR_OK)
2b580 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 ;.}..static int
2b590 63 61 63 6b 65 79 5f 70 6b 63 73 31 31 5f 63 6f cackey_pkcs11_co
2b5a0 6d 70 61 72 65 5f 61 74 74 72 69 62 75 74 65 73 mpare_attributes
2b5b0 28 43 4b 5f 41 54 54 52 49 42 55 54 45 20 2a 61 (CK_ATTRIBUTE *a
2b5c0 2c 20 43 4b 5f 41 54 54 52 49 42 55 54 45 20 2a , CK_ATTRIBUTE *
2b5d0 62 29 20 7b 0a 09 75 6e 73 69 67 6e 65 64 20 63 b) {..unsigned c
2b5e0 68 61 72 20 2a 73 6d 61 6c 6c 62 75 66 2c 20 2a har *smallbuf, *
2b5f0 6c 61 72 67 65 62 75 66 3b 0a 09 73 69 7a 65 5f largebuf;..size_
2b600 74 20 73 6d 61 6c 6c 62 75 66 5f 6c 65 6e 2c 20 t smallbuf_len,
2b610 6c 61 72 67 65 62 75 66 5f 6c 65 6e 3b 0a 0a 09 largebuf_len;...
2b620 69 66 20 28 61 2d 3e 74 79 70 65 20 21 3d 20 62 if (a->type != b
2b630 2d 3e 74 79 70 65 29 20 7b 0a 09 09 72 65 74 75 ->type) {...retu
2b640 72 6e 28 30 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b rn(0);..}...CACK
2b650 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
2b660 22 20 20 20 20 2e 2e 2e 20 66 6f 75 6e 64 20 6d " ... found m
2b670 61 74 63 68 69 6e 67 20 74 79 70 65 20 2e 2e 2e atching type ...
2b680 22 29 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 ");...CACKEY_DEB
2b690 55 47 5f 50 52 49 4e 54 42 55 46 28 22 20 20 20 UG_PRINTBUF("
2b6a0 20 2e 2e 2e 20 6f 75 72 20 76 61 6c 75 65 3a 22 ... our value:"
2b6b0 2c 20 61 2d 3e 70 56 61 6c 75 65 2c 20 61 2d 3e , a->pValue, a->
2b6c0 75 6c 56 61 6c 75 65 4c 65 6e 29 3b 0a 0a 09 69 ulValueLen);...i
2b6d0 66 20 28 62 2d 3e 70 56 61 6c 75 65 20 3d 3d 20 f (b->pValue ==
2b6e0 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b 45 59 NULL) {...CACKEY
2b6f0 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 20 _DEBUG_PRINTF("
2b700 20 20 20 20 20 20 2e 2e 2e 20 66 6f 75 6e 64 20 ... found
2b710 77 69 6c 64 63 61 72 64 20 6d 61 74 63 68 22 29 wildcard match")
2b720 3b 0a 0a 09 09 72 65 74 75 72 6e 28 31 29 3b 0a ;....return(1);.
2b730 09 7d 0a 0a 09 69 66 20 28 61 2d 3e 70 56 61 6c .}...if (a->pVal
2b740 75 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 ue == NULL) {...
2b750 72 65 74 75 72 6e 28 30 29 3b 0a 09 7d 0a 0a 20 return(0);..}..
2b760 09 69 66 20 28 62 2d 3e 75 6c 56 61 6c 75 65 4c .if (b->ulValueL
2b770 65 6e 20 3d 3d 20 61 2d 3e 75 6c 56 61 6c 75 65 en == a->ulValue
2b780 4c 65 6e 20 26 26 20 6d 65 6d 63 6d 70 28 61 2d Len && memcmp(a-
2b790 3e 70 56 61 6c 75 65 2c 20 62 2d 3e 70 56 61 6c >pValue, b->pVal
2b7a0 75 65 2c 20 62 2d 3e 75 6c 56 61 6c 75 65 4c 65 ue, b->ulValueLe
2b7b0 6e 29 20 3d 3d 20 30 29 20 7b 0a 09 09 43 41 43 n) == 0) {...CAC
2b7c0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
2b7d0 28 22 20 20 20 20 20 20 20 2e 2e 2e 20 66 6f 75 (" ... fou
2b7e0 6e 64 20 65 78 61 63 74 20 6d 61 74 63 68 22 29 nd exact match")
2b7f0 3b 0a 0a 09 09 72 65 74 75 72 6e 28 31 29 3b 0a ;....return(1);.
2b800 09 7d 0a 0a 09 73 77 69 74 63 68 20 28 61 2d 3e .}...switch (a->
2b810 74 79 70 65 29 20 7b 0a 09 09 63 61 73 65 20 43 type) {...case C
2b820 4b 41 5f 4d 4f 44 55 4c 55 53 3a 0a 09 09 09 69 KA_MODULUS:....i
2b830 66 20 28 61 2d 3e 75 6c 56 61 6c 75 65 4c 65 6e f (a->ulValueLen
2b840 20 3d 3d 20 62 2d 3e 75 6c 56 61 6c 75 65 4c 65 == b->ulValueLe
2b850 6e 29 20 7b 0a 09 09 09 09 62 72 65 61 6b 3b 0a n) {.....break;.
2b860 09 09 09 7d 0a 0a 09 09 09 69 66 20 28 61 2d 3e ...}.....if (a->
2b870 75 6c 56 61 6c 75 65 4c 65 6e 20 3e 20 62 2d 3e ulValueLen > b->
2b880 75 6c 56 61 6c 75 65 4c 65 6e 29 20 7b 0a 09 09 ulValueLen) {...
2b890 09 09 73 6d 61 6c 6c 62 75 66 20 3d 20 62 2d 3e ..smallbuf = b->
2b8a0 70 56 61 6c 75 65 3b 0a 09 09 09 09 73 6d 61 6c pValue;.....smal
2b8b0 6c 62 75 66 5f 6c 65 6e 20 3d 20 62 2d 3e 75 6c lbuf_len = b->ul
2b8c0 56 61 6c 75 65 4c 65 6e 3b 0a 0a 09 09 09 09 6c ValueLen;......l
2b8d0 61 72 67 65 62 75 66 20 3d 20 61 2d 3e 70 56 61 argebuf = a->pVa
2b8e0 6c 75 65 3b 0a 09 09 09 09 6c 61 72 67 65 62 75 lue;.....largebu
2b8f0 66 5f 6c 65 6e 20 3d 20 61 2d 3e 75 6c 56 61 6c f_len = a->ulVal
2b900 75 65 4c 65 6e 3b 0a 09 09 09 7d 20 65 6c 73 65 ueLen;....} else
2b910 20 7b 0a 09 09 09 09 73 6d 61 6c 6c 62 75 66 20 {.....smallbuf
2b920 3d 20 61 2d 3e 70 56 61 6c 75 65 3b 0a 09 09 09 = a->pValue;....
2b930 09 73 6d 61 6c 6c 62 75 66 5f 6c 65 6e 20 3d 20 .smallbuf_len =
2b940 61 2d 3e 75 6c 56 61 6c 75 65 4c 65 6e 3b 0a 0a a->ulValueLen;..
2b950 09 09 09 09 6c 61 72 67 65 62 75 66 20 3d 20 62 ....largebuf = b
2b960 2d 3e 70 56 61 6c 75 65 3b 0a 09 09 09 09 6c 61 ->pValue;.....la
2b970 72 67 65 62 75 66 5f 6c 65 6e 20 3d 20 62 2d 3e rgebuf_len = b->
2b980 75 6c 56 61 6c 75 65 4c 65 6e 3b 0a 09 09 09 7d ulValueLen;....}
2b990 0a 0a 09 09 09 66 6f 72 20 28 3b 20 6c 61 72 67 .....for (; larg
2b9a0 65 62 75 66 5f 6c 65 6e 20 21 3d 20 73 6d 61 6c ebuf_len != smal
2b9b0 6c 62 75 66 5f 6c 65 6e 3b 20 6c 61 72 67 65 62 lbuf_len; largeb
2b9c0 75 66 2b 2b 2c 6c 61 72 67 65 62 75 66 5f 6c 65 uf++,largebuf_le
2b9d0 6e 2d 2d 29 20 7b 0a 09 09 09 09 69 66 20 28 6c n--) {.....if (l
2b9e0 61 72 67 65 62 75 66 5b 30 5d 20 21 3d 20 30 29 argebuf[0] != 0)
2b9f0 20 7b 0a 09 09 09 09 09 62 72 65 61 6b 3b 0a 09 {......break;..
2ba00 09 09 09 7d 0a 09 09 09 7d 0a 0a 09 09 09 69 66 ...}....}.....if
2ba10 20 28 6c 61 72 67 65 62 75 66 5f 6c 65 6e 20 21 (largebuf_len !
2ba20 3d 20 73 6d 61 6c 6c 62 75 66 5f 6c 65 6e 29 20 = smallbuf_len)
2ba30 7b 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 {.....break;....
2ba40 7d 0a 0a 09 09 09 69 66 20 28 6d 65 6d 63 6d 70 }.....if (memcmp
2ba50 28 6c 61 72 67 65 62 75 66 2c 20 73 6d 61 6c 6c (largebuf, small
2ba60 62 75 66 2c 20 73 6d 61 6c 6c 62 75 66 5f 6c 65 buf, smallbuf_le
2ba70 6e 29 20 3d 3d 20 30 29 20 7b 0a 09 09 09 09 43 n) == 0) {.....C
2ba80 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
2ba90 54 46 28 22 20 20 20 20 20 20 20 2e 2e 2e 20 66 TF(" ... f
2baa0 6f 75 6e 64 20 61 70 70 72 6f 78 69 6d 61 74 65 ound approximate
2bab0 20 6d 61 74 63 68 22 29 3b 0a 0a 09 09 09 09 72 match");......r
2bac0 65 74 75 72 6e 28 31 29 3b 0a 09 09 09 7d 0a 0a eturn(1);....}..
2bad0 09 09 09 62 72 65 61 6b 3b 0a 09 7d 0a 0a 09 72 ...break;..}...r
2bae0 65 74 75 72 6e 28 30 29 3b 0a 7d 0a 0a 43 4b 5f eturn(0);.}..CK_
2baf0 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 DEFINE_FUNCTION(
2bb00 43 4b 5f 52 56 2c 20 43 5f 46 69 6e 64 4f 62 6a CK_RV, C_FindObj
2bb10 65 63 74 73 29 28 43 4b 5f 53 45 53 53 49 4f 4e ects)(CK_SESSION
2bb20 5f 48 41 4e 44 4c 45 20 68 53 65 73 73 69 6f 6e _HANDLE hSession
2bb30 2c 20 43 4b 5f 4f 42 4a 45 43 54 5f 48 41 4e 44 , CK_OBJECT_HAND
2bb40 4c 45 5f 50 54 52 20 70 68 4f 62 6a 65 63 74 2c LE_PTR phObject,
2bb50 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 4d 61 78 4f CK_ULONG ulMaxO
2bb60 62 6a 65 63 74 43 6f 75 6e 74 2c 20 43 4b 5f 55 bjectCount, CK_U
2bb70 4c 4f 4e 47 5f 50 54 52 20 70 75 6c 4f 62 6a 65 LONG_PTR pulObje
2bb80 63 74 43 6f 75 6e 74 29 20 7b 0a 09 73 74 72 75 ctCount) {..stru
2bb90 63 74 20 63 61 63 6b 65 79 5f 69 64 65 6e 74 69 ct cackey_identi
2bba0 74 79 20 2a 63 75 72 72 5f 69 64 3b 0a 09 43 4b ty *curr_id;..CK
2bbb0 5f 41 54 54 52 49 42 55 54 45 20 2a 63 75 72 72 _ATTRIBUTE *curr
2bbc0 5f 61 74 74 72 3b 0a 09 43 4b 5f 55 4c 4f 4e 47 _attr;..CK_ULONG
2bbd0 20 63 75 72 72 5f 69 64 5f 69 64 78 2c 20 63 75 curr_id_idx, cu
2bbe0 72 72 5f 6f 75 74 5f 69 64 5f 69 64 78 2c 20 63 rr_out_id_idx, c
2bbf0 75 72 72 5f 61 74 74 72 5f 69 64 78 2c 20 73 65 urr_attr_idx, se
2bc00 73 73 5f 61 74 74 72 5f 69 64 78 3b 0a 09 43 4b ss_attr_idx;..CK
2bc10 5f 55 4c 4f 4e 47 20 6d 61 74 63 68 65 64 5f 63 _ULONG matched_c
2bc20 6f 75 6e 74 2c 20 70 72 65 76 5f 6d 61 74 63 68 ount, prev_match
2bc30 65 64 5f 63 6f 75 6e 74 3b 0a 09 69 6e 74 20 6d ed_count;..int m
2bc40 75 74 65 78 5f 72 65 74 76 61 6c 3b 0a 23 69 66 utex_retval;.#if
2bc50 64 65 66 20 43 41 43 4b 45 59 5f 44 45 42 55 47 def CACKEY_DEBUG
2bc60 5f 53 45 41 52 43 48 5f 53 50 45 45 44 54 45 53 _SEARCH_SPEEDTES
2bc70 54 0a 09 73 74 72 75 63 74 20 74 69 6d 65 76 61 T..struct timeva
2bc80 6c 20 73 74 61 72 74 2c 20 65 6e 64 3b 0a 09 75 l start, end;..u
2bc90 69 6e 74 36 34 5f 74 20 73 74 61 72 74 5f 69 6e int64_t start_in
2bca0 74 2c 20 65 6e 64 5f 69 6e 74 3b 0a 23 65 6e 64 t, end_int;.#end
2bcb0 69 66 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 if...CACKEY_DEBU
2bcc0 47 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 G_PRINTF("Called
2bcd0 2e 22 29 3b 0a 0a 09 69 66 20 28 21 63 61 63 6b .");...if (!cack
2bce0 65 79 5f 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 ey_initialized)
2bcf0 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
2bd00 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
2bd10 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 Not initialized
2bd20 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 .");....return(C
2bd30 4b 52 5f 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f KR_CRYPTOKI_NOT_
2bd40 49 4e 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d INITIALIZED);..}
2bd50 0a 0a 09 69 66 20 28 70 75 6c 4f 62 6a 65 63 74 ...if (pulObject
2bd60 43 6f 75 6e 74 20 3d 3d 20 4e 55 4c 4c 29 20 7b Count == NULL) {
2bd70 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
2bd80 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 PRINTF("Error.
2bd90 70 75 6c 4f 62 6a 65 63 74 43 6f 75 6e 74 20 69 pulObjectCount i
2bda0 73 20 4e 55 4c 4c 2e 22 29 3b 0a 0a 09 09 72 65 s NULL.");....re
2bdb0 74 75 72 6e 28 43 4b 52 5f 41 52 47 55 4d 45 4e turn(CKR_ARGUMEN
2bdc0 54 53 5f 42 41 44 29 3b 0a 09 7d 0a 0a 09 69 66 TS_BAD);..}...if
2bdd0 20 28 70 68 4f 62 6a 65 63 74 20 3d 3d 20 4e 55 (phObject == NU
2bde0 4c 4c 20 26 26 20 75 6c 4d 61 78 4f 62 6a 65 63 LL && ulMaxObjec
2bdf0 74 43 6f 75 6e 74 20 3d 3d 20 30 29 20 7b 0a 09 tCount == 0) {..
2be00 09 2f 2a 20 53 68 6f 72 74 20 63 69 72 63 75 69 ./* Short circui
2be10 74 2c 20 69 66 20 7a 65 72 6f 20 6f 62 6a 65 63 t, if zero objec
2be20 74 73 20 77 65 72 65 20 73 70 65 63 69 66 69 65 ts were specifie
2be30 64 20 72 65 74 75 72 6e 20 7a 65 72 6f 20 69 74 d return zero it
2be40 65 6d 73 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 ems immediately
2be50 2a 2f 0a 09 09 2a 70 75 6c 4f 62 6a 65 63 74 43 */...*pulObjectC
2be60 6f 75 6e 74 20 3d 20 30 3b 0a 0a 09 09 43 41 43 ount = 0;....CAC
2be70 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
2be80 28 22 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f ("Returning CKR_
2be90 4f 4b 20 28 25 69 29 20 28 73 68 6f 72 74 20 63 OK (%i) (short c
2bea0 69 72 63 75 69 74 29 22 2c 20 43 4b 52 5f 4f 4b ircuit)", CKR_OK
2beb0 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 );....return(CKR
2bec0 5f 4f 4b 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 70 _OK);..}...if (p
2bed0 68 4f 62 6a 65 63 74 20 3d 3d 20 4e 55 4c 4c 29 hObject == NULL)
2bee0 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
2bef0 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
2bf00 20 20 70 68 4f 62 6a 65 63 74 20 69 73 20 4e 55 phObject is NU
2bf10 4c 4c 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e LL.");....return
2bf20 28 43 4b 52 5f 41 52 47 55 4d 45 4e 54 53 5f 42 (CKR_ARGUMENTS_B
2bf30 41 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 75 6c AD);..}...if (ul
2bf40 4d 61 78 4f 62 6a 65 63 74 43 6f 75 6e 74 20 3d MaxObjectCount =
2bf50 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f = 0) {...CACKEY_
2bf60 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
2bf70 72 6f 72 2e 20 20 4d 61 78 69 6d 75 6d 20 6e 75 ror. Maximum nu
2bf80 6d 62 65 72 20 6f 66 20 6f 62 6a 65 63 74 73 20 mber of objects
2bf90 73 70 65 63 69 66 69 65 64 20 61 73 20 7a 65 72 specified as zer
2bfa0 6f 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 o.");....return(
2bfb0 43 4b 52 5f 41 52 47 55 4d 45 4e 54 53 5f 42 41 CKR_ARGUMENTS_BA
2bfc0 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 68 53 65 D);..}...if (hSe
2bfd0 73 73 69 6f 6e 20 3d 3d 20 30 20 7c 7c 20 68 53 ssion == 0 || hS
2bfe0 65 73 73 69 6f 6e 20 3e 3d 20 28 73 69 7a 65 6f ession >= (sizeo
2bff0 66 28 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e f(cackey_session
2c000 73 29 20 2f 20 73 69 7a 65 6f 66 28 63 61 63 6b s) / sizeof(cack
2c010 65 79 5f 73 65 73 73 69 6f 6e 73 5b 30 5d 29 29 ey_sessions[0]))
2c020 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 ) {...CACKEY_DEB
2c030 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 UG_PRINTF("Error
2c040 2e 20 20 53 65 73 73 69 6f 6e 20 6f 75 74 20 6f . Session out o
2c050 66 20 72 61 6e 67 65 2e 22 29 3b 0a 09 09 0a 09 f range.");.....
2c060 09 72 65 74 75 72 6e 28 43 4b 52 5f 53 45 53 53 .return(CKR_SESS
2c070 49 4f 4e 5f 48 41 4e 44 4c 45 5f 49 4e 56 41 4c ION_HANDLE_INVAL
2c080 49 44 29 3b 0a 09 7d 0a 0a 09 6d 75 74 65 78 5f ID);..}...mutex_
2c090 72 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 79 5f retval = cackey_
2c0a0 6d 75 74 65 78 5f 6c 6f 63 6b 28 63 61 63 6b 65 mutex_lock(cacke
2c0b0 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 69 66 20 y_biglock);..if
2c0c0 28 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 21 3d (mutex_retval !=
2c0d0 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 0) {...CACKEY_D
2c0e0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
2c0f0 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 20 66 61 69 or. Locking fai
2c100 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 led.");....retur
2c110 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 n(CKR_GENERAL_ER
2c120 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 21 ROR);..}...if (!
2c130 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b cackey_sessions[
2c140 68 53 65 73 73 69 6f 6e 5d 2e 61 63 74 69 76 65 hSession].active
2c150 29 20 7b 0a 09 09 63 61 63 6b 65 79 5f 6d 75 74 ) {...cackey_mut
2c160 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 ex_unlock(cackey
2c170 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 43 41 _biglock);....CA
2c180 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
2c190 46 28 22 45 72 72 6f 72 2e 20 20 53 65 73 73 69 F("Error. Sessi
2c1a0 6f 6e 20 6e 6f 74 20 61 63 74 69 76 65 2e 22 29 on not active.")
2c1b0 3b 0a 09 09 0a 09 09 72 65 74 75 72 6e 28 43 4b ;......return(CK
2c1c0 52 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 R_SESSION_HANDLE
2c1d0 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 _INVALID);..}...
2c1e0 69 66 20 28 21 63 61 63 6b 65 79 5f 73 65 73 73 if (!cackey_sess
2c1f0 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 ions[hSession].s
2c200 65 61 72 63 68 5f 61 63 74 69 76 65 29 20 7b 0a earch_active) {.
2c210 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 ..cackey_mutex_u
2c220 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 nlock(cackey_big
2c230 6c 6f 63 6b 29 3b 0a 0a 09 09 43 41 43 4b 45 59 lock);....CACKEY
2c240 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
2c250 72 72 6f 72 2e 20 20 53 65 61 72 63 68 20 6e 6f rror. Search no
2c260 74 20 61 63 74 69 76 65 2e 22 29 3b 0a 09 09 0a t active.");....
2c270 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f 50 45 ..return(CKR_OPE
2c280 52 41 54 49 4f 4e 5f 4e 4f 54 5f 49 4e 49 54 49 RATION_NOT_INITI
2c290 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 23 69 66 ALIZED);..}..#if
2c2a0 64 65 66 20 43 41 43 4b 45 59 5f 44 45 42 55 47 def CACKEY_DEBUG
2c2b0 5f 53 45 41 52 43 48 5f 53 50 45 45 44 54 45 53 _SEARCH_SPEEDTES
2c2c0 54 0a 09 67 65 74 74 69 6d 65 6f 66 64 61 79 28 T..gettimeofday(
2c2d0 26 73 74 61 72 74 2c 20 4e 55 4c 4c 29 3b 0a 23 &start, NULL);.#
2c2e0 65 6e 64 69 66 0a 0a 09 63 75 72 72 5f 6f 75 74 endif...curr_out
2c2f0 5f 69 64 5f 69 64 78 20 3d 20 30 3b 0a 09 66 6f _id_idx = 0;..fo
2c300 72 20 28 63 75 72 72 5f 69 64 5f 69 64 78 20 3d r (curr_id_idx =
2c310 20 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 cackey_sessions
2c320 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 65 61 72 63 [hSession].searc
2c330 68 5f 63 75 72 72 5f 69 64 3b 20 63 75 72 72 5f h_curr_id; curr_
2c340 69 64 5f 69 64 78 20 3c 20 63 61 63 6b 65 79 5f id_idx < cackey_
2c350 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f sessions[hSessio
2c360 6e 5d 2e 69 64 65 6e 74 69 74 69 65 73 5f 63 6f n].identities_co
2c370 75 6e 74 20 26 26 20 75 6c 4d 61 78 4f 62 6a 65 unt && ulMaxObje
2c380 63 74 43 6f 75 6e 74 3b 20 63 75 72 72 5f 69 64 ctCount; curr_id
2c390 5f 69 64 78 2b 2b 29 20 7b 0a 09 09 63 75 72 72 _idx++) {...curr
2c3a0 5f 69 64 20 3d 20 26 63 61 63 6b 65 79 5f 73 65 _id = &cackey_se
2c3b0 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d ssions[hSession]
2c3c0 2e 69 64 65 6e 74 69 74 69 65 73 5b 63 75 72 72 .identities[curr
2c3d0 5f 69 64 5f 69 64 78 5d 3b 0a 0a 09 09 43 41 43 _id_idx];....CAC
2c3e0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
2c3f0 28 22 50 72 6f 63 65 73 73 69 6e 67 20 69 64 65 ("Processing ide
2c400 6e 74 69 74 79 3a 25 6c 75 22 2c 20 28 75 6e 73 ntity:%lu", (uns
2c410 69 67 6e 65 64 20 6c 6f 6e 67 29 20 63 75 72 72 igned long) curr
2c420 5f 69 64 5f 69 64 78 29 3b 0a 0a 09 09 6d 61 74 _id_idx);....mat
2c430 63 68 65 64 5f 63 6f 75 6e 74 20 3d 20 30 3b 0a ched_count = 0;.
2c440 0a 09 09 66 6f 72 20 28 63 75 72 72 5f 61 74 74 ...for (curr_att
2c450 72 5f 69 64 78 20 3d 20 30 3b 20 63 75 72 72 5f r_idx = 0; curr_
2c460 61 74 74 72 5f 69 64 78 20 3c 20 63 61 63 6b 65 attr_idx < cacke
2c470 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 y_sessions[hSess
2c480 69 6f 6e 5d 2e 73 65 61 72 63 68 5f 71 75 65 72 ion].search_quer
2c490 79 5f 63 6f 75 6e 74 3b 20 63 75 72 72 5f 61 74 y_count; curr_at
2c4a0 74 72 5f 69 64 78 2b 2b 29 20 7b 0a 09 09 09 70 tr_idx++) {....p
2c4b0 72 65 76 5f 6d 61 74 63 68 65 64 5f 63 6f 75 6e rev_matched_coun
2c4c0 74 20 3d 20 6d 61 74 63 68 65 64 5f 63 6f 75 6e t = matched_coun
2c4d0 74 3b 0a 0a 09 09 09 63 75 72 72 5f 61 74 74 72 t;.....curr_attr
2c4e0 20 3d 20 26 63 61 63 6b 65 79 5f 73 65 73 73 69 = &cackey_sessi
2c4f0 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 65 ons[hSession].se
2c500 61 72 63 68 5f 71 75 65 72 79 5b 63 75 72 72 5f arch_query[curr_
2c510 61 74 74 72 5f 69 64 78 5d 3b 0a 0a 09 09 09 43 attr_idx];.....C
2c520 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
2c530 54 46 28 22 20 20 43 68 65 63 6b 69 6e 67 20 66 TF(" Checking f
2c540 6f 72 20 61 74 74 72 69 62 75 74 65 20 25 73 20 or attribute %s
2c550 28 30 78 25 30 38 6c 78 29 20 69 6e 20 69 64 65 (0x%08lx) in ide
2c560 6e 74 69 74 79 3a 25 69 2e 2e 2e 22 2c 20 43 41 ntity:%i...", CA
2c570 43 4b 45 59 5f 44 45 42 55 47 5f 46 55 4e 43 5f CKEY_DEBUG_FUNC_
2c580 41 54 54 52 49 42 55 54 45 5f 54 4f 5f 53 54 52 ATTRIBUTE_TO_STR
2c590 28 63 75 72 72 5f 61 74 74 72 2d 3e 74 79 70 65 (curr_attr->type
2c5a0 29 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e ), (unsigned lon
2c5b0 67 29 20 63 75 72 72 5f 61 74 74 72 2d 3e 74 79 g) curr_attr->ty
2c5c0 70 65 2c 20 28 69 6e 74 29 20 63 75 72 72 5f 69 pe, (int) curr_i
2c5d0 64 5f 69 64 78 29 3b 0a 09 09 09 43 41 43 4b 45 d_idx);....CACKE
2c5e0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 42 55 46 Y_DEBUG_PRINTBUF
2c5f0 28 22 20 20 20 20 56 61 6c 75 65 20 6c 6f 6f 6b (" Value look
2c600 69 6e 67 20 66 6f 72 3a 22 2c 20 63 75 72 72 5f ing for:", curr_
2c610 61 74 74 72 2d 3e 70 56 61 6c 75 65 2c 20 63 75 attr->pValue, cu
2c620 72 72 5f 61 74 74 72 2d 3e 75 6c 56 61 6c 75 65 rr_attr->ulValue
2c630 4c 65 6e 29 3b 0a 0a 09 09 09 66 6f 72 20 28 73 Len);.....for (s
2c640 65 73 73 5f 61 74 74 72 5f 69 64 78 20 3d 20 30 ess_attr_idx = 0
2c650 3b 20 73 65 73 73 5f 61 74 74 72 5f 69 64 78 20 ; sess_attr_idx
2c660 3c 20 63 75 72 72 5f 69 64 2d 3e 61 74 74 72 69 < curr_id->attri
2c670 62 75 74 65 73 5f 63 6f 75 6e 74 3b 20 73 65 73 butes_count; ses
2c680 73 5f 61 74 74 72 5f 69 64 78 2b 2b 29 20 7b 0a s_attr_idx++) {.
2c690 09 09 09 09 69 66 20 28 63 61 63 6b 65 79 5f 70 ....if (cackey_p
2c6a0 6b 63 73 31 31 5f 63 6f 6d 70 61 72 65 5f 61 74 kcs11_compare_at
2c6b0 74 72 69 62 75 74 65 73 28 26 63 75 72 72 5f 69 tributes(&curr_i
2c6c0 64 2d 3e 61 74 74 72 69 62 75 74 65 73 5b 73 65 d->attributes[se
2c6d0 73 73 5f 61 74 74 72 5f 69 64 78 5d 2c 20 63 75 ss_attr_idx], cu
2c6e0 72 72 5f 61 74 74 72 29 29 20 7b 0a 09 09 09 09 rr_attr)) {.....
2c6f0 09 6d 61 74 63 68 65 64 5f 63 6f 75 6e 74 2b 2b .matched_count++
2c700 3b 0a 0a 09 09 09 09 09 62 72 65 61 6b 3b 0a 09 ;.......break;..
2c710 09 09 09 7d 0a 09 09 09 7d 0a 0a 09 09 09 2f 2a ...}....}...../*
2c720 20 49 66 20 74 68 65 20 61 74 74 72 69 62 75 74 If the attribut
2c730 65 20 63 6f 75 6c 64 20 6e 6f 74 20 62 65 20 6d e could not be m
2c740 61 74 63 68 65 64 2c 20 64 6f 20 6e 6f 74 20 74 atched, do not t
2c750 72 79 20 74 6f 20 6d 61 74 63 68 20 61 64 64 69 ry to match addi
2c760 74 69 6f 6e 61 6c 20 61 74 74 72 69 62 75 74 65 tional attribute
2c770 73 20 2a 2f 0a 09 09 09 69 66 20 28 70 72 65 76 s */....if (prev
2c780 5f 6d 61 74 63 68 65 64 5f 63 6f 75 6e 74 20 3d _matched_count =
2c790 3d 20 6d 61 74 63 68 65 64 5f 63 6f 75 6e 74 29 = matched_count)
2c7a0 20 7b 0a 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 {.....break;...
2c7b0 09 7d 0a 09 09 7d 0a 0a 09 09 69 66 20 28 6d 61 .}...}....if (ma
2c7c0 74 63 68 65 64 5f 63 6f 75 6e 74 20 3d 3d 20 63 tched_count == c
2c7d0 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 ackey_sessions[h
2c7e0 53 65 73 73 69 6f 6e 5d 2e 73 65 61 72 63 68 5f Session].search_
2c7f0 71 75 65 72 79 5f 63 6f 75 6e 74 29 20 7b 0a 09 query_count) {..
2c800 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
2c810 52 49 4e 54 46 28 22 20 20 2e 2e 2e 20 41 6c 6c RINTF(" ... All
2c820 20 25 69 20 61 74 74 72 69 62 75 74 65 73 20 63 %i attributes c
2c830 68 65 63 6b 65 64 20 66 6f 72 20 66 6f 75 6e 64 hecked for found
2c840 2c 20 61 64 64 69 6e 67 20 69 64 65 6e 74 69 74 , adding identit
2c850 79 3a 25 69 20 74 6f 20 72 65 74 75 72 6e 65 64 y:%i to returned
2c860 20 6c 69 73 74 22 2c 20 28 69 6e 74 29 20 63 61 list", (int) ca
2c870 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 ckey_sessions[hS
2c880 65 73 73 69 6f 6e 5d 2e 73 65 61 72 63 68 5f 71 ession].search_q
2c890 75 65 72 79 5f 63 6f 75 6e 74 2c 20 28 69 6e 74 uery_count, (int
2c8a0 29 20 63 75 72 72 5f 69 64 5f 69 64 78 29 3b 0a ) curr_id_idx);.
2c8b0 0a 09 09 09 70 68 4f 62 6a 65 63 74 5b 63 75 72 ....phObject[cur
2c8c0 72 5f 6f 75 74 5f 69 64 5f 69 64 78 5d 20 3d 20 r_out_id_idx] =
2c8d0 63 75 72 72 5f 69 64 5f 69 64 78 20 2b 20 31 3b curr_id_idx + 1;
2c8e0 0a 0a 09 09 09 75 6c 4d 61 78 4f 62 6a 65 63 74 .....ulMaxObject
2c8f0 43 6f 75 6e 74 2d 2d 3b 0a 0a 09 09 09 63 75 72 Count--;.....cur
2c900 72 5f 6f 75 74 5f 69 64 5f 69 64 78 2b 2b 3b 0a r_out_id_idx++;.
2c910 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 43 41 ..} else {....CA
2c920 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
2c930 46 28 22 20 20 2e 2e 2e 20 4e 6f 74 20 61 6c 6c F(" ... Not all
2c940 20 25 69 20 28 6f 6e 6c 79 20 66 6f 75 6e 64 20 %i (only found
2c950 25 69 29 20 61 74 74 72 69 62 75 74 65 73 20 63 %i) attributes c
2c960 68 65 63 6b 65 64 20 66 6f 72 20 66 6f 75 6e 64 hecked for found
2c970 2c 20 6e 6f 74 20 61 64 64 69 6e 67 20 69 64 65 , not adding ide
2c980 6e 74 69 74 79 3a 25 69 22 2c 20 28 69 6e 74 29 ntity:%i", (int)
2c990 20 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 cackey_sessions
2c9a0 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 65 61 72 63 [hSession].searc
2c9b0 68 5f 71 75 65 72 79 5f 63 6f 75 6e 74 2c 20 28 h_query_count, (
2c9c0 69 6e 74 29 20 6d 61 74 63 68 65 64 5f 63 6f 75 int) matched_cou
2c9d0 6e 74 2c 20 28 69 6e 74 29 20 63 75 72 72 5f 69 nt, (int) curr_i
2c9e0 64 5f 69 64 78 29 3b 0a 09 09 7d 0a 09 7d 0a 09 d_idx);...}..}..
2c9f0 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b cackey_sessions[
2ca00 68 53 65 73 73 69 6f 6e 5d 2e 73 65 61 72 63 68 hSession].search
2ca10 5f 63 75 72 72 5f 69 64 20 3d 20 63 75 72 72 5f _curr_id = curr_
2ca20 69 64 5f 69 64 78 3b 0a 09 2a 70 75 6c 4f 62 6a id_idx;..*pulObj
2ca30 65 63 74 43 6f 75 6e 74 20 3d 20 63 75 72 72 5f ectCount = curr_
2ca40 6f 75 74 5f 69 64 5f 69 64 78 3b 0a 0a 23 69 66 out_id_idx;..#if
2ca50 64 65 66 20 43 41 43 4b 45 59 5f 44 45 42 55 47 def CACKEY_DEBUG
2ca60 5f 53 45 41 52 43 48 5f 53 50 45 45 44 54 45 53 _SEARCH_SPEEDTES
2ca70 54 0a 09 67 65 74 74 69 6d 65 6f 66 64 61 79 28 T..gettimeofday(
2ca80 26 65 6e 64 2c 20 4e 55 4c 4c 29 3b 0a 09 73 74 &end, NULL);..st
2ca90 61 72 74 5f 69 6e 74 20 3d 20 28 73 74 61 72 74 art_int = (start
2caa0 2e 74 76 5f 73 65 63 20 2a 20 31 30 30 30 30 30 .tv_sec * 100000
2cab0 30 29 20 2b 20 73 74 61 72 74 2e 74 76 5f 75 73 0) + start.tv_us
2cac0 65 63 3b 0a 09 65 6e 64 5f 69 6e 74 20 3d 20 28 ec;..end_int = (
2cad0 65 6e 64 2e 74 76 5f 73 65 63 20 2a 20 31 30 30 end.tv_sec * 100
2cae0 30 30 30 30 29 20 2b 20 65 6e 64 2e 74 76 5f 75 0000) + end.tv_u
2caf0 73 65 63 3b 0a 09 66 70 72 69 6e 74 66 28 73 74 sec;..fprintf(st
2cb00 64 65 72 72 2c 20 22 53 65 61 72 63 68 20 74 6f derr, "Search to
2cb10 6f 6b 20 25 6c 75 20 6d 69 63 72 6f 73 65 63 6f ok %lu microseco
2cb20 6e 64 73 5c 6e 22 2c 20 28 75 6e 73 69 67 6e 65 nds\n", (unsigne
2cb30 64 20 6c 6f 6e 67 29 20 28 65 6e 64 5f 69 6e 74 d long) (end_int
2cb40 20 2d 20 73 74 61 72 74 5f 69 6e 74 29 29 3b 0a - start_int));.
2cb50 23 65 6e 64 69 66 0a 0a 09 6d 75 74 65 78 5f 72 #endif...mutex_r
2cb60 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 79 5f 6d etval = cackey_m
2cb70 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b utex_unlock(cack
2cb80 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 69 66 ey_biglock);..if
2cb90 20 28 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 21 (mutex_retval !
2cba0 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f = 0) {...CACKEY_
2cbb0 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
2cbc0 72 6f 72 2e 20 20 55 6e 6c 6f 63 6b 69 6e 67 20 ror. Unlocking
2cbd0 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 65 failed.");....re
2cbe0 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c turn(CKR_GENERAL
2cbf0 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 43 41 _ERROR);..}...CA
2cc00 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
2cc10 46 28 22 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 F("Returning CKR
2cc20 5f 4f 4b 20 28 25 69 29 2c 20 6e 75 6d 20 6f 62 _OK (%i), num ob
2cc30 6a 65 63 74 73 20 3d 20 25 6c 75 22 2c 20 43 4b jects = %lu", CK
2cc40 52 5f 4f 4b 2c 20 2a 70 75 6c 4f 62 6a 65 63 74 R_OK, *pulObject
2cc50 43 6f 75 6e 74 29 3b 0a 0a 09 72 65 74 75 72 6e Count);...return
2cc60 28 43 4b 52 5f 4f 4b 29 3b 0a 7d 0a 0a 43 4b 5f (CKR_OK);.}..CK_
2cc70 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 DEFINE_FUNCTION(
2cc80 43 4b 5f 52 56 2c 20 43 5f 46 69 6e 64 4f 62 6a CK_RV, C_FindObj
2cc90 65 63 74 73 46 69 6e 61 6c 29 28 43 4b 5f 53 45 ectsFinal)(CK_SE
2cca0 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 SSION_HANDLE hSe
2ccb0 73 73 69 6f 6e 29 20 7b 0a 09 43 4b 5f 55 4c 4f ssion) {..CK_ULO
2ccc0 4e 47 20 69 64 78 3b 0a 09 69 6e 74 20 6d 75 74 NG idx;..int mut
2ccd0 65 78 5f 72 65 74 76 61 6c 3b 0a 0a 09 43 41 43 ex_retval;...CAC
2cce0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
2ccf0 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 ("Called.");...i
2cd00 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 f (!cackey_initi
2cd10 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b alized) {...CACK
2cd20 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
2cd30 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 "Error. Not ini
2cd40 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 tialized.");....
2cd50 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 return(CKR_CRYPT
2cd60 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 OKI_NOT_INITIALI
2cd70 5a 45 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 68 ZED);..}...if (h
2cd80 53 65 73 73 69 6f 6e 20 3d 3d 20 30 20 7c 7c 20 Session == 0 ||
2cd90 68 53 65 73 73 69 6f 6e 20 3e 3d 20 28 73 69 7a hSession >= (siz
2cda0 65 6f 66 28 63 61 63 6b 65 79 5f 73 65 73 73 69 eof(cackey_sessi
2cdb0 6f 6e 73 29 20 2f 20 73 69 7a 65 6f 66 28 63 61 ons) / sizeof(ca
2cdc0 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 30 5d ckey_sessions[0]
2cdd0 29 29 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ))) {...CACKEY_D
2cde0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
2cdf0 6f 72 2e 20 20 53 65 73 73 69 6f 6e 20 6f 75 74 or. Session out
2ce00 20 6f 66 20 72 61 6e 67 65 2e 22 29 3b 0a 09 09 of range.");...
2ce10 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 53 45 ...return(CKR_SE
2ce20 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 5f 49 4e 56 SSION_HANDLE_INV
2ce30 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 6d 75 74 65 ALID);..}...mute
2ce40 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 x_retval = cacke
2ce50 79 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 63 61 63 y_mutex_lock(cac
2ce60 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 69 key_biglock);..i
2ce70 66 20 28 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 f (mutex_retval
2ce80 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 != 0) {...CACKEY
2ce90 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
2cea0 72 72 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 20 66 rror. Locking f
2ceb0 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 ailed.");....ret
2cec0 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f urn(CKR_GENERAL_
2ced0 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 20 ERROR);..}...if
2cee0 28 21 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e (!cackey_session
2cef0 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 61 63 74 69 s[hSession].acti
2cf00 76 65 29 20 7b 0a 09 09 63 61 63 6b 65 79 5f 6d ve) {...cackey_m
2cf10 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b utex_unlock(cack
2cf20 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 ey_biglock);....
2cf30 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
2cf40 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 53 65 73 NTF("Error. Ses
2cf50 73 69 6f 6e 20 6e 6f 74 20 61 63 74 69 76 65 2e sion not active.
2cf60 22 29 3b 0a 09 09 0a 09 09 72 65 74 75 72 6e 28 ");......return(
2cf70 43 4b 52 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 CKR_SESSION_HAND
2cf80 4c 45 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a LE_INVALID);..}.
2cf90 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f 73 65 ..if (!cackey_se
2cfa0 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d ssions[hSession]
2cfb0 2e 73 65 61 72 63 68 5f 61 63 74 69 76 65 29 20 .search_active)
2cfc0 7b 0a 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 {...cackey_mutex
2cfd0 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 _unlock(cackey_b
2cfe0 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 43 41 43 4b iglock);....CACK
2cff0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
2d000 22 45 72 72 6f 72 2e 20 20 53 65 61 72 63 68 20 "Error. Search
2d010 6e 6f 74 20 61 63 74 69 76 65 2e 22 29 3b 0a 09 not active.");..
2d020 09 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f ....return(CKR_O
2d030 50 45 52 41 54 49 4f 4e 5f 4e 4f 54 5f 49 4e 49 PERATION_NOT_INI
2d040 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 TIALIZED);..}...
2d050 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b cackey_sessions[
2d060 68 53 65 73 73 69 6f 6e 5d 2e 73 65 61 72 63 68 hSession].search
2d070 5f 61 63 74 69 76 65 20 3d 20 30 3b 0a 0a 09 66 _active = 0;...f
2d080 6f 72 20 28 69 64 78 20 3d 20 30 3b 20 69 64 78 or (idx = 0; idx
2d090 20 3c 20 63 61 63 6b 65 79 5f 73 65 73 73 69 6f < cackey_sessio
2d0a0 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 65 61 ns[hSession].sea
2d0b0 72 63 68 5f 71 75 65 72 79 5f 63 6f 75 6e 74 3b rch_query_count;
2d0c0 20 69 64 78 2b 2b 29 20 7b 0a 09 09 69 66 20 28 idx++) {...if (
2d0d0 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b cackey_sessions[
2d0e0 68 53 65 73 73 69 6f 6e 5d 2e 73 65 61 72 63 68 hSession].search
2d0f0 5f 71 75 65 72 79 5b 69 64 78 5d 2e 70 56 61 6c _query[idx].pVal
2d100 75 65 29 20 7b 0a 09 09 09 66 72 65 65 28 63 61 ue) {....free(ca
2d110 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 ckey_sessions[hS
2d120 65 73 73 69 6f 6e 5d 2e 73 65 61 72 63 68 5f 71 ession].search_q
2d130 75 65 72 79 5b 69 64 78 5d 2e 70 56 61 6c 75 65 uery[idx].pValue
2d140 29 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 69 66 20 28 );...}..}...if (
2d150 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b cackey_sessions[
2d160 68 53 65 73 73 69 6f 6e 5d 2e 73 65 61 72 63 68 hSession].search
2d170 5f 71 75 65 72 79 29 20 7b 0a 09 09 66 72 65 65 _query) {...free
2d180 28 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 (cackey_sessions
2d190 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 65 61 72 63 [hSession].searc
2d1a0 68 5f 71 75 65 72 79 29 3b 0a 09 7d 0a 0a 09 6d h_query);..}...m
2d1b0 75 74 65 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 utex_retval = ca
2d1c0 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 ckey_mutex_unloc
2d1d0 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b k(cackey_biglock
2d1e0 29 3b 0a 09 69 66 20 28 6d 75 74 65 78 5f 72 65 );..if (mutex_re
2d1f0 74 76 61 6c 20 21 3d 20 30 29 20 7b 0a 09 09 43 tval != 0) {...C
2d200 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
2d210 54 46 28 22 45 72 72 6f 72 2e 20 20 55 6e 6c 6f TF("Error. Unlo
2d220 63 6b 69 6e 67 20 66 61 69 6c 65 64 2e 22 29 3b cking failed.");
2d230 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 47 ....return(CKR_G
2d240 45 4e 45 52 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 ENERAL_ERROR);..
2d250 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 }...CACKEY_DEBUG
2d260 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 _PRINTF("Returni
2d270 6e 67 20 43 4b 52 5f 4f 4b 20 28 25 69 29 22 2c ng CKR_OK (%i)",
2d280 20 43 4b 52 5f 4f 4b 29 3b 0a 0a 09 72 65 74 75 CKR_OK);...retu
2d290 72 6e 28 43 4b 52 5f 4f 4b 29 3b 0a 7d 0a 0a 43 rn(CKR_OK);.}..C
2d2a0 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f K_DEFINE_FUNCTIO
2d2b0 4e 28 43 4b 5f 52 56 2c 20 43 5f 45 6e 63 72 79 N(CK_RV, C_Encry
2d2c0 70 74 49 6e 69 74 29 28 43 4b 5f 53 45 53 53 49 ptInit)(CK_SESSI
2d2d0 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 73 69 ON_HANDLE hSessi
2d2e0 6f 6e 2c 20 43 4b 5f 4d 45 43 48 41 4e 49 53 4d on, CK_MECHANISM
2d2f0 5f 50 54 52 20 70 4d 65 63 68 61 6e 69 73 6d 2c _PTR pMechanism,
2d300 20 43 4b 5f 4f 42 4a 45 43 54 5f 48 41 4e 44 4c CK_OBJECT_HANDL
2d310 45 20 68 4b 65 79 29 20 7b 0a 09 43 41 43 4b 45 E hKey) {..CACKE
2d320 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
2d330 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 Called.");...if
2d340 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c (!cackey_initial
2d350 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 ized) {...CACKEY
2d360 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
2d370 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 rror. Not initi
2d380 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 alized.");....re
2d390 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b turn(CKR_CRYPTOK
2d3a0 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 I_NOT_INITIALIZE
2d3b0 44 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f D);..}...CACKEY_
2d3c0 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 DEBUG_PRINTF("Re
2d3d0 74 75 72 6e 69 6e 67 20 43 4b 52 5f 46 55 4e 43 turning CKR_FUNC
2d3e0 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 TION_NOT_SUPPORT
2d3f0 45 44 20 28 25 69 29 22 2c 20 43 4b 52 5f 46 55 ED (%i)", CKR_FU
2d400 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f NCTION_NOT_SUPPO
2d410 52 54 45 44 29 3b 0a 0a 09 72 65 74 75 72 6e 28 RTED);...return(
2d420 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 CKR_FUNCTION_NOT
2d430 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 7d 0a 0a _SUPPORTED);.}..
2d440 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 CK_DEFINE_FUNCTI
2d450 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f 45 6e 63 72 ON(CK_RV, C_Encr
2d460 79 70 74 29 28 43 4b 5f 53 45 53 53 49 4f 4e 5f ypt)(CK_SESSION_
2d470 48 41 4e 44 4c 45 20 68 53 65 73 73 69 6f 6e 2c HANDLE hSession,
2d480 20 43 4b 5f 42 59 54 45 5f 50 54 52 20 70 44 61 CK_BYTE_PTR pDa
2d490 74 61 2c 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 44 ta, CK_ULONG ulD
2d4a0 61 74 61 4c 65 6e 2c 20 43 4b 5f 42 59 54 45 5f ataLen, CK_BYTE_
2d4b0 50 54 52 20 70 45 6e 63 72 79 70 74 65 64 44 61 PTR pEncryptedDa
2d4c0 74 61 2c 20 43 4b 5f 55 4c 4f 4e 47 5f 50 54 52 ta, CK_ULONG_PTR
2d4d0 20 70 75 6c 45 6e 63 72 79 70 74 65 64 44 61 74 pulEncryptedDat
2d4e0 61 4c 65 6e 29 20 7b 0a 09 43 41 43 4b 45 59 5f aLen) {..CACKEY_
2d4f0 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 DEBUG_PRINTF("Ca
2d500 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 28 21 lled.");...if (!
2d510 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a cackey_initializ
2d520 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ed) {...CACKEY_D
2d530 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
2d540 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c or. Not initial
2d550 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 ized.");....retu
2d560 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f rn(CKR_CRYPTOKI_
2d570 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 NOT_INITIALIZED)
2d580 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 ;..}...CACKEY_DE
2d590 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 BUG_PRINTF("Retu
2d5a0 72 6e 69 6e 67 20 43 4b 52 5f 46 55 4e 43 54 49 rning CKR_FUNCTI
2d5b0 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 ON_NOT_SUPPORTED
2d5c0 20 28 25 69 29 22 2c 20 43 4b 52 5f 46 55 4e 43 (%i)", CKR_FUNC
2d5d0 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 TION_NOT_SUPPORT
2d5e0 45 44 29 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b ED);...return(CK
2d5f0 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 R_FUNCTION_NOT_S
2d600 55 50 50 4f 52 54 45 44 29 3b 0a 7d 0a 0a 43 4b UPPORTED);.}..CK
2d610 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e _DEFINE_FUNCTION
2d620 28 43 4b 5f 52 56 2c 20 43 5f 45 6e 63 72 79 70 (CK_RV, C_Encryp
2d630 74 55 70 64 61 74 65 29 28 43 4b 5f 53 45 53 53 tUpdate)(CK_SESS
2d640 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 73 ION_HANDLE hSess
2d650 69 6f 6e 2c 20 43 4b 5f 42 59 54 45 5f 50 54 52 ion, CK_BYTE_PTR
2d660 20 70 50 61 72 74 2c 20 43 4b 5f 55 4c 4f 4e 47 pPart, CK_ULONG
2d670 20 75 6c 50 61 72 74 4c 65 6e 2c 20 43 4b 5f 42 ulPartLen, CK_B
2d680 59 54 45 5f 50 54 52 20 70 45 6e 63 72 79 70 74 YTE_PTR pEncrypt
2d690 65 64 50 61 72 74 2c 20 43 4b 5f 55 4c 4f 4e 47 edPart, CK_ULONG
2d6a0 5f 50 54 52 20 70 75 6c 45 6e 63 72 79 70 74 65 _PTR pulEncrypte
2d6b0 64 50 61 72 74 4c 65 6e 29 20 7b 0a 09 43 41 43 dPartLen) {..CAC
2d6c0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
2d6d0 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 ("Called.");...i
2d6e0 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 f (!cackey_initi
2d6f0 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b alized) {...CACK
2d700 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
2d710 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 "Error. Not ini
2d720 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 tialized.");....
2d730 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 return(CKR_CRYPT
2d740 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 OKI_NOT_INITIALI
2d750 5a 45 44 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 ZED);..}...CACKE
2d760 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
2d770 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 46 55 Returning CKR_FU
2d780 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f NCTION_NOT_SUPPO
2d790 52 54 45 44 20 28 25 69 29 22 2c 20 43 4b 52 5f RTED (%i)", CKR_
2d7a0 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 FUNCTION_NOT_SUP
2d7b0 50 4f 52 54 45 44 29 3b 0a 0a 09 72 65 74 75 72 PORTED);...retur
2d7c0 6e 28 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e n(CKR_FUNCTION_N
2d7d0 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 7d OT_SUPPORTED);.}
2d7e0 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 ..CK_DEFINE_FUNC
2d7f0 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f 45 6e TION(CK_RV, C_En
2d800 63 72 79 70 74 46 69 6e 61 6c 29 28 43 4b 5f 53 cryptFinal)(CK_S
2d810 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 ESSION_HANDLE hS
2d820 65 73 73 69 6f 6e 2c 20 43 4b 5f 42 59 54 45 5f ession, CK_BYTE_
2d830 50 54 52 20 70 4c 61 73 74 45 6e 63 72 79 70 74 PTR pLastEncrypt
2d840 65 64 50 61 72 74 2c 20 43 4b 5f 55 4c 4f 4e 47 edPart, CK_ULONG
2d850 5f 50 54 52 20 70 75 6c 4c 61 73 74 45 6e 63 72 _PTR pulLastEncr
2d860 79 70 74 65 64 50 61 72 74 4c 65 6e 29 20 7b 0a yptedPartLen) {.
2d870 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
2d880 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b INTF("Called.");
2d890 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f 69 ...if (!cackey_i
2d8a0 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 nitialized) {...
2d8b0 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
2d8c0 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 NTF("Error. Not
2d8d0 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b initialized.");
2d8e0 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 ....return(CKR_C
2d8f0 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 RYPTOKI_NOT_INIT
2d900 49 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 43 IALIZED);..}...C
2d910 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
2d920 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 43 4b TF("Returning CK
2d930 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 R_FUNCTION_NOT_S
2d940 55 50 50 4f 52 54 45 44 20 28 25 69 29 22 2c 20 UPPORTED (%i)",
2d950 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 CKR_FUNCTION_NOT
2d960 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 0a 09 72 _SUPPORTED);...r
2d970 65 74 75 72 6e 28 43 4b 52 5f 46 55 4e 43 54 49 eturn(CKR_FUNCTI
2d980 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 ON_NOT_SUPPORTED
2d990 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f );.}..CK_DEFINE_
2d9a0 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 FUNCTION(CK_RV,
2d9b0 43 5f 44 65 63 72 79 70 74 49 6e 69 74 29 28 43 C_DecryptInit)(C
2d9c0 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 K_SESSION_HANDLE
2d9d0 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 4d 45 hSession, CK_ME
2d9e0 43 48 41 4e 49 53 4d 5f 50 54 52 20 70 4d 65 63 CHANISM_PTR pMec
2d9f0 68 61 6e 69 73 6d 2c 20 43 4b 5f 4f 42 4a 45 43 hanism, CK_OBJEC
2da00 54 5f 48 41 4e 44 4c 45 20 68 4b 65 79 29 20 7b T_HANDLE hKey) {
2da10 0a 09 69 6e 74 20 6d 75 74 65 78 5f 72 65 74 76 ..int mutex_retv
2da20 61 6c 3b 0a 0a 09 68 4b 65 79 2d 2d 3b 0a 0a 09 al;...hKey--;...
2da30 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
2da40 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a NTF("Called.");.
2da50 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e ..if (!cackey_in
2da60 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 itialized) {...C
2da70 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
2da80 54 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 TF("Error. Not
2da90 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a initialized.");.
2daa0 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 ...return(CKR_CR
2dab0 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 YPTOKI_NOT_INITI
2dac0 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 69 66 ALIZED);..}...if
2dad0 20 28 70 4d 65 63 68 61 6e 69 73 6d 20 3d 3d 20 (pMechanism ==
2dae0 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b 45 59 NULL) {...CACKEY
2daf0 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
2db00 72 72 6f 72 2e 20 70 4d 65 63 68 61 6e 69 73 6d rror. pMechanism
2db10 20 69 73 20 4e 55 4c 4c 2e 22 29 3b 0a 0a 09 09 is NULL.");....
2db20 72 65 74 75 72 6e 28 43 4b 52 5f 41 52 47 55 4d return(CKR_ARGUM
2db30 45 4e 54 53 5f 42 41 44 29 3b 0a 09 7d 0a 0a 09 ENTS_BAD);..}...
2db40 69 66 20 28 70 4d 65 63 68 61 6e 69 73 6d 2d 3e if (pMechanism->
2db50 6d 65 63 68 61 6e 69 73 6d 20 21 3d 20 43 4b 4d mechanism != CKM
2db60 5f 52 53 41 5f 50 4b 43 53 29 20 7b 0a 09 09 43 _RSA_PKCS) {...C
2db70 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
2db80 54 46 28 22 45 72 72 6f 72 2e 20 70 4d 65 63 68 TF("Error. pMech
2db90 61 6e 69 73 6d 2d 3e 6d 65 63 68 61 6e 69 73 6d anism->mechanism
2dba0 20 6e 6f 74 20 73 70 65 63 69 66 69 65 64 20 61 not specified a
2dbb0 73 20 43 4b 4d 5f 52 53 41 5f 50 4b 43 53 22 29 s CKM_RSA_PKCS")
2dbc0 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f ;....return(CKR_
2dbd0 4d 45 43 48 41 4e 49 53 4d 5f 50 41 52 41 4d 5f MECHANISM_PARAM_
2dbe0 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 69 INVALID);..}...i
2dbf0 66 20 28 68 53 65 73 73 69 6f 6e 20 3d 3d 20 30 f (hSession == 0
2dc00 20 7c 7c 20 68 53 65 73 73 69 6f 6e 20 3e 3d 20 || hSession >=
2dc10 28 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 (sizeof(cackey_s
2dc20 65 73 73 69 6f 6e 73 29 20 2f 20 73 69 7a 65 6f essions) / sizeo
2dc30 66 28 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e f(cackey_session
2dc40 73 5b 30 5d 29 29 29 20 7b 0a 09 09 43 41 43 4b s[0]))) {...CACK
2dc50 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
2dc60 22 45 72 72 6f 72 2e 20 20 53 65 73 73 69 6f 6e "Error. Session
2dc70 20 6f 75 74 20 6f 66 20 72 61 6e 67 65 2e 22 29 out of range.")
2dc80 3b 0a 09 09 0a 09 09 72 65 74 75 72 6e 28 43 4b ;......return(CK
2dc90 52 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 R_SESSION_HANDLE
2dca0 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 _INVALID);..}...
2dcb0 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 3d 20 63 mutex_retval = c
2dcc0 61 63 6b 65 79 5f 6d 75 74 65 78 5f 6c 6f 63 6b ackey_mutex_lock
2dcd0 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 (cackey_biglock)
2dce0 3b 0a 09 69 66 20 28 6d 75 74 65 78 5f 72 65 74 ;..if (mutex_ret
2dcf0 76 61 6c 20 21 3d 20 30 29 20 7b 0a 09 09 43 41 val != 0) {...CA
2dd00 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
2dd10 46 28 22 45 72 72 6f 72 2e 20 20 4c 6f 63 6b 69 F("Error. Locki
2dd20 6e 67 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 ng failed.");...
2dd30 09 72 65 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 .return(CKR_GENE
2dd40 52 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a RAL_ERROR);..}..
2dd50 09 69 66 20 28 21 63 61 63 6b 65 79 5f 73 65 73 .if (!cackey_ses
2dd60 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e sions[hSession].
2dd70 61 63 74 69 76 65 29 20 7b 0a 09 09 63 61 63 6b active) {...cack
2dd80 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 ey_mutex_unlock(
2dd90 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b cackey_biglock);
2dda0 0a 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ....CACKEY_DEBUG
2ddb0 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
2ddc0 20 53 65 73 73 69 6f 6e 20 6e 6f 74 20 61 63 74 Session not act
2ddd0 69 76 65 2e 22 29 3b 0a 09 09 0a 09 09 72 65 74 ive.");......ret
2dde0 75 72 6e 28 43 4b 52 5f 53 45 53 53 49 4f 4e 5f urn(CKR_SESSION_
2ddf0 48 41 4e 44 4c 45 5f 49 4e 56 41 4c 49 44 29 3b HANDLE_INVALID);
2de00 0a 09 7d 0a 0a 09 69 66 20 28 63 61 63 6b 65 79 ..}...if (cackey
2de10 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 _sessions[hSessi
2de20 6f 6e 5d 2e 64 65 63 72 79 70 74 5f 61 63 74 69 on].decrypt_acti
2de30 76 65 29 20 7b 0a 09 09 63 61 63 6b 65 79 5f 6d ve) {...cackey_m
2de40 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b utex_unlock(cack
2de50 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 ey_biglock);....
2de60 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
2de70 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 44 65 63 NTF("Error. Dec
2de80 72 79 70 74 20 61 6c 72 65 61 64 79 20 69 6e 20 rypt already in
2de90 70 72 6f 67 72 65 73 73 2e 22 29 3b 0a 09 09 0a progress.");....
2dea0 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f 50 45 ..return(CKR_OPE
2deb0 52 41 54 49 4f 4e 5f 41 43 54 49 56 45 29 3b 0a RATION_ACTIVE);.
2dec0 09 7d 0a 0a 09 69 66 20 28 68 4b 65 79 20 3e 3d .}...if (hKey >=
2ded0 20 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 cackey_sessions
2dee0 5b 68 53 65 73 73 69 6f 6e 5d 2e 69 64 65 6e 74 [hSession].ident
2def0 69 74 69 65 73 5f 63 6f 75 6e 74 29 20 7b 0a 09 ities_count) {..
2df00 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e .cackey_mutex_un
2df10 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c lock(cackey_bigl
2df20 6f 63 6b 29 3b 0a 0a 09 09 43 41 43 4b 45 59 5f ock);....CACKEY_
2df30 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
2df40 72 6f 72 2e 20 20 4b 65 79 20 68 61 6e 64 6c 65 ror. Key handle
2df50 20 6f 75 74 20 6f 66 20 72 61 6e 67 65 20 28 72 out of range (r
2df60 65 71 75 65 73 74 65 64 20 6b 65 79 20 25 6c 75 equested key %lu
2df70 2c 20 6f 6e 6c 79 20 25 6c 75 20 69 64 65 6e 74 , only %lu ident
2df80 69 74 69 65 73 20 61 76 61 69 6c 61 62 6c 65 29 ities available)
2df90 2e 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f .", (unsigned lo
2dfa0 6e 67 29 20 68 4b 65 79 2c 20 28 75 6e 73 69 67 ng) hKey, (unsig
2dfb0 6e 65 64 20 6c 6f 6e 67 29 20 63 61 63 6b 65 79 ned long) cackey
2dfc0 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 _sessions[hSessi
2dfd0 6f 6e 5d 2e 69 64 65 6e 74 69 74 69 65 73 5f 63 on].identities_c
2dfe0 6f 75 6e 74 29 3b 0a 0a 09 09 72 65 74 75 72 6e ount);....return
2dff0 28 43 4b 52 5f 4b 45 59 5f 48 41 4e 44 4c 45 5f (CKR_KEY_HANDLE_
2e000 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 63 INVALID);..}...c
2e010 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 ackey_sessions[h
2e020 53 65 73 73 69 6f 6e 5d 2e 64 65 63 72 79 70 74 Session].decrypt
2e030 5f 61 63 74 69 76 65 20 3d 20 31 3b 0a 0a 09 63 _active = 1;...c
2e040 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 ackey_sessions[h
2e050 53 65 73 73 69 6f 6e 5d 2e 64 65 63 72 79 70 74 Session].decrypt
2e060 5f 6d 65 63 68 61 6e 69 73 6d 20 3d 20 70 4d 65 _mechanism = pMe
2e070 63 68 61 6e 69 73 6d 2d 3e 6d 65 63 68 61 6e 69 chanism->mechani
2e080 73 6d 3b 0a 09 63 61 63 6b 65 79 5f 73 65 73 73 sm;..cackey_sess
2e090 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 64 ions[hSession].d
2e0a0 65 63 72 79 70 74 5f 6d 65 63 68 5f 70 61 72 6d ecrypt_mech_parm
2e0b0 20 3d 20 70 4d 65 63 68 61 6e 69 73 6d 2d 3e 70 = pMechanism->p
2e0c0 50 61 72 61 6d 65 74 65 72 3b 0a 09 63 61 63 6b Parameter;..cack
2e0d0 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 ey_sessions[hSes
2e0e0 73 69 6f 6e 5d 2e 64 65 63 72 79 70 74 5f 6d 65 sion].decrypt_me
2e0f0 63 68 5f 70 61 72 6d 6c 65 6e 20 3d 20 70 4d 65 ch_parmlen = pMe
2e100 63 68 61 6e 69 73 6d 2d 3e 75 6c 50 61 72 61 6d chanism->ulParam
2e110 65 74 65 72 4c 65 6e 3b 0a 09 63 61 63 6b 65 79 eterLen;..cackey
2e120 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 _sessions[hSessi
2e130 6f 6e 5d 2e 64 65 63 72 79 70 74 5f 69 64 65 6e on].decrypt_iden
2e140 74 69 74 79 20 3d 20 26 63 61 63 6b 65 79 5f 73 tity = &cackey_s
2e150 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e essions[hSession
2e160 5d 2e 69 64 65 6e 74 69 74 69 65 73 5b 68 4b 65 ].identities[hKe
2e170 79 5d 3b 0a 0a 09 6d 75 74 65 78 5f 72 65 74 76 y];...mutex_retv
2e180 61 6c 20 3d 20 63 61 63 6b 65 79 5f 6d 75 74 65 al = cackey_mute
2e190 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f x_unlock(cackey_
2e1a0 62 69 67 6c 6f 63 6b 29 3b 0a 09 69 66 20 28 6d biglock);..if (m
2e1b0 75 74 65 78 5f 72 65 74 76 61 6c 20 21 3d 20 30 utex_retval != 0
2e1c0 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 ) {...CACKEY_DEB
2e1d0 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 UG_PRINTF("Error
2e1e0 2e 20 20 55 6e 6c 6f 63 6b 69 6e 67 20 66 61 69 . Unlocking fai
2e1f0 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 led.");....retur
2e200 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 n(CKR_GENERAL_ER
2e210 52 4f 52 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 ROR);..}...CACKE
2e220 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
2e230 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 4f 4b Returning CKR_OK
2e240 20 28 25 69 29 22 2c 20 43 4b 52 5f 4f 4b 29 3b (%i)", CKR_OK);
2e250 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f 4b ...return(CKR_OK
2e260 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f );.}..CK_DEFINE_
2e270 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 FUNCTION(CK_RV,
2e280 43 5f 44 65 63 72 79 70 74 29 28 43 4b 5f 53 45 C_Decrypt)(CK_SE
2e290 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 SSION_HANDLE hSe
2e2a0 73 73 69 6f 6e 2c 20 43 4b 5f 42 59 54 45 5f 50 ssion, CK_BYTE_P
2e2b0 54 52 20 70 45 6e 63 72 79 70 74 65 64 44 61 74 TR pEncryptedDat
2e2c0 61 2c 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 45 6e a, CK_ULONG ulEn
2e2d0 63 72 79 70 74 65 64 44 61 74 61 4c 65 6e 2c 20 cryptedDataLen,
2e2e0 43 4b 5f 42 59 54 45 5f 50 54 52 20 70 44 61 74 CK_BYTE_PTR pDat
2e2f0 61 2c 20 43 4b 5f 55 4c 4f 4e 47 5f 50 54 52 20 a, CK_ULONG_PTR
2e300 70 75 6c 44 61 74 61 4c 65 6e 29 20 7b 0a 09 43 pulDataLen) {..C
2e310 4b 5f 55 4c 4f 4e 47 20 64 61 74 61 6c 65 6e 5f K_ULONG datalen_
2e320 75 70 64 61 74 65 2c 20 64 61 74 61 6c 65 6e 5f update, datalen_
2e330 66 69 6e 61 6c 3b 0a 09 43 4b 5f 52 56 20 64 65 final;..CK_RV de
2e340 63 72 79 70 74 5f 72 65 74 3b 0a 09 69 6e 74 20 crypt_ret;..int
2e350 6d 75 74 65 78 5f 72 65 74 76 61 6c 3b 0a 0a 09 mutex_retval;...
2e360 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
2e370 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a NTF("Called.");.
2e380 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e ..if (!cackey_in
2e390 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 itialized) {...C
2e3a0 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
2e3b0 54 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 TF("Error. Not
2e3c0 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a initialized.");.
2e3d0 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 ...return(CKR_CR
2e3e0 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 YPTOKI_NOT_INITI
2e3f0 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 69 66 ALIZED);..}...if
2e400 20 28 70 75 6c 44 61 74 61 4c 65 6e 20 3d 3d 20 (pulDataLen ==
2e410 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b 45 59 NULL) {...CACKEY
2e420 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
2e430 72 72 6f 72 2e 20 70 75 6c 44 61 74 61 4c 65 6e rror. pulDataLen
2e440 20 69 73 20 4e 55 4c 4c 2e 22 29 3b 0a 0a 09 09 is NULL.");....
2e450 72 65 74 75 72 6e 28 43 4b 52 5f 41 52 47 55 4d return(CKR_ARGUM
2e460 45 4e 54 53 5f 42 41 44 29 3b 0a 09 7d 0a 0a 09 ENTS_BAD);..}...
2e470 64 61 74 61 6c 65 6e 5f 75 70 64 61 74 65 20 3d datalen_update =
2e480 20 2a 70 75 6c 44 61 74 61 4c 65 6e 3b 0a 0a 09 *pulDataLen;...
2e490 64 65 63 72 79 70 74 5f 72 65 74 20 3d 20 43 5f decrypt_ret = C_
2e4a0 44 65 63 72 79 70 74 55 70 64 61 74 65 28 68 53 DecryptUpdate(hS
2e4b0 65 73 73 69 6f 6e 2c 20 70 45 6e 63 72 79 70 74 ession, pEncrypt
2e4c0 65 64 44 61 74 61 2c 20 75 6c 45 6e 63 72 79 70 edData, ulEncryp
2e4d0 74 65 64 44 61 74 61 4c 65 6e 2c 20 70 44 61 74 tedDataLen, pDat
2e4e0 61 2c 20 26 64 61 74 61 6c 65 6e 5f 75 70 64 61 a, &datalen_upda
2e4f0 74 65 29 3b 0a 09 69 66 20 28 64 65 63 72 79 70 te);..if (decryp
2e500 74 5f 72 65 74 20 21 3d 20 43 4b 52 5f 4f 4b 29 t_ret != CKR_OK)
2e510 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
2e520 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
2e530 20 20 44 65 63 72 79 70 74 55 70 64 61 74 65 28 DecryptUpdate(
2e540 29 20 72 65 74 75 72 6e 65 64 20 66 61 69 6c 75 ) returned failu
2e550 72 65 20 28 72 76 20 3d 20 25 6c 75 29 2e 22 2c re (rv = %lu).",
2e560 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 (unsigned long)
2e570 20 64 65 63 72 79 70 74 5f 72 65 74 29 3b 0a 0a decrypt_ret);..
2e580 09 09 69 66 20 28 64 65 63 72 79 70 74 5f 72 65 ..if (decrypt_re
2e590 74 20 21 3d 20 43 4b 52 5f 42 55 46 46 45 52 5f t != CKR_BUFFER_
2e5a0 54 4f 4f 5f 53 4d 41 4c 4c 29 20 7b 0a 09 09 09 TOO_SMALL) {....
2e5b0 2f 2a 20 54 65 72 6d 69 6e 61 74 65 20 64 65 63 /* Terminate dec
2e5c0 72 79 70 74 69 6f 6e 20 6f 70 65 72 61 74 69 6f ryption operatio
2e5d0 6e 20 2a 2f 0a 0a 09 09 09 6d 75 74 65 78 5f 72 n */.....mutex_r
2e5e0 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 79 5f 6d etval = cackey_m
2e5f0 75 74 65 78 5f 6c 6f 63 6b 28 63 61 63 6b 65 79 utex_lock(cackey
2e600 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 09 09 69 66 _biglock);....if
2e610 20 28 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 21 (mutex_retval !
2e620 3d 20 30 29 20 7b 0a 09 09 09 09 43 41 43 4b 45 = 0) {.....CACKE
2e630 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
2e640 45 72 72 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 20 Error. Locking
2e650 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 09 09 failed.");......
2e660 72 65 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 return(CKR_GENER
2e670 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 09 09 7d 0a AL_ERROR);....}.
2e680 0a 09 09 09 69 66 20 28 21 63 61 63 6b 65 79 5f ....if (!cackey_
2e690 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f sessions[hSessio
2e6a0 6e 5d 2e 61 63 74 69 76 65 29 20 7b 0a 09 09 09 n].active) {....
2e6b0 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e .cackey_mutex_un
2e6c0 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c lock(cackey_bigl
2e6d0 6f 63 6b 29 3b 0a 0a 09 09 09 09 43 41 43 4b 45 ock);......CACKE
2e6e0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
2e6f0 45 72 72 6f 72 2e 20 20 53 65 73 73 69 6f 6e 20 Error. Session
2e700 6e 6f 74 20 61 63 74 69 76 65 2e 22 29 3b 0a 09 not active.");..
2e710 09 0a 09 09 09 09 72 65 74 75 72 6e 28 43 4b 52 ......return(CKR
2e720 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 5f _SESSION_HANDLE_
2e730 49 4e 56 41 4c 49 44 29 3b 0a 09 09 09 7d 0a 0a INVALID);....}..
2e740 09 09 09 69 66 20 28 21 63 61 63 6b 65 79 5f 73 ...if (!cackey_s
2e750 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e essions[hSession
2e760 5d 2e 64 65 63 72 79 70 74 5f 61 63 74 69 76 65 ].decrypt_active
2e770 29 20 7b 0a 09 09 09 09 63 61 63 6b 65 79 5f 6d ) {.....cackey_m
2e780 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b utex_unlock(cack
2e790 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 ey_biglock);....
2e7a0 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
2e7b0 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 44 RINTF("Error. D
2e7c0 65 63 72 79 70 74 20 6e 6f 74 20 61 63 74 69 76 ecrypt not activ
2e7d0 65 2e 22 29 3b 0a 09 09 0a 09 09 09 09 72 65 74 e.");........ret
2e7e0 75 72 6e 28 43 4b 52 5f 4f 50 45 52 41 54 49 4f urn(CKR_OPERATIO
2e7f0 4e 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 N_NOT_INITIALIZE
2e800 44 29 3b 0a 09 09 09 7d 0a 0a 09 09 09 63 61 63 D);....}.....cac
2e810 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 key_sessions[hSe
2e820 73 73 69 6f 6e 5d 2e 64 65 63 72 79 70 74 5f 61 ssion].decrypt_a
2e830 63 74 69 76 65 20 3d 20 30 3b 0a 0a 09 09 09 6d ctive = 0;.....m
2e840 75 74 65 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 utex_retval = ca
2e850 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 ckey_mutex_unloc
2e860 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b k(cackey_biglock
2e870 29 3b 0a 09 09 09 69 66 20 28 6d 75 74 65 78 5f );....if (mutex_
2e880 72 65 74 76 61 6c 20 21 3d 20 30 29 20 7b 0a 09 retval != 0) {..
2e890 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
2e8a0 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 PRINTF("Error.
2e8b0 55 6e 6c 6f 63 6b 69 6e 67 20 66 61 69 6c 65 64 Unlocking failed
2e8c0 2e 22 29 3b 0a 0a 09 09 09 09 72 65 74 75 72 6e .");......return
2e8d0 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 (CKR_GENERAL_ERR
2e8e0 4f 52 29 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 OR);....}...}...
2e8f0 09 72 65 74 75 72 6e 28 64 65 63 72 79 70 74 5f .return(decrypt_
2e900 72 65 74 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 70 ret);..}...if (p
2e910 44 61 74 61 29 20 7b 0a 09 09 70 44 61 74 61 20 Data) {...pData
2e920 2b 3d 20 64 61 74 61 6c 65 6e 5f 75 70 64 61 74 += datalen_updat
2e930 65 3b 0a 09 7d 0a 09 64 61 74 61 6c 65 6e 5f 66 e;..}..datalen_f
2e940 69 6e 61 6c 20 3d 20 2a 70 75 6c 44 61 74 61 4c inal = *pulDataL
2e950 65 6e 20 2d 20 64 61 74 61 6c 65 6e 5f 75 70 64 en - datalen_upd
2e960 61 74 65 3b 0a 0a 09 64 65 63 72 79 70 74 5f 72 ate;...decrypt_r
2e970 65 74 20 3d 20 43 5f 44 65 63 72 79 70 74 46 69 et = C_DecryptFi
2e980 6e 61 6c 28 68 53 65 73 73 69 6f 6e 2c 20 70 44 nal(hSession, pD
2e990 61 74 61 2c 20 26 64 61 74 61 6c 65 6e 5f 66 69 ata, &datalen_fi
2e9a0 6e 61 6c 29 3b 0a 09 69 66 20 28 64 65 63 72 79 nal);..if (decry
2e9b0 70 74 5f 72 65 74 20 21 3d 20 43 4b 52 5f 4f 4b pt_ret != CKR_OK
2e9c0 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 ) {...CACKEY_DEB
2e9d0 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 UG_PRINTF("Error
2e9e0 2e 20 20 44 65 63 72 79 70 74 46 69 6e 61 6c 28 . DecryptFinal(
2e9f0 29 20 72 65 74 75 72 6e 65 64 20 66 61 69 6c 75 ) returned failu
2ea00 72 65 20 28 72 76 20 3d 20 25 6c 75 29 2e 22 2c re (rv = %lu).",
2ea10 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 (unsigned long)
2ea20 20 64 65 63 72 79 70 74 5f 72 65 74 29 3b 0a 0a decrypt_ret);..
2ea30 09 09 72 65 74 75 72 6e 28 64 65 63 72 79 70 74 ..return(decrypt
2ea40 5f 72 65 74 29 3b 0a 09 7d 0a 0a 09 2a 70 75 6c _ret);..}...*pul
2ea50 44 61 74 61 4c 65 6e 20 3d 20 64 61 74 61 6c 65 DataLen = datale
2ea60 6e 5f 75 70 64 61 74 65 20 2b 20 64 61 74 61 6c n_update + datal
2ea70 65 6e 5f 66 69 6e 61 6c 3b 0a 0a 09 43 41 43 4b en_final;...CACK
2ea80 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
2ea90 22 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 4f "Returning CKR_O
2eaa0 4b 20 28 25 69 29 22 2c 20 43 4b 52 5f 4f 4b 29 K (%i)", CKR_OK)
2eab0 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f ;...return(CKR_O
2eac0 4b 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 K);.}..CK_DEFINE
2ead0 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c _FUNCTION(CK_RV,
2eae0 20 43 5f 44 65 63 72 79 70 74 55 70 64 61 74 65 C_DecryptUpdate
2eaf0 29 28 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e )(CK_SESSION_HAN
2eb00 44 4c 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b DLE hSession, CK
2eb10 5f 42 59 54 45 5f 50 54 52 20 70 45 6e 63 72 79 _BYTE_PTR pEncry
2eb20 70 74 65 64 50 61 72 74 2c 20 43 4b 5f 55 4c 4f ptedPart, CK_ULO
2eb30 4e 47 20 75 6c 45 6e 63 72 79 70 74 65 64 50 61 NG ulEncryptedPa
2eb40 72 74 4c 65 6e 2c 20 43 4b 5f 42 59 54 45 5f 50 rtLen, CK_BYTE_P
2eb50 54 52 20 70 50 61 72 74 2c 20 43 4b 5f 55 4c 4f TR pPart, CK_ULO
2eb60 4e 47 5f 50 54 52 20 70 75 6c 50 61 72 74 4c 65 NG_PTR pulPartLe
2eb70 6e 29 20 7b 0a 09 73 74 61 74 69 63 20 43 4b 5f n) {..static CK_
2eb80 42 59 54 45 20 62 75 66 5b 31 36 33 38 34 5d 3b BYTE buf[16384];
2eb90 0a 09 73 73 69 7a 65 5f 74 20 62 75 66 6c 65 6e ..ssize_t buflen
2eba0 3b 0a 09 43 4b 5f 53 4c 4f 54 5f 49 44 20 73 6c ;..CK_SLOT_ID sl
2ebb0 6f 74 49 44 3b 0a 09 43 4b 5f 52 56 20 72 65 74 otID;..CK_RV ret
2ebc0 76 61 6c 20 3d 20 43 4b 52 5f 47 45 4e 45 52 41 val = CKR_GENERA
2ebd0 4c 5f 45 52 52 4f 52 3b 0a 09 69 6e 74 20 6d 75 L_ERROR;..int mu
2ebe0 74 65 78 5f 72 65 74 76 61 6c 3b 0a 0a 09 43 41 tex_retval;...CA
2ebf0 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
2ec00 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 F("Called.");...
2ec10 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 if (!cackey_init
2ec20 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 ialized) {...CAC
2ec30 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
2ec40 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e ("Error. Not in
2ec50 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 itialized.");...
2ec60 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 .return(CKR_CRYP
2ec70 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c TOKI_NOT_INITIAL
2ec80 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 IZED);..}...if (
2ec90 68 53 65 73 73 69 6f 6e 20 3d 3d 20 30 20 7c 7c hSession == 0 ||
2eca0 20 68 53 65 73 73 69 6f 6e 20 3e 3d 20 28 73 69 hSession >= (si
2ecb0 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 65 73 73 zeof(cackey_sess
2ecc0 69 6f 6e 73 29 20 2f 20 73 69 7a 65 6f 66 28 63 ions) / sizeof(c
2ecd0 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 30 ackey_sessions[0
2ece0 5d 29 29 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f ]))) {...CACKEY_
2ecf0 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
2ed00 72 6f 72 2e 20 20 53 65 73 73 69 6f 6e 20 6f 75 ror. Session ou
2ed10 74 20 6f 66 20 72 61 6e 67 65 2e 22 29 3b 0a 09 t of range.");..
2ed20 09 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 53 ....return(CKR_S
2ed30 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 5f 49 4e ESSION_HANDLE_IN
2ed40 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 VALID);..}...if
2ed50 28 70 45 6e 63 72 79 70 74 65 64 50 61 72 74 20 (pEncryptedPart
2ed60 3d 3d 20 4e 55 4c 4c 20 26 26 20 75 6c 45 6e 63 == NULL && ulEnc
2ed70 72 79 70 74 65 64 50 61 72 74 4c 65 6e 20 3d 3d ryptedPartLen ==
2ed80 20 30 29 20 7b 0a 09 09 2f 2a 20 53 68 6f 72 74 0) {.../* Short
2ed90 20 63 69 72 63 75 69 74 20 69 66 20 77 65 20 61 circuit if we a
2eda0 72 65 20 61 73 6b 65 64 20 74 6f 20 64 65 63 72 re asked to decr
2edb0 79 70 74 20 6e 6f 74 68 69 6e 67 2e 2e 2e 20 2a ypt nothing... *
2edc0 2f 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 /...CACKEY_DEBUG
2edd0 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 _PRINTF("Returni
2ede0 6e 67 20 43 4b 52 5f 4f 4b 20 28 25 69 29 20 28 ng CKR_OK (%i) (
2edf0 73 68 6f 72 74 20 63 69 72 63 75 69 74 29 22 2c short circuit)",
2ee00 20 43 4b 52 5f 4f 4b 29 3b 0a 0a 09 09 72 65 74 CKR_OK);....ret
2ee10 75 72 6e 28 43 4b 52 5f 4f 4b 29 3b 0a 09 7d 0a urn(CKR_OK);..}.
2ee20 0a 09 69 66 20 28 70 45 6e 63 72 79 70 74 65 64 ..if (pEncrypted
2ee30 50 61 72 74 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a Part == NULL) {.
2ee40 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
2ee50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 70 45 RINTF("Error. pE
2ee60 6e 63 72 79 70 74 65 64 50 61 72 74 20 69 73 20 ncryptedPart is
2ee70 4e 55 4c 4c 2c 20 62 75 74 20 75 6c 45 6e 63 72 NULL, but ulEncr
2ee80 79 70 74 65 64 50 61 72 74 4c 65 6e 20 69 73 20 yptedPartLen is
2ee90 6e 6f 74 20 30 2e 22 29 3b 0a 0a 09 09 72 65 74 not 0.");....ret
2eea0 75 72 6e 28 43 4b 52 5f 41 52 47 55 4d 45 4e 54 urn(CKR_ARGUMENT
2eeb0 53 5f 42 41 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 S_BAD);..}...if
2eec0 28 75 6c 45 6e 63 72 79 70 74 65 64 50 61 72 74 (ulEncryptedPart
2eed0 4c 65 6e 20 3d 3d 20 30 29 20 7b 0a 09 09 43 41 Len == 0) {...CA
2eee0 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
2eef0 46 28 22 45 72 72 6f 72 2e 20 75 6c 45 6e 63 72 F("Error. ulEncr
2ef00 79 70 74 65 64 50 61 72 74 4c 65 6e 20 69 73 20 yptedPartLen is
2ef10 30 2c 20 62 75 74 20 70 50 61 72 74 20 69 73 20 0, but pPart is
2ef20 6e 6f 74 20 4e 55 4c 4c 2e 22 29 3b 0a 0a 09 09 not NULL.");....
2ef30 72 65 74 75 72 6e 28 43 4b 52 5f 41 52 47 55 4d return(CKR_ARGUM
2ef40 45 4e 54 53 5f 42 41 44 29 3b 0a 09 7d 0a 0a 09 ENTS_BAD);..}...
2ef50 69 66 20 28 70 75 6c 50 61 72 74 4c 65 6e 20 3d if (pulPartLen =
2ef60 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b = NULL) {...CACK
2ef70 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
2ef80 22 45 72 72 6f 72 2e 20 70 75 6c 50 61 72 74 4c "Error. pulPartL
2ef90 65 6e 20 69 73 20 4e 55 4c 4c 2e 22 29 3b 0a 0a en is NULL.");..
2efa0 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 41 52 47 ..return(CKR_ARG
2efb0 55 4d 45 4e 54 53 5f 42 41 44 29 3b 0a 09 7d 0a UMENTS_BAD);..}.
2efc0 0a 09 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 3d ..mutex_retval =
2efd0 20 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 6c 6f cackey_mutex_lo
2efe0 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 ck(cackey_bigloc
2eff0 6b 29 3b 0a 09 69 66 20 28 6d 75 74 65 78 5f 72 k);..if (mutex_r
2f000 65 74 76 61 6c 20 21 3d 20 30 29 20 7b 0a 09 09 etval != 0) {...
2f010 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
2f020 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4c 6f 63 NTF("Error. Loc
2f030 6b 69 6e 67 20 66 61 69 6c 65 64 2e 22 29 3b 0a king failed.");.
2f040 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 47 45 ...return(CKR_GE
2f050 4e 45 52 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d NERAL_ERROR);..}
2f060 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f 73 ...if (!cackey_s
2f070 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e essions[hSession
2f080 5d 2e 61 63 74 69 76 65 29 20 7b 0a 09 09 63 61 ].active) {...ca
2f090 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 ckey_mutex_unloc
2f0a0 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b k(cackey_biglock
2f0b0 29 3b 0a 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 );....CACKEY_DEB
2f0c0 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 UG_PRINTF("Error
2f0d0 2e 20 20 53 65 73 73 69 6f 6e 20 6e 6f 74 20 61 . Session not a
2f0e0 63 74 69 76 65 2e 22 29 3b 0a 09 09 0a 09 09 72 ctive.");......r
2f0f0 65 74 75 72 6e 28 43 4b 52 5f 53 45 53 53 49 4f eturn(CKR_SESSIO
2f100 4e 5f 48 41 4e 44 4c 45 5f 49 4e 56 41 4c 49 44 N_HANDLE_INVALID
2f110 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 21 63 61 63 );..}...if (!cac
2f120 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 key_sessions[hSe
2f130 73 73 69 6f 6e 5d 2e 64 65 63 72 79 70 74 5f 61 ssion].decrypt_a
2f140 63 74 69 76 65 29 20 7b 0a 09 09 63 61 63 6b 65 ctive) {...cacke
2f150 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 y_mutex_unlock(c
2f160 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a ackey_biglock);.
2f170 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
2f180 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 PRINTF("Error.
2f190 44 65 63 72 79 70 74 20 6e 6f 74 20 61 63 74 69 Decrypt not acti
2f1a0 76 65 2e 22 29 3b 0a 09 09 0a 09 09 72 65 74 75 ve.");......retu
2f1b0 72 6e 28 43 4b 52 5f 4f 50 45 52 41 54 49 4f 4e rn(CKR_OPERATION
2f1c0 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 _NOT_INITIALIZED
2f1d0 29 3b 0a 09 7d 0a 0a 09 73 6c 6f 74 49 44 20 3d );..}...slotID =
2f1e0 20 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 cackey_sessions
2f1f0 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 6c 6f 74 49 [hSession].slotI
2f200 44 3b 0a 0a 09 69 66 20 28 73 6c 6f 74 49 44 20 D;...if (slotID
2f210 3c 20 30 20 7c 7c 20 73 6c 6f 74 49 44 20 3e 3d < 0 || slotID >=
2f220 20 28 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f (sizeof(cackey_
2f230 73 6c 6f 74 73 29 20 2f 20 73 69 7a 65 6f 66 28 slots) / sizeof(
2f240 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 30 5d 29 cackey_slots[0])
2f250 29 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 )) {...CACKEY_DE
2f260 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f BUG_PRINTF("Erro
2f270 72 2e 20 49 6e 76 61 6c 69 64 20 73 6c 6f 74 20 r. Invalid slot
2f280 72 65 71 75 65 73 74 65 64 20 28 25 6c 75 29 2c requested (%lu),
2f290 20 6f 75 74 73 69 64 65 20 6f 66 20 76 61 6c 69 outside of vali
2f2a0 64 20 72 61 6e 67 65 22 2c 20 73 6c 6f 74 49 44 d range", slotID
2f2b0 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 );....return(CKR
2f2c0 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 29 3b _GENERAL_ERROR);
2f2d0 0a 09 7d 0a 0a 09 69 66 20 28 63 61 63 6b 65 79 ..}...if (cackey
2f2e0 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 2e 61 _slots[slotID].a
2f2f0 63 74 69 76 65 20 3d 3d 20 30 29 20 7b 0a 09 09 ctive == 0) {...
2f300 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
2f310 4e 54 46 28 22 45 72 72 6f 72 2e 20 49 6e 76 61 NTF("Error. Inva
2f320 6c 69 64 20 73 6c 6f 74 20 72 65 71 75 65 73 74 lid slot request
2f330 65 64 20 28 25 6c 75 29 2c 20 73 6c 6f 74 20 6e ed (%lu), slot n
2f340 6f 74 20 63 75 72 72 65 6e 74 6c 79 20 61 63 74 ot currently act
2f350 69 76 65 22 2c 20 73 6c 6f 74 49 44 29 3b 0a 0a ive", slotID);..
2f360 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 ..cackey_mutex_u
2f370 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 nlock(cackey_big
2f380 6c 6f 63 6b 29 3b 0a 0a 09 09 72 65 74 75 72 6e lock);....return
2f390 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 (CKR_GENERAL_ERR
2f3a0 4f 52 29 3b 0a 09 7d 0a 0a 09 73 77 69 74 63 68 OR);..}...switch
2f3b0 20 28 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e (cackey_session
2f3c0 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 64 65 63 72 s[hSession].decr
2f3d0 79 70 74 5f 6d 65 63 68 61 6e 69 73 6d 29 20 7b ypt_mechanism) {
2f3e0 0a 09 09 63 61 73 65 20 43 4b 4d 5f 52 53 41 5f ...case CKM_RSA_
2f3f0 50 4b 43 53 3a 0a 09 09 09 2f 2a 20 41 73 6b 20 PKCS:..../* Ask
2f400 63 61 72 64 20 74 6f 20 64 65 63 72 79 70 74 20 card to decrypt
2f410 2a 2f 0a 09 09 09 62 75 66 6c 65 6e 20 3d 20 63 */....buflen = c
2f420 61 63 6b 65 79 5f 73 69 67 6e 64 65 63 72 79 70 ackey_signdecryp
2f430 74 28 26 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b t(&cackey_slots[
2f440 73 6c 6f 74 49 44 5d 2c 20 63 61 63 6b 65 79 5f slotID], cackey_
2f450 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f sessions[hSessio
2f460 6e 5d 2e 64 65 63 72 79 70 74 5f 69 64 65 6e 74 n].decrypt_ident
2f470 69 74 79 2c 20 70 45 6e 63 72 79 70 74 65 64 50 ity, pEncryptedP
2f480 61 72 74 2c 20 75 6c 45 6e 63 72 79 70 74 65 64 art, ulEncrypted
2f490 50 61 72 74 4c 65 6e 2c 20 62 75 66 2c 20 73 69 PartLen, buf, si
2f4a0 7a 65 6f 66 28 62 75 66 29 2c 20 30 2c 20 31 29 zeof(buf), 0, 1)
2f4b0 3b 0a 0a 09 09 09 69 66 20 28 62 75 66 6c 65 6e ;.....if (buflen
2f4c0 20 3d 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 5f == CACKEY_PCSC_
2f4d0 45 5f 4e 45 45 44 4c 4f 47 49 4e 20 26 26 20 63 E_NEEDLOGIN && c
2f4e0 61 63 6b 65 79 5f 70 69 6e 5f 63 6f 6d 6d 61 6e ackey_pin_comman
2f4f0 64 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 d != NULL) {....
2f500 09 69 66 20 28 43 5f 4c 6f 67 69 6e 4d 75 74 65 .if (C_LoginMute
2f510 78 41 72 67 28 68 53 65 73 73 69 6f 6e 2c 20 43 xArg(hSession, C
2f520 4b 55 5f 55 53 45 52 2c 20 4e 55 4c 4c 2c 20 30 KU_USER, NULL, 0
2f530 2c 20 30 29 20 3d 3d 20 43 4b 52 5f 4f 4b 29 20 , 0) == CKR_OK)
2f540 7b 0a 09 09 09 09 09 62 75 66 6c 65 6e 20 3d 20 {......buflen =
2f550 63 61 63 6b 65 79 5f 73 69 67 6e 64 65 63 72 79 cackey_signdecry
2f560 70 74 28 26 63 61 63 6b 65 79 5f 73 6c 6f 74 73 pt(&cackey_slots
2f570 5b 73 6c 6f 74 49 44 5d 2c 20 63 61 63 6b 65 79 [slotID], cackey
2f580 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 _sessions[hSessi
2f590 6f 6e 5d 2e 64 65 63 72 79 70 74 5f 69 64 65 6e on].decrypt_iden
2f5a0 74 69 74 79 2c 20 70 45 6e 63 72 79 70 74 65 64 tity, pEncrypted
2f5b0 50 61 72 74 2c 20 75 6c 45 6e 63 72 79 70 74 65 Part, ulEncrypte
2f5c0 64 50 61 72 74 4c 65 6e 2c 20 62 75 66 2c 20 73 dPartLen, buf, s
2f5d0 69 7a 65 6f 66 28 62 75 66 29 2c 20 30 2c 20 31 izeof(buf), 0, 1
2f5e0 29 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 0a 09 );.....}....}...
2f5f0 09 09 69 66 20 28 62 75 66 6c 65 6e 20 3c 20 30 ..if (buflen < 0
2f600 29 20 7b 0a 09 09 09 09 2f 2a 20 44 65 63 72 79 ) {...../* Decry
2f610 70 74 69 6f 6e 20 66 61 69 6c 65 64 2e 20 2a 2f ption failed. */
2f620 0a 09 09 09 09 69 66 20 28 62 75 66 6c 65 6e 20 .....if (buflen
2f630 3d 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 == CACKEY_PCSC_E
2f640 5f 4e 45 45 44 4c 4f 47 49 4e 29 20 7b 0a 09 09 _NEEDLOGIN) {...
2f650 09 09 09 72 65 74 76 61 6c 20 3d 20 43 4b 52 5f ...retval = CKR_
2f660 55 53 45 52 5f 4e 4f 54 5f 4c 4f 47 47 45 44 5f USER_NOT_LOGGED_
2f670 49 4e 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20 69 IN;.....} else i
2f680 66 20 28 62 75 66 6c 65 6e 20 3d 3d 20 43 41 43 f (buflen == CAC
2f690 4b 45 59 5f 50 43 53 43 5f 45 5f 54 4f 4b 45 4e KEY_PCSC_E_TOKEN
2f6a0 41 42 53 45 4e 54 29 20 7b 0a 09 09 09 09 09 72 ABSENT) {......r
2f6b0 65 74 76 61 6c 20 3d 20 43 4b 52 5f 44 45 56 49 etval = CKR_DEVI
2f6c0 43 45 5f 52 45 4d 4f 56 45 44 3b 0a 09 09 09 09 CE_REMOVED;.....
2f6d0 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 09 43 41 } else {......CA
2f6e0 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
2f6f0 46 28 22 46 61 69 6c 65 64 20 74 6f 20 73 65 6e F("Failed to sen
2f700 64 20 41 50 44 55 2c 20 65 72 72 6f 72 20 3d 20 d APDU, error =
2f710 25 6c 69 22 2c 20 28 6c 6f 6e 67 20 69 6e 74 29 %li", (long int)
2f720 20 62 75 66 6c 65 6e 29 3b 0a 0a 09 09 09 09 09 buflen);.......
2f730 72 65 74 76 61 6c 20 3d 20 43 4b 52 5f 47 45 4e retval = CKR_GEN
2f740 45 52 41 4c 5f 45 52 52 4f 52 3b 0a 09 09 09 09 ERAL_ERROR;.....
2f750 7d 0a 09 09 09 7d 20 65 6c 73 65 20 69 66 20 28 }....} else if (
2f760 28 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 ((unsigned long)
2f770 20 62 75 66 6c 65 6e 29 20 3e 20 2a 70 75 6c 50 buflen) > *pulP
2f780 61 72 74 4c 65 6e 20 26 26 20 70 50 61 72 74 29 artLen && pPart)
2f790 20 7b 0a 09 09 09 09 2f 2a 20 44 65 63 72 79 70 {...../* Decryp
2f7a0 74 65 64 20 64 61 74 61 20 74 6f 6f 20 6c 61 72 ted data too lar
2f7b0 67 65 20 2a 2f 0a 09 09 09 09 72 65 74 76 61 6c ge */.....retval
2f7c0 20 3d 20 43 4b 52 5f 42 55 46 46 45 52 5f 54 4f = CKR_BUFFER_TO
2f7d0 4f 5f 53 4d 41 4c 4c 3b 0a 09 09 09 7d 20 65 6c O_SMALL;....} el
2f7e0 73 65 20 7b 0a 09 09 09 09 69 66 20 28 70 50 61 se {.....if (pPa
2f7f0 72 74 29 20 7b 0a 09 09 09 09 09 6d 65 6d 63 70 rt) {......memcp
2f800 79 28 70 50 61 72 74 2c 20 62 75 66 2c 20 62 75 y(pPart, buf, bu
2f810 66 6c 65 6e 29 3b 0a 09 09 09 09 7d 0a 0a 09 09 flen);.....}....
2f820 09 09 2a 70 75 6c 50 61 72 74 4c 65 6e 20 3d 20 ..*pulPartLen =
2f830 62 75 66 6c 65 6e 3b 0a 0a 09 09 09 09 72 65 74 buflen;......ret
2f840 76 61 6c 20 3d 20 43 4b 52 5f 4f 4b 3b 0a 09 09 val = CKR_OK;...
2f850 09 7d 0a 0a 09 09 09 62 72 65 61 6b 3b 0a 09 7d .}.....break;..}
2f860 0a 0a 09 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 ...mutex_retval
2f870 3d 20 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 = cackey_mutex_u
2f880 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 nlock(cackey_big
2f890 6c 6f 63 6b 29 3b 0a 09 69 66 20 28 6d 75 74 65 lock);..if (mute
2f8a0 78 5f 72 65 74 76 61 6c 20 21 3d 20 30 29 20 7b x_retval != 0) {
2f8b0 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
2f8c0 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 PRINTF("Error.
2f8d0 55 6e 6c 6f 63 6b 69 6e 67 20 66 61 69 6c 65 64 Unlocking failed
2f8e0 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 .");....return(C
2f8f0 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 KR_GENERAL_ERROR
2f900 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 );..}...CACKEY_D
2f910 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 EBUG_PRINTF("Ret
2f920 75 72 6e 69 6e 67 20 25 69 22 2c 20 28 69 6e 74 urning %i", (int
2f930 29 20 72 65 74 76 61 6c 29 3b 0a 0a 09 72 65 74 ) retval);...ret
2f940 75 72 6e 28 72 65 74 76 61 6c 29 3b 0a 7d 0a 0a urn(retval);.}..
2f950 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 CK_DEFINE_FUNCTI
2f960 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f 44 65 63 72 ON(CK_RV, C_Decr
2f970 79 70 74 46 69 6e 61 6c 29 28 43 4b 5f 53 45 53 yptFinal)(CK_SES
2f980 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 SION_HANDLE hSes
2f990 73 69 6f 6e 2c 20 43 4b 5f 42 59 54 45 5f 50 54 sion, CK_BYTE_PT
2f9a0 52 20 70 4c 61 73 74 50 61 72 74 2c 20 43 4b 5f R pLastPart, CK_
2f9b0 55 4c 4f 4e 47 5f 50 54 52 20 70 75 6c 4c 61 73 ULONG_PTR pulLas
2f9c0 74 50 61 72 74 4c 65 6e 29 20 7b 0a 09 69 6e 74 tPartLen) {..int
2f9d0 20 6d 75 74 65 78 5f 72 65 74 76 61 6c 3b 0a 09 mutex_retval;..
2f9e0 69 6e 74 20 74 65 72 6d 69 6e 61 74 65 5f 64 65 int terminate_de
2f9f0 63 72 79 70 74 20 3d 20 31 3b 0a 0a 09 43 41 43 crypt = 1;...CAC
2fa00 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
2fa10 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 ("Called.");...i
2fa20 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 f (!cackey_initi
2fa30 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b alized) {...CACK
2fa40 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
2fa50 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 "Error. Not ini
2fa60 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 tialized.");....
2fa70 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 return(CKR_CRYPT
2fa80 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 OKI_NOT_INITIALI
2fa90 5a 45 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 68 ZED);..}...if (h
2faa0 53 65 73 73 69 6f 6e 20 3d 3d 20 30 20 7c 7c 20 Session == 0 ||
2fab0 68 53 65 73 73 69 6f 6e 20 3e 3d 20 28 73 69 7a hSession >= (siz
2fac0 65 6f 66 28 63 61 63 6b 65 79 5f 73 65 73 73 69 eof(cackey_sessi
2fad0 6f 6e 73 29 20 2f 20 73 69 7a 65 6f 66 28 63 61 ons) / sizeof(ca
2fae0 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 30 5d ckey_sessions[0]
2faf0 29 29 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ))) {...CACKEY_D
2fb00 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
2fb10 6f 72 2e 20 20 53 65 73 73 69 6f 6e 20 6f 75 74 or. Session out
2fb20 20 6f 66 20 72 61 6e 67 65 2e 22 29 3b 0a 09 09 of range.");...
2fb30 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 53 45 ...return(CKR_SE
2fb40 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 5f 49 4e 56 SSION_HANDLE_INV
2fb50 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 ALID);..}...if (
2fb60 70 75 6c 4c 61 73 74 50 61 72 74 4c 65 6e 20 3d pulLastPartLen =
2fb70 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 4b = NULL) {...CACK
2fb80 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
2fb90 22 45 72 72 6f 72 2e 20 70 75 6c 4c 61 73 74 50 "Error. pulLastP
2fba0 61 72 74 4c 65 6e 20 69 73 20 4e 55 4c 4c 2e 22 artLen is NULL."
2fbb0 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 );....return(CKR
2fbc0 5f 41 52 47 55 4d 45 4e 54 53 5f 42 41 44 29 3b _ARGUMENTS_BAD);
2fbd0 0a 09 7d 0a 0a 09 6d 75 74 65 78 5f 72 65 74 76 ..}...mutex_retv
2fbe0 61 6c 20 3d 20 63 61 63 6b 65 79 5f 6d 75 74 65 al = cackey_mute
2fbf0 78 5f 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 x_lock(cackey_bi
2fc00 67 6c 6f 63 6b 29 3b 0a 09 69 66 20 28 6d 75 74 glock);..if (mut
2fc10 65 78 5f 72 65 74 76 61 6c 20 21 3d 20 30 29 20 ex_retval != 0)
2fc20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
2fc30 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
2fc40 20 4c 6f 63 6b 69 6e 67 20 66 61 69 6c 65 64 2e Locking failed.
2fc50 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b ");....return(CK
2fc60 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 29 R_GENERAL_ERROR)
2fc70 3b 0a 09 7d 0a 0a 09 69 66 20 28 21 63 61 63 6b ;..}...if (!cack
2fc80 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 ey_sessions[hSes
2fc90 73 69 6f 6e 5d 2e 61 63 74 69 76 65 29 20 7b 0a sion].active) {.
2fca0 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 ..cackey_mutex_u
2fcb0 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 nlock(cackey_big
2fcc0 6c 6f 63 6b 29 3b 0a 0a 09 09 43 41 43 4b 45 59 lock);....CACKEY
2fcd0 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
2fce0 72 72 6f 72 2e 20 20 53 65 73 73 69 6f 6e 20 6e rror. Session n
2fcf0 6f 74 20 61 63 74 69 76 65 2e 22 29 3b 0a 09 09 ot active.");...
2fd00 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 53 45 ...return(CKR_SE
2fd10 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 5f 49 4e 56 SSION_HANDLE_INV
2fd20 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 ALID);..}...if (
2fd30 21 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 !cackey_sessions
2fd40 5b 68 53 65 73 73 69 6f 6e 5d 2e 64 65 63 72 79 [hSession].decry
2fd50 70 74 5f 61 63 74 69 76 65 29 20 7b 0a 09 09 63 pt_active) {...c
2fd60 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f ackey_mutex_unlo
2fd70 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 ck(cackey_bigloc
2fd80 6b 29 3b 0a 0a 09 09 43 41 43 4b 45 59 5f 44 45 k);....CACKEY_DE
2fd90 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f BUG_PRINTF("Erro
2fda0 72 2e 20 20 44 65 63 72 79 70 74 20 6e 6f 74 20 r. Decrypt not
2fdb0 61 63 74 69 76 65 2e 22 29 3b 0a 09 09 0a 09 09 active.");......
2fdc0 72 65 74 75 72 6e 28 43 4b 52 5f 4f 50 45 52 41 return(CKR_OPERA
2fdd0 54 49 4f 4e 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c TION_NOT_INITIAL
2fde0 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 2a 70 75 6c IZED);..}...*pul
2fdf0 4c 61 73 74 50 61 72 74 4c 65 6e 20 3d 20 30 3b LastPartLen = 0;
2fe00 0a 0a 09 69 66 20 28 70 4c 61 73 74 50 61 72 74 ...if (pLastPart
2fe10 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 74 65 == NULL) {...te
2fe20 72 6d 69 6e 61 74 65 5f 64 65 63 72 79 70 74 20 rminate_decrypt
2fe30 3d 20 30 3b 0a 09 7d 0a 0a 09 69 66 20 28 74 65 = 0;..}...if (te
2fe40 72 6d 69 6e 61 74 65 5f 64 65 63 72 79 70 74 29 rminate_decrypt)
2fe50 20 7b 0a 09 09 63 61 63 6b 65 79 5f 73 65 73 73 {...cackey_sess
2fe60 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 64 ions[hSession].d
2fe70 65 63 72 79 70 74 5f 61 63 74 69 76 65 20 3d 20 ecrypt_active =
2fe80 30 3b 0a 09 7d 0a 0a 09 6d 75 74 65 78 5f 72 65 0;..}...mutex_re
2fe90 74 76 61 6c 20 3d 20 63 61 63 6b 65 79 5f 6d 75 tval = cackey_mu
2fea0 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 tex_unlock(cacke
2feb0 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 69 66 20 y_biglock);..if
2fec0 28 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 21 3d (mutex_retval !=
2fed0 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 0) {...CACKEY_D
2fee0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
2fef0 6f 72 2e 20 20 55 6e 6c 6f 63 6b 69 6e 67 20 66 or. Unlocking f
2ff00 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 ailed.");....ret
2ff10 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f urn(CKR_GENERAL_
2ff20 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 43 41 43 ERROR);..}...CAC
2ff30 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
2ff40 28 22 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f ("Returning CKR_
2ff50 4f 4b 20 28 25 69 29 22 2c 20 43 4b 52 5f 4f 4b OK (%i)", CKR_OK
2ff60 29 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f );...return(CKR_
2ff70 4f 4b 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e OK);.}..CK_DEFIN
2ff80 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 E_FUNCTION(CK_RV
2ff90 2c 20 43 5f 44 69 67 65 73 74 49 6e 69 74 29 28 , C_DigestInit)(
2ffa0 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c CK_SESSION_HANDL
2ffb0 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 4d E hSession, CK_M
2ffc0 45 43 48 41 4e 49 53 4d 5f 50 54 52 20 70 4d 65 ECHANISM_PTR pMe
2ffd0 63 68 61 6e 69 73 6d 29 20 7b 0a 09 43 41 43 4b chanism) {..CACK
2ffe0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
2fff0 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 "Called.");...if
30000 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 (!cackey_initia
30010 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 lized) {...CACKE
30020 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
30030 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 Error. Not init
30040 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 ialized.");....r
30050 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f eturn(CKR_CRYPTO
30060 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a KI_NOT_INITIALIZ
30070 45 44 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 ED);..}...CACKEY
30080 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 _DEBUG_PRINTF("R
30090 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 46 55 4e eturning CKR_FUN
300a0 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 CTION_NOT_SUPPOR
300b0 54 45 44 20 28 25 69 29 22 2c 20 43 4b 52 5f 46 TED (%i)", CKR_F
300c0 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 UNCTION_NOT_SUPP
300d0 4f 52 54 45 44 29 3b 0a 0a 09 72 65 74 75 72 6e ORTED);...return
300e0 28 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f (CKR_FUNCTION_NO
300f0 54 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 7d 0a T_SUPPORTED);.}.
30100 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 .CK_DEFINE_FUNCT
30110 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f 44 69 67 ION(CK_RV, C_Dig
30120 65 73 74 29 28 43 4b 5f 53 45 53 53 49 4f 4e 5f est)(CK_SESSION_
30130 48 41 4e 44 4c 45 20 68 53 65 73 73 69 6f 6e 2c HANDLE hSession,
30140 20 43 4b 5f 42 59 54 45 5f 50 54 52 20 70 44 61 CK_BYTE_PTR pDa
30150 74 61 2c 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 44 ta, CK_ULONG ulD
30160 61 74 61 4c 65 6e 2c 20 43 4b 5f 42 59 54 45 5f ataLen, CK_BYTE_
30170 50 54 52 20 70 44 69 67 65 73 74 2c 20 43 4b 5f PTR pDigest, CK_
30180 55 4c 4f 4e 47 5f 50 54 52 20 70 75 6c 44 69 67 ULONG_PTR pulDig
30190 65 73 74 4c 65 6e 29 20 7b 0a 09 43 41 43 4b 45 estLen) {..CACKE
301a0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
301b0 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 Called.");...if
301c0 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c (!cackey_initial
301d0 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 ized) {...CACKEY
301e0 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
301f0 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 rror. Not initi
30200 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 alized.");....re
30210 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b turn(CKR_CRYPTOK
30220 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 I_NOT_INITIALIZE
30230 44 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f D);..}...CACKEY_
30240 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 DEBUG_PRINTF("Re
30250 74 75 72 6e 69 6e 67 20 43 4b 52 5f 46 55 4e 43 turning CKR_FUNC
30260 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 TION_NOT_SUPPORT
30270 45 44 20 28 25 69 29 22 2c 20 43 4b 52 5f 46 55 ED (%i)", CKR_FU
30280 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f NCTION_NOT_SUPPO
30290 52 54 45 44 29 3b 0a 0a 09 72 65 74 75 72 6e 28 RTED);...return(
302a0 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 CKR_FUNCTION_NOT
302b0 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 7d 0a 0a _SUPPORTED);.}..
302c0 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 CK_DEFINE_FUNCTI
302d0 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f 44 69 67 65 ON(CK_RV, C_Dige
302e0 73 74 55 70 64 61 74 65 29 28 43 4b 5f 53 45 53 stUpdate)(CK_SES
302f0 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 SION_HANDLE hSes
30300 73 69 6f 6e 2c 20 43 4b 5f 42 59 54 45 5f 50 54 sion, CK_BYTE_PT
30310 52 20 70 50 61 72 74 2c 20 43 4b 5f 55 4c 4f 4e R pPart, CK_ULON
30320 47 20 75 6c 50 61 72 74 4c 65 6e 29 20 7b 0a 09 G ulPartLen) {..
30330 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
30340 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a NTF("Called.");.
30350 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e ..if (!cackey_in
30360 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 itialized) {...C
30370 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
30380 54 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 TF("Error. Not
30390 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a initialized.");.
303a0 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 ...return(CKR_CR
303b0 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 YPTOKI_NOT_INITI
303c0 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 43 41 ALIZED);..}...CA
303d0 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
303e0 46 28 22 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 F("Returning CKR
303f0 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 _FUNCTION_NOT_SU
30400 50 50 4f 52 54 45 44 20 28 25 69 29 22 2c 20 43 PPORTED (%i)", C
30410 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f KR_FUNCTION_NOT_
30420 53 55 50 50 4f 52 54 45 44 29 3b 0a 0a 09 72 65 SUPPORTED);...re
30430 74 75 72 6e 28 43 4b 52 5f 46 55 4e 43 54 49 4f turn(CKR_FUNCTIO
30440 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 N_NOT_SUPPORTED)
30450 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 ;.}..CK_DEFINE_F
30460 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 UNCTION(CK_RV, C
30470 5f 44 69 67 65 73 74 4b 65 79 29 28 43 4b 5f 53 _DigestKey)(CK_S
30480 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 ESSION_HANDLE hS
30490 65 73 73 69 6f 6e 2c 20 43 4b 5f 4f 42 4a 45 43 ession, CK_OBJEC
304a0 54 5f 48 41 4e 44 4c 45 20 68 4b 65 79 29 20 7b T_HANDLE hKey) {
304b0 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
304c0 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 RINTF("Called.")
304d0 3b 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f ;...if (!cackey_
304e0 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 initialized) {..
304f0 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
30500 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f INTF("Error. No
30510 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 t initialized.")
30520 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f ;....return(CKR_
30530 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 CRYPTOKI_NOT_INI
30540 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 TIALIZED);..}...
30550 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
30560 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 43 NTF("Returning C
30570 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f KR_FUNCTION_NOT_
30580 53 55 50 50 4f 52 54 45 44 20 28 25 69 29 22 2c SUPPORTED (%i)",
30590 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f CKR_FUNCTION_NO
305a0 54 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 0a 09 T_SUPPORTED);...
305b0 72 65 74 75 72 6e 28 43 4b 52 5f 46 55 4e 43 54 return(CKR_FUNCT
305c0 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 ION_NOT_SUPPORTE
305d0 44 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 D);.}..CK_DEFINE
305e0 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c _FUNCTION(CK_RV,
305f0 20 43 5f 44 69 67 65 73 74 46 69 6e 61 6c 29 28 C_DigestFinal)(
30600 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c CK_SESSION_HANDL
30610 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 42 E hSession, CK_B
30620 59 54 45 5f 50 54 52 20 70 44 69 67 65 73 74 2c YTE_PTR pDigest,
30630 20 43 4b 5f 55 4c 4f 4e 47 5f 50 54 52 20 70 75 CK_ULONG_PTR pu
30640 6c 44 69 67 65 73 74 4c 65 6e 29 20 7b 0a 09 43 lDigestLen) {..C
30650 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
30660 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a TF("Called.");..
30670 09 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 .if (!cackey_ini
30680 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 tialized) {...CA
30690 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
306a0 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 F("Error. Not i
306b0 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a nitialized.");..
306c0 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 ..return(CKR_CRY
306d0 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 PTOKI_NOT_INITIA
306e0 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 43 41 43 LIZED);..}...CAC
306f0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
30700 28 22 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f ("Returning CKR_
30710 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 FUNCTION_NOT_SUP
30720 50 4f 52 54 45 44 20 28 25 69 29 22 2c 20 43 4b PORTED (%i)", CK
30730 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 R_FUNCTION_NOT_S
30740 55 50 50 4f 52 54 45 44 29 3b 0a 0a 09 72 65 74 UPPORTED);...ret
30750 75 72 6e 28 43 4b 52 5f 46 55 4e 43 54 49 4f 4e urn(CKR_FUNCTION
30760 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b _NOT_SUPPORTED);
30770 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 55 .}..CK_DEFINE_FU
30780 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f NCTION(CK_RV, C_
30790 53 69 67 6e 49 6e 69 74 29 28 43 4b 5f 53 45 53 SignInit)(CK_SES
307a0 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 SION_HANDLE hSes
307b0 73 69 6f 6e 2c 20 43 4b 5f 4d 45 43 48 41 4e 49 sion, CK_MECHANI
307c0 53 4d 5f 50 54 52 20 70 4d 65 63 68 61 6e 69 73 SM_PTR pMechanis
307d0 6d 2c 20 43 4b 5f 4f 42 4a 45 43 54 5f 48 41 4e m, CK_OBJECT_HAN
307e0 44 4c 45 20 68 4b 65 79 29 20 7b 0a 09 69 6e 74 DLE hKey) {..int
307f0 20 6d 75 74 65 78 5f 72 65 74 76 61 6c 3b 0a 0a mutex_retval;..
30800 09 68 4b 65 79 2d 2d 3b 0a 0a 09 43 41 43 4b 45 .hKey--;...CACKE
30810 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
30820 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 Called.");...if
30830 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c (!cackey_initial
30840 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 ized) {...CACKEY
30850 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
30860 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 rror. Not initi
30870 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 alized.");....re
30880 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b turn(CKR_CRYPTOK
30890 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 I_NOT_INITIALIZE
308a0 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 70 4d 65 D);..}...if (pMe
308b0 63 68 61 6e 69 73 6d 20 3d 3d 20 4e 55 4c 4c 29 chanism == NULL)
308c0 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
308d0 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
308e0 20 70 4d 65 63 68 61 6e 69 73 6d 20 69 73 20 4e pMechanism is N
308f0 55 4c 4c 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 ULL.");....retur
30900 6e 28 43 4b 52 5f 41 52 47 55 4d 45 4e 54 53 5f n(CKR_ARGUMENTS_
30910 42 41 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 70 BAD);..}...if (p
30920 4d 65 63 68 61 6e 69 73 6d 2d 3e 6d 65 63 68 61 Mechanism->mecha
30930 6e 69 73 6d 20 21 3d 20 43 4b 4d 5f 52 53 41 5f nism != CKM_RSA_
30940 50 4b 43 53 29 20 7b 0a 09 09 43 41 43 4b 45 59 PKCS) {...CACKEY
30950 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
30960 72 72 6f 72 2e 20 70 4d 65 63 68 61 6e 69 73 6d rror. pMechanism
30970 2d 3e 6d 65 63 68 61 6e 69 73 6d 20 6e 6f 74 20 ->mechanism not
30980 73 70 65 63 69 66 69 65 64 20 61 73 20 43 4b 4d specified as CKM
30990 5f 52 53 41 5f 50 4b 43 53 22 29 3b 0a 0a 09 09 _RSA_PKCS");....
309a0 72 65 74 75 72 6e 28 43 4b 52 5f 4d 45 43 48 41 return(CKR_MECHA
309b0 4e 49 53 4d 5f 50 41 52 41 4d 5f 49 4e 56 41 4c NISM_PARAM_INVAL
309c0 49 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 68 53 ID);..}...if (hS
309d0 65 73 73 69 6f 6e 20 3d 3d 20 30 20 7c 7c 20 68 ession == 0 || h
309e0 53 65 73 73 69 6f 6e 20 3e 3d 20 28 73 69 7a 65 Session >= (size
309f0 6f 66 28 63 61 63 6b 65 79 5f 73 65 73 73 69 6f of(cackey_sessio
30a00 6e 73 29 20 2f 20 73 69 7a 65 6f 66 28 63 61 63 ns) / sizeof(cac
30a10 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 30 5d 29 key_sessions[0])
30a20 29 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 )) {...CACKEY_DE
30a30 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f BUG_PRINTF("Erro
30a40 72 2e 20 20 53 65 73 73 69 6f 6e 20 6f 75 74 20 r. Session out
30a50 6f 66 20 72 61 6e 67 65 2e 22 29 3b 0a 09 09 0a of range.");....
30a60 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 53 45 53 ..return(CKR_SES
30a70 53 49 4f 4e 5f 48 41 4e 44 4c 45 5f 49 4e 56 41 SION_HANDLE_INVA
30a80 4c 49 44 29 3b 0a 09 7d 0a 0a 09 6d 75 74 65 78 LID);..}...mutex
30a90 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 79 _retval = cackey
30aa0 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 63 61 63 6b _mutex_lock(cack
30ab0 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 69 66 ey_biglock);..if
30ac0 20 28 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 21 (mutex_retval !
30ad0 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f = 0) {...CACKEY_
30ae0 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
30af0 72 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 20 66 61 ror. Locking fa
30b00 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 iled.");....retu
30b10 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 rn(CKR_GENERAL_E
30b20 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 RROR);..}...if (
30b30 21 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 !cackey_sessions
30b40 5b 68 53 65 73 73 69 6f 6e 5d 2e 61 63 74 69 76 [hSession].activ
30b50 65 29 20 7b 0a 09 09 63 61 63 6b 65 79 5f 6d 75 e) {...cackey_mu
30b60 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 tex_unlock(cacke
30b70 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 43 y_biglock);....C
30b80 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
30b90 54 46 28 22 45 72 72 6f 72 2e 20 20 53 65 73 73 TF("Error. Sess
30ba0 69 6f 6e 20 6e 6f 74 20 61 63 74 69 76 65 2e 22 ion not active."
30bb0 29 3b 0a 09 09 0a 09 09 72 65 74 75 72 6e 28 43 );......return(C
30bc0 4b 52 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c KR_SESSION_HANDL
30bd0 45 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a E_INVALID);..}..
30be0 09 69 66 20 28 63 61 63 6b 65 79 5f 73 65 73 73 .if (cackey_sess
30bf0 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 ions[hSession].s
30c00 69 67 6e 5f 61 63 74 69 76 65 29 20 7b 0a 09 09 ign_active) {...
30c10 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c cackey_mutex_unl
30c20 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f ock(cackey_biglo
30c30 63 6b 29 3b 0a 0a 09 09 43 41 43 4b 45 59 5f 44 ck);....CACKEY_D
30c40 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
30c50 6f 72 2e 20 20 53 69 67 6e 20 61 6c 72 65 61 64 or. Sign alread
30c60 79 20 69 6e 20 70 72 6f 67 72 65 73 73 2e 22 29 y in progress.")
30c70 3b 0a 09 09 0a 09 09 72 65 74 75 72 6e 28 43 4b ;......return(CK
30c80 52 5f 4f 50 45 52 41 54 49 4f 4e 5f 41 43 54 49 R_OPERATION_ACTI
30c90 56 45 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 68 4b VE);..}...if (hK
30ca0 65 79 20 3e 3d 20 63 61 63 6b 65 79 5f 73 65 73 ey >= cackey_ses
30cb0 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e sions[hSession].
30cc0 69 64 65 6e 74 69 74 69 65 73 5f 63 6f 75 6e 74 identities_count
30cd0 29 20 7b 0a 09 09 63 61 63 6b 65 79 5f 6d 75 74 ) {...cackey_mut
30ce0 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 ex_unlock(cackey
30cf0 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 43 41 _biglock);....CA
30d00 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
30d10 46 28 22 45 72 72 6f 72 2e 20 20 4b 65 79 20 68 F("Error. Key h
30d20 61 6e 64 6c 65 20 6f 75 74 20 6f 66 20 72 61 6e andle out of ran
30d30 67 65 20 28 72 65 71 75 65 73 74 65 64 20 6b 65 ge (requested ke
30d40 79 20 25 6c 75 2c 20 6f 6e 6c 79 20 25 6c 75 20 y %lu, only %lu
30d50 69 64 65 6e 74 69 74 69 65 73 20 61 76 61 69 6c identities avail
30d60 61 62 6c 65 29 2e 22 2c 20 28 75 6e 73 69 67 6e able).", (unsign
30d70 65 64 20 6c 6f 6e 67 29 20 68 4b 65 79 2c 20 28 ed long) hKey, (
30d80 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 63 unsigned long) c
30d90 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 ackey_sessions[h
30da0 53 65 73 73 69 6f 6e 5d 2e 69 64 65 6e 74 69 74 Session].identit
30db0 69 65 73 5f 63 6f 75 6e 74 29 3b 0a 0a 09 09 72 ies_count);....r
30dc0 65 74 75 72 6e 28 43 4b 52 5f 4b 45 59 5f 48 41 eturn(CKR_KEY_HA
30dd0 4e 44 4c 45 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 NDLE_INVALID);..
30de0 7d 0a 0a 09 63 61 63 6b 65 79 5f 73 65 73 73 69 }...cackey_sessi
30df0 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 69 ons[hSession].si
30e00 67 6e 5f 61 63 74 69 76 65 20 3d 20 31 3b 0a 0a gn_active = 1;..
30e10 09 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 .cackey_sessions
30e20 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 69 67 6e 5f [hSession].sign_
30e30 6d 65 63 68 61 6e 69 73 6d 20 3d 20 70 4d 65 63 mechanism = pMec
30e40 68 61 6e 69 73 6d 2d 3e 6d 65 63 68 61 6e 69 73 hanism->mechanis
30e50 6d 3b 0a 0a 09 63 61 63 6b 65 79 5f 73 65 73 73 m;...cackey_sess
30e60 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 ions[hSession].s
30e70 69 67 6e 5f 62 75 66 6c 65 6e 20 3d 20 31 32 38 ign_buflen = 128
30e80 3b 0a 09 63 61 63 6b 65 79 5f 73 65 73 73 69 6f ;..cackey_sessio
30e90 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 69 67 ns[hSession].sig
30ea0 6e 5f 62 75 66 75 73 65 64 20 3d 20 30 3b 0a 09 n_bufused = 0;..
30eb0 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b cackey_sessions[
30ec0 68 53 65 73 73 69 6f 6e 5d 2e 73 69 67 6e 5f 62 hSession].sign_b
30ed0 75 66 20 3d 20 6d 61 6c 6c 6f 63 28 73 69 7a 65 uf = malloc(size
30ee0 6f 66 28 2a 63 61 63 6b 65 79 5f 73 65 73 73 69 of(*cackey_sessi
30ef0 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 69 ons[hSession].si
30f00 67 6e 5f 62 75 66 29 20 2a 20 63 61 63 6b 65 79 gn_buf) * cackey
30f10 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 _sessions[hSessi
30f20 6f 6e 5d 2e 73 69 67 6e 5f 62 75 66 6c 65 6e 29 on].sign_buflen)
30f30 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ;...CACKEY_DEBUG
30f40 5f 50 52 49 4e 54 46 28 22 53 65 73 73 69 6f 6e _PRINTF("Session
30f50 20 25 6c 75 20 73 69 67 6e 5f 69 64 65 6e 74 69 %lu sign_identi
30f60 74 79 20 69 73 20 25 70 20 28 69 64 65 6e 74 69 ty is %p (identi
30f70 74 79 20 23 25 6c 75 29 22 2c 20 28 75 6e 73 69 ty #%lu)", (unsi
30f80 67 6e 65 64 20 6c 6f 6e 67 29 20 68 53 65 73 73 gned long) hSess
30f90 69 6f 6e 2c 20 28 76 6f 69 64 20 2a 29 20 26 63 ion, (void *) &c
30fa0 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 ackey_sessions[h
30fb0 53 65 73 73 69 6f 6e 5d 2e 69 64 65 6e 74 69 74 Session].identit
30fc0 69 65 73 5b 68 4b 65 79 5d 2c 20 28 75 6e 73 69 ies[hKey], (unsi
30fd0 67 6e 65 64 20 6c 6f 6e 67 29 20 68 4b 65 79 29 gned long) hKey)
30fe0 3b 0a 09 63 61 63 6b 65 79 5f 73 65 73 73 69 6f ;..cackey_sessio
30ff0 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 69 67 ns[hSession].sig
31000 6e 5f 69 64 65 6e 74 69 74 79 20 3d 20 26 63 61 n_identity = &ca
31010 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 ckey_sessions[hS
31020 65 73 73 69 6f 6e 5d 2e 69 64 65 6e 74 69 74 69 ession].identiti
31030 65 73 5b 68 4b 65 79 5d 3b 0a 0a 09 6d 75 74 65 es[hKey];...mute
31040 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 x_retval = cacke
31050 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 y_mutex_unlock(c
31060 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a ackey_biglock);.
31070 09 69 66 20 28 6d 75 74 65 78 5f 72 65 74 76 61 .if (mutex_retva
31080 6c 20 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b l != 0) {...CACK
31090 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
310a0 22 45 72 72 6f 72 2e 20 20 55 6e 6c 6f 63 6b 69 "Error. Unlocki
310b0 6e 67 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 ng failed.");...
310c0 09 72 65 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 .return(CKR_GENE
310d0 52 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a RAL_ERROR);..}..
310e0 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
310f0 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
31100 43 4b 52 5f 4f 4b 20 28 25 69 29 22 2c 20 43 4b CKR_OK (%i)", CK
31110 52 5f 4f 4b 29 3b 0a 0a 09 72 65 74 75 72 6e 28 R_OK);...return(
31120 43 4b 52 5f 4f 4b 29 3b 0a 7d 0a 0a 43 4b 5f 44 CKR_OK);.}..CK_D
31130 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 43 EFINE_FUNCTION(C
31140 4b 5f 52 56 2c 20 43 5f 53 69 67 6e 29 28 43 4b K_RV, C_Sign)(CK
31150 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 _SESSION_HANDLE
31160 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 42 59 54 hSession, CK_BYT
31170 45 5f 50 54 52 20 70 44 61 74 61 2c 20 43 4b 5f E_PTR pData, CK_
31180 55 4c 4f 4e 47 20 75 6c 44 61 74 61 4c 65 6e 2c ULONG ulDataLen,
31190 20 43 4b 5f 42 59 54 45 5f 50 54 52 20 70 53 69 CK_BYTE_PTR pSi
311a0 67 6e 61 74 75 72 65 2c 20 43 4b 5f 55 4c 4f 4e gnature, CK_ULON
311b0 47 5f 50 54 52 20 70 75 6c 53 69 67 6e 61 74 75 G_PTR pulSignatu
311c0 72 65 4c 65 6e 29 20 7b 0a 09 75 6e 73 69 67 6e reLen) {..unsign
311d0 65 64 20 6c 6f 6e 67 20 73 74 61 72 74 5f 73 69 ed long start_si
311e0 67 6e 5f 62 75 66 75 73 65 64 3b 0a 09 43 4b 5f gn_bufused;..CK_
311f0 52 56 20 73 69 67 6e 5f 72 65 74 3b 0a 09 69 6e RV sign_ret;..in
31200 74 20 6d 75 74 65 78 5f 72 65 74 76 61 6c 3b 0a t mutex_retval;.
31210 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
31220 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 RINTF("Called.")
31230 3b 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f ;...if (!cackey_
31240 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 initialized) {..
31250 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
31260 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f INTF("Error. No
31270 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 t initialized.")
31280 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f ;....return(CKR_
31290 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 CRYPTOKI_NOT_INI
312a0 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 TIALIZED);..}...
312b0 69 66 20 28 68 53 65 73 73 69 6f 6e 20 3d 3d 20 if (hSession ==
312c0 30 20 7c 7c 20 68 53 65 73 73 69 6f 6e 20 3e 3d 0 || hSession >=
312d0 20 28 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 5f (sizeof(cackey_
312e0 73 65 73 73 69 6f 6e 73 29 20 2f 20 73 69 7a 65 sessions) / size
312f0 6f 66 28 63 61 63 6b 65 79 5f 73 65 73 73 69 6f of(cackey_sessio
31300 6e 73 5b 30 5d 29 29 29 20 7b 0a 09 09 43 41 43 ns[0]))) {...CAC
31310 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
31320 28 22 45 72 72 6f 72 2e 20 20 53 65 73 73 69 6f ("Error. Sessio
31330 6e 20 6f 75 74 20 6f 66 20 72 61 6e 67 65 2e 22 n out of range."
31340 29 3b 0a 09 09 0a 09 09 72 65 74 75 72 6e 28 43 );......return(C
31350 4b 52 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c KR_SESSION_HANDL
31360 45 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a E_INVALID);..}..
31370 09 73 74 61 72 74 5f 73 69 67 6e 5f 62 75 66 75 .start_sign_bufu
31380 73 65 64 20 3d 20 63 61 63 6b 65 79 5f 73 65 73 sed = cackey_ses
31390 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e sions[hSession].
313a0 73 69 67 6e 5f 62 75 66 75 73 65 64 3b 0a 0a 09 sign_bufused;...
313b0 73 69 67 6e 5f 72 65 74 20 3d 20 43 5f 53 69 67 sign_ret = C_Sig
313c0 6e 55 70 64 61 74 65 28 68 53 65 73 73 69 6f 6e nUpdate(hSession
313d0 2c 20 70 44 61 74 61 2c 20 75 6c 44 61 74 61 4c , pData, ulDataL
313e0 65 6e 29 3b 0a 09 69 66 20 28 73 69 67 6e 5f 72 en);..if (sign_r
313f0 65 74 20 21 3d 20 43 4b 52 5f 4f 4b 29 20 7b 0a et != CKR_OK) {.
31400 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
31410 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 53 RINTF("Error. S
31420 69 67 6e 55 70 64 61 74 65 28 29 20 72 65 74 75 ignUpdate() retu
31430 72 6e 65 64 20 66 61 69 6c 75 72 65 20 28 72 76 rned failure (rv
31440 20 3d 20 25 6c 75 29 2e 22 2c 20 28 75 6e 73 69 = %lu).", (unsi
31450 67 6e 65 64 20 6c 6f 6e 67 29 20 73 69 67 6e 5f gned long) sign_
31460 72 65 74 29 3b 0a 0a 09 09 69 66 20 28 73 69 67 ret);....if (sig
31470 6e 5f 72 65 74 20 21 3d 20 43 4b 52 5f 42 55 46 n_ret != CKR_BUF
31480 46 45 52 5f 54 4f 4f 5f 53 4d 41 4c 4c 29 20 7b FER_TOO_SMALL) {
31490 0a 09 09 09 6d 75 74 65 78 5f 72 65 74 76 61 6c ....mutex_retval
314a0 20 3d 20 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f = cackey_mutex_
314b0 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c lock(cackey_bigl
314c0 6f 63 6b 29 3b 0a 09 09 09 69 66 20 28 6d 75 74 ock);....if (mut
314d0 65 78 5f 72 65 74 76 61 6c 20 21 3d 20 30 29 20 ex_retval != 0)
314e0 7b 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 {.....CACKEY_DEB
314f0 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 UG_PRINTF("Error
31500 2e 20 20 4c 6f 63 6b 69 6e 67 20 66 61 69 6c 65 . Locking faile
31510 64 2e 22 29 3b 0a 0a 09 09 09 09 72 65 74 75 72 d.");......retur
31520 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 n(CKR_GENERAL_ER
31530 52 4f 52 29 3b 0a 09 09 09 7d 0a 0a 09 09 09 69 ROR);....}.....i
31540 66 20 28 21 63 61 63 6b 65 79 5f 73 65 73 73 69 f (!cackey_sessi
31550 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 61 63 ons[hSession].ac
31560 74 69 76 65 29 20 7b 0a 09 09 09 09 63 61 63 6b tive) {.....cack
31570 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 ey_mutex_unlock(
31580 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b cackey_biglock);
31590 0a 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 ......CACKEY_DEB
315a0 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 UG_PRINTF("Error
315b0 2e 20 20 53 65 73 73 69 6f 6e 20 6e 6f 74 20 61 . Session not a
315c0 63 74 69 76 65 2e 22 29 3b 0a 09 09 0a 09 09 09 ctive.");.......
315d0 09 72 65 74 75 72 6e 28 43 4b 52 5f 53 45 53 53 .return(CKR_SESS
315e0 49 4f 4e 5f 48 41 4e 44 4c 45 5f 49 4e 56 41 4c ION_HANDLE_INVAL
315f0 49 44 29 3b 0a 09 09 09 7d 0a 0a 09 09 09 69 66 ID);....}.....if
31600 20 28 21 63 61 63 6b 65 79 5f 73 65 73 73 69 6f (!cackey_sessio
31610 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 69 67 ns[hSession].sig
31620 6e 5f 61 63 74 69 76 65 29 20 7b 0a 09 09 09 09 n_active) {.....
31630 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c cackey_mutex_unl
31640 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f ock(cackey_biglo
31650 63 6b 29 3b 0a 0a 09 09 09 09 43 41 43 4b 45 59 ck);......CACKEY
31660 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 _DEBUG_PRINTF("E
31670 72 72 6f 72 2e 20 20 53 69 67 6e 20 6e 6f 74 20 rror. Sign not
31680 61 63 74 69 76 65 2e 22 29 3b 0a 09 09 0a 09 09 active.");......
31690 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f 50 45 ..return(CKR_OPE
316a0 52 41 54 49 4f 4e 5f 4e 4f 54 5f 49 4e 49 54 49 RATION_NOT_INITI
316b0 41 4c 49 5a 45 44 29 3b 0a 09 09 09 7d 0a 0a 09 ALIZED);....}...
316c0 09 09 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e ..cackey_session
316d0 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 69 67 6e s[hSession].sign
316e0 5f 61 63 74 69 76 65 20 3d 20 30 3b 0a 0a 09 09 _active = 0;....
316f0 09 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 3d 20 .mutex_retval =
31700 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c cackey_mutex_unl
31710 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f ock(cackey_biglo
31720 63 6b 29 3b 0a 09 09 09 69 66 20 28 6d 75 74 65 ck);....if (mute
31730 78 5f 72 65 74 76 61 6c 20 21 3d 20 30 29 20 7b x_retval != 0) {
31740 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 55 .....CACKEY_DEBU
31750 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
31760 20 20 55 6e 6c 6f 63 6b 69 6e 67 20 66 61 69 6c Unlocking fail
31770 65 64 2e 22 29 3b 0a 0a 09 09 09 09 72 65 74 75 ed.");......retu
31780 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 rn(CKR_GENERAL_E
31790 52 52 4f 52 29 3b 0a 09 09 09 7d 0a 09 09 7d 0a RROR);....}...}.
317a0 0a 09 09 72 65 74 75 72 6e 28 73 69 67 6e 5f 72 ...return(sign_r
317b0 65 74 29 3b 0a 09 7d 0a 0a 09 73 69 67 6e 5f 72 et);..}...sign_r
317c0 65 74 20 3d 20 43 5f 53 69 67 6e 46 69 6e 61 6c et = C_SignFinal
317d0 28 68 53 65 73 73 69 6f 6e 2c 20 70 53 69 67 6e (hSession, pSign
317e0 61 74 75 72 65 2c 20 70 75 6c 53 69 67 6e 61 74 ature, pulSignat
317f0 75 72 65 4c 65 6e 29 3b 0a 09 69 66 20 28 73 69 ureLen);..if (si
31800 67 6e 5f 72 65 74 20 21 3d 20 43 4b 52 5f 4f 4b gn_ret != CKR_OK
31810 29 20 7b 0a 09 09 69 66 20 28 73 69 67 6e 5f 72 ) {...if (sign_r
31820 65 74 20 3d 3d 20 43 4b 52 5f 42 55 46 46 45 52 et == CKR_BUFFER
31830 5f 54 4f 4f 5f 53 4d 41 4c 4c 29 20 7b 0a 09 09 _TOO_SMALL) {...
31840 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
31850 49 4e 54 46 28 22 53 69 67 6e 46 69 6e 61 6c 28 INTF("SignFinal(
31860 29 20 72 65 74 75 72 6e 65 64 20 43 4b 52 5f 42 ) returned CKR_B
31870 55 46 46 45 52 5f 54 4f 4f 5f 53 4d 41 4c 4c 20 UFFER_TOO_SMALL
31880 28 72 76 20 3d 20 25 6c 75 29 2c 20 75 6e 64 6f (rv = %lu), undo
31890 69 6e 67 20 43 5f 53 69 67 6e 55 70 64 61 74 65 ing C_SignUpdate
318a0 28 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c ()", (unsigned l
318b0 6f 6e 67 29 20 73 69 67 6e 5f 72 65 74 29 3b 0a ong) sign_ret);.
318c0 0a 09 09 09 63 61 63 6b 65 79 5f 73 65 73 73 69 ....cackey_sessi
318d0 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 69 ons[hSession].si
318e0 67 6e 5f 62 75 66 75 73 65 64 20 3d 20 73 74 61 gn_bufused = sta
318f0 72 74 5f 73 69 67 6e 5f 62 75 66 75 73 65 64 3b rt_sign_bufused;
31900 0a 0a 09 09 09 72 65 74 75 72 6e 28 73 69 67 6e .....return(sign
31910 5f 72 65 74 29 3b 0a 09 09 7d 0a 0a 09 09 43 41 _ret);...}....CA
31920 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
31930 46 28 22 45 72 72 6f 72 2e 20 20 53 69 67 6e 46 F("Error. SignF
31940 69 6e 61 6c 28 29 20 72 65 74 75 72 6e 65 64 20 inal() returned
31950 66 61 69 6c 75 72 65 20 28 72 76 20 3d 20 25 6c failure (rv = %l
31960 75 29 2e 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 u).", (unsigned
31970 6c 6f 6e 67 29 20 73 69 67 6e 5f 72 65 74 29 3b long) sign_ret);
31980 0a 0a 09 09 72 65 74 75 72 6e 28 73 69 67 6e 5f ....return(sign_
31990 72 65 74 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 70 ret);..}...if (p
319a0 53 69 67 6e 61 74 75 72 65 20 3d 3d 20 4e 55 4c Signature == NUL
319b0 4c 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 L) {...CACKEY_DE
319c0 42 55 47 5f 50 52 49 4e 54 46 28 22 70 53 69 67 BUG_PRINTF("pSig
319d0 6e 61 74 75 72 65 20 73 70 65 63 69 66 69 65 64 nature specified
319e0 20 61 73 20 4e 55 4c 4c 2c 20 75 6e 64 6f 69 6e as NULL, undoin
319f0 67 20 43 5f 53 69 67 6e 55 70 64 61 74 65 28 29 g C_SignUpdate()
31a00 22 29 3b 0a 0a 09 09 63 61 63 6b 65 79 5f 73 65 ");....cackey_se
31a10 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d ssions[hSession]
31a20 2e 73 69 67 6e 5f 62 75 66 75 73 65 64 20 3d 20 .sign_bufused =
31a30 73 74 61 72 74 5f 73 69 67 6e 5f 62 75 66 75 73 start_sign_bufus
31a40 65 64 3b 0a 0a 09 09 72 65 74 75 72 6e 28 73 69 ed;....return(si
31a50 67 6e 5f 72 65 74 29 3b 0a 09 7d 0a 0a 09 43 41 gn_ret);..}...CA
31a60 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
31a70 46 28 22 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 F("Returning CKR
31a80 5f 4f 4b 20 28 25 69 29 22 2c 20 43 4b 52 5f 4f _OK (%i)", CKR_O
31a90 4b 29 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 K);...return(CKR
31aa0 5f 4f 4b 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 _OK);.}..CK_DEFI
31ab0 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 NE_FUNCTION(CK_R
31ac0 56 2c 20 43 5f 53 69 67 6e 55 70 64 61 74 65 29 V, C_SignUpdate)
31ad0 28 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 (CK_SESSION_HAND
31ae0 4c 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f LE hSession, CK_
31af0 42 59 54 45 5f 50 54 52 20 70 50 61 72 74 2c 20 BYTE_PTR pPart,
31b00 43 4b 5f 55 4c 4f 4e 47 20 75 6c 50 61 72 74 4c CK_ULONG ulPartL
31b10 65 6e 29 20 7b 0a 09 69 6e 74 20 6d 75 74 65 78 en) {..int mutex
31b20 5f 72 65 74 76 61 6c 3b 0a 09 69 6e 74 20 72 65 _retval;..int re
31b30 73 69 7a 65 52 65 74 72 79 3b 0a 09 69 6e 74 20 sizeRetry;..int
31b40 6e 65 65 64 52 65 73 69 7a 65 3b 0a 0a 09 43 41 needResize;...CA
31b50 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
31b60 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 F("Called.");...
31b70 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 if (!cackey_init
31b80 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 ialized) {...CAC
31b90 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
31ba0 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e ("Error. Not in
31bb0 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 itialized.");...
31bc0 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 .return(CKR_CRYP
31bd0 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c TOKI_NOT_INITIAL
31be0 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 IZED);..}...if (
31bf0 68 53 65 73 73 69 6f 6e 20 3d 3d 20 30 20 7c 7c hSession == 0 ||
31c00 20 68 53 65 73 73 69 6f 6e 20 3e 3d 20 28 73 69 hSession >= (si
31c10 7a 65 6f 66 28 63 61 63 6b 65 79 5f 73 65 73 73 zeof(cackey_sess
31c20 69 6f 6e 73 29 20 2f 20 73 69 7a 65 6f 66 28 63 ions) / sizeof(c
31c30 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 30 ackey_sessions[0
31c40 5d 29 29 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f ]))) {...CACKEY_
31c50 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
31c60 72 6f 72 2e 20 20 53 65 73 73 69 6f 6e 20 6f 75 ror. Session ou
31c70 74 20 6f 66 20 72 61 6e 67 65 2e 22 29 3b 0a 09 t of range.");..
31c80 09 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 53 ....return(CKR_S
31c90 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 5f 49 4e ESSION_HANDLE_IN
31ca0 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 VALID);..}...if
31cb0 28 70 50 61 72 74 20 3d 3d 20 4e 55 4c 4c 20 26 (pPart == NULL &
31cc0 26 20 75 6c 50 61 72 74 4c 65 6e 20 3d 3d 20 30 & ulPartLen == 0
31cd0 29 20 7b 0a 09 09 2f 2a 20 53 68 6f 72 74 20 63 ) {.../* Short c
31ce0 69 72 63 75 69 74 20 69 66 20 77 65 20 61 72 65 ircuit if we are
31cf0 20 61 73 6b 65 64 20 74 6f 20 73 69 67 6e 20 6e asked to sign n
31d00 6f 74 68 69 6e 67 2e 2e 2e 20 2a 2f 0a 09 09 43 othing... */...C
31d10 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
31d20 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 43 4b TF("Returning CK
31d30 52 5f 4f 4b 20 28 25 69 29 20 28 73 68 6f 72 74 R_OK (%i) (short
31d40 20 63 69 72 63 75 69 74 29 22 2c 20 43 4b 52 5f circuit)", CKR_
31d50 4f 4b 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 OK);....return(C
31d60 4b 52 5f 4f 4b 29 3b 0a 09 7d 0a 0a 09 69 66 20 KR_OK);..}...if
31d70 28 70 50 61 72 74 20 3d 3d 20 4e 55 4c 4c 29 20 (pPart == NULL)
31d80 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
31d90 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
31da0 70 50 61 72 74 20 69 73 20 4e 55 4c 4c 2c 20 62 pPart is NULL, b
31db0 75 74 20 75 6c 50 61 72 74 4c 65 6e 20 69 73 20 ut ulPartLen is
31dc0 6e 6f 74 20 30 2e 22 29 3b 0a 0a 09 09 72 65 74 not 0.");....ret
31dd0 75 72 6e 28 43 4b 52 5f 41 52 47 55 4d 45 4e 54 urn(CKR_ARGUMENT
31de0 53 5f 42 41 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 S_BAD);..}...if
31df0 28 75 6c 50 61 72 74 4c 65 6e 20 3d 3d 20 30 29 (ulPartLen == 0)
31e00 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
31e10 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
31e20 20 75 6c 50 61 72 74 4c 65 6e 20 69 73 20 30 2c ulPartLen is 0,
31e30 20 62 75 74 20 70 50 61 72 74 20 69 73 20 6e 6f but pPart is no
31e40 74 20 4e 55 4c 4c 2e 22 29 3b 0a 0a 09 09 72 65 t NULL.");....re
31e50 74 75 72 6e 28 43 4b 52 5f 41 52 47 55 4d 45 4e turn(CKR_ARGUMEN
31e60 54 53 5f 42 41 44 29 3b 0a 09 7d 0a 0a 09 6d 75 TS_BAD);..}...mu
31e70 74 65 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 tex_retval = cac
31e80 6b 65 79 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 63 key_mutex_lock(c
31e90 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a ackey_biglock);.
31ea0 09 69 66 20 28 6d 75 74 65 78 5f 72 65 74 76 61 .if (mutex_retva
31eb0 6c 20 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b l != 0) {...CACK
31ec0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
31ed0 22 45 72 72 6f 72 2e 20 20 4c 6f 63 6b 69 6e 67 "Error. Locking
31ee0 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 09 72 failed.");....r
31ef0 65 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 52 41 eturn(CKR_GENERA
31f00 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 L_ERROR);..}...i
31f10 66 20 28 21 63 61 63 6b 65 79 5f 73 65 73 73 69 f (!cackey_sessi
31f20 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 61 63 ons[hSession].ac
31f30 74 69 76 65 29 20 7b 0a 09 09 63 61 63 6b 65 79 tive) {...cackey
31f40 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 61 _mutex_unlock(ca
31f50 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a 0a ckey_biglock);..
31f60 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
31f70 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 53 RINTF("Error. S
31f80 65 73 73 69 6f 6e 20 6e 6f 74 20 61 63 74 69 76 ession not activ
31f90 65 2e 22 29 3b 0a 09 09 0a 09 09 72 65 74 75 72 e.");......retur
31fa0 6e 28 43 4b 52 5f 53 45 53 53 49 4f 4e 5f 48 41 n(CKR_SESSION_HA
31fb0 4e 44 4c 45 5f 49 4e 56 41 4c 49 44 29 3b 0a 09 NDLE_INVALID);..
31fc0 7d 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 5f }...if (!cackey_
31fd0 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f sessions[hSessio
31fe0 6e 5d 2e 73 69 67 6e 5f 61 63 74 69 76 65 29 20 n].sign_active)
31ff0 7b 0a 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 {...cackey_mutex
32000 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 _unlock(cackey_b
32010 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 43 41 43 4b iglock);....CACK
32020 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
32030 22 45 72 72 6f 72 2e 20 20 53 69 67 6e 20 6e 6f "Error. Sign no
32040 74 20 61 63 74 69 76 65 2e 22 29 3b 0a 09 09 0a t active.");....
32050 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 4f 50 45 ..return(CKR_OPE
32060 52 41 54 49 4f 4e 5f 4e 4f 54 5f 49 4e 49 54 49 RATION_NOT_INITI
32070 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 73 77 ALIZED);..}...sw
32080 69 74 63 68 20 28 63 61 63 6b 65 79 5f 73 65 73 itch (cackey_ses
32090 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e sions[hSession].
320a0 73 69 67 6e 5f 6d 65 63 68 61 6e 69 73 6d 29 20 sign_mechanism)
320b0 7b 0a 09 09 63 61 73 65 20 43 4b 4d 5f 52 53 41 {...case CKM_RSA
320c0 5f 50 4b 43 53 3a 0a 09 09 09 2f 2a 20 41 63 63 _PKCS:..../* Acc
320d0 75 6d 75 6c 61 74 65 20 64 69 72 65 63 74 6c 79 umulate directly
320e0 20 2a 2f 0a 09 09 09 66 6f 72 20 28 72 65 73 69 */....for (resi
320f0 7a 65 52 65 74 72 79 20 3d 20 30 3b 20 72 65 73 zeRetry = 0; res
32100 69 7a 65 52 65 74 72 79 20 3c 20 31 31 3b 20 72 izeRetry < 11; r
32110 65 73 69 7a 65 52 65 74 72 79 2b 2b 29 20 7b 0a esizeRetry++) {.
32120 09 09 09 09 6e 65 65 64 52 65 73 69 7a 65 20 3d ....needResize =
32130 20 30 3b 0a 09 09 09 09 69 66 20 28 28 63 61 63 0;.....if ((cac
32140 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 key_sessions[hSe
32150 73 73 69 6f 6e 5d 2e 73 69 67 6e 5f 62 75 66 75 ssion].sign_bufu
32160 73 65 64 20 2b 20 75 6c 50 61 72 74 4c 65 6e 29 sed + ulPartLen)
32170 20 3e 20 63 61 63 6b 65 79 5f 73 65 73 73 69 6f > cackey_sessio
32180 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 69 67 ns[hSession].sig
32190 6e 5f 62 75 66 6c 65 6e 29 20 7b 0a 09 09 09 09 n_buflen) {.....
321a0 09 6e 65 65 64 52 65 73 69 7a 65 20 3d 20 31 3b .needResize = 1;
321b0 0a 09 09 09 09 7d 0a 0a 09 09 09 09 69 66 20 28 .....}......if (
321c0 21 6e 65 65 64 52 65 73 69 7a 65 29 20 7b 0a 09 !needResize) {..
321d0 09 09 09 09 62 72 65 61 6b 3b 0a 09 09 09 09 7d ....break;.....}
321e0 0a 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 45 42 ......CACKEY_DEB
321f0 55 47 5f 50 52 49 4e 54 46 28 22 52 65 73 69 7a UG_PRINTF("Resiz
32200 69 6e 67 20 73 69 67 6e 69 6e 67 20 62 75 66 66 ing signing buff
32210 65 72 20 28 74 72 79 20 23 25 69 20 6f 66 20 31 er (try #%i of 1
32220 30 20 2d 2d 20 31 31 74 68 20 69 73 20 66 61 74 0 -- 11th is fat
32230 61 6c 29 22 2c 20 72 65 73 69 7a 65 52 65 74 72 al)", resizeRetr
32240 79 29 3b 0a 0a 09 09 09 09 69 66 20 28 72 65 73 y);......if (res
32250 69 7a 65 52 65 74 72 79 20 3d 3d 20 31 30 29 20 izeRetry == 10)
32260 7b 0a 09 09 09 09 09 66 72 65 65 28 63 61 63 6b {......free(cack
32270 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 ey_sessions[hSes
32280 73 69 6f 6e 5d 2e 73 69 67 6e 5f 62 75 66 29 3b sion].sign_buf);
32290 0a 0a 09 09 09 09 09 63 61 63 6b 65 79 5f 73 65 .......cackey_se
322a0 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d ssions[hSession]
322b0 2e 73 69 67 6e 5f 62 75 66 6c 65 6e 20 3d 20 30 .sign_buflen = 0
322c0 3b 0a 09 09 09 09 09 63 61 63 6b 65 79 5f 73 65 ;......cackey_se
322d0 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d ssions[hSession]
322e0 2e 73 69 67 6e 5f 62 75 66 20 3d 20 4e 55 4c 4c .sign_buf = NULL
322f0 3b 0a 0a 09 09 09 09 09 62 72 65 61 6b 3b 0a 09 ;.......break;..
32300 09 09 09 7d 0a 0a 09 09 09 09 63 61 63 6b 65 79 ...}......cackey
32310 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 _sessions[hSessi
32320 6f 6e 5d 2e 73 69 67 6e 5f 62 75 66 6c 65 6e 20 on].sign_buflen
32330 2a 3d 20 32 3b 0a 0a 09 09 09 09 63 61 63 6b 65 *= 2;......cacke
32340 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 y_sessions[hSess
32350 69 6f 6e 5d 2e 73 69 67 6e 5f 62 75 66 20 3d 20 ion].sign_buf =
32360 72 65 61 6c 6c 6f 63 28 63 61 63 6b 65 79 5f 73 realloc(cackey_s
32370 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e essions[hSession
32380 5d 2e 73 69 67 6e 5f 62 75 66 2c 20 73 69 7a 65 ].sign_buf, size
32390 6f 66 28 2a 63 61 63 6b 65 79 5f 73 65 73 73 69 of(*cackey_sessi
323a0 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 69 ons[hSession].si
323b0 67 6e 5f 62 75 66 29 20 2a 20 63 61 63 6b 65 79 gn_buf) * cackey
323c0 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 _sessions[hSessi
323d0 6f 6e 5d 2e 73 69 67 6e 5f 62 75 66 6c 65 6e 29 on].sign_buflen)
323e0 3b 0a 09 09 09 7d 0a 0a 09 09 09 69 66 20 28 63 ;....}.....if (c
323f0 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 ackey_sessions[h
32400 53 65 73 73 69 6f 6e 5d 2e 73 69 67 6e 5f 62 75 Session].sign_bu
32410 66 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09 f == NULL) {....
32420 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e .cackey_mutex_un
32430 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c lock(cackey_bigl
32440 6f 63 6b 29 3b 0a 0a 09 09 09 09 43 41 43 4b 45 ock);......CACKE
32450 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
32460 45 72 72 6f 72 2e 20 20 53 69 67 6e 69 6e 67 20 Error. Signing
32470 62 75 66 66 65 72 20 69 73 20 4e 55 4c 4c 2e 22 buffer is NULL."
32480 29 3b 0a 0a 09 09 09 09 72 65 74 75 72 6e 28 43 );......return(C
32490 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 KR_GENERAL_ERROR
324a0 29 3b 0a 09 09 09 7d 0a 0a 09 09 09 6d 65 6d 63 );....}.....memc
324b0 70 79 28 63 61 63 6b 65 79 5f 73 65 73 73 69 6f py(cackey_sessio
324c0 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 69 67 ns[hSession].sig
324d0 6e 5f 62 75 66 20 2b 20 63 61 63 6b 65 79 5f 73 n_buf + cackey_s
324e0 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e essions[hSession
324f0 5d 2e 73 69 67 6e 5f 62 75 66 75 73 65 64 2c 20 ].sign_bufused,
32500 70 50 61 72 74 2c 20 75 6c 50 61 72 74 4c 65 6e pPart, ulPartLen
32510 29 3b 0a 0a 09 09 09 63 61 63 6b 65 79 5f 73 65 );.....cackey_se
32520 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d ssions[hSession]
32530 2e 73 69 67 6e 5f 62 75 66 75 73 65 64 20 2b 3d .sign_bufused +=
32540 20 75 6c 50 61 72 74 4c 65 6e 3b 0a 0a 09 09 09 ulPartLen;.....
32550 62 72 65 61 6b 3b 0a 09 7d 0a 0a 09 6d 75 74 65 break;..}...mute
32560 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 x_retval = cacke
32570 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 y_mutex_unlock(c
32580 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a ackey_biglock);.
32590 09 69 66 20 28 6d 75 74 65 78 5f 72 65 74 76 61 .if (mutex_retva
325a0 6c 20 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b l != 0) {...CACK
325b0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
325c0 22 45 72 72 6f 72 2e 20 20 55 6e 6c 6f 63 6b 69 "Error. Unlocki
325d0 6e 67 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 ng failed.");...
325e0 09 72 65 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 .return(CKR_GENE
325f0 52 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a RAL_ERROR);..}..
32600 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
32610 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
32620 43 4b 52 5f 4f 4b 20 28 25 69 29 22 2c 20 43 4b CKR_OK (%i)", CK
32630 52 5f 4f 4b 29 3b 0a 0a 09 72 65 74 75 72 6e 28 R_OK);...return(
32640 43 4b 52 5f 4f 4b 29 3b 0a 7d 0a 0a 43 4b 5f 44 CKR_OK);.}..CK_D
32650 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 43 EFINE_FUNCTION(C
32660 4b 5f 52 56 2c 20 43 5f 53 69 67 6e 46 69 6e 61 K_RV, C_SignFina
32670 6c 29 28 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 l)(CK_SESSION_HA
32680 4e 44 4c 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 NDLE hSession, C
32690 4b 5f 42 59 54 45 5f 50 54 52 20 70 53 69 67 6e K_BYTE_PTR pSign
326a0 61 74 75 72 65 2c 20 43 4b 5f 55 4c 4f 4e 47 5f ature, CK_ULONG_
326b0 50 54 52 20 70 75 6c 53 69 67 6e 61 74 75 72 65 PTR pulSignature
326c0 4c 65 6e 29 20 7b 0a 09 73 74 61 74 69 63 20 43 Len) {..static C
326d0 4b 5f 42 59 54 45 20 73 69 67 62 75 66 5b 31 30 K_BYTE sigbuf[10
326e0 32 34 5d 3b 0a 09 73 73 69 7a 65 5f 74 20 73 69 24];..ssize_t si
326f0 67 62 75 66 6c 65 6e 3b 0a 09 43 4b 5f 53 4c 4f gbuflen;..CK_SLO
32700 54 5f 49 44 20 73 6c 6f 74 49 44 3b 0a 09 43 4b T_ID slotID;..CK
32710 5f 52 56 20 72 65 74 76 61 6c 20 3d 20 43 4b 52 _RV retval = CKR
32720 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 3b 0a _GENERAL_ERROR;.
32730 09 69 6e 74 20 74 65 72 6d 69 6e 61 74 65 5f 73 .int terminate_s
32740 69 67 6e 20 3d 20 31 3b 0a 09 69 6e 74 20 6d 75 ign = 1;..int mu
32750 74 65 78 5f 72 65 74 76 61 6c 3b 0a 0a 09 43 41 tex_retval;...CA
32760 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
32770 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 F("Called.");...
32780 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 if (!cackey_init
32790 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 ialized) {...CAC
327a0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
327b0 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e ("Error. Not in
327c0 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 itialized.");...
327d0 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 .return(CKR_CRYP
327e0 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c TOKI_NOT_INITIAL
327f0 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 IZED);..}...if (
32800 70 75 6c 53 69 67 6e 61 74 75 72 65 4c 65 6e 20 pulSignatureLen
32810 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 43 41 43 == NULL) {...CAC
32820 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
32830 28 22 45 72 72 6f 72 2e 20 70 75 6c 53 69 67 6e ("Error. pulSign
32840 61 74 75 72 65 4c 65 6e 20 69 73 20 4e 55 4c 4c atureLen is NULL
32850 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 .");....return(C
32860 4b 52 5f 41 52 47 55 4d 45 4e 54 53 5f 42 41 44 KR_ARGUMENTS_BAD
32870 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 68 53 65 73 );..}...if (hSes
32880 73 69 6f 6e 20 3d 3d 20 30 20 7c 7c 20 68 53 65 sion == 0 || hSe
32890 73 73 69 6f 6e 20 3e 3d 20 28 73 69 7a 65 6f 66 ssion >= (sizeof
328a0 28 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 (cackey_sessions
328b0 29 20 2f 20 73 69 7a 65 6f 66 28 63 61 63 6b 65 ) / sizeof(cacke
328c0 79 5f 73 65 73 73 69 6f 6e 73 5b 30 5d 29 29 29 y_sessions[0])))
328d0 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
328e0 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
328f0 20 20 53 65 73 73 69 6f 6e 20 6f 75 74 20 6f 66 Session out of
32900 20 72 61 6e 67 65 2e 22 29 3b 0a 09 09 0a 09 09 range.");......
32910 72 65 74 75 72 6e 28 43 4b 52 5f 53 45 53 53 49 return(CKR_SESSI
32920 4f 4e 5f 48 41 4e 44 4c 45 5f 49 4e 56 41 4c 49 ON_HANDLE_INVALI
32930 44 29 3b 0a 09 7d 0a 0a 09 6d 75 74 65 78 5f 72 D);..}...mutex_r
32940 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 79 5f 6d etval = cackey_m
32950 75 74 65 78 5f 6c 6f 63 6b 28 63 61 63 6b 65 79 utex_lock(cackey
32960 5f 62 69 67 6c 6f 63 6b 29 3b 0a 09 69 66 20 28 _biglock);..if (
32970 6d 75 74 65 78 5f 72 65 74 76 61 6c 20 21 3d 20 mutex_retval !=
32980 30 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 0) {...CACKEY_DE
32990 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f BUG_PRINTF("Erro
329a0 72 2e 20 20 4c 6f 63 6b 69 6e 67 20 66 61 69 6c r. Locking fail
329b0 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e ed.");....return
329c0 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 (CKR_GENERAL_ERR
329d0 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 21 63 OR);..}...if (!c
329e0 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 ackey_sessions[h
329f0 53 65 73 73 69 6f 6e 5d 2e 61 63 74 69 76 65 29 Session].active)
32a00 20 7b 0a 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 {...cackey_mute
32a10 78 5f 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f x_unlock(cackey_
32a20 62 69 67 6c 6f 63 6b 29 3b 0a 0a 09 09 43 41 43 biglock);....CAC
32a30 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
32a40 28 22 45 72 72 6f 72 2e 20 20 53 65 73 73 69 6f ("Error. Sessio
32a50 6e 20 6e 6f 74 20 61 63 74 69 76 65 2e 22 29 3b n not active.");
32a60 0a 09 09 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 ......return(CKR
32a70 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 5f _SESSION_HANDLE_
32a80 49 4e 56 41 4c 49 44 29 3b 0a 09 7d 0a 0a 09 69 INVALID);..}...i
32a90 66 20 28 21 63 61 63 6b 65 79 5f 73 65 73 73 69 f (!cackey_sessi
32aa0 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 69 ons[hSession].si
32ab0 67 6e 5f 61 63 74 69 76 65 29 20 7b 0a 09 09 63 gn_active) {...c
32ac0 61 63 6b 65 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f ackey_mutex_unlo
32ad0 63 6b 28 63 61 63 6b 65 79 5f 62 69 67 6c 6f 63 ck(cackey_bigloc
32ae0 6b 29 3b 0a 0a 09 09 43 41 43 4b 45 59 5f 44 45 k);....CACKEY_DE
32af0 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f BUG_PRINTF("Erro
32b00 72 2e 20 20 53 69 67 6e 20 6e 6f 74 20 61 63 74 r. Sign not act
32b10 69 76 65 2e 22 29 3b 0a 09 09 0a 09 09 72 65 74 ive.");......ret
32b20 75 72 6e 28 43 4b 52 5f 4f 50 45 52 41 54 49 4f urn(CKR_OPERATIO
32b30 4e 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 N_NOT_INITIALIZE
32b40 44 29 3b 0a 09 7d 0a 0a 09 73 6c 6f 74 49 44 20 D);..}...slotID
32b50 3d 20 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e = cackey_session
32b60 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 6c 6f 74 s[hSession].slot
32b70 49 44 3b 0a 0a 09 69 66 20 28 73 6c 6f 74 49 44 ID;...if (slotID
32b80 20 3c 20 30 20 7c 7c 20 73 6c 6f 74 49 44 20 3e < 0 || slotID >
32b90 3d 20 28 73 69 7a 65 6f 66 28 63 61 63 6b 65 79 = (sizeof(cackey
32ba0 5f 73 6c 6f 74 73 29 20 2f 20 73 69 7a 65 6f 66 _slots) / sizeof
32bb0 28 63 61 63 6b 65 79 5f 73 6c 6f 74 73 5b 30 5d (cackey_slots[0]
32bc0 29 29 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ))) {...CACKEY_D
32bd0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
32be0 6f 72 2e 20 49 6e 76 61 6c 69 64 20 73 6c 6f 74 or. Invalid slot
32bf0 20 72 65 71 75 65 73 74 65 64 20 28 25 6c 75 29 requested (%lu)
32c00 2c 20 6f 75 74 73 69 64 65 20 6f 66 20 76 61 6c , outside of val
32c10 69 64 20 72 61 6e 67 65 22 2c 20 73 6c 6f 74 49 id range", slotI
32c20 44 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b D);....return(CK
32c30 52 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 29 R_GENERAL_ERROR)
32c40 3b 0a 09 7d 0a 0a 09 69 66 20 28 63 61 63 6b 65 ;..}...if (cacke
32c50 79 5f 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 2e y_slots[slotID].
32c60 61 63 74 69 76 65 20 3d 3d 20 30 29 20 7b 0a 09 active == 0) {..
32c70 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
32c80 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 49 6e 76 INTF("Error. Inv
32c90 61 6c 69 64 20 73 6c 6f 74 20 72 65 71 75 65 73 alid slot reques
32ca0 74 65 64 20 28 25 6c 75 29 2c 20 73 6c 6f 74 20 ted (%lu), slot
32cb0 6e 6f 74 20 63 75 72 72 65 6e 74 6c 79 20 61 63 not currently ac
32cc0 74 69 76 65 22 2c 20 73 6c 6f 74 49 44 29 3b 0a tive", slotID);.
32cd0 0a 09 09 63 61 63 6b 65 79 5f 6d 75 74 65 78 5f ...cackey_mutex_
32ce0 75 6e 6c 6f 63 6b 28 63 61 63 6b 65 79 5f 62 69 unlock(cackey_bi
32cf0 67 6c 6f 63 6b 29 3b 0a 0a 09 09 72 65 74 75 72 glock);....retur
32d00 6e 28 43 4b 52 5f 47 45 4e 45 52 41 4c 5f 45 52 n(CKR_GENERAL_ER
32d10 52 4f 52 29 3b 0a 09 7d 0a 0a 09 73 77 69 74 63 ROR);..}...switc
32d20 68 20 28 63 61 63 6b 65 79 5f 73 65 73 73 69 6f h (cackey_sessio
32d30 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 69 67 ns[hSession].sig
32d40 6e 5f 6d 65 63 68 61 6e 69 73 6d 29 20 7b 0a 09 n_mechanism) {..
32d50 09 63 61 73 65 20 43 4b 4d 5f 52 53 41 5f 50 4b .case CKM_RSA_PK
32d60 43 53 3a 0a 09 09 09 2f 2a 20 41 73 6b 20 63 61 CS:..../* Ask ca
32d70 72 64 20 74 6f 20 73 69 67 6e 20 2a 2f 0a 09 09 rd to sign */...
32d80 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
32d90 49 4e 54 46 28 22 41 73 6b 69 6e 67 20 74 6f 20 INTF("Asking to
32da0 73 69 67 6e 20 66 72 6f 6d 20 69 64 65 6e 74 69 sign from identi
32db0 74 79 20 25 70 20 69 6e 20 73 65 73 73 69 6f 6e ty %p in session
32dc0 20 25 6c 75 22 2c 20 28 76 6f 69 64 20 2a 29 20 %lu", (void *)
32dd0 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b cackey_sessions[
32de0 68 53 65 73 73 69 6f 6e 5d 2e 73 69 67 6e 5f 69 hSession].sign_i
32df0 64 65 6e 74 69 74 79 2c 20 28 75 6e 73 69 67 6e dentity, (unsign
32e00 65 64 20 6c 6f 6e 67 29 20 68 53 65 73 73 69 6f ed long) hSessio
32e10 6e 29 3b 0a 09 09 09 73 69 67 62 75 66 6c 65 6e n);....sigbuflen
32e20 20 3d 20 63 61 63 6b 65 79 5f 73 69 67 6e 64 65 = cackey_signde
32e30 63 72 79 70 74 28 26 63 61 63 6b 65 79 5f 73 6c crypt(&cackey_sl
32e40 6f 74 73 5b 73 6c 6f 74 49 44 5d 2c 20 63 61 63 ots[slotID], cac
32e50 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 key_sessions[hSe
32e60 73 73 69 6f 6e 5d 2e 73 69 67 6e 5f 69 64 65 6e ssion].sign_iden
32e70 74 69 74 79 2c 20 63 61 63 6b 65 79 5f 73 65 73 tity, cackey_ses
32e80 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e 5d 2e sions[hSession].
32e90 73 69 67 6e 5f 62 75 66 2c 20 63 61 63 6b 65 79 sign_buf, cackey
32ea0 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 _sessions[hSessi
32eb0 6f 6e 5d 2e 73 69 67 6e 5f 62 75 66 75 73 65 64 on].sign_bufused
32ec0 2c 20 73 69 67 62 75 66 2c 20 73 69 7a 65 6f 66 , sigbuf, sizeof
32ed0 28 73 69 67 62 75 66 29 2c 20 31 2c 20 30 29 3b (sigbuf), 1, 0);
32ee0 0a 0a 09 09 09 69 66 20 28 73 69 67 62 75 66 6c .....if (sigbufl
32ef0 65 6e 20 3d 3d 20 43 41 43 4b 45 59 5f 50 43 53 en == CACKEY_PCS
32f00 43 5f 45 5f 4e 45 45 44 4c 4f 47 49 4e 20 26 26 C_E_NEEDLOGIN &&
32f10 20 63 61 63 6b 65 79 5f 70 69 6e 5f 63 6f 6d 6d cackey_pin_comm
32f20 61 6e 64 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 and != NULL) {..
32f30 09 09 09 69 66 20 28 43 5f 4c 6f 67 69 6e 4d 75 ...if (C_LoginMu
32f40 74 65 78 41 72 67 28 68 53 65 73 73 69 6f 6e 2c texArg(hSession,
32f50 20 43 4b 55 5f 55 53 45 52 2c 20 4e 55 4c 4c 2c CKU_USER, NULL,
32f60 20 30 2c 20 30 29 20 3d 3d 20 43 4b 52 5f 4f 4b 0, 0) == CKR_OK
32f70 29 20 7b 0a 09 09 09 09 09 73 69 67 62 75 66 6c ) {......sigbufl
32f80 65 6e 20 3d 20 63 61 63 6b 65 79 5f 73 69 67 6e en = cackey_sign
32f90 64 65 63 72 79 70 74 28 26 63 61 63 6b 65 79 5f decrypt(&cackey_
32fa0 73 6c 6f 74 73 5b 73 6c 6f 74 49 44 5d 2c 20 63 slots[slotID], c
32fb0 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 ackey_sessions[h
32fc0 53 65 73 73 69 6f 6e 5d 2e 73 69 67 6e 5f 69 64 Session].sign_id
32fd0 65 6e 74 69 74 79 2c 20 63 61 63 6b 65 79 5f 73 entity, cackey_s
32fe0 65 73 73 69 6f 6e 73 5b 68 53 65 73 73 69 6f 6e essions[hSession
32ff0 5d 2e 73 69 67 6e 5f 62 75 66 2c 20 63 61 63 6b ].sign_buf, cack
33000 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 ey_sessions[hSes
33010 73 69 6f 6e 5d 2e 73 69 67 6e 5f 62 75 66 75 73 sion].sign_bufus
33020 65 64 2c 20 73 69 67 62 75 66 2c 20 73 69 7a 65 ed, sigbuf, size
33030 6f 66 28 73 69 67 62 75 66 29 2c 20 31 2c 20 30 of(sigbuf), 1, 0
33040 29 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 0a 09 );.....}....}...
33050 09 09 69 66 20 28 73 69 67 62 75 66 6c 65 6e 20 ..if (sigbuflen
33060 3c 20 30 29 20 7b 0a 09 09 09 09 2f 2a 20 53 69 < 0) {...../* Si
33070 67 6e 69 6e 67 20 66 61 69 6c 65 64 2e 20 2a 2f gning failed. */
33080 0a 09 09 09 09 69 66 20 28 73 69 67 62 75 66 6c .....if (sigbufl
33090 65 6e 20 3d 3d 20 43 41 43 4b 45 59 5f 50 43 53 en == CACKEY_PCS
330a0 43 5f 45 5f 4e 45 45 44 4c 4f 47 49 4e 29 20 7b C_E_NEEDLOGIN) {
330b0 0a 09 09 09 09 09 72 65 74 76 61 6c 20 3d 20 43 ......retval = C
330c0 4b 52 5f 55 53 45 52 5f 4e 4f 54 5f 4c 4f 47 47 KR_USER_NOT_LOGG
330d0 45 44 5f 49 4e 3b 0a 09 09 09 09 7d 20 65 6c 73 ED_IN;.....} els
330e0 65 20 69 66 20 28 73 69 67 62 75 66 6c 65 6e 20 e if (sigbuflen
330f0 3d 3d 20 43 41 43 4b 45 59 5f 50 43 53 43 5f 45 == CACKEY_PCSC_E
33100 5f 54 4f 4b 45 4e 41 42 53 45 4e 54 29 20 7b 0a _TOKENABSENT) {.
33110 09 09 09 09 09 72 65 74 76 61 6c 20 3d 20 43 4b .....retval = CK
33120 52 5f 44 45 56 49 43 45 5f 52 45 4d 4f 56 45 44 R_DEVICE_REMOVED
33130 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 ;.....} else {..
33140 09 09 09 09 72 65 74 76 61 6c 20 3d 20 43 4b 52 ....retval = CKR
33150 5f 47 45 4e 45 52 41 4c 5f 45 52 52 4f 52 3b 0a _GENERAL_ERROR;.
33160 09 09 09 09 7d 0a 09 09 09 7d 20 65 6c 73 65 20 ....}....} else
33170 69 66 20 28 28 28 75 6e 73 69 67 6e 65 64 20 6c if (((unsigned l
33180 6f 6e 67 29 20 73 69 67 62 75 66 6c 65 6e 29 20 ong) sigbuflen)
33190 3e 20 2a 70 75 6c 53 69 67 6e 61 74 75 72 65 4c > *pulSignatureL
331a0 65 6e 20 26 26 20 70 53 69 67 6e 61 74 75 72 65 en && pSignature
331b0 29 20 7b 0a 09 09 09 09 2f 2a 20 53 69 67 6e 65 ) {...../* Signe
331c0 64 20 64 61 74 61 20 74 6f 6f 20 6c 61 72 67 65 d data too large
331d0 20 2a 2f 0a 09 09 09 09 43 41 43 4b 45 59 5f 44 */.....CACKEY_D
331e0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 72 65 74 EBUG_PRINTF("ret
331f0 76 61 6c 20 3d 20 43 4b 52 5f 42 55 46 46 45 52 val = CKR_BUFFER
33200 5f 54 4f 4f 5f 53 4d 41 4c 4c 3b 20 20 73 69 67 _TOO_SMALL; sig
33210 62 75 66 6c 65 6e 20 3d 20 25 6c 75 2c 20 70 75 buflen = %lu, pu
33220 6c 53 69 67 6e 61 74 75 72 65 4c 65 6e 20 3d 20 lSignatureLen =
33230 25 6c 75 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 %lu", (unsigned
33240 6c 6f 6e 67 29 20 73 69 67 62 75 66 6c 65 6e 2c long) sigbuflen,
33250 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 (unsigned long)
33260 20 2a 70 75 6c 53 69 67 6e 61 74 75 72 65 4c 65 *pulSignatureLe
33270 6e 29 3b 0a 0a 09 09 09 09 72 65 74 76 61 6c 20 n);......retval
33280 3d 20 43 4b 52 5f 42 55 46 46 45 52 5f 54 4f 4f = CKR_BUFFER_TOO
33290 5f 53 4d 41 4c 4c 3b 0a 0a 09 09 09 09 74 65 72 _SMALL;......ter
332a0 6d 69 6e 61 74 65 5f 73 69 67 6e 20 3d 20 30 3b minate_sign = 0;
332b0 0a 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 ....} else {....
332c0 09 74 65 72 6d 69 6e 61 74 65 5f 73 69 67 6e 20 .terminate_sign
332d0 3d 20 30 3b 0a 0a 09 09 09 09 69 66 20 28 70 53 = 0;......if (pS
332e0 69 67 6e 61 74 75 72 65 29 20 7b 0a 09 09 09 09 ignature) {.....
332f0 09 6d 65 6d 63 70 79 28 70 53 69 67 6e 61 74 75 .memcpy(pSignatu
33300 72 65 2c 20 73 69 67 62 75 66 2c 20 73 69 67 62 re, sigbuf, sigb
33310 75 66 6c 65 6e 29 3b 0a 0a 09 09 09 09 09 74 65 uflen);.......te
33320 72 6d 69 6e 61 74 65 5f 73 69 67 6e 20 3d 20 31 rminate_sign = 1
33330 3b 0a 09 09 09 09 7d 0a 0a 09 09 09 09 2a 70 75 ;.....}......*pu
33340 6c 53 69 67 6e 61 74 75 72 65 4c 65 6e 20 3d 20 lSignatureLen =
33350 73 69 67 62 75 66 6c 65 6e 3b 0a 0a 09 09 09 09 sigbuflen;......
33360 72 65 74 76 61 6c 20 3d 20 43 4b 52 5f 4f 4b 3b retval = CKR_OK;
33370 0a 09 09 09 7d 0a 0a 09 09 09 62 72 65 61 6b 3b ....}.....break;
33380 0a 09 7d 0a 0a 09 69 66 20 28 74 65 72 6d 69 6e ..}...if (termin
33390 61 74 65 5f 73 69 67 6e 29 20 7b 0a 09 09 69 66 ate_sign) {...if
333a0 20 28 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e (cackey_session
333b0 73 5b 68 53 65 73 73 69 6f 6e 5d 2e 73 69 67 6e s[hSession].sign
333c0 5f 62 75 66 29 20 7b 0a 09 09 09 66 72 65 65 28 _buf) {....free(
333d0 63 61 63 6b 65 79 5f 73 65 73 73 69 6f 6e 73 5b cackey_sessions[
333e0 68 53 65 73 73 69 6f 6e 5d 2e 73 69 67 6e 5f 62 hSession].sign_b
333f0 75 66 29 3b 0a 09 09 7d 0a 0a 09 09 63 61 63 6b uf);...}....cack
33400 65 79 5f 73 65 73 73 69 6f 6e 73 5b 68 53 65 73 ey_sessions[hSes
33410 73 69 6f 6e 5d 2e 73 69 67 6e 5f 61 63 74 69 76 sion].sign_activ
33420 65 20 3d 20 30 3b 0a 09 7d 0a 0a 09 6d 75 74 65 e = 0;..}...mute
33430 78 5f 72 65 74 76 61 6c 20 3d 20 63 61 63 6b 65 x_retval = cacke
33440 79 5f 6d 75 74 65 78 5f 75 6e 6c 6f 63 6b 28 63 y_mutex_unlock(c
33450 61 63 6b 65 79 5f 62 69 67 6c 6f 63 6b 29 3b 0a ackey_biglock);.
33460 09 69 66 20 28 6d 75 74 65 78 5f 72 65 74 76 61 .if (mutex_retva
33470 6c 20 21 3d 20 30 29 20 7b 0a 09 09 43 41 43 4b l != 0) {...CACK
33480 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
33490 22 45 72 72 6f 72 2e 20 20 55 6e 6c 6f 63 6b 69 "Error. Unlocki
334a0 6e 67 20 66 61 69 6c 65 64 2e 22 29 3b 0a 0a 09 ng failed.");...
334b0 09 72 65 74 75 72 6e 28 43 4b 52 5f 47 45 4e 45 .return(CKR_GENE
334c0 52 41 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a RAL_ERROR);..}..
334d0 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
334e0 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
334f0 25 69 22 2c 20 28 69 6e 74 29 20 72 65 74 76 61 %i", (int) retva
33500 6c 29 3b 0a 0a 09 72 65 74 75 72 6e 28 72 65 74 l);...return(ret
33510 76 61 6c 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 val);.}..CK_DEFI
33520 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 NE_FUNCTION(CK_R
33530 56 2c 20 43 5f 53 69 67 6e 52 65 63 6f 76 65 72 V, C_SignRecover
33540 49 6e 69 74 29 28 43 4b 5f 53 45 53 53 49 4f 4e Init)(CK_SESSION
33550 5f 48 41 4e 44 4c 45 20 68 53 65 73 73 69 6f 6e _HANDLE hSession
33560 2c 20 43 4b 5f 4d 45 43 48 41 4e 49 53 4d 5f 50 , CK_MECHANISM_P
33570 54 52 20 70 4d 65 63 68 61 6e 69 73 6d 2c 20 43 TR pMechanism, C
33580 4b 5f 4f 42 4a 45 43 54 5f 48 41 4e 44 4c 45 20 K_OBJECT_HANDLE
33590 68 4b 65 79 29 20 7b 0a 09 43 41 43 4b 45 59 5f hKey) {..CACKEY_
335a0 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 DEBUG_PRINTF("Ca
335b0 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 28 21 lled.");...if (!
335c0 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a cackey_initializ
335d0 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ed) {...CACKEY_D
335e0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
335f0 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c or. Not initial
33600 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 ized.");....retu
33610 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f rn(CKR_CRYPTOKI_
33620 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 NOT_INITIALIZED)
33630 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 ;..}...CACKEY_DE
33640 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 BUG_PRINTF("Retu
33650 72 6e 69 6e 67 20 43 4b 52 5f 46 55 4e 43 54 49 rning CKR_FUNCTI
33660 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 ON_NOT_SUPPORTED
33670 20 28 25 69 29 22 2c 20 43 4b 52 5f 46 55 4e 43 (%i)", CKR_FUNC
33680 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 TION_NOT_SUPPORT
33690 45 44 29 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b ED);...return(CK
336a0 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 R_FUNCTION_NOT_S
336b0 55 50 50 4f 52 54 45 44 29 3b 0a 7d 0a 0a 43 4b UPPORTED);.}..CK
336c0 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e _DEFINE_FUNCTION
336d0 28 43 4b 5f 52 56 2c 20 43 5f 53 69 67 6e 52 65 (CK_RV, C_SignRe
336e0 63 6f 76 65 72 29 28 43 4b 5f 53 45 53 53 49 4f cover)(CK_SESSIO
336f0 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 73 69 6f N_HANDLE hSessio
33700 6e 2c 20 43 4b 5f 42 59 54 45 5f 50 54 52 20 70 n, CK_BYTE_PTR p
33710 44 61 74 61 2c 20 43 4b 5f 55 4c 4f 4e 47 20 75 Data, CK_ULONG u
33720 6c 44 61 74 61 4c 65 6e 2c 20 43 4b 5f 42 59 54 lDataLen, CK_BYT
33730 45 5f 50 54 52 20 70 53 69 67 6e 61 74 75 72 65 E_PTR pSignature
33740 2c 20 43 4b 5f 55 4c 4f 4e 47 5f 50 54 52 20 70 , CK_ULONG_PTR p
33750 75 6c 53 69 67 6e 61 74 75 72 65 4c 65 6e 29 20 ulSignatureLen)
33760 7b 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f {..CACKEY_DEBUG_
33770 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 PRINTF("Called."
33780 29 3b 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 );...if (!cackey
33790 5f 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a _initialized) {.
337a0 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
337b0 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4e RINTF("Error. N
337c0 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 ot initialized."
337d0 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 );....return(CKR
337e0 5f 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e _CRYPTOKI_NOT_IN
337f0 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a ITIALIZED);..}..
33800 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
33810 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
33820 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 CKR_FUNCTION_NOT
33830 5f 53 55 50 50 4f 52 54 45 44 20 28 25 69 29 22 _SUPPORTED (%i)"
33840 2c 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e , CKR_FUNCTION_N
33850 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 0a OT_SUPPORTED);..
33860 09 72 65 74 75 72 6e 28 43 4b 52 5f 46 55 4e 43 .return(CKR_FUNC
33870 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 TION_NOT_SUPPORT
33880 45 44 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e ED);.}..CK_DEFIN
33890 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 E_FUNCTION(CK_RV
338a0 2c 20 43 5f 56 65 72 69 66 79 49 6e 69 74 29 28 , C_VerifyInit)(
338b0 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c CK_SESSION_HANDL
338c0 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 4d E hSession, CK_M
338d0 45 43 48 41 4e 49 53 4d 5f 50 54 52 20 70 4d 65 ECHANISM_PTR pMe
338e0 63 68 61 6e 69 73 6d 2c 20 43 4b 5f 4f 42 4a 45 chanism, CK_OBJE
338f0 43 54 5f 48 41 4e 44 4c 45 20 68 4b 65 79 29 20 CT_HANDLE hKey)
33900 7b 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f {..CACKEY_DEBUG_
33910 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 PRINTF("Called."
33920 29 3b 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 );...if (!cackey
33930 5f 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a _initialized) {.
33940 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
33950 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4e RINTF("Error. N
33960 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 ot initialized."
33970 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 );....return(CKR
33980 5f 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e _CRYPTOKI_NOT_IN
33990 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a ITIALIZED);..}..
339a0 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
339b0 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
339c0 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 CKR_FUNCTION_NOT
339d0 5f 53 55 50 50 4f 52 54 45 44 20 28 25 69 29 22 _SUPPORTED (%i)"
339e0 2c 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e , CKR_FUNCTION_N
339f0 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 0a OT_SUPPORTED);..
33a00 09 72 65 74 75 72 6e 28 43 4b 52 5f 46 55 4e 43 .return(CKR_FUNC
33a10 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 TION_NOT_SUPPORT
33a20 45 44 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e ED);.}..CK_DEFIN
33a30 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 E_FUNCTION(CK_RV
33a40 2c 20 43 5f 56 65 72 69 66 79 29 28 43 4b 5f 53 , C_Verify)(CK_S
33a50 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 ESSION_HANDLE hS
33a60 65 73 73 69 6f 6e 2c 20 43 4b 5f 42 59 54 45 5f ession, CK_BYTE_
33a70 50 54 52 20 70 44 61 74 61 2c 20 43 4b 5f 55 4c PTR pData, CK_UL
33a80 4f 4e 47 20 75 6c 44 61 74 61 4c 65 6e 2c 20 43 ONG ulDataLen, C
33a90 4b 5f 42 59 54 45 5f 50 54 52 20 70 53 69 67 6e K_BYTE_PTR pSign
33aa0 61 74 75 72 65 2c 20 43 4b 5f 55 4c 4f 4e 47 20 ature, CK_ULONG
33ab0 75 6c 53 69 67 6e 61 74 75 72 65 4c 65 6e 29 20 ulSignatureLen)
33ac0 7b 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f {..CACKEY_DEBUG_
33ad0 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 PRINTF("Called."
33ae0 29 3b 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 );...if (!cackey
33af0 5f 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a _initialized) {.
33b00 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
33b10 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4e RINTF("Error. N
33b20 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 ot initialized."
33b30 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 );....return(CKR
33b40 5f 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e _CRYPTOKI_NOT_IN
33b50 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a ITIALIZED);..}..
33b60 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
33b70 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
33b80 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 CKR_FUNCTION_NOT
33b90 5f 53 55 50 50 4f 52 54 45 44 20 28 25 69 29 22 _SUPPORTED (%i)"
33ba0 2c 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e , CKR_FUNCTION_N
33bb0 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 0a OT_SUPPORTED);..
33bc0 09 72 65 74 75 72 6e 28 43 4b 52 5f 46 55 4e 43 .return(CKR_FUNC
33bd0 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 TION_NOT_SUPPORT
33be0 45 44 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e ED);.}..CK_DEFIN
33bf0 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 E_FUNCTION(CK_RV
33c00 2c 20 43 5f 56 65 72 69 66 79 55 70 64 61 74 65 , C_VerifyUpdate
33c10 29 28 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e )(CK_SESSION_HAN
33c20 44 4c 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b DLE hSession, CK
33c30 5f 42 59 54 45 5f 50 54 52 20 70 50 61 72 74 2c _BYTE_PTR pPart,
33c40 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 50 61 72 74 CK_ULONG ulPart
33c50 4c 65 6e 29 20 7b 0a 09 43 41 43 4b 45 59 5f 44 Len) {..CACKEY_D
33c60 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 6c EBUG_PRINTF("Cal
33c70 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 28 21 63 led.");...if (!c
33c80 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a 65 ackey_initialize
33c90 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 d) {...CACKEY_DE
33ca0 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f BUG_PRINTF("Erro
33cb0 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 r. Not initiali
33cc0 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 zed.");....retur
33cd0 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f 4e n(CKR_CRYPTOKI_N
33ce0 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 3b OT_INITIALIZED);
33cf0 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 ..}...CACKEY_DEB
33d00 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 UG_PRINTF("Retur
33d10 6e 69 6e 67 20 43 4b 52 5f 46 55 4e 43 54 49 4f ning CKR_FUNCTIO
33d20 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 20 N_NOT_SUPPORTED
33d30 28 25 69 29 22 2c 20 43 4b 52 5f 46 55 4e 43 54 (%i)", CKR_FUNCT
33d40 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 ION_NOT_SUPPORTE
33d50 44 29 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 D);...return(CKR
33d60 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 _FUNCTION_NOT_SU
33d70 50 50 4f 52 54 45 44 29 3b 0a 7d 0a 0a 43 4b 5f PPORTED);.}..CK_
33d80 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 DEFINE_FUNCTION(
33d90 43 4b 5f 52 56 2c 20 43 5f 56 65 72 69 66 79 46 CK_RV, C_VerifyF
33da0 69 6e 61 6c 29 28 43 4b 5f 53 45 53 53 49 4f 4e inal)(CK_SESSION
33db0 5f 48 41 4e 44 4c 45 20 68 53 65 73 73 69 6f 6e _HANDLE hSession
33dc0 2c 20 43 4b 5f 42 59 54 45 5f 50 54 52 20 70 53 , CK_BYTE_PTR pS
33dd0 69 67 6e 61 74 75 72 65 2c 20 43 4b 5f 55 4c 4f ignature, CK_ULO
33de0 4e 47 20 75 6c 53 69 67 6e 61 74 75 72 65 4c 65 NG ulSignatureLe
33df0 6e 29 20 7b 0a 09 43 41 43 4b 45 59 5f 44 45 42 n) {..CACKEY_DEB
33e00 55 47 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 UG_PRINTF("Calle
33e10 64 2e 22 29 3b 0a 0a 09 69 66 20 28 21 63 61 63 d.");...if (!cac
33e20 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a 65 64 29 key_initialized)
33e30 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
33e40 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
33e50 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 Not initialize
33e60 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 d.");....return(
33e70 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 CKR_CRYPTOKI_NOT
33e80 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 _INITIALIZED);..
33e90 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 }...CACKEY_DEBUG
33ea0 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 _PRINTF("Returni
33eb0 6e 67 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f ng CKR_FUNCTION_
33ec0 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 20 28 25 NOT_SUPPORTED (%
33ed0 69 29 22 2c 20 43 4b 52 5f 46 55 4e 43 54 49 4f i)", CKR_FUNCTIO
33ee0 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 N_NOT_SUPPORTED)
33ef0 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f 46 ;...return(CKR_F
33f00 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 UNCTION_NOT_SUPP
33f10 4f 52 54 45 44 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 ORTED);.}..CK_DE
33f20 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b FINE_FUNCTION(CK
33f30 5f 52 56 2c 20 43 5f 56 65 72 69 66 79 52 65 63 _RV, C_VerifyRec
33f40 6f 76 65 72 49 6e 69 74 29 28 43 4b 5f 53 45 53 overInit)(CK_SES
33f50 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 SION_HANDLE hSes
33f60 73 69 6f 6e 2c 20 43 4b 5f 4d 45 43 48 41 4e 49 sion, CK_MECHANI
33f70 53 4d 5f 50 54 52 20 70 4d 65 63 68 61 6e 69 73 SM_PTR pMechanis
33f80 6d 2c 20 43 4b 5f 4f 42 4a 45 43 54 5f 48 41 4e m, CK_OBJECT_HAN
33f90 44 4c 45 20 68 4b 65 79 29 20 7b 0a 09 43 41 43 DLE hKey) {..CAC
33fa0 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
33fb0 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 ("Called.");...i
33fc0 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 f (!cackey_initi
33fd0 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b alized) {...CACK
33fe0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
33ff0 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 "Error. Not ini
34000 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 tialized.");....
34010 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 return(CKR_CRYPT
34020 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 OKI_NOT_INITIALI
34030 5a 45 44 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 ZED);..}...CACKE
34040 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
34050 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 46 55 Returning CKR_FU
34060 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f NCTION_NOT_SUPPO
34070 52 54 45 44 20 28 25 69 29 22 2c 20 43 4b 52 5f RTED (%i)", CKR_
34080 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 FUNCTION_NOT_SUP
34090 50 4f 52 54 45 44 29 3b 0a 0a 09 72 65 74 75 72 PORTED);...retur
340a0 6e 28 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e n(CKR_FUNCTION_N
340b0 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 7d OT_SUPPORTED);.}
340c0 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 ..CK_DEFINE_FUNC
340d0 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f 56 65 TION(CK_RV, C_Ve
340e0 72 69 66 79 52 65 63 6f 76 65 72 29 28 43 4b 5f rifyRecover)(CK_
340f0 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 SESSION_HANDLE h
34100 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 42 59 54 45 Session, CK_BYTE
34110 5f 50 54 52 20 70 53 69 67 6e 61 74 75 72 65 2c _PTR pSignature,
34120 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 53 69 67 6e CK_ULONG ulSign
34130 61 74 75 72 65 4c 65 6e 2c 20 43 4b 5f 42 59 54 atureLen, CK_BYT
34140 45 5f 50 54 52 20 70 44 61 74 61 2c 20 43 4b 5f E_PTR pData, CK_
34150 55 4c 4f 4e 47 5f 50 54 52 20 70 75 6c 44 61 74 ULONG_PTR pulDat
34160 61 4c 65 6e 29 20 7b 0a 09 43 41 43 4b 45 59 5f aLen) {..CACKEY_
34170 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 61 DEBUG_PRINTF("Ca
34180 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 28 21 lled.");...if (!
34190 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a cackey_initializ
341a0 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 ed) {...CACKEY_D
341b0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 72 EBUG_PRINTF("Err
341c0 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c or. Not initial
341d0 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 ized.");....retu
341e0 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f rn(CKR_CRYPTOKI_
341f0 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 NOT_INITIALIZED)
34200 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 ;..}...CACKEY_DE
34210 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 75 BUG_PRINTF("Retu
34220 72 6e 69 6e 67 20 43 4b 52 5f 46 55 4e 43 54 49 rning CKR_FUNCTI
34230 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 ON_NOT_SUPPORTED
34240 20 28 25 69 29 22 2c 20 43 4b 52 5f 46 55 4e 43 (%i)", CKR_FUNC
34250 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 TION_NOT_SUPPORT
34260 45 44 29 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b ED);...return(CK
34270 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 R_FUNCTION_NOT_S
34280 55 50 50 4f 52 54 45 44 29 3b 0a 7d 0a 0a 43 4b UPPORTED);.}..CK
34290 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e _DEFINE_FUNCTION
342a0 28 43 4b 5f 52 56 2c 20 43 5f 44 69 67 65 73 74 (CK_RV, C_Digest
342b0 45 6e 63 72 79 70 74 55 70 64 61 74 65 29 28 43 EncryptUpdate)(C
342c0 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 K_SESSION_HANDLE
342d0 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 42 59 hSession, CK_BY
342e0 54 45 5f 50 54 52 20 70 50 61 72 74 2c 20 43 4b TE_PTR pPart, CK
342f0 5f 55 4c 4f 4e 47 20 75 6c 50 61 72 74 4c 65 6e _ULONG ulPartLen
34300 2c 20 43 4b 5f 42 59 54 45 5f 50 54 52 20 70 45 , CK_BYTE_PTR pE
34310 6e 63 72 79 70 74 65 64 50 61 72 74 2c 20 43 4b ncryptedPart, CK
34320 5f 55 4c 4f 4e 47 5f 50 54 52 20 70 75 6c 45 6e _ULONG_PTR pulEn
34330 63 72 79 70 74 65 64 50 61 72 74 4c 65 6e 29 20 cryptedPartLen)
34340 7b 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f {..CACKEY_DEBUG_
34350 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 PRINTF("Called."
34360 29 3b 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 );...if (!cackey
34370 5f 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a _initialized) {.
34380 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
34390 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4e RINTF("Error. N
343a0 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 ot initialized."
343b0 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 );....return(CKR
343c0 5f 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e _CRYPTOKI_NOT_IN
343d0 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a ITIALIZED);..}..
343e0 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
343f0 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
34400 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 CKR_FUNCTION_NOT
34410 5f 53 55 50 50 4f 52 54 45 44 20 28 25 69 29 22 _SUPPORTED (%i)"
34420 2c 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e , CKR_FUNCTION_N
34430 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 0a OT_SUPPORTED);..
34440 09 72 65 74 75 72 6e 28 43 4b 52 5f 46 55 4e 43 .return(CKR_FUNC
34450 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 TION_NOT_SUPPORT
34460 45 44 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e ED);.}..CK_DEFIN
34470 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 E_FUNCTION(CK_RV
34480 2c 20 43 5f 44 65 63 72 79 70 74 44 69 67 65 73 , C_DecryptDiges
34490 74 55 70 64 61 74 65 29 28 43 4b 5f 53 45 53 53 tUpdate)(CK_SESS
344a0 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 73 ION_HANDLE hSess
344b0 69 6f 6e 2c 20 43 4b 5f 42 59 54 45 5f 50 54 52 ion, CK_BYTE_PTR
344c0 20 70 45 6e 63 72 79 70 74 65 64 50 61 72 74 2c pEncryptedPart,
344d0 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 45 6e 63 72 CK_ULONG ulEncr
344e0 79 70 74 65 64 50 61 72 74 4c 65 6e 2c 20 43 4b yptedPartLen, CK
344f0 5f 42 59 54 45 5f 50 54 52 20 70 50 61 72 74 2c _BYTE_PTR pPart,
34500 20 43 4b 5f 55 4c 4f 4e 47 5f 50 54 52 20 70 75 CK_ULONG_PTR pu
34510 6c 50 61 72 74 4c 65 6e 29 20 7b 0a 09 43 41 43 lPartLen) {..CAC
34520 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
34530 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 ("Called.");...i
34540 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 f (!cackey_initi
34550 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b alized) {...CACK
34560 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
34570 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 "Error. Not ini
34580 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 tialized.");....
34590 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 return(CKR_CRYPT
345a0 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 OKI_NOT_INITIALI
345b0 5a 45 44 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 ZED);..}...CACKE
345c0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
345d0 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 46 55 Returning CKR_FU
345e0 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f NCTION_NOT_SUPPO
345f0 52 54 45 44 20 28 25 69 29 22 2c 20 43 4b 52 5f RTED (%i)", CKR_
34600 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 FUNCTION_NOT_SUP
34610 50 4f 52 54 45 44 29 3b 0a 0a 09 72 65 74 75 72 PORTED);...retur
34620 6e 28 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e n(CKR_FUNCTION_N
34630 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 7d OT_SUPPORTED);.}
34640 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 ..CK_DEFINE_FUNC
34650 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f 53 69 TION(CK_RV, C_Si
34660 67 6e 45 6e 63 72 79 70 74 55 70 64 61 74 65 29 gnEncryptUpdate)
34670 28 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 (CK_SESSION_HAND
34680 4c 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f LE hSession, CK_
34690 42 59 54 45 5f 50 54 52 20 70 50 61 72 74 2c 20 BYTE_PTR pPart,
346a0 43 4b 5f 55 4c 4f 4e 47 20 75 6c 50 61 72 74 4c CK_ULONG ulPartL
346b0 65 6e 2c 20 43 4b 5f 42 59 54 45 5f 50 54 52 20 en, CK_BYTE_PTR
346c0 70 45 6e 63 72 79 70 74 65 64 50 61 72 74 2c 20 pEncryptedPart,
346d0 43 4b 5f 55 4c 4f 4e 47 5f 50 54 52 20 70 75 6c CK_ULONG_PTR pul
346e0 45 6e 63 72 79 70 74 65 64 50 61 72 74 4c 65 6e EncryptedPartLen
346f0 29 20 7b 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 ) {..CACKEY_DEBU
34700 47 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 G_PRINTF("Called
34710 2e 22 29 3b 0a 0a 09 69 66 20 28 21 63 61 63 6b .");...if (!cack
34720 65 79 5f 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 ey_initialized)
34730 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
34740 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
34750 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 Not initialized
34760 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 .");....return(C
34770 4b 52 5f 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f KR_CRYPTOKI_NOT_
34780 49 4e 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d INITIALIZED);..}
34790 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
347a0 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e PRINTF("Returnin
347b0 67 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e g CKR_FUNCTION_N
347c0 4f 54 5f 53 55 50 50 4f 52 54 45 44 20 28 25 69 OT_SUPPORTED (%i
347d0 29 22 2c 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e )", CKR_FUNCTION
347e0 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b _NOT_SUPPORTED);
347f0 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f 46 55 ...return(CKR_FU
34800 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f NCTION_NOT_SUPPO
34810 52 54 45 44 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 RTED);.}..CK_DEF
34820 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f INE_FUNCTION(CK_
34830 52 56 2c 20 43 5f 44 65 63 72 79 70 74 56 65 72 RV, C_DecryptVer
34840 69 66 79 55 70 64 61 74 65 29 28 43 4b 5f 53 45 ifyUpdate)(CK_SE
34850 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 SSION_HANDLE hSe
34860 73 73 69 6f 6e 2c 20 43 4b 5f 42 59 54 45 5f 50 ssion, CK_BYTE_P
34870 54 52 20 70 45 6e 63 72 79 70 74 65 64 50 61 72 TR pEncryptedPar
34880 74 2c 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 45 6e t, CK_ULONG ulEn
34890 63 72 79 70 74 65 64 50 61 72 74 4c 65 6e 2c 20 cryptedPartLen,
348a0 43 4b 5f 42 59 54 45 5f 50 54 52 20 70 50 61 72 CK_BYTE_PTR pPar
348b0 74 2c 20 43 4b 5f 55 4c 4f 4e 47 5f 50 54 52 20 t, CK_ULONG_PTR
348c0 70 75 6c 50 61 72 74 4c 65 6e 29 20 7b 0a 09 43 pulPartLen) {..C
348d0 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e ACKEY_DEBUG_PRIN
348e0 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a TF("Called.");..
348f0 09 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 .if (!cackey_ini
34900 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 tialized) {...CA
34910 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
34920 46 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 F("Error. Not i
34930 6e 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a nitialized.");..
34940 09 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 ..return(CKR_CRY
34950 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 PTOKI_NOT_INITIA
34960 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 43 41 43 LIZED);..}...CAC
34970 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
34980 28 22 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f ("Returning CKR_
34990 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 FUNCTION_NOT_SUP
349a0 50 4f 52 54 45 44 20 28 25 69 29 22 2c 20 43 4b PORTED (%i)", CK
349b0 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 R_FUNCTION_NOT_S
349c0 55 50 50 4f 52 54 45 44 29 3b 0a 0a 09 72 65 74 UPPORTED);...ret
349d0 75 72 6e 28 43 4b 52 5f 46 55 4e 43 54 49 4f 4e urn(CKR_FUNCTION
349e0 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b _NOT_SUPPORTED);
349f0 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 55 .}..CK_DEFINE_FU
34a00 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f NCTION(CK_RV, C_
34a10 47 65 6e 65 72 61 74 65 4b 65 79 29 28 43 4b 5f GenerateKey)(CK_
34a20 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 SESSION_HANDLE h
34a30 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 4d 45 43 48 Session, CK_MECH
34a40 41 4e 49 53 4d 5f 50 54 52 20 70 4d 65 63 68 61 ANISM_PTR pMecha
34a50 6e 69 73 6d 2c 20 43 4b 5f 41 54 54 52 49 42 55 nism, CK_ATTRIBU
34a60 54 45 5f 50 54 52 20 70 54 65 6d 70 6c 61 74 65 TE_PTR pTemplate
34a70 2c 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 43 6f 75 , CK_ULONG ulCou
34a80 6e 74 2c 20 43 4b 5f 4f 42 4a 45 43 54 5f 48 41 nt, CK_OBJECT_HA
34a90 4e 44 4c 45 5f 50 54 52 20 70 68 4b 65 79 29 20 NDLE_PTR phKey)
34aa0 7b 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f {..CACKEY_DEBUG_
34ab0 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 PRINTF("Called."
34ac0 29 3b 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 );...if (!cackey
34ad0 5f 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a _initialized) {.
34ae0 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
34af0 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4e RINTF("Error. N
34b00 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 ot initialized."
34b10 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 );....return(CKR
34b20 5f 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e _CRYPTOKI_NOT_IN
34b30 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a ITIALIZED);..}..
34b40 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
34b50 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
34b60 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 CKR_FUNCTION_NOT
34b70 5f 53 55 50 50 4f 52 54 45 44 20 28 25 69 29 22 _SUPPORTED (%i)"
34b80 2c 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e , CKR_FUNCTION_N
34b90 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 0a OT_SUPPORTED);..
34ba0 09 72 65 74 75 72 6e 28 43 4b 52 5f 46 55 4e 43 .return(CKR_FUNC
34bb0 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 TION_NOT_SUPPORT
34bc0 45 44 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e ED);.}..CK_DEFIN
34bd0 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 E_FUNCTION(CK_RV
34be0 2c 20 43 5f 47 65 6e 65 72 61 74 65 4b 65 79 50 , C_GenerateKeyP
34bf0 61 69 72 29 28 43 4b 5f 53 45 53 53 49 4f 4e 5f air)(CK_SESSION_
34c00 48 41 4e 44 4c 45 20 68 53 65 73 73 69 6f 6e 2c HANDLE hSession,
34c10 20 43 4b 5f 4d 45 43 48 41 4e 49 53 4d 5f 50 54 CK_MECHANISM_PT
34c20 52 20 70 4d 65 63 68 61 6e 69 73 6d 2c 20 43 4b R pMechanism, CK
34c30 5f 41 54 54 52 49 42 55 54 45 5f 50 54 52 20 70 _ATTRIBUTE_PTR p
34c40 50 75 62 6c 69 63 4b 65 79 54 65 6d 70 6c 61 74 PublicKeyTemplat
34c50 65 2c 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 50 75 e, CK_ULONG ulPu
34c60 62 6c 69 63 4b 65 79 41 74 74 72 69 62 75 74 65 blicKeyAttribute
34c70 43 6f 75 6e 74 2c 20 43 4b 5f 41 54 54 52 49 42 Count, CK_ATTRIB
34c80 55 54 45 5f 50 54 52 20 70 50 72 69 76 61 74 65 UTE_PTR pPrivate
34c90 4b 65 79 54 65 6d 70 6c 61 74 65 2c 20 43 4b 5f KeyTemplate, CK_
34ca0 55 4c 4f 4e 47 20 75 6c 50 72 69 76 61 74 65 4b ULONG ulPrivateK
34cb0 65 79 41 74 74 72 69 62 75 74 65 43 6f 75 6e 74 eyAttributeCount
34cc0 2c 20 43 4b 5f 4f 42 4a 45 43 54 5f 48 41 4e 44 , CK_OBJECT_HAND
34cd0 4c 45 5f 50 54 52 20 70 68 50 75 62 6c 69 63 4b LE_PTR phPublicK
34ce0 65 79 2c 20 43 4b 5f 4f 42 4a 45 43 54 5f 48 41 ey, CK_OBJECT_HA
34cf0 4e 44 4c 45 5f 50 54 52 20 70 68 50 72 69 76 61 NDLE_PTR phPriva
34d00 74 65 4b 65 79 29 20 7b 0a 09 43 41 43 4b 45 59 teKey) {..CACKEY
34d10 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 _DEBUG_PRINTF("C
34d20 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 66 20 28 alled.");...if (
34d30 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 61 6c 69 !cackey_initiali
34d40 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b 45 59 5f zed) {...CACKEY_
34d50 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 45 72 DEBUG_PRINTF("Er
34d60 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 74 69 61 ror. Not initia
34d70 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 72 65 74 lized.");....ret
34d80 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 4f 4b 49 urn(CKR_CRYPTOKI
34d90 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 5a 45 44 _NOT_INITIALIZED
34da0 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 );..}...CACKEY_D
34db0 45 42 55 47 5f 50 52 49 4e 54 46 28 22 52 65 74 EBUG_PRINTF("Ret
34dc0 75 72 6e 69 6e 67 20 43 4b 52 5f 46 55 4e 43 54 urning CKR_FUNCT
34dd0 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 ION_NOT_SUPPORTE
34de0 44 20 28 25 69 29 22 2c 20 43 4b 52 5f 46 55 4e D (%i)", CKR_FUN
34df0 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 CTION_NOT_SUPPOR
34e00 54 45 44 29 3b 0a 0a 09 72 65 74 75 72 6e 28 43 TED);...return(C
34e10 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f KR_FUNCTION_NOT_
34e20 53 55 50 50 4f 52 54 45 44 29 3b 0a 7d 0a 0a 43 SUPPORTED);.}..C
34e30 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f K_DEFINE_FUNCTIO
34e40 4e 28 43 4b 5f 52 56 2c 20 43 5f 57 72 61 70 4b N(CK_RV, C_WrapK
34e50 65 79 29 28 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 ey)(CK_SESSION_H
34e60 41 4e 44 4c 45 20 68 53 65 73 73 69 6f 6e 2c 20 ANDLE hSession,
34e70 43 4b 5f 4d 45 43 48 41 4e 49 53 4d 5f 50 54 52 CK_MECHANISM_PTR
34e80 20 70 4d 65 63 68 61 6e 69 73 6d 2c 20 43 4b 5f pMechanism, CK_
34e90 4f 42 4a 45 43 54 5f 48 41 4e 44 4c 45 20 68 57 OBJECT_HANDLE hW
34ea0 72 61 70 70 69 6e 67 4b 65 79 2c 20 43 4b 5f 4f rappingKey, CK_O
34eb0 42 4a 45 43 54 5f 48 41 4e 44 4c 45 20 68 4b 65 BJECT_HANDLE hKe
34ec0 79 2c 20 43 4b 5f 42 59 54 45 5f 50 54 52 20 70 y, CK_BYTE_PTR p
34ed0 57 72 61 70 70 65 64 4b 65 79 2c 20 43 4b 5f 55 WrappedKey, CK_U
34ee0 4c 4f 4e 47 5f 50 54 52 20 70 75 6c 57 72 61 70 LONG_PTR pulWrap
34ef0 70 65 64 4b 65 79 4c 65 6e 29 20 7b 0a 09 43 41 pedKeyLen) {..CA
34f00 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 CKEY_DEBUG_PRINT
34f10 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 F("Called.");...
34f20 69 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 if (!cackey_init
34f30 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 ialized) {...CAC
34f40 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
34f50 28 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e ("Error. Not in
34f60 69 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 itialized.");...
34f70 09 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 .return(CKR_CRYP
34f80 54 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c TOKI_NOT_INITIAL
34f90 49 5a 45 44 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b IZED);..}...CACK
34fa0 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
34fb0 22 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 46 "Returning CKR_F
34fc0 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 UNCTION_NOT_SUPP
34fd0 4f 52 54 45 44 20 28 25 69 29 22 2c 20 43 4b 52 ORTED (%i)", CKR
34fe0 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 _FUNCTION_NOT_SU
34ff0 50 50 4f 52 54 45 44 29 3b 0a 0a 09 72 65 74 75 PPORTED);...retu
35000 72 6e 28 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f rn(CKR_FUNCTION_
35010 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a NOT_SUPPORTED);.
35020 7d 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e }..CK_DEFINE_FUN
35030 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f 55 CTION(CK_RV, C_U
35040 6e 77 72 61 70 4b 65 79 29 28 43 4b 5f 53 45 53 nwrapKey)(CK_SES
35050 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 SION_HANDLE hSes
35060 73 69 6f 6e 2c 20 43 4b 5f 4d 45 43 48 41 4e 49 sion, CK_MECHANI
35070 53 4d 5f 50 54 52 20 70 4d 65 63 68 61 6e 69 73 SM_PTR pMechanis
35080 6d 2c 20 43 4b 5f 4f 42 4a 45 43 54 5f 48 41 4e m, CK_OBJECT_HAN
35090 44 4c 45 20 68 55 6e 77 72 61 70 70 69 6e 67 4b DLE hUnwrappingK
350a0 65 79 2c 20 43 4b 5f 42 59 54 45 5f 50 54 52 20 ey, CK_BYTE_PTR
350b0 70 57 72 61 70 70 65 64 4b 65 79 2c 20 43 4b 5f pWrappedKey, CK_
350c0 55 4c 4f 4e 47 20 75 6c 57 72 61 70 70 65 64 4b ULONG ulWrappedK
350d0 65 79 4c 65 6e 2c 20 43 4b 5f 41 54 54 52 49 42 eyLen, CK_ATTRIB
350e0 55 54 45 5f 50 54 52 20 70 54 65 6d 70 6c 61 74 UTE_PTR pTemplat
350f0 65 2c 20 43 4b 5f 55 4c 4f 4e 47 20 75 6c 41 74 e, CK_ULONG ulAt
35100 74 72 69 62 75 74 65 43 6f 75 6e 74 2c 20 43 4b tributeCount, CK
35110 5f 4f 42 4a 45 43 54 5f 48 41 4e 44 4c 45 5f 50 _OBJECT_HANDLE_P
35120 54 52 20 70 68 4b 65 79 29 20 7b 0a 09 43 41 43 TR phKey) {..CAC
35130 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 KEY_DEBUG_PRINTF
35140 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 69 ("Called.");...i
35150 66 20 28 21 63 61 63 6b 65 79 5f 69 6e 69 74 69 f (!cackey_initi
35160 61 6c 69 7a 65 64 29 20 7b 0a 09 09 43 41 43 4b alized) {...CACK
35170 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
35180 22 45 72 72 6f 72 2e 20 20 4e 6f 74 20 69 6e 69 "Error. Not ini
35190 74 69 61 6c 69 7a 65 64 2e 22 29 3b 0a 0a 09 09 tialized.");....
351a0 72 65 74 75 72 6e 28 43 4b 52 5f 43 52 59 50 54 return(CKR_CRYPT
351b0 4f 4b 49 5f 4e 4f 54 5f 49 4e 49 54 49 41 4c 49 OKI_NOT_INITIALI
351c0 5a 45 44 29 3b 0a 09 7d 0a 0a 09 43 41 43 4b 45 ZED);..}...CACKE
351d0 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 Y_DEBUG_PRINTF("
351e0 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 46 55 Returning CKR_FU
351f0 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f NCTION_NOT_SUPPO
35200 52 54 45 44 20 28 25 69 29 22 2c 20 43 4b 52 5f RTED (%i)", CKR_
35210 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 FUNCTION_NOT_SUP
35220 50 4f 52 54 45 44 29 3b 0a 0a 09 72 65 74 75 72 PORTED);...retur
35230 6e 28 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e n(CKR_FUNCTION_N
35240 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 7d OT_SUPPORTED);.}
35250 0a 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 ..CK_DEFINE_FUNC
35260 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f 44 65 TION(CK_RV, C_De
35270 72 69 76 65 4b 65 79 29 28 43 4b 5f 53 45 53 53 riveKey)(CK_SESS
35280 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 73 ION_HANDLE hSess
35290 69 6f 6e 2c 20 43 4b 5f 4d 45 43 48 41 4e 49 53 ion, CK_MECHANIS
352a0 4d 5f 50 54 52 20 70 4d 65 63 68 61 6e 69 73 6d M_PTR pMechanism
352b0 2c 20 43 4b 5f 4f 42 4a 45 43 54 5f 48 41 4e 44 , CK_OBJECT_HAND
352c0 4c 45 20 68 42 61 73 65 4b 65 79 2c 20 43 4b 5f LE hBaseKey, CK_
352d0 41 54 54 52 49 42 55 54 45 5f 50 54 52 20 70 54 ATTRIBUTE_PTR pT
352e0 65 6d 70 6c 61 74 65 2c 20 43 4b 5f 55 4c 4f 4e emplate, CK_ULON
352f0 47 20 75 6c 41 74 74 72 69 62 75 74 65 43 6f 75 G ulAttributeCou
35300 6e 74 2c 20 43 4b 5f 4f 42 4a 45 43 54 5f 48 41 nt, CK_OBJECT_HA
35310 4e 44 4c 45 5f 50 54 52 20 70 68 4b 65 79 29 20 NDLE_PTR phKey)
35320 7b 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f {..CACKEY_DEBUG_
35330 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 PRINTF("Called."
35340 29 3b 0a 0a 09 69 66 20 28 21 63 61 63 6b 65 79 );...if (!cackey
35350 5f 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a _initialized) {.
35360 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
35370 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 20 4e RINTF("Error. N
35380 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 22 ot initialized."
35390 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 4b 52 );....return(CKR
353a0 5f 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f 49 4e _CRYPTOKI_NOT_IN
353b0 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d 0a 0a ITIALIZED);..}..
353c0 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
353d0 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
353e0 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 CKR_FUNCTION_NOT
353f0 5f 53 55 50 50 4f 52 54 45 44 20 28 25 69 29 22 _SUPPORTED (%i)"
35400 2c 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e , CKR_FUNCTION_N
35410 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b 0a 0a OT_SUPPORTED);..
35420 09 72 65 74 75 72 6e 28 43 4b 52 5f 46 55 4e 43 .return(CKR_FUNC
35430 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 TION_NOT_SUPPORT
35440 45 44 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 46 49 4e ED);.}..CK_DEFIN
35450 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 E_FUNCTION(CK_RV
35460 2c 20 43 5f 53 65 65 64 52 61 6e 64 6f 6d 29 28 , C_SeedRandom)(
35470 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 4e 44 4c CK_SESSION_HANDL
35480 45 20 68 53 65 73 73 69 6f 6e 2c 20 43 4b 5f 42 E hSession, CK_B
35490 59 54 45 5f 50 54 52 20 70 53 65 65 64 2c 20 43 YTE_PTR pSeed, C
354a0 4b 5f 55 4c 4f 4e 47 20 75 6c 53 65 65 64 4c 65 K_ULONG ulSeedLe
354b0 6e 29 20 7b 0a 09 43 41 43 4b 45 59 5f 44 45 42 n) {..CACKEY_DEB
354c0 55 47 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 UG_PRINTF("Calle
354d0 64 2e 22 29 3b 0a 0a 09 69 66 20 28 21 63 61 63 d.");...if (!cac
354e0 6b 65 79 5f 69 6e 69 74 69 61 6c 69 7a 65 64 29 key_initialized)
354f0 20 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 {...CACKEY_DEBU
35500 47 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e G_PRINTF("Error.
35510 20 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 Not initialize
35520 64 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 d.");....return(
35530 43 4b 52 5f 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 CKR_CRYPTOKI_NOT
35540 5f 49 4e 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 _INITIALIZED);..
35550 7d 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 }...CACKEY_DEBUG
35560 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 _PRINTF("Returni
35570 6e 67 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f ng CKR_FUNCTION_
35580 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 20 28 25 NOT_SUPPORTED (%
35590 69 29 22 2c 20 43 4b 52 5f 46 55 4e 43 54 49 4f i)", CKR_FUNCTIO
355a0 4e 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 N_NOT_SUPPORTED)
355b0 3b 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f 46 ;...return(CKR_F
355c0 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 UNCTION_NOT_SUPP
355d0 4f 52 54 45 44 29 3b 0a 7d 0a 0a 43 4b 5f 44 45 ORTED);.}..CK_DE
355e0 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 43 4b FINE_FUNCTION(CK
355f0 5f 52 56 2c 20 43 5f 47 65 6e 65 72 61 74 65 52 _RV, C_GenerateR
35600 61 6e 64 6f 6d 29 28 43 4b 5f 53 45 53 53 49 4f andom)(CK_SESSIO
35610 4e 5f 48 41 4e 44 4c 45 20 68 53 65 73 73 69 6f N_HANDLE hSessio
35620 6e 2c 20 43 4b 5f 42 59 54 45 5f 50 54 52 20 70 n, CK_BYTE_PTR p
35630 52 61 6e 64 6f 6d 44 61 74 61 2c 20 43 4b 5f 55 RandomData, CK_U
35640 4c 4f 4e 47 20 75 6c 52 61 6e 64 6f 6d 4c 65 6e LONG ulRandomLen
35650 29 20 7b 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 ) {..CACKEY_DEBU
35660 47 5f 50 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 G_PRINTF("Called
35670 2e 22 29 3b 0a 0a 09 69 66 20 28 21 63 61 63 6b .");...if (!cack
35680 65 79 5f 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 ey_initialized)
35690 7b 0a 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 {...CACKEY_DEBUG
356a0 5f 50 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 _PRINTF("Error.
356b0 20 4e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 Not initialized
356c0 2e 22 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 43 .");....return(C
356d0 4b 52 5f 43 52 59 50 54 4f 4b 49 5f 4e 4f 54 5f KR_CRYPTOKI_NOT_
356e0 49 4e 49 54 49 41 4c 49 5a 45 44 29 3b 0a 09 7d INITIALIZED);..}
356f0 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f ...CACKEY_DEBUG_
35700 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e PRINTF("Returnin
35710 67 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e g CKR_FUNCTION_N
35720 4f 54 5f 53 55 50 50 4f 52 54 45 44 20 28 25 69 OT_SUPPORTED (%i
35730 29 22 2c 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e )", CKR_FUNCTION
35740 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 45 44 29 3b _NOT_SUPPORTED);
35750 0a 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f 46 55 ...return(CKR_FU
35760 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 53 55 50 50 4f NCTION_NOT_SUPPO
35770 52 54 45 44 29 3b 0a 7d 0a 0a 2f 2a 20 44 65 70 RTED);.}../* Dep
35780 72 65 63 61 74 65 64 20 46 75 6e 63 74 69 6f 6e recated Function
35790 20 2a 2f 0a 43 4b 5f 44 45 46 49 4e 45 5f 46 55 */.CK_DEFINE_FU
357a0 4e 43 54 49 4f 4e 28 43 4b 5f 52 56 2c 20 43 5f NCTION(CK_RV, C_
357b0 47 65 74 46 75 6e 63 74 69 6f 6e 53 74 61 74 75 GetFunctionStatu
357c0 73 29 28 43 4b 5f 53 45 53 53 49 4f 4e 5f 48 41 s)(CK_SESSION_HA
357d0 4e 44 4c 45 20 68 53 65 73 73 69 6f 6e 29 20 7b NDLE hSession) {
357e0 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
357f0 52 49 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 RINTF("Called.")
35800 3b 0a 0a 09 43 41 43 4b 45 59 5f 44 45 42 55 47 ;...CACKEY_DEBUG
35810 5f 50 52 49 4e 54 46 28 22 52 65 74 75 72 6e 69 _PRINTF("Returni
35820 6e 67 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f ng CKR_FUNCTION_
35830 4e 4f 54 5f 50 41 52 41 4c 4c 45 4c 20 28 25 69 NOT_PARALLEL (%i
35840 29 22 2c 20 43 4b 52 5f 46 55 4e 43 54 49 4f 4e )", CKR_FUNCTION
35850 5f 4e 4f 54 5f 50 41 52 41 4c 4c 45 4c 29 3b 0a _NOT_PARALLEL);.
35860 0a 09 72 65 74 75 72 6e 28 43 4b 52 5f 46 55 4e ..return(CKR_FUN
35870 43 54 49 4f 4e 5f 4e 4f 54 5f 50 41 52 41 4c 4c CTION_NOT_PARALL
35880 45 4c 29 3b 0a 0a 09 68 53 65 73 73 69 6f 6e 20 EL);...hSession
35890 3d 20 68 53 65 73 73 69 6f 6e 3b 20 2f 2a 20 53 = hSession; /* S
358a0 75 70 72 65 73 73 20 75 6e 75 73 65 64 20 76 61 upress unused va
358b0 72 69 61 62 6c 65 20 77 61 72 6e 69 6e 67 20 2a riable warning *
358c0 2f 0a 7d 0a 0a 2f 2a 20 44 65 70 72 65 63 61 74 /.}../* Deprecat
358d0 65 64 20 46 75 6e 63 74 69 6f 6e 20 2a 2f 0a 43 ed Function */.C
358e0 4b 5f 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f K_DEFINE_FUNCTIO
358f0 4e 28 43 4b 5f 52 56 2c 20 43 5f 43 61 6e 63 65 N(CK_RV, C_Cance
35900 6c 46 75 6e 63 74 69 6f 6e 29 28 43 4b 5f 53 45 lFunction)(CK_SE
35910 53 53 49 4f 4e 5f 48 41 4e 44 4c 45 20 68 53 65 SSION_HANDLE hSe
35920 73 73 69 6f 6e 29 20 7b 0a 09 43 41 43 4b 45 59 ssion) {..CACKEY
35930 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 22 43 _DEBUG_PRINTF("C
35940 61 6c 6c 65 64 2e 22 29 3b 0a 0a 09 43 41 43 4b alled.");...CACK
35950 45 59 5f 44 45 42 55 47 5f 50 52 49 4e 54 46 28 EY_DEBUG_PRINTF(
35960 22 52 65 74 75 72 6e 69 6e 67 20 43 4b 52 5f 46 "Returning CKR_F
35970 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 50 41 52 41 UNCTION_NOT_PARA
35980 4c 4c 45 4c 20 28 25 69 29 22 2c 20 43 4b 52 5f LLEL (%i)", CKR_
35990 46 55 4e 43 54 49 4f 4e 5f 4e 4f 54 5f 50 41 52 FUNCTION_NOT_PAR
359a0 41 4c 4c 45 4c 29 3b 0a 0a 09 72 65 74 75 72 6e ALLEL);...return
359b0 28 43 4b 52 5f 46 55 4e 43 54 49 4f 4e 5f 4e 4f (CKR_FUNCTION_NO
359c0 54 5f 50 41 52 41 4c 4c 45 4c 29 3b 0a 0a 09 68 T_PARALLEL);...h
359d0 53 65 73 73 69 6f 6e 20 3d 20 68 53 65 73 73 69 Session = hSessi
359e0 6f 6e 3b 20 2f 2a 20 53 75 70 72 65 73 73 20 75 on; /* Supress u
359f0 6e 75 73 65 64 20 76 61 72 69 61 62 6c 65 20 77 nused variable w
35a00 61 72 6e 69 6e 67 20 2a 2f 0a 7d 0a 0a 43 4b 5f arning */.}..CK_
35a10 44 45 46 49 4e 45 5f 46 55 4e 43 54 49 4f 4e 28 DEFINE_FUNCTION(
35a20 43 4b 5f 52 56 2c 20 43 5f 47 65 74 46 75 6e 63 CK_RV, C_GetFunc
35a30 74 69 6f 6e 4c 69 73 74 29 28 43 4b 5f 46 55 4e tionList)(CK_FUN
35a40 43 54 49 4f 4e 5f 4c 49 53 54 5f 50 54 52 5f 50 CTION_LIST_PTR_P
35a50 54 52 20 70 70 46 75 6e 63 74 69 6f 6e 4c 69 73 TR ppFunctionLis
35a60 74 29 20 7b 0a 09 73 74 61 74 69 63 20 43 4b 5f t) {..static CK_
35a70 46 55 4e 43 54 49 4f 4e 5f 4c 49 53 54 5f 50 54 FUNCTION_LIST_PT
35a80 52 20 73 70 46 75 6e 63 74 69 6f 6e 4c 69 73 74 R spFunctionList
35a90 20 3d 20 4e 55 4c 4c 3b 0a 09 43 4b 5f 46 55 4e = NULL;..CK_FUN
35aa0 43 54 49 4f 4e 5f 4c 49 53 54 5f 50 54 52 20 70 CTION_LIST_PTR p
35ab0 46 75 6e 63 74 69 6f 6e 4c 69 73 74 3b 0a 0a 09 FunctionList;...
35ac0 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 49 CACKEY_DEBUG_PRI
35ad0 4e 54 46 28 22 43 61 6c 6c 65 64 2e 22 29 3b 0a NTF("Called.");.
35ae0 0a 09 69 66 20 28 70 70 46 75 6e 63 74 69 6f 6e ..if (ppFunction
35af0 4c 69 73 74 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a List == NULL) {.
35b00 09 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 ..CACKEY_DEBUG_P
35b10 52 49 4e 54 46 28 22 45 72 72 6f 72 2e 20 70 70 RINTF("Error. pp
35b20 46 75 6e 63 74 69 6f 6e 4c 69 73 74 20 69 73 20 FunctionList is
35b30 4e 55 4c 4c 2e 22 29 3b 0a 0a 09 09 72 65 74 75 NULL.");....retu
35b40 72 6e 28 43 4b 52 5f 41 52 47 55 4d 45 4e 54 53 rn(CKR_ARGUMENTS
35b50 5f 42 41 44 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 _BAD);..}...if (
35b60 73 70 46 75 6e 63 74 69 6f 6e 4c 69 73 74 20 21 spFunctionList !
35b70 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 2a 70 70 46 = NULL) {...*ppF
35b80 75 6e 63 74 69 6f 6e 4c 69 73 74 20 3d 20 73 70 unctionList = sp
35b90 46 75 6e 63 74 69 6f 6e 4c 69 73 74 3b 0a 0a 09 FunctionList;...
35ba0 09 43 41 43 4b 45 59 5f 44 45 42 55 47 5f 50 52 .CACKEY_DEBUG_PR
35bb0 49 4e 54 46 28 22 52 65 74 75 72 6e 69 6e 67 20 INTF("Returning
35bc0 43 4b 52 5f 4f 4b 20 28 25 69 29 22 2c 20 43 4b CKR_OK (%i)", CK
35bd0 52 5f 4f 4b 29 3b 0a 0a 09 09 72 65 74 75 72 6e R_OK);....return
35be0 28 43 4b 52 5f 4f 4b 29 3b 0a 09 7d 0a 0a 09 70 (CKR_OK);..}...p
35bf0 46 75 6e 63 74 69 6f 6e 4c 69 73 74 20 3d 20 6d FunctionList = m
35c00 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 2a 70 46 alloc(sizeof(*pF
35c10 75 6e 63 74 69 6f 6e 4c 69 73 74 29 29 3b 0a 0a unctionList));..
35c20 09 70 46 75 6e 63 74 69 6f 6e 4c 69 73 74 2d 3e .pFunctionList->
35c30 76 65 72 73 69 6f 6e 2e 6d 61 6a 6f 72 20 3d 20 version.major =
35c40 28 28 43 41 43 4b 45 59 5f 43 52 59 50 54 4f 4b ((CACKEY_CRYPTOK
35c50 49 5f 56 45 52 53 49 4f 4e 5f 43 4f 44 45 29 20 I_VERSION_CODE)
35c60 3e 3e 20 31 36 29 20 26 20 30 78 66 66 3b 0a 09 >> 16) & 0xff;..
35c70 70 46 75 6e 63 74 69 6f 6e 4c 69 73 74 2d 3e 76 pFunctionList->v
35c80 65 72 73 69 6f 6e 2e 6d 69 6e 6f 72 20 3d 20 28 ersion.minor = (
35c90 28 43 41 43 4b 45 59 5f 43 52 59 50 54 4f 4b 49 (CACKEY_CRYPTOKI
35ca0 5f 56 45 52 53 49 4f 4e 5f 43 4f 44 45 29 20 3e _VERSION_CODE) >
35cb0 3e 20 38 29 20 26 20 30 78 66 66 3b 0a 0a 09 70 > 8) & 0xff;...p
35cc0 46 75 6e 63 74 69 6f 6e 4c 69 73 74 2d 3e 43 5f FunctionList->C_
35cd0 49 6e 69 74 69 61 6c 69 7a 65 20 3d 20 43 5f 49 Initialize = C_I
35ce0 6e 69 74 69 61 6c 69 7a 65 3b 0a 09 70 46 75 6e nitialize;..pFun
35cf0 63 74 69 6f 6e 4c 69 73 74 2d 3e 43 5f 46 69 6e ctionList->C_Fin
35d00 61 6c 69 7a 65 20 3d 20 43 5f 46 69 6e 61 6c 69 alize = C_Finali
35d10 7a 65 3b 0a 09 70 46 75 6e 63 74 69 6f 6e 4c 69 ze;..pFunctionLi
35d20 73 74 2d 3e 43 5f 47 65 74 49 6e 66 6f 20 3d 20 st->C_GetInfo =
35d30 43 5f 47 65 74 49 6e 66 6f 3b 0a 09 70 46 75 6e C_GetInfo;..pFun
35d40 63 74 69 6f 6e 4c 69 73 74 2d 3e 43 5f 47 65 74 ctionList->C_Get
35d50 53 6c 6f 74 4c 69 73 74 20 3d 20 43 5f 47 65 74 SlotList = C_Get
35d60 53 6c 6f 74 4c 69 73 74 3b 0a 09 70 46 75 6e 63 SlotList;..pFunc
35d70 74 69 6f 6e 4c 69 73 74 2d 3e 43 5f 47 65 74 53 tionList->C_GetS
35d80 6c 6f 74 49 6e 66 6f 20 3d 20 43 5f 47 65 74 53 lotInfo = C_GetS
35d90 6c 6f 74 49 6e 66 6f 3b 0a 09 70 46 75 6e 63 74 lotInfo;..pFunct
35da0 69 6f 6e 4c 69 73 74 2d 3e 43 5f 47 65 74 54 6f ionList->C_GetTo
35db0 6b 65 6e 49 6e 66 6f 20 3d 20 43 5f 47 65 74 54 kenInfo = C_GetT
35dc0 6f 6b 65 6e 49 6e 66 6f 3b 0a 09 70 46 75 6e 63 okenInfo;..pFunc
35dd0 74 69 6f 6e 4c 69 73 74 2d 3e 43 5f 57 61 69 74 tionList->C_Wait
35de0 46 6f 72 53 6c 6f 74 45 76 65 6e 74 20 3d 20 43 ForSlotEvent = C
35df0 5f 57 61 69 74 46 6f 72 53 6c 6f 74 45 76 65 6e _WaitForSlotEven
35e00 74 3b 0a 09 70 46 75 6e 63 74 69 6f 6e 4c 69 73 t;..pFunctionLis
35e10 74 2d 3e 43 5f 47 65 74 4d 65 63 68 61 6e 69 73 t->C_GetMechanis
35e20 6d 4c 69 73 74 20 3d 20 43 5f 47 65 74 4d 65 63 mList = C_GetMec
35e30 68 61 6e 69 73 6d 4c 69 73 74 3b 0a 09 70 46 75 hanismList;..pFu
35e40 6e 63 74 69 6f 6e 4c 69 73 74 2d 3e 43 5f 47 65 nctionList->C_Ge
35e50 74 4d 65 63 68 61 6e 69 73 6d 49 6e 66 6f 20 3d tMechanismInfo =
35e60 20 43 5f 47 65 74 4d 65 63 68 61 6e 69 73 6d 49 C_GetMechanismI
35e70 6e 66 6f 3b 0a 09 70 46 75 6e 63 74 69 6f 6e 4c nfo;..pFunctionL
35e80 69 73 74 2d 3e 43 5f 49 6e 69 74 54 6f 6b 65 6e ist->C_InitToken
35e90 20 3d 20 43 5f 49 6e 69 74 54 6f 6b 65 6e 3b 0a = C_InitToken;.
35ea0 09 70 46 75 6e 63 74 69 6f 6e 4c 69 73 74 2d 3e .pFunctionList->
35eb0 43 5f 49 6e 69 74 50 49 4e 20 3d 20 43 5f 49 6e C_InitPIN = C_In
35ec0 69 74 50 49 4e 3b 0a 09 70 46 75 6e 63 74 69 6f itPIN;..pFunctio
35ed0 6e 4c 69 73 74 2d 3e 43 5f 53 65 74 50 49 4e 20 nList->C_SetPIN
35ee0 3d 20 43 5f 53 65 74 50 49 4e 3b 0a 09 70 46 75 = C_SetPIN;..pFu
35ef0 6e 63 74 69 6f 6e 4c 69 73 74 2d 3e 43 5f 4f 70 nctionList->C_Op
35f00 65 6e 53 65 73 73 69 6f 6e 20 3d 20 43 5f 4f 70 enSession = C_Op
35f10 65 6e 53 65 73 73 69 6f 6e 3b 0a 09 70 46 75 6e enSession;..pFun
35f20 63 74 69 6f 6e 4c 69 73 74 2d 3e 43 5f 43 6c 6f ctionList->C_Clo
35f30 73 65 53 65 73 73 69 6f 6e 20 3d 20 43 5f 43 6c seSession = C_Cl
35f40 6f 73 65 53 65 73 73 69 6f 6e 3b 0a 09 70 46 75 oseSession;..pFu
35f50 6e 63 74 69 6f 6e 4c 69 73 74 2d 3e 43 5f 43 6c nctionList->C_Cl
35f60 6f 73 65 41 6c 6c 53 65 73 73 69 6f 6e 73 20 3d oseAllSessions =
35f70 20 43 5f 43 6c 6f 73 65 41 6c 6c 53 65 73 73 69 C_CloseAllSessi
35f80 6f 6e 73 3b 0a 09 70 46 75 6e 63 74 69 6f 6e 4c ons;..pFunctionL
35f90 69 73 74 2d 3e 43 5f 47 65 74 53 65 73 73 69 6f ist->C_GetSessio
35fa0 6e 49 6e 66 6f 20 3d 20 43 5f 47 65 74 53 65 73 nInfo = C_GetSes
35fb0 73 69 6f 6e 49 6e 66 6f 3b 0a 09 70 46 75 6e 63 sionInfo;..pFunc
35fc0 74 69 6f 6e 4c 69 73 74 2d 3e 43 5f 47 65 74 4f tionList->C_GetO
35fd0 70 65 72 61 74 69 6f 6e 53 74 61 74 65 20 3d 20 perationState =
35fe0 43 5f 47 65 74 4f 70 65 72 61 74 69 6f 6e 53 74 C_GetOperationSt
35ff0 61 74 65 3b 0a 09 70 46 75 6e 63 74 69 6f 6e 4c ate;..pFunctionL
36000 69 73 74 2d 3e 43 5f 53 65 74 4f 70 65 72 61 74 ist->C_SetOperat
36010 69 6f 6e 53 74 61 74 65 20 3d 20 43 5f 53 65 74 ionState = C_Set
36020 4f 70 65 72 61 74 69 6f 6e 53 74 61 74 65 3b 0a OperationState;.
36030 09 70 46 75 6e 63 74 69 6f 6e 4c 69 73 74 2d 3e .pFunctionList->
36040 43 5f 4c 6f 67 69 6e 20 3d 20 43 5f 4c 6f 67 69 C_Login = C_Logi
36050 6e 3b 0a 09 70 46 75 6e 63 74 69 6f 6e 4c 69 73 n;..pFunctionLis
36060 74 2d 3e 43 5f 4c 6f 67 6f 75 74 20 3d 20 43 5f t->C_Logout = C_
36070 4c 6f 67 6f 75 74 3b 0a 09 70 46 75 6e 63 74 69 Logout;..pFuncti
36080 6f 6e 4c 69 73 74 2d 3e 43 5f 43 72 65 61 74 65 onList->C_Create
36090 4f 62 6a 65 63 74 20 3d 20 43 5f 43 72 65 61 74 Object = C_Creat
360a0 65 4f 62 6a 65 63 74 3b 0a 09 70 46 75 6e 63 74 eObject;..pFunct
360b0 69 6f 6e 4c 69 73 74 2d 3e 43 5f 43 6f 70 79 4f ionList->C_CopyO
360c0 62 6a 65 63 74 20 3d 20 43 5f 43 6f 70 79 4f 62 bject = C_CopyOb
360d0 6a 65 63 74 3b 0a 09 70 46 75 6e 63 74 69 6f 6e ject;..pFunction
360e0 4c 69 73 74 2d 3e 43 5f 44 65 73 74 72 6f 79 4f List->C_DestroyO
360f0 62 6a 65 63 74 20 3d 20 43 5f 44 65 73 74 72 6f bject = C_Destro
36100 79 4f 62 6a 65 63 74 3b 0a 09 70 46 75 6e 63 74 yObject;..pFunct
36110 69 6f 6e 4c 69 73 74 2d 3e 43 5f 47 65 74 4f 62 ionList->C_GetOb
36120 6a 65 63 74 53 69 7a 65 20 3d 20 43 5f 47 65 74 jectSize = C_Get
36130 4f 62 6a 65 63 74 53 69 7a 65 3b 0a 09 70 46 75 ObjectSize;..pFu
36140 6e 63 74 69 6f 6e 4c 69 73 74 2d 3e 43 5f 47 65 n