Histórico da Página
...
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cKey | caractere | Indica o caminho, no dispositivo HSM, para a chave privada. | X | |
cPass | caractere | Indica a senha da chave, se existente. | ||
lClient | lógico | Indica se o dispositivo HSM está na máquina do SmartClient. |
...
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