lcert (1018B)
1 Load nsscapi.dll 2 C_Initialize NULL 3 C_GetSlotList false NULL slotCount 4 NewArray slotList CK_ULONG slotCount 5 C_GetSlotList false slotList slotCount 6 #change the following to the appropriate slot id 7 set slotID 1 8 #set slotID slotList[0] 9 C_GetSlotInfo slotID slotInfo 10 C_GetTokenInfo slotID tokenInfo 11 C_OpenSession slotID CKF_SERIAL_SESSION session 12 # 13 #uncomment the following line and include the correct password 14 #C_Login session CKU_USER 0000 4 15 # 16 # build the search template 17 # 18 NewTemplate search CKA_CLASS 19 SetTemplate search 0 CKO_CERTIFICATE 20 NewArray certID CK_ULONG 10 21 C_FindObjectsInit session search 1 22 C_FindObjects session certID sizeA(certID) count 23 C_FindObjectsFinal session 24 # 25 # now read the cert out 26 # 27 #NewTemplate derCert CKA_VALUE 28 #NewTemplate certName CKA_LABEL,CKA_VALUE 29 #C_GetAttributeValue session certID[0] certName sizeA(certName) 30 #BuildTemplate certName 31 #C_GetAttributeValue session certID[0] certName sizeA(certName) 32 #print certName[0] 33 Set countm1 count 34 Decrement countm1 1 35 LoopRun pLabel1 i 0 countm1 1