mirror of
https://github.com/rn10950/RetroZilla.git
synced 2024-11-10 01:40:17 +01:00
36 lines
1018 B
Plaintext
36 lines
1018 B
Plaintext
|
Load nsscapi.dll
|
||
|
|
C_Initialize NULL
|
||
|
|
C_GetSlotList false NULL slotCount
|
||
|
|
NewArray slotList CK_ULONG slotCount
|
||
|
|
C_GetSlotList false slotList slotCount
|
||
|
|
#change the following to the appropriate slot id
|
||
|
|
set slotID 1
|
||
|
|
#set slotID slotList[0]
|
||
|
|
C_GetSlotInfo slotID slotInfo
|
||
|
|
C_GetTokenInfo slotID tokenInfo
|
||
|
|
C_OpenSession slotID CKF_SERIAL_SESSION session
|
||
|
|
#
|
||
|
|
#uncomment the following line and include the correct password
|
||
|
|
#C_Login session CKU_USER 0000 4
|
||
|
|
#
|
||
|
|
# build the search template
|
||
|
|
#
|
||
|
|
NewTemplate search CKA_CLASS
|
||
|
|
SetTemplate search 0 CKO_CERTIFICATE
|
||
|
|
NewArray certID CK_ULONG 10
|
||
|
|
C_FindObjectsInit session search 1
|
||
|
|
C_FindObjects session certID sizeA(certID) count
|
||
|
|
C_FindObjectsFinal session
|
||
|
|
#
|
||
|
|
# now read the cert out
|
||
|
|
#
|
||
|
|
#NewTemplate derCert CKA_VALUE
|
||
|
|
#NewTemplate certName CKA_LABEL,CKA_VALUE
|
||
|
|
#C_GetAttributeValue session certID[0] certName sizeA(certName)
|
||
|
|
#BuildTemplate certName
|
||
|
|
#C_GetAttributeValue session certID[0] certName sizeA(certName)
|
||
|
|
#print certName[0]
|
||
|
|
Set countm1 count
|
||
|
|
Decrement countm1 1
|
||
|
|
LoopRun pLabel1 i 0 countm1 1
|