TOTVSTEC

Árvore de páginas

Extrai o certificado de autorização (Certificate Authorith) de um arquivo com extensão .PFX (formato padrão do IIS - Internet Information Services), e gera como saída um arquivo no formato .PEM (Privacy Enhanced Mail).

Sintaxe

PFXCA2PEM( < cPFXFile >, < cPEMFile >, < @cError >, [ cPassword ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cPFXFile

caractere

Indica o caminho do arquivo .PFX, a partir da raiz do diretório (RootPath) do TOTVS Application Server.

X

 

cPEMFile

caractere

Indica o caminho do arquivo .PEM, a partir da raiz do diretório (RootPath) do TOTVS Application Server, com as informações dos certificados de autorização.

X

 

cError

caractere

Indica a saída da mensagem de erro, em caso de falha.

X

X

cPassword

caractere

Indica a senha para exportar os dados do certificado.

 

 

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna .T. se conseguiu extrair os certificados de autorização do arquivo .PFX; caso contrário, .F..

Observações

  • O formato PEM é frequentemente usado para codificação de chaves e certificados em ASCII.
  • Caso seja informado nos parâmetros <cPFXFile> ou <cPEMFile> caminho de arquivos no client, a aplicação será terminada com uma ocorrência de erro fatal AdvPL "Only server path are allowed (PFXCA2PEM)".
  • Esta função tem o comportamento igual a ferramenta PKCS12, da OpenSSL, com a opção de extrair os CAs (-cacerts). Para mais informações sobre a ferramenta PKCS12, consulte a documentação disponível no site da OpenSSL - http://www.openssl.org/docs/apps/pkcs12.html.

Exemplos

Exemplo 1
user function getCA()
  Local cPFX := "\certs\tests.pfx"
  Local cCA := "\certs\ca.pem"
  Local cError := ""
  Local cContent := ""
  Local lRet
  lRet := PFXCA2PEM( cPFX, cCA, @cError, "123" )
  If( lRet == .F. )
    conout( "Error: " + cError )
  Else
    cContent := MemoRead( cCA )
    varinfo( "CA", cContent )
  Endif
Return

Abrangência

A partir de Microsiga Protheus 8.11

  • Sem rótulos