Criptografia MD5

Discussão em 'Progress 4GL' iniciado por jonas, Julho 21, 2010.

  1. jonas

    jonas Membro Participativo

    Preciso salvar uma senha em um banco SQL Server pelo Progress.
    Faço a conexão, salvo os dados, tudo maravilha.
    O problema é a senha, ela deve ser no padrão hash md5.

    No Progress, utilizei o encode mas não deu certo.
    Utilizei o comando md5-digest mas também não deu certo.
    Em ambas as situações acima, ao logar na aplicação a senha é recusada.

    Verifiquei um tópico sobre isso aqui no 4each, mas não encontrei a informação que preciso.

    Alguém sabe como posso salvar a senha neste padrão?

    Código:
    def var c-senha as character no-undo initial '123456'.
    MESSAGE md5-digest(c-senha,c-senha)
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
    
    Obrigado.
  2. Cobra.cne

    Cobra.cne Equipe de Suporte Moderador

    Tenta assim:
    Código:
        def var c-senha as character no-undo initial '123456'.
        MESSAGE HEX-ENCODE(MD5-DIGEST(c-senha))
            VIEW-AS ALERT-BOX INFO BUTTONS OK.
    
    que o MD5-DIGEST retorna um conteúdo do tipo RAW e é necessário converter.

    Utilizo desta forma e funciona perfeitamente.

    T+
  3. jonas

    jonas Membro Participativo

    Funcionou, muito obrigado.
  4. yurifranzoni

    yurifranzoni Sem Pontuação

    Vou ressuscitar este código porque ele realmente me ajudou também :D

    Valeu!!!
  5. asbahr

    asbahr Membro Participativo

    tem como criptografar um arquivo em txt com esta função?
    Vocês tem algum exemplo?
    Obrigado
  6. kirchner

    kirchner Membro Participativo Moderador

    asbahr,

    MD5 não é criptografia, é HASH não reversível. Se você precisará um dia do conteúdo de volta, não pode usar isto. Serviria para gerar uma assinatura e garantir que o conteúdo não mudou, por exemplo...

Compartilhe esta Página