String To MD5

[SoulBerkas]

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...

 

[Alyen]

obrigado por compartir o tutorial