Windev21 Aulas,Estudos e Desenvolvimento: 06/20/16

Video Youtube

Nessa aula vou ensinar como chamar um certificado por arquivo pfx

This class will teach how to call a certificate for pfx file

Cette classe vous apprendra comment appeler un certificat pour le fichier .pfx

doc.windev.com/en-US/?1000020851&name=CertificateLoad
doc.pcsoft.fr/fr-FR/?1000020851&name=certificatcharge_fonction

//Em Ingles
//Selecionar o Certificado //Select the certificate //Spelectionnez le certificat
//Pegados Dados Do Certificado //taking certificate dice //Prenant certificat dice

_certificado is Certificate // certificate // certificat //
IF EDT_certificado_digitado="" THEN
    //Vai procurar certificado no Windows
    //Will seek certificate in Windows
    //Cherchera certificat dans Windows
    _certificado = CertificateSelect()
ELSE
    //Vai buscar o arqivo certificado pfx
    //Go get the certificate file pfx
    //Allez chercher le fichier de certificat .pfx
    arr_certificado is array of Certificates
    arr_certificado = CertificateLoad(EDT_certificado_digitado,EDT_SenhaCertificado)
    _certificado=arr_certificado[1]
END

s_retorno_certificado is string="" // s_retorno certificate // certificat s_retorn

verifica_certificado() // check certificate // chèque certificat
IF s_retorno_certificado="Certificado Valido" THEN
    dados_certificado()    // certificate data //données de certificat
END

    INTERNAL PROCEDURE verifica_certificado()
    IF _certificado..Name="" THEN
        s_retorno_certificado="Erro"
        Info(s_retorno_certificado)
        RETURN
    END
    IF _certificado..ValidForSignature=False THEN
        s_retorno_certificado="O Certificado selecionado não pode ser utilizado para gerar uma assinatura"
        Info(s_retorno_certificado)
        RETURN
    END
    SWITCH _certificado..Reliability
        CASE certificateOk:
            s_retorno_certificado="Certificado Valido"
        CASE certificateInvalid:
            s_retorno_certificado="Certificado invalidido"
        CASE certificateUntrusted:
            s_retorno_certificado="Certificado Nao Confiavel"
        CASE certificateExpired:
            s_retorno_certificado="Expirado Certificado"
    END
     Info(s_retorno_certificado)

    END

    INTERNAL PROCEDURE dados_certificado()
    EDT_DadosDoCertificado="" // Limpando edt do certificado // cleaning edt certificate // certificat edt nettoyage
    EDT_DadosDoCertificado+="=====NOVOS WINDEV 21 ===============" //Novos Windev 21//new windev 21//
    EDT_DadosDoCertificado+=CR+"Nome Completo Emissor [ "+_certificado.FullIssuer+" ] "
    EDT_DadosDoCertificado+=CR+"Numero Associado ["+_certificado.Empreinte+" ]" // Em Frances // Em Ingles (Fingerprint)
    EDT_DadosDoCertificado+=CR+"-Objeto   [ "+_certificado.objet+" ]" // Em Frances // Em Ingles ( object )
    EDT_DadosDoCertificado+=CR+"===== Já tinha Windev 20 ==============="
    EDT_DadosDoCertificado+=CR+"Nome Resumido [ "+_certificado.Name+" ]"
    EDT_DadosDoCertificado+=CR+"Inicio Validade [ "+_certificado.StartValidityDate+" ]"
    EDT_DadosDoCertificado+=CR+"Final Validade [ "+_certificado.EndValidityDate+" ]"
    EDT_DadosDoCertificado+=CR+"Issuer- Emissora [ "+_certificado.Issuer+" ]"
    EDT_DadosDoCertificado+=CR+"Reliability-Confianca [ "+_certificado.Reliability+" ]"
    EDT_DadosDoCertificado+=CR+"Serial Numero [ "+_certificado.SerialNumber+" ]"
    EDT_DadosDoCertificado+=CR+"Certificado Valido [ "+_certificado.ValidForSignature+" ]"
    EDT_DadosDoCertificado+=CR+"Subject   [ "+_certificado.Subject+" ]"
    EDT_DadosDoCertificado+=CR+"Thumprint - Impressão Digital [ "+_certificado.ThumbPrint+" ]"
    EDT_DadosDoCertificado+=CR+"======================================"

    END

//Blog com Video e Exemplo
//youtube

//Em Frances

//Selecionar o Certificado //Select the certificate //Spelectionnez le certificat
//Pegados Dados Do Certificado //taking certificate dice //Prenant certificat dice

_certificado est un Certificat // certificate // certificat //
SI EDT_certificado_digitado="" ALORS
    //Vai procurar certificado no Windows
    //Will seek certificate in Windows
    //Cherchera certificat dans Windows
    _certificado = CertificatSélecteur()
SINON
    //Vai buscar o arqivo certificado pfx
    //Go get the certificate file pfx
    //Allez chercher le fichier de certificat .pfx
    arr_certificado est tableau de Certificat
    arr_certificado = CertificatCharge(EDT_certificado_digitado,EDT_SenhaCertificado)
    _certificado=arr_certificado[1]
FIN

s_retorno_certificado est chaîne="" // s_retorno certificate // certificat s_retorn

verifica_certificado() // check certificate // chèque certificat
SI s_retorno_certificado="Certificado Valido" ALORS
    dados_certificado()    // certificate data //données de certificat
FIN

    PROCEDURE INTERNE verifica_certificado()
    SI _certificado..Nom="" ALORS
        s_retorno_certificado="Erro"
        Info(s_retorno_certificado)
        RETOUR
    FIN
    SI _certificado..ValidePourSignature=Faux ALORS
        s_retorno_certificado="O Certificado selecionado não pode ser utilizado para gerar uma assinatura"
        Info(s_retorno_certificado)
        RETOUR
    FIN
    SELON _certificado..Fiabilité
        CAS certificatOk:
            s_retorno_certificado="Certificado Valido"
        CAS certificatInvalide:
            s_retorno_certificado="Certificado invalidido"
        CAS certificatNonFiable:
            s_retorno_certificado="Certificado Nao Confiavel"
        CAS certificatExpiré:
            s_retorno_certificado="Expirado Certificado"
    FIN
     Info(s_retorno_certificado)

    FIN

    PROCEDURE INTERNE dados_certificado()
    EDT_DadosDoCertificado="" // Limpando edt do certificado // cleaning edt certificate // certificat edt nettoyage
    EDT_DadosDoCertificado+="=====NOVOS WINDEV 21 ===============" //Novos Windev 21//new windev 21//
    EDT_DadosDoCertificado+=RC+"Nome Completo Emissor [ "+_certificado.EmetteurComplet+" ] "
    EDT_DadosDoCertificado+=RC+"Numero Associado ["+_certificado.Empreinte+" ]" // Em Frances // Em Ingles (Fingerprint)
    EDT_DadosDoCertificado+=RC+"-Objeto   [ "+_certificado.objet+" ]" // Em Frances // Em Ingles ( object )
    EDT_DadosDoCertificado+=RC+"===== Já tinha Windev 20 ==============="
    EDT_DadosDoCertificado+=RC+"Nome Resumido [ "+_certificado.Nom+" ]"
    EDT_DadosDoCertificado+=RC+"Inicio Validade [ "+_certificado.DateValiditéDébut+" ]"
    EDT_DadosDoCertificado+=RC+"Final Validade [ "+_certificado.DateValiditéFin+" ]"
    EDT_DadosDoCertificado+=RC+"Issuer- Emissora [ "+_certificado.Emetteur+" ]"
    EDT_DadosDoCertificado+=RC+"Reliability-Confianca [ "+_certificado.Fiabilité+" ]"
    EDT_DadosDoCertificado+=RC+"Serial Numero [ "+_certificado.NuméroSérie+" ]"
    EDT_DadosDoCertificado+=RC+"Certificado Valido [ "+_certificado.ValidePourSignature+" ]"
    EDT_DadosDoCertificado+=RC+"Subject   [ "+_certificado.objet+" ]"
    EDT_DadosDoCertificado+=RC+"Thumprint - Impressão Digital [ "+_certificado.Empreinte+" ]"
    EDT_DadosDoCertificado+=RC+"======================================"

    FIN

//Blog com Video e Exemplo//youtube

Páginas

segunda-feira, 20 de junho de 2016

WinDev21 - Curso - 237 - Dica - Ordenar Campos Tela

Curso WinDev - Certificado - 004 - CertificateLoad - Chamar pfx/arquivo