I Wont Give Up – Jason Mraz Lyrics & Listen

I Wont Give Up – Jason Mraz Lyrics & Listen

Penerapan Kriptografi Pada Record Database Menggunakan Program VB NET

Ok nih pagi hari ini saya akan menshare kan contoh penggunaan kriptografi untuk mengamankan data yang akan tersimpan ke dalam record yang terdapat pada database. Contoh berikut menggunakan Kriptografi Caesar, Sederhana, Mudah dan Terkenal.

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

Tabel berikut ini tanpa kriptografi


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

coba anda pahami data pada gambar berikut.



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.



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



Screen Kedua
Setelah di Dekripsikan maka akan terlihat record aslinya.



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

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

6. Meragun Adanya Siksa

Maksudnya tidak mempercayai adanya siksaan dari Allah subhanahu wata’ala bagi orang yang melakukan kekufuran, kejahatan, atau orang yang menentang perintah-rintah-Nya. Padahal Allah ta’ala telah mengancam bagi orang yang tidak beriman kepada-Nya akan mendapat siksaan yang amat pedih. Seperti yang telah disebutkan oleh Allah dalam firman-Nya yang artinya “Adapun orang-orang kafir, maka akan aku siksa mereka dengan siksa yang amat pedih (Ali Imran : 56)”.

Seandainya tidak ada siksa, maka neraka dan ancaman Allah tidak akan berartidan hukum-hukumnya menjadi rusak, sebab manusia tidak takut lagi untuk kufur, dzalim dan bermaksiat kepadanya. Bila semua ini terjadi, maka yang berlaku dalam alam ini adalah hukum rimba. Siapa yang kuat dia dapat, siapa yang berkuasa dan menang dia akan menindas dan ynag lemah akan ditindas.

Allah menurunkan hukum syara’ kepada ummat-Nya adalah untuk menata kehidupannya agar selamat didunia dan diakhirat. Juga unutk memperbaiki akhlak, melluruskan aqidah dan mengatur tingkah laku manusia agar sesuai dengan norma-norma agama yang dikehendaki oleh Allah Ta’ala. Hukum tersebut tidak akan berarti, bila pelanggarnya tidak dikenai sanksi berupa siksaan.

Adanya siksa juga menunjukkan keadilan Allah, karena Allah tidak mungkin melakukan siksa terhadap orang yang tidak bersalah, apalagi berbuat dzallim kepada-Nya. Siksa hanya diberikan kepada hamba-hamba yang berbuat maksiat atau melanggar hukum-hukum-Nya, menurut kadar besar kecilnya pelanggaran yang dibuatnya. Hal ini lebih dipertegas lagi dengan adanya firman Allah yang artinya “Dan, orang-orang yang mengerjakan kejahatan (mendapat) balasan (sesuai) yang setimpal (Yunus : 27)”.

Ayat di atas jelas mempertegas, bahwa sekecil apapun kejahatan itu dilakukan, pasti akan ada balasan siksanya, bila dia tidak mau bertaubat. Sepert yang tertera dalam Al-Qur’an yang artnya “Dan, barang siapa yang berbuat kejahatan, sekalipun seberat dzarrah (biji sawi) niscahya ia akan melihat (balasan siksanya) (AL-Zilzalah : 8)”. 

Sasungguhnya apa yang diterangkan dalam Al-Qur’an adalah benar adanya. Jadi bagi orang yang masih meragukan atau bahkan tidak mempercayai adanya siksa yang dibuat oleh Allah, maka orang tersebut telah keluar dari garis-garis Islam dengan melakukan murtad, yakni murtad yang i’tiqad yaitu yang disebabkan oleh i’tiqadnya yang sesat.

5. Meragukan Adanya Pahala

Meragukan atau tidak mempercayai adanya balasan pahala dari Allah bisa menggelincirkan iman. Seandainya tidak ada pahala, apa artinya Allah menciptakan syurga.? Dan, apa tujuan dari perintah Allah untuk melakukan kebajikan dan menjauhi larangan-Nya.? Bukankah Allah sering menjanjikan terhadap orang yang bertaqwa akan diberi pahala dan syurga di akhirat kelak. Allah adalah dzat sebaik-baik pemberi balasan, hal ini telah dikatakan oleh Al-Qur’an yang artinya “Dia adalah sebaik-baik pemberi pahala dan sebaik-baik pemberi balasan (Al-Kahfi : 44)”.

Org yang tidak mempercayai adanya pahala adlah orang kurang mengerti terhadap ajaran agamanya secara baik, hingga ia membiarkan hawa nafsunya mengusai dirinya, yang membuat mata hatinya buta terhadap kebenaran. Menurutnya pahala adalah menikamati semua kemewahan duniawi, sedangkan neraka adalah kehidupan yang melarat, meronta-ronta dengan segala bentuk kesengsaraan hidup didunia.

Orang yang pola pikirnya demikian menganggap bahwa ajaran agama itu tidak lebih itu tidak lebih dari upacara-upacara ritual belaka. Dan, inilah car berpikirnya orang yang metarialistis.

Jikalau pahala itu hanya bertumbuh pada kenikmatan duniawi semata, pasti pasti akan menyeret semua orang untuk berlomba-lomba mencari kenikmatan dan kemewahan hidup didunia dengan segala cara, bila perlu tipu daya dan kejahatan di tempuh dari memperoleh kesenangan hidup. Keadaan ini bisa menjerumuskan manusia hidup dalam alam rimba, siapa yang kuat dialah yang menang, dan siapa yang lemah yang menjadi mangsa. Jika sudah demikian, maka harkatdan martabat manusia jatuh seperti binatang, tidak mengenal rasa belas kasihan, saling menerkam, saling menganiaya, bahkan sampai saling bunuh.

Dari uraian di atas dapat disimpukan, bahwa meyakini adanya pahala di akhirat kelak dapat memberikan sepirit bagi manusia untuk melakukan kebajikan dan menjauhi segala macam bentuk kejahatan selama didunianya. Sebab setiap individu meyakini kalau berbuat baik akan memperoleh pahala di akhirat.

Allah akan memberikan pahala kepada hamba-Nya yang melakukan  amal kebajikan tanpa membedakan jenis kelamin, status sosial, derajat dan kedudukan, meskipun amal kebajikan yang dikerjakan itu kecil sekali seperti atom, semua itu akan dapat dilihat balasan pahalanya. Seperti yang ternukil dalam Al-Qur’an berikut ini yang artinya “Maka barang siapa yang berbuat kebajikan, meskipun sebesar biji dzarrah (biji sawit) niscahaya ia akan melihat (balasannya), (Al-Zilzalah : 7)”

Jelas sudah bahwa pahala itu ada dan akan diberikan oleh Allah, kepada orang yang dikehendakinya. Sedangkan bagi orang yang meragukan atau tidak mempercayai adanya pahala sama halnya mendustakan Allah sebagi Dzat yang menjanjikan adanya pahala. Dengan demikian keraguan tersebut dapat mencopot keimanannya.
 http://ihsanwestley1.blogspot.com/