Histórico da Página

user function getCert()
  #include "TOTVS.ch"
//+----------------------------------------------------------------------------+
//|Exemplifica o uso da função PFX2PEM                                         |
//+----------------------------------------------------------------------------+
User Function Exemplo()
	Local cPFX := "\certs\tests.pfx"
  	Local cCert := "\certs\cert.pem"
	Local cPass := "123"
	Local cError := ""
  	Local lRet
  	lRet := PFX2PEM( cPFX, cCert, @cError, "123"cPass )
	if  If( lRet == .F. )
    		conout( "Error: " + cError )
  Else
    	else
		cContent := MemoRead( cCert )
    		varinfo( "Cert", cContent )
  Endif
return	endif
Return 0