Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Threading
Module Turbo
    '    _    __  ____    __        _
    '   /   |  /  )/  \/ / / / /   / /   /   |  / / / /
    '  / /| | /   / / / / / / / /   / /   / /| | / /_/ /
    ' / _ |/ /_/ / /_/ / /_/ / /___/ /___/ _ |/   /
    '/_/  |_/_____/_____/\____/_____/_____/_/  |_/_/ /_/
    '
    Dim Email As String
    Dim Password As String
    Dim Target As String
    Dim count As Integer
    Sub Main()
        Dim a As WebClient = New WebClient
        Dim q As String = a.DownloadString("https://pastebin.com/raw/C1BAwvmK")
        Console.Title = "NT"
        Console.ForegroundColor = ConsoleColor.DarkRed
        Console.WriteLine(q)
        Console.WriteLine()
        Console.ForegroundColor = ConsoleColor.Gray
        Console.WriteLine("- Enter Email")
        Email = Console.ReadLine
        Console.WriteLine("- Enter Target")
        Target = Console.ReadLine
        Console.WriteLine("- Enter Password")
        Password = Console.ReadLine
        Console.WriteLine("- Status")

        Dim s As Thread = New Thread(AddressOf wait)
        s.Start()
    End Sub
    Public Function wait()
        create()
        count += 1
        Console.Title = "NT [ " & count & " ]"
        Dim ppp As Thread = New Thread(AddressOf wait)
        ppp.Start()
    End Function
    Function create()
        On Error Resume Next
        Dim quiien As WebClient = New WebClient
        Dim ajsjs As String = quiien.DownloadString("http://www.instagram.com/" + Target)
        If ajsjs.Contains("Sorry, this page isn't available.") Then
            Dim obj2 As Object
            Dim container As CookieContainer
            Dim s As String = String.Concat(New String() {"email=", Email, "&password=", Password, "&username=", Target, "&first_name=By Abdullah"})
            Dim bytes As Byte() = New UTF8Encoding().GetBytes(s)
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/"), HttpWebRequest)
            request.Headers.Add("X-CSRFToken", "fXBVtChihbe85esQXWCwBl2e0jdL")
            request.ContentType = "application/x-www-form-urlencoded"
            request.Headers.Add("X-Instagram-AJAX", "1")
            request.Headers.Add("X-Requested-With", "XMLHttpRequest")
            request.Headers.Add("Cookie", "mid=WUu3OAAEAAHpFJhNoBD3_UpEAMVC; js_datr=JbBhWCXpCLhu_i0Hy89QBFIG; csrftoken=fXBVtChihbe85esQXWCwBl2e0jdL; ig_pr=1.25; ig_vw=1525; ig_dru_dismiss=1485866364904; ig_aib_du=1487800189834; js_reg_ext_ref=http%3A%2F%2Fhelp.instagram.com; js_reg_fb_ref=https%3A%2F%2Fwww.facebook.com%2Fhelp%2Finstagram%2Fcontact%2F1652567838289083; js_reg_fb_gate=https%3A%2F%2Fwww.facebook.com%2Fhelp%2Finstagram%2F292478487812558; wd=1525x724; dpr=1.25")
            request.Method = "POST"
            request.KeepAlive = True
            request.CookieContainer = container
            request.Referer = "https://www.instagram.com/"
            request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
            request.ContentLength = bytes.Length
            Dim requestStream As Stream = request.GetRequestStream
            requestStream.Write(bytes, 0, bytes.Length)
            requestStream.Close()
            Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
            Dim reader As New StreamReader(response.GetResponseStream)
            If reader.ReadToEnd.Contains("""account_created"": true") Then
                Console.ForegroundColor = ConsoleColor.DarkGreen
                Console.WriteLine("Success !")
            Else
            End If
        End If
    End Function

End Module