Histórico da Página

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

Função: PFXCert2PEM

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 ] ) --> lRet 

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
cPFXFile

Caracter

caractere

Indica o caminho do arquivo

de certificado

.PFX, a partir da raiz do diretório (RootPath) do TOTVS Application Server.	X
cPEMFile

Caracter

caractere

Indica 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
cError

Caracter

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

Caracter

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.
• 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,

• 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