TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Carlos Sampa Junior

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Carlos Sampa Junior

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/6062824/tecnologia.css

Pagetitle
HSMExponent
HSMExponent

Retorna o expoente (exponent) de uma chave privada no formato big-endian de uma chave privada armazenada em um dispositivo HSM.

...

 

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.

 

 



Retorno

Nome

Tipo

Descrição

cRet

caractere

Retorna o expoente de uma chave no formato big-endian; retorna Nil caso ocorra um erro no processamento.

...

  • O formato aceito no caminho do parâmetro cKey é "slot_<num>-id_<idhex>" ou "slot_<nem><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..

...

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
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
return

Abrangência

...


  
  if HSMFinalize() <> 1
    conout( "HSM not finalized" )
  endif
return

Veja também