Useruser Functionfunction RSA_SignVerificaAssinaturaHSM()
Local sStrcMsg := ""
Local cPrivSign := ""
Local cKey := ""
Local cPwd := "01234567890123456789"
Local sOut := ""
sStr := Md5( sStr 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)
sStr )
varinfo("cPrivSign", cPrivSign)
// Verificacao da assinatura digital utilizando o certificado contido no HSM
sOutcKey := PrivSignRSA( "private.pem", sStr"slot_3-label_NOME:12345678901 Certificate"
cPrivVery := HSMPrivVery(cKey, cMsg, 1, "assinatura" @cError, cPrivSign)
varinfo("cError", cError)
varinfo( "sOutcPrivVery", sOut )cPrivVery)
if cPrivVery
conout( PrivVeryRSA( "public.pem", sStr, 1, sOut ) )
Return
"Assinatura verificada com sucesso!")
else
conout("Erro ao verificar assinatura!")
endif
return |