PasteShr

New Paste Browse

checkpoint_challenge_required
 Private Sub LoginButton_Click(sender As Object, e As EventArgs) Handles LoginButton.Click
        If LoginButton.Text = "Login" Then
            Dim threadx As Thread = New Thread(AddressOf Login)
            threadx.IsBackground = True
            threadx.Start()
        ElseIf LoginButton.Text = "Send Code" Then
            Dim threadx As Thread = New Thread(AddressOf Send_code)
            threadx.IsBackground = True
            threadx.Start()
        End If
    End Sub
checkpoint_challenge_required PasteShr checkpoint_challenge_required
    Public Sub Login()
        Try
            UserText.Enabled = False
            PassText.Enabled = False
            StatusLoginLabel.Text = "Wait....."
            Dim guidnew As String = Guid.NewGuid.ToString.ToLower
            Dim items() As String = guidnew.Split("-")
            UnLoginText1.Text = guidnew
            UnLoginText2.Text = items(4)
            Dim x2 As String = String.Format("{{""phone_id"":""{2}"",""username"":""{0}"",""guid"":""{2}"",""device_id"":""{3}"",""password"":""{1}"",""login_attempt_count"":""0""}}", UserText.Text, PassText.Text, UnLoginText1.Text, UnLoginText2.Text)
checkpoint_challenge_required How to get it for free? checkpoint_challenge_required
            Dim x3 As String = ha("5ad7d6f013666cc93c88fc8af940348bd067b68f0dce3c85122a923f4f74b251", x2) + "."
            Dim bytes As Byte() = Encoding.UTF8.GetBytes("signed_body=" + x3 + x2 + "&ig_sig_key_version=4")
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://i.instagram.com/api/v1/accounts/login/"), HttpWebRequest) : With request
                .Method = "POST"
                .Host = "i.instagram.com"
                .UserAgent = "Instagram 9.7.0 Android (24/7.0; 420dpi; 1080x1920; samsung; SM-N920P; nobleltespr; samsungexynos7420; ar_IQ)"
                .KeepAlive = True
                .Proxy = Nothing
                .ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
                .ContentLength = bytes.Length
checkpoint_challenge_required How to use it? checkpoint_challenge_required
                .CookieContainer = cookies
            End With
            Dim requestStream As Stream = request.GetRequestStream : requestStream.Write(bytes, 0, bytes.Length) : requestStream.Close()
            Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
            If New StreamReader(response.GetResponseStream).ReadToEnd().Contains("logged_in_user") Then
                StatusLoginLabel.Text = "Logged in"
            End If
        Catch ex As WebException
            Dim res As HttpWebResponse = DirectCast(ex.Response, HttpWebResponse)
            Dim respon As String = New StreamReader(res.GetResponseStream).ReadToEnd().ToString()
checkpoint_challenge_required How to get it? checkpoint_challenge_required
            Dim coockeis As String = res.Headers.Get("Set-Cookie")
            XCSRFToken = Regex.Match(coockeis, "csrftoken=(.*?);").Groups(1).Value
            If respon.Contains("checkpoint_challenge_required") Then
                idcheck = Regex.Match(respon, "checkpoint_url"": ""(.*?)""").Groups(1).Value
                StatusLoginLabel.Text = "Checkpoint...."
                LoginButton.Text = "Send Code"
                LoginButton.ForeColor = Color.Red
                UserText.Enabled = False
                PassText.Enabled = False
               
checkpoint_challenge_required How to use it? checkpoint_challenge_required
            Else
                StatusLoginLabel.Text = "Erorr"
                UserText.Enabled = True
                PassText.Enabled = True
            End If
        End Try
    End Sub

Public Sub Send_code()
        Try
checkpoint_challenge_required PasteShr checkpoint_challenge_required
            StatusLoginLabel.Text = "Sending...."
            If PhoneRadio.Checked Then iddd = "0"
            If EmailRadio.Checked Then iddd = "1"
            Dim bytes As Byte() = Encoding.UTF8.GetBytes("choice=" + iddd)
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create(idcheck), HttpWebRequest) : With request
                .Method = "POST"
                .Proxy = Nothing
                .Host = "i.instagram.com"
                .UserAgent = "Instagram 9.7.0 Android (24/7.0; 420dpi; 1080x1920; samsung; SM-N920P; nobleltespr; samsungexynos7420; ar_IQ)"
                .Headers.Add("Accept-Language", "ar-IQ,ar;q=0.9,en-US;q=0.8,en;q=0.7")
checkpoint_challenge_required How to use it? checkpoint_challenge_required
                .Headers.Add("X-Requested-With", "XMLHttpRequest")
                .ContentType = "application/x-www-form-urlencoded"
                .Headers.Add("Sec-Fetch-Dest", "empty")
                .Headers.Add("Sec-Fetch-Mode", "cors")
                .Headers.Add("Sec-Fetch-Site", "same-origin")
                .Headers.Add("X-CSRFToken: " & XCSRFToken)
                .CookieContainer = cookies
                .ContentLength = bytes.Length
                .KeepAlive = True
            End With
checkpoint_challenge_required How to dowload it? checkpoint_challenge_required
            Dim requestStream As Stream = request.GetRequestStream : requestStream.Write(bytes, 0, bytes.Length) : requestStream.Close()
            Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
            If New StreamReader(response.GetResponseStream).ReadToEnd().Contains("CHALLENGE") Then
                StatusLoginLabel.Text = "Sended"
                code = InputBox("Enter Code : ")

Dim T As Thread = New Thread(AddressOf StartLoginx)
                T.Start()
            End If
        Catch ex As WebException : End Try
checkpoint_challenge_required How to get it for free? checkpoint_challenge_required
    End Sub

Public Sub StartLoginx()
        Try
            StatusLoginLabel.Text = "Wait....."
            Dim bytes As Byte() = Encoding.UTF8.GetBytes("security_code=" + code)
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create(idcheck), HttpWebRequest) : With request
                .Method = "POST"
                .Proxy = Nothing
                .Host = "i.instagram.com"
checkpoint_challenge_required PasteShr checkpoint_challenge_required
                .Accept = "*/*"
                .UserAgent = "Instagram 9.7.0 Android (24/7.0; 420dpi; 1080x1920; samsung; SM-N920P; nobleltespr; samsungexynos7420; ar_IQ)"
                .Headers.Add("Accept-Language", "ar-IQ,ar;q=0.9,en-US;q=0.8,en;q=0.7")
                .Headers.Add("X-Requested-With", "XMLHttpRequest")
                .ContentType = "application/x-www-form-urlencoded"
                .Headers.Add("Sec-Fetch-Dest", "empty")
                .Headers.Add("Sec-Fetch-Mode", "cors")
                .Headers.Add("Sec-Fetch-Site", "same-origin")
                .Headers.Add("X-CSRFToken: " & XCSRFToken)
                .CookieContainer = cookies
checkpoint_challenge_required PasteShr checkpoint_challenge_required
                .ContentLength = bytes.Length
                .KeepAlive = True
            End With
            Dim requestStream As Stream = request.GetRequestStream : requestStream.Write(bytes, 0, bytes.Length) : requestStream.Close()
            Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
            Dim respon As String = New StreamReader(response.GetResponseStream).ReadToEnd().ToString()
            If respon.Contains("csrf_token") Then
                xs = Regex.Match(respon, "csrf_token"":""(.*?)""").Groups(1).Value
                Login1(xs)
            End If
checkpoint_challenge_required How to use it? checkpoint_challenge_required
        Catch ex As WebException
            Dim res As HttpWebResponse = DirectCast(ex.Response, HttpWebResponse)
            Dim respon As String = New StreamReader(res.GetResponseStream).ReadToEnd().ToString()
            If respon.Contains("CHALLENGE") Then
                StatusLoginLabel.Text = "Erorr Code"
            End If
        End Try
    End Sub

Public Sub Login1(ByVal csrf_token As String)
checkpoint_challenge_required PasteShr checkpoint_challenge_required
        Try
            Dim x2 As String = String.Format("{{""phone_id"":""{2}"",""_csrftoken"":""{4}"",""username"":""{0}"",""guid"":""{2}"",""device_id"":""{3}"",""password"":""{1}"",""login_attempt_count"":""1""}}", UserText.Text, PassText.Text, UnLoginText1.Text, UnLoginText2.Text, csrf_token)
            Dim x3 As String = ha("1cd3ed5c2c15b66a3f2aa50d195ec80a12841d0dc7b904d426f5eedcbb79ae5d", x2) + "."
            Dim bytes As Byte() = Encoding.UTF8.GetBytes("signed_body=" + x3 + x2 + "&ig_sig_key_version=4")
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://i.instagram.com/api/v1/accounts/login/"), HttpWebRequest) : With request
                .Method = "POST"
                .Host = "i.instagram.com"
                .UserAgent = "Instagram 9.7.0 Android (24/7.0; 420dpi; 1080x1920; samsung; SM-N920P; nobleltespr; samsungexynos7420; ar_IQ)"
                .KeepAlive = True
                .Proxy = Nothing
checkpoint_challenge_required How to get it? checkpoint_challenge_required
                .ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
                .ContentLength = bytes.Length
                .CookieContainer = cookies
            End With
            Dim requestStream As Stream = request.GetRequestStream : requestStream.Write(bytes, 0, bytes.Length) : requestStream.Close()
            Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
            If New StreamReader(response.GetResponseStream).ReadToEnd().Contains("logged_in_user") Then
                StatusLoginLabel.Text = "Logged in"
                GetSettings()
            End If
checkpoint_challenge_required How to get it for free? checkpoint_challenge_required
        Catch ex As WebException : End Try
    End Sub
    Public Sub GetSettings()
        Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/api/v1/accounts/current_user/?edit=true"), HttpWebRequest)
        httpWebRequest.Method = "GET"
        httpWebRequest.KeepAlive = True
        httpWebRequest.UserAgent = "Instagram 9.7.0 Android (24/7.0; 420dpi; 1080x1920; samsung; SM-N920P; nobleltespr; samsungexynos7420; ar_IQ)"
        httpWebRequest.CookieContainer = cookies
        Using streamReader As StreamReader = New StreamReader(httpWebRequest.GetResponse().GetResponseStream())
            Dim input As String = streamReader.ReadToEnd()
checkpoint_challenge_required How to get it? checkpoint_challenge_required
            myid = Regex.Match(input, "pk"": (.*?),").Groups(1).Value
        End Using
    End Sub
   
checkpoint_challenge_required

Paste Settings

Paste Title : [Optional]

Paste Folder : [Optional]

Syntax Highlighting : [Optional]

Paste Expiration : [Optional]

Paste Status : [Optional]

Password : [Optional]

Description: [Optional]

Tags: [Optional]

Encrypt Paste (?)

You are currently not logged in, this means you can not edit or delete anything you paste. Sign Up or Login

Recent Pastes

roblox arsenal hack script
Plaintext | 0 | 6 seconds ago
strucid synapse scritp
Plaintext | 0 | 6 seconds ago
roblox how to get more synapse exclusive scripts
Plaintext | 0 | 7 seconds ago
mekanism maximum power from reactor
Plaintext | 0 | 7 seconds ago
strucid aimbot script unpatched
Plaintext | 0 | 5 minutes ago
pokecord discord auto catcher
Plaintext | 0 | 5 minutes ago
torrent grym
Plaintext | 0 | 5 minutes ago

Paste Settings

Site Languages