Extrai as informações referentes a um arquivo de certificados no formato .PEM (Privacy Enhanced Mail).
Sintaxe
PEMInfo( < cFile >, [ cPassword ] ) --> aRet |
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
cFile | caractere | Indica o caminho do arquivo .PEM, a partir da raiz do diretório (RootPath) do TOTVS Application Server. | X |
|
cPassword | caractere | Indica a senha para extrair os dados do arquivo PEM. |
|
|
Retorno
Nome | Tipo | Descrição |
|---|---|---|
aRet | vetor | Retorna um vetor com as informações referente aos certificados existentes no arquivo PEM. |
Observações
- Cada item do vetor representa um certificado contido dentro do arquivo PEM.
Dados retornados para cada certificado:
Índice
Dado
1
Versão do Certificado
2
Destinatário
3
Emissor
4
Data de Validade Inicial
5
Data de Validade Final
- Caso seja informado um caminho de arquivo no client será gerada uma exceção com a mensagem: "Only server path are allowed (PEMInfo)".
- Caso o arquivo PEM contenha uma chave, a função retornará um vetor sem elementos.
- Em caso de erro, a função retornará Nil.
Exemplos
user function getPEMInfo()
Local cFile := "\certs\tests.pem"
Local aRet := {}
aRet := PEMInfo( cFile )
varinfo( "PEM", aRet )
Return
|
Abrangência
Microsiga Protheus 8.11