mirror of
https://github.com/rn10950/RetroZilla.git
synced 2024-11-14 19:50:12 +01:00
163 lines
4.6 KiB
Plaintext
163 lines
4.6 KiB
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
|
||
|
|
Set i 1
|
||
|
|
run pLabel1
|
||
|
|
NewTemplate id CKA_CLASS,CKA_ID
|
||
|
|
C_GetAttributeValue session certID[i] id sizeA(id)
|
||
|
|
BuildTemplate id
|
||
|
|
C_GetAttributeValue session certID[i] id sizeA(id)
|
||
|
|
SetTemplate id 0 CKO_PRIVATE_KEY
|
||
|
|
NewArray keyID CK_ULONG 10
|
||
|
|
C_FindObjectsInit session id sizeA(id)
|
||
|
|
C_FindObjects session keyID sizeA(keyID) count
|
||
|
|
C_FindObjectsFinal session
|
||
|
|
|
||
|
|
NewMechanism rsaParams CKM_RSA_PKCS
|
||
|
|
NewArray sign data 256
|
||
|
|
NewArray sdata data 36
|
||
|
|
C_SignInit session rsaParams keyID[0]
|
||
|
|
print sdata
|
||
|
|
C_Sign session sdata sizeof(sdata) sign sizeof(sign)
|
||
|
|
save signature sign
|
||
|
|
save hash sdata
|
||
|
|
NewTemplate privValue CKA_MODULUS,CKA_PUBLIC_EXPONENT
|
||
|
|
C_GetAttributeValue session keyID[0] privValue sizeA(privValue)
|
||
|
|
BuildTemplate privValue
|
||
|
|
C_GetAttributeValue session keyID[0] privValue sizeA(privValue)
|
||
|
|
print privValue[0]
|
||
|
|
print privValue[1]
|
||
|
|
|
||
|
|
# save the public key
|
||
|
|
SetTemplate id 0 CKO_PUBLIC_KEY
|
||
|
|
NewArray pubkeyID CK_ULONG 10
|
||
|
|
C_FindObjectsInit session id sizeA(id)
|
||
|
|
C_FindObjects session pubkeyID sizeA(pubkeyID) count
|
||
|
|
C_FindObjectsFinal session
|
||
|
|
NewTemplate pubkeyValue CKA_MODULUS,CKA_PUBLIC_EXPONENT
|
||
|
|
C_GetAttributeValue session pubkeyID[0] pubkeyValue sizeA(pubkeyValue)
|
||
|
|
BuildTemplate pubkeyValue
|
||
|
|
C_GetAttributeValue session pubkeyID[0] pubkeyValue sizeA(pubkeyValue)
|
||
|
|
print pubkeyValue[0]
|
||
|
|
print pubkeyValue[1]
|
||
|
|
|
||
|
|
|
||
|
|
C_Finalize null
|
||
|
|
unload
|
||
|
|
|
||
|
|
#
|
||
|
|
# Now do the same for using softoken
|
||
|
|
#
|
||
|
|
load softokn3.dll
|
||
|
|
NewInitArg init CKF_OS_LOCKING_OK configdir=./db
|
||
|
|
C_Initialize init
|
||
|
|
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 slotList[1]
|
||
|
|
#set slotID slotList[0]
|
||
|
|
C_GetSlotInfo slotID slotInfo
|
||
|
|
C_GetTokenInfo slotID tokenInfo
|
||
|
|
C_OpenSession slotID CKF_SERIAL_SESSION session
|
||
|
|
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
|
||
|
|
Set i 0
|
||
|
|
run pLabel1
|
||
|
|
NewTemplate id CKA_CLASS,CKA_ID
|
||
|
|
C_GetAttributeValue session certID[i] id sizeA(id)
|
||
|
|
BuildTemplate id
|
||
|
|
C_GetAttributeValue session certID[i] id sizeA(id)
|
||
|
|
SetTemplate id 0 CKO_PRIVATE_KEY
|
||
|
|
NewArray keyID CK_ULONG 10
|
||
|
|
C_FindObjectsInit session id sizeA(id)
|
||
|
|
C_FindObjects session keyID sizeA(keyID) count
|
||
|
|
C_FindObjectsFinal session
|
||
|
|
|
||
|
|
NewMechanism rsaParams CKM_RSA_PKCS
|
||
|
|
NewArray sign data 256
|
||
|
|
NewArray sdata data 36
|
||
|
|
C_SignInit session rsaParams keyID[0]
|
||
|
|
C_Sign session sdata sizeof(sdata) sign sizeof(sign)
|
||
|
|
save signature2 sign
|
||
|
|
save hash2 sdata
|
||
|
|
|
||
|
|
SetTemplate id 0 CKO_PUBLIC_KEY
|
||
|
|
NewArray pubkeyID CK_ULONG 10
|
||
|
|
C_FindObjectsInit session id sizeA(id)
|
||
|
|
C_FindObjects session pubkeyID sizeA(pubkeyID) count
|
||
|
|
C_FindObjectsFinal session
|
||
|
|
|
||
|
|
#
|
||
|
|
# OK now we use raw unwrap and see what we have...
|
||
|
|
#
|
||
|
|
NewMechanism rawRsaParams CKM_RSA_X_509
|
||
|
|
NewArray vdata data 256
|
||
|
|
C_VerifyRecoverInit session rawRsaParams pubkeyID[0]
|
||
|
|
C_VerifyRecover session sign sizeof(sign) vdata sizeof(vdata)
|
||
|
|
save verify2 vdata
|
||
|
|
restore signature sign
|
||
|
|
C_VerifyRecoverInit session rawRsaParams pubkeyID[0]
|
||
|
|
C_VerifyRecover session sign sizeof(sign) vdata sizeof(vdata)
|
||
|
|
save verify vdata
|
||
|
|
|
||
|
|
NewTemplate pubkeyValue CKA_MODULUS,CKA_PUBLIC_EXPONENT
|
||
|
|
C_GetAttributeValue session pubkeyID[0] pubkeyValue sizeA(pubkeyValue)
|
||
|
|
BuildTemplate pubkeyValue
|
||
|
|
C_GetAttributeValue session pubkeyID[0] pubkeyValue sizeA(pubkeyValue)
|
||
|
|
print pubkeyValue[0]
|
||
|
|
print pubkeyValue[1]
|
||
|
|
|
||
|
|
|
||
|
|
C_Finalize null
|
||
|
|
|
||
|
|
unload
|