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 | Referência |
---|---|---|---|---|
cKey | caractere | Indica a string que contém o caminho para o certificado no HSM. O caminho tem o | 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
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