MD5 no UserControl

[Fabio Matte]

Galera, eu estou desenvolvendo um aplicativo para Web e preciso autenticar com a mesma senha do UserControl (usuario e senha), porém a criptografia MD5 do UserControl nao bate com a chave que eu gero, vcs poderiam me dizer como criptgrafa e descriptografa a senha do user control em MD5, para eu implementar no projeto.

Estou testando com o framework UniGui, desenvolvo em delphi e ele acessa via Web.

[InfusTec]

A princípio a criptografia MD5 não tem rotina para descriptografia, caso queira olhar como o UserControl à utiliza, verifique a unit Source\Base\UCmd5.pas.

[Fabio Matte]

Já consegui galera.

Como fiz:

1 – Copiei o Arquivo UCmd5.pas da pasta source do UserControl, para a pasta do meu Projeto.

2 – Adicionei o UCmd5.pas a biblioteca do meu projeto;
3 – Criei a seguinte função:

function MD5Sum(strValor: String): String;
begin
  Result := UCmd5.MD5Print(UCmd5.MD5String(strValor));
end;

4 – Usei o Codigo para poder pegar a senha q informei no meu edtSenha.text:

Resultado := MD5Sum(edtSenha.Text); 
// Criptgrafa a senha para comparar com a do banco (campo ucpassword da tabela uctabusers)

Resultado2 := MD5Sum(IntToStr(IUsuario)+edtUsuario.Text+MD5Sum(edtSenha.Text));
// Essa gera a key salvo no campo uckey da tabela uctabuser)

Após isso só tratar o que vc precisa, que no meu caso, foi comparar a senha do banco com a qual eu informei via sistema.

• Esta resposta foi modificada 7 anos, 11 meses atrás por Fabio Matte.

[Autor]

Posts