رمز نگاری MD5

[AmirSky]

دنبال یونیتی برای 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;

[سعید صابری]

اینجا هم بودشا
http://barnamenevis.org/showthread.php?190417-%D9%85%D8%B1%D8%AC%D8%B9-%D8%AA%D9%88%D8%A7%D8%A8%D8%B9-%D8%AF%D9%84%D9%81%DB%8C/page7&highlight=IdHashMessageDigest%2C+idHash%3B