Mendeteksi Asal Negara dari IP Address

Kebutuhan kita dalam mencari informasi IP Address dan nama negaranya adalah sebuah database yang berisi informasi sebagai berikut:


Field ---Type ---Data Keterangan
IP_FROM--- NUMERICAL (DOUBLE) ---Awal range dari IP Address
IP_TO--- NUMERICAL (DOUBLE)--- Akhir range dari IP Address
COUNTRY_CODE2--- CHAR(2)--- Dua karakter kode negara (ISO 3166).
COUNTRY_CODE3 ---CHAR(3) ---Tiga karakter kode negara (ISO 3166).
COUNTRY_NAME ---VARCHAR(50) ---Nama Negara (ISO 3166)

Database diatas tidak perlu kita buat lagi, karena kita bisa dapatkan melalui link dibawah ini:

Download IP-to-Country Database (*.csv.zip)

Manfaat Apa yang Bisa Kita Dapatkan?
Nah... , mari kita lanjutkan bahasan berikutnya mengenai apa saja manfaat yang bisa kita ambil dari informasi tsb:

1. Menampilkan waktu sesuai lokasi geografis (Negara)
2. Menampilkan website dalam bahasa lokal
3. Memaintenance dan menganalisa log pengunjung untuk website
4. Meredirect pengunjung ke website lokal
5. Menampilkan harga produk dalam mata uang lokal
6. Memfilter hak akses negara asal
7. Memfilter Spam
8. Menampilkan iklan/banner sesuai negara pengunjung
9. dan masih banyak manfaat lainnya yang bisa kita ambil...

Setelah kita mengetahui kebutuhan dan manfaat-nya, lalu bagaimana caranya agar kita bisa tahu IP Address dan asal negaranya? wuuuaahhh... semakin seru nih... baiklah, mari kita lanjutkan.


Mendapatkan IP Address
Pertama kita harus bisa mendapatkan IP Address si pengunjung. Perlu kita ketahui bahwa setiap komputer yang bisa akses ke internet memiliki IP Addess yang unik/khas dengan kata lain bahwa seetiap user yang akses ke internet memiliki identitas yaitu IP Address. IP Address adalah alamat yang berhubungan dengan komputer yang berupa angka, seperti 69.55.155.55.

Nah... rekan2 pemula programmer yang setia, dari IP Address inilah kita bisa menentukan nama/asal negara dari si pengunjung website kita, mudah bukan...??!! , tetapi kita masih perlu sedikit logika didalam mengambil informasi asal negara yang ada didalam database diatas tadi?!.

Pada kesempatan kali ini kita akan menggunakan script ASP untuk mengambil informasi yang ada di dalam database tersebut. Untuk mengambil informasi dalam database tsb, kita perlu petunjuk/indator yang mengarahkan kita untuk mengambil informasi asal negara bersangkutan dari database. Lalu bagaimana kita bisa mendapatkan informasi IP Address tsb? kan IP Address-nya jauh dari kita, apalagi kalau yang akses dari negara lain bahkan benua lain...


Rekan2 jangan panik dulu donk... walaupun kita jauh dari si pengunjung, tetapi kita punya teman setia yang setiap waktu bisa memberikan informasi ke kita berkaitan dengan IP Address tersebut, siapa dia...?
Didalam script ASP ada variable server yang namanya: REMOTE_ADDR, nah... ini dia teman kita yang akan memberikan informasi IP Address... yuk kita kenalan...

Variable server REMOTE_ADDR adalah salah satu dari sekian banyak koleksi variable server yang ada. Header HTTP (HyperText Transfer Protocol) dikirimkan dari browser si pengunjung ke server dimana website kita berada, informasi IP Address akan menumpang pada header HTTP tsb yang di tampung dalam variable REMOTE_ADDR, sehingga kita bisa dapakan IP Address dari pengunjung website kita. Mudah bukan?

Mengkonversi IP Address ke IP Number
Langkah kita belum selesai, karena kita harus mengkonversi IP Address tersebut yang memiliki format AAA.BBB.CCC.DDD ke dalam format range IP Number seperti yang ada didalam database yang telah kita download sebelumnya. Lalu bagaimana formulanya? Dibawah ini adalah formula untuk mengkonversi IP Address ke IP Number:

A * (256*256*256) + B * (256*256) + C * 256 + D

dinama variable A adalah tiga angka pertama dari IP Address yang telah didapatkan, begitu juga dengan variable B, C, dan D, kita tinggal memasukkan ke dalam formula tersebut dan hasilnya kita gunakan untuk mengambil informasi negara yang ada didalam database.

Mari kita buat satu prosedur yang fungsinya untuk mengkonversi IP Address ke IP Number:
<%
Private Function IPA2IPN(IPA)
strArray = Split(IPA, ".")

AAA = CInt(strArray(0)) * 256 * 256 * 256
BBB = CInt(strArray(1)) * 256 * 256
CCC = CInt(strArray(2)) * 256
DDD = CInt(strArray(3))

IPA2IPN = AAA + BBB + CCC + DDD

End Function
%> Jadi syntax untuk mengkonversi IP Address: 69.55.155.55 ke IP Number seperti berikut:

<%= IPA2IPN("69.55.155.55" ) %> atau: <%= IPA2IPN(request.ServerVariables("REMOTE_ADDR" )) %>

Akses Database
Setelah kita dapatkan informasi IP Address yang sebelumnya telah kita konversi ke IP Number, langkah selanjutnya adalah mengambil informasi nama negara sesuai IP Address tersebut dari database berdasarkan IP Number tadi. Sebelum melangkah bagaimana kita mengambil informasi nama negaranya, maka kita akan mencoba untuk mengakses database yang telah kita download tadi.

Perlu kita ketahui bahwa database yang kita download sebelumnya, jika kita ekstrak dengan tools WinZIP atau WinRAR akan menghasilkan file dengan format CSV (Comma Delimited), sehingga kita perlu mengkonversi ke dalam database yang kita inginkan. Untuk mengkonversi ke file database mis: Microsoft Access (*.MDB), kita bisa langsung membuka file CSV tsb dengan Microsoft Excel. Setelah file terbuka, sisipkan satu baris pada baris teratas untuk meletakkan header atau nama field yang belum ada. Setelah kita sisipkan satu baris, lanjutkan dengan memberi nama2 field seperti table diatas, kemudian save as dengan type file XLS, sudah...??!! keluar dari Excel, dan lanjutkan dengan membuka Micrsofot Access, jika muncul kotak dialog Create a new database using, maka pilih Blank Access database lalu klik OK, dan ketikkan nama file MDB-nya (mis: IP2Country) dan tekan tombol Create. Setelah muncul kotak dialog IP2Country: Database, klik kanan pada bagian yang berwarna putih, pilih Import, setelah muncul kotak dialog Import, pada Files of type, pilih Microsoft Excel (*.xls) dan klik nama file ip-to-country.xls tadi kemudian akhiri dengan klik tombol Import.

Setelah file database access tercipta, kita perlu mengaksesnya. Berikut adalah cara koneksi ke file MDB dengan script ASP:
<%
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
server.MapPath("ip2country.mdb")
Set
Conn = server.CreateObject("ADODB.Connection")
Conn.Open strConn
%>

Mengambil dan Menampilkan Informasi
Setelah kita berhasil melakukan koneksi ke database, maka langkah selanjutnya adalah membuat script untuk mengambil data dari table ip2country, field2 yang akan kita ambil pada contoh bahasan kali hanya Country_Name. Berikut adalah contoh script tersebut:
<%
Set rsTable = server.CreateObject("ADODB.Recordset")
strSQL = "SELECT COUNTRY_NAME " & _
"FROM IP2COUNTRY " & _
"WHERE IP_FROM <= IPNumber AND IP_TO >= IPNumber"
rsTable.Open strSQL, Conn
%>

Setelah itu lanjutkan dengan mengetik script untuk menampilkan hasil dari query diatas:
IP Address anda :- <%= request.ServerVariables("REMOTE_ADDR" ) %>

<% if Not rsTable.Eof Or Not rsTable.Bof Then %>
Negara anda :- <%= rsTable("Country_Name" ) %>
<% else %>
Negara anda :- belum terdaftar
<%
end if

rsTable.Close
Conn.Close
set rsTable = nothing
set Conn = nothing
%>

Selamat Mencoba !!!

Membuat Mozilla/Firefox Kencang

Langkah-langkah yang harus dilakukan agar mozilla jalannya ngacir saat browsing, cukup dengan merubah dan menambahkan settingannya:

1. Ketik, “about:config” di Addresse bar (URL) trus ENTER.
2. Cari en ganti settingannya kaya dibawah ini: (kalo belon ada, buat dulu --> klik kanan - new - ....)

browser.tabs.showSingleWindowModePrefs – true
network.http.max-connections – 64
network.http.max-connections-per-server – 20
network.http.max-persistent-connections-per-proxy – 10
network.http.max-persistent-connections-per-server – 4
network.http.pipelining – true
network.http.pipelining.maxrequests – 100
network.http.proxy.pipelining – true
network.http.request.timeout – 300
nglayout.initialpaint.delay = 0
network.http.request.max-start-delay = 0
If nglayout.initialpaint.delay doesnt exist, Right click, new integer.
network.http.max-persistent-connections-per-proxy = 10
network.http.proxy.pipelining = true
network.http.proxy.version = 1.0

3. Tutup firefox lo, trus buka lagi

Selamat Mencoba !!!

YM Selalu Online

Ingin Yahoo Messenger Anda selalu online? Ini dia tipsnya, yaitu menggunakan Wap/Mobile Yahoo Messenger.

1.Buka alamat: wap.yahoo.co.id ,dengan browser di pc atau ponsel Anda. Pilih Messenger.
2.Login dengan account Yahoo Messenger Anda.
3.Keluar dari browser tanpa Sign Out Yahoo Messenger Anda.

Hanya itu saja langkahnya. Anda bisa online selalu tanpa biaya, dengan catatan Anda tidak Login kemudian sign out dari tempat lain.

Untuk mengganti status Yahoo Messenger Anda:

1. Preference kemudian Mobile Status Messege
2. Masukkan status yang Anda inginkan

Selamat Mencoba !!!

Pesan Ketika Masuk Windows

Bosan dengan tampilan ketika akam masuk ke windows yang itu-itu aja, kalo mau ganti terpaksa harus nyari lagi themes atau skins. kalo buat computer yang specnya lumayan yahud sih ngga masalah, tapi buat yang spec nya pas-pas bisa nyoba script ini.

<job id="Message Windows Geblek">
<script language="VBScript">
set nb = WScript.CreateObject("WScript.Shell")
jdl ="JUDUL_FORMNYA"
jdlpsn =InputBox("Masukkan Judul Pesannya:",jdl)
isipsn =InputBox("Masukkan Pesannya:",jdl)

if jdlpsn<>""AND isipsn<>"" then
nb.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\"&_
"policies\system\legalnoticecaption",jdlpsn,"REG_SZ"
nb.RegWrite"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\"&_
"policies\system\legalnoticetext",isipsn,"REG_SZ"
MsgBox"PESAN TELAH DI INSTAL",vbinformation,jdl
else
nb.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\"&_
"policies\system\legalnoticecaption","","REG_SZ"
nb.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\"&_
"policies\system\legalnoticetext","","REG_SZ"
MsgBox"PESAN TELAH DIHAPUS",vbinformation,jdl
end if

</script>
</job>

copy paste script tersebut ke notepad dan simpan(save) dengan format .wsf kemudian klik 2x aja. Kalo mau menghapus tinggal klik cancel maka akan kembali ke semula.

Selamat Menikmati !!!

MyBlogLog

MyBlogLog is a social network for the blogger community that is based in part on interactions facilitated by a popular web widget that many members install on their blog.[1] Bloggers sign up for free accounts on MyBlogLog and can initiate a blog community for one or more blogs they author. Other registered members can subscribe to these communities, effectively bookmarking them for future reading and sharing them with their own contacts. Bloggers can then display widgets on their sites which show MyBlogLog online community members who have recently visited their page. These widgets also contain links to visiting members' community pages, and are one way in which users connect with one another. All members can see certain basic information about how many people visit their blog, what links they clicked and where they come from. Members may also view more extensive information about traffic on their site for a small monthly fee.


MyBlogLog communities revolve around an individual blog registered by that blog's author. These communities have anywhere from a few to thousands of members. Communities that are particularly popular, have the most members or that are brand new are featured on the MyBlogLog Communities page. Members can also find communities via searches for key words or tags.

MyBlogLog members are displayed and searchable in a largely similar fashion to MyBlogLog communities. Featured, popular and new members are displayed on the MyBlogLog members page. Users can also search for members and get a sense of who they are by seeing which communities they are a member of and what tags have been associated to their profile by the MyBlogLog community.

Supaya Windows Menjadi Kencang dan Tidak Boros Memory

Sebelum melakukan trik ini, lakukan backup terlebih dahulu, untuk menghindari hal2 yg tidak diinginkan.
Nb: jangan melakukan trik ini, jika tidak didampingi oleh ahlinya. resiko ditanggung sendiri.

Jalankan services.msc (start->run->services.msc)

Matikan/disable service yang tidak berguna dibawah ini:

Alerter
Application Layer Gateway Service,
Application Management
Automatic Updates
Background Intelligent Transfer
Clipbook
Distributed Link Tracking Client
Distributed Transaction Coordinater
Error Reporting Service
Fast User Switching Compatibility
IMAPI CD-Burning
Indexing Service
IPSEC Services
Messenger
Net Logon
Net Meeting
Remote Desktop Sharing
Network DDE
Network DDE DSDM
Portable Media Serial Number
Remote Desktop Help Session Manager
Remote Registry
Secondary Logon
Smartcard
SSDP Discovery Service
Telnet Themes
Uninterruptible Power Supply
Universal Plug and Play Device Host
Upload Manager
Webclient
Wireless Zero Configuration
WMI Performance Adaptor

Selanjutnya hapus file-file yang berada di c:\windows\prefect (folder jangan dihapus)

Kemudian pada desktop klik kanan pada my computer, advance, performance
pilih Adjust Best performance dan langkah terakhir restart komputer dan rasakam kedahsayatannya.

Mendapatkan Posisi Tinggi di Search Enggine

Tips Singkat untuk mendapatkan posisi tinggi pada search engine adalah

• Membuat Title, Metatags, dan Description yang sesuai dengan jenis bisnis Anda dan memuat kata kunci.
• Membuat isi website yang kaya akan kata kunci sesuai dengan jenis bisnis Anda
• Membuat Back Link sebanyak-banyaknya dari website bisnis lainnya yang sama jenisnya atau website bisnis yang menyediakan produk pelengkap untuk bisnis Anda.