Интернет радио и телевизија (стримови, прашања, генерална дискусија...)

  • Креатор на темата Креатор на темата alekjov
  • Време на започнување Време на започнување
highprotect напиша:
Ovo nikada nemojte da koristite!!!
Imao sam listu koja je imala max conection 40 i hteo sam da je proverim.Posle toga je prestala da radi,a radila je do besvesti 2 godine minimum...

6g3qDBz.png
Кликни за повеќе...
Ja neznam zasto koristite sve te programe. Za skeniranje liste jedino treba da se korisiti Sentry. Nema sta nemoze da skenira: panele, xtream, fulliptv, mac, sajtovi, sa i bez captcha, sa i bez proxy. Combo liste od nekoliko 100 miliona user prima bez problema. I najbrzi je. Evo sada skeniram tvviet i ide 11 000 combo u minutu.
 
ITERNACIONAL AKO TI NIJE TESKO POSALJIMI DRUGI USSER I PASS
ZA onu poslatu listu jer je prestao da radi

CARE
 
MilutinMilankovic напиша:
Ja neznam zasto koristite sve te programe. Za skeniranje liste jedino treba da se korisiti Sentry. Nema sta nemoze da skenira: panele, xtream, fulliptv, mac, sajtovi, sa i bez captcha, sa i bez proxy. Combo liste od nekoliko 100 miliona user prima bez problema. I najbrzi je. Evo sada skeniram tvviet i ide 11 000 combo u minutu.
Кликни за повеќе...
Tako je druze,ali sam samo hteo da se uverim na svoju stetu.
Nije toliko bitno,jer jedna je ko ni jedna...
Kao i zene;)
 
sNjCQA3.jpg

Teba ti Nemacka IP adresa ili neki program poput ZenMate:)
 
Последно уредено од модератор:
Dve u edno

SPORT ITALY

Код: 
------- SPORTS-ITALY -------
#EXTINF:-1,IT:Fox.Sports
http://51.254.196.76:8000/live/user1/user1/1357.ts
#EXTINF:-1,IT:Premium.Sport.HD
http://51.254.196.76:8000/live/user1/user1/1912.ts
#EXTINF:-1,IT:Premium.Calcio
http://51.254.196.76:8000/live/user1/user1/1330.ts
#EXTINF:-1,IT:Premium.EuroSport1.HD
http://51.254.196.76:8000/live/user1/user1/1329.ts
#EXTINF:-1,IT:Teleticino
http://51.254.196.76:8000/live/user1/user1/1919.ts
#EXTINF:-1,IT:Sky.F1.HD
http://51.254.196.76:8000/live/user1/user1/1356.ts
#EXTINF:-1,IT:Sport_F1
http://51.254.196.76:8000/live/user1/user1/2833.ts
#EXTINF:-1,IT:EuroSport1
http://51.254.196.76:8000/live/user1/user1/2709.ts
#EXTINF:-1,IT:EuroSport2
http://51.254.196.76:8000/live/user1/user1/2710.ts
#EXTINF:-1,IT-Sky.Sport1
http://51.254.196.76:8000/live/user1/user1/295.ts
#EXTINF:-1,IT-Sky.Sport2
http://51.254.196.76:8000/live/user1/user1/296.ts
#EXTINF:-1,IT-Sky.Sport3
http://51.254.196.76:8000/live/user1/user1/2708.ts
#EXTINF:-1,SkyIT:Sport_MotoGp
http://51.254.196.76:8000/live/user1/user1/2832.ts
#EXTINF:-1,IT:Sky/Moto/GP:HD
http://51.254.196.76:8000/live/user1/user1/2707.ts
#EXTINF:-1,IT-Sky.Sport24
http://51.254.196.76:8000/live/user1/user1/298.ts
#EXTINF:-1,IT:SKY.F1
http://51.254.196.76:8000/live/user1/user1/1771.ts
#EXTINF:-1,IT:Sport.Italia
http://51.254.196.76:8000/live/user1/user1/1928.ts
#EXTINF:-1,IT:Sky.Calcio1HD
http://51.254.196.76:8000/live/user1/user1/1938.ts
#EXTINF:-1,IT:Sky.Calcio2HD
http://51.254.196.76:8000/live/user1/user1/1937.ts
#EXTINF:-1,IT:Sky.Calcio3HD
http://51.254.196.76:8000/live/user1/user1/1936.ts
#EXTINF:-1,IT:Sky.Calcio4HD
http://51.254.196.76:8000/live/user1/user1/1935.ts
#EXTINF:-1,IT:Sky.Calcio5HD
http://51.254.196.76:8000/live/user1/user1/1934.ts
#EXTINF:-1,IT:Sky.Calcio6HD
http://51.254.196.76:8000/live/user1/user1/1933.ts
#EXTINF:-1,IT:Sky.Calcio8HD
http://51.254.196.76:8000/live/user1/user1/1932.ts
#EXTINF:-1,IT:Premium-Calcio-HD
http://51.254.196.76:8000/live/user1/user1/1792.ts
#EXTINF:-1,IT:Premium/Calcio1
http://51.254.196.76:8000/live/user1/user1/1801.ts
#EXTINF:-1,IT:Premium/Calcio2
http://51.254.196.76:8000/live/user1/user1/1802.ts
#EXTINF:-1,IT:Premium/Calcio3
http://51.254.196.76:8000/live/user1/user1/1803.ts
#EXTINF:-1,IT:Premium/Calcio4
http://51.254.196.76:8000/live/user1/user1/1804.ts
#EXTINF:-1,IT:Premium/Calcio5
http://51.254.196.76:8000/live/user1/user1/1805.ts
#EXTINF:-1,IT:Premium/Calcio6
http://51.254.196.76:8000/live/user1/user1/1806.ts
#EXTINF:-1,IT:Premium/Calcio7
http://51.254.196.76:8000/live/user1/user1/1807.ts
------- PPV-ITALY -------
#EXTINF:-1,IT:Sky.primafila1
http://51.254.196.76:8000/live/user1/user1/1242.ts
#EXTINF:-1,IT:Sky.primafila2
http://51.254.196.76:8000/live/user1/user1/1243.ts
#EXTINF:-1,IT:Sky.primafila3
http://51.254.196.76:8000/live/user1/user1/1244.ts
#EXTINF:-1,IT:Sky.primafila4
http://51.254.196.76:8000/live/user1/user1/1245.ts
#EXTINF:-1,IT:Sky.primafila5
http://51.254.196.76:8000/live/user1/user1/1246.ts
#EXTINF:-1,IT:Sky.primafila6
http://51.254.196.76:8000/live/user1/user1/1247.ts
#EXTINF:-1,IT:Sky.primafila7
http://51.254.196.76:8000/live/user1/user1/1248.ts
#EXTINF:-1,IT:Sky.primafila8
http://51.254.196.76:8000/live/user1/user1/1249.ts
#EXTINF:-1,IT:Sky.primafila.9
http://51.254.196.76:8000/live/user1/user1/1250.ts
#EXTINF:-1,IT:Sky.primafila10
http://51.254.196.76:8000/live/user1/user1/1251.ts
#EXTINF:-1,RAI 1 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/315.ts
#EXTINF:-1,RAI 2 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/316.ts
#EXTINF:-1,RAI 3 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/317.ts
#EXTINF:-1,RETE 4 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/318.ts
#EXTINF:-1,CANALE 5 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/319.ts
#EXTINF:-1,ITALIA 1 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/320.ts
#EXTINF:-1,MEDIASET EXTRA
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/1556.ts
#EXTINF:-1,RSI LA1 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/356.ts
#EXTINF:-1,RSI LA2 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/357.ts
#EXTINF:-1,LA 7
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/326.ts
#EXTINF:-1,RAI PREMIUM
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/347.ts
#EXTINF:-1,BOING
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/358.ts
#EXTINF:-1,RAI 4
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/344.ts
#EXTINF:-1,RAI SPORT 1
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/352.ts
#EXTINF:-1,RAI SPORT 2
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/353.ts
#EXTINF:-1,Iris
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/2720.ts
#EXTINF:-1,- - - CINEMA- - -
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/355.ts
#EXTINF:-1,SKY CINEMA 1 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/10.ts
#EXTINF:-1,SKY CINEMA +1 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/69.ts
#EXTINF:-1,SKY CINEMA +24 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/11.ts
#EXTINF:-1,SKY CINEMA HITS HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/12.ts
#EXTINF:-1,SKY CINEMA FAMILY HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/13.ts
#EXTINF:-1,SKY CINEMA PASSION
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/71.ts
#EXTINF:-1,SKY CINEMA CULT HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/47.ts
#EXTINF:-1,SKY CINEMA COMEDY HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/14.ts
#EXTINF:-1,SKY CINEMA MAX HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/15.ts
#EXTINF:-1,SKY CINEMA MAX +1 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/72.ts
#EXTINF:-1,SKY CINEMA CLASSICS HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/16.ts
#EXTINF:-1,SKY COMEDY CENTRAL
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/294.ts
#EXTINF:-1,SKY TG 24
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/112.ts
#EXTINF:-1,SKY UNO HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/48.ts
#EXTINF:-1,SKY UNO +1
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/73.ts
#EXTINF:-1,SKY ATLANTIC HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/18.ts
#EXTINF:-1,SKY ATLANTIC HD +1
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/314.ts
#EXTINF:-1,FOX HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/45.ts
#EXTINF:-1,FOX +1
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/74.ts
#EXTINF:-1,FOX LIFE HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/43.ts
#EXTINF:-1,FOX LIFE +1
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/75.ts
#EXTINF:-1,FOX CRIME HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/17.ts
#EXTINF:-1,FOX CRIME +1 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/76.ts
#EXTINF:-1,FOX ANIMATION HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/78.ts
#EXTINF:-1,FOX COMEDY HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/77.ts
#EXTINF:-1,LEI
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/579.ts
#EXTINF:-1,Laeffe
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/2715.ts
#EXTINF:-1,CI CRIME + INV  HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/23.ts
#EXTINF:-1,POKER ITALIA 24
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/297.ts
#EXTINF:-1,SKY AXN HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/79.ts
#EXTINF:-1,SKY F1 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/26.ts
#EXTINF:-1,SKY SPORT MOTOGP
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/82.ts
#EXTINF:-1,EUROSPORT 1HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/295.ts
#EXTINF:-1,EUROSPORT 2HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/296.ts
#EXTINF:-1,SKY SPORT 24 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/22.ts
#EXTINF:-1,SKY SPORT 1 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/19.ts
#EXTINF:-1,SKY SPORT 2 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/20.ts
#EXTINF:-1,SKY SPORT 3 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/21.ts
#EXTINF:-1,SKY SPORT PLUS HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/24.ts
#EXTINF:-1,FOX Sport HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/80.ts
#EXTINF:-1,SKY SUPERCALCIO HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/25.ts
#EXTINF:-1,SKY CALCIO 1 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/27.ts
#EXTINF:-1,SKY CALCIO 2 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/28.ts
#EXTINF:-1,SKY CALCIO 3 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/29.ts
#EXTINF:-1,SKY CALCIO 4 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/30.ts
#EXTINF:-1,SKY CALCIO 5 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/31.ts
#EXTINF:-1,SKY CALCIO 6 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/32.ts
#EXTINF:-1,SKY CALCIO 7 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/33.ts
#EXTINF:-1,SKY CALCIO 8 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/34.ts
#EXTINF:-1,SKY CALCIO 9 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/35.ts
#EXTINF:-1,SKY CALCIO 10 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/36.ts
#EXTINF:-1,SKY CALCIO 11 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/37.ts
#EXTINF:-1,SKY CALCIO 12 HD
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/38.ts
#EXTINF:-1,INTER CHANNEL
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/83.ts
#EXTINF:-1,JUVENTUS CHANNEL
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/85.ts
#EXTINF:-1,LAZIO CHANNEL
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/87.ts
#EXTINF:-1,MILAN CHANNEL
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/84.ts
#EXTINF:-1,ROMA CHANNEL
http://work.myvisio.me:9889/live/UXUJ28loAK/sEDBNvZP7P/86.ts
 
international напиша:
to i ptice na grani znaju
Кликни за повеќе...

Šta je s tebe bilo? Fakat mi nije jasno, nekad se ispričamo na čatu a sad imaš nešto protiv mene? Stvarno mi je žao što ste postali takvi. Ja sam se povukao iz svega i čak i ne ulazim više na forume kao prije al' svi oni koji me znaju dobro znaju da nikad nisam pravio takve stvari.

Nadam se da mod ovo neće obrisati jer nije ok to prozivanje a i postavio sam source i svako može kompajlirati aplikaciju.

Evo i kompletan source te aplikacije i svako ko se razumije vidi da liste nigdje ne idu:

Код: 
http://www.mediafire.com/file/rzn62ugzznuy40p/Playlist_Checker_VB.NET_Source.rar

Možete koristit Visual Basic i sami kompajlirati ovaj kod. Plus uvijek možete pokrenuti bilo koji network sniiffer alat i gledati šta aplikacija radi u pozadini i na koji file host šalje liste, jer negdje ih mora slati.

Ovo je kompletan kod. Liste tj. source se ubacuju u richtextbox i applikacija siječe dio koda tj. ono što radite ručno kad zamjenite "get.php" i "panel_api.php" uzima se unixtimestamp i konvertuje u datum. To je sve.

Код: 
Imports System.Text.RegularExpressions
Imports System.Net

Public Class Form1

    Dim WebRequest As WebClient = New WebClient

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        For Each playlist In ListBox1.Items

            On Error Resume Next

            Application.DoEvents()

            TextBox1.Text = playlist

            WebRequest.Headers.Add("Referer", TextBox1.Text)
            WebRequest.Headers(HttpRequestHeader.UserAgent) = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko) Version/4.0 Mobile/7A341 Safari/528.16"
            Application.DoEvents()
            Dim sSource As String = WebRequest.DownloadString(TextBox1.Text)

            PageSource.Clear()
            PageSource.Text = sSource

            Dim text As String = PageSource.Text

            If text.Contains("http") Then

                Label1.Text = RichTextBox1.Lines.Length
                My.Computer.Network.DownloadFile(TextBox1.Text, "Playlists\Playlist " + Label1.Text + ".m3u")

                Dim file As System.IO.StreamWriter
                file = My.Computer.FileSystem.OpenTextFileWriter("Playlists\Playlists.txt", True)
                file.WriteLine(TextBox1.Text)
                file.Close()

            End If

            TextBox1.Text = TextBox1.Text.Replace("get.php", "panel_api.php")
            WebRequest.Headers.Add("Referer", TextBox1.Text)
            WebRequest.Headers(HttpRequestHeader.UserAgent) = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 Like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, Like Gecko) Version/4.0 Mobile/7A341 Safari/528.16"
            Application.DoEvents()
            Dim Source As String = WebRequest.DownloadString(TextBox1.Text)

            PageSource.Clear()
            PageSource.Text = Source

            PageSource.Text = PageSource.Text.Replace("""exp_date"":", "Datum_Isteka:")
            PageSource.Text = PageSource.Text.Replace("""exp_date"":""", "Datum_Isteka:")


            Dim r1 As New Regex("(?<=Datum_Isteka:).+?(?="")")
            Dim matches1 As MatchCollection = r1.Matches(PageSource.Text)

            Dim r2 As New Regex("(?<=""max_connections"":"").+?(?="")")
            Dim matches2 As MatchCollection = r2.Matches(PageSource.Text)

            Dim r3 As New Regex("(?<=""active_cons"":"").+?(?="")")
            Dim matches3 As MatchCollection = r3.Matches(PageSource.Text)

            For Each playlist1 As Match In matches1
                Application.DoEvents()

                For Each playlist2 As Match In matches2
                    Application.DoEvents()

                    For Each playlist3 As Match In matches3
                        Application.DoEvents()

                        TextBox2.Text = playlist1.Value
                        TextBox2.Text = TextBox2.Text.Replace("""", "")
                        TextBox2.Text = TextBox2.Text.Replace(",", "")


                        If TextBox2.Text = "null" Then

                            Dim uTime As String = UnixToTime(TextBox2.Text)
                            RichTextBox1.AppendText(playlist & " Expiration Date: NO." & " Maximum Connections: " & playlist2.Value & " Active Connections: " & playlist3.Value & Environment.NewLine)

                        Else

                            Dim uTime As String = UnixToTime(TextBox2.Text)
                            RichTextBox1.AppendText(playlist & " Expiration Date: " & uTime & " Maximum Connections: " & playlist2.Value & " Active Connections: " & playlist3.Value & Environment.NewLine)

                        End If

                    Next

                Next

            Next

            Dim startingPoint As Integer = -1
            Do
                startingPoint = RichTextBox1.Find("Expiration Date:", startingPoint + 1, RichTextBoxFinds.None)
                If (startingPoint >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint
                    RichTextBox1.SelectionLength = "Expiration Date:".Length
                    RichTextBox1.SelectionColor = Color.Red
                End If
            Loop Until startingPoint < 0

            Dim startingPoint1 As Integer = -1
            Do
                startingPoint1 = RichTextBox1.Find("Maximum Connections:", startingPoint1 + 1, RichTextBoxFinds.None)
                If (startingPoint1 >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint1
                    RichTextBox1.SelectionLength = "Maximum Connections:".Length
                    RichTextBox1.SelectionColor = Color.LawnGreen
                End If
            Loop Until startingPoint1 < 0

            Dim startingPoint2 As Integer = -1
            Do
                startingPoint2 = RichTextBox1.Find("Active Connections:", startingPoint2 + 1, RichTextBoxFinds.None)
                If (startingPoint2 >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint2
                    RichTextBox1.SelectionLength = "Active Connections:".Length
                    RichTextBox1.SelectionColor = Color.LawnGreen
                End If
            Loop Until startingPoint2 < 0

        Next

    End Sub

    Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click
        Dim items() As String = Clipboard.GetText.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
        ListBox1.Items.AddRange(items)
    End Sub

    Public Function UnixToTime(ByVal strUnixTime As String) As Date
        UnixToTime = DateAdd(DateInterval.Second, Val(strUnixTime), #1/1/1970#)
        If UnixToTime.IsDaylightSavingTime = True Then
            Application.DoEvents()
            UnixToTime = DateAdd(DateInterval.Hour, 1, UnixToTime)
        End If
    End Function

    Private Sub ClearToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClearToolStripMenuItem.Click
        ListBox1.Items.Clear()
    End Sub

End Class

Nema potrebe za ovim uništavanjem svega, stvarno mi je žao što smo postali ovakvi i mrzimo se zbog ovih listi. Ako je nekom lista stala pa ljudi gledate tuđu listu može da stane bilo kad, datum isteka uopšte ne mora da znači da će lista trajati baš do tog datuma. Da sam bio pametan stavio bi daljinsko gašenje i ove aplikacije, svakako više nisam u ovom, čak štaviše, gadi mi se sve ovo i kakvi smo postali.

Nadam se da mod ovo neće obrisati jer nije ok to prozivanje a i postavio sam source i svako može kompajlirati aplikaciju.

Davno sam rekao da su ove liste najveće smeće koje je internet vidio i eto u šta su vas pretvorile, šteta. Ne smeta mi što me prozivate kao lopova svakako sam izašao iz svega ovog i ne radim više apdejte baš zbog toga kakvi smo postali. Nekad se svašta pravilo, internacional će reći da je to trećerazredno al' ja sam pravio da nekom pomognem i sve postavljao javno. Vi čuvate neke alate tj. te prvorazredne koje nikom ne šaljete a pljujete na ove koje sam ja "skrpio" da koliko toliko olakša i pomogne nekom.

Nek' vam je na dušu to prizivanje.

U svemu ovom sam bio preko 6-7 godina, prvu aplikaciju sam napravio sa pokojnim D.M.W. s kojim sam pričao na gmail dan-dva prije nego što je umro. NIKAD nismo napravili ništa što će nekom naškodit, to dobro znaju ljudi sa WiZiWiG i ostalih foruma.Sâm D.M.W. za kojeg čak ni ja nisam znao da umire a pričali smo skoro cijelu noć dok smo piisali kod za tada noobroom a danas Movies aplikaciju. Čovjek je pomagao svima do zadnjeg dana života. Ja ga pamtim po tome, po čemu će pamtit nas? Mržnji? Slikama? Koliko se hvalimo?

Moj mediafire ima preko 350.000 downloads svih aplikacija ikad postavljenih, sâm mediafire blokira sumnjive aplikacije tj. one koje nešto kradu ili sadrže dio koda koji može nešto uništit. Pri samom upload-u blokiraju aplikaciju i ne može na upload. X puta sam ispravljao dio koda zbog false positive izvještaja na virustotal i još jednom kažem ko želi bilo koji source od bilo koje aplikacije može da ga dobije. Jedino ne šaljem Movies aplikaciju jer je prvu stranu koda te aplikacije napisao pokojni D.M.W. čovjek koji je pomogao svakom i to do zadnjeg dana života koji je kratak. Nemojte da vam ode u mržnji.

Mediafire.png


Za kraj ovo su sve moje apikacije napravljene za skeniranjje ovih .ts listi, samom objavom istih će me izbacit iz VIP dijela al' pošto se svakako povlačim iz svega a aplikacije su moje stavljam ih ovdje:

Код: 
http://www.mediafire.com/file/y48uapdeb07eyw5/Alati.rar

Trećerazredne su al' hej, ko hoće može da ih koristi. Niko vas ne tjera, opet kažem source svake od njih možete dobiti i sami ih kompajlirajte. Ne vjerujte pričama i mržnji, ko me zna zna da sam ovo radio iz dosade i da pomognem koliko mogu, TV uopšte ne gledam.

To je sve što sam ja ikad postavio u VIP.

Nemojte da se mrzite, pomažite kao nekad D.M.W. čovjek je krio da je bolestan i uvijek bio nasmijan i spreman za šalu do posljednjeg dana. Ljudi se pamte po dobrom.

Budite dobri.

Pozdrav od mene i svako dobro. Izlazim iz ovog svega. Sretno.
wave.gif


 
-D3n1s- напиша:
Šta je s tebe bilo? Fakat mi nije jasno, nekad se ispričamo na čatu a sad imaš nešto protiv menne? Stvarno mi je žao što ste postali takvi. Ja sam se povukao iz svega i čak i ne ulazim više na forume kao prije al' svi oni koji me znaju dobro znaju da nikad nisam pravio takve stvari.

Nadam se da mod ovo neće obrisati jer nije ok to prozivanje a i postavio sam source i svako može kompajlirati aplikaciju.

Evo i kompletan source te aplikacije i svako ko se razumije vidi da liste nigdje ne idu:

Код: 
http://www.mediafire.com/file/rzn62ugzznuy40p/Playlist_Checker_VB.NET_Source.rar

Možete koristit Visual Basic i sami kompajlirati ovaj kod. Plus uvijek možete pokrenuti bilo koji network sniiffer alat i gledati šta aplikacija radi u pozadini i na koji file host šalje liste, jer negdje ih mora slati.

Ovo je kompletan kod. Liste tj. source se ubacuju u richtextbox i applikacija siječe dio koda tj. ono što radite ručno kad zamjenite "get.php" i "panel_api.php" uzima se unixtimestamp i konvertuje u datum. To je sve.

Код: 
Imports System.Text.RegularExpressions
Imports System.Net

Public Class Form1

    Dim WebRequest As WebClient = New WebClient

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        For Each playlist In ListBox1.Items

            On Error Resume Next

            Application.DoEvents()

            TextBox1.Text = playlist

            WebRequest.Headers.Add("Referer", TextBox1.Text)
            WebRequest.Headers(HttpRequestHeader.UserAgent) = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko) Version/4.0 Mobile/7A341 Safari/528.16"
            Application.DoEvents()
            Dim sSource As String = WebRequest.DownloadString(TextBox1.Text)

            PageSource.Clear()
            PageSource.Text = sSource

            Dim text As String = PageSource.Text

            If text.Contains("http") Then

                Label1.Text = RichTextBox1.Lines.Length
                My.Computer.Network.DownloadFile(TextBox1.Text, "Playlists\Playlist " + Label1.Text + ".m3u")

                Dim file As System.IO.StreamWriter
                file = My.Computer.FileSystem.OpenTextFileWriter("Playlists\Playlists.txt", True)
                file.WriteLine(TextBox1.Text)
                file.Close()

            End If

            TextBox1.Text = TextBox1.Text.Replace("get.php", "panel_api.php")
            WebRequest.Headers.Add("Referer", TextBox1.Text)
            WebRequest.Headers(HttpRequestHeader.UserAgent) = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 Like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, Like Gecko) Version/4.0 Mobile/7A341 Safari/528.16"
            Application.DoEvents()
            Dim Source As String = WebRequest.DownloadString(TextBox1.Text)

            PageSource.Clear()
            PageSource.Text = Source

            PageSource.Text = PageSource.Text.Replace("""exp_date"":", "Datum_Isteka:")
            PageSource.Text = PageSource.Text.Replace("""exp_date"":""", "Datum_Isteka:")


            Dim r1 As New Regex("(?<=Datum_Isteka:).+?(?="")")
            Dim matches1 As MatchCollection = r1.Matches(PageSource.Text)

            Dim r2 As New Regex("(?<=""max_connections"":"").+?(?="")")
            Dim matches2 As MatchCollection = r2.Matches(PageSource.Text)

            Dim r3 As New Regex("(?<=""active_cons"":"").+?(?="")")
            Dim matches3 As MatchCollection = r3.Matches(PageSource.Text)

            For Each playlist1 As Match In matches1
                Application.DoEvents()

                For Each playlist2 As Match In matches2
                    Application.DoEvents()

                    For Each playlist3 As Match In matches3
                        Application.DoEvents()

                        TextBox2.Text = playlist1.Value
                        TextBox2.Text = TextBox2.Text.Replace("""", "")
                        TextBox2.Text = TextBox2.Text.Replace(",", "")


                        If TextBox2.Text = "null" Then

                            Dim uTime As String = UnixToTime(TextBox2.Text)
                            RichTextBox1.AppendText(playlist & " Expiration Date: NO." & " Maximum Connections: " & playlist2.Value & " Active Connections: " & playlist3.Value & Environment.NewLine)

                        Else

                            Dim uTime As String = UnixToTime(TextBox2.Text)
                            RichTextBox1.AppendText(playlist & " Expiration Date: " & uTime & " Maximum Connections: " & playlist2.Value & " Active Connections: " & playlist3.Value & Environment.NewLine)

                        End If

                    Next

                Next

            Next

            Dim startingPoint As Integer = -1
            Do
                startingPoint = RichTextBox1.Find("Expiration Date:", startingPoint + 1, RichTextBoxFinds.None)
                If (startingPoint >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint
                    RichTextBox1.SelectionLength = "Expiration Date:".Length
                    RichTextBox1.SelectionColor = Color.Red
                End If
            Loop Until startingPoint < 0

            Dim startingPoint1 As Integer = -1
            Do
                startingPoint1 = RichTextBox1.Find("Maximum Connections:", startingPoint1 + 1, RichTextBoxFinds.None)
                If (startingPoint1 >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint1
                    RichTextBox1.SelectionLength = "Maximum Connections:".Length
                    RichTextBox1.SelectionColor = Color.LawnGreen
                End If
            Loop Until startingPoint1 < 0

            Dim startingPoint2 As Integer = -1
            Do
                startingPoint2 = RichTextBox1.Find("Active Connections:", startingPoint2 + 1, RichTextBoxFinds.None)
                If (startingPoint2 >= 0) Then
                    Application.DoEvents()
                    RichTextBox1.SelectionStart = startingPoint2
                    RichTextBox1.SelectionLength = "Active Connections:".Length
                    RichTextBox1.SelectionColor = Color.LawnGreen
                End If
            Loop Until startingPoint2 < 0

        Next

    End Sub

    Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click
        Dim items() As String = Clipboard.GetText.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
        ListBox1.Items.AddRange(items)
    End Sub

    Public Function UnixToTime(ByVal strUnixTime As String) As Date
        UnixToTime = DateAdd(DateInterval.Second, Val(strUnixTime), #1/1/1970#)
        If UnixToTime.IsDaylightSavingTime = True Then
            Application.DoEvents()
            UnixToTime = DateAdd(DateInterval.Hour, 1, UnixToTime)
        End If
    End Function

    Private Sub ClearToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClearToolStripMenuItem.Click
        ListBox1.Items.Clear()
    End Sub

End Class

Nema potrebe za ovim uništavanjem svega, stvarno mi je žao što smo postali ovakvi i mrzimo se zbog ovih listi. Ako je nekom lista stala pa ljudi gledate tuđu listu može da stane bilo kad, datum isteka uopšte ne mora da znači da će lista trajati baš do tog datuma. Da sam bio pametan stavio bi daljinsko gašenje i ove aplikacije, svakako više nisam u ovom, čak štaviše, gadi mi se sve ovo i kakvi smo postali.

Nadam se da mod ovo neće obrisati jer nije ok to prozivanje a i postavio sam source i svako može kompajlirati aplikaciju.

Davno sam rekao da su ove liste najveće smeće koje je internet vidio i eto u šta su vas pretvorile, šteta. Ne smeta mi što me prozivate kao lopova svakako sam izašao iz svega ovog i ne radim više apdejte baš zbog toga kakvi smo postali. Nekad se svašta pravilo, internacional će reći da je to trećerazredno al' ja sam pravio da nekom pomognem i sve postavljao javno. Vi čuvate neke alate tj. te prvorazredne koje nikom ne šaljete a pljujete na ove koje sam ja "skrpio" da koliko toliko olakša i pomogne nekom.

Nek' vam je na dušu to prizivanje.

U svemu ovom sam bio preko 6-7 godina, prvu aplikaciju sam napravio sa pokojnim D.M.W. s kojim sam pričao na gmail dan-dva prije nego što je umro. NIKAD nismo napravili ništa što će nekom naškodit, to dobro znaju ljudi sa WiZiWiG i ostalih foruma.Sâm D.M.W. za kojeg čak ni ja nisam znao da umire a pričali smo skoro cijelu noć dok smo piisali kod za tada noobroom a danas Movies aplikaciju. Čovjek je pomagao svima do zadnjeg dana života. Ja ga pamtim po tome, po čemu će pamtit nas? Mržnji? Slikama? Koliko se hvalimo?

Moj mediafire ima preko 350.000 downloads svih aplikacija ikad postavljenih, sâm mediafire blokira sumnjive aplikacije tj. one koje nešto kradu ili sadrže dio koda koji može nešto uništit. Pri samom upload-u blokiraju aplikaciju i ne može na upload. X puta sam ispravljao dio koda zbog false positive izvještaja na virustotal i još jednom kažem ko želi bilo koji source od bilo koje aplikacije može da ga dobije. Jedino ne šaljem Movies aplikaciju jer je prvu stranu koda te aplikacije napisao pokojni D.M.W. čovjek koji je pomogao svakom i to do zadnjeg dana života koji je kratak. Nemojte da vam ode u mržnji.

Mediafire.png


Za kraj ovo su sve moje apikacije napravljene za skeniranjje ovih .ts listi, samom objavom istih će me izbacit iz VIP dijela al' pošto se svakako povlačim iz svega a aplikacije su moje stavljam ih ovdje:

Код: 
http://www.mediafire.com/file/y48uapdeb07eyw5/Alati.rar

Trećerazredne su al' hej, ko hoće može da ih koristi. Niko vas ne tjera, opet kažem source svake od njih možete dobiti i sami ih kompajlirajte. Ne vjerujte pričama i mržnji, ko me zna zna da sam ovo radio iz dosade i da pomognem koliko mogu, TV uopšte ne gledam.

To je sve što sam ja ikad postavio u VIP.

Nemojte da se mrzite, pomažite kao nekad D.M.W. čovjek je krio da je bolestan i uvijek bio nasmijan i spreman za šalu do posljednjeg dana. Ljudi se pamte po dobrom.

Budite dobri.

Pozdrav od mene i svako dobro. Izlazim iz ovog svega. Sretno.
wave.gif

Кликни за повеќе...
neka je sa srecom drug
 
You must log in or register to reply here.

Kajgana Shop

Back
На врв Bottom