Pemograman Kriptografi dalam M. Visual Basic 2008

membuat MenuStrip nya

Public Class Form2

    Private Sub Form1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form3.MdiParent = Me
        Form3.Show()

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub

    Private Sub Form2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form1.MdiParent = Me
        Form1.Show()

    End Sub

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

    End Sub

    Private Sub CaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarToolStripMenuItem.Click
        Form3.Show()
    End Sub

    Private Sub VernanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernanToolStripMenuItem.Click
        Form4.Show()

    End Sub

    Private Sub GronfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronfeldToolStripMenuItem.Click
        Form5.Show()
    End Sub

    Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click
        MsgBox("Awassss... Ini Milik Pribadi")
    End Sub

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

hasil outputnya :

Program Kriptografi Caesar
Public Class Form3

    Private Sub Plain_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Plain.TextChanged

    End Sub

    Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.Click
        Dim x As String = ""
        Dim xenkripsi As String = ""
        For i = 1 To Len(Chipper.Text)
            x = Mid(Chipper.Text, i, i)
            x = Chr(Asc(x) - 3)
            xenkripsi = xenkripsi + x
        Next
        Chipper.Text = xenkripsi
    End Sub

    Private Sub Dekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dekripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Plain.Text)
            x = Mid(Plain.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        Chipper.Text = xkalimat
    End Sub

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

    End Sub
End Class

hasil outputnya :

Kriptografi Veernan
Public Class Form4

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Plain.Text = ""
        Kunci.Text = ""
        Chipper.Text = ""
    End Sub

    Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.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 = Plain.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) + 65)
        Next i
        Chipper.Text = splain
    End Sub

    Private Sub Plain_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plain.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 Plain_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Plain.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
End Class

hasil outputnya:

Kriptografi Gronfeld

Public Class Form5

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PlainText.Text = ""
        Kunci.Text = ""
        ChipperText.Text = ""

    End Sub

    Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.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 = PlainText.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)) - 26
            nkunci = Asc(Mid(skey, J, 1)) - 10
            nenc = ((nkata + nkunci) Mod 26)
            splain = splain & Chr((nenc) + 65)
        Next i
        ChipperText.Text = splain

    End Sub

    Private Sub PlainText_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PlainText.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 PlainText_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlainText.TextChanged

    End Sub

    Private Sub Kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kunci.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

    End Sub

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

    End Sub
End Class

Hasil outputnya :

 
 

5 Teknologi tercanggih masa kini

1.Pesawat Tanpa Awak

Pesawat tanpa awak dikembangkan agar bisa dikendalikan tanpa membutuhkan pilot atau awak,dan pesawat tanpa awak ini dikendalikan melalui remote control yang tersambung melalui signal radio,pesawat tanpa awak ini sudah di uji di beberapa negara, untuk siap digunakan.

2.Hadron Collider

Hadron Collider adalah sebuah penemuan atau ciptaan manusia yang diciptakan melalui lembaga ilmu pengetahuan Eropa yang bernama CERN. Hadron Collider adalah sebuah mesin akselerator partikel yang memiliki kekuatan atau energi terbesar dan tertinggi di seluruh dunia.

Tempat Hadron Collider adalah di Jenewa Swiss membentang sepanjang 27 kilometer dan berada di kedalaman 175 meter benda ini diciptakan karena akan digunakan untuk memecahkan misteri alam semesta yang membuat para ilmuwan fisika penasara.

Cara Kerja dari Mesin Hadron Collider adalah membuat proton – proton saling bertabrakan dalam kecepatan cahaya yang akan menciptakan partikel berenergi sangat kuat. Dan efek dari cara kerja Hadron Collider dikhawatirkan bisa membuat blackhole di bumi. 

3.Mobil Otomatis Google

Google Inc telah mecinpatkan sebuah mobil tanpa kendali,atau tanpa sopir yang bisa digunakan secara otomatis untuk bepergian kemana saja,mobil ini sangat berguna untuk semua orang utamanya untuk para tuna netra dan para penyandang cacat lainnya,karena mobil bisa berjalan dengan otomatis karena mobil ini tidak membutuhkan keahlian mengemudi dan tentunya tidak dibutuhkan penglihatan.

Cara kerja mobil ini yaitu mobil ini dilengkapi dengan sistem komputerisasi tingkat tinggi,dan pemetaan yang lengkap yang memungkinkan kita untuk bepergian dengan hanya meletakkan tempat tujuan di komputer tersebut.

Tapi catatan penting para perangkat mobil ini,jika sistem komputer dari mobil ini bermasalah,mobil ini akan melaju tidak terkendali yang ujungnya akan mengakibatkan kecelakaan bagi penggunanya.

4.Google Glass

Google Inc selain menemukan mobil otomatis juga menemukan google glass (kacamata pintar) pada penemuan terakhir mereka. kaca mata ini sangat banyak memiliki fungsi yang sulit dibayangkan manusia,diantaranya yaitu,dapat memotret ,mengambil video dan melacak map secara otomatis hanya dengan satu perintah suara.

Google glass juga dapat digunakan untuk mengenali wajah manusia,karena kacamata ini tersambung langsung ke google yang mengetahui banyak hal.

Catatan penting jika google glass digunakan oleh anak 14 tahun kebawah,google glass akan mengakibatkan kerusakan pada mata anak tersebut.

5.Printer 3D

Printer 3D adalah mesin pencetak yang sulit dibayangkan karena printer ini dapat mencetak suatu objek digital menjadi benda replikasi yang sama dengan gambar digital tersebut.

Contohnya jika objek digitalnya adalah uang maka yang di print out akan berbentuk uang yang mirip dengan aslinya,betapa keren perangkat ini.dan betapa penting untuk kita ketahui.

Demikian Artikel Ampuh mengenai 5 Teknologi Tercanggih Dunia Masa Kini semoga membantu dan menjadi sumber referensi untuk kita semua.

 

sumber: http://artikelampuh.blogspot.com/2013/08/5-teknologi-tercanggih-dunia-masa-kini.html

Teknologi komputer masa depan

Seiring dengan perkembangan zaman, dan kemajuan ilmu pengetahuan dan teknologi yang begitu cepat, bukanlah hal yang mustahil bagi manusia untuk menikmati berbagai layanan yang semakin canggih dan cepat begitu juga dengan komputer. Baru-baru ini NEC Design Ltd sebuah lembaga di jepang menawarkan sebuah konsep baru tentang teknologi komputer yang sangat mengejutkan. Konsep tersebut adalah Komputer Model Pena.

Model dari komputer ini adalah model pena. Jika dilihat secaara sekilas pena ini sangat tidak mungkin disebut komputer. Dari jika sudah mengetahui fungsi dan manfaatnya kita tentu pasti terkejut.

Komputer ini disebut P-ISM.
Sebagaimana dijelaskan oleh desainer NEC sebagai “Pen-style Personal Networking Gadget Package”. Komputer model ini diperkirakan senilai $30.000 atau sekitar 300an juta rupiah. Harga tersebut untuk ukuran sebuah komputer mungkin sangat mahal, tetapi jika dilihat dari segi terkologi tentu tidak ada apa-apanya. Menurut Website NEC Design, komputer jenis P-ISM ini adalah paket komputer pena yang mencakup 5 fungsi yaitu :

• Ponsel bergaya pena dengan cara input data menggunakan tulisan tangan
• virtual keyboard
• proyektor kecil
• Camera Scanned
• Personal ID password yang berfungsi sebagai identitas pemilik

P-ISM terhubung satu sama lain dengan technology wireless yang berdekatan. model ini juga bisa tersambung dengan internet menggunakan fungsi telepon selular pada P-ISM ini.. Gadget personal ini bergaya pena minimalis yang mempunyai fitur yang Luar biasa Lengkap. Awalnya kita berpikir bahwa model teknologi laptop "Keyboard dan layar" akan bertahan lama. namun tidak bisa kita pungkiri bahwa pena dan kertas adalah alat tulis dan simbol yang secara alami kita terima, hanya tinggal masalah waktu saja sampai seseorang menemukan produk Canggih terbaru yang berkedok sebagai "Pena Pintar" ataupun "Kertas Pintar". Jadi mungkin tak lama lagi laptop(komputer jinjing) akan tidak laku lagi.

Selain NEC Design Ltd , perusahaan komputer ternama di dunia Microsoft Corporation juga tidak mau ketinggalan. Baru -baru ini Microsoft sedang mengembangkan prototype komputer masa depan dan sedang menyempurnakannya. Komputer ini dinamai Microsoft Surface. Dalam teknologi ini, seumpama kita mempunyai sebuah kamera digital dan sebuah telepon genggam/ponsel yang telah memiliki dukungan wareless, maka setelah kita memotret benda/seseorang dengan kamera tadi, kemudian kamera itu kita letakkan di atas sebuah monitor sentuh atau touchscreen yang menyerupai meja. Setelah ditaruh, kemudian akan muncul gambar benda atau wajah yang telah kita potret tadi di dalam layar tanpa kita memindahkannya. Kemudian dengan teknologi ini, gambar tersebut bisa diperbesar, diperkecil, dibolak-balik dengan menggunakan tangan. Dan yang lebih seru lagi. Letakkan sebuah ponsel tadi di atas meja itu. Geser gambar dimonitor tersebut ke arah ponsel. Dan seketika itu pula gambar sudah berpindah ke memory card ponsel kita tanpa kita memegang ponsel itu.

Dua perkembangan teknologi komputer di atas mungkin akan terrealisasi dalam jangka waktu yang cukup lama. Kita tentu harus sabar menggunya. Tetapi dalam waktu dekat kita juga akan disuguhi perkembangan teknologi komputer yang tidak kalah canggih. Dalam tahun 2010 ini akan segera dirilis Laptop jenis baru. Dilihat dari segi bentuk dan kecanggihanya, laptop yang akan dirilis tahun ini benar-benar sangat fantastis. 

TriBook dengan tiga konsep layar ultra lebar yaitu 21in lebar layar. Ia juga memiliki sebuah 8x SuperDrive, 1TB harddisk, dan MacBook Pro-calibre CPU, plus sebuah keyboard multitouch trackpad.

Generasi laptop masa depan ini dibuat oleh industri desainer Jerman Felix Schmidberger, model classy, elegan, futuristik laptop yang menggunakan OLED touchscreen.

Barangkali lebih tepat disebut Paper PC karena bentuknya yang seperti lembaran kertas berupa layar sebagai antar muka dan dilengkapi pena untuk mengoperasikannya dengan cara touch screen. Didesain oleh Avery Holleman

Laptop yang mempunyai dua layar dengan desain mirip buku,  Prototipe dari XO-2 dan One Laptop Per Child (OLPC) .

Itulah beberapa perkembangan teknologi komputer masa depan yang dapat semakin mempermudah kehidupan manusia. Karena menurut saya fungsi utama teknologi adalah diciptakan supaya dapat mempermudah kehidupan manusia.


by: http://fahruddi.blogspot.com/2013/10/komputer-masa-depan.html