Tutorial Cara Install Packet Tracer di Linux Mint 17 / Ubuntu

Rabu | komentar

Tutorial Cara Install Packet Tracer di Linux Mint 17 / Ubuntu - Sekilas tentang Packet Tracer, menurut wikipedia Packet Tracer adalah simulator alat-alat jaringan Cisco yang sering digunakan sebagai media pembelajaran dan pelatihan, dan juga dalam bidang penelitian simulasi jaringan komputer. Program ini dibuat oleh Cisco Systems dan disediakan gratis untuk fakultas, siswa dan alumni yang telah berpartisipasi di Cisco Networking Academy. Tujuan utama Packet Tracer adalah untuk menyediakan alat bagi siswa dan pengajar agar dapat memahami prinsip jaringan komputer dan juga membangun skill di bidang alat-alat jaringan Cisco.

Mari kita mulai langkah-langkah untuk install packet tracer di linux mint 17 / Ubuntu :

Pertama yang harus kita siapkan adalah installer packet tracer, dibawah ini saya lampirkan link untuk mendownload packet tracer.

https://drive.google.com/file/d/0B0PJN0z8d6HRZzMtNWI0S0RnY00/view

Saya asumsikan bahwa packet tracer tersebut sudah terdonwnload dan saya menyimpannya di direktori /home/ridwan/Documents/install/ agar mudah untuk mengingatnya.




Selanjutnya adalah meng-extract packet tracer tersebut dengan perintah:
# tar -zxvf Cisco-PT-620.tar.gz

Jika sudah di extract masuk lah kedalam direktori yang sudah ter-extract tadi dengan perintah:
# cd PacketTracer62Student/
Lalu jalankan file installer dengan cara:
# sudo ./install

Berikut dibawah adalah beberapa opsi yang harus dijalankan ketika pada saat proses intalasi:

Ketika proses instalasi sudah selesai maka kita tinggal jalankan aplikasi packet tracer tersebut dengan cara ketikan "packettracer" pada terminal anda :
# packettracer

Maka packettracer akan segera tampil pada layar anda.

Demikian sekilas Tutorial Cara Install Packet Tracer di Linux Mint 17 / Ubuntu. Semoga bermanfaat bagi anda semua khususnya untuk saya sendiri.

Tags : How To Install PacketTracer 6.2 on Ubuntu / Linux Mint 17, Tutorial Install Packet Tracer On Linux Mint 17 / Ubuntu, Step by Step Install Packet Tracer On Ubuntu / Linux Mint.

Sumber: WikiPedia[dot]com, UnixMen[dot]com

Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 20.15

UAS Pemrograman Visual Basic STMIK Eresha Wikrama

Kamis | komentar

Penjelasan program - Program ini dibuat untuk memudahkan suatu universitas dalam pendataan mahasiswa, program ini sudah dapat memanipulasi data seperti create, read, update, delete.

Berikut adalah beberapa screenshoot pada saat program dijalankan.



- Pada saat menyimpan


- Pada saat cari


- Pada saat update


- Pada saat menghapus


Berikut adalah source code nya :

Imports System.Data.OleDb
Public Class FrmMasterMahasiswa
    Dim strtemp As String = ""
    Dim strvalue As String = ""

    Private Function autonumber()
        sql = "SELECT * FROM MAHASISWA ORDER BY NIM DESC"
        cmmd = New OleDbCommand(sql, cnn)
        'On Error Resume Next
        dreader = cmmd.ExecuteReader
        If dreader.Read Then
            strtemp = Mid(dreader.Item("NIM"), 3, 8)
            strvalue = Val(strtemp) + 1
            strvalue = "MS" & Mid("00000000", 1, 8 - strvalue.Length) & strvalue
        Else
            strvalue = "MS00000001"
        End If
        Return strvalue
    End Function
    Private Sub FrmMasterMahasiswa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        koneksi()
        txtnim.Text = autonumber()

    End Sub
    Private Sub bersih()
        txtnama.Text = ""
        rbjkl.Checked = True
        txtalamat.Text = ""
        txttelepon.Text = ""
        txttptlahir.Text = ""
        cmbjurusan.Text = ""
    End Sub
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        sql = "INSERT INTO MAHASISWA(NIM,NAMA,JNS_KELAMIN,ALAMAT,TELP,TEMP_LAHIR,TGL_LAHIR,JURUSAN) " & _
        " values (?,?,?,?,?,?,?,?)"
        cmmd = New OleDbCommand(sql, cnn)
        cmmd.CommandType = CommandType.Text
        cmmd.Parameters.AddWithValue("NIM", txtnim.Text)
        cmmd.Parameters.AddWithValue("NAMA", txtnama.Text)
        If rbjkl.Checked = True Then
            cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkl.Text)
        Else
            cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkp.Text)
        End If

        cmmd.Parameters.AddWithValue("ALAMAT", txtalamat.Text)
        cmmd.Parameters.AddWithValue("TELP", txttelepon.Text)
        cmmd.Parameters.AddWithValue("TEMP_LAHIR", txttptlahir.Text)
        cmmd.Parameters.AddWithValue("TGL_LAHIR", DateTimePicker1.Value.Date)
        cmmd.Parameters.AddWithValue("JURUSAN", cmbjurusan.Text)

        Dim x As Integer = cmmd.ExecuteNonQuery
        If x = 1 Then
            MessageBox.Show("DATA BERHASIL ANDA SIMPAN", "informasi", MessageBoxButtons.OK)
            txtnim.Text = autonumber()
            bersih()
        Else
            MessageBox.Show("ANDA GAGAL MENYIMPAN DATA", "informasi", MessageBoxButtons.OK)

        End If
    End Sub
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        txtnim.Text = autonumber()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        sql = "DELETE FROM mahasiswa WHERE NIM=?"
        cmmd = New OleDbCommand(sql, cnn)
        cmmd.CommandType = CommandType.Text
        cmmd.Parameters.AddWithValue("NIM", txtnim.Text)

        Dim x As Integer = cmmd.ExecuteNonQuery
        If x = 1 Then
            MessageBox.Show("DATA BERHASIL ANDA HAPUS", "informasi", MessageBoxButtons.OK)
            txtnim.Text = autonumber()
            bersih()
        Else
            MessageBox.Show("ANDA GAGAL MENGHAPUS DATA", "informasi", MessageBoxButtons.OK)
        End If
    End Sub
    Private Sub Btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnubah.Click
        sql = "UPDATE MAHASISWA set NAMA=? , JNS_KELAMIN=? , ALAMAT=? , TELP=? , TEMP_LAHIR=? , TGL_LAHIR=? , JURUSAN=? " & _
                       "WHERE NIM=?"
        cmmd = New OleDbCommand(sql, cnn)

        cmmd.CommandType = CommandType.Text
        cmmd.Parameters.AddWithValue("NAMA", txtnama.Text)
        If rbjkl.Checked = True Then
            cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkl.Text)
        Else
            cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkp.Text)
        End If
        cmmd.Parameters.AddWithValue("ALAMAT", txtalamat.Text)
        cmmd.Parameters.AddWithValue("TELP", txttelepon.Text)
        cmmd.Parameters.AddWithValue("TEMP_LAHIR", txttptlahir.Text)
        cmmd.Parameters.AddWithValue("TGL_LAHIR", DateTimePicker1.Value.Date)
        cmmd.Parameters.AddWithValue("JURUSAN", cmbjurusan.Text)
        cmmd.Parameters.AddWithValue("NIM", txtnim.Text)

        Dim x As Integer = cmmd.ExecuteNonQuery
        If x = 1 Then
            MessageBox.Show("DATA BERHASIL ANDA UBAH", "informasi", MessageBoxButtons.OK)
            txtnim.Text = autonumber()
            bersih()
        Else
            MessageBox.Show("ANDA GAGAL MENGUBAH DATA", "informasi", MessageBoxButtons.OK)
        End If
    End Sub

    Private Sub txtnama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnama.TextChanged
        txtnama.Focus()
    End Sub
    Private Sub btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncari.Click
        Dim popupmh As New Popup_MasterMahasiswa
        popupmh.ShowDialog()
        If popupmh.retnim <> "" Then
            txtnim.Text = popupmh.retnim
            txtnama.Text = popupmh.retnama
            If popupmh.retjeniskelamin = "Laki-Laki" Then
                rbjkl.Checked = True
            Else
                rbjkl.Checked = True
            End If
            txtalamat.Text = popupmh.retalamat
            txttelepon.Text = popupmh.rettelepon
            txttptlahir.Text = popupmh.rettempatlahir
            DateTimePicker1.Value = popupmh.rettanggallahir
            cmbjurusan.Text = popupmh.retjurusan
            txtnim.Enabled = False
            txtnama.Focus()
        End If
    End Sub
   

End Class

#source code pop up

Imports System.Data.OleDb
Public Class Popup_MasterMahasiswa
    Public retnim, retnama, retjeniskelamin, retalamat, rettelepon, rettempatlahir, rettanggallahir, retjurusan As String
    Private Sub isi_view()
        Lvdata.Items.Clear()
        Dim x As Integer = 1
        koneksi()
        sql = "SELECT * FROM MAHASISWA WHERE NAMA LIKE '%" & Trim(txtkatakunci.Text) & "%' ORDER BY NIM ASC"
        cmmd = New OleDbCommand(sql, cnn)
        dreader = cmmd.ExecuteReader
        Try
            While dreader.Read = True
                Lvdata.Items.Add(dreader.Item("NIM").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("NAMA").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("JNS_KELAMIN").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("ALAMAT").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("TELP").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("TEMP_LAHIR").ToString)
                Lvdata.Items(x - 1).SubItems.Add(Format(CDate(dreader.Item("TGL_LAHIR")), "dd-MMMM-yyyy").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("JURUSAN").ToString)

                x = x + 1

            End While
        Finally
            dreader.Close()
        End Try

    End Sub
    Private Sub pilih()
        Try
            retnim = Lvdata.SelectedItems(0).SubItems(0).Text.ToString
            retnama = Lvdata.SelectedItems(0).SubItems(1).Text.ToString
            retjeniskelamin = Lvdata.SelectedItems(0).SubItems(2).Text.ToString
            retalamat = Lvdata.SelectedItems(0).SubItems(3).Text.ToString
            rettelepon = Lvdata.SelectedItems(0).SubItems(4).Text.ToString
            rettempatlahir = Lvdata.SelectedItems(0).SubItems(5).Text.ToString
            rettanggallahir = Lvdata.SelectedItems(0).SubItems(6).Text.ToString
            retjurusan = Lvdata.SelectedItems(0).SubItems(7).Text.ToString
            Me.Close()
        Catch ex As Exception
            MsgBox("pilih salah satu data", MsgBoxStyle.Information)
        End Try
    End Sub

    Private Sub Popup_MasterMahasiswa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call isi_view()
    End Sub

    Private Sub Lvdata_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Lvdata.DoubleClick
        Call pilih()
    End Sub

    Private Sub txtkatakunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtkatakunci.TextChanged
        Call pilih()
    End Sub

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
        Call pilih()
    End Sub

    Private Sub Lvdata_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lvdata.SelectedIndexChanged

    End Sub
End Class


Tulisan ini dibuat untuk melengkapi UAS Pemrograman Visual Basic STMIK Eresha Wikrama, semoga bermanfaat. Terima kasih.

Nama : Ridwanulloh
NIM : 004121121086
Kelas B
STMIK Eresha Wikrama





Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 04.34

Tutorial Cara Memisahkan Bandwith International dan Lokal

Senin | komentar

Tutorial Cara Memisahkan Bandwith International dan Lokal - Tutorial kali ini saya akan membahas cara memisahkan koneksi international dan lokal menggunakan fiture mangle, dimana mangle sendiri adalah metode bandwidth manajemen yang dapat memisahkan downstream dan upstream.

Pertama yang harus dilakukan untuk memisahkan koneksi international dan lokal diperlukan file nice.rsc dimana file ini berisikan kumpulan IP address OpenIXP dan IIX yang telah disediakan oleh mikrotik indonesia.

- copy atau ketik perintah dibawah ini, dan masukan pada terminal mikrotik anda.

#/tool fetch address=ixp.mikrotik.co.id src-path=/download/nice.rsc mode=http;

kemudian setelah file berhasil di download ketikan perintah

#import nice.rsc




Setelah file nice.rsc berhasil di import, maka yang harus anda lakukan yaitu membuat mangle (memisahkan international dan lokal). Membuat mangle anda dapat melihat konfigurasi yang telah saya lakukan seperti dibawah ini.


Berikut adalah scriptnya :

 0   ;;; Lokal
     chain=prerouting action=mark-connection new-connection-mark=conn-lokal
     passthrough=yes src-address-list=nice
 1  chain=prerouting action=mark-connection new-connection-mark=conn-lokal
     passthrough=yes dst-address-list=nice
 2  chain=prerouting action=mark-packet new-packet-mark=paket-Lokal
     passthrough=no connection-mark=conn-lokal
 3   ;;; Int
     chain=prerouting action=mark-connection new-connection-mark=conn-int
     passthrough=yes src-address-list=!nice
 4  chain=prerouting action=mark-connection new-connection-mark=conn-int
     passthrough=yes dst-address-list=!nice
 5  chain=prerouting action=mark-packet new-packet-mark=paket-int
     passthrough=no connection-mark=conn-int 


Setelah mangle di buat, hal terakhir yang harus dilakukan yaitu membuat management bandwith, disini saya menggunakan simple queue. Lihat gambar dibawah ini.


Untuk lebih mudah anda bisa copy script dibawah ini.

0    name="Parent Lokal" target-addresses=0.0.0.0/0 dst-address=0.0.0.0/0
      interface=all parent=none packet-marks=paket-lokal direction=both
      priority=8 queue=default-small/default-small limit-at=0/0
      max-limit=0/0 burst-limit=0/0 burst-threshold=0/0 burst-time=0s/0s
      total-queue=default-small
 1   name="Parent Int" target-addresses=0.0.0.0/0 dst-address=0.0.0.0/0
      interface=all parent=none packet-marks=paket-int direction=both
      priority=8 queue=default-small/default-small limit-at=0/0
      max-limit=0/0 burst-limit=0/0 burst-threshold=0/0 burst-time=0s/0s
      total-queue=default-small
 2   name="PC 1 - Limit Int" target-addresses=10.10.10.254/32
      dst-address=0.0.0.0/0 interface=all parent=Parent Int direction=both
      priority=8 queue=default-small/default-small limit-at=0/0
      max-limit=64000/64000 burst-limit=0/0 burst-threshold=0/0
      burst-time=0s/0s total-queue=default-small
 3   name="PC 1 Limit Lokal" target-addresses=10.10.10.254/32
      dst-address=0.0.0.0/0 interface=all parent=Parent Lokal direction=both
      priority=8 queue=default-small/default-small limit-at=0/0
      max-limit=128000/128000 burst-limit=0/0 burst-threshold=0/0
      burst-time=0s/0s total-queue=default-small 

Demikian tuorial kali ini, jika anda masih bingung atau ada yang ingin ditanyakan, anda bisa menuliskan komentar pada postingan ini. Semoga bermanfaat!
Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 18.41

UTS Mata Kuliah Pemrograman Visual Eresha Wikrama Kelas B

Rabu | komentar

Program Penjualan Tiket Film 

Program sederhana ini dibuat untuk memudahkan penjualan tiket film, cara kerjanya pilih kode studio, masukan jumlah tiket yang dipesan lalu masukan jumlah uang yang dibayar. Berikut screenshootnya :


Berikut source codenya :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode.Items.Add("A001")
        Kode.Items.Add("A002")
        Kode.Items.Add("A003")
        Kode.Items.Add("A004")
    End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "A001" Then
            Nama_studio.Text = "Studio 1"
            Kelas.Text = "Eksklusif"
            Harga.Text = 90000
        ElseIf Kode.Text = "A002" Then
            Nama_studio.Text = "Studio 2"
            Kelas.Text = "Bisnis"
            Harga.Text = 80000
        ElseIf Kode.Text = "A003" Then
            Nama_studio.Text = "Studio 3"
            Kelas.Text = "Ekonomi"
            Harga.Text = 70000
        Else
            Nama_studio.Text = "Studio 4"
            Kelas.Text = "Super Ekonomi"
            Harga.Text = 60000
        End If
        Jumlah.Focus()
    End Sub

Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
        If e.KeyChar = Chr(13) Then
            Tohar.Text = Harga.Text * Jumlah.Text

        End If

    End Sub
Private Sub Dibayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Dibayar.KeyPress
        If e.KeyChar = Chr(13) Then
            Kembalian.Text = Dibayar.Text - Tohar.Text
        End If
    End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Kode.Text = ""
        Nama_studio.Text = ""
        Kelas.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Tohar.Text = ""
        Dibayar.Text = ""
        Kembalian.Text = ""
    End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub


Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 07.57

Setting VPN di Mikrotik

| komentar

Sebelum kita membahas untuk seting vpn di mikrorik apakah sebelumnya anda mengetahui apa itu vpn ? vpn adalah singkatan dari virtual private network yaitu sebuah koneksi private yang melalui jaringan internet dimana tidak sembarangan orang dapat mengaksesnya.  Fungsi VPN adalah memberikan koneksi yang sangat aman antara jaringan pribadi yang terhubung ke internet. VPN mendukung fungsi akses remote client, akses jaringan LAN satu ke jaringan LAN lain, dan juga membuat fungsi pembatasan internet. Yang akan saya bahas kali ini yaitu setting vpn di mikrotik dengan protokol PPTP (Point-to-Point Tunneling Protocol). PPTP adalah suatu protokol jaringan yang memungkinkan pengiriman data secara aman dari remote client kepada server dengan membuat suatu virtual private network (VPN) melalui jaringan data berbasis TCP/IP.

Disini kita mempunyai kasus seperti topologi diatas dimana kedua router sebenarnya sudah terhubung dengan internet namun untuk LAN Bogor belum dapat terkoneksi dengan LAN Jakarta, maka cara agar dapat menghubungkan Lan-Jkt ke Lan-Bgr dibutuhkan koneksi vpn seperti pada gambar diatas.

Setting Router Jakarta

Yang perlu dilakukan pertama adalah mengkonfigurasi IP Address pada ether 1 dan ether 2 seperti pada konsep IP Address pada topologi diatas.

[catatanblogkecil@Jkt] > ip address add address=202.148.59.2/29 interface=ether1
[catatanblogkecil@Jkt] > ip address add address=192.168.10.1/24 interface=ether2

Melalui menggunakan winbox melalui perintah IP/Address/Add.


Selanjutnya adalah mengaktifkan PPTP Server dengan perintah sebagai berikut:

[catatanblogkecil@Jkt] > interface pptp-server server set enabled=yes

Jika menggunakan winbox melalui PPP/PPTP Server.



Langkah berikutnya, menentukan username dan password untuk proses autentikasi Client yang akan terkoneksi ke PPTP server. Yang perlu diperhatikan adalah penggunaan huruf besar dan kecil akan berpengaruh.

PPTP untuk Router-Bgr
[catatanblogkecil@Jkt] > ppp secret add name=router-jkt password=router-jkt service=pptp profile=default-encryption local-address=10.10.10.1 remote-address=10.10.10.2

Jika melalui winbox masuk menu PPP/Secret/Add.
 -Local Address adalah alamat IP yang akan terpasang pada router itu sendiri (Router-Jkt / PPTP Server) setelah link PPTP terbentuk
 -Remote Address adalah alamat IP yang akan diberikan ke Client setelah link PPTP terbentuk.



Selanjutnya agar antar jaringan local bisa saling berkomunikasi, kita perlu menambahkan routing static dengan konfigurasi.

[catatanblogkecil@Jkt] > ip route add dst-address=192.168.20.0/24 gateway=10.10.10.2

Jika dengan winbox melalui menu IP/Routes/Add.
- dst-address : jaringan local Router lawan (Router-Bgr).
- gateway : IP PPTP Tunnel pada kedua router (IP Address PPTP Router-Bgr).



Setting Router-Bgr

Langkah pertama adalah mengkonfigurasi IP Address pada ether 1 dan ether 2 seperti pada konsep IP Address pada topologi diatas.

[catatankecil@Bgr] > ip address add address=202.14.59.10/29 interface=ether1
[catatankecil@Bgr] > ip address add address=192.168.20.1/24 interface=ether2

Melalui menggunakan winbox melalui perintah IP/Address/Add.



Selanjutnya tambahkan interface baru sebagai PPTP Client.

[catatankecil@Bgr] > interface pptp-client add user=router-jkt password=router-jkt connect-to=202.148.59.2 disabled=no

Jika menggunakan winbox melalui, PPP/Add/PPTP Client.
Lakukan dial ke IP Public Router Gedung A (PPTP server) dan masukkan username dan password sesuai pengaturan secret PPTP Server.



Agar antar jaringan local bisa saling berkomunikasi, kita perlu menambahkan routing static dengan konfigurasi.

[catatankecil@Bgr] > ip route add dst-address=192.168.10.0/24 gateway=10.10.10.1

Jika dengan winbox melalui menu IP/Routes/Add.
- dst-address : jaringan local Router lawan (Router-Jkt).
- gateway : IP PPTP Tunnel pada kedua router (IP Address PPTP Router-Jkt).


Sampai tahap ini untuk setting vpn di mikrotik dengan protokol PPTP sudah selesai, saatnya untuk mencoba ping dari Lan-Bgr ke Lan-Jkt maupun sebaliknya, jika hasilnya reply maka setting vpn di mikrotik telah selesai.
Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 06.17
 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Catatan Kecil - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger