سلام !

خب اول از همه خيلی خيلی معذرت می خواهم که نتونستمم اين چند وقته اينجا رو آپ  ديت کنم به جاش براتون سورس يه ويروس که خودم نوشتم با دلفی رو بهتون ميدم و بعد هم به تنها سوال جلسه قبل جواب ميدم پس با اجازه

آقا علی شايعی پرسيده بودند که :

من هر كاري كردم نتونستم از تابع setparent كه يه تابع اي پي ايه استفاده كنم چون دقيقا يه تابع با همين نام به شكل زير وجود داره : setparent(sth : twincontrol) و هر وقت كه من اين تابع را تايپ مي كنم دلفي مي ره سراغ تابع خودش نه اون تابع اي پي آي.

خب جواب اين دوست عزيز مون اينه که :

شما حتما می دونيد که آی دی ای دلفی( محيط ويرايش دلفی) نهايت قدرت و هوشمندی هست از اين رو متد ها و تابع هارو بسته به مقداری که بايد برگردانند نمايش ميده . تابع ست پرنت مربوط به دلفی يک پروسيجر می باشد که هيچ مقداری باز نمی گرداند پس اگه اونو در جايی که نياز به مقدار بازگشتی ( Result ) نباشه بياوريم دلفی سراغ تابع خودش ميره اما اگه اون تابع رو در جايی به کار ببريم که  معادل يک مقدار بازگشتی ((مربوط به خود تابع )) باشه به کار ببريم دلفی سراغ تابع آی پی آی که می خواهيد ميره اما اگه دوستا داشتيد می توانيد با يه روش ديگه نيز اين کار رو انجام بدهيد مانند زير ايتدا يه تابع که پارامتر های تابع مورد نظر( ست پرنت)  رو داشته باشه تعريف می کنيم با مقدار بازگشتی ست پرنت و با هرنام ديگه سپس مقدار بازگشتی اونو برابر با تابع ست پرنت آی پی آی می نويسيم.

حال تابعی رو که نوشتيم می توانيم به جای تابع آی پی آی استفاده کنيد مثال رو ببنيد

 Function stpr (Child,New:HWND):HWND;
 begin
 Result:= SetParent(Child,New);
    end;

شما به اين شکل می توانيد از تابعی که تعريف کرديم به جای تابع مورد نظر استفاده کنيد و ديگه چنين مشکلی نداشته باشيد

=======================================

خب حالا اون هايی که سورس ويروس می خواهند بشتابند اين ويروس کار و ماموريت اصلی اش اينه که نگذاره کاربر هيچ پنجره ای رو باز کنه و االبته تا حدودی هم موفق بوده  اين ويروس ابتدا چک ميکنه اگه پلتفورم ويندوز شما ان تی بود ميره و خودش رو در رجيستری به صورت استارت آپ ثبت ميکنه  و يه سری از فعاليت های کليدی و اامنيتی رجيستری رو غير فعال ميکنه و اگه ويندوز کاربر ورژن های پايين تر بود ميره و خودشو در پوشه استارت آپ ثبت ميکنه  و اونجا خراب کاری هايش رو شروع می کنه در ضمن اين ويروس ماوس و کی بورد را نيز فقل ميکنه و همچنين آنتی ويروس و بخش آنتی ويروس مکافی رو پاک ميکنه و استارت آپ رجيستری رو نيز پاک ميکنه و فقط خودشو می گذاره در پوشه استارت آپ

 در حقيقت با اين کار يه جورايی ويندوز تون رو فلج می کنه و از پا ميندازه. راستی اين ويروس به يک ويندوز که راضی نميشه خودشو تو همه ويندوز های نصب بر روی هارد شما کپی ميکنه  

اميدوارم هيچ وقت اين ويورس ها رو کامپيوتر شما اتراق نکنن   البته اين سورس کامل اون هست و فايل اجرايی  رو نگذاشتم پس نگران نباشيد  

راستی يادم رفت نام اين ويروس VFD  می باشد که از سری ويروس های V?D می باشد و نکات آموزشی فراوانی داره اميدوارم بدردتون بخوره 

از اين جا سورس را دانلود کنيد

خب آقا اين هم پست بعدی ما و ويروسی که قول داده بوديم شما هم نظر يادتون نره و در ضمن لينک دادن هم يادتون نره  

آخه مگه يه لينک ساده دادن سخته نام وبلاگ هم دلفی دات نت هست تيتر هم که ميبينيد 

منتظر نظرات وانتقادات شما هستيم

باتشکر 

وحيد := Vahid 2000

و

سعيد := Saeed 2005