Á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 Atual »

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

  • Sem rótulos