Lista os slots HSM disponíveis.
HSMSlotList( [ lClient ] )
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
lClient | logical | Indica se o dispositivo HSM está na máquina do SmartClient. |
Nome | Tipo | Descrição |
|---|---|---|
aRet | array | Retorna um vetor com as informações dos slots. |
Cada item de aRet representa um slot de HSM disponível e contém um vetor com as seguintes informações:
Índice | Tipo | Descrição |
|---|---|---|
1 | N | Número do slot |
2 | C | Label do slot |
3 | C | Descrição do slot |
4 | L | Indica se o slot está inicializado |
5 | L | Indica se o slot possui PIN |
6 | L | Indica se o slot necessita de login |
7 | L | Indica se o slot é somente leitura |
user function teste()
Local aSlots := {}
Local aObjs := {}
Local nI := 0
Local nSlots := 0
Local cPass := ""
cPass := "1234"
if HSMInitialize() <= 0
conout( "HSM not initialized" )
return
endif
aSlots := HSMSlotList()
nSlots := Len( aSlots )
varinfo( "slots", aSlots )
for nI := 1 to Len( aSlots )
if aSlots[nI][4] == .T.
ASize( aObjs, 0 )
aObjs := HSMObjList( aSlots[nI][1], cPass )
varinfo( "aObjs", aObjs )
endif
next nI
if HSMFinalize() <> 1
conout( "HSM not finalized" )
endif
return