اداة لتخمين باسورد الفيس بوك بواسطة اداة بالغة البايثون + قاموس

السلام عليكم ورحمة الله وبركاتة

الخطوات : 

1- عمل Data Base الخاصة بك 

2- عمل

2 Text box

2 lable 

button

3- ضع Data base في مسار المشروع تبعك 

الكود :

Imports System.Data.OleDb

Imports System.Data.OleDb.OleDbException

كود الربط بين البرنامج و قاعدة البيانات : 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        con.ConnectionString = "provider= microsoft.jet.oledb.4.0;data source = ..\Login2.mdb" '(Login2 -> Change It To Your Data base Name )
    End Sub

كود التعرف علي ما في داخل قاعدة البيانات :

Public Function ask()

        Dim dt As New datatable
        Dim ds As New dataset
        ds.tables.add(dt)
        con.Open()
        Dim da As New OleDbDataAdapter("select * from table1", con)
        da.Fill(dt)
        For Each datarow In dt.rows
            If textbox1.text = datarow.item(0) And textbox2.text = datarow(1) Then
                con.close()
                Return True
            End If
        Next
        con.close()
        Return False

كود button :

If ask() = True Then
            MsgBox("Login")
        Else
            MsgBox("Failed", MsgBoxStyle.Critical)
        End If

لتحميل المشروع : 

اضغط هنا

باسورد فك الضغط : silentcyber