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 |