مكتبة لحساب md5 متوافقة مع إصدار Delphi 2010
#1
السلام عليكم ورحمة الله
بينما كنت أبحث عن كود متوافق لـ Delphi 2010 لحساب MD5، وقعت على وحدة من إنتاج Peter Sawatzki مبرمج من ألمانيا، أضفت توجيه صغير وها هي الدالة متوافقة مع إصدار D14.
مثال في المرفقات كتبته على Delphi4 ويعمل على Delphi2010 أيضا.
يوجد في الموقع أشياء أخرى مفيدة لمن يحب الاستكشاف:
كود :
http://www.sawatzki.de/download.htm
بالتوفيق.


الملفات المرفقة
.7z   MD5Checksum.7z (الحجم : 5.93 KB / التحميلات : 122)
الرد
#2
وعليكم السلام ورحمة الله وبركاته

1- البرنامح المرفق لماذا مكافح الفيروسات يعتبره فيروس حملت برنامجين وهذا الثالث وصادفت نفس المشكله

2- حاولت اركب الحزمه لاكن تطلع لي رسالة خطأ وشكراً
الرد
#3
السلام عليكم و رحمة الله
إقتباس :1- البرنامح المرفق لماذا مكافح الفيروسات يعتبره فيروس حملت برنامجين وهذا الثالث وصادفت نفس المشكله
هل يمكن ارفاق نص الرسالة التي يتحدث عنها مضاد البرامج الضارة ؟
الرد
#4
أخي قديم الشوق...
المرفق نظيف تماما، لا يوجد H1N1A Smile ولا أي شيء آخر...
كل ما في الأمر أن بعض مضادات الفيروسات حساسة تجاه بعض برامج الضغط
راجع أيضا:
مصداقية برامج الحماية Antivirus
mPack برنامج ضغط الملفات التنفيذية
على العموم، قمت بحذف التطبيق (المصادر فقط)
بالتوفيق.
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...
الرد
#5
إقتباس :هل يمكن ارفاق نص الرسالة التي يتحدث عنها مضاد البرامج الضارة ؟

البرنامج يحذفه ولا ويظهر تنبيه انه فيروس
ينبهني انه فيروس لاكن مايظهر نوعه
--------------

بالفعل طلع من برنامج الضغط - بصراحه ماشكيت فيك لاكن سمعت عن فيروس مخصص للدلفي

بحيث انك اذا جيت تصدر البرنامج (exe) يندمج مع الأكواد

والله يجزاااك خير
الرد
#6
السلام عليكم ورحمة الله

الأمر الذي يجهله الكثير (كنت واحد منهم) هو وجود MD5 مع دلفي منذ الاصدار 2007 وهي تعمل مع 2009/2010
بالوحدة MessageDigest_5.pas الموجودة بالمجلد source\Win32\soap\wsdlimporter\
وهذا مثال يستخدمها
PHP كود :
program md5;
 
{
$APPTYPE CONSOLE}
 
uses
  SysUtils
,
  
MessageDigest_5 in 'C:\Program Files\Embarcadero\RAD Studio\7.0\source\Win32\soap\wsdlimporter\MessageDigest_5.pas';
  
// Vista/Windows 7: MessageDigest_5 in 'C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\source\Win32\soap\wsdlimporter\MessageDigest_5.pas';
 
function GetMd5(const ValueAnsiString): stringoverload;
var
  
hashMessageDigest_5.IMD5;
  
fingerprintstring;
begin
  hash 
:= MessageDigest_5.GetMD5();
  
hash.Update(Value);
  
fingerprint := hash.AsString();
  
Result := LowerCase(fingerprint);
end;
 
function 
GetMd5(const ValueUnicodeString): stringoverload;
var
  
hashMessageDigest_5.IMD5;
  
fingerprintstring;
begin
  hash 
:= MessageDigest_5.GetMD5();
  
hash.Update(Value);
  
fingerprint := hash.AsString();
  
Result := LowerCase(fingerprint);
end;
 
var
  
SourceAnsiStringAnsiString;
  
SourceUnicodeStringUnicodeString;
  
SourceRawByteStringRawByteString;
 
begin
  
try
    
SourceAnsiString := 'foobar';
    
SourceUnicodeString := 'foobar';
    
SourceRawByteString := 'foobar';
 
    
Writeln(GetMd5(SourceAnsiString));
    
Writeln(GetMd5(SourceUnicodeString));
    
Writeln(GetMd5(SourceRawByteString));
 
    
SourceAnsiString := 'föøbår';
    
SourceUnicodeString := 'föøbår';
    
SourceRawByteString := 'föøbår';
    
Writeln(SourceAnsiString' 'GetMd5(SourceAnsiString));
    
Writeln(SourceUnicodeString' 'GetMd5(SourceUnicodeString));
    
Writeln(SourceRawByteString' 'GetMd5(SourceRawByteString));
  
except
    on E
Exception do
      
Writeln(E.ClassName': 'E.Message);
  
end;
end
مصدر المعلومة مدونة
Jeroen Pluimers
http://wiert.wordpress.com/2009/12/11/de...elphi-2007
الرد
#7
إقتباس :الأمر الذي يجهله الكثير (كنت واحد منهم) هو وجود md5 مع دلفي منذ الاصدار 2007 وهي تعمل مع 2009/2010
بارك الله لك أستاذ وجزاك خيرا كثيرا
عندما كنت أبحث عن شيء موافق لإصدارت دعم Unicode
صادفت هذه المكتبة وفرحت لأنها مرفقة مع دلفي
لكني عندما استخدمتها أعطتني بصمة MD5 مختلفة تماما عن الذي كنا نحسبه بالداول القديمة!
وقد ذكر هذا في المدونة التي تفضلت بها
[صورة مرفقة: 216a9s.gif]
وعندما بحثت أكثر وجدت الكثير من الأسئلة طرحت عن سبب هذا الاختلاف
ثم بحثت أكثر حتى وجدت هذه الوحدة التي تعيد نفس MD5 وفي نفس الوقت تعمل على D14
لحد الآن لا أدري بالتحديد لماذا تختلف النتائج، ربما لأجل حكاية AnsiString ودعم Unicode
حاولت التغليف بـ AnsiString لكن دون جدوى...
أعددت مثال في المرفقات لكلا الطريقتين، حاولت فيه بكلا التابعين ودائما MD5 مختلف لنفس النص؟


الملفات المرفقة
.rar   MD5Unicode.rar (الحجم : 5.7 KB / التحميلات : 135)
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...
الرد
#8
Hi there, I am from Indonesia. Is there any hope that MD5 by Peter works in D2010? The code from Peter is very fast


Well it is not easy to write latin in this forum Smile
الرد
#9
fajar, as kachwahed said it work with Delphi 2010
download the attached file MD5Check.rar
الرد
#10
Yes MD5 by Peter can be compiled in D2010 but the result is wrong

[صورة مرفقة: 216a9s.gif]
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف