Nesse vídeo demonstraremos a utilização da função MD5, que serve para transformar o conteúdo de uma string aplicando o Message Digest Algorithm 5 (MD5).

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "Totvs.ch"

/*/{Protheus.doc} User Function zExe342
Aplica um conteúdo transformando ele em MD5 (Message Digest Algorithm 5)
@type Function
@author Atilio
@since 22/03/2023
@see https://tdn.totvs.com/display/tec/MD5
@obs 

    Função MD5
    Parâmetros
        + cValor     , Caractere     , Indica o conteúdo que será aplicado o algoritmo
        + nType      , Numérico      , Indica o tipo de Hash (1=Binário ou 2=Hexadecimal)
    Retorno
        + cRet       , Caractere     , Retorna o hash do conteúdo

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe342()
	Local aArea     := FWGetArea()
    Local cNome     := "Daniel"
    Local cHash     := ""

    //Mostra ele em MD5 com o Tipo 1 (bin)
    cHash := MD5(cNome, 1)
    FWAlertInfo(cHash, "Teste 1 da função MD5")

    //Mostra ele em MD5 com o Tipo 2 (hexa)
    cHash := MD5(cNome, 2)
    FWAlertInfo(cHash, "Teste 2 da função MD5")

	FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++