Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


[NEW] SMS Bomber International V3.2 (BY InuyashaITB)

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming -> Binaries
View previous topic :: View next topic  
Author Message
InuyashaITB
Newbie cheater
Reputation: 0

Joined: 06 Sep 2009
Posts: 21
Location: california

PostPosted: Thu Oct 08, 2009 6:03 pm    Post subject: [NEW] SMS Bomber International V3.2 (BY InuyashaITB) Reply with quote

Well since i cannot post in the binaries section i will post this here Sad
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
View user's profile Send private message AIM Address MSN Messenger
smartz993
I post too much
Reputation: 2

Joined: 20 Jun 2006
Posts: 2013
Location: USA

PostPosted: Thu Oct 08, 2009 7:23 pm    Post subject: Reply with quote

Wrong section, try the binaries section.
Back to top
View user's profile Send private message
Flyte
Peanuts!!!!
Reputation: 6

Joined: 19 Apr 2006
Posts: 1887
Location: Canada

PostPosted: Thu Oct 08, 2009 8:00 pm    Post subject: Reply with quote

Holy shit, learn to design a user interface properly.
Back to top
View user's profile Send private message
InuyashaITB
Newbie cheater
Reputation: 0

Joined: 06 Sep 2009
Posts: 21
Location: california

PostPosted: Thu Oct 08, 2009 11:31 pm    Post subject: Reply with quote

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
View user's profile Send private message AIM Address MSN Messenger
hcavolsdsadgadsg
I'm a spammer
Reputation: 26

Joined: 11 Jun 2007
Posts: 5801

PostPosted: Thu Oct 08, 2009 11:50 pm    Post subject: Reply with quote

ugliest UI i have ever seen in my life

also, moved.
Back to top
View user's profile Send private message
InuyashaITB
Newbie cheater
Reputation: 0

Joined: 06 Sep 2009
Posts: 21
Location: california

PostPosted: Thu Oct 08, 2009 11:58 pm    Post subject: Reply with quote

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
View user's profile Send private message AIM Address MSN Messenger
Deltron Z
Expert Cheater
Reputation: 1

Joined: 14 Jun 2009
Posts: 164

PostPosted: Fri Oct 09, 2009 3:10 am    Post subject: Reply with quote

This is one big ugly code... Confused
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 & "[email protected]")
        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("[email protected]", "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. Rolling Eyes
Back to top
View user's profile Send private message
Guy
Expert Cheater
Reputation: 0

Joined: 30 May 2009
Posts: 187

PostPosted: Fri Oct 09, 2009 1:28 pm    Post subject: Reply with quote

Code:

client.Credentials = New NetworkCredential("[email protected]", "12lights")


Tsk, tsk, tsk..

_________________
Has anyone seen Hitler around..? If so, PM me!
Back to top
View user's profile Send private message
dananos
How do I cheat?
Reputation: 0

Joined: 28 Oct 2009
Posts: 1

PostPosted: Wed Oct 28, 2009 3:16 pm    Post subject: Global SMS ... Reply with quote

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
View user's profile Send private message
im a dumbfuck leecher
Expert Cheater
Reputation: 0

Joined: 08 Sep 2009
Posts: 151

PostPosted: Tue Nov 03, 2009 9:34 pm    Post subject: Reply with quote

just what i needed
Back to top
View user's profile Send private message
RecycledTwice
How do I cheat?
Reputation: 0

Joined: 01 Dec 2013
Posts: 6
Location: Tennessee

PostPosted: Sat Sep 24, 2016 4:39 pm    Post subject: Lookin To Help Reply with quote

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
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming -> Binaries All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites