String To MD5

SoulBerkas

Novato XPZ
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

ZlNuY2G.png


adicione na uses do Unit1.pas

IdHashMessageDigest

E4TMahx.png



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

crie essas variaveis:

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

RTfF4HA.png



apos isso abaixo do Begin:

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

upload_2016-10-17_0-37-23.png

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

upload_2016-10-17_0-38-42.png
 
Topo Bottom