TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Angelo Schranko De Oliveira

Gravado em

comparado com

Nova versão 6

changes.mady.by.user Angelo Schranko De Oliveira

Gravado em

Chave

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

...

  • Essa função utiliza a chave privada para realizar a assinatura. Para isso, é necessário informar o caminho (path) da chave privada no parâmetro cKey, e, em seguida, o conteúdo cContent que se deseja assinar e finalmente um numérico que informa o tipo de algoritmo que será utilizado para realizar a assinatura nType.
  • O formato aceito no caminho do parâmetro cKey é "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.

  • Tipo de algoritmo válido para o parâmetro nTipo:

    Valor

    Algoritmo

    1

    MD5

    2

    RIPEMD160

    3

    SHA1

    4

    SHA224

    5

    SHA256

    6

    SHA384

    7

    SHA512

  • 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
titleExemplo 1
linenumberstrue
collapsefalse
user function VerificaAssinaturaHSM()
 
  Local cMsg := ""
  Local cPrivSign := ""
  Local cKey := ""
  Local cPwd := ""
  Local cError := ""

  // Slot do HSM contendo a chave privada que será utilizada para assinatura digital
  cKey := "slot_3-label_NOME:12345678901 Private Key"

  // Senha para acesso da chave privada no HSM
  cPwd := "MINHA SENHA"

  // Inicializacao do HSM
  xRet := HSMInitialize()

  if xRet <= 0
    conout("HSM nao inicializado")
    return
  endif

  // Assinatura digital utilizando o HSM
  cMsg := "Essa mensagem sera assinada digitalmente utilizando a chave privada contida no HSM"
  cPrivSign := HSMPrivSign(cKey, cMsg, 1, cPwd, @cError)
  varinfo("1 - cError", cError)
  varinfo("cPrivSign", cPrivSign)

  // Verificacao da assinatura digital utilizando o certificado contido no HSM
  cKey := "slot_3-label_NOME:12345678901 Certificate"
  cPrivVery := HSMPrivVery(cKey, cMsg, 1, @cError, cPrivSign)
  varinfo("cError", cError)
  varinfo("cPrivVery", cPrivVery)

  if cPrivVery
    conout("Assinatura verificada com sucesso!")
  else
    conout("Erro ao verificar assinatura!")
  endif
 
return

Abrangência

A partir da build 7.00.081215P.

...