Lista os objetos contidos em um slot.

Sintaxe

HSMObjList( < nSlot >, < cPass >, [ lClient ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

nSlot

numeric

Indica o número do slot de HSM.

X


cPass

character

Indica a senha de acesso ao HSM.

X


lClient

logical

Indica se o dispositivo HSM está na máquina do SmartClient.



Retorno

Nome

Tipo

Descrição

aRet

array

Retorna um vetor com as informações dos objetos de um slot.

Observações

Cada item de aRet representa um objeto do slot informado e contém um vetor com as seguintes informações:

Índice

Tipo

Descrição

1

C

Label do objeto

2

L

Indica se o objeto é uma chave privada (.T.) ou um certificado (.F.)

3

N

Tamanho do ID do objeto

4

C

ID do objeto, em caracteres ASCII, podendo conter caracteres especiais

Exemplos

user function teste()
  Local aSlots := {}
  Local aObjs := {}
  Local nI := 0
  Local cPass := ""
   
  if HSMInitialize() <= 0
    conout( "HSM not initialized" )
    return
  endif
   
  aSlots := HSMSlotList()
    
  cPass := "1234"
   
  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

Veja também