Sabtu, 30 Oktober 2010

Surat Cinta Ahli Komputer

 Seandainya hatimu adalah sebuah system? maka aku akan scan kamu untuk mengetahui port mana yang terbuka Sehingga tidak ada keraguan saat aku c:\>nc -l -o -v -e ke hatimu, tapi aku hanya berani ping di belakang anonymouse proxy, inikah rasanya jatuh cinta sehingga membuatku seperti pecundang atau aku memang pecundang sejati, whatever!

Seandainya hatimu adalah sebuah system,ingin rasanya aku manfaatkan vulnerabilities-mu, pake PHP injection, terus aku ls -la; find / -perm 777 -type d, sehingga aku tahu kalau di hatimu ada folder yang bisa ditulisi atau adakah free space buat aku. Atau apakah aku harus pasang backdoor “Remote Connect-Back Shell”, jadi aku tinggal nunggu koneksi dari kamu saja, biar aku tidak merana seperti ini.

Seandainya hatimu adalah sebuah system,saat semua request-ku diterima aku akan nongkrong terus di bugtraq untuk mengetahui bug terbarumu maka aku akan patch ‘n pacth terus, aku akan jaga service-mu jangan sampai crash dan aku akan menjadi firewall-mu aku akan pasang portsentry, dan men-setting error page-mu “The page cannot be found Coz Has Been Owned by Someone. Get out!”. Aku janji gak bakalan ada malicious program atau service yang hidden, karena aku sangat sayang dan mencintaimu.

Seandainya hatimu adalah sebuah system,jangan ada kata “You dont have permission to access it” untuk aku, kalau gak mau di ping flood atau DDos Attack, jangan ah…! Kamu harus menjadi sang bidadari penyelamatku.

Seandainya hatimu adalah sebuah system?

Tapi sayang hatimu bukanlah sebuah system,
kamu adalah sang bidadari impianku, yang telah mengacaukan systemku!

Suatu saat nanti aku akan datang dan mengatakan kalau di hatiku sudah terinfeksi virus yang menghanyutkan, gak ada anti virus yang dapat menangkalnya selain… kamu.

Cara Gampang Membuat BOM ASAP WARNA

Ha..ha..ha..ha. Bagi yang suka dengan Huru-Hara bisa diterapkan cara ini, hanya dengan modal Potasium Nitrat,Gula, Potongan Paralon atau Kaleng Sarden yang bagian atas dan bawahnya dibiarkan bolong seperti potongan paralon,Baking Soda, Bubuk warna, kapas, Tisu, Selotip, dan Sumbu pemicu, anda bisa membuat BOM ASAP WARNA, jika pengen hasil yang didapatkan lebih besar tinggal memperbesar ukuran BOM dengan komposisi Gula (40%) dan Potasium Nitrat (60%) dan Baking Soda. Anda juga dapat menambahkan Bubuk Merica agar Efek Bom ASAP Pedas Dimata (Wakakkk.. Jadinya GAS AIR MATA donk).



Caranya :
Ambil Potasium Nitrat 60 gram
Gula 40 gram
Campur dalam panci secara merata
Panaskan panci dengan api kecil
Tunggu sampai campuran tadi berbentuk seperti peanut butter
Masukkan Baking Soda 1 sendok makan, dan Bubuk Pewarna secukupnya
Aduk-aduk lagi
Ambil dari panci
Masukkan ke dalam Potongan Paralon / Kaleng Sarden tadi dengan dibagian tengahnya ditancapkan balpoint
Diamkan selama minimal 1 jam
Tarik / ambil ballpoint tadi ke dalam bekas lubang balpoint
Beri sumbu pemicu dan rapatkan dengan kapas
Kemudian Isolasi dengan Lakban sampai bagian samping san bawah tertutup
Rapikan.
Dan Kita siap Ber-AKSI.


Untuk vidionya bisa di lihat klik disini

Jumat, 29 Oktober 2010

Undang-Undang Motor, Nomor 22 Tahun 2009



Info Undang-Undang Motor, Nomor 22 Tahun 2009 - Buat pengendara motor, jangan coba-coba jalan di trotoar kalau enggak mau kehilangan Rp 500.000. Masih banyak lagi pasal-pasal yang terangkum dalam Undang-Undang Nomor 22 Tahun 2009 tentang Lalu lintas dan Angkutan Jalan yang siap menjerat pengendara karena kebiasaan buruk atau lalai saat berkendara.

Undang-undang tersebut sudah ketok palu. Nah, supaya Anda tidak kena tilang, inilah beberapa peraturan tersebut.

1. Motor harus lengkap nomor polisi. Hilang satu kena Pasal 280. Bunyinya (diringkas), orang, yang mengendarai motor tidak dipasangi tanda nomor (pelat nomor) yang ditentukan polisi sebagaimana yang dimaksud Pasal 68 ayat1, dipidana kurungan 2 bulan atau denda paling banyak Rp 500.000

2. Punya SIM. Nekat berkendara tanpa mengantongi surat izin mengemudi (SIM) (sesuai Pasal 281) dikenakan Pasal 77 ayat 1 dipidana kurungan paling lama 4 (empat) bulan atau denda paling banyak Rp.1 juta.

3. Jangan SMS atau telepon saat berkendara, mabok, dan lainnya. Itu mengganggu konsentrasi pengendara. Pasal 283 siap menjerat dengan bunyi: Setiap orang yang mengemudikan kendaraan bermotor secara tidak wajar dan melakukan kegiatan lain atau dipengaruhi suatu keadaan yang mengakibatkan gangguan konsentrasi dalam mengemudi di jalan sebagai diatur dalam Pasal 106 ayat 1 dipidana kurungan paling lama 3 (tiga) bulan atau denda Rp 750.000.

4. Jalan di trotoar. Pasal 106 ayat 2 akan menjerat dengan hukuman berupa kurungan 2 (dua) bulan atau denda paling banyak Rp 500.000 karena dalam pasal tersebut jelas disebutkan, Anda tidak mengutamakan keselamatan pejalan kaki atau pesepeda kala mengemudikan kendaraan bermotor.

5. Standar motor tak lengkap. Perhatikan kaca spion, lampu utama, rem, penunjuk arah, pengukur kecepatan, knalpot, dan kedalaman alur ban. Bila tidak memenuhi persyaratan teknis dan laik jalan, maka sebagaimana dimaksud Pasal 106 ayat 3 juncto Pasal 48 ayat 2 dan ayat 3, (pelanggar) dipidana dengan pidana kurungan paling lama 1 bulan atau denda paling banyak Rp 250.000.

6. Marka jalan. Simak Pasal 287. Yang melanggar aturan perintah atau larangan yang dinyatakan dengan rambu lalu lintas sebagaimana dimaksud Pasal 106 ayat 4 huruf a atau marka jalan (Pasal 106 ayat 4 huruf b) dipidana dengan pidana kurungan 2 (dua) bulan atau denda palilng banyak Rp 500.000.

7. Helm harus logo SNI. Pakai helm "cetok" atau helm proyek bakal diadang Pasal 106 ayat (8), yaitu dipidana dengan pidana kurungan a (satu) bulan atau denda paling banyak Rp 250.000. Helm harus memenuhi standar SNI.

8. Boncengan tiga atau lebih. Mengangkut penumpang lebih dari satu, sebagaimana disebut dalam Pasal 106 ayat 9, dipidana dengan pidana kurungan 1 (satu) bulan atan denda paling banyak Rp 250.000.

9. Balap liar. Yang suka kebut-kebutan, apalagi balap liar sebagaimana disebutkan Pasal 115 huruf b, dipidana dengan pidana kurungan paling lama 1 (satu) tahun atau denda paling banyak Rp 3 juta.

10. Menerobos palang pintu kereta api. Bagi yang menerobos lintasan rel kereta, sementara palang pintu sudah ditutup dan sinyal sudah bunyi, Pasal 114 siap menjerat mereka dengan pidana kurungan paling lama 3 (tiga) bulan atau denda paling banyak Rp 750.000.

Kitab Undang-Undang Hukum Pidana


Buku Kesatu - Aturan Umum
 Bab XVI - Penghinaan




Pasal 310
(1) Barang siapa sengaja menyerang kehormatan atau nama baik seseorang dengan menuduhkan
sesuatu hal, yang maksudnya terang supaya hal itu diketahui umum, diancam karena
pencemaran dengan pidana penjara paling lama sembilan bulan atau pidana denda paling
banyak empat ribu lima ratus rupiah.
(2) Jika hal itu dilakukan dengan tulisan atau gambaran yang disiarkan, dipertunjukkan atau
ditempelkan di muka umum, maka diancam karena pencemaran tertulis dengan pidana penjara
paling lama satu tahun empat bulan atau pidana denda paling banyak empat ribu lima ratus
rupiah.
(3) Tidak merupakan pencemaran atau pencemaran tertulis, jika perbuatan jelas dilakukan demi
kepentingan umum atau karena terpaksa untuk membela diri.

Pasal 311
(1) Jika yang melakukan kejahatan pencemaran atau pencemaran tertulis dibolehkan untuk
membuktikan apa yang dituduhkan itu benar, tidak membuktikannya, dan tuduhan dilakukan
bertentangan dengan apa yang diketahui, maka dia diancam melakukan fitnah dengan pidana
penjara paling lama empat tahun.
(2) Pencabutan hak-hak berdasarkan pasal 35 No. 1 - 3 dapat dijatuhkan.
Pasal 312
Pembuktian akan kebenaran tuduhan hanya dibolehkan dalam hal-hal berikut:
1. apabila hakim memandang perlu untuk memeriksa kebenaran itu guna menimbang
keterangan terdakwa, bahwa perbuatan dilakukan demi kepentingan umum, atau karena
terpaksa untuk membela diri;
2. apabila seorang pejabat dituduh sesuatu hal dalam menjalankan tugasnya.

Pasal 313
Pembuktian yang dimaksud dalam pasal 312 tidak dibolehkan, jika hal yang dituduhkan hanya dapat
dituntut atas pengaduan dan pengaduan tidak dimajukan.

Pasal 314
(1) Jika yang dihina, dengan putusan hakim yang menjadi tetap, dinyatakan bersalah atas hal yang
dituduhkan, maka pemidanaan karena fitnah tidak mungkin.
(2) Jika dia dengan putusan hakim yang menjadi tetap dibebaskan dari hal yang dituduhkan, maka
putusan itu dipandang sebagai bukti sempurna bahwa hal yang dituduhkan tidak benar.
(3) Jika terhadap yang dihina telah dimulai penuntutan pidana karena hal yang dituduhkan padanya,
maka penuntutan karena fitnah dihentikan sampai mendapat putusan yang menjadi tetap tentang
hal yang dituduhkan.
 
Pasal 315
Tiap-tiap penghinaan dengan sengaja yang tidak bersifat peneemaran atau pencemaran tertulis yang
dilakuknn terhadap seseorang, baik di muka umum dengan lisan atau tulisan, maupun di muka orang
itu sendiri dengan lisan atau perbuatan, atau dengan surat yang dikirimkan stau diterimakan
kepadanya, diancam karena penghinaan ringan dengan pidana penjara paling lama empat bulan dua
minggu atau pidana denda paling banyak empat ribu lima ratus rupiah.
Pasal 316

Pidana yang ditentukan dalam pasal-pasal sebelumnya dalam bab ini, dspat ditambah dengan
sepertiga jika yang dihina adalah seorang pejabat pada waktu atau karena menjalankan tugasnya
yang sah.
Pasal 317

(1) Barang siapa dengan sengaja mengajukan pengaduan atau pemberitahuan palsu kepada
penguasa, baik secara tertulis maupun untuk dituliskan, tentang seseorang sehingga kehormatan
atau nama baiknya terserang, diancam karena melakukan pengaduan fitnah, dengan pidana
penjara paling lama empat tahun,
(2) Pencabutan hak-hak berdasarkan pasal 35 No, 1 - 3 dapat dijatuhkan.
Pasal 318
(1) Barang siapa dengan sesuatu perbuatan sengaja menimbulkan secara palsu persangkaan
terhadap seseorang bahwa dia melakukan suatu perbuatan pidana, diancam karena
menimbulkan persangkaan palsu, dengan pidana penjara paling lama empat tahun.
(2) Pencabutan hak-hak berdasarkan pasal 35 No. 1 - 3 dapat dijatuhkan.
Pasal 319
Penghinaan yang diancam dengan pidana menurut bab ini, tidak dituntut jika tidak ada pengaduan
dari orang yang terkena kejahatan itu, kecuali berdasarkan pasal 316.
Pasal 320
(1) Barang siapa terhadap seseorang yang sudah mati melakukan perbuatan yang kalau orang itu
masih hidup akan merupakan pencemaran atau pencemaran tertulis, diancam dengan pidana
penjara paling lama empat bulan dua minggu atau pidana denda paling banyak empat ribu lima
ratus rupiah.
(2) Kejahatan ini tidak dituntut kalau tidak ada pengaduan dari salah seorang keluarga sedarah
maupun semenda dalam garis lurus atau menyimpang sampai derajat kedua dari yang mati itu,
atau atas pengaduan suami (istri)nya.
(3) Jika karena lembaga matriarkal kekuasaan bapak dilakukan oleh orang lain daripada bapak,
maka kejahatan juga dapat dituntut atas pengaduan orang itu.
Pasal 321
(1) Barang siapa menyiarkan, mempertunjukkan atau menempelkan di muka umum tulisan atau
gambaran yang isinya menghina atau bagi orang ymg sudah mati mencemarkan namanya,
dengan maksud supaya isi surat atau gambar itu ditahui atau lehih diketahui oleh umum, diancam
dengan pidana penjara paling lama satu hulan dua minggu atau pidana denda paling banyak
empat ribu lima ratus rupiah.
(2) Jika Yang bersalah rnelakukan kejahat.an tersehut dalam menjalankan pencariannya, sedangkan
ketika itu belum lampau dua tahun sejak adanya pemidanaan yang menjadi tetap karena
kejahatan semacam itu juga, maka dapat. dicabut haknya untuk menjalankan pencarian tersehut.
(3) Kejahatan ini tidak dituntut kalau tidak ada pengaduan dari orang yang ditunjuk dalam pasal 319
dan pasal 320, ayat kedua dan ketiga.

Kamis, 28 Oktober 2010

Cara Hacking Wireless/Hotspot .




















Langkah-langkah pertama:

1.Cek tipe jaringan anda, anda ada di jaringan switch / hub. Jika anda berada di jaringan hub
   bersyukurlah karna proses hacking akan jauh lebih mudah.
2.Download program-program yang dibutuhkan yaitu Wireshark dan Cain&Abel.Code:
  Download Wireshark klik disini
  Download Cain&Abel Code klik disini

Cara Menggunakan WireShark:
1. Jalankan program wireshark
2. Tekan tombol Ctrl+k (klik capture lalu option)
3. Pastikan isi pada Interfacenya adalah Ethernet Card anda yang menuju ke jaringan, bila bukan ganti dan pastikan pula bahwa “Capture packets in promiscuous mode” on
4. Klik tombol start
5. Klik tombol stop setelah anda merasa yakin bahwa ada password yang masuk selamaanda menekan tombol start
6. Anda bisa melihat semua jenis packet yang masuk dan keluar di jaringan (atau pada komputer anda saja jika network anda menggunakan Swtich
7. Untuk menganalisis datanya klik kanan pada data yang ingin di analisis lalu klik “Follow TCP Stream” dan selamat menganalisis paketnya (saya tidak akan menjelaskan caranya karena saya tidak bisa )
8. Yang jelas dari data itu pasti di dalamnya terdapat informasi2 yang dimasukkan korban ke website dan sebaliknya.
Cara di atas hanya berlaku apabila jaringan anda adalah Hub bukan switch
Dari cara di atas anda dapat mengetahui bahwa jaringan anda adalah hub/switch dengan melihat pada kolom IP Source dan IP Destination. Bila pada setiap baris salah satu dari keduanya merupakan ip anda maka dapat dipastikan jaringan anda adalah jaringan switch, bila tidak ya berarti sebaliknya.

Cara Menggunakan Cain&Abel:
* * Penggunaan program ini jauh lebih mudah dan simple daripada menggunakan wireshark, tetapi bila anda menginginkan semua packet yang sudah keluar dan masuk disarankan anda menggunakan program wireshark
* * Buka program Cain anda
* * Klik pada bagian configure
* * Pada bagian “Sniffer” pilih ethernet card yang akan anda gunakan
* Pada bagian “HTTP Fields” anda harus menambahkan username fields dan password fields nya apabila yang anda inginkan tidak ada di daftar.
Sebagai contoh saya akan beritahukan bahwa kalo anda mau hack password Friendster anda harus menambahkan di username fields dan passworsd fields kata name, untuk yang lain anda bisa mencarinya dengan menekan klik kanan view source dan anda harus mencari variabel input dari login dan password website tersebut. Yang sudah ada di defaultnya rasanyan sudah cukup lengkap, anda dapat mencuri pass yang ada di klubmentari tanpa menambah apapun.
* * Setelah itu apply settingannya dan klik ok
* * Di menu utama terdapat 8 tab, dan yang akan dibahas hanya 1 tab yaitu tab “Sniffer” karena itu pilih lah tab tersebut dan jangan pindah2 dari tab tersebut untuk mencegah kebingungan anda sendiri
* * Aktifkan Sniffer dengan cara klik tombol sniffer yang ada di atas tab2 tersebut, carilah tombol yang tulisannya “Start/Stop Sniffer”
* * Bila anda ada di jaringan hub saat ini anda sudah bisa mengetahui password yang masuk dengan cara klik tab (Kali ini tab yang ada di bawah bukan yang di tengah, yang ditengah sudah tidak usah diklik-klik lagi) “Passwords”
* Anda tinggal memilih password dari koneksi mana yang ingin anda lihat akan sudah terdaftar di sana
* * Bila anda ternyata ada di jaringan switch, ini membutuhkan perjuangan lebih, anda harus mengaktifkan APR yang tombolonya ada di sebelah kanan Sniffer (Dan ini tidak dijamin berhasil karena manage dari switch jauh lebih lengkap&secure dari hub)
* * Sebelum diaktifkan pada tab sniffer yang bagian bawah pilih APR
* * Akan terlihat 2 buah list yang masih kosong, klik list kosong bagian atas kemudian klik tombol “+” (Bentuknya seperti itu) yang ada di jajaran tombol sniffer APR dll
* * Akan ada 2 buah field yang berisi semua host yang ada di jaringan anda
* * Hubungkan antara alamat ip korban dan alamat ip gateway server (untuk mengetahui alamat gateway server klik start pada komp anda pilih run ketik cmd lalu ketik ipconfig pada command prompt)
* * Setelah itu baru aktifkan APR, dan semua data dari komp korban ke server dapat anda lihat dengan cara yang sama.

Anda dapat menjalankan kedua program di atas secara bersamaan (Cain untuk APR dan wireshark untuk packet sniffing) bila ingin hasil yang lebih maksimal.

Password yang bisa anda curi adalah password yang ada di server HTTP (server yang tidak terenkripsi), bila data tersebut ada di server yang terenkripsi maka anda harus mendekripsi data tersebut sebelum memperoleh passwordnya (dan itu akan membutuhkan langkah2 yang jauh lebih panjang dari cara hack ini)

Untuk istilah-istilah yang tidak ngerti bisa dicari di wikipedia (tapi yang inggris ya kalo yang indo jg belum tentu ada).

Secara teknologis jalur frekuensi -baik 2,4 GHz maupun 5 GHz- yang menjadi wadah operasional teknologi Wi-Fi tidak bebas dari keterbatasan .

Pasalnya, pengguna dalam suatu area baru dapat memanfaatkan sistem Internet nirkabel ini dengan optimal, bila semua perangkat yang dipakai pada area itu menggunakan daya pancar yang seragam dan terbatas.

Apabila prasyarat tersebut tidak diindahkan, dapat dipastikan akan terjadi harmful interference bukan hanya antar perangkat pengguna Internet, tetapi juga dengan perangkat sistem telekomunikasi lainnya.

Bila interferensi tersebut berlanjut -karena penggunanya ingin lebih unggul dari pengguna lainnya, maupun karenanya kurangnya pemahaman terhadap keterbatasan teknologinya- pada akhirnya akan membuat jalur frekuensi 2,4 GHz dan 5 GHz tidak dapat dimanfaatkan secara optimal.

Keterbatasan lain dari kedua jalur frekuensi nirkabel ini (khususnya 2,4 GHz) ialah karena juga digunakan untuk keperluan ISM (industrial, science and medical).

Konsekuensinya, penggunaan komunikasi radio atau perangkat telekomunikasi lain yang bekerja pada pada pita frekuensi itu harus siap menerima gangguan dari perangkat ISM, sebagaimana tertuang dalam S5.150 dari Radio Regulation.

Dalam rekomendasi ITU-R SM.1056, diinformasikan juga karakteristik perangkat ISM yang pada intinya bertujuan mencegah timbulnya interferensi, baik antar perangkat ISM maupun dengan perangkat telekomunikasi lainnnya.

Rekomendasi yang sama menegaskan bahwa setiap anggota ITU bebas menetapkan persyaratan administrasi dan aturan hukum yang terkait dengan keharusan pembatasan daya.

Menyadari keterbatasan dan dampak yang mungkin timbul dari penggunaan kedua jalur frekuensi nirkabel tersebut, berbagai negara lalu menetapkan regulasi yang membatasi daya pancar perangkat yang digunakan.

Sinyal Wireless

Sinyal wireless LAN normalnya dapat ditangkap pada kisaran sekitar 200 meter dari access point, tetapi client yang menggunakan antena eksternal dapat menangkap sinyal sampai sejauh 1000 meter. Apabila anda menempatkan AP dekat pintu atau jendela, dapat dipastikan para tetangga dapat ikut menikmati akses Internet atau melakukan sniffing terhadap traffic network.

Apabila infrastruktur wireless LAN itu melibatkan koneksi wireless antar-gedung tinggi, maka client yang tidak diinginkan dapat melakukan sniffing dari bawah sejauh sampai 2.500 kaki (762 meter). Jadi walaupun sinyal wireless LAN para ISP yang dipasangkan di puncak-puncak gedung tinggi dapat di-sniffing dari bawah (dikenal sebagai war flying).

Jika anda ingin connect internet menggunakan wifi sementara anda jauh AP atau dari tempat wifi yang tersedia anda bisa mendekatkan diri dengan area tersebut dan bisa main internet sepuasnya dengan langkah sebagai berikut

1) Anda harus memiliki USB Wireless Adapter. Yang bisa anda dapatkan ditoko toko komputer dengan harga berkisar Rp 210.000 (cukup murah untuk technology secanggih ini) + antenna UHF bentuk parabola.

2) Langkah ini merupakan langkah kunci, yaitu dengan menggunakan antenna UHV yang berbentuk Grid Parabolic sebagai Reflector untuk memperkuat sinyal.

3) Untuk lebih memperkuat daya reflexy dari parabole anda dapat menambahkan kawat kasa pada seluruh permukaan, lalujangan lupa disekrup dengan rangka parabola. Anda juga bisa menambahkan alumunium foil.

4) Pasanglah USB WiFi Adapter pada tiang penyangga yang ada di tengah parabola. Apabila terlalu panjang dari fokusnya dapat dipotong.

Usahakan agar USB WiFI terletak pada fokus parabola. Ingat kan rumus fokus parabola. Kalau ragu nih rumus sederhananya.

F= D(kuadrat) / 4(kuadrat).c

D: diameter parabola

C: kedalaman parabola

5) pasang kabel USB( High Speed 2.0 usb cable system) sedemikian rupa.

6) Lalu pasang kembali tiang penyangga USB wifi pada parabola. Pasang pada pipa besi untuk mempermudah antenne supaya enak diputar putar.

7) Kalau udah install driver USB WiFI tadi (bawaan pabrik).

Lalu install “NETWORK STUMBLER” untuk mencari sinyal yang kuat dan terdekat.

8) Pasang antenna diluar dan masukkan kabel USB pada port komputer anda. Scan pake Net Stumbler. Cari jaringan yang ngga’ di ENCRYPT dan jaraknya paling deket dengan anda. Lalu join aja.

Akses ke wifi :

jenis :

secure, artinya untuk dapat mengakses kita harus memasukkan password

unsecure, artinya kita bisa mengakses wifi tanpa harus mengisikan password, jd langsung konek.

Yang unsecure, kadang juga tidak bisa mengakses internet walau bisa konek ke jaringan. Hal ini karena ada pengaturan IP. Untuk server yang menggunakan ip dinamik, maka kita tidak usah pusing dengan ip, karena ip sdh otomatis dimasukkan oleh server ke klien (computer kita).

Untuk server yang menggunakan static ip, maka kita harus secara manual memasukkan ip untuk computer/laptop kita.

Jika kita bisa konek ke wifi tp tidak bisa akses internet, cobalah ubah ip laptop kita. Caranya :

* klik kanan icon wifi di bawah kanan layar
* pilih properties
* pilih Advanced
* pada bagian connection pilih Internet Protocol (TCP/IP)
* pilih static ip
* pada ip isi : 192.168.0.212
* pada Net Mask isi : 255.255.255.0
* pada getway isi : 192.168.0.1
* pada dns server isi : 192.168.0.1
* klik ok.

Selasa, 26 Oktober 2010

Microcontroller Progremer Membuat Robot Sederhana

Tahap-tahap pembuatan robot

Secara garis besar, tahapan pembuatan robot dapat dilihat pada gambar berikut:
tutorial membuat robot cerdas tahapan pembuatan
Ada tiga tahapan pembuatan robot, yaitu:
  1. Perencanaan, meliputi: pemilihan hardware dan design.
  2. Pembuatan, meliputi pembuatan mekanik, elektonik, dan program.
  3. Uji coba.

1. Tahap perencanan

Dalam tahap ini, kita merencanakan apa yang akan kita buat, sederhananya, kita mau membuat robot yang seperti apa? berguna untuk apa? Hal yang perlu ditentukan dalam tahap ini:
  • Dimensi, yaitu panjang, lebar, tinggi, dan perkiraan berat dari robot. Robot KRI berukuran tinggi sektar 1m, sedangkan tinggi robot KRCI sekitar 25 cm.
  • Struktur material, apakah dari alumunium, besi, kayu, plastik, dan sebagainya.
  • Cara kerja robot, berisi bagian-bagian robot dan fungsi dari bagian-bagian itu. Misalnya lengan, konveyor, lift, power supply.
  • Sensor-sensor apa yang akan dipakai robot.
  • Mekanisme, bagaimana sistem mekanik agar robot dapat menyelesaikan tugas.
  • Metode pengontrolan, yaitu bagaimana robot dapat dikontrol dan digerakkan, mikroprosesor yanga digunakan, dan blok diagram sistem.
  • Strategi untuk memenangkan pertandingan, jika memang robot itu akan diikutkan lomba/kontes robot Indonesia/Internasional.

2. Tahap pembuatan

Ada tiga perkerjaan yang harus dilakukan dalam tahap ini, yaitu pembuatan mekanik, elektronik, dan programming. Masing-masing membutuhkan orang dengan spesialisasi yang berbeda-beda, yaitu:
  • Spesialis Mekanik, bidang ilmu yang cocok adalah teknik mesin dan teknik industri.
  • Spesialis Elektronika, bidang ilmu yang cocok adalah teknik elektro.
  • Spesialis Programming, bidang ilmu yang cocok adalah teknik informatika.
Jadi dalam sebuah tim robot, harus ada personil-personil yang memiliki kemampuan tertentu yang saling mengisi. Hal ini diperlukan dalam membentuk Tim Kontes Robot Indonesia (KRI) atau Kontes Robot Cerdas Indonesia (KRCI). Bidang ilmu yang saya sebutkan tadi, tidak harus diisi mahasiswa/alumni jurusan atau program studi tersebut, misalnya boleh saja mahasiswa jurusan teknik mesin belajar pemrograman.
Untuk mengikuti lomba KRI/KRCI dibutuhkan sebuah tim yang solid. Tetapi buat Anda yang tertarik membuat robot karena hobby atau ingin belajar, semua bisa dilakukan sendiri, karena Anda tidak terikat dengan waktu atau deadline. Jadi Anda bisa melakukannya dengan lebih santai.
Pembuatan mekanik
Setelah gambaran garis besar bentuk robot dirancang, maka rangka dapat mulai dibuat. Umumnya rangka robot KRI terbuat dari alumunium kotak atau alumunium siku. Satu ruas rangka terhubung satu sama lain dengan keling alumunium. Keling adalah semacam paku alumunium yang berguna untuk menempelkan lembaran logam dengan erat. Rangka robot KRCI lebih variatif, bisa terbuat dari plastik atau besi panjang seperti jeruji.
Pembuatan sistem elektronika
Bagian sistem elektronika dirancang sesuai dengan fungsi yang diinginkan. Misalnya untuk menggerakkan motor DC diperlukan h-brigde, sedangkan untuk menggerakkan relay diperlukan saklar transistor. Sensor-sensor yang akan digunakan dipelajari dan dipahami cara kerjanya, misalnya:
  1. Sensor jarak, bisa menggunakan SRF04, GP2D12, atau merakit sendiri modul sensor ultrasonik atau inframerah.
  2. Sensor arah, bisa menggunakan sensor kompas CMPS03 atau Dinsmore.
  3. Sensor suhu, bisa menggunakan LM35 atau sensor yang lain.
  4. Sensor nyala api/panas, bisa menggunakan UVTron atau Thermopile.
  5. Sensor line follower / line detector, bisa menggunakan led & photo transistor.
Berikut ini gambar sensor ultrasonik, inframerah, UVTron, dan kompas:
tutorial membuat robot cerdas srf 04tutorial membuat robot cerdas gp2d12kompas CMPS03
Pembuatan sistem elektronika ini meliputi tiga tahap:
  • Design PCB, misalnya dengan program Altium DXP.
  • Pencetakan PCB, bisa dengan Proboard.
  • Perakitan dan pengujian rangkaian elektronika.
tutorial membuat robot cerdas design pcb
Pembuatan Software/Program
Pembuatan software dilakukan setelah alat siap untuk diuji. Software ini ditanamkan (didownload) pada mikrokontroler sehingga robot dapat berfungsi sesuai dengan yang diharapkan.
tutorial membuat robot cerdas pemrograman
Tahap pembuatan program ini meliputi:
  1. Perancangan Algoritma atau alur program
    Untuk fungsi yang sederhana, algoritma dapat dibuat langsung pada saat menulis program. Untuk fungsi yang kompleks, algoritma dibuat dengan menggunakan flow chart.
  2. Penulisan Program
    Penulisan program dalam Bahasa C, Assembly, Basic, atau Bahasa yang paling dikuasai.
  3. Compile dan download, yaitu mentransfer program yang kita tulis kepada robot. 
3. Uji coba
Setelah kita mendownload program ke mikrokontroler (otak robot) berarti kita siap melakukan tahapan terakhir dalam membuat robot, yaitu uji coba. Untuk KRCI, ujicoba dilakukan pada arena seluas sekitar 4×4 meter dan berbentuk seperti puzzle. Dalam arena KRCI ini diletakkan lilin-lilin yang harus dipadamkan oleh robot cerdas pemadam api. Contoh gambar robot pemadam api Ted Larsorn dan arena Kontes Robot Cerdas Indonesia (KRCI)
.

Mikrotik By Crew pustekom unisla

Konfigurasi Client Internet service provider Unisla.net
LAN —>Router Mikrotik ----->Radio wifi------>Internet Unisla.net  Untuk LAN, kita menggunakan ip address class C, dengan network 192.168.1.0/24. Untuk Mikrotik RouterOS, kita perlu dua ethernet card. Satu (ether1 - 192.168.1.2/24) untuk sambungan ke Modem ADSL dan satu lagi (ether2 - 192.168.1.1/24) untuk sambungan ke LAN. Untuk Modem ADSL, IP kita set 192.168.1.1/24.

Sebelum mengetikkan apapun, pastikan Anda telah berada pada root menu dengan mengetikkan “/”
1.interface set name ether1=lan
1.interface set name ether1=wan
Set ip addres
Ip addres add addres 192.168.2.2/24 interface=wan
Ip addres add addres 192.168.1.2/24 interface=lan
Untuk menampilkan Configurasi Di atas kita ketik
"ip address print"
Kemudian lakukan testing dengan mencoba nge-ping ke gateway atau ke komputer yg ada pada LAN. Jika hasilnya sukses, maka konfigurasi IP Anda sudah benar
ping 192.168.2.1
ping 192.168.10.10
2. Menambahkan Routing
ip route add gateway=192.168.2.1
3. Setting DNS
ip dns set primary-dns=202.134.1.10 allow-remote-requests=yes
ip dns set secondary-dns=202.134.0.155 allow-remote-requests=yes
Karena koneksi ini menggunakan Speedy dari Telkom, maka DNS yg aq pake ya punya Telkom. Silahkan sesuaikan dengan DNS provider Anda.
Setelah itu coba Anda lakukan ping ke yahoo.com misalnya:
ping yahoo.com
Jika hasilnya sukses, maka settingan DNS sudah benar
4. Source NAT (Network Address Translation) / Masquerading
Agar semua komputer yg ada di LAN bisa terhubung ke internet juga, maka Anda perlu menambahkan NAT (Masquerade) pada Mikrotik.
ip firewall nat add chain=srcnat action=masquerade out-interface=wan
Sekarang coba lakukan ping ke yahoo.com dari komputer yang ada di LAN
ping yahoo.com
Jika hasilnya sukses, maka setting masquerade sudah benar
5. DHCP (Dynamic Host Configuration Protocol)
Karena alasan supaya praktis, temenku pengin pake DHCP Server. Biar klo tiap ada klien yang konek, dia ga perlu setting IP secara manual. Tinggal obtain aja dari DHCP Server, beres dah. Untungnya Mikrotik ini juga ada fitur DHCP Servernya. Jadi ya ga ada masalah..
* Membuat IP Address Pool
ip pool add name=dhcp-pool ranges=192.168.0.2-192.168.0.254
* Menambahkan DHCP Network
ip dhcp-server network add address=192.168.10.0/24 gateway=192.168.10.1 dns-server=202.134.1.10,202.134.0.155
* Menambahkan Server DHCP
ip dhcp-server add name=DHCP_LAN disabled=no interface=ether2 address-pool=dhcp-pool
Sekarang coba lakukan testing dari komputer klien, untuk me-request IP Address dari Server DHCP. Jika sukses, maka sekali lagi, settingannya udah bener
6. Management Bandwidth
Agar semua komputer klien pada LAN tidak saling berebut bandwidth, maka perlu dilakukan yg namanya bandwidth management atau bandwidth control, idea: (saya menggunakan simple que supaya lebih mudah ;
queue simple add name=”Billing” target-address=192.168.10.2/32 dst-address=0.0.0.0/0 interface=Local queue=default priority=8 limit-at=16000/32000 max-limit=16000/64000
queue simple add name=”Kasir” target-addresses=192.168.10.3/32 dst-address=0.0.0.0/0 interface=Local parent=Shaping priority=8 queue=default/default limit-at=0/8000 max-limit=0/256000 total-queue=default
Lanjutkan perintah tersebut untuk semua client yang ingin di limit bnadwithnya.
7. Graphing
Mikrotik ini juga dilengkapi dengan fungsi monitoring traffic layaknya MRTG biasa. Jadi kita bisa melihat berapa banyak paket yg dilewatkan pada PC Mikrotik kita.
tool graphing set store-every=5min
Berikutnya yang akan kita monitor adalah paket² yg lewat semua interface yg ada di PC Mikrotik kita, klo di komputerku ada ether1 dan ether2.
tool graphing interface add interface=all store-on-disk=yes
Sekarang coba arahkan browser anda ke IP Router Mikrotik. Klo aq di sini:
http://192.168.10.1/graphs/
Nanti akan ada pilihan interface apa aja yg ada di router Anda. Coba klik salah satu, maka Anda akan bisa melihat grafik dari paket2 yg lewat pada interface tersebut.

ini bersumber dari Rifaiz G Cupu 
thanks

Absen Mahasiswa










Jika Anda berminat silahkan download klik disini

Penjualan Barang Menggunakan Visual Basic





























Penjualan Data Barang sederhana.
Jika berminat silahkan download klik disini

Tutorial Membuat File DLL Cheat Point Blank

Alat yang di butuhkan :
* Visual C++ 2008 Express Edition (free)
* Injector (Bebas)

Adapun target game yang ada dalam tutorial ini adalah Point Blank, dengan contoh hack misi mayor.
Silakan ikuti langkah-langah di bawah ini:
1. Jalankan Visual C++ 2008 Express Edition, buat sebuah project dengan cara akses menu File – New – Project atau dengan menekan tombol CTRL + SHIFT + N. gambar 1
2. Pada jendela New Project, pilih Empty Project (1) pada bagian Templates, kemudian pada kolom Name masukkan nama project (2) dan klik tombol OK (3) gambar 2
3. Project telah berhasil dibuat. Pada bagian Solution Explorer, klik kanan pada nama project (1), kemudian pilih menu Properties (2).gambar 3
4. Jendela project properties akan tampil. Pada tree menu sebelah kiri, pilih Configuration Properties (1), kemudian bagian opsi Project Defaults, ubah opsi Configuration Type menjadi Dynamic Library (.dll) (2), kemudian tekan tombol OK (3) untuk melakukan perubahan. gambar 4
5. Pada jendela Add New Item yang tampil, pada bagian templates pilih C++ File (.cpp) (1), beri nama ‘Main.cpp’ (2) pada bagian kolom Name, kemudian tekan tombol OK (3). gambar 5
6. Sebuah file bernama ‘Main.cpp’ berhasil dibuat. Silakan masukkan kode-kode di bawah ini pada file tersebut, kemudian simpan (save). gambar 6
7. Berikutnya adalah membuat sebuah file bernama Main.cpp untuk memasukkan kode-kode utama, dengan cara pilih direktori Source Files (1) pada bagian Solution Explorer, kemudian klik menu ProjectAdd New Item (2) atau dengan menekan tombol CTRL + SHIFT + A. gambar 7
#define _CRT_SECURE_NO_WARNINGS
#include 3windows.h3 ganti 3 dengan <......... >
#include 3tlhelp32.h3 ganti 3 dengan <......... >
// definisikan variable dengan ‘window title’, ‘window classname’ dan modul
char *pProcessWindowTitle = “Point Blank”;
char *pProcessWindowClass = “I3VIEWER”;
char *pProcessModuleName = “PointBlank.i3Exec”;
// etc…
UINT_PTR uipUserRankValue = 35; // major? :D
UINT_PTR uipUserPointsValue = 999999; // OMG!
UINT_PTR uiptrFinalRank, uiptrFinalPoints;
bool isInitMmhMemory = true;
DWORD dwProcessID;
UINT_PTR uipMmhBaseAddress;
HANDLE hProcess;
DWORD GetModuleBase(LPSTR lpModuleName, DWORD dwProcessId)
{
MODULEENTRY32 lpModuleEntry = {0};
HANDLE hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, dwProcessId);
if(!hSnapShot)
return NULL;
lpModuleEntry.dwSize = sizeof(lpModuleEntry);
BOOL bModule = Module32First( hSnapShot, &lpModuleEntry );
while(bModule)
{
if(!strcmp( lpModuleEntry.szModule, lpModuleName ) )
{
CloseHandle(hSnapShot);
return (DWORD)lpModuleEntry.modBaseAddr;
}
bModule = Module32Next( hSnapShot, &lpModuleEntry );
}
CloseHandle( hSnapShot );
return NULL;
}
// DeRef() = credit L. Spiro (MHS)
UINT_PTR DeRef( UINT_PTR _uiptrPointer ) {
UINT_PTR uiptrRet;
if (!::ReadProcessMemory(hProcess, reinterpret_cast(_uiptrPointer), &uiptrRet, sizeof(uiptrRet), NULL)) { return 0UL; }
return uiptrRet;
}
// inisialisasi proses
void InitApplicationProcess()
{
bool isFindWindow = true;
HWND hWnd = NULL;
while(isFindWindow)
{
if((hWnd = FindWindowA(pProcessWindowClass, pProcessWindowTitle)) != NULL) // jika window ditemukan
{
isFindWindow = false;
}
Sleep(500);
}
GetWindowThreadProcessId(hWnd, &dwProcessID);
hProcess = OpenProcess(PROCESS_ALL_ACCESS|PROCESS_VM_OPERATION|PROCESS_VM_READ|PROCESS_VM_WRITE|PROCESS_QUERY_INFORMATION, FALSE, dwProcessID);
}
void MajorMissionHack()
{
if(isInitMmhMemory)
{
uipMmhBaseAddress = GetModuleBase(pProcessModuleName, dwProcessID);
// misal: pointer yang didapat = PointBlank.i3Exec+00471234 dengan offset 0xA12, tuliskan seperti di bawah!
uiptrFinalRank = DeRef(uipMmhBaseAddress + 0x4XXXXX) + 0xXXX; // User rank pointer – masked, untuk address & offset-nya.
uiptrFinalPoints = DeRef(uipMmhBaseAddress + 0x4XXXXX) + 0xXXX; // User points pointer – masked, untuk address & offset-nya.
isInitMmhMemory = false;
}
// WriteProcessMemory pada pointer ‘rank’, berikan nilai uipUserRankValue (35)
::WriteProcessMemory(hProcess, reinterpret_cast(uiptrFinalRank), &uipUserRankValue, sizeof(uipUserRankValue), NULL);
// WriteProcessMemory pada pointer ‘points’, berikan nilai uipUserPointsValue (999999) LOL!
::WriteProcessMemory(hProcess, reinterpret_cast(uiptrFinalPoints), &uipUserPointsValue, sizeof(uipUserPointsValue), NULL);
}
void LovelyLoopy()
{
// ok, berikan salam dulu! :D
MessageBox(0, “DLL berhasil di-inject. Lanjutkan!”, “Hello World”, MB_OK + MB_ICONASTERISK);
InitApplicationProcess();
while(1) // loop selamanya :D
{
if(GetAsyncKeyState(VK_F12)&1) // jika F12 ditekan
{
MajorMissionHack(); // panggil fungsi ‘MajorMissionHack()’
Sleep(500);
}
Sleep(1);
}
}
BOOL WINAPI DllMain(HMODULE hDll, DWORD dwReason, LPVOID lpReserved)
{
DisableThreadLibraryCalls(hDll);
if(dwReason == DLL_PROCESS_ATTACH)
{
CreateThread(NULL, NULL, (LPTHREAD_START_ROUTINE)LovelyLoopy, NULL, NULL, NULL);
}
else if(dwReason == DLL_PROCESS_DETACH)
{
CloseHandle(hProcess);
}
return TRUE;
}
8. Jika kode sudah disimpan (save), langkah berikutnya adalah membentuk file DLL-nya dengan cara klik menu Build – Build Solution atau dengan menekan tombol F7.gambar 8
9. Setelah proses build solution, pada jendela Output akan menampilkan hasil dari proses compile/build tersebut, jika tidak ada kesalahan (error) berarti kode-kode sudah benar dan file DLL sudah terbentuk. Jika ternyata ada kesalahan (error), silakan periksa langkah-langkah sebelumnya jika ada yang terlewatkan. gambar 9.
10. Kemudian buka direktori tempat project anda disimpan, dalam tutorial ini ane simpan di direktori D:\!PROJECTS!\SukaSukaEnte dan buka direktori yang bernama Debug di dalamnya (sesuaikan letak direktori anda).Bisa kita lihat ada beberapa file yang terbentuk, namun yang kita perlukan hanyalah file yang berekstensi .dll, karena file tersebut yang akan kita injeksikan ke proses program/game. Agar tidak membingungkan, sekaligus ane copy-kan file injector-nya (x1nject.exe) ke direktori tersebut. gambar 10
11. Kemudian jalankan injector (x1nject.exe), ubah pada kolom ‘What to inject’ dengan nama proses program/game, (contoh: PointBlank.exe), pada bagian ‘Add to injection list’ tambahkan file .dll yang telah kita buat dengan menekan tombol Browse dan cari pada direktori Debug project kita. Gambar 11
12. Star PB, Berikutnya kita coba hack misi mayor yang telah kita buat (lihat fungsi LovelyLoopy() dan MajorMissionHack() pada kode untuk lebih jelas), dengan menekan tombol F12 pada keyboard

NB:
1. Untuk melihat penjelasan gambar ss silahkan cari link ini http://www.ziddu.com/download/11576996/gambarbelajardll.rar.html
2. Pointer & offset pada fungsi MajorMissionHack( ) sengaja tidak tampilkan atau cari sendiri sendiri, Silakan dimodifikasi jika ingin menambahkan fungsi-fungsi lainnya (unlimited ammo, grenade dsb).
3. Jika tidak bisa running (no action) di OS Windows XP, ternyata ada kesalahan pada argumen fungsi API OpenProcess()
silakan jika anda menggunakan OS Windows XP, ubah kode pada bagian:
hProcess=OpenProcess(PROCESS_ALL_ACCESS|PROCESS_VM_OPERATION|PROCESS_VM_READ|PROCESS_VM_WRITE|PROCESS_QUERY_INFORMATION, FALSE, dwProcessID);
Menjadi
hProcess=OpenProcess(PROCESS_VM_OPERATION|PROCESS_VM_READ|PROCESS_VM_WRITE|PROCESS_QUERY_INFORMATION, FALSE, dwProcessID);
4.Marilah kita belajar bersama
Argumen PROCESS_ALL_ACCESS hanya bisa dilakukan di OS Vista dan Windows 7, sementara di Windows XP tidak bisa

Membuat Injektor Cheat Point Blank dengan Visual Basic









Alat yang diperlukan untuk Tutorial Cara Membuat Injector :
- Microsoft Visual Basic 6 (VB6), bisa portable atau instalable,

Langkah-Langkah Tutorial Cara Membuat Injector:
Buka vb6, saat pertama kali dibuka atau dijalankan akan muncul kotak dialog, salah satunya standard exe, pilih standard exe dan klik open, secara tidak langsung membuat project baru dengan 1 form.


Option Explicit
&#039;Win 2k, ME, XP
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_LAYERED As Long = &amp;H80000
Private Const LWA_ALPHA As Long = &amp;H2
Private winHwnd As Long
Private NamaDll As String
Private Declare Function GetWindowLongA Lib &quot;USER32&quot; (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib &quot;USER32&quot; (ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib &quot;USER32&quot; (ByVal hwnd As Long, _
ByVal crey As Byte, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As Long
Private Sub silakandiedit()
&#039;—————————————————————
&#039; silakan diedit bagian kode dibawah ini
&#039;—————————————————————
Me.Caption = &quot;isisesukamu&quot; &#039;pengaturan caption atau nama injector
Opacity 150, Me &#039;pengaturan transparent form MinVal = 20: MaxVal = 255
NamaDll = App.Path &amp; &quot;\&quot; &amp; &quot;suntix.dll&quot; &#039;isikan nama library, contoh: suntix.dll
FileTarget = &quot;PointBlank.exe&quot;
Timer1.Interval = 20 &#039;interval untuk timer
&#039;—————————————————————-
End Sub
&#039;fungsi transparent form
Private Sub Opacity(Value As Byte, _
Frm As Form)
Dim MaxVal As Byte
Dim MinVal As Byte
On Error GoTo ErrorHandler
MinVal = 20
MaxVal = 255
If Value &gt; MaxVal Then
Value = MaxVal
End If
If Value &lt; MinVal Then
Value = MinVal
End If
SetWindowLongA Frm.hwnd, GWL_EXSTYLE, GetWindowLongA(Frm.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes Frm.hwnd, 0, Value, LWA_ALPHA
ErrorHandler:
Exit Sub
End Sub
Private Sub Form_Load()
App.TaskVisible = False &#039;hidden aplikasi dari window taskmanager terserah mau true/false
&#039;tetapi tidak hidden di process
&#039;perintah menghindari aplikasi dijalankan 2 kali
&#039;pada saat yg bersamaan
&#039;—————————————-
If App.PrevInstance Then
End
End If
&#039;—————————————-
silakandiedit &#039;–&gt; memanggil perintah pada –&gt;&gt; Private Sub silakandiedit()
End Sub
Private Sub Timer1_Timer()
winHwnd = FindWindow(vbNullString, &quot;HSUpdate&quot;) &#039;mencari jendela hsupdate
If Not winHwnd = 0 Then &#039;jika ditemukan
NTProcessList &#039;deteksi process pointblank
InjectExecute (NamaDll) &#039;inject library
End &#039;tutup otomatis injector
Else &#039;jika tidak
Label1.Caption = &quot;Waiting NamaGame…&quot; &#039;sabar menanti
End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
OpenURL &quot;http://www.blogkamu&quot;, Me.hwnd
End Sub
tahap selanjutnya buat 3 modul, ingat modul atau modules bukan class. berinama modul pertama dengan nama modinjection, modul kedua dengan nama modprocess, dan modul ketiga dengan nama modbrowser. tambahkan kode2 berikut pada masing2 modul.
Untuk Kode Injekson
Option Explicit
Private Declare Function GetProcAddress Lib &quot;kernel32&quot; (ByVal hModule As Long, _
ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib &quot;kernel32&quot; Alias &quot;GetModuleHandleA&quot; (ByVal lpModuleName As String) As Long
Private Declare Function LoadLibrary Lib &quot;kernel32&quot; Alias &quot;LoadLibraryA&quot; (ByVal lpLibFileName As String) As Long
Private Declare Function VirtualAllocEx Lib &quot;kernel32&quot; (ByVal hProcess As Long, _
lpAddress As Any, _
ByVal dwSize As Long, _
ByVal fAllocType As Long, _
flProtect As Long) As Long
Private Declare Function WriteProcessMemory Lib &quot;kernel32&quot; (ByVal hProcess As Long, _
ByVal lpBaseAddress As Any, _
lpBuffer As Any, _
ByVal nSize As Long, _
lpNumberOfBytesWritten As Long) As Long
Private Declare Function CreateRemoteThread Lib &quot;kernel32&quot; (ByVal ProcessHandle As Long, _
lpThreadAttributes As Long, _
ByVal dwStackSize As Long, _
ByVal lpStartAddress As Any, _
ByVal lpParameter As Any, _
ByVal dwCreationFlags As Long, _
lpThreadID As Long) As Long
Private Declare Sub Sleep Lib &quot;kernel32&quot; (ByVal dwMilliseconds As Long)
Public Sub InjectDll(DllPath As String, _
ProsH As Long)
Dim DLLVirtLoc As Long
Dim DllLength As Long
Dim inject As Long
Dim LibAddress As Long
Dim CreateThread As Long
Dim ThreadID As Long
Dim Bla As VbMsgBoxResult
g_loadlibary:
LibAddress = GetProcAddress(GetModuleHandle(&quot;kernel32.dll&quot;), &quot;LoadLibraryA&quot;)
If LibAddress = 0 Then
Bla = MsgBox(&quot;Can&#039;t find LoadLibrary API from kernel32.dll&quot;, vbYesNo, &quot;ERROR&quot;)
If Bla = vbYes Then
GoTo g_loadlibary
Else &#039;NOT BLA…
Exit Sub
End If
End If
g_virutalallocex:
DllLength = Len(DllPath)
DLLVirtLoc = VirtualAllocEx(ProsH, 0, DllLength, &amp;H1000, ByVal &amp;H4)
If DLLVirtLoc = 0 Then
Bla = MsgBox(&quot;VirtualAllocEx API failed! – try again?&quot;, vbYesNo, &quot;ERROR&quot;)
If Bla = vbYes Then
GoTo g_virutalallocex
Else &#039;NOT BLA…
Exit Sub
End If
End If
g_writepmemory:
inject = WriteProcessMemory(ProsH, ByVal DLLVirtLoc, ByVal DllPath, DllLength, vbNull)
If inject = 0 Then
Bla = MsgBox(&quot;Failed to Write DLL to Process! – try again?&quot;, vbYesNo, &quot;ERROR&quot;)
If Bla = vbYes Then
GoTo g_writepmemory
Else &#039;NOT BLA…
Exit Sub
End If
End If
g_creatthread:
CreateThread = CreateRemoteThread(ProsH, ByVal 0, 0, ByVal LibAddress, ByVal DLLVirtLoc, 0, ThreadID)
If CreateThread = 0 Then
Bla = MsgBox(&quot;Failed to Create Thead! – try again?&quot;, vbYesNo, &quot;ERROR&quot;)
If Bla = vbYes Then
GoTo g_creatthread
Else &#039;NOT BLA…
Exit Sub
End If
End If
MsgBox &quot;Dll Injection Successful!&quot;, vbInformation, &quot;Success&quot;
End Sub
Public Sub InjectExecute(ByVal sFlDLL As String)
Dim lProcInject As Long
lProcInject = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne)
If lProcInject &gt; &quot;0&quot; Then
Call InjectDll(sFlDLL, lProcInject)
End If
Call CloseHandle(lProcInject)
End Sub
untuk kode untuk modprocess
Option Explicit
Public FileTarget As String
Public sFlDLL As String
Public IdTargetOne As Long
Private Const TH32CS_SNAPHEAPLIST As Long = &H1
Private Const TH32CS_SNAPPROCESS As Long = &H2
Private Const TH32CS_SNAPTHREAD As Long = &H4
Private Const TH32CS_SNAPMODULE As Long = &H8
Private Const TH32CS_SNAPALL As Double = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Private Const MAX_PATH As Integer = 260
Public Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Type MODULEENTRY32
dwSize As Long
th32ModuleID As Long
th32ProcessID As Long
GlblcntUsage As Long
ProccntUsage As Long
modBaseAddr As Long
modBaseSize As Long
hModule As Long
szModule As String * 256
szExePath As String * 260
End Type
Private Type THREADENTRY32
dwSize As Long
cntUsage As Long
th32ThreadID As Long
th32OwnerProcessID As Long
tpBasePri As Long
tpDeltaPri As Long
dwFlags As Long
End Type
Private Const THREAD_SUSPEND_RESUME As Long = &H2
Private hThread As Long
Private Declare Function CreateToolhelp32Snapshot Lib “kernel32″ (ByVal lFlags As Long, _
ByVal lProcessID As Long) As Long
Private Declare Function Module32First Lib “kernel32″ (ByVal hSnapShot As Long, _
uProcess As MODULEENTRY32) As Long
Private Declare Function lstrlen Lib “kernel32″ Alias “lstrlenA” (ByVal lpString As String) As Long
Private Declare Function GetFileTitle Lib “COMDLG32.DLL” Alias “GetFileTitleA” (ByVal lpszFile As String, _
ByVal lpszTitle As String, _
ByVal cbBuf As Integer) As Integer
Private Declare Function Thread32First Lib “kernel32.dll” (ByVal hSnapShot As Long, _
ByRef lpte As THREADENTRY32) As Boolean
Private Declare Function Thread32Next Lib “kernel32.dll” (ByVal hSnapShot As Long, _
ByRef lpte As THREADENTRY32) As Boolean
Public Declare Function OpenProcess Lib “kernel32″ (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib “kernel32″ (ByVal hProcess As Long, _
ByVal uExitCode As Long) As Long
Public Declare Function FindWindow Lib “USER32″ Alias “FindWindowA” (ByVal Classname As String, _
ByVal WindowName As String) As Long
Private Declare Function PostMessage Lib “USER32″ Alias “PostMessageA” (ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Function Process32First Lib “kernel32″ (ByVal hSnapShot As Long, _
uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib “kernel32″ (ByVal hSnapShot As Long, _
uProcess As PROCESSENTRY32) As Long
Public Declare Function CloseHandle Lib “kernel32″ (ByVal hObject As Long) As Long
Private Declare Function OpenThread Lib “kernel32.dll” (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Boolean, _
ByVal dwThreadId As Long) As Long
Private Declare Function ResumeThread Lib “kernel32.dll” (ByVal hThread As Long) As Long
Private Declare Function SuspendThread Lib “kernel32.dll” (ByVal hThread As Long) As Long
Public Function NTProcessList() As Long
Dim FileName As String
Dim ExePath As String
Dim hProcSnap As Long
Dim hModuleSnap As Long
Dim lProc As Long
Dim uProcess As PROCESSENTRY32
Dim uModule As MODULEENTRY32
On Error Resume Next
hProcSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
uProcess.dwSize = Len(uProcess)
lProc = Process32First(hProcSnap, uProcess)
Do While lProc
If uProcess.th32ProcessID <> 0 Then
hModuleSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, uProcess.th32ProcessID)
uModule.dwSize = Len(uModule)
Module32First hModuleSnap, uModule
If hModuleSnap > 0 Then
ExePath = StripNulls(uModule.szExePath)
FileName = GetFName(ExePath)
If FileTarget = FileName Then
IdTargetOne = uProcess.th32ProcessID
End If
End If
End If
lProc = Process32Next(hProcSnap, uProcess)
Loop
Call CloseHandle(hProcSnap)
Call CloseHandle(lProc)
On Error GoTo 0
End Function
Private Function StripNulls(ByVal sStr As String) As String
StripNulls = Left$(sStr, lstrlen(sStr))
End Function
Public Function GetFName(fn) As String
Dim f%, n%
GetFName = fn
f% = InStr(fn, “\”)
Do While f%
n% = f%
f% = InStr(n% + 1, fn, “\”)
Loop
If n% > 0 Then GetFName = Mid$(fn, n% + 1)
End Function

Private Function Thread32Enum(ByRef Thread() As THREADENTRY32, _
ByVal lProcessID As Long) As Long
Dim THREADENTRY32 As THREADENTRY32
Dim hThreadSnap As Long
Dim lThread As Long
On Error Resume Next
ReDim Thread(0) As THREADENTRY32
hThreadSnap = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, lProcessID)
THREADENTRY32.dwSize = Len(THREADENTRY32)
If Thread32First(hThreadSnap, THREADENTRY32) = False Then
Thread32Enum = -1
Exit Function
Else
ReDim Thread(lThread) As THREADENTRY32
Thread(lThread) = THREADENTRY32
End If
Do
If Thread32Next(hThreadSnap, THREADENTRY32) = False Then
Exit Do
Else
lThread = lThread + 1
ReDim Preserve Thread(lThread)
Thread(lThread) = THREADENTRY32
End If
Loop
Thread32Enum = lThread
Call CloseHandle(hThreadSnap)
On Error GoTo 0
End Function
untuk kode untuk modbrowser
‘modul buka browser
Public Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Sub OpenURL(situs As String, sourceHWND As Long)
Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1)
End Sub
 

Senin, 25 Oktober 2010

Hack Smadav Menjadi Smadav Pro









lnsung di click ja kotak bertulisan 'patch menjadi pro' ni cuma buat smadav 8.x...
Download Softwernya klik disini

Tambah RAM pake Flashdisk












Komputer terasa lambat karena RAM kecil? Mau beli tambahan RAM duit pas-pasan he....., klo kamu punya flashdisk kamu bisa memanfaatkanya untuk menambah kapasitas RAM komputer anda sehingga kinerja komputer meningkat. Caranya kita hanya membutuhkan sebuah software yaitu eBooster yang dapat di download disini. Install eBooster ke komputer kita kemudian restart, lalu masuk ke eBooster control panel, colok flashdisk anda lalu pilih add.. pada eBooster Control Panel maka secara otomatis sisa memory flashdisk dimanfaatkan sebagai RAM di komputer anda.
Download Softwernya klik disini

Crystal Report 8.5



















Cristal Report 8.5 adalah report yang digunakan untuk menampilkan output (laporan) pada sebuah program semisal visual basic. Setelah browsing di internet, akhirnya dapet juga link download Cristal Report 8.5. Silahkan yang mau download......

Download Crystal Report Part1
Download Crystal Report Part2
Download Crystal Report Part3

Aplikasi Visual Basic
















Aplikasi Karyawan PLN & Browser Visual Basic.

Jika Berminat Silahkan Download  klik disini

Jumat, 22 Oktober 2010

OS Windows XP Bajakan Kita jadikan Asli (Genuine)

Untuk mengetahui Windows XP kita bajakan atau tidak, kita dapat menggunakan tool "Microsoft Genuine Advantage Diagnostic Tool", tool tersebut dapat mendeteksi keaslian Windows XP kita. Yang menjadi pembeda antara Windows XP yang asli (Genuine) dengan Windows XP bajakan adalah Serial Number yang kita gunakan sawaktu menginstall Windows XP tersebut.
Untung mengubah window bajakan kita menggunakan Magicall Jelly BEan Keyinder V1.51.
Microsoft Genuine Advantage Diagnostic Tool
  

















  Magicall Jelly Bean Keyfinder V1.51










Download Softwerenya klik disini