تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود خاص لمعرفة كلمة السر لملفات Access 97
#1
كاتب الموضوع : AhmedEssawy

بواسطه الاخ
mejahed11


كود خاص لمعرفة كلمة السر لملفات Access 97
*كود برمجي*
--------------------------------------------------------------------------------

VB.Net


كود :
Option Explicit
Private zChar As String
Dim n As Long, s1 As String * 1, s2 As String * 1
Dim lsClave As String
Dim mask As String


Private Sub Command1_Click()
' يجب ان تضيف عنصر commonDialog الى برنامجك واسمه هنا DD
DD.Filter = "Microsoft Access Database|*.mdb"
DD.DefaultExt = "mdb"
DD.ShowOpen
zChar = DD.FileTitle
mask = Chr(78) & Chr(134) & Chr(251) & Chr(236) & _
Chr(55) & Chr(93) & Chr(68) & Chr(156) & _
Chr(250) & Chr(198) & Chr(94) & Chr(40) & Chr(230) & Chr(19)
Open zChar For Binary As #1
Seek #1, &H42
For n = 1 To 14
s1 = Mid(mask, n, 1)
s2 = Input(1, 1)
If (Asc(s1) Xor Asc(s2)) <> 0 Then
lsClave = lsClave & Chr(Asc(s1) Xor Asc(s2))
End If
Next
Close 1
MsgBox lsClave & "كلمة السر هــي"
End Sub
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث عن اي كلمة في مربع النص RaggiTech 0 554 17-10-12, 09:55 PM
آخر رد: RaggiTech
  كلاس Data Access Layer RaggiTech 0 457 17-10-12, 09:01 PM
آخر رد: RaggiTech
  لمعرفة هل نعمل ضمن بيئة 32 بت أو 64 بت برمجيا RaggiTech 0 357 17-10-12, 08:59 PM
آخر رد: RaggiTech
  استخدام مجال الأسماء My.Computer لمعرفة هل ازرارالوظائف تستخدم ام لاكزر Ctrl و خلافه RaggiTech 0 342 17-10-12, 06:59 PM
آخر رد: RaggiTech
  لمعرفة نسخة الفريم وورك التي يعمل عليها التطبيق RaggiTech 0 236 17-10-12, 06:18 PM
آخر رد: RaggiTech
  لمعرفة عنوان المجلد MyDocuments RaggiTech 0 220 17-10-12, 06:17 PM
آخر رد: RaggiTech
  لمعرفة رسالة الخطأ الأخيرة بعد استدعاء دالة API (Last Error Message) RaggiTech 0 348 17-10-12, 06:17 PM
آخر رد: RaggiTech
  لمعرفة حجم الذاكرة الحية الخاصة بكل Slot RaggiTech 0 313 17-10-12, 06:17 PM
آخر رد: RaggiTech
  لمعرفة حالة الاتصال بالانترنت RaggiTech 0 345 17-10-12, 06:16 PM
آخر رد: RaggiTech
  لمعرفة ان كانت السنة كبيسة أم لا RaggiTech 0 263 17-10-12, 06:16 PM
آخر رد: RaggiTech

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


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