Histórico da Página

import.css=/download/attachments/3279126062824/newLayouttecnologia.css

...

Extrai o certificado de cliente 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 ] )

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 de certificado de

...

cliente.	X
cError

...

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

...

caractere

Indica a senha para extrair os dados do arquivo PFX

...

.

Retorno

...

...

...

...

...

Observações

• O formato PEM é frequentemente usado para codificação de chaves e certificados em ASCII.

Os certificados informados precisam estar no servidor.

Importante

• 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)".
• Esta função tem o comportamento igual a ferramenta PKCS12,

...

• da 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 da 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( "Cert", cContent )
  Endif
return

Abrangência

Protheus 10, TOTVS Application Server 10