Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
PFXCa2PEM2PFXCert2PEMPFXCa2PEM2
PFXCert2PEM

Função:

PFXCa2PEM2

PFXCert2PEM

Extrai o certificado de 
autorização (Certificate Authorith)
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).

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

 

NomeTipoDescriçãoObrigatórioReferência
cPfxFilecPFXFileCaracterIndica o caminho do arquivo de certificado PFX no servidor, a partir da raiz do diretório (RootPath) do TOTVS Application Server.X 
cPEMFilecPemFileCaracterIndica 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 CAcliente.X 
cErrorCaracterIndica a saída da mensagem de erro, em caso de falha.XX
cPasswordCaracterIndica a senha para extrair os dados do arquivo PFX fornecido.  

 

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.
Os certificados informados precisam estar no servidor
  • 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 os CAs o certificado de cliente (-cacertsclcerts).

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 getCaPemgetCert()//Local
cKey := ""Local cerrorcPFX := "\certs\tests.pfx"
Local cPfxcCert := "\certs\certificado_cacert.pem"
Local cPemcError := "\certs\certificado_ca.pem"Local cPass := "senha"PFXCA2PEM2( cPfx , cPem, cError, cPass )"
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