Follow along with the video below to see how to install our site as a web app on your home screen.
Beleška: this_feature_currently_requires_accessing_site_using_safari
haha,moze biti.A evo da kazem da sam rijesio nadogradjivanjem net framework i evo radi normalno sad za sad,ako opet ne stane
Pa ok, i sta s tim sto sam se javio i pitao za savet, bese server neki? Pitao sam lepo, zahvalio se, zasto me sad provlacis ovde? Jesi li morao da odgovoris ? Nisi. Jel bih ti zamerao sta? Ne bih. Ko hoce da pomogne, hvala, ko nece opet mu hvala.
Ja sam te lepo pitao sta si ocekivao od svega ovoga a ti mi nesto drugo govoris a pri tome nisi rekao sustinu. Zaista mislis da ce neko za mesec dana da ima koristi od svih ovih skenera? Da ti ja kazem.. Nece.
A zasto? Pa zato sto ni strimeri nisu sisali vesla. Svi su oni ovde i na slicnim forumima, vide gde im skripi, menjaju usere i passworde, stavljaju one koje niti jedan skener ni kombo nece naci, uz MAC stavljaju seriale, izmisljene ili ne, ne bitno, poenta je da nece sediti skrstenih ruku dok im neko vrslja po serverima, skida liste.
Kazete, uvek ce biti nacina.. Mozda, sta ako ne bude? Sta ako se iskesiraju pa kupe legalne panele, koji nisu krekovani i koji nemaju rupe, kad na login stave
USER: cikudjiovdemajmuneglupi2017hahaha
PASS: jesamlitirekaomajmuncinoovdenemaulaza
bas da vidim ko bi nasao sta.
S druge strane, pitas sta je s pomenutih skripta lista is licnog, od svega nabrojanog imam WebTV aplikaciju koja jos uvek radi, ostalo mislim da nikad nisam ni imap pa ti ne bih znao reci..
Imao sam listu koja je radila mesec ipo otprilike, onda je stala, i tada sam resio da sam nadjem sebi nesto, i poceo sam malo ovo da proucavam, uz tvoju pomoc sam nasao par listi sam, ali nisu dugo trajale jer su i same objavljene na forumima. Al ne bitno sad.
Stvarno ne razumem zasto si se navrzmao na mene u toj poruci, ispade da sam nezahvalan kao sto neko rece i da me treba banovati, smesno, zao mi je sto pojedini zive u zabludi, srecni su sada jer su nasli 10-20-30-40... lista koje im rade, bas cemo da vidimo kakvo ce stanje da bude kroz mesec dana.
A sto se lista tice, nisam ni trazio nikome listu od kako sam dosao na ovaj forum, tebe sma pitao za server i to je sve, i pitao sam jer sam jos uvek neupucen. Da, pitao sam i Bokija sta je to stalker lista, i slicno, jer sam mislio da je nesto novo u pitanju ali mi je lepo objasnio i dao primer. To je sve, za razliku od drugih koji su sada srecni jer sada trenutno mogu da nadju listu ja sam svestan da ce vremenom biti sve teze doci do liste bas iz razloga sto sam naveo.
Const UserAgent As String = "Mozilla / 5.0(Windows NT 6.1; WOW64; rv:40.0) Gecko/20100101 Firefox/40.1"
Const NumbersJs As String = "https://openload.co/assets/js/obfuscator/n.js"
Private Function GetStreamURL(URL As String) As String
Dim HTML As String = HttpGet(URL)
Dim NJs As String = HttpGet(NumbersJs)
Dim LinkImg As String = Regex.Match(HTML, "src=""data:image/png;base64,([A-Za-z0-9+/=]+?)""").Groups(1).Value
Dim SigNums As String = Regex.Match(NJs, "window.signatureNumbers='([a-z]+?)'").Groups(1).Value
System.Diagnostics.Debug.WriteLine(LinkImg)
System.Diagnostics.Debug.WriteLine(SigNums)
Dim ImgData As Byte() = Convert.FromBase64String(LinkImg)
Dim Output As String = String.Empty
Using MS As New MemoryStream(ImgData)
Using Img As New Bitmap(MS)
For Y As Integer = 0 To Img.Height - 1
For X As Integer = 0 To Img.Width - 1
Dim Col As Color = Img.GetPixel(X, Y)
If Col = Color.FromArgb(0, 0, 0) Then
'Black color = end of data
Y = Img.Height
Exit For
End If
Output += ChrW(Col.R)
Output += ChrW(Col.G)
Output += ChrW(Col.B)
Next
Next
End Using
End Using
Dim ImgStr As String(,) = New String(9, Output.Length / 200 - 1) {}
Dim SigStr As String(,) = New String(9, SigNums.Length / 260 - 1) {}
For i As Integer = 0 To 9
'Fill Array of Image String
For j As Integer = 0 To ImgStr.GetLength(1) - 1
ImgStr(i, j) = Output.Substring(i * ImgStr.GetLength(1) * 20 + j * 20, 20)
Next
'Fill Array of Signature Numbers
For j As Integer = 0 To SigStr.GetLength(1) - 1
SigStr(i, j) = SigNums.Substring(i * SigStr.GetLength(1) * 26 + j * 26, 26)
Next
Next
Dim Parts As New List(Of String)()
Dim Ones As String = String.Empty
For i As Integer = 0 To 9
If Not Regex.IsMatch(Ones, "^1?$|^(11+?)\1+$") Then
Dim Str As String = String.Empty
Dim Sum As Single = 99.0F
'On JS as VAR_NAME = 'c'['charCodeAt'](0);
For j As Integer = 0 To SigStr.GetLength(1) - 1
For ChrIdx As Integer = 0 To ImgStr(i, j).Length - 1
If Sum > 122.0F Then
Sum = 98.0F
End If
'122 is as AAEncode(?) on JS, and 98 as b (like c above)
Dim Chr As Char = ChrW(Convert.ToInt32(Math.Floor(Sum)))
If SigStr(i, j)(ChrIdx) = Chr AndAlso j >= Str.Length Then
Str += ImgStr(i, j)(ChrIdx)
'Value as AAEncode(?) on JS
Sum += 2.5F
End If
Next
Next
Parts.Add(Str.Replace(",", String.Empty))
End If
Ones += "1"c
Next
Dim StreamURL As String = "https://openload.co/stream/"
StreamURL += Parts(3) + "~"
StreamURL += Parts(1) + "~"
StreamURL += Parts(2) + "~"
StreamURL += Parts(0)
If StreamURL = "" Then
MovieNotAvailable()
Else
Video.Text = StreamURL
End If
Return StreamURL
End Function
Hihihihi...naiavan si ti kao ...>>>zaci tako.......a ja naivan mislim stvarno neko novi pa jos pomazem.....
Hebe ga malo jezikHihihihi...naiavan si ti kao ...>>>
http://names.mongabay.com/data/1000.html
http://www.znacenje-imena.com/imena/sva?page=1
http://www.znacenje-imena.com/imena/sva?page=2
http://www.znacenje-imena.com/imena/sva?page=3
http://www.znacenje-imena.com/imena/sva?page=4
@echo off
FOR /L %%G IN (1, 1, 541) DO (
echo.http://www.znacenje-imena.com/imena/sva?page=%%G>>URLS.txt
echo Number: %%G
)
pause