Verifica a assinatura digital utilizando o certificado/chave pública armazenada em dispositivo HSM.
HSMPrivVery( < cKey >, < cContent >, < nType >, [ @cErrStr ], < cAssinado >, [ lClient ] ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
cKey | character | Indica a string que contém o caminho para o certificado no HSM. | X | |
cContent | character | Indica a string que será utilizada na verificação da assinatura digital. | X | |
nType | numeric | Indica o tipo de algoritmo que será utilizado para realizar a verificação da assinatura digital. | X | |
cErrStr | character | Indica a variável para retornar as mensagens de erro. | X | |
cAssinado | character | Indica uma string que contém o valor assinado. | X | |
lClient | logical | Indica uma string que contém o valor assinado. |
Nome | Tipo | Descrição |
|---|---|---|
cRet | character | Retorna .T. caso a assinatura seja verificada com sucesso. Caso contrário retorna .F. |
Tipo de algoritmo válido para o parâmetro nType:
Valor | Algoritmo |
|---|---|
1 | MD5 |
2 | RIPEMD160 |
3 | SHA1 |
4 | SHA224 |
5 | SHA256 |
6 | SHA384 |
7 | SHA512 |
user function verify()
Local cMsg := ""
Local cPrivSign := ""
Local cPath := ""
Local cPwd := ""
Local cError := ""
Local lPrivVery := .F.
// Slot do HSM contendo a chave privada que será utilizada para assinatura digital
cPath := "slot_3-label_NOME:12345678901 Private Key"
// Senha para acesso da chave privada no HSM
cPwd := "MINHA SENHA"
// Inicializa o HSM
if HSMInitialize() <= 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( cPath, cMsg, 1, cPwd, @cError )
// exibe o conteúdo da variável de erro
varinfo( "1 - cError", cError )
//exibe o conteúdo da mensagem assinada
varinfo( "cPrivSign", cPrivSign )
// Verificacao da assinatura digital utilizando o certificado contido no HSM
// Define o caminho do certificado que será utilizado para validar a mensagem assinada
cPath := "slot_3-label_NOME:12345678901 Certificate"
// Verifica a mensagem a autenticidade entre a mensagem assinada e a mensagem original
lPrivVery := HSMPrivVery( cPath, cMsg, 1, @cError, cPrivSign )
// exibe o conteúdo da variável de erro
varinfo( "cError", cError )
if lPrivVery
conout( "Assinatura verificada com sucesso!" )
else
conout( "Erro ao verificar assinatura!" )
endif
if HSMFinalize() <> 1
conout( "HSM not finalized" )
endif
return
|