VB來破解access密碼

因為在網(wǎng)上看了一下破解access密碼的幾個vb函數(shù)， 就拿出來和大家一起分享一下， 教大家用vb來編寫一個簡單的工具吧。 　　打開vb， 新建一個標準EXE工程， 添加3個label控件， 3個text控件， 2個command控件， 做出如圖1所示的界面。  　　要破解access的密碼需要用到下面幾個函數(shù)：GetFileName， FileExists， FileName， GetStrFromBuffer， GetAccessPwd， GetPwdDirect， Hex2ByteA， LoGetEncryptStr， LoGetKey。 因為這些函數(shù)都不是Windows API函數(shù)， 所以需要我們進行自定義。 點擊“工程”， 添加一個模塊， 如圖2，  把函數(shù)定義寫進去， 由于代碼過長， 我就不一一例舉了。 接下來大家請看窗體部分的代碼：Private Sub path_Click()Text1.Text = GetFileName(True)End SubPrivate Sub pass_Click()Dim sFileAs StringDim sPasswd As StringDim sVersion As StringsFile = Text1.TextsPasswd = GetAccessPwd(sFile, sVersion, True)If gbExit Then Exit SubText2.Text = sVersionText3.Text = sPasswdEnd Sub當點擊“選擇路徑”時， 就會調(diào)用GetFileName函數(shù)來取得目標數(shù)據(jù)庫的路徑， 然后賦值給Text1。 當點擊“破解密碼”時， 則調(diào)用GetAccessPwd函數(shù)來取得數(shù)據(jù)庫的密碼， 把數(shù)據(jù)庫的版本號傳到Text2， 把密碼傳給Text3。     現(xiàn)在， 這個小東西已經(jīng)弄好了， 我們來生成EXE文件看看它的效果吧， 如圖3。