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 > ) --> lRet
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, do OpenSSL. Para mais informações sobre a ferramenta PKCS8, consulte a documentação disponível no site 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
Import HTML Content
Conteúdo das Ferramentas
Tarefas