01-08-13, 02:13 AM
من اليوم لن تسال احد عن كلمات السر لقواعد البيانات ...بهذا البرنامج بامكانك فتح و كسر اي كلمة سر لاي قاعدة بيانات
صورة البرنامج
[ATTACH=CONFIG]3586[/ATTACH]
و هذا كود البرنامج
البرنامج بالمرفقات
صورة البرنامج
[ATTACH=CONFIG]3586[/ATTACH]
و هذا كود البرنامج
كود :
Option Explicit[/b][/SIZE][/align]
[SIZE=4][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b]Private Sub cmdGet_Click()[/b][/SIZE]
[SIZE=4][b]cd.Filter = "Microsoft Access Files (*.mdb)|*.mdb"[/b][/SIZE]
[SIZE=4][b]'cd.DialogTitle = App.FileDescription[/b][/SIZE]
[SIZE=4][b]cd.ShowOpen[/b][/SIZE]
[SIZE=4][b]If Not Len(cd.FileName) = 0 Then[/b][/SIZE]
[SIZE=4][b]File = cd.FileName[/b][/SIZE]
[SIZE=4][b]GetPassword[/b][/SIZE]
[SIZE=4][b]txtGet.Text = "Nom Base De Donnée : " & cd.FileTitle & vbCrLf & vbCrLf & "Mot De Passe : " & str2000[/b][/SIZE]
[SIZE=4][b]End If[/b][/SIZE]
[SIZE=4][b]End Sub[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b]Private Function GetPassword()[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] On Error GoTo ErrHand[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] Dim Access2000Decode As Variant[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] Dim fFile As Integer[/b][/SIZE]
[SIZE=4][b] Dim bCnt As Integer[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] Dim retXPwd(17) As Integer[/b][/SIZE]
[SIZE=4][b] Dim wkCode As Integer[/b][/SIZE]
[SIZE=4][b] Dim mgCode As Integer[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] Access2000Decode = Array(&H6ABA, &H37EC, &HD561, &HFA9C, &HCFFA, _[/b][/SIZE]
[SIZE=4][b] &HE628, &H272F, &H608A, &H568, &H367B, _[/b][/SIZE]
[SIZE=4][b] &HE3C9, &HB1DF, &H654B, &H4313, &H3EF3, _[/b][/SIZE]
[SIZE=4][b] &H33B1, &HF008, &H5B79, &H24AE, &H2A7C)[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] If Len(File) > 0 Then[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] fFile = FreeFile[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] Open File For Binary As #fFile[/b][/SIZE]
[SIZE=4][b] Get #fFile, 67, retXPwd[/b][/SIZE]
[SIZE=4][b] Get #fFile, 103, mgCode[/b][/SIZE]
[SIZE=4][b] Close #fFile[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] mgCode = mgCode Xor Access2000Decode(18)[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] str2000 = vbNullString[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] For bCnt = 0 To 17[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] wkCode = retXPwd(bCnt) Xor Access2000Decode(bCnt)[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] If wkCode < 256 Then[/b][/SIZE]
[SIZE=4][b] str2000 = str2000 & Chr(wkCode)[/b][/SIZE]
[SIZE=4][b] Else[/b][/SIZE]
[SIZE=4][b] str2000 = str2000 & Chr(wkCode Xor mgCode)[/b][/SIZE]
[SIZE=4][b] End If[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] Next bCnt[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] Else[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] str2000 = "No file Selected"[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b] End If[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b]Exit Function[/b][/SIZE]
[SIZE=4][b]ErrHand:[/b][/SIZE]
[SIZE=4][b] MsgBox "Error with opening file", vbCritical, App.Title[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b]End Function[/b][/SIZE]
[SIZE=4][/SIZE]
[SIZE=4][b]Private Sub OsenXPButton1_Click()[/b][/SIZE]
[SIZE=4][b]End[/b][/SIZE]
[SIZE=4][b]End Sub[/b][/SIZE]
[SIZE=4][/SIZE]
[align=center][SIZE=4][b]البرنامج بالمرفقات