delphi4arab منتديات دلفي للعرب

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

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

2- حاولت اركب الحزمه لاكن تطلع لي رسالة خطأ وشكراً

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

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

هل يمكن ارفاق نص الرسالة التي يتحدث عنها مضاد البرامج الضارة ؟

إقتباس :هل يمكن ارفاق نص الرسالة التي يتحدث عنها مضاد البرامج الضارة ؟

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

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

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

والله يجزاااك خير

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

الأمر الذي يجهله الكثير (كنت واحد منهم) هو وجود 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 Value: AnsiString): string; overload;
var
  hash: MessageDigest_5.IMD5;
  fingerprint: string;
begin
  hash := MessageDigest_5.GetMD5();
  hash.Update(Value);
  fingerprint := hash.AsString();
  Result := LowerCase(fingerprint);
end;
 
function GetMd5(const Value: UnicodeString): string; overload;
var
  hash: MessageDigest_5.IMD5;
  fingerprint: string;
begin
  hash := MessageDigest_5.GetMD5();
  hash.Update(Value);
  fingerprint := hash.AsString();
  Result := LowerCase(fingerprint);
end;
 
var
  SourceAnsiString: AnsiString;
  SourceUnicodeString: UnicodeString;
  SourceRawByteString: RawByteString;
 
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

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

Yes MD5 by Peter can be compiled in D2010 but the result is wrong