String To MD5

Bom um Breve Tutorial de Como fazer um Conversor de Texto to MD5...


Primeiro crie um Projeto No Delphi. e Adicione :

2 Edits
1 Butao

todos ficam em standard



adicione na uses do Unit1.pas

IdHashMessageDigest




Agora Clique duas vezes no Botão e faça o seguinte!

crie essas variaveis:

HashMD5: TidHashMessageDigest5;
Texto: String;
Resultado : String;




apos isso abaixo do Begin:

HashMD5:=TidHashMessageDigest5.Create;
Texto := Edit1.Text;Resultado :=HashMD5.HashStringAsHex(Texto);
Edit2.Text := Resultado;



pronto! agora seu conversor esta funcionado perfeitamente bem...

obrigado por compartir o tutorial