Imports System.IO, System.Net, System.Text, System.Text.RegularExpressions
Public Class _3bdullah
    Dim usernameList$() = File.ReadAllLines("list.txt")
    Dim password = pass.Text
    Dim example = mail.Text
    Dim num = 0
    Dim id As String

    Private Sub _3bdullah_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        bar.Maximum = usernameList.Length
        Me.News()
    End Sub
    Function News()
        Try
            Dim req As HttpWebRequest = CType(WebRequest.Create("https://securityheaders.io/?q=https%3A%2F%2Fwww.instagram.com"), HttpWebRequest)
            Dim res As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
            Dim reader As New StreamReader(res.GetResponseStream)
            Dim xd$ = Regex.Match(reader.ReadToEnd, "mid=(.*?);").Groups(1).Value
            id = xd
        Catch ex As Exception
            id = "WmKGrQAEAAEVZOQNAAMHnDl0rCiV"
        End Try
    End Function
    Function usercheck(ByVal username$)
        Dim obj As Object
        Try
            Dim data$ = "email=Alien+" + username + "3bdullah@gmail.com&password=3bdullah$9&username=" + username + "&first_name=3bdullah checker v1"
            Dim bytes As Byte() = Encoding.UTF8.GetBytes(data)
            Dim check As HttpWebRequest = CType(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/attempt/"), HttpWebRequest)
            With check
                .Method = "POST"
                .Host = "www.instagram.com"
                .UserAgent = "Mozilla/5.0 (Windows NT 5.1; rv:27.0) Gecko/20100101 Firefox/27.0"
                .Referer = "https://www.instagram.com/"
                .KeepAlive = True
                .Proxy = Nothing
                .ContentLength = bytes.Length
                .Headers.Add("X-CSRFToken", "5CU2eiApp0HHhQs01GQXCyvoKwOWRiW1")
                .Headers.Add("X-Instagram-AJAX", "1")
                .Headers.Add("X-Requested-With", "XMLHttpRequest")
                .Headers.Add("Cookie", "csrftoken=5CU2eiApp0HHhQs01GQXCyvoKwOWRiW1; mid=WmKGrQAEAAEVZOQNAAMHnDl0rCiV; rur=ATN; ig_vw=800; ig_pr=1; ig_vh=461")
            End With
            Dim str As Stream = check.GetRequestStream
            str.Write(bytes, 0, bytes.Length)
            str.Close()
            Dim res As HttpWebResponse = CType(check.GetResponse, HttpWebResponse)
            Dim reader As New StreamReader(res.GetResponseStream)
            obj = reader.ReadToEnd.Contains("true")
        Catch ex As Exception
            obj = ex.Message.Contains("true")
        End Try
        Return obj
    End Function
    Function register(ByVal username$)
        Dim obj As Object
        Dim data$ = "email=" + example + "&password=3" + password + "&username=" + username + "&first_name=3bdullah checker $"
        Dim bytes As Byte() = Encoding.UTF8.GetBytes(data)
        Dim check As HttpWebRequest = CType(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/"), HttpWebRequest)
        With check
            .Method = "POST"
            .Host = "www.instagram.com"
            .UserAgent = "Mozilla/5.0 (Windows NT 5.1; rv:27.0) Gecko/20100101 Firefox/27.0"
            .Referer = "https://www.instagram.com/"
            .KeepAlive = True
            .Proxy = Nothing
            .ContentLength = bytes.Length
            .Headers.Add("X-CSRFToken", "5CU2eiApp0HHhQs01GQXCyvoKwOWRiW1")
            .Headers.Add("X-Instagram-AJAX", "1")
            .Headers.Add("X-Requested-With", "XMLHttpRequest")
            .Headers.Add("Cookie", "csrftoken=5CU2eiApp0HHhQs01GQXCyvoKwOWRiW1; mid=" + id + "; rur=ATN; ig_vw=800; ig_pr=1; ig_vh=461")
        End With
        Dim str As Stream = check.GetRequestStream
        str.Write(bytes, 0, bytes.Length)
        str.Close()
        Dim res As HttpWebResponse = CType(check.GetResponse, HttpWebResponse)
        Dim reader As New StreamReader(res.GetResponseStream)
        obj = reader.ReadToEnd.Contains("true")
        Return obj
    End Function
    Function abdullah()
        Do
            If num = usernameList.Length Then
                bar.Value = 0
                num = 0
            Else
                Do While num < usernameList.Length
                    Dim username = usernameList(num)
                    If usercheck(username) Then
                        ok.AppendText(username + vbCrLf)
                        If register(username) Then
                            MessageBox.Show("Hi >> @ " + username, "New Username$", MessageBoxButtons.OK, MessageBoxIcon.Information)
                        End If
                    Else
                        taken.AppendText(username + vbCrLf)
                    End If
                    num += 1
                    bar.Value += 1
                Loop
            End If
        Loop
    End Function

    Private Sub button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button.Click
        Dim go As New Threading.Thread(AddressOf abdullah)
        go.IsBackground = True
        go.Start()
    End Sub