API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 1st, 2018
2,652
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.98 KB | None | 0 0
raw download clone embed print report
  1. Mrelhlawany.com
  2. webClient.Proxy = Nothing
  3. webClient.Headers.Add("User-Agent", "Instagram 10.30.0 (iPhone7,1; iPhone OS 9_3_3; en_SA@calendar=gregorian; en-SA; scale=2.61; gamut=normal; 1080x1920) AppleWebKit/420+")
  4. webClient.Headers.Add("Cookie", Class12.string_9)
  5. Dim left As String = webClient.DownloadString("https://i.instagram.com/api/v1/feed/user/" + AddressOf Me.TextBox_2.Text + "/username/")
  6. Dim flag As Boolean = Operators.CompareString(left, "{""items"": [], ""num_results"": 0, ""status"": ""ok""}", False) <> 0
  7. If flag Then
  8. Me.int_0 += 1
  9. Me.method_12()
  10. Else
  11. flag = Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(Me.method_7(AddressOf Me.TextBox_2.Text)))
  12. If flag Then
  13. Me.bool_0 = True
  14. End If
  15. End If
  16. webClient.Dispose()
  17. Finally
  18. Dim flag As Boolean = webClient IsNot Nothing
  19. If flag Then
  20. (CType(webClient, IDisposable)).Dispose()
  21. End If
  22. End Try
  23. Thread.Sleep(millisecondsTimeout)
  24. Catch expr_115 As Exception
  25. ProjectData.SetProjectError(expr_115)
  26. Try
  27. ServicePointManager.DefaultConnectionLimit = 600
  28. ServicePointManager.UseNagleAlgorithm = False
  29. ServicePointManager.Expect100Continue = False
  30. Dim text As String = Me.method_5(String.Concat(New String()() { "https://i.instagram.com/api/v1/users/search?q=", AddressOf Me.TextBox_2.Text, "&access_token=", Guid.NewGuid().ToString().ToUpper(), "/" }))
  31. Dim flag As Boolean = Not(text.Contains("""username"": """ + AddressOf Me.TextBox_2.Text + """") Or False)
  32. If flag Then
  33. Dim flag2 As Boolean = Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(Me.method_7(AddressOf Me.TextBox_2.Text)))
  34. If flag2 Then
  35. Me.bool_0 = True
  36. End If
  37. Else
  38. Me.int_0 += 1
  39. Me.method_13()
  40. End If
  41. Catch expr_20B As Exception
  42. ProjectData.SetProjectError(expr_20B)
  43. ProjectData.ClearProjectError()
  44. End Try
  45. Thread.Sleep(millisecondsTimeout)
  46. ProjectData.ClearProjectError()
  47. End Try
  48. End While
  49. Dim result As Object
  50. Return result
  51. End Function
  52.  
  53. Public Function method_5(string_2 As String) As String
  54. Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create(string_2), HttpWebRequest)
  55. httpWebRequest.Method = "GET"
  56. httpWebRequest.KeepAlive = True
  57. httpWebRequest.CookieContainer = Class12.cookieContainer_0
  58. httpWebRequest.UserAgent = Me.string_1
  59. httpWebRequest.Proxy = Nothing
  60. httpWebRequest.Headers.Add("X-IG-Connection-Type", "WiFi")
  61. httpWebRequest.Headers.Add("X-IG-Capabilities", "3ToAAA==")
  62. Dim result As String
  63. Try
  64. Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
  65. Dim streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
  66. result = streamReader.ReadToEnd()
  67. Catch expr_92 As WebException
  68. ProjectData.SetProjectError(expr_92)
  69. Dim ex As WebException = expr_92
  70. Dim streamReader2 As StreamReader = New StreamReader(ex.Response.GetResponseStream())
  71. result = streamReader2.ReadToEnd()
  72. ProjectData.ClearProjectError()
  73. End Try
  74. Return result
  75. End Function
  76.  
  77. <MethodImpl(MethodImplOptions.NoInlining Or MethodImplOptions.NoOptimization)>
  78. Private Sub method_6(sender As Object, e As EventArgs)
  79. Try
  80. Dim flag As Boolean = Operators.CompareString(AddressOf Me.TextBox_0.Text, "", False) = 0
  81. If flag Then
  82. Interaction.MsgBox("Error the username Nothing !!", MsgBoxStyle.Critical, "Error")
  83. Else
  84. flag = (Operators.CompareString(AddressOf Me.TextBox_1.Text, "", False) = 0)
  85. If flag Then
  86. Interaction.MsgBox("Error the Password Nothing !!", MsgBoxStyle.Critical, "Error")
  87. Else
  88. flag = Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(Class12.smethod_0(AddressOf Me.TextBox_0.Text, AddressOf Me.TextBox_1.Text)))
  89. If flag Then
  90. Dim flag2 As Boolean = Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(Class12.smethod_2()))
  91. If flag2 Then
  92. Dim flag3 As Boolean = Not Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(Me.method_7(AddressOf Me.TextBox_2.Text)))
  93. If flag3 Then
  94. Dim thread As Thread = AddressOf Me.method_14
  95. thread.Start()
  96. GC.Collect()
  97. Dim thread2 As Thread = AddressOf Me.method_15
  98. thread2.Start()
  99. Else
  100. Me.bool_0 = True
  101. End If
  102. Else
  103. Interaction.MsgBox("Error Get the Info", MsgBoxStyle.Critical, "Error")
  104. End If
  105. End If
  106. End If
  107. End If
  108. Catch expr_12D As Exception
  109. ProjectData.SetProjectError(expr_12D)
  110. Dim ex As Exception = expr_12D
  111. Interaction.MsgBox("Error : " + ex.Message, MsgBoxStyle.OkOnly, Nothing)
  112. ProjectData.EndApp()
  113. ProjectData.ClearProjectError()
  114. End Try
  115. End Sub
  116.  
  117. Public Function method_7(string_2 As String) As Object
  118. Dim str As String = "signed_body="
  119. Dim text As String = String.Format("{{""gender"":""{0}"",""_csrftoken"":""{1}"",""_uuid"":""{2}"",""_uid"":""{3}"",""external_url"":""{4}"",""username"":""{5}"",""email"":""{6}"",""phone_number"":""{7}"",""biography"":""{8}"",""first_name"":""{9}""}}", New Object()() { Class12.string_1, Class12.string_7, Guid.NewGuid().ToString(), Class12.string_0, Class12.string_2, string_2, Class12.string_5, Class12.string_3, Class12.string_6, "ALSAHERY " })
  120. Dim str2 As String = Form1.smethod_1(text) + "."
  121. Dim str3 As String = "&ig_sig_key_version=5"
  122. Dim result As Object = False
  123. Try
  124. Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/api/v1/accounts/edit_profile/"), HttpWebRequest)
  125. httpWebRequest.Method = "POST"
  126. httpWebRequest.KeepAlive = True
  127. httpWebRequest.CookieContainer = Class12.cookieContainer_0
  128. httpWebRequest.ContentType = "application/x-www-form-urlencoded"
  129. httpWebRequest.UserAgent = "Instagram 10.3.2 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
  130. httpWebRequest.AllowAutoRedirect = True
  131. httpWebRequest.Proxy = Nothing
  132. httpWebRequest.Timeout = 8000
  133. httpWebRequest.Headers.Add("X-IG-Connection-Type", "WIFI")
  134. httpWebRequest.Headers.Add("X-IG-Capabilities", "3ToAAA==")
  135. Dim requestStream As Stream = httpWebRequest.GetRequestStream()
  136. Dim flag As Boolean
  137. Try
  138. Dim bytes As Byte() = Encoding.UTF8.GetBytes(str + str2 + text + str3)
  139. requestStream.Write(bytes, 0, bytes.Length)
  140. Finally
  141. flag = (requestStream IsNot Nothing)
  142. If flag Then
  143. (CType(requestStream, IDisposable)).Dispose()
  144. End If
  145. End Try
  146. Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
  147. flag = (httpWebResponse.StatusCode = HttpStatusCode.OK)
  148. If flag Then
  149. AddressOf Me.Label_2.Text = "done @" + string_2 + " "
  150. result = True
  151. End If
  152.  
  153.  
  154. 5ad7d6f013666cc93c88fc8af940348bd067b68f0dce3c85122a923f4f74b251
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168. Username: EAV-0187093385
  169. Password: 6fv7p4eput
  170. http://gsul.me/boYn
  171. https://www.file-upload.com/h21tym4uizvm
  172. http://man2pro.com/LfK7Sqv
  173. http://man2pro.com/VBoK
  174. License Key: CNDU-W33F-ARX5-58W3-ARGE
  175. Expiration: 06/01/2020
  176.  
  177. Username: TRIAL-0207023696
  178. Password: 3h5323b3bc
  179. License Key: AUD4-W337-FE72-29ED-EX9W
  180. Expiration: 09/09/2018
  181.  
  182. Username: EAV-0179404038
  183. Password: xrt3x87pff
  184. License Key: CNDU-W33D-JECX-XMS9-ACH7
  185. Expiration: 11/10/2019
  186.  
  187. Username: EAV-0187093385
  188. Password: 6fv7p4eput
  189. License Key: CNDU-W33F-ARX5-58W3-ARGE
  190. Expiration: 06/01/2020
  191.  
  192. Username: TRIAL-0207023696
  193. Password: 3h5323b3bc
  194. License Key: AUD4-W337-FE72-29ED-EX9W
  195. Expiration: 09/09/2018
  196.  
  197. Username: EAV-0179404038
  198. Password: xrt3x87pff
  199. License Key: CNDU-W33D-JECX-XMS9-ACH7
  200. Expiration: 11/10/2019
  201.  
  202. Username: EAV-0187093385
  203. Password: 6fv7p4eput
  204. License Key: CNDU-W33F-ARX5-58W3-ARGE
  205. Expiration: 06/01/2020
  206.  
  207. Username: TRIAL-0207023696
  208. Password: 3h5323b3bc
  209. License Key: AUD4-W337-FE72-29ED-EX9W
  210. Expiration: 09/09/2018
  211.  
  212. Mrelhlawany.com
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!