Kamis, 28 Oktober 2010

Korban Tewas Bencana Wasior Jadi 134 Orang

**Banjir Wasior**
Korban akibat bencana banjir bandang di Wasior, Papua Barat, terus bertambah. Hingga pagi ini, korban tewas yang berhasil ditemukan mencapai 134 orang.

Demikian disampaikan Sekretaris PMI Papua Barat Abidin . Dia menjelaskan, korban tewas yang berhasil ditemukan terdiri 105 orang ditambah 29 orang yang dinyatakan hilang sebelumnya dilaporkan sudah ditemukan dengan kondisi telah meninggal dunia. Sehingga, total korban tewas mencapai 134 orang.

"Saat ini terus dilakukan pencarian korban lainnya," ungkap Abidin. Warga, kata dia, sangat membutuhkan pasokan air mineral dan bahan makanan.  "Sumber air rusak, MCK rusak, rumah rusak berat, sehingga butuh air mineral, sanitasi, dan pangan akibat sebagian besar toko tutup karena banyak pengusaha yang mengungsi ke Manokwari," paparnya.

Lebih lanjut dia mengatakan, bantuan terus mengalir namun terkendala transportasi. Saat ini, PMI masih melakukan kegiatan pendataan dan mulai mendistribusikan logistik berupa familykid 250,babykit 90. "Selain itu melakukan penyemprotan di beberapa lokasi," imbuhnya. 

Seperti diketahui, banjir bandang di Papua Barat terjadi pada Senin 4 Oktober 2010 sekira pukul 06.00 WIT. Lokasi kejadian terletak di Kabupaten Teluk Wondama, Provinsi Papua Barat di mana lokasi yang terkena dampak yaitu Wasior I, Wasior II, Rado, Moru, Maniwak, Manggurai, Wondamawi, dan Wondiboy



**Bencana Wasior dan Al-quran surat Ar-rum Ayat 41**

Bencana Wasior, tentunya tidak terlepas dari sebab akibat. Seperti Institut Hijau Indonesia (IHI) mengatakan bahwa, penyebab  banjir di akibatkan deforestasi, kigiatan pertambangan mineral,batubara,minyak dan gas yang berlangsung beberapa tahun terakhir, sehingga mengakibatkan pergerakan tanah di Papua semakin cepat.

Maka, jelas yang terjadi di wasior adalah karena akibat dari tangan-tangan manusia, yang secara zalim merusak Alam ini. Demi hanya   untuk mendapatkan keuntungan peribadinya. Padahal kalau kita kaji lebih dalam, diutusanya kita di dunia ini,  berfungsi sebagai pemberi kedamaian, bagi manusia dan  alam semesta. Karena tanpa Alam mustahil kita bisa melangsungkan kehidupan.

Dalam Al-Quran surat Ar-rum ayat 41, terdapat ancaman dan penegasan Allah. Bahwa, berbagai kerusakan yang terjadi di daratan dan di lautan adalah akibat perbuatan manusia. Hal tersebut hendaknya disadari oleh umat manusia dan karenanya manusia harus segera menghentikan perbuatan-perbuatan yang menyebabkan timbulnya kerusakan di daratan dan di lautan, dan menggantinya dengan perbuatan baik dan bermanfaat untuk kelestarian alam.


Selasa, 26 Oktober 2010

Cara Membuat Anti-Virus Sederhana

Mari kita belajar membuat sebuah AV sederhana, yang diperlukan :

1. Software Visual Basic 6.0
2. Sedikit pemahaman akan pemograman Visual Basic 6.0
3. Sampel file bersih atau virus (– opsional)

First#
Sekarang kita akan belajar membuat sebuah rutin sederhana untuk :
- Memilih file yang akan dicek
- Membuka file tersebut dalam mode binary
- Memproses byte demi byte untuk menghasilkan Checksum

Buka MS-Visual Basic 6.0 anda, lalu buatlah sebuah class module dan Form dengan menambahkan sebuah objek Textbox, CommonDialog dan Command Button. (Objek CommonDialog dapat ditambahkan dengan memilih Project -> COmponent atau Ctrl-T dan memilih Microsoft Common Dialog Control 6.0) Ketikkan kode berikut pada class module (kita beri nama class module tsb clsCrc) :

================= START HERE ====================

Private crcTable(0 To 255) As Long ‘crc32

Public Function CRC32(ByRef bArrayIn() As Byte, ByVal lLen As Long, Optional ByVal lcrc As Long = 0) As Long

‘bArrayIn adalah array byte dari file yang dibaca, lLen adalah ukuran atau size file

Dim lCurPos As Long ‘Current position untuk iterasi proses array bArrayIn
Dim lTemp As Long ‘variabel temp hasil perhitungan

If lLen = 0 Then Exit Function ‘keluar fungsi apabila ukuran file = 0
lTemp = lcrc Xor &HFFFFFFFF

For lCurPos = 0 To lLen
lTemp = (((lTemp And &HFFFFFF00) &H100) And &HFFFFFF) Xor (crcTable((lTemp And 255) Xor bArrayIn(lCurPos)))
Next lCurPos

CRC32 = lTemp Xor &HFFFFFFFF

End Function

Private Function BuildTable() As Boolean
Dim i As Long, x As Long, crc As Long
Const Limit = &HEDB88320

For i = 0 To 255
crc = i
For x = 0 To 7
If crc And 1 Then
crc = (((crc And &HFFFFFFFE) 2) And &H7FFFFFFF) Xor Limit
Else
crc = ((crc And &HFFFFFFFE) 2) And &H7FFFFFFF
End If
Next x
crcTable(i) = crc
Next i
End Function

Private Sub Class_Initialize()
BuildTable
End Sub

================= END HERE ====================

Lalu ketikkan kode berikut dalam event Command1_Click :

================= START HERE ====================

Dim namaFileBuka As String, HasilCrc As String
Dim CCrc As New clsCrc ‘bikin objek baru dari class ClsCrc
Dim calCrc As Long
Dim tmp() As Byte ‘array buat file yang dibaca

Private Sub Command1_Click()
CommonDialog1.CancelError = True ‘error bila user mengklik cancel pada CommonDialog
CommonDialog1.DialogTitle = “Baca File” ‘Caption commondialog

On Error GoTo erorhandle ‘label error handle

CommonDialog1.ShowOpen
namafilbuka = CommonDialog1.FileName
Open namafilbuka For Binary Access Read As #1 ‘buka file yang dipilih dengan akses baca pada mode binary
ReDim tmp(LOF(1) - 1) As Byte ‘deklarasi ulang untuk array, # Bugs Fixed #
Get #1, , tmp()
Close #1

calCrc = UBound(tmp) ‘mengambil ukuran file dari array
calCrc = CCrc.CRC32(tmp, calCrc) ‘hitung CRC

HasilCrc = Hex(calCrc) ‘diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric
Text1.Text = HasilCrc ‘tampilkan hasilnya
Exit Sub

erorhandle:
If Err.Number <> 32755 Then MsgBox Err.Description ‘error number 32755 dalah bila user mengklik tombol cancel pada saat memilih file

================= END HERE ====================

COba anda jalankan program diatas dengan memencet tombol F5, lalu klik Command1 untuk memilih dan membuka file. Maka program akan menampilkan CRC32nya.

Second#
Kode diatas dapat kita buat menjadi sebuah rutin pengecekan file suspect virus dengan antara membandingkan hasil CRC32nya dan database CRC kita sendiri. Algoritmanya adalah :
- Memilih file yang akan dicek
- Membuka file tersebut dalam mode binary
- Memproses byte demi byte untuk menghasilkan Checksum
- Buka file database
- Ambil isi file baris demi baris
- Samakan Checksum hasil perhitungan dengan checksum dari file

Format file database dapat kita tentukan sendiri, misal :
- FluBurung.A=ABCDEFGH
- Diary.A=12345678
Dimana FluBurung.A adalah nama virus dan ABCDEFGH dalah Crc32nya. Jika kita mempunyai format file seperti diatas, maka kita perlu membaca file secara sekuensial per baris serta memisahkan antara nama virus dan Crc32nya. Dalam hal ini yang menjadi pemisah adalah karakter ‘=’.
Buat 1 module baru (– diberi nama module1) lalu isi dengan kode :

================= START HERE ====================

Public namaVirus As String, CrcVirus As String ‘deklarasi variabel global untuk nama dan CRC virus Public pathExe as String ‘deklarasi variabel penyimpan lokasi file EXE AV kita

Public Function cariDatabase(Crc As String, namaFileDB As String) As Boolean
Dim lineStr As String, tmp() As String ‘variabel penampung untuk isi file
Open namaFileDB For Input As #1 ‘buka file dengan mode input
Do
Line Input #1, lineStr
tmp = Split(lineStr, “=”) ‘pisahkan isi file bedasarkan pemisah karakter ‘=’
namaVirus = tmp(0) ‘masukkan namavirus ke variabel dari array
CrcVirus = tmp(1) ‘masukkan Crcvirus ke variabel dari array
If CrcVirus = Crc Then ‘bila CRC perhitungan cocok/match dengan database
cariDatabase = True ‘kembalikan nilai TRUE
Exit Do ‘keluar dari perulangan
End If
Loop Until EOF(1)
Close #1
End Function

================= END HERE ====================

Lalu tambahkan 1 objek baru kedalam Form, yaitu Command button2. lalu ketikkan listing kode berikut kedalam event Command2_Click :

================= START HERE ====================
If Len(App.Path) <= 3 Then ‘bila direktori kita adalah root direktori
pathEXE = App.Path
Else
pathEXE = App.Path & “”
End If

CommonDialog1.CancelError = True ‘error bila user mengklik cancel pada CommonDialog
CommonDialog1.DialogTitle = “Baca File” ‘Caption commondialog

On Error GoTo erorhandle ‘label error handle

CommonDialog1.ShowOpen
namafilbuka = CommonDialog1.FileName
Open namafilbuka For Binary Access Read As #1 ‘buka file yang dipilih dengan akses baca pada mode binary
ReDim tmp(LOF(1) - 1) As Byte ‘deklarasi ulang untuk array # Bugs Fixed #
Get #1, , tmp()
Close #1

calCrc = UBound(tmp) ‘mengambil ukuran file dari array
calCrc = CCrc.CRC32(tmp, calCrc) ‘hitung CRC

HasilCrc = Hex(calCrc) ‘diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric
If cariDatabase(HasilCrc, pathEXE & “DB.txt”) Then ‘bila fungsi bernilai TRUE
MsgBox “Virus ditemukan : ” & namaVirus ‘tampilkan message Box
End If
Exit Sub

erorhandle:
If Err.Number <> 32755 Then MsgBox Err.Description ‘error number 32755 dalah bila user mengklik tombol cancel pada saat memilih file

================= END HERE ====================

Trik Internetan Gratis Dengan IM3

alow teman2 semuanya…. sekarang gak jamannya lagi kalo main internet di hp bayar lagi….. atau malahan ada orang yang mengeluarkan uang buat ngenet di hp sampai puluhan ribu rupiah……. Waaaaahhhhh gak jamannya lagi dech……
buka facebook sampe pagi and 24 jam dalam sehari… gak bakalan dipotong pulsanya 1 perakpun…..
dijamin……
begini nich…. Sekarang internetan pake im3 bisa gratis….(dijamin dech…) tapi dengan trik trik khusus….
tapi sayangnya…. setelah penulis melakukan pengetesan….. hanya berjalan di hp sonyericsson saja…… Langsung aja dech…. Pasti semuanya udah gak sabaran khan……huehuehue 
1.beli dulu kartu im3nya (khusus buat yang blon punya kartu im3) “bukan promosi loh”
2.tancepin tuh kartu im3 di hp kamu.
3.idupin hp kamu….
4.setting im3 gprs dan im3 mms…..
5.pastikan im3 gprs dan im3 mms kamu sudah aktif….. INI WAJIB..
6.lalu kamu pake settingan im3 mms di hp kamu buat browing…..
7.truz… buka browser kamu…..
8.dan SELAMAT BERINTERNET RIA LEWAT HANDPHONE KAMU DECH…..dan jangan ampe lupa waktu yaaaa…….. tuh… dah aku kasi tau tentang rahasia internet gratis dari im3 yang sebenarnya (TERBUKTI !!!!!!!!) JADI,… GAK JAMANNYA LAGI KALO MESTI PAKE PULSA INTERNETAN PAKE IM3…… Semua yang punya kelebihan pasti memiliki kekurangan …. Apa sajakah kekurangan itu …. Mari kita bahas semuanya :
1.pada saat koneksi menggunakan browser di hp kamu….. itu memang agak susah masuknya… tapi kamu wajib coba teruz…..dan setelah tersambung, truz selanjutnya, dijamin gratis tis tis tis tis tis dech… ampe puassssss…….
2.cara dan trik ini tidak dapat membuka aplikasi yang menggunakan gprs /3g…. contohnya : YM di hp, ebuddy, dan lain sebagainya kesimpulan :
jadi cara ini adalah menuntun kita agar bisa berinternet ria dengan gratis tis tis tis tis tis….. tanpa pake pulsa 1 perakpun dan dengan cara ini kita tidak dapat membuka dan menjalankan aplikasi yang membutuhkan gprs untuk koneksinya…….. dan sejauh ini, daya rasa teman – teman sudah cukup mengerti tentang trik dan cara ini….. dan setelah teman – teman membaca artikel ini, mohon tinggalkan komentarnya dibawah yaaaa………… keyword : internet gratis , im3 , stifarm , update internet gratis via handphone , silahkan dicoba,

Kamis, 21 Oktober 2010

Cara Buat Blogger (Tutorial)

Membuat Blog Itu Mudah

Pada Lensa ini Anda akan dipandu membuat blog dari blogger.com. Anda akan mampu membuat blog tanpa perlu berdiri terlebih dari kursi Anda saat ini, karena sangat mudahnya.

Langkah 1: Daftar Google 

Daftarkan Diri Anda di Google

Lho koq? Koq di Google? Katanya mau ngajarin bikin blog di blogger.com, koq malah di Google? Tidak salah, karena untuk masuk ke blogger, Anda harus memiliki login google.com.

Silahkan kunjungi http://www.blogger.com. Anda akan mendapatkan halaman seperti pada gambar dibawah.

Jika Anda sudah memiliki login di Google, Anda tinggal login, maka Anda akan masuk ke Control Panel atau Panel Kontrol.

Oh ya, Anda bisa memilih bahasa, apakah Bahasa Indonesia atau bahasa Inggris.

Untuk kali ini saya anggap Anda belum memiliki login Google.

Klik tanda panah besar yang bertuliskan CIPTAKAN BLOG ANDA.

Sejauh ini sangat mudah dan akan terus mudah.
Halaman Pertama

Langkah 2: Daftar Blog 

Lengkapi Pendaftaran Anda

Setelah Anda klik tanda panah besar yang bertuliskan CIPTAKAN BLOG ANDA, maka akan muncul formulir seperti yang ada pada gambar dibawah ini.

Proses ini akan menciptakan account Google yang dapat Anda gunakan pada layanan Google lainnya. Jika Anda sudah memiliki sebuah account Google mungkn dari Gmail, Google Groups, atau Orkut.

Satu account Google bisa digunakan untuk mengakses semua fasilitas yang disediakan oleh Google.

Jika Anda sudah memiliki accout google, Anda bisa langsung login (masuk). Untuk login ke Google, Anda harus login dengan menggunakan alamat email.

Silahkan lengkapi.

1. Alamat email yang Anda masukan harus sudah ada sebelumnya. Anda akan dikirim konfirmasi ke email tersebut. Jika Anda menggunakan email palsu atau email yang baru rencana akan dibuat, maka pendaftaran bisa gagal. Anda tidak perlu menggunakan email gmail.com. Email apa saja bisa.

2. Lengkapi data yang lainnya.

3. Tandai "Saya menerima Persyaratan dan Layanan" sebagai bukti bahwa Anda setuju. BTW Anda sudah membacanya?

Setelah lengkap, klik tanda panah yang bertuliskan lanjutkan.
Form Pendaftaran 1
Form Pendaftaran 2

Langkah 3: Membuat Blog 

Memilih Nama Blog dan URL Blog

Jika Anda berhasil, Anda akan dibawa ke halaman seperti pada gambar dibawah. Jika gagal? Gagal biasanya karena verifikasi kata Anda salah. Itu wajar karena sering kali verifikasi kata sulit dibaca. Yang sabar saja, ulangi sampai benar. Saya sendiri sampai mengulang 3X.

Setelah Anda berhasil mendaftar, Anda akan dibawa ke halaman seperti yang ada pada gambar dibawah. Sekarang Anda mulai membuat blog dengan mengisi nama dan alamat blog Anda.

Sebagai contoh, saya menamakan blog tersebut dengan nama Hasna Zahidah. Sssst, jangan curiga, Hasna adalah putri saya. Saya memilih alamat blog dengan alamat http://hasna-zahidah.blogspot.com
sebagai alaternatif, bisa juga http://hasnazahidah.blogspot.com.

Jika Anda membuat lensa dengan tujuan mempromosikan produk Anda atau produk afiliasi, maka dalam memilih nama, harus berisi nama produk atau jasa yang akan Anda tawarkan. Misalnya jika Anda ingin menjual ebook saya, Anda bisa memilih kata kunci seperti motivasi, sukses, berpikir positif, dan kata-kata kunci lainnya yang sesuai.

Anda juga bisa meneliti kata kunci yang paling banyak dicari orang (tentu harus berhubungan dengan produk yang Anda jual) di
https://adwords.google.com/select/KeywordToolExternal

Anda bisa mengecek ketersediaan alamat blog yang Anda pilih. Jika tersedia bisa Anda lanjutkan. Jika tidak tersedia, maka Anda harus kreatif mencari nama lain atau memodifikasi alamat yang sudah ada, misalnya ditambahkan abc, xzy, 101, dan bisa juga dengan menyisipkan nama Anda.

Lanjutkan dengan klik tanda panah bertuliskan LANJUTKAN.
Proses Pembuatan Blog

Langkah ke 4 Blog Template 

Pilih desain yang sesuai dengan selera Anda.

Berhasil? Tentu saja berhasil, memang mudah koq. Jika berhasil, Anda akan diarahkan ke halaman seperti yang ada pada gambar dibawah.

Pilihlah tema yang sesuai dengan selera Anda. Jika tidak ada yang sesui dengan selera Anda, jangan khawatir, nanti masih banyak pilihan tema yang bisa Anda install sendiri. Sekarang pilih saja tema agar proses pembuatan blog bisa diselesaikan. Anda bisa preview tema dengan klik gambarnya.

Untuk Memilih tema Anda klik (tandai) bulatannya o seperti pada gambar dibawah. Lihat yang saya tunjuk dengan panah merah buatan saya.

Setelah itu Anda klik tanda panah yang bertuliskan LANJUTKAN
Memilih Tema

Belajar Membuat Blog Selesai 

Sekarang tinggal posting, pengaturan, dan tata letak

Selamat, sekarang Anda sudah memiliki sebuah blog. Sekarang Anda sudah mulai bisa memposting pemikiran Anda di blog dan dibagi ke seluruh dunia (eh Indonesia).

Memang masih ada beberapa hal yang harus Anda lakukan, yaitu pengaturan, tata letak, penambahan eleman, dan penggantian tema jika Anda menginginkan tema yang lain. Ini untuk tingkat lanjut.

Setidaknya, Anda sudah memiliki blog dan bisa posting. Hal ini sudah cukup untuk tahap awal. Untuk mendalami masalah Blog lebih dalam, saya anjurkan Anda membaca ebook Nge-Blog Dapat Duit.

Pada ebook tersebut, bukan hanya diajarkan cara nge-blog, tetapi juga bagaimana mendapatkan uang dari blog. Saya sendiri sudah membuktikannya, saya mendapatkan uang dari ngeblog. Jangan heran kalau saya rajin ngeblog.