Beberapa macam perangkat keras yang dibutuhkan Untuk dapat mengakses internet

Untuk dapat mengakses internet, ada beberapa macam perangkat keras yang dibutuhkan antara lain:
Perangkat yang penting:

1. Komputer (Sudah tentu )
2. Modem(Modulator Demodulator)
3. Saluran telpon

1. Komputer

Komputer merupakan komponen utama untuk dapat mengkases internet (sudah tau khan?? ). Spesifikasi komputer  yang digunakan dalam koneksi internet sangat mentukan cepat atau lambatnya kinerja akses internet. semakin tinggi spesifikasi sebuah komputer, semakin cepat kinerja akses internet, begitu pula sebaliknya.
Spesifikasi minimal sebuah komputer dalam akses internet anatra lain sebagi berikut:

1. Processor, merupakan otak dari komputer untuk menjalankan aplikasi-aplikasi dalam komputer. Processor minimal pentium III 500Mhz.

1. RAM (Random Access Memory) berfungsi sebagai media penyimpanan sementara. RAM minimal 64MB

1. Harddisk digunakan untuk media penyimpanan data secara magnetik. Harddisk minimal 10GB

1. VGA card, merupakan perangkat keras untuk menampilakan gambar pada layar monitor. VGA card minimal 4MB

Monitor, merupajan perangkat output untuk menampilkan proses kerja dari komputer.

2. Modem

Modem berasal dari singkatan MOdulator DEModulator. Modulator merupakan bagian yang mengubah sinyal informasi kedalam sinyal pembawa (Carrier) dan siap untuk dikirimkan, sedangkan Demodulator adalah bagian yang memisahkan sinyal informasi (yang berisi data atau pesan) dari sinyal pembawa (carrier) yang diterima sehingga informasi tersebut dapat diterima dengan baik. Modem merupakan penggabungan kedua-duanya, artinya modem adalah alat komunikasi dua arah.
Secara singkatnya, modem merupakan alat untuk mengubah sinyal digital komputre menjadi sinyal analog dan sebaliknya. Komputer yang melakukan koneksi dengan internet dihubungkan dengan saluran telpon melalui modem. Berdasarkan fungsinya modem dibagi menjai tiga jenis. Antara lain:
1. Modem Dial Up
Modem dial Up biasa digunakan oleh Personal Computer (PC) yang langsung dihubungkan melalui saluran telpin. Jenis modem dial up ada dua macam yaitu:
1) Modem Internat
Merupakan modem yang dipasang dalam komputer terutama pada slot ekspansi yang tersedia dalam mainboard komputer. Rata-rata kecepatan modem internal untuk melakukan download adalah 56 Kbps.
Adapun keuntungan penggunakan modem internal sebagi berikut.
a) Lebih hemat tempat dan harga lebih ekonomis
b) Tidak membutuhkan adaptor sehingga terkesan lebih ringkas tanpa ada banyak kabel.
Sedangkan kelemahan modem internal sebagai berikut.
a) Modem ini tidak memerlukan lampu indikator sehingga sulit untuk memantau status modem
b) Modem ini tidak menggunakan sumber tegangan sendiri sehingga membutuhkan daya dari power supply. Hal ini mengakibatkan suhu dalam kotak CPU bertambah panas.
2) Modem Eksternal
Modem eksternal merupakan modem yang letaknya diluar CPU komputer. Modem ekternal dihubungkan ke komputer melalui port com atau USB. Pemasangan modem ini adalah dengan cara menghubungkan modem ke power dan menghubungkannya lagi ke adaptor lalu disambungkan kembali ke listrik.
Keuntungan modem eksternal:
a) Portabilitas yang cukup baik sehingga bisa pindah-pindah untuk digunakan pada komputer lain
b) dilengkapi lampu indikator sehingga mudah untuk memantau status dari modem.
Kelemahan dari modem eksternal.
a) harga lebih mahal dari pada modem internal
b) membutuhkan tempat atau lokasi tersendiri untuk menaruh modem tersebut.
2. Modem Kabel
Modem Kabel (Cable Modem), adalah perangkat keras yang menyambungkan PC dengan sambungan TV kabel. Jaringan TV kabel ini dapat dipakai untuk koneksi ke internet dengan kecepatan lebih tinggi dibandingkan dengan modem dialup atau modem ADSL, kecepatan modem kabel maksimum 27Mbps downstream (kecepatan download ke pengguna) dan 2,5Mbps upstream (kecepatan upload dari pengguna). Sebelum dapat terkoneksi dengan internet, maka pengguna diharuskan untuk melakukan pendaftaran kepada penyedia jasa TV kabel dan ISP (internet Service Provider).


3. Modem ADSL (asymmetric Digital Subscriber line)
ADSL atau Asymmetric Digital Subscriber Line adalah salah satu bentuk dari teknologi DSL. Ciri khas ADSL adalah sifatnya yang asimetrik, yaitu bahwa data ditransferkan dalam kecepatan yang berbeda dari satu sisi ke sisi yang lain. Ide utama teknologi ADSL adalh untuk memecah sinyal line telpon menjadi dua bagian untuk suara dan data. Hal ini memungkinkan pengguna untuk melakuakn atau meneima panggilan telpon dan melakukan koneksi internet secara simultan tanpa saling menggangu.

 3. Saluran Telpon

Saluran telpon juga merupakan perangkat keras yang penting dan diperlukan untuk menghubungkan komputer dengan internet. Penggunaan sauran telpon ini juga diikuti dengan penggunan modem dial up. Selain saluran telpon, untuk melakukan akses internet juga bisa dilakukan dengan menggunakan TV kabel. Untuk bisa mengakses internet menggunakan jaringan TV kabel maka modem yang dipakai adalah modem kabel.

PERANGKAT KERAS PENDUKUNG AKSES INTERNET

Selain ketiga perangkat utama di atas (computer, modem, saluran telpon) terdapat juga beberapa perangkat keras pendukung akses internet. Antara lain:

• 1. Hub/Switch

Hub merupakan perangkat keras yang digunakan untuk menggabungkan beberapa computer. Hub menjadi saluran koneksi sentral untuk semua computer dalam jaringan. Hub dibedakan menjadi dua yaitu, active hub merupkan sebuah repeater elektrik yang dilenggkapi dengan 8 konektor yang berfungsi untuk membentuk sinyal digital yang dikirim dan menyesuaikan impedensinya untuk memelihara data sepanjang jalur yang dilaluinya, yang kedua adalah passive hub merupakan sebuah repeater elektrik yang memiliki 4 konektor yang berfungsi untuk menerima sinyal pada salah satu konektor dan meneruskannya pada tiga konektor lain.

• 2. Repeater

Repeater merupakan perangkat yang digunakan untuk menerima sinyal dan memancarkan kembali sinyal tersebut dengan kekuatan yang sama dengan sinyal asli, singkatnya repeater berfungsi untuk menguatkan sinyal agar sinyal dikirim sama dengan sinyal aslinya.

• 3. Brige

Berige merupakan perangkat lunak menghubungkan dua buah jaringan secara fisik yang menggunakan protocol sama/sejenis. Dengan bridge sebuah paket data mampu dikirim dari satu LAN ke LAN lain.

• 4. Router

Router merupakan perangkat yang berfungsi hamper sama dengan bridge. Namun perangkat ini punya keunggulan selain untuk menghubungkan dua buah LAN dengan tipe sama, router juga bisa untuk menghubungkjan dua buah LAN dengan tipe berbeda.
Sumber :
http://id.wikipedia.org/
http://agbis.com.pl/grafika/

Tugas Kriptografi

Public Class Formkriptografi

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

        Me.Hide()

        Caesar_chiper.Show()

    End Sub

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

        Me.Hide()

        Gronsfeld.Show()

    End Sub

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

        Me.Hide()

        Vernam_chiper.Show()

    End Sub

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

        Me.Hide()

        Vigenere_chiper.Show()

    End Sub

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

        Me.Hide()

        DES_chiper.Show()

    End Sub

    Private Sub RC4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RC4ToolStripMenuItem.Click

        Me.Hide()

        RC_4.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 Caesar_chiper

    Private Sub Caesar_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Plainteks.Text = ""

        Chiperteks.Text = ""

    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 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 Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Chiperteks.Text = ""

        Plainteks.Text = ""

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

        End

    End Sub

    Private Sub Btnkembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkembali.Click

        Me.Hide()

        Formkriptografi.Show()

    End Sub

End Class

Public Class Gronsfeld

Private Sub Gronsfeld_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Plainteks.Text = ""

        Chiperteks.Text = ""

    End Sub

    Private Sub Plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plainteks.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

    Private Sub Plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Plainteks.TextChanged

    End Sub

    Private Sub Kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

    Private Sub Kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kunci.TextChanged

    End Sub

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

        Dim J As Integer

        Dim Jum As Integer

        Dim sKey As String

        Dim nKata As Integer

        Dim nKunci As String

        Dim sKata As String

        Dim sPlain As String = ""

        Dim nEnc As Integer

        J = 0

        sKata = Plainteks.Text

        Jum = Len(sKata)

        sKey = Kunci.Text

        For i = 1 To Jum

            If J = Len(sKey) Then

                J = 1

            Else

                J = J + 1

            End If

            nKata = Asc(Mid(sKata, i, 1)) - 65

            nKunci = Asc(Mid(sKey, J, 1)) - 65

            nEnc = ((nKata + nKunci) Mod 26)

            sPlain = sPlain & Chr((nEnc))

        Next i

        Chiperteks.Text = sPlain

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Plainteks.Text = ""

        Chiperteks.Text = ""

        Kunci.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

    Private Sub btnkembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkembali.Click

        Me.Hide()

        Formkriptografi.Show()

End Class

Public Class Vernam_chiper

    Private Sub Vernam_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Plainteks.Text = ""

        Chiperteks.Text = ""

    End Sub

    Private Sub Plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plainteks.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

    Private Sub Plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Plainteks.TextChanged

    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

    Private Sub kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged

    End Sub

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

        Dim J As Integer

        Dim Jum As Integer

        Dim sKey As String

        Dim nKata As Integer

        Dim nKunci As Integer

        Dim sKata As String

        Dim sPlain As String = ""

        Dim nEnc As Integer

        J = 0

        sKata = Plainteks.Text

        Jum = Len(sKata)

        sKey = kunci.Text

        For i = 1 To Jum

            If J = Len(sKey) Then

                J = 1

            Else

                J = J + 1

            End If

            nKata = Asc(Mid(sKata, i, 1)) + 0

            nKunci = Asc(Mid(sKey, J, 1)) + 0

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

        Next i

        Chiperteks.Text = sPlain

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        Plainteks.Text = ""

        kunci.Text = ""

        Chiperteks.Text = ""

    End Sub

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

        End

    End Sub

    Private Sub btnkembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkembali.Click

        Me.Hide()

        Formkriptografi.Show()

    End Sub

End Class

Public Class Vigenere_chiper

    Private Sub Vigenere_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Plainteks.Text = ""

        Chiperteks.Text = ""

    End Sub

    Private Sub Plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plainteks.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

    Private Sub Plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Plainteks.TextChanged

    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

    Private Sub kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged

    End Sub

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

        Dim J As Integer

        Dim Jum As Integer

        Dim sKey As String

        Dim nKata As Integer

        Dim nKunci As Integer

        Dim sKata As String

        Dim sPlain As String = ""

        Dim nEnc As Integer

        J = 0

        sKata = Plainteks.Text

        Jum = Len(sKata)

        sKey = kunci.Text

        For i = 1 To Jum

            If J = Len(sKey) Then

                J = 1

            Else

                J = J + 1

            End If

            nKata = Asc(Mid(sKata, i, 1)) + 0

            nKunci = Asc(Mid(sKey, J, 1)) + 0

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

        Next i

        Chiperteks.Text = sPlain

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        Plainteks.Text = ""

        kunci.Text = ""

        Chiperteks.Text = ""

    End Sub

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

        End

    End Sub

    Private Sub btnkembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkembali.Click

        Me.Hide()

        Formkriptografi.Show()

    End Sub

End Class

Public Class DES_chiper

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

        Dim kunci As String, kunciChar As String, katabaru As String

        Dim Pos As Integer

        Dim i As Integer, Side1 As String, Side2 As String

        Dim nEnc As Integer

        Pos = 1

        For i = 1 To Len(plainteks.Text)

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

            Kunci.Text = Mid(Kunci.Text, Pos, 1)

            chiperteks.Text = chiperteks.Text & Chr(Asc(Of Char)() Xor Asc(Kunci.Text))

            If Pos = Len(Kunci) Then Pos = 0

            Pos = Pos + 1

        Next i

        If Len(chiperteks.Text) Mod 2 = 0 Then

            Side1 = StrReverse(Left(chiperteks.Text, (Len(chiperteks.Text) / 2)))

            Side2 = StrReverse(Right(chiperteks.Text, (Len(chiperteks.Text) / 2)))

            chiperteks.Text = Side1 & Side2

        End If

        nEnc = chiperteks.Text

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        plainteks.Text = ""

        chiperteks.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

    Private Sub Btnkembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkembali.Click

        Me.Hide()

        Formkriptografi.Show()

    End Sub

End Class

 

Public Class RC_4

    Private Sub RC_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        plainteks.Text = ""

        chiperteks.Text = ""

        Kunci.Text = ""

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        plainteks.Text = ""

        chiperteks.Text = ""

        Kunci.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

    Private Sub Btnkembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkembali.Click

        Me.Hide()

        Formkriptografi.Show()

    End Sub

End Class