| Composition Setup |
|---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
| Pagetitle | ||||
|---|---|---|---|---|
|
Extrai
...
a
...
chave
...
privada
...
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).
| Bloco de código | ||
|---|---|---|
| ||
PFXKey2PEM( < cFilePFX>, < cPassword> ) --> cError Parâmetros/Elementos < cPFXFile >, < cPEMFile >, < @cError >, [ cPassword ] )
|
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|
...
cPFXFile |
...
caractere | Indica o caminho do arquivo .PFX, 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 para |
...
extrair os dados do |
...
arquivo PFX. |
...
|
|
...
Nome | Tipo | Descrição |
|---|---|---|
lRet | lógico | Retorna .T. se conseguiu extrair a chave privada do arquivo .PFX; caso contrário, |
...
.F.. |
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
user function getPrivKey() Local cPFX := "\certs\tests.pfx" Local cKey := "\certs\key.pem" Localcerror cError := "" LocalcPfx cContent := "\certs\tests.pfx"cerror " Local lRet lRet := PFXKey2PEM(cPfx cPFX, cKey, @cError, "123" )If(Len(cError) > 0)conout( If( lRet == .F. ) conout( "Error: " + cError)ElsecKey ) Else cContent :=memoread("\certs\tests.pfx_key.pem")varinfo( MemoRead( cKey ) varinfo( "Key",cKey)EndifReturn cContent )
Endif
Return
|
Microsiga Protheus 8.11