TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Adriana Panseri Santos

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Carlos Sampa Junior

Gravado em

Chave

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

Pagetitle
PFXCa2PEMPFXCA2PEMPFXCa2PEM
PFXCA2PEM

Função:

PFXCa2PEM

PFXCA2PEM

Extrai

o

certificado

de

autorização

(Certificate

Authorith)

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

PFXCa2PEM PFXCA2PEM ( < cFilePFX>, < cPassword> < cPFXFile >, < cPEMFile >, < @cError >, [ cPassword ] ) --> cErrorlRet

Parâmetros/Elementos

 

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

 

Retorno
lRet
    cError(caracterlógico)
  • Retorna uma string vazia, se obteve sucessoRetorna .T. se conseguiu extrair os certificados de autorização do arquivo .PFX; caso contrário, uma mensagem de erro.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 (PFXCA2PEM)".

 

Exemplos
user function getPrivKeygetCA()
  Local cPFX := "\certs\tests.pfx"
  Local cCA := "\certs\ca.pem"
  Local cerrorcError := ""
  Local cPfxcContent := "\certs\tests.pfx"cerror"
  Local lRet
  lRet := PFXCa2PEMPFXCA2PEM( cPfxcPFX, cCA, cError, "123" )If(Len(cError) > 0)conout(
  If( lRet == .F. )
    conout( "Error: " + cError)ElsecCA )
  Else
    cContent := memoread("\certs\tests.pfx_ca.pem")varinfo("Key", cCA )EndifReturnMemoRead( cCA )
    varinfo( "CA", cContent )
  Endif
Return
Abrangência
Microsiga Protheus 8.11