HSMPrivVery

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

Sintaxe

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

Parâmetros

Nome	Tipo	Descrição	Obrigatório
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

Retorno

Nome	Tipo	Descrição
cRet	numérico	Retorna o valor do parâmetro cContent, assinado, de acordo com o tipo nTipo e a chave privada informada cPathKey.

Observações

Tipo de algoritmo válido para o parâmetro nTipo:
Valor
Algoritmo
1
MD5
2
SHA1
3
RIPEMD160
4
MD5_SHA1
5
SHA256WithRSA
6 SHA256

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

Valor	Algoritmo
1	MD5
2	SHA1
3	RIPEMD160
4	MD5_SHA1
5	SHA256WithRSA
6	SHA256

Árvore de páginas