Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Globalization
Imports System.IO
Imports System.Net
Imports System.Runtime.CompilerServices
Imports System.Security.Cryptography
Imports System.Text
Imports System.Threading
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System.Net.Mail

Public Class Form1
    Public bool_0 As Boolean
    Public thread123 As Integer

    ' Token: 0x0400002D RID: 45
    Public int_0 As Integer

    ' Token: 0x0400002E RID: 46
    Private Shared list_0 As List(Of WeakReference) = New List(Of WeakReference)()

    ' Token: 0x0400002F RID: 47
    Public string_0 As String

    ' Token: 0x04000030 RID: 48
    Public string_1 As String

    ' Token: 0x04000031 RID: 49
    Public point_0 As Point

    ' Token: 0x04000032 RID: 50
    Private bloo As Boolean
    Shared Sub New()
        Form1.__ENCList = New List(Of WeakReference)()
        Form1.list_0 = New List(Of WeakReference)()
    End Sub
    Public Sub New()
        AddHandler MyBase.Load, AddressOf Me.Form1_Load
        Form1.__ENCAddToList(Me)
        Me.bool_0 = False
        Me.string_1 = "Instagram 10.26.0 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
        Me.InitializeComponent()
    End Sub


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Width = 93
        thread123 = 230
    End Sub

    Private Sub start_Click(sender As Object, e As EventArgs) Handles start.Click
        Try
            Dim flag As Boolean = Operators.CompareString(Me.username.Text, "", False) = 0
            If flag Then
                Interaction.MsgBox("Wrong Username Or pass !", MsgBoxStyle.Critical, "X")
            Else
                flag = (Operators.CompareString(Me.Pass.Text, "", False) <> 0)
                If flag Then
                    Dim flag2 As Boolean = Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(iT.smethod_0(Me.username.Text, Me.Pass.Text)))
                    If flag2 Then
                        Dim flag3 As Boolean = Not Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(iT.smethod_2()))
                        If flag3 Then
                            Interaction.MsgBox("Error , Close The Turbo ", MsgBoxStyle.Critical, "X")
                        Else
                            flag3 = Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(Me.method_7(Me.target.Text)))
                            If flag3 Then
                                Me.bool_0 = True
                            Else
                                Dim thread As Thread = New Thread(AddressOf Me.method_15)
                                thread.Start()
                                GC.Collect()
                                Dim thread2 As Thread = New Thread(AddressOf Me.method_16)
                                thread2.Start()
                            End If
                        End If
                    End If
                End If
            End If
        Catch ex As Exception
        End Try

    End Sub
    Protected Overrides Sub Dispose(disposing As Boolean)
        Try
            Dim flag As Boolean = disposing AndAlso Me.components IsNot Nothing
            If flag Then
                Me.components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
        Me.Close()
    End Sub
    Private Sub method_1(sender As Object, e As FormClosingEventArgs)
        ProjectData.EndApp()
    End Sub
    Private Sub method_11(sender As Object, e As EventArgs)
        ProjectData.EndApp()
    End Sub
    Private Sub method_12()
        Me.running.Text = Conversions.ToString(Me.int_0)
    End Sub
    Private Sub method_13()
        Me.running.Text = Conversions.ToString(Me.int_0)
    End Sub
    Private Sub method_14()
        Me.running.Text = Conversions.ToString(Me.int_0)
    End Sub
    Private Sub method_15()
        Me.method_4()
    End Sub
    Private Sub method_16()
        Me.method_2()
    End Sub
    Public Function method_2() As Object
        Try
            Thread.Sleep(200)
            While Not Me.bool_0
                ' The following expression was wrapped in a checked-expression
                ' The following expression was wrapped in a unchecked-expression
                Me.int_0 = CInt(Math.Round(CDbl(Me.int_0) + Conversions.ToDouble(Me.TextBox2.Text)))
                Me.method_12()
                Thread.Sleep(thread123)
            End While
        Catch ex As Exception
        End Try
        Dim result As Object
        Return result
    End Function
    Private Function method_4() As Object
        Dim millisecondsTimeout As Integer = Conversions.ToInteger(Me.timer.Text)
        While Not Me.bool_0
            Try
                Dim webClient As WebClient = New WebClient()
                Try
                    ServicePointManager.DefaultConnectionLimit = 600
                    ServicePointManager.UseNagleAlgorithm = False
                    ServicePointManager.Expect100Continue = False
                    webClient.Proxy = Nothing
                    webClient.Headers.Add("User-Agent", "Instagram 30.0.0.12.95 Android (24/7.0; 480dpi; 1080x1920; samsung; SM-G930P; heroqltespr; com; en_US) 89867442)")
                    webClient.Headers.Add("Instagram 30.0.0.12.95 Android (24/7.0; 480dpi; 1080x1920; samsung; SM-G930P; heroqltespr; com; en_US) 89867442)")
                    webClient.Headers.Add("Cookie", iT.string_9)
                    Dim left As String = webClient.DownloadString("https://i.instagram.com/api/v1/feed/user/" + Me.target.Text + "/username/")
                    Dim flag As Boolean = Operators.CompareString(left, "{""items"": [], ""num_results"": 0, ""status"": ""ok""}", False) = 0
                    If flag Then
                        Dim flag2 As Boolean = Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(Me.method_7(Me.target.Text)))
                        If flag2 Then
                            Me.bool_0 = True
                        End If
                    Else
                        Me.int_0 += 1
                        Me.method_13()
                    End If
                    webClient.Dispose()
                Finally
                    Dim flag2 As Boolean = webClient IsNot Nothing
                    If flag2 Then
                        CType(webClient, IDisposable).Dispose()
                    End If
                End Try
                Thread.Sleep(millisecondsTimeout)
            Catch ex As Exception
                Try
                    Dim text As String = Me.method_5(String.Concat(New String() {"https://i.instagram.com/api/v1/users/search?q=", Me.target.Text, "&access_token=", Guid.NewGuid().ToString().ToUpper(), "/"}))
                    Dim flag2 As Boolean = Not (text.Contains("""username"": """ + Me.target.Text + """") Or False)
                    If flag2 Then
                        Dim flag As Boolean = Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(Me.method_7(Me.target.Text)))
                        If flag Then
                            Me.bool_0 = True
                        End If
                    Else
                        Me.int_0 += 1
                        Me.method_14()
                    End If
                Catch ex2 As Exception
                End Try
                Thread.Sleep(millisecondsTimeout)
            End Try
        End While
        Dim result As Object
        Return result
    End Function
    Public Function method_5(string_2 As String) As String
        Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create(string_2), HttpWebRequest)
        httpWebRequest.Method = "GET"
        httpWebRequest.KeepAlive = True
        httpWebRequest.CookieContainer = iT.cookieContainer_0
        httpWebRequest.UserAgent = Me.string_1
        httpWebRequest.Proxy = Nothing
        httpWebRequest.Headers.Add("X-IG-Connection-Type", "WiFi")
        httpWebRequest.Headers.Add("X-IG-Capabilities", "3ToAAA==")
        Dim result As String
        Try
            Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
            Dim streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
            result = streamReader.ReadToEnd()
        Catch ex As WebException
            Dim streamReader2 As StreamReader = New StreamReader(ex.Response.GetResponseStream())
            result = streamReader2.ReadToEnd()
        End Try
        Return result
    End Function
    Private Sub method_6(sender As Object, e As EventArgs)
        Try
            Dim flag As Boolean = Operators.CompareString(Me.username.Text, "", False) = 0
            If flag Then
                Interaction.MsgBox("Wrong Username Or pass !", MsgBoxStyle.Critical, "X")
            Else
                flag = (Operators.CompareString(Me.Pass.Text, "", False) <> 0)
                If flag Then
                    Dim flag2 As Boolean = Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(iT.smethod_0(Me.username.Text, Me.Pass.Text)))
                    If flag2 Then
                        Dim flag3 As Boolean = Not Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(iT.smethod_2()))
                        If flag3 Then
                            Interaction.MsgBox("Error , Close The Turbo ", MsgBoxStyle.Critical, "X")
                        Else
                            flag3 = Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(Me.method_7(Me.target.Text)))
                            If flag3 Then
                                Me.bool_0 = True
                            Else
                                Dim thread As Thread = New Thread(AddressOf Me.method_15)
                                thread.Start()
                                GC.Collect()
                                Dim thread2 As Thread = New Thread(AddressOf Me.method_16)
                                thread2.Start()
                            End If
                        End If
                    End If
                Else
                    Interaction.MsgBox("Wrong Username Or pass !", MsgBoxStyle.Critical, "X")
                End If
            End If
        Catch ex As Exception
            Interaction.MsgBox("Error : " + ex.Message, MsgBoxStyle.OkOnly, Nothing)
            ProjectData.EndApp()
        End Try
    End Sub
    Public Function method_7(string_2 As String) As Object
        Dim str As String = "signed_body="
        Dim text As String = String.Format("{{""gender"":""{0}"",""_csrftoken"":""{1}"",""_uuid"":""{2}"",""_uid"":""{3}"",""external_url"":""{4}"",""username"":""{5}"",""email"":""{6}"",""phone_number"":""{7}"",""biography"":""{8}"",""first_name"":""{9}""}}", New Object() {iT.string_1, iT.string_7, Guid.NewGuid().ToString(), iT.string_0, iT.string_2, string_2, iT.string_5, iT.string_3, iT.string_6, TextBox3.Text, ""})
        Dim str2 As String = Form1.smethod_1(text) + "."
        Dim str3 As String = "&ig_sig_key_version=5"
        Dim result As Object = False
        Try
            Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/api/v1/accounts/edit_profile/"), HttpWebRequest)
            httpWebRequest.Method = "POST"
            httpWebRequest.KeepAlive = True
            httpWebRequest.CookieContainer = iT.cookieContainer_0
            httpWebRequest.ContentType = "application/x-www-form-urlencoded"
            httpWebRequest.UserAgent = "Instagram 10.26.0 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
            httpWebRequest.UserAgent = "Instagram 10.15.0 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
            httpWebRequest.UserAgent = "Instagram 10.3.2 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
            httpWebRequest.AllowAutoRedirect = True
            httpWebRequest.Proxy = Nothing
            httpWebRequest.Timeout = 8000
            httpWebRequest.Headers.Add("X-IG-Connection-Type", "WIFI")
            httpWebRequest.Headers.Add("X-IG-Capabilities", "3ToAAA==")
            Dim requestStream As Stream = httpWebRequest.GetRequestStream()
            Dim flag As Boolean
            Try
                Dim bytes As Byte() = Encoding.UTF8.GetBytes(str + str2 + text + str3)
                requestStream.Write(bytes, 0, bytes.Length)
            Finally
                flag = (requestStream IsNot Nothing)
                If flag Then
                    CType(requestStream, IDisposable).Dispose()
                End If
            End Try
            Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
            flag = (httpWebResponse.StatusCode = HttpStatusCode.OK)
            If flag Then
                Me.start.Text = "#Available"
                Me.start.ForeColor = Color.DarkRed

                ' Interaction.MsgBox("Fuck Off :@" + Me.target.Text, MsgBoxStyle.Information, Nothing)
                MsgBox("[#LordYo7b] Old Username : @" + username.Text + vbCrLf + "[#LordYo7b] You Got A New Username! " + vbCrLf + "[#LordYo7b] Username : @" + target.Text + vbCrLf + "[#LordYo7b] Password : " + Pass.Text + vbCrLf + "[#LordYo7b] Atempts : " + running.Text + vbCrLf + "[#LordYo7b] Enjoy (:")
                If CheckBox2.Checked = True Then
                    Try
                        mail()
                    Catch ex As Exception
                        MsgBox(ex.Message)
                    End Try
                End If
            End If
            result = True
        Catch ex As WebException
            Thread.CurrentThread.CurrentUICulture = CultureInfo.GetCultureInfo("en-US")
            Dim httpWebResponse2 As HttpWebResponse = CType(ex.Response, HttpWebResponse)
            Dim streamReader As StreamReader = New StreamReader(httpWebResponse2.GetResponseStream())
            Try
                Dim text2 As String = streamReader.ReadToEnd()
                Dim flag As Boolean = text2.Contains("feedback_")
                If flag Then
                    Interaction.MsgBox("Close The Turbo !", MsgBoxStyle.Information, Nothing)
                    result = False
                End If
                result = False
            Finally
                Dim flag As Boolean = streamReader IsNot Nothing
                If flag Then
                    CType(streamReader, IDisposable).Dispose()
                End If
            End Try
        End Try
        Return result
    End Function
    Private Sub method_8(sender As Object, e As MouseEventArgs)
        Dim flag As Boolean = e.Button = MouseButtons.Left
        If flag Then
            Me.point_0 = e.Location
        End If
    End Sub
    Private Sub method_9(sender As Object, e As MouseEventArgs)
        Dim flag As Boolean = e.Button = MouseButtons.Left
        If flag Then
            Me.Location += CType((e.Location - CType(Me.point_0, Size)), Size)
        End If
    End Sub
    Private Shared Sub smethod_0(object_0 As Object)
        Dim list As List(Of WeakReference) = Form1.list_0
        Dim obj As List(Of WeakReference) = list
        Dim flag As Boolean = False
        Try
            Monitor.Enter(obj, flag)
            Dim flag2 As Boolean = Form1.list_0.Count = Form1.list_0.Capacity
            If flag2 Then
                Dim num As Integer = 0
                Dim num2 As Integer = 0
                Dim num3 As Integer = CInt(Math.Round(CDbl(Form1.list_0.Count) - 1.2))
                Dim num4 As Integer = num2
                While True
                    Dim num5 As Integer = num4
                    Dim num6 As Integer = num3
                    flag2 = (num5 > num6)
                    If flag2 Then
                        Exit While
                    End If
                    Dim weakReference As WeakReference = Form1.list_0(num4)
                    flag2 = weakReference.IsAlive
                    If flag2 Then
                        Dim flag3 As Boolean = num4 <> num
                        If flag3 Then
                            Form1.list_0(num) = Form1.list_0(num4)
                        End If
                        num = CInt(Math.Round(CDbl(num) + 1.2))
                    End If
                    num4 = CInt(Math.Round(CDbl(num4) + 1.2))
                End While
                Form1.list_0.RemoveRange(num, Form1.list_0.Count - num)
                Form1.list_0.Capacity = Form1.list_0.Count
            End If
            Form1.list_0.Add(New WeakReference(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(object_0)))))
        Finally
            Dim flag3 As Boolean = flag
            If flag3 Then
                Monitor.[Exit](obj)
            End If
        End Try
    End Sub
    Public Shared Function smethod_1(string_2 As String) As String
        Dim s As String = "4f8732eb9ba7d1c8e8897a75d6474d4eb3f5279137431b2aafb71fafe2abe178"
        Dim num As Integer = 0
        Dim stringBuilder As StringBuilder = New StringBuilder()
        Dim hmacsha As HMACSHA256 = New HMACSHA256(Encoding.UTF8.GetBytes(s))
        hmacsha.ComputeHash(Encoding.UTF8.GetBytes(string_2))
        Dim hash As Byte() = hmacsha.Hash
        Dim num2 As Integer = hash.Length - 1
        Dim i As Integer = 0
        While i <= num
            Dim b As Byte = hash(i)
            stringBuilder.Append(b.ToString("x2"))
            i += 1
            num = num2
        End While
        Return stringBuilder.ToString()
    End Function
    Private Shared Sub __ENCAddToListd(value As Object)
        Dim _ENCList As List(Of WeakReference) = Form1.__ENCList
        Dim flag As Boolean = False
        Try
            Monitor.Enter(_ENCList, flag)
            Dim flag2 As Boolean = Form1.__ENCList.Count = Form1.__ENCList.Capacity
            If flag2 Then
                Dim num As Integer = 0
                Dim num2 As Integer = 0
                Dim num3 As Integer = Form1.__ENCList.Count - 1
                Dim num4 As Integer = num2
                While True
                    Dim num5 As Integer = num4
                    Dim num6 As Integer = num3
                    If num5 > num6 Then
                        Exit While
                    End If
                    Dim weakReference As WeakReference = Form1.__ENCList(num4)
                    flag2 = weakReference.IsAlive
                    If flag2 Then
                        Dim flag3 As Boolean = num4 <> num
                        If flag3 Then
                            Form1.__ENCList(num) = Form1.__ENCList(num4)
                        End If
                        num += 1
                    End If
                    num4 += 1
                End While
                Form1.__ENCList.RemoveRange(num, Form1.__ENCList.Count - num)
                Form1.__ENCList.Capacity = Form1.__ENCList.Count
            End If
            Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
        Finally
            Dim flag3 As Boolean = flag
            If flag3 Then
                Monitor.[Exit](_ENCList)
            End If
        End Try
    End Sub

    Private Sub namee_MouseDown(sender As Object, e As MouseEventArgs) Handles namee.MouseDown
        Dim flag As Boolean = e.Button = MouseButtons.Left
        If flag Then
            ' The following expression was wrapped in a checked-expression
            Me.point_0 = New Point(0 - e.X, 0 - e.Y)
            Me.bloo = True
        End If
    End Sub

    Private Sub namee_MouseMove(sender As Object, e As MouseEventArgs) Handles namee.MouseMove
        Dim flag As Boolean = Me.bloo
        If flag Then
            Dim mousePosition As Point = Control.MousePosition
            mousePosition.Offset(Me.point_0.X, Me.point_0.Y)
            Me.Location = mousePosition
        End If
    End Sub

    Private Sub namee_MouseUp(sender As Object, e As MouseEventArgs) Handles namee.MouseUp
        Dim flag As Boolean = e.Button = MouseButtons.Left
        If flag Then
            Me.bloo = False
        End If
    End Sub

    Private Sub Label_0_Click(sender As Object, e As EventArgs) Handles Label_0.Click
        Me.Close()

    End Sub


    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked Then
            Control.CheckForIllegalCrossThreadCalls = False
            ThreadPool.SetMinThreads(Integer.MaxValue, Integer.MaxValue)
            ServicePointManager.DefaultConnectionLimit = Integer.MaxValue
            MyBase.Width = 364
            MyBase.Height = 147

        Else
            Control.CheckForIllegalCrossThreadCalls = False
            ThreadPool.SetMinThreads(Integer.MaxValue, Integer.MaxValue)
            ServicePointManager.DefaultConnectionLimit = Integer.MaxValue
            MyBase.Width = 94
            MyBase.Height = 147

        End If
    End Sub


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        thread123 = 130
        timer.Text = thread123
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        thread123 = 230
        timer.Text = thread123
    End Sub

    Private Sub mail()
        Try
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("i9u0h30@gmail.com", "Ff112233")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.gmail.com"

            e_mail = New MailMessage()
            e_mail.From = New MailAddress("almjhol.q8@gmail.com")
            e_mail.To.Add(TextBox4.Text)
            e_mail.Subject = "You Catch A New User (:"
            e_mail.IsBodyHtml = False
            e_mail.Body = "[#LordYo7b] Old Username : @" + username.Text + vbCrLf + "[#LordYo7b] You Got A New Username! " + vbCrLf + "[#LordYo7b] Username : @" + target.Text + vbCrLf + "[#LordYo7b] Password : " + Pass.Text + vbCrLf + "[#LordYo7b] Atempts : " + running.Text + vbCrLf + "[#LordYo7b] Enjoy (:"
            Smtp_Server.Send(e_mail)
            MsgBox("Mail Sent")

        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try
    End Sub

End Class