+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تحويل كلمة إلى md5 (/showthread.php?tid=7057)
تحويل كلمة إلى md5 - sadwolf - 19-06-2015
السلام عليكم ورحمة الله وبركاته
هل من طريقة لتحويل كلمة إلى هاش md5
وحده او فنكشن جاهز
تحويل كلمة إلى md5 - Agmcz - 19-06-2015
ألق نظرة هنا
http://www.delphi4arab.net/forum/showthread.php?tid=435
http://www.delphi4arab.net/forum/showthread.php?tid=2236
http://www.delphi4arab.net/forum/showthread.php?tid=5433
http://www.delphi4arab.net/forum/showthread.php?tid=2263
تحويل كلمة إلى md5 - sadwolf - 20-06-2015
كلها معقده وغير مفهومه علما اني بحثت من قبل في جنبات المنتدى ولم اتوصل لحل
آمل منكم ضرب مثال بسيط ولكم الشكر
لان لي مده ابحث من غير جدوى
تحويل كلمة إلى md5 - onexite - 20-06-2015
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;
تحويل كلمة إلى md5 - sadwolf - 20-06-2015
وجدت الحل والحمدلله
اضافة الوحده md5.pas الموجوده في احد الراوبط
ثم استدعاء البرسيجر من برنامجي
PHP كود :
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
edit2.TexT:=MD5Print(MD5String(Edit1.Text));
end;
جزيت خيراً