Duvida Campo tipo MD5 para validação de alterações do registro

Discussão em 'Progress 4GL' iniciado por rafael.andrade, Julho 3, 2015.

  1. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Bom dia galera.

    Estou fazendo um sistema de laudo e preciso garantir a integridade do sistema e uma das coisas é garantir que após a criação do registro, salvar na própria tabela tipo um HashCode ou MD5 ou similar para verificar a integridade do registro afim de detectar alterações indevidas (seja via sistema ou procedural).

    Resumindo:
    1. Suponhamos uma tabela com os seguintes campos:
    - cod-item (char)
    - idioma (char)
    - ativo (logical)
    - md5 (char)

    2. Então geraria um código MD5 ou similar levando em conta somente os campos:
    - cod-item (char)
    - idioma (char)
    - ativo (logical)

    3. Gravaria no campo md5 o código gerado.


    Antecipadamente grato

    Rafael
    rafael.andrade, Julho 3, 2015
    #1
    joelscampos curtiu isso.
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Achei um código legal, acho que vai dar certo, concatenando os valores de todos campos:

    Código:
    DEF VAR MD5Orig AS CHAR INIT "MeuItem,Portugues,yes".
DEF VAR MD5Alt AS CHAR INIT "MeuItem,Ingles,yes".

MESSAGE MD5-DIGEST(MD5Orig) <> MD5-DIGEST(MD5Alt)
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
    Fonte: http://bit.ly/md5-progress

    Abraço
    rafael.andrade, Julho 3, 2015
    #2
  3. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Segue programa exemplo:

    Arquivos Anexados:

    rafael.andrade, Julho 6, 2015
    #3

Compartilhe esta Página