Mengintip Password pada Database MS Access Menggunakan Visual Basic .Net

 Ide ini berawal saat saya mendapatkan job untuk membuat laporan dari sebuah program, dimana program yang dimaksud merupakan program build up alias program sudah jadi. Cukup repot juga karena program tersebut menggunakan database portable yang telah diberi password oleh programmernya. Beberapa saat saya berpikir bagaimana caranya untuk membuka database yang dipassword itu. Kemudian saya browsing di internet mencari cara bagaimana melihat password yang ada pada database tersebut. Singkat cerita, akhirnya saya temukan sebuah software yang berfungsi untuk melihat password yang ada pada database MS Access. Selanjutnya saya praktekkan cara diatas dan ternyata berhasil, dari situ saya lanjutkan untuk mengerjakan job sampai selesai.

Muncul rasa penasaran saya bagaimana caranya melihat ataupun istilah ekstremnya menjebol password pada sebuah database MS Access. Berhari - hari berselancar di dunia maya untuk mencari referensi tentang database MS Access, akhirnya ketemu sistem kerja ataupun algoritma kriptografi dari database yang dimaksud. Ditambah lagi dengan kumpulan - kumpulan source code yang berserakan seperti tak bertuan, kemudian saya rancang sebuah program untuk mengaplikasikan rasa penasaran yang selama ini melanda batin saya. Setelah bersusah payah selama berhari - hari mengerjakan program tersebut dan akhirnya saya pun berhasil menyelesaikannya dengan predikat WTP (Wajar Tanpa Pamrih).

Baik langsung saya jabarkan step by step cara pembuatannya dengan membuka Microsoft Visual Basic versi 2005 ke atas, disini saya menggunakan versi 2010 Express Edition. Buat sebuah projek kemudian beri nama Access Password.

Langkah selanjutnya dengan mendesain Form dan menambahkan beberapa objek pada Form hingga hasilnya seperti gambar dibawah ini :

Sebelum melakukan pengkodean pada program, silahkan download file library Access Management pada link berikut : https://www.4shared.com/s/fmkwtmupjee

Klik dua kali pada tombol browse lalu ketikkan perintah dibawah ini :

Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
    Dim ofd As New OpenFileDialog
    ofd.Filter = "Microsoft Access (*.mdb)|*.mdb"
    If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
        txtPath.Text = ofd.FileName
    End If
End Sub

Private Sub btnGetPassword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetPassword.Click
    Dim am As New AccessManagement.AccessPassword
    txtHasil.Text = am.GetMs2000XP(txtPath.Text)
End Sub