TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Carlos Sampa Junior

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Carlos Sampa Junior

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Nome

Tipo

Descrição

Obrigatório

Referência

cHSMPath

caractere

Indica o caminho no dispositivo HSM para o certificado.

X

 

cFile

caractere

Indica o caminho de destino do certificado, incluindo o nome do arquivo.

X

 

cPass

caractere

Indica a senha do slot onde está armazenado o certificado apontado por cHSMPath.

 

 

lClient

lógico

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

 

 

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna .T. caso consiga extrair o certificado do HSM; caso contrário, retorna .F..

Observações

  • O formato aceito no caminho do parâmetro cHSMPath é "slot_<num>-id_<idhex>" ou "slot_<nem>-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, 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.
  • Caso o HSM esteja no AppServer, o caminho apontado por cFile deve ser no AppServer; caso esteja no SmartClient, o caminho deve ser no SmartClient.
  • 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..

Exemplos

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
user function teste()
  Local aSlots := {}
  Local aObjs := {}
  Local nI := 0
  Local nJ := 0
  Local nSlots := 0
  Local nObjs := 0
  Local cPath := ""
  Local cDest := ""
  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] == .F.
          cPath := "slot_" + cValToChar( aSlots[nI][1] ) + "-label_" + aObjs[nJ][1]
          cDest := "\cert-slot_" + cValToChar( aSlots[nI][1] ) + "-obj_" + cValToChar( nJ ) + ".pem"
          
          if HSMGetCert( cPath, cDest, cPass ) == .F.
            conout( "Could not get certicate on " + cPath )
          endif
        endif
      next nJ
    endif
  next nI
return

Veja também