Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

Função: PrivVeryRSA

Verifica um determinado conteúdo assinado, usando a chave pública.

PrivVeryRSA ( < cPathKey>, < cContent>, < nTipo>, < cAssinado>, [ cErrStr], [ nPad] ) --> lRet

NomeTipoDescriçãoObrigatórioReferência
cPathKeyCaracterIndica o caminho (path) da chave pública que deve ser no formato do arquivo .PEM. X
cContentCaracterIndica o valor que será verificado, com um conteúdo já assinado. X
nTipoNuméricoIndica um numérico que informa o tipo de algoritmo que será utilizado para verificar a assinatura. Para mais informações do tipos válidos, consulte a área Observações. X
cAssinadoCaracterIndica uma string que contém o valor assinado. X
cErrStrCaracterIndica a varíavel para retornar as mensagens de erro.
nPadNuméricoIndica o tipo de schema de criptografia que será utilizado. Para mais informações do tipos válidos, consulte a área Observações.
    lRet(caracter)
  • Retorna verdadeiro (.T.), se o valor informado, no parâmetro <cContent>, está de acordo com o valor enviado que foi assinado, pelo tipo <nTipo> e a chave informada <cPathKey>; Caso contrário, falso (.F.).

Essa função utiliza uma chave pública para verificar a assinatura. Para isso, é necessário informar o caminho (path) da chave pública, no parâmetro <cPathKey>, e, em seguida, o conteúdo <cContent>, um numérico <nTipo> que informa o tipo de algoritmo que será utilizado para realizar a assinatura e finalmente é passado o valor assinado.

 

Tipo de algoritmo válido para o parâmetro

Valor Algoritmo
MD5 
SHA1 
RIPEMD160 
MD5_SHA1 

 

 

Tipo de schema de criptografia válido para o parâmetro

Valor Schema

PKCS1

SSL
NO

PKCS1_OAEP

5

X931

Valor Schema

PKCS1

SSL
NO

PKCS1_OAEP

5

X931

 

Observação
Caso não seja passado nenhum schema de criptografia, a rotina assume como padrão o schema 1-PKCS1.

User Function RSA_Sign() Local sStr := '01234567890123456789' Local sOut := ''  sStr := Md5( sStr )  varinfo( '1',  sStr )  sOut := PrivSignRSA( 'private.pem', sStr, 1, 'assinatura' )                    varinfo( 'sOut',  sOut ) conout( PrivVeryRSA( 'public.pem', sStr, 1, sOut ) )Return
Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10

  • Sem rótulos