Apa itu Mikrotik? Pengertian Mikrotik & Penjelasannya

ebuah perusahaan yang bergerak di bidang produksi perangkat keras (hardware) dan perangkat lunak (Software) yang berhubungan dengan sistem jaringan komputer yang berkantor pusat di Latvia, bersebelahan dengan Rusia. Mikrotik didirikan pada tahun 1995 untuk mengembangkan router dan sistem ISP (Internet Service Provider) nirkabel.

Mikrotik dibuat oleh MikroTikls sebuah perusahaan di kota Riga, Latvia. Latvia adalah sebuah negara yang merupakan “pecahan” dari negara Uni Soviet dulunya atau Rusia sekarang ini. Mikrotik awalnya ditujukan untuk perusahaan jasa layanan Internet (PJI) atau Internet Service Provider (ISP) yang melayani pelanggannya menggunakan teknologi nirkabel atau wireless. Saat ini MikroTikls memberikan layanan kepada banyak ISP nirkabel untuk layanan akses Internet dibanyak negara di dunia dan juga sangat populer di Indonesia. MikroTik sekarang menyediakan hardware dan software untuk konektivitas internet di sebagian besar negara di seluruh dunia. Produk hardware unggulan Mikrotik berupa Router, Switch, Antena, dan perangkat pendukung lainnya. Sedangkan produk Software unggulan Mikrotik adalah MikroTik RouterOS.

MikroTik RouterOS

MikroTik RouterOS™ adalah sistem operasi dan perangkat lunak yang dapat digunakan untuk menjadikan komputer manjadi router network yang handal, mencakup berbagai fitur yang dibuat untuk ip network dan jaringan wireless, cocok digunakan oleh ISP dan provider hotspot. Untuk instalasi Mikrotik tidak dibutuhkan piranti lunak tambahan atau komponen tambahan lain. Mikrotik didesain untuk mudah digunakan dan sangat baik digunakan untuk keperluan administrasi jaringan komputer seperti merancang dan membangun sebuah sistem jaringan komputer skala kecil hingga yang kompleks sekalipun.

Mikrotik RouterBoard

RouterBoard adalah router embedded produk dari mikrotik. Routerboard seperti sebuah pc mini yang terintegrasi karena dalam satu board tertanam prosesor, ram, rom, dan memori flash. Routerboard menggunakan os RouterOS yang berfungsi sebagai router jaringan, bandwidth management, proxy server, dhcp, dns server dan bisa juga berfungsi sebagai hotspot server.

Ada beberapa seri routerboard yang juga bisa berfungsi sebagai wifi. sebagai wifi access point, bridge, wds ataupun sebagai wifi client. seperti seri RB411, RB433, RB600. dan sebagian besar ISP wireless menggunakan routerboard untuk menjalankan fungsi wirelessnya baik sebagai ap ataupun client. Dengan routerboard Anda bisa menjalankan fungsi sebuah router tanpa tergantung pada PC lagi. karena semua fungsi pada router sudah ada dalam routerboard. Jika dibandingkan dengan pc yang diinstal routerOS, routerboard ukurannya lebih kecil, lebih kompak dan hemat listrik karena hanya menggunakan adaptor. untuk digunakan di jaringan wifi bisa dipasang diatas tower dan menggunakan PoE sebagai sumber arusnya.

Mikrotik pada standar perangkat keras berbasiskan Personal Computer (PC) dikenal dengan kestabilan, kualitas kontrol dan fleksibilitas untuk berbagai jenis paket data dan penanganan proses rute atau lebih dikenal dengan istilah routing. Mikrotik yang dibuat sebagai router berbasiskan PC banyak bermanfaat untuk sebuah ISP yang ingin menjalankan beberapa aplikasi mulai dari hal yang paling ringan hingga tingkat lanjut. Contoh aplikasi yang dapat diterapkan dengan adanya Mikrotik selain routing adalah aplikasi kapasitas akses (bandwidth) manajemen, firewall, wireless access point (WiFi), backhaul link, sistem hotspot, Virtual Private Netword (VPN) server dan masih banyak lainnya.

Sistem Level Lisensi Mikrotik 

Mikrotik bukanlah perangkat lunak yang gratis jika anda ingin memanfaatkannya secara penuh, dibutuhkan lisensi dari MikroTikls untuk dapat menggunakanya alias berbayar. Mikrotik dikenal dengan istilah Level pada lisensinya. Tersedia mulai dari Level 0 kemudian 1, 3 hingga 6, untuk Level 1 adalah versi Demo Mikrotik dapat digunakan secara gratis dengan fungsi-fungsi yang sangat terbatas. Tentunya setiap level memilki kemampuan yang berbeda-beda sesuai dengan harganya, Level 6 adalah level tertinggi dengan fungsi yang paling lengkap. Secara singkat dapat digambarkan jelaskan sebagai berikut:

• Level 0 (gratis); tidak membutuhkan lisensi untuk menggunakannya dan penggunaan fitur hanya dibatasi selama 24 jam setelah instalasi dilakukan.
• Level 1 (demo); pada level ini kamu dapat menggunakannya sbg fungsi routing standar saja dengan 1 pengaturan serta tidak memiliki limitasi waktu untuk menggunakannya.
• Level 3; sudah mencakup level 1 ditambah dengan kemampuan untuk menajemen segala perangkat keras yang berbasiskan Kartu Jaringan atau Ethernet dan pengelolan perangkat wireless tipe klien.
• Level 4; sudah mencakup level 1 dan 3 ditambah dengan kemampuan untuk mengelola perangkat wireless tipe akses poin.
• Level 5; mencakup level 1, 3 dan 4 ditambah dengan kemampuan mengelola jumlah pengguna hotspot yang lebih banyak.
• Level 6; mencakup semua level dan tidak memiliki limitasi apapun.

Aktifitas Belajar Stmik Budidarma Medan

pengertian aktivitas belajar menurut para ahli

• Pengertian aktivitas

1.  W.J.S. Poewadarminto: Aktifitas adalah kegiatan atau kesibukan.
2. S. Nasution.: Aktivitas adalah keaktifan jasmani dan rohani dan

• Pengertian Belajar

1. belajar, menurut H. Carl. Witherington dalam bukunya Drs.Mahfud Shalahuddin yang berjudul "pengantar psikologi pendidikan", belajar adalah suatu perubahan di dalam kepribadian, yang menyatakan diri sebagaisuatu pola baru dari reaksi yang berupa kecakapan, sikap,kebiasaan,kepandaian, atau suatu pengertian.
2. Menurut Hilgard dalam bukunya S. Nasution, yang berjudul DedaktikAsas-Asas Belajar, belajar adalah proses yang melahirkan atau mengubah suatu kegiatan melalui jalan latihan (apakah dalam laboratorium atau dalam lingkungan alamiah) yang dibedakan dari perubahan-perubahan oleh faktor-faktor yang tidak termasuk latihan.

Kesimpulan dari pengertian-pengertian para ahli diatas    adalah   suatu   proses   kegiatan   belajar siswa yang menimbulkan perubahan-perubahan atau pembaharuan dalam tingkah laku atau kecakapan.

PENGGUNAAN KRIPTOGRAFI PADA VB NET

1.      Caesar chiper

 

 

Listing programnya :

Public Class Form1

    Private Sub CaesarChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        ceaserchiper.MdiParent = Me

        ceaserchiper.Show()

    End Sub

    Private Sub GronsfeldChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldChiperToolStripMenuItem.Click

        gronsfeldchiper.MdiParent = Me

        gronsfeldchiper.Show()

    End Sub

    Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernamChiperToolStripMenuItem.Click

        vernamchiper.MdiParent = Me

        vernamchiper.Show()

    End Sub

    Private Sub VigenereChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenereChiperToolStripMenuItem.Click

        vigenerechiper.MdiParent = Me

        vigenerechiper.Show()

    End Sub

    Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesChiperToolStripMenuItem.Click

        DesChiper.MdiParent = Me

        DesChiper.Show()

    End Sub

    Private Sub Rc4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rc4ToolStripMenuItem.Click

        RC4.MdiParent = Me

        RC4.Show()

    End Sub

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        End

    End Sub

End Class

Public Class ceaserchiper

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click

        Dim jumlah As Double = Len(plainteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(plainteks.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        chiperteks.Text = xkalimat

    End Sub

    Private Sub Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click

        Dim jumlah As Double = Len(chiperteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(chiperteks.Text, i, 1)

            bil = Asc(x) - 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        plainteks.Text = xkalimat

    End Sub

End Class

Hasil nya :

2.      Gronsfeld chiper

Public Class gronsfeldchiper

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click

        Dim jumlah As Double = Len(plainteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(plainteks.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        chiperteks.Text = xkalimat

    End Sub

    Private Sub Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click

        Dim jumlah As Double = Len(chiperteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(chiperteks.Text, i, 1)

            bil = Asc(x) - 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        plainteks.Text = xkalimat

    End Sub

End Class

Hasil ny :

3.      Vernam chiper

Public Class vernamchiper

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click

        Dim jumlah As Double = Len(plainteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(plainteks.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        chiperteks.Text = xkalimat

    End Sub

    Private Sub btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeskripsi.Click

        Dim jumlah As Double = Len(chiperteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(chiperteks.Text, i, 1)

            bil = Asc(x) - 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        plainteks.Text = xkalimat

    End Sub

End Class

Hasil ny :

4.      Vigenere chiper

Public Class vigenerechiper

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click

        Dim jumlah As Double = Len(plainteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(plainteks.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        chiperteks.Text = xkalimat

    End Sub

    Private Sub btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeskripsi.Click

        Dim jumlah As Double = Len(chiperteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(chiperteks.Text, i, 1)

            bil = Asc(x) - 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        plainteks.Text = xkalimat

    End Sub

End Class

Hasil ny :

5.      Des Chiper

Public Class deschiper

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click

        Dim jumlah As Double = Len(plainteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(plainteks.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        chiperteks.Text = xkalimat

    End Sub

    Private Sub Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click

        Dim jumlah As Double = Len(chiperteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(chiperteks.Text, i, 1)

            bil = Asc(x) - 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        plainteks.Text = xkalimat

    End Sub

End Class

Hasil nya :

6.      RC4

Public Class rc4

    Private Sub Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click

        Dim jumlah As Double = Len(chiperteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(chiperteks.Text, i, 1)

            bil = Asc(x) - 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        plainteks.Text = xkalimat

    End Sub

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click

        Dim jumlah As Double = Len(plainteks.Text)

        Dim x As String

        Dim xkalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(plainteks.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

        Next i

        chiperteks.Text = xkalimat

    End Sub

End Class

Hasil nya :