TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Carlos Alberto Fleming Testa

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.

Pagetitle
PK7Key2PEM
PK7Key2PEM

Converte uma chave privada Extrai o certificado de um arquivo PKCS#7 em formato DER (Distinguished Encoding Rules) para o formato PEM (Privacy Enhanced Mail).

...

Bloco de código
collapsefalse
PK7Key2PEM( < cPK7File >, < cPEMFile >, < @cError >, [ cPassword ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cPK7File

caractere

Indica o caminho do arquivo .PK7, 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 chave privada.

X

 


cError

caractere

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

X

X

cPassword

caractere

Indica a senha que será usada no arquivo .PEM.

 

 

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna .T. se conseguiu converter o arquivo .PK7; caso contrário, .F..

...

  • O formato PEM é frequentemente usado para codificação de chaves e certificados em ASCII.
  • Caso seja informado nos parâmetros cPK7File 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 (PK7Key2PEM)".
  • Esta função tem o comportamento igual similar a ferramenta PKCS7, da OpenSSL, com a opção de chave descriptografada imprimir certificados contidos no arquivo PKCS#7 (-nocryptprint_certs). Para mais informações sobre a ferramenta PKCS7, consulte a documentação disponível no site da OpenSSL -http://www.openssl.org/docs/apps/pkcs7.htmlImage Added

Exemplos

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
user function getPrivPK7()
  Local cPK7File := "\certs\testspk7.pk7"
  Local cPEMFile := "\certs\keypk7cert.pem"
  Local cError := ""
  Local cContent := ""
  Local lRet
  lRet := PK7Key2PEM( cPK7File, cPEMFile, @cError )
  If( lRet == .F. )
    conout( "Error: " + cError )
  Else
    cContent := MemoRead( cPEMFile )
    varinfo( "KeyCert", cContent )
  Endif
Return

...

P11 - Builds superiores de 121227P - 03 Out 2017 - 09:42:39 AM - Build Version: "13.1.3.21"
P12 - Builds superiores de 121227P - 02 Out 2017 - 11:27:03 NG - Build Version: "13.2.3.21"