تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
AccessPass معرفة كلمة سر قواعد البيانات
#1
من اليوم لن تسال احد عن كلمات السر لقواعد البيانات ...بهذا البرنامج بامكانك فتح و كسر اي كلمة سر لاي قاعدة بيانات

صورة البرنامج



[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]

البرنامج بالمرفقات




الملفات المرفقة صورة/صور
   

.zip   AccessPass.zip (الحجم : 415.33 ك ب / التحميلات : 156)
{وَسَارِعُواْ إِلَى مَغْفِرَةٍ مِّن رَّبِّكُمْ وَجَنَّةٍ عَرْضُهَا السَّمَاوَاتُ وَالأَرْضُ أُعِدَّتْ لِلْمُتَّقِينَ }آل عمران133
الرد }}}}
تم الشكر بواسطة:
#2
بارك الله فيك اخي الكريم مشروع رائع
الرد }}}}
تم الشكر بواسطة:
#3
شكررررراً على البرنامج
الرد }}}}
تم الشكر بواسطة:
#4
حاولت فتح قاعدة بيانات بالبرنامج ولكنه يظهر لى حطأ
الرد }}}}
تم الشكر بواسطة:
#5
كل ما يتم اصدار جديد يتم فضح اسرار الاصدارات القديمة (ظن!)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] التنبيه عند استخدام قاعدة البيانات من مستخدم اخر amer2000 9 127 23-11-16, 09:41 AM
آخر رد: amer2000
  [سؤال] ادراج 0 بشكل افتراضي فق قاعدة البيانات أسامة حسين 2 126 18-08-16, 12:13 AM
آخر رد: استايل
  كيف يمكن إضافة البيانات من text الى MSFlexGrid1 مباشرة ؟؟ softmail8 3 431 08-07-16, 07:25 PM
آخر رد: أحمد خلاف
  [vb6.0] عمل باسوور لقاعدة البيانات الاكسس عمور2016 1 119 07-07-16, 01:29 PM
آخر رد: الوادي
  طلب المساعدة في إختيار قاعدة البيانات من الـ Combobox ثم الإتصال بها blida02 1 164 20-05-16, 09:22 PM
آخر رد: Ahmed_Mansoor
  مساعدة : كود لنسخ قاعد البيانات استرجاعها محمد2015 10 903 21-01-16, 01:56 AM
آخر رد: awidan76
Rainbow [سؤال] البحث عن كلمة داخل عدة الروابط dlshad24 3 429 03-07-15, 05:54 PM
آخر رد: dlshad24
  كيف يتم انشاء استعلام كشف حساب مثل الذي في الصوره المرفقة من خلال فجوال البيسك الى قاعدة البيانات ؟؟ softmail8 1 593 16-02-15, 10:32 AM
آخر رد: Ashraf Elafify
Exclamation ترتيب البيانات تصاعديا Ashraf Elafify 8 1,804 09-02-15, 01:58 PM
آخر رد: Ashraf Elafify
  معرفة ما اذا كان بالامكان عمل برنامج من دون سكيول سرفر AHMED213 3 807 29-08-13, 12:14 AM
آخر رد: AHMED213

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم