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 | 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
6 SHA384 7 SHA512
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