Metode & Algoritma | List Tutorials | Source Code | About | Sitemap
Konsultan Tesis
Bimbingan dan Konsultasi Tesis Informatika bersama team Project Graduate Indonesia. Konsultasi hanya untuk yang sudah me-Like FB kami (Silahkan LIKE tombol ini jika belum).
. Scroll kebawah untuk memasukan kode AntiSpam Protection. Hasil konsultasi akan kami kirimkan ke email Anda.

Kriptografi Sandi Caesar




.


Metode dan Algoritma | Kriptografi Sandi Caesar . Anda bisa melakukan konsultasi tentang Kriptografi Sandi Caesar melalui form di samping kanan !!!


Sandi Caesar atau sandi geser merupakan algoritma simestris yang paling sederhana dalam memahami sekelumit kecil mengenai Kriptografi. Ini merupakan teknik enkripsi paling sederhana namun terkenal.

Cara kerjanya cukup gampang, tinggal menggeser deretan huruf sebanyak 3 posisi, seperti gambar di bawah ini. Cukup mudah bukan?





Rumus untuk Enkripsi Caesar yaitu :

C = P + 3 mod 26

Sedangkan untuk Dekripsinya :

P = C - 3 mod 26

Diketahui :
C = Cipherteks
P = Plainteks

Gampang bukan.

Designlah seperti gambar Kriptografi Caesar di bawah.





Berikut listing programnya.

Public Class Form1
    Private Sub btnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnkripsi.Click        Dim x As String        Dim bil As Integer        Cipher.Text = ""        For i = 1 To Len(Plain.Text)            x = Microsoft.VisualBasic.Mid(Plain.Text, i, 1)            bil = Asc(x)            bil = bil + 3            x = Chr(bil)            Cipher.Text = Cipher.Text & x        Next    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Plain.Text = ""        Cipher.Text = ""
    End Sub
End Class
End Class





Penerapan Kriptografi Pada Record Database


Anda ingin tahu beda Tanpa Kriptografi dengan menggunakan Kriptografi? Lihat saja gambar berikut ini :

Tabel berikut ini tanpa kriptografi

Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Saya jamin anda pasti bisa dengan mudah memahami data diatas tersebut bukan? 

coba anda pahami data pada gambar berikut.

Penerapan 

Kriptografi Pada Record Database Menggunakan Program VB NET

Tabel tersebut diatas setelah memakai kriptografi

Bagaimana? ingin tahu cara membuatnya? silahkan ikuti penerapan kriptografi pada record database menggunakan program VB NET

Terlebih dahulu buatlah database Nasabah.MDB dengan struktur tabel seperti berikut ini :

Tabel : Nasabah

Field    Tipe  Size
------------------------------
Kode    Text    5    
Nama    Text    50
Alamat    Text    100
Telp    Text    15

Simpan pada drive C:

Kemudian silahkan design form nasabah seperti tampilan berikut ini.

Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Berikut listing program 
Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Imports System.Data.OleDb

Public Class Form1

    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Public SQL As String

    Function ENCCaesar(ByVal Plain As String) As String
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Plain)
            x = Mid(Plain, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        ENCCaesar = xkalimat
    End Function

    Function DECCaesar(ByVal Chiper As String) As String
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Chiper)
            x = Mid(Chiper, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        DECCaesar = xkalimat
    End Function

    Public Sub OPENDB()
        Dim LOKASI = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:Nasabah.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub

    Sub TombolBaru()
        btnBaru.Enabled = True
        btnSimpan.Enabled = False
        btnEdit.Enabled = False
        btnHapus.Enabled = False
        btnBatal.Enabled = False
        btnKeluar.Enabled = True
    End Sub

    Sub TombolEdit()
        btnBaru.Enabled = False
        btnSimpan.Enabled = False
        btnEdit.Enabled = True
        btnHapus.Enabled = True
        btnBatal.Enabled = True
        btnKeluar.Enabled = False
    End Sub

    Sub TombolSimpan()
        btnBaru.Enabled = False
        btnSimpan.Enabled = True
        btnEdit.Enabled = False
        btnHapus.Enabled = False
        btnBatal.Enabled = True
        btnKeluar.Enabled = False
    End Sub

    Sub HapusForm()
        Kode.Text = ""
        Nama.Text = ""
        Alamat.Text = ""
        Telp.Text = ""
        Call TombolBaru()
    End Sub


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

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        SQL = "INSERT INTO Nasabah(Kode, Nama, Alamat, Telp)" & _
                  "Values (`" & Kode.Text & "`,`" & _
                                ENCCaesar(Nama.Text) & "`,`" & _
                                ENCCaesar(Alamat.Text) & "`,`" & _
                                ENCCaesar(Telp.Text) & "`)"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        SQL = "UPDATE Nasabah SET Nama=`" & ENCCaesar(Nama.Text) & "`, " & _
                                    " Alamat=`" & ENCCaesar(Alamat.Text) & "`, " & _
                                    " Telp=`" & ENCCaesar(Telp.Text) & "` " & _
                                    " Where Kode=`" & Kode.Text & "`"

        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        SQL = "DELETE FROM Nasabah Where Kode=`" & Kode.Text & "`"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        Call btnBaru_Click(sender, e)
    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click
        Call HapusForm()
        Kode.Focus()
    End Sub

    Private Sub Kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kode.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        If tombol = 13 Then
        ` Gunakan T pada SELEC
            SQL = "SELEC * FROM Nasabah Where Kode=`" & Kode.Text & "`"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows = True Then
                Nama.Text = DECCaesar(DR("Nama"))
                Alamat.Text = DECCaesar(DR("Alamat"))
                Telp.Text = DECCaesar(DR("Telp"))
                Call TombolEdit()
                MsgBox("Data Ini Sudah Tersimpan Pada Tabel Nasabah !")
            Else
                xkode = Kode.Text
                Call HapusForm()
                Kode.Text = xkode
                Call TombolSimpan()
            End If
            DR.Close()
            Nama.Focus()
        End If
    End Sub

End Class



Hasil Program penerapan kriptografi pada record database menggunakan program VB NET.

Screen Pertama
Sewaktu data disearching maka record asli masih nampak, tanpa dilakukan Dekripsi

Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Screen Kedua
Setelah di Dekripsikan maka akan terlihat record aslinya.
Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET


Adapun fungsi untuk melakukan Enkripsi dan Dekripsi dapat dilihat berikut ini :



Saat melakukan Enkripsi
    Function ENCCaesar(ByVal Plain As String) As String
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Plain)
            x = Mid(Plain, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        ENCCaesar = xkalimat
    End Function
Lihat pemakaiannya disini.
        SQL = "INSERT INTO Nasabah(Kode, Nama, Alamat, Telp)" & _
                  "Values (`" & Kode.Text & "`,`" & _
                                ENCCaesar(Nama.Text) & "`,`" & _
                                ENCCaesar(Alamat.Text) & "`,`" & _
                                ENCCaesar(Telp.Text) & "`)"
serta
        SQL = "UPDATE Nasabah SET Nama=`" & ENCCaesar(Nama.Text) & "`, " & _
                                    " Alamat=`" & ENCCaesar(Alamat.Text) & "`, " & _
                                    " Telp=`" & ENCCaesar(Telp.Text) & "` " & _
                                    " Where Kode=`" & Kode.Text & "`"



Saat melakukan Dekripsi
    Function DECCaesar(ByVal Chiper As String) As String
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(Chiper)
            x = Mid(Chiper, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        DECCaesar = xkalimat
    End Function


dan lihat pemakaiannya disini.
        Nama.Text = DECCaesar(DR("Nama"))
        Alamat.Text = DECCaesar(DR("Alamat"))
        Telp.Text = DECCaesar(DR("Telp"))



Demikianlah pembahasan penerapan kriptografi pada record database menggunakan program VB NET. Semoga anda dapat memahaminya
   
Tag : Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET, program vb net, kriptografi pada vb net


Bila bermanfaat silahkan share Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET ini dengan teman anda, Terima kasih sebelumnya


sumber ": http://www.mesran.net/berita-643-penerapan-kriptografi-pada-record-database-menggunakan-program-vb-net.html




Source Code ActionScript AS3 ASP.NET AJAX C / C++ C# Clipper COBOL ColdFusion DataFlex Delphi Emacs Lisp Fortran FoxPro Java J2ME JavaScript JScript Lingo MATLAB Perl PHP PostScript Python SQL VBScript Visual Basic 6.0 Visual Basic .NET Flash MySQL Oracle Android
Related Post :


Project-G
Judul: Kriptografi Sandi Caesar
Rating: 100% based on 99998 ratings. 5 user reviews.
Ditulis Oleh hank2

Anda sedang membaca artikel tentang Kriptografi Sandi Caesar, Semoga artikel tentang Kriptografi Sandi Caesar ini sangat bermanfaat bagi teman-teman semua, jangan lupa untuk mengunjungi lagi melalui link Kriptografi Sandi Caesar.


Posted by: Metode Algoritma Updated at: 06.56

Label

3 Variabel Adaptive Resonance Theory Algorirma RSA Algoritma Algoritma Clonal Selection Algoritma Djikstra Android ANN Annaeling Aritmetika Modulo ART Artificial Neural Network Backpropagation Biometrik Blowfish Brute Force Buble Sort Business Process Management C++ C-Means Caesar Cipher CISM Contoh Contoh Kode Contoh Penerapan contoh program Contoh Soal Corporate Information System Management CRC Cyclic Redundancy Code Deteksi Wajah Dijkstra Djikstra Eigenface Enterprise Resource Planning ERP Expectation Maximization Face Detection Face Extractor Face Recognition Facebook FCFS FCM Filterbank First Come First Server Fisherface FP-Growth Fuzzy ART Fuzzy C-Means Gaussian Generate & Test Genetika greedy Green Computing Huffman image processing Implementasi Information System Risk Management iOS 5 Iris Recognition IS Strategic Planning Jaringan Jaringan Saraf Tiruan jaringan syaraf tiruan Jasa Pembuatan Tesis Skripsi TA Informatika Komputer Java JST K-means knowledge management konsultan tesis informatika kriptografi Kruskal Kruskall Linear Programming list judul informatika LOKI LOOK Low Bit Coding LSB Manajamen Proses Bisnis Manajemen Perubahan MANET Masalah Rute Kendaraan Mass Transport Vehicle Routing Problem Metode Grafik metode LSB Minimum Spanning Tree mobile Mobile Ad hoc Network MTVRP negascout Online Learning Open Shortest Path First OpenCV OSPF PCA Pemrograman Linear Pencarian Akar Pencarian Linear Pencocokan Pengenalan Iris Mata Pengenalan Suara Pengenalan Wajah Pengolahan Citra Pengolahan Citra Digital Pengukuran Garis-Garis Telapak Tangan Penjadwalan Persamaan Linier Pewarnaan Graf Pewarnaan Graph Prim Project and Change Management Quantum Random Waypoint real time tracking Recognition Recursive Large First RLF RMSE Root Mean square Error RSA RWP Sandi Sidik Jari Simulated Annaeling SISP Sistem Verifikasi Biometrik skripsi sorting Source Code Spanning Tree Speech Speech Recognition Steganography Strategic Information Systems Planning Stream Cipher Technopreneurship Traveling Salesman Problem Travelling Salesman problem Tree TSP Voice Recognition Watermaking Web Service Welch dan Powell