Função: PEMInfo
Extrai as informações referentes a um arquivo de certificados no formato .PEM (Privacy Enhanced Mail).
PEMInfo ( < cFile >, [ cPassword ] ) --> aRet
| Nome | Tipo | Descrição | Obrigatório | Referência |
| cFile | Caracter | Indica o caminho do arquivo .PEM, a partir da raiz do diretório (RootPath) do TOTVS Application Server. | X | |
| cPassword | Caracter | Indica a senha para extrair os dados do arquivo PEM. |
aRet
- (vetor)
- Retorna um vetor com as seguinte informações referente aos certificados existentes no arquivo PEM: versão do certificado, destinatário, emissor, data de validade inicial, data de validade final. Em caso de erro, retorna Nil.
- 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.
user function getPEMInfo()
Local cFile := "\certs\tests.pem"
Local aRet := {}
aRet := PEMInfo( cFile )
varinfo( "PEM", aRet )
Return
Microsiga Protheus 8.11