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).
PFXCert2PEM ( < cPFXFile >, < cPEMFile >, < @cError >, [ cPassword ] ) --> lRet
| Nome | Tipo | Descrição | Obrigatório | Referência |
| cPFXFile | Caracter | Indica o caminho do arquivo de certificado PFX, a partir da raiz do diretório (RootPath) do TOTVS Application Server. | X | |
| cPEMFile | Caracter | 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 | Indica a saída da mensagem de erro, em caso de falha. | X | X |
| cPassword | Caracter | Indica a senha para extrair os dados do arquivo PFX. |
lRet
- (logico)
- Retorna verdadeiro (.T.), quando o PEM é gerado com sucesso; caso contrário, falso (.F.).
- 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
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( "CA", cContent )
Endif
return
Protheus 10 , TOTVS Application Server 10
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas