Histórico da Página
...
- O formato aceito no caminho do parâmetro cKey é "slot_<num>-id_<idhex>" ou "slot_<nem><num>-label_<label>", onde <num> é o número do slot , (igual ao índice 1 do valor retornado pela função HSMSlotList), <idhex> é o id do objeto em hexadecimal (igual ao índice 4 do valor retornado pela função HSMObjList), sendo cada 2 caracteres a representação hexadecimal de um caractere da tabela ASCII, e <label> é igual ao índice 1 do valor retornado pela função HSMObjList.
- O parâmetro lClient está disponível a partir da build 7.00.131227A com data de geração superior a 11/03/2016.
- O valor padrão de lClient é .F..
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
user function teste()
Local aSlots := {}
Local aObjs := {}
Local nSlots := 0
Local nObjs := 0
Local nI := 0
Local nJ := 0
Local cPath := ""
Local cPass := ""
cPass := "1234"
if HSMInitialize() <= 0
conout( "HSM not initialized" )
return
endif
aSlots := HSMSlotList()
nSlots := Len( aSlots )
for nI := 1 to nSlots
if aSlots[nI][4] == .T.
ASize( aObjs, 0 )
aObjs := HSMObjList( aSlots[nI][1], cPass )
nObjs := Len( aObjs )
for nJ := 1 to nObjs
if aObjs[nJ][2] == .T.
cPath := "slot_" + cValToChar( aSlots[nI][1] ) + "-label_" + aObjs[nJ][1]
conout( "Exponent from " + cPath + ": " + HSMExponent( cPath, cPass ) )
endif
next nJ
endif
next nI
if HSMFinalize() <> 1
conout( "HSM not finalized" )
endif
return
|
Veja também
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas