AmirSky
پنج شنبه 18 خرداد 1391, 16:47 عصر
دنبال یونیتی برای MD5 میگشتم که دیدم تقریبا هرچی توی اینترنت پیدا میشه مشکل داره.
اما با Indy میشه به راحتی این کار رو انجام داد.
این هم مثال:
uses IdHashMessageDigest, idHash;
procedure TForm1.btn4Click(Sender: TObject);
var
idmd5 : TIdHashMessageDigest5;
begin
idmd5 := TIdHashMessageDigest5.Create;
try
edt5.text := idmd5.HashStringAsHex(edt1.text,nil) ;
finally
idmd5.Free;
end;
end;
اما با Indy میشه به راحتی این کار رو انجام داد.
این هم مثال:
uses IdHashMessageDigest, idHash;
procedure TForm1.btn4Click(Sender: TObject);
var
idmd5 : TIdHashMessageDigest5;
begin
idmd5 := TIdHashMessageDigest5.Create;
try
edt5.text := idmd5.HashStringAsHex(edt1.text,nil) ;
finally
idmd5.Free;
end;
end;