User Function RSA_Very()
Local sStr := "01234567890123456789"
Local cMD5 := ''
Local sSign := ""
// Conteudo a ser assinado
varinfo( "sStr", sStr )
// Hash MD5 gerado a partir desse conteudo
cMD5 := Md5( sStr )
varinfo( "cMD5", cMD5 )
// Assinatura gerada a partir do Hash MD5 usando a chave privada
sSign := PrivSignRSA( "private.pem", cMD5, 1, "senhachaveprivada" )
varinfo( "sSign", sSign )
// Verificando a assinatura usando a chave pública
If PrivVeryRSA( "public.pem", cMD5, 1, sSign )
conout('Signature Check OK')
Else
conout('Signature Check FAILED')
Endif
Return |