Exibir origem

Inicializa o dispositivo HSM.

Sintaxe

HSMInitialize( [ cModule ], [ lClient ] )

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
cModule	caractere	Indica o caminho do módulo do dispositivo HSM que será inicializado.
lClient	lógico	Indica se o dispositivo HSM está na máquina do SmartClient.

Retorno

Nome	Tipo	Descrição
nRet	numérico	Retorna 1 caso consiga inicializar o dispositivo HSM; caso contrário, retorna 0.

Observações

O parâmetro cModule irá substituir em memória a configuração equivalente à chave Module da seção SSLConfigure do arquivo ini do AppServer. Para inicialização no AppServer, irá substituir o valor da própria chave.
Essa função não liga o parâmetro HSM da seção SSLConfigure do arquivo ini do AppServer, ou configuração equivalente no SmartClient (caso lClient seja .T.). Para ligar o parâmetro, utilize a função HTTPSSLClient.
Para que a inicialização tenha sucesso é necessário configurar os parâmetros HSM e Module da seção SSLConfigure.
Os parâmetros CertificateClient e KeyClient da seção SSLConfigure podem ser configurados no formato "slot_<num>-id_<idhex>" ou "slot_<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..
Para que a função tenha o comportamento correto, é necessário que seja feita a finalização do HSM (através da função HSMFinalize) antes de uma nova inicialização.

Exemplos

user function teste()
  Local aSlots := {}
  Local aObjs := {}
  Local nI := 0
  Local nJ := 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

Sintaxe

Parâmetros

Retorno

Observações

Exemplos

Veja também