Exibir origem

Realiza a descriptografia de uma string criptografada utilizando o algoritmo RSA.

Sintaxe

DecryptRSA( < cKeyFile >, < cInfo > )

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
cKeyFile	character	Indica o nome do arquivo que contém a chave privada que será usada para descriptografar o dado.	X
cInfo	character	Indica a string criptografada que será descriptografada.	X

Retorno

Nome	Tipo	Descrição
cRet	character	Retorna a string <cInfo> descriptografada com o algoritmo RSA, utilizando a chave privada apontada por <cKeyFile>.

Observações

O arquivo apontado por <cKeyFile> deve estar localizado no path relativo do Application Server e ter o formato ".pem". Caso não esteja no Application Server, o retorno será Nil.
Caso a string encriptada tenha sido codificada em base64, através do terceiro parâmetro da função EncryptRSA, é necessário realizar a decodificação antes de submeter a string encriptada para a função DecryptRSA. Para realizar a decodificação utilize a função Decode64.

Exemplos

user function exemplo()
    Local cPubKey         := '\rsa\publickey.pem'
    Local cPrivKey        := '\rsa\privkey.pem'
    Local cInfo           := 'PASSWORD'
    Local cRetEncrypted   := ''
    Local cRetDecrypted   := ''

    conout( "Criptografando com RSA a string " + cInfo )

    cRetEncrypted := EncryptRSA( cPubKey, cInfo )
    if !empty( cRetEncrypted )
        conout( "Dado criptografada com sucesso" )
        conout( cRetEncrypted )
    else
        conout( "Erro na chamada a EncryptRSA" )
    endif

    cRetDecrypted := DecryptRSA(cPrivKey, cRetEncrypted)
    if !empty( cRetDecrypted )
        conout( "Dado descriptografada com sucesso" )
        conout( cRetDecrypted )
    else
        conout( "Erro na chamada a DecryptRSA" )
    endif
return

Abrangência

Application Server 20.3.2.3