TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Carlos Sampa Junior

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Carlos Sampa Junior

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
PFXCert2PEM
PFXCert2PEM

Função: PFXCert2PEM

Extrai o certificado de client 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

PFXCert2PEM ( < cPFXFile >, < cPEMFile >, < @cError >, [ cPassword ] ) --> lRet

Parâmetros/Elementos

 

NomeTipoDescriçãoObrigatórioReferência
cPFXFileCaracterIndica o caminho do arquivo de certificado PFX, a partir da raiz do diretório (RootPath) do TOTVS Application Server.X 
cPEMFileCaracterIndica o caminho do arquivo de saída PEM, a partir da raiz do diretório (RootPath) do TOTVS Application Server, com as informações de certificado de cliente.X 
cErrorCaracterIndica a saída da mensagem de erro, em caso de falha.XX
cPasswordCaracterIndica a senha para extrair os dados do arquivo PFX.  

 

Retorno
lRet
    (logico)
  • Retorna verdadeiro (.T.), quando o PEM é gerado com sucesso; caso contrário, falso (.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 (PFXCert2PEM)".

 

Importante

Esta função tem o comportamento igual a ferramenta PKCS12, do OpenSSL, com a opção de extrair o certificado de cliente (-clcerts).

Para mais informações sobre a ferramenta PKCS12, consulte a documentação disponível no site OpenSSL - http://www.openssl.org/docs/apps/pkcs12.html

Exemplos
user function getCert()
  Local cPFX := "\certs\tests.pfx"
  Local cCert := "\certs\cert.pem"
  Local cError := ""
  Local lRet
  lRet := PFXCert2PEM( cPFX , cCert, @cError, "123" )
  If( lRet == .F. )
    conout( "Error: " + cError )
  Else
    cContent := MemoRead( cCert )
    varinfo( "CACert", cContent )
  Endif
return 
Abrangência
Protheus 10 , TOTVS Application Server 10