+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (https://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي والتعامل مع الملفات (https://delphi4arab.net/forum/forumdisplay.php?fid=22)
+--- الموضوع : تمهيد لـــ MD5_Concept (/showthread.php?tid=277)
تمهيد لـــ MD5_Concept - STRELiTZIA - 27-11-2008
بسم الله الرحمن الرحيم
درس تمهيدي بتنسيق PDF مع الملفات المصدرية يتحدث على عملية الهاش Hash باستعمال خوارزمية MD5 توليد و مقارنة، و تخطي MD5 Collision.
المرفق يحتوي على :
- درس بتنسيق PDF.
- ملفات مصدرية و الأداة MD5 Equality
- ملفات مصدرية و الأداة MD5 Collision Bypassing.
جزء من الكود :
PHP كود :
procedure TMain.CmpHashImg5Click(Sender: TObject);
begin
if OpenDialog.Execute then
begin
FileNameEdt.Clear;
FirstHashEdt.Clear;
FileNameEdt.Text := OpenDialog.FileName;
{ Custom Magic Values }
if Trim(MagicValEdt1.Text) <> '' then
if Trim(MagicValEdt2.Text) <> '' then
if Trim(MagicValEdt3.Text) <> '' then
if Trim(MagicValEdt4.Text) <> '' then
begin
MagicVal1 := StrToInt('$' + MagicValEdt1.Text); //$67452301;
MagicVal2 := StrToInt('$' + MagicValEdt2.Text); //$efcdab89;
MagicVal3 := StrToInt('$' + MagicValEdt3.Text); //$98badcfe;
MagicVal4 := StrToInt('$' + MagicValEdt4.Text); //$10325476;
{ Get MD5 Hash }
FirstHashEdt.Text := MD5Print(MD5File(FileNameEdt.Text));
end;
end;
end;
PHP كود :
procedure MD5Init(var Context: MD5Context); { Modified by STRELiTZIA | AT4RE }
begin
with Context do begin
State[0] := Main.MagicVal1; //$67452301;
State[1] := Main.MagicVal2; //$efcdab89;
State[2] := Main.MagicVal3; //$98badcfe;
State[3] := Main.MagicVal4; //$10325476;
Count[0] := 0;
Count[1] := 0;
ZeroMemory(@Buffer, SizeOf(MD5Buffer));
end;
end;
بالتوفيق ان شاء الله
تمهيد لـــ MD5_Concept - hanipino - 27-11-2008
شكرا لك اخى STRELiTZIA بارك الله فيك .
تمهيد لـــ MD5_Concept - me_delphi - 20-12-2008
جزاك الله خيرا
تمهيد لـــ MD5_Concept - ThePrince - 06-01-2009
تشكر أخي العزيز
تمهيد لـــ MD5_Concept - ThePrince - 07-01-2009
درس أروع ما يكون وتشكر عليها كثيراً
لكن هل بتوضيح أكثر عن MD5 Collision فقد أثارت دهشتي وأحترت كثيراً
هل يعني أن سبب Collision هي من القيم Init الثابتة في MD5
تمهيد لـــ MD5_Concept - STRELiTZIA - 08-01-2009
إقتباس :هل يعني أن سبب Collision هي من القيم Init الثابتة في MD5
السلام عليكم و رحمة الله
نعم اخي برنس يتم عمل MD5 Collision بناء على القيم الثابتة في Init.
للمزيد اليك هذه الروابط :
http://www.mscs.dal.ca/~selinger/md5collision
و ايضا ملف مصدري :
http://www.stachliu.com/md5coll.c
و هذا ايضا :
http://www.x-ways.net/md5collision.html
و كوب كبير من القهوى Express
مرحبا بك في المنتدى
بالتوفيق ان شاء الله
تمهيد لـــ MD5_Concept - ThePrince - 10-01-2009
وعليكم السلام ورحمة الله وبركاتة
تشكر أخي STRELiTZIA فالموضوع يحتاج ألى بحث ودراسة معمقة
لفهم Collision وأيضاً أكواب من القهوة