[TUT] How to Create a simple SMS Bomber

[vHAX]

What You Need:
Microsoft Visual Basic or Studio
Some Time
A Brain


First Create your new Windows Form Application in VB

Spoiler:

You Must now add these components from the toolbox onto your form.

*5 Text Boxes
*2 Buttons
*1 Rich Text Box
*1 Combo Box

Here is what each does...

Spoiler:

Textbox1=Phone number
Textbox2=Subject
Textbox3=Your Gmail Username
Textbox4=Your Gmail Password
Textbox5=Number of Messages to send

Button1=Send button
Button2=Exit Button (Optional)

RichTextBox1=Message Body
Combobox1=Carrier Selection

Should look something like this

Spoiler:

Now double click on the form design or right click and click "view code"
Before the Public Class add this

Imports System.Web
Imports System.IO
Imports System.Net.Mail

Now Double Click Button 1 and add the code from this link

SMS bomber - Pastebin.com

In the code you will notice this line of code

SmtpServer.Credentials = New Net.NetworkCredential(TextBox3.Text, TextBox4.Text)

Textbox3.text would be the textbox where you enter your gmail information and textbox4.text is the password. If you want you can integrate the gmail into the program if your going to be the only person using it. To do this just write something like this instead

SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "YourGmailPassword"

Now double click your button 2 and add this

End

This just exits the program

Now you need to click on the little arrow of your combobox and select "Edit items" should look like this

Spoiler:

Add these strings in the box that pops up.

Sprint PCS
Verizon
Boost U.S
T-Mobile (Germany)
7-11 Speakout
Airtel (Karnataka, India)
Airtel Wireless (Montana, USA)
Alaska Communications Systems
Aql
AT&T
AT&T Enterprise Paging
BigRedGiant Mobile Solutions
Bell Mobility & Solo Mobile
BPL Mobile
Cellular One
CingularCingular (Postpaid)
Centennial Wireless
Cingular (GoPhone prepaid)
Claro (Brasil)
Claro (Nicaragua)
Comcel
Cricket
CTI
Emtel
Fido
General Communications Inc.
Globalstar (satellite)
Helio
Illinois Valley Cellular
Iridium (satellite)
Iusacell
i wireless
Koodo Mobile
LMT
Meteor
Mero Mobile
MetroPCS
Movicom
Mobitel
Movistar
MTN
MTS
Nextel (United States)
Nextel (Argentina)
Orange Polska
Personal
Plus GSM
President’s Choice
Qwest
Rogers
SL Interactive
Sasktel
Setar Mobile email (Aruba)
Suncom
T-Mobile (USA)
T-Mobile (Austria)
T-Mobile (UK)
Telus Mobility
Thumb Cellular
Tigo (Formerly Ola)
Tracfone (prepaid)
Unicel
Virgin Mobile (USA)
Virgin Mobile (Canada)
Vodacom (South Africa)
Vodafone (Italy)
YCC
MobiPCS (Hawaii only)

Now its time to create your Sexy GUI... Play around with it, create labels for your textboxes and have fun with it.

Heres what mine now looks like

Spoiler:

When your done with your design click File>Save all and save it somewhere then on the top click Build>Build "Application name here" Then go to the folder you saved it in and navigate to bin>release
There you will see your finished .exe application

EXTRA:

Generate Random Strings in Rich Text Box

Spoiler:

Add This Function

Private Function GenerateString(ByVal length As Integer, ByVal content As Integer, ByVal casing As Integer) As String
        Dim r, r1, r2 As New Random

        Dim gString As String = String.Empty

        Dim LowAlph As String = "abcdefghijklmnopqrstuvwxyz"
        Dim UppAlph As String = LowAlph.ToUpper

        Dim addLetter As Char

        Do Until gString.Length = length

            Select Case casing
                Case 0
                    Select Case r.Next(0, 2)
                        Case 0
                            addLetter = LowAlph.Substring(r1.Next(0, 25), 1)
                        Case 1
                            addLetter = UppAlph.Substring(r1.Next(0, 25), 1)
                    End Select
                Case 1
                    addLetter = UppAlph.Substring(r1.Next(0, 25), 1)
                Case 2
                    addLetter = LowAlph.Substring(r1.Next(0, 25), 1)
            End Select

            Select Case content
                Case 0
                    Select Case r.Next(0, 2)
                        Case 0
                            gString &= addLetter
                        Case 1
                            gString &= r1.Next(0, 9)
                    End Select
                Case 1
                    gString &= r1.Next(0, 9)
                Case 2
                    gString &= addLetter
            End Select
        Loop

        Return gString

    End Function

Now Add this to a new button

 RichTextBox1.Text = GenerateString(Textbox6.Text, 2, 2)

Then add a new textbox [Textbox6]
Done :)

Create simple Carrier Lookup button

Spoiler:

Create a new button and double click it
Add Process.Start("http://www.fonefinder.net/")
Done :)

Thank Me if I helped

[Spectre]

i officialy love you