تحويل كلمة إلى md5

[sadwolf]

السلام عليكم ورحمة الله وبركاته

هل من طريقة لتحويل كلمة إلى هاش md5

وحده او فنكشن جاهز

[Agmcz]

ألق نظرة هنا
http://www.delphi4arab.net/forum/showthread.php?tid=435
http://www.delphi4arab.net/forum/showthr...p?tid=2236
http://www.delphi4arab.net/forum/showthr...p?tid=5433
http://www.delphi4arab.net/forum/showthr...p?tid=2263

[sadwolf]

كلها معقده وغير مفهومه علما اني بحثت من قبل في جنبات المنتدى ولم اتوصل لحل

آمل منكم ضرب مثال بسيط ولكم الشكر

لان لي مده ابحث من غير جدوى

[onexite]

PHP كود :

uses  IdGlobal, IdHash, IdHashMessageDigest;

     function md5(str:string):string;
     begin
with TIdHashMessageDigest5.Create do
try
    Result := LowerCase(TIdHash128.AsHex(HashValue(str)));
finally
    Free;
end;
end; 


لا اسهل من هذا

[sadwolf]

وجدت الحل والحمدلله

اضافة الوحده md5.pas الموجوده في احد الراوبط

ثم استدعاء البرسيجر من برنامجي

PHP كود :

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
edit2.TexT:=MD5Print(MD5String(Edit1.Text));
end; 


جزيت خيراً