Delphi MD5 şifreleme

Uses kısmına        uses System.Hash; ekleyin

implementation
      uses System.Hash;
{$R *.dfm}



Edit2.Text:=THashMD5.GetHashString('vedatpala');

Çıktısı
e738c17258b72342b3a29f0ddc49f2ee


procedure TForm2.Button1Click(Sender: TObject);
begin
//  uses System.Hash; EKLENİYOR
Edit2.Text:=THashMD5.GetHashString(Edit1.Text);

LABEL1.Caption:='UZUNLUK ŞİFRELENECEK='+inttostr(length(edit1.Text));
LABEL2.Caption:='UZUNLUK ŞİFRE='+inttostr(length(edit2.Text));

end;

procedure TForm2.Button2Click(Sender: TObject);
VAR IdMD5: TIdHashMessageDigest5;
begin
//Kullanımı
//uses IdHashMessageDigest; Ekleniyor
//Örneğin site ismimizi MD5 teknik ile şifreleyelim
IdMD5 := TIdHashMessageDigest5.Create;
edit2.Text:=IdMD5.HashStringAsHex(edit1.text);

LABEL1.Caption:='UZUNLUK ŞİFRELENECEK='+inttostr(length(edit1.Text));
LABEL2.Caption:='UZUNLUK ŞİFRE='+inttostr(length(edit2.Text));

end;

end.