Kriptograficesar

Public Class Form2

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

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.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
        chiper.Text = xkalimat
    End Sub

    Private Sub Btndekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndekripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(chiper.Text)
            x = Mid(chiper.Text, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        plain.Text = xkalimat
    End Sub
End Class

Menu,Toolbar,Statusbar dan kriptografisesar

Public Class Form1

    Private Sub form1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

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

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

    End Sub
End Class
listing program Kriptografi Cessar
Public Class Form2

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

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.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
        chiper.Text = xkalimat
    End Sub

    Private Sub Btndekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndekripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(chiper.Text)
            x = Mid(chiper.Text, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        plain.Text = xkalimat
    End Sub
End Class

kriptografi vernam

Public Class oneTimePad

    Private Sub OneTimePad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""


    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

            End If
            nkata = Asc(Mid(skata, j, 1)) - 65
            nkunci=Asc(Mid(skey,j,1)-65
            nEnc=((nkata + nkunci ) mod 26
            splain = splain & Chr((nEnc) + 65)
        Next i
        chiperteks.Text = splain
    End Sub
End Class

[Waliyanto2000] Gabungan antara basis data dan perangkat lunak SMBD (Sistem Manajemen Basis Data) termasuk di dalamnya program aplikasi yang dibuat dan bekerja dalam satu sistem disebut dengan Sistem Basis Data.

Sistem Basis Data adalah suatu sistem menyusun dan mengelola record-record menggunakan computer untuk menyimpan atau merekam serta memelihara data operasional lengkap sebuah organisasi/perusahaan sehingga mampu menyediakan informasi yang optimal yang diperlukan pemakai untuk proses mengambil keputusan. Salah satu cara menyajikan data untuk mempermudah modifikasi adalah dengan cara pemodelan data. Model yang akan dipergunakan pada pelatihan ini adalah Entity Relationship Model. Model Entity Relationship adalah representasi logika dari data pada suatu organisasi atau area bisnis tertentu dengan menggunakan Entity dan Relationship.
Entity/Entitas

• Adalah obyek di dunia nyata yang dapat dibedakan dari obyek lain.
• Entity Set/Kumpulan Entity adalah kumpulan dari entitas sejenis/dalam tipe sama.
• Entity set dapat berupa: Obyek fisik : rumah, kendaraan, pegawai dan Obyek abstrak : konsep politik, pekerjaan, rencana, dll.
• Simbol yang digunakan untuk entity adalah persegi panjang

Tipe entitas :

•  Entitas Kuat yaitu entitas mandiri yang keberadaannya tidak bergantung pada keberadaan entitas lain
• Entitas Lemah/Weak Entity yaitu entitas yang keberadaannya bergantung pada keberadaan entitas lain.
• Entitas Assosiatif adalah entitas yang terbentuk dari suatu relasi, bisa terjadi jika : Relasi yang merekatkan dua entitas bersifat banyak ke banyak. Biasanya berasal dari suatu relasi dimana relasi itu memiliki makna mandiri bagi pengguna

Relationship

• Adalah hubungan antara suatu himpunan entitas dengan himpunan entitas lainnya
• Simbol yang digunakan adalah bentuk belah ketupat, diamod atau rectangle.

Contoh :

Derajat Relationship

Menjelaskan jumlah entity yang terlibat dalam suatu relationship

• Unary Degree (Derajat satu) –>> hanya satu entity yang terlibat

• Binary Degree (Derajat dua) –>> menghubungkan dua entity

• Ternary Degree (Derajat tiga) –>> menghubungkan tiga entity

Atribut
Adalah property deskriptif yang dimiliki oleh setiap himpunan entitas
Jenis-jenis atribut :

•  Atribut key –>> digunakan untuk mengidentifikasi suatu entity secara unik
• Atribut tunggal –>> memiliki nilai tunggal
• Atribut multivalue –>> memiliki sekelompok nilai untuk setiap instant entity
• Atribut composite –>> dapat didekomposisi menjadi beberap atribut lain
•  Atribut derivative –>> dihasilkan dari atribut yang lain

Key
Adalah sejumlah atribut yang mengidentifikasi record/baris dalam sebuah relation secara unique.
 Beberapa jenis key:

•  Super Key –>> satu atribut atau kumpulan atribut yang secara unik mengidentifikasi sebuah record di dalam relasi atau himpunan dari satu atau lebih entitas yang dapat digunakan untuk mengidentifikasi secara unik sebuah entitas dalam entitas set.
• Candidate Key –>> atribut-atribut yang menjadi determinan yang dapat dijadikan identitas record pada sebuah relation bisa terdapat satu atau lebih candidate key.
• Primary key –>> candidate key yang menjadi identitas record karena dapat mengidentifikasi record secara unik
• Altenate key –>> candidate key yang tidak dijadikan primary key
• Composite key –>> key yang terdiri dari 2 atribut atau lebih.
• Atribut-atribut tersebut bila berdiri sendiri tidak menjadi identitas record, tetapi bila dirangkaikan menjadi satu kesatuan akan dapat mengidentifikasi secara unik
• Foreign key –>> non key atribut pada sebuah relation yang juga menjadi key (primary) atribut di relation lainnya. Foreign key biasanya digunakan sebagai penghubung antara record-record dan kedua relation tersebut.

Data Base Management System (DBMS)/Sistem Manajemen Basis Data (SMB)
DBMS dapat diartikan sebagai program komputer yang digunakan untuk memasukkan, mengubah, menghapus, memodifikasi dan memperoleh data/informasi dengan praktis dan efisien.
Kelebihan dari DBMS antara lain adalah:

• Kepraktisan. DBMS menyediakan media penyimpan permanen yang berukuran kecil namun banyak menyimpan data jika dibandingkan dengan menggunakan kertas.
•  Kecepatan. Komputer dapat mencari dan menampilkan informasi yang dibutuhkan dengan cepat.
• Mengurangi kejemuan. Pekerjaan yang berulang-ulang dapat menimbulkan kebosanan bagi manusia, sedangkan mesin tidak merasakannya.
•  Update to date. Informasi yang tersedia selalu berubah dan akurat setiap.

Skema dan Instan Basis Data
Skema basis data merupakan deskripsi dari basis data yang spesifikasinya ditentukan dalam tahap perancangan namun tidak terlalu diharapkan diubah setiap saat. Penggambaran skema umumnya hanya berisi sebagian dari deatil deskripsi basis data.

Sekelompok data yang tersusun dalam satu baris rekaman (record/tuple) dan tersimpan dalam basis data disebut dengan instansi (instance) atau kejadian (occurences).

sumber: www.cara.aimyaya.com/2013/02/cara-konversi-bilangan-desimal-biner.html