Enkripsi Tabel Ms Access Menggunakan Visual Basic

Enkripsi Tabel Ms Access Menggunakan Visual Basic

Enkripsi Tabel Ms Access Menggunakan Visual Basic.  Pasti anda pernah membuat sebuah aplikasi dengan menggunakan database MS Access, apakah tabel untuk akses ke aplikasi tersebut sudah di enkripsi ? supaya tidak sembarangan orang mengetahui user name dan password untuk login ke aplikasi tersebut. Tapi kebanyakan aplikasi yang dibuat tabelnya tidak di enkripsi, jika seseorang tidak bisa login ke aplikasi tersebut dapat dengan mudah membuka databasenya dengan cara membuka tabel untuk login, di situ dapat menemukan user dan passwordnya. Dan aplikasi yang kita buat dapat dengan mudah di buka oleh sembarang orang. Pada postingan sebelumnya saya pernah membahas cara menggunakan enkripsi MD5 pada database MySQL.

Dalam postingan ini akan membahas cara enkripsi tabel ms access sehingga tidak dengan mudah aplikasi kita dibobol. Dengan cara menambakan beberapa karakter setiap karakter yang kita inputkan ke dalam textbox. pada tutorial Enkripsi Tabel Ms Access Menggunakan Visual Basic ini saya akan memberi contoh pada penggunaan input data user yang meliputi input user name dan password, kita akan mengenkripsi kedua field tersebut. Berikut langkah-langkahnya:

Pertama buatlah sebuah database dari ms access silahkan beri nama test.mdb atau yang lain sesuai selera kemudian buatlah sebuah tabel dengan nama pengguna dengan dua field yaitu nama dan pass.seperti gambar berikut ini.

Tampilkan Gambar

Kedua bukalah visual basic 6 dan desainlah sebuah form siapkan 3 textbox dan dua commandbutton seperti form berikut ini

Tampilkan Gambar

Ketiga yaitu penulisan koding. Jika sudah selesai silahkan ketik koding seperti berikut ini jangan sampai ada yang salah ketik.

Buatlah sebuah modul dengan cara klik menu project- add modul lalu ketikan kode berikut ini

Public Conn As New ADODB.Connection
Public RsUser As ADODB.Recordset
Public sNama As String
Public sPassword As String

Public Sub Buka()
    Set Conn = New ADODB.Connection
    Set RsUser = New ADODB.Recordset
    Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb"
End Sub

Ketikan kode ini pada text1 sebagi inputan nama

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 13 Then
        'untuk mengubah huruf kecil menjadi besar
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
        'enkripsi dengan menambah karakter keyascii 29 karakter
        sNama = sNama & Chr(KeyAscii + 29)
    End If
End Sub

Lalu ketikan kode di bawah ini pada Text2

Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 13 Then
        'untuk mengubah huruf kecil menjadi besar
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
        'enkripsi dengan menambah karakter keyascii 45 karakter
        sPassword = sPassword & Chr(KeyAscii + 45)
    End If
End Sub

Kemudian tulislah kode ini pada commandbutton yang digunakan untuk menyimpan data

Private Sub Command1_Click()
    Call Buka
    If Text2.Text <> Text3.Text Then
        pesan = MsgBox("Pasword Tidak Sama, Ulangi Lagi...!", vbCritical, "Perhatian")
        Exit Sub
    Else
        Dim SQLAdd As String
        SQLAdd = " INSERT Into pengguna (nama,pass)values('" & sNama & "','" & sPassword & "')"
        Conn.Execute SQLAdd
        MsgBox "Penambahan User Baru Berhasil....", vbInformation, "Informasi..."
    End If
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
End Sub

Jika sudah silahkan dijalankan dan diisi datanya. jika berhasil maka tabelnya jika dibuka hasilnya seperti berikut ini. semoga bermanfaat

Tampilkan Gambar

Jika menginngnkan source codenya silahkan download link dibawah ini. dalam source code tersebut sudah ada form untuk login ke menu utama dengan menggunakan tabel yang telah dienkripsi.

Download

Tags:
Enkripsi, Enkripsi Tabel Ms Access Menggunakan Visual Basic,Enkripsi MD5,database,Pengamanan database,Password Login,enkripsi tabel,enkripsi database

5 Smartphone Apps That helps You Procrastinate Big Time

5 Smartphone Apps That helps You Procrastinate Big Time

Procrastination is the act of postponing what one needs to be doing at a present time to a later time usually needlessly. Will all are guilty of procrastination at one point in time and the emergence of smartphones makes this even easy to do so don t act like you are a saint. However, there are certain apps on our smartphones that makes us even more guilty and this apps are outlined below. 1. Candy Crush Saga Mehn, this game which is available for PC Android and iOS devices and can be very addictive; if you one isn t careful, getting hooked is a piece of cake. Imagine getting to the lobby of a big company and the receptionist seemed so busy on the computer, people even queuing up only to find the lady trying to get pass stage number 35 in candy crush game through Facebook. Someone might get hurt.
http://www.smart-andro.com/5-smartphone-apps-that-helps-you-procrastinate-big-time/

iH8sn0w Confirms Untethered iOS 7.1 Jailbreak

iH8sn0w Confirms Untethered iOS 7.1 Jailbreak

Just recently, @winocm tweeted that he was able to untethered jailbreak his iPhone 4 running Apple s newest iOS 7.1 firmware. In similar fashion, @iH8sn0w announced through hi tweeter account that his iPhone 4S running iOS 7.1 now has untethered jailbreak running on it. It was believed earlier that
http://www.smart-andro.com/ih8sn0w-confirms-untethered-ios-7-1-jailbreak/

Automatic Bra That Can Only Be Opened By True Love

Automatic Bra That Can Only Be Opened By True Love

Smartphone apps pop here and there all the time, some are terrible and some are good but some are very hilarious especially when you think of the concept and what it does.You would really laugh while reading this especially seeing the video of how it works here. Usually bra is just bra, with hooks for the females to clip to safely strap the bra to protect and hide their chest. But, this bra is different, its an automatic bra that doesn t electronic hook. The bra works by measuring the wearer’s heart rate, and sending the reading to an iPhone app. The app then determines the true-love quotient (100%) and – if it is reached – pops the clasp, freeing the breasts within. And of course, a raised heart rate is the perfect error-free metric for determining whether to unclasp a boulder holder. Let’s imagine some other situations. Running a marathon? Don’t run too hard, or your support will be magically ejected. Running from a suspicious man in an underground car-park, then fumbling
http://www.smart-andro.com/automatic-bra-that-can-only-be-opened-by-true-love/

Blackberry Vows To Prosecute Leakers of Its products

Blackberry Vows To Prosecute Leakers of Its products

New developments coming from the BlackBerry company, specifically from John Chen, CEO of BlackBerry is that there will be a strong crackdown on those personnel or individual that is responsible for leaking company s confidential information.
http://www.smart-andro.com/blackberry-vows-to-prosecute-leakers-of-its-products/

LG G3 akan gunakan layar setara monitor PC?

LG G3 akan gunakan layar setara monitor PC?

http://www.smart-andro.com/lg-g3-akan-gunakan-layar-setara-monitor-pc/

Cara Membuat Hyperlink Dengan Label

Cara Membuat Hyperlink Dengan Label

Cara Membuat Hyperlink Dengan Label. Bagaimanakah caranya membuat hyperlink dengan label..? Maksud dan tujuan membuat hyperlink tersebut adalah jika kita klik label hyperlink tersebut maka akan membuka sebuah web site atau blog yang telah di tentukan alamatnya. misalnya kita mau buka http://www.yahoo.com pada hyperlink tersebut.

Pada postingan sebelumnya saya pernah memposting sebuah komponen ocx yaitu HyperLabel.ocx dengan komponen tersebut kita dapat dengan mudah membuat Label Hyperlink tanpa menuliskan sebuah kode sedikitpun. Tapi pada kali ini saya akan membahas bagaimanakah caranya membuat hyperlink dengan label dengan cara manual yaitu dengan cara menuliskan kode-kode visual basic. Bagaimanakah caranya membuat hyperlink dengan label? Ikutilah langkah-langkahnya berikut ini semoga dapat bermanfaat.

Siapkan sebuah form kemudian taruhlah sebuah label di dalam form tersebut kemudian rubahlah caption label tersebut misalnya www.google.com atau sesuai dengan selera anda seperti gambar berikut ini.

Tampilkan Gambar

Jika sudah klik labelnya kemudian rubahlah properties MousePointer menjadi 99 - Custom. Kemudian pada properties MouseIcon kamu klik tombolnya kemudian carilah salah satu cursor yang anda inginkan.( Disini saya sudah menyiapkan beberapa cursor di dalam file source code yang bisa anda download )

Tampilkan Gambar

 

Jika sudah silahkan double klik formnya kemudian tulislah kode berikut ini pada bagian general

Const defaultcolor = &H800000
Dim adress As String Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ 
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Const SW_NORMAL = 1

Jika sudah silahkan double labelnya lalu tuliskan kode berikut ini:

Private Sub Label1_Click()
    ShellExecute 0, "open", adress, vbNullString, vbNullString, SW_NORMAL
End Sub

Kemudian pada bagian form load tuliskan kode berikut ini

Private Sub Form_Load()
    adress = Trim(Label1.Caption)
End Sub

Jika sudah silahkan di running dan dicoba hyperlinknya. Jika anda tidak ingin ribet membuatnya silahkan download source codenya di link di bawah ini.

Download Source Code

Keyword:
Cara Membuat Hyperlink Dengan Label,Hyperlink,Label Hyperlink,Membuat Hyperlink,Tips And Trik Hyperlink,Source Code Hyperlink