import.css=/download/attachments/6062824/tecnologia.css |
Converte uma chave privada no formato DER (Distinguished Encoding Rules) para o formato PEM (Privacy Enhanced Mail) criptografando com o algoritmo RSA.
WriteRSAPK( < cDERFile >, < cRSAFile >, < @cError > ) |
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 |
Nome | Tipo | Descrição |
---|---|---|
lRet | lógico | Retorna .T. se conseguiu converter o arquivo; caso contrário, .F.. |
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 |
Builds superiores a 121227P