Converte uma chave privada no formato DER (Distinguished Encoding Rules) para o formato PEM (Privacy Enhanced Mail) criptografando com o algoritmo RSA.
Sintaxe
WriteRSAPK( < cDERFile >, < cRSAFile >, < @cError > )
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
cDERFile | caractere | Indica o caminho do arquivo origem (formato DER), a partir da raiz do diretório (RootPath) do TOTVS Application Server. | X |
|
cRSAFile | caractere | Indica o caminho do arquivo destino (formato PEM), a partir da raiz do diretório (RootPath) do TOTVS Application Server, com as informações de chave privada. | X |
|
cError | caractere | Indica a saída da mensagem de erro, em caso de falha. | X | X |
Retorno
Nome | Tipo | Descrição |
|---|---|---|
lRet | lógico | Retorna .T. se conseguiu converter o arquivo; caso contrário, .F.. |
Observações
- O formato PEM é frequentemente usado para codificação de chaves e certificados em ASCII.
- Caso seja informado nos parâmetros cDERFile ou cRSAFile caminho de arquivos no client, a aplicação será terminada com uma ocorrência de erro fatal AdvPL "Only server path are allowed (WriteRSAPK)".
- Esta função tem o comportamento igual a ferramenta RSA, da OpenSSL. Para mais informações sobre a ferramenta RSA, consulte a documentação disponível no site da OpenSSL - http://www.openssl.org/docs/apps/rsa.html
Exemplos
Exemplo 1
user function getPrivKey()
Local cPK8 := "\certs\key.pk8"
Local cKey := "\certs\rsakey.pem"
Local cError := ""
Local cContent := ""
Local lRet
lRet := WriteRSAPK( cPK8, cKey, @cError )
If( lRet == .F. )
conout( "Error: " + cError )
Else
cContent := MemoRead( cKey )
varinfo( "Key", cContent )
Endif
Return
Abrangência
Builds superiores a 121227P
Visão Geral
Conteúdo das Ferramentas