Exibir origem

import.css=/download/attachments/6062824/tecnologia.css

Extrai as informações referentes a um arquivo de certificados no formato .PEM (Privacy Enhanced Mail).

Sintaxe

PEMInfo( < cFile >, [ cPassword ] )

Nome	Tipo	Descrição	Obrigatório	Referência
cFile	caractere	Indica o caminho do arquivo .PEM, a partir do diretório raiz (RootPath) do TOTVS Application Server.	X
cPassword	caractere	Indica a senha para extrair os dados do arquivo PEM.

Nome	Tipo	Descrição
aRet	vetor	Retorna um vetor com as informações referente aos certificados existentes no arquivo PEM.

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
6 Número serial
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.

user function getPEMInfo()
  Local cFile := "\certs\tests.pem"
  Local aRet := {}
  
  aRet := PEMInfo( cFile )
  varinfo( "PEM", aRet )
Return

Microsiga Protheus 8.11