PEMInfo

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

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