TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 12 Próxima »

Verifica a assinatura digital utilizando o certificado/chave pública armazenada em dispositivo HSM.

Sintaxe

HSMPrivVery( < cKey >, < cContent >, < nTipo >, < @cErrStr >, < cAssinado >, [ lClient ] ) --> lRet

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cKey

caractere

Indica a string que contém o caminho para o certificado no HSM. O caminho tem o
o formato  slot_<N>-label_<NOME:ID Certificate>

X

 

cContent

caractere

Indica a string que será utilizada na verificação da assinatura digital.

X

 

nTipo

numérico

Indica o tipo de algoritmo que será utilizado para realizar a verificação da assinatura digital.

X

 

cErrStr

caractere

Indica a variável para retornar as mensagens de erro.

 

X

cAssinado

caractere

Indica uma string que contém o valor assinado.

X

 

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 a assinatura seja verificada com sucesso. Caso contrário retorna .F.

Observações

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

    Valor

    Algoritmo

    1

    MD5

    2

    RIPEMD160

    3

    SHA1

    4

    SHA224

    5

    SHA256

    6SHA384
    7SHA512

  • O valor 5 e 6 no parâmetro nTipo estão disponíveis em builds superiores a 121227P.

Exemplos

 

Exemplo 1
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

Veja também

Abrangência

Advanced Protheus 7.10, Microsiga Protheus 8.11, Protheus 10, TOTVS Application Server 10, ByYou Application Server

  • Sem rótulos