· 5 years ago · Mar 31, 2020, 12:56 PM
1Imports System.IO
2Imports System.Net
3Imports System.Text
4Imports System.Text.RegularExpressions
5Imports System.Threading
6Imports Microsoft.VisualBasic.CompilerServices
7
8Public Class Form1
9 Public mid As String
10 Public th As Thread
11 Public bool_0 As Boolean
12 Public int_0 As Integer
13 Public int_2 As Integer
14 Public int_3 As Integer
15 Public int_4 As Integer
16 Public object_0 As Object
17 Private string_1 As String()
18 Public bool_3 As Boolean
19 Public Boolean0 As Boolean
20 Public Point0 As Point
21
22 Public Sub New()
23 Me.string_1 = File.ReadAllLines("proxy.txt")
24 Me.object_0 = File.ReadAllLines("list.txt")
25 InitializeComponent()
26 End Sub
27 Private Sub GrabButton_Click(sender As Object, e As EventArgs)
28
29 End Sub
30 Public Function SurrogateEncoder() As Object
31 Try
32 Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://www.instagram.com"), HttpWebRequest)
33 httpWebRequest.Proxy = Nothing
34 Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
35 Using streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
36 Dim input As String = httpWebResponse.Headers(HttpResponseHeader.SetCookie)
37 Dim value As String = Regex.Match(input, "csrftoken=(.*?);").Groups(1).Value
38 Dim value2 As String = Regex.Match(input, "mid=(.*?);").Groups(1).Value
39 If Operators.CompareString(value, Nothing, False) <> 0 AndAlso Operators.CompareString(value2, Nothing, False) <> 0 Then
40 Me.mid = value2
41 End If
42 streamReader.Close()
43 End Using
44 httpWebResponse.Close()
45 Catch ex As Exception
46 ProjectData.SetProjectError(ex)
47 End Try
48 Return False
49 End Function
50
51 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
52 Control.CheckForIllegalCrossThreadCalls = False
53 ThreadPool.SetMinThreads(&H7FFFFFFF, &H7FFFFFFF)
54 ServicePointManager.DefaultConnectionLimit = &H7FFFFFFF
55 Height = 142
56 Width = 239
57 End Sub
58 Public Sub Started()
59 Try
60 Dim num As Integer = Conversions.ToInteger(Me.threads.Text)
61 Dim arg_16_0 As Integer = 0
62 Dim num2 As Integer = num - 1
63 For i As Integer = arg_16_0 To num2
64 Me.th = New Thread(New ThreadStart(AddressOf Me.Checker))
65 Me.th.IsBackground = True
66 Me.th.Start()
67 Next
68 Catch expr_52 As Exception
69 ProjectData.SetProjectError(expr_52)
70 ProjectData.ClearProjectError()
71 End Try
72 End Sub
73 Public Sub Checker()
74 While Not Me.bool_0
75 Try
76 If Not Me.bool_0 Then
77 Dim ptr As Integer = Me.int_0
78 Me.int_0 = ptr + 1
79 ptr = Me.int_2
80 Me.int_2 = ptr + 1
81 If Me.int_0 = Conversions.ToInteger(Operators.SubtractObject(NewLateBinding.LateGet(Me.object_0, Nothing, "length", New Object(-1) {}, Nothing, Nothing, Nothing), 1)) Then
82 Me.int_0 = 0
83 End If
84 If Me.int_2 > Me.string_1.Length - 1 Then
85 Me.int_2 = 0
86 End If
87 Me.Register(Me.int_0, Me.int_2)
88 End If
89 Catch ex As Exception
90 End Try
91 End While
92 End Sub
93 Public Sub Register(int_7 As Integer, int_8 As Integer)
94 Try
95
96 Dim text As String = Me.object_0(int_7)
97 Dim text2 As String = Me.string_1(int_8)
98 Dim email As String = "Scold" + text + "@gmail.com"
99 Dim text3 As String = String.Concat(New String() {"email=", email, "&password=", Me.pass.Text, "&username=", text, "&first_name= Jarjer"})
100 Dim array As Byte() = Encoding.UTF8.GetBytes(text3)
101 Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/"), HttpWebRequest)
102 httpWebRequest.Method = "POST"
103 httpWebRequest.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.132 Safari/537.36"
104 httpWebRequest.Host = "www.instagram.com"
105 httpWebRequest.ContentType = "application/x-www-form-urlencoded"
106 httpWebRequest.Referer = "https://www.instagram.com/"
107 httpWebRequest.ContentLength = CLng(array.Length)
108 httpWebRequest.KeepAlive = True
109 httpWebRequest.Proxy = New WebProxy(text2)
110 httpWebRequest.Timeout = 100000
111 httpWebRequest.Headers.Add("Cookie", "mid=" + Me.mid + "; csrftoken=missing")
112 httpWebRequest.Headers.Add("X-CSRFToken", "missing")
113 httpWebRequest.Headers.Add("X-Requested-With", "XMLHttpRequest")
114 Dim requestStream As Stream = httpWebRequest.GetRequestStream()
115 requestStream.Write(array, 0, array.Length)
116 Dim text4 As String = New StreamReader(httpWebRequest.GetResponse().GetResponseStream()).ReadToEnd()
117 If text4.Contains("IP") Then
118 Me.TextBox3.AppendText(text + vbCrLf)
119 My.Computer.FileSystem.WriteAllText(text + " info.txt", String.Concat(New String() {"< Jr >" & vbCrLf & "Email : Scold3322", text, "@gmail.com" & vbCrLf & "User : ", text, vbCrLf & "Pass : ", Me.pass.Text, vbCrLf & vbCrLf & "Banned"}), False)
120 Me.SurrogateEncoder()
121 ElseIf text4.Contains("challenge") Then
122 Me.TextBox3.AppendText(text + vbCrLf)
123 My.Computer.FileSystem.WriteAllText(text + " info.txt", String.Concat(New String() {"< Jr >" & vbCrLf & "Email : Scold3322", text, "@gmail.com" & vbCrLf & "User : ", text, vbCrLf & "Pass : ", Me.pass.Text, vbCrLf & vbCrLf & "Need Number"}), False)
124 Me.SurrogateEncoder()
125 ElseIf text4.Contains("""account_created"": true") Then
126 Me.TextBox3.AppendText(text + vbCrLf)
127 My.Computer.FileSystem.WriteAllText(text + " info.txt", String.Concat(New String() {"< Jr >" & vbCrLf & "Email : Scold3322", text, "@gmail.com" & vbCrLf & "User : ", text, vbCrLf & "Pass : ", Me.pass.Text, vbCrLf & vbCrLf & "Not Banned"}), False)
128 Me.SurrogateEncoder()
129 Else
130 Dim ptr As Integer = Me.int_3
131 Me.int_3 = ptr + 1
132 If Me.bool_3 Then
133 Me.TextBox1.Text = Me.int_3.ToString()
134 End If
135 End If
136 Catch ex As Exception
137 Dim ptr As Integer = Me.int_4
138 Me.int_4 = ptr + 1
139 If Me.bool_3 Then
140 Me.Label29.Text = Me.int_4.ToString()
141 Me.SurrogateEncoder()
142 End If
143 End Try
144 End Sub
145
146 Private Sub checkerButton_Click_1(sender As Object, e As EventArgs) Handles checkerButton.Click
147 Dim thread As Thread = New Thread(AddressOf Me.Started)
148 thread.Start()
149 Me.SurrogateEncoder()
150 End Sub
151
152 Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click
153 End
154 End Sub
155
156 Private Sub Label5_MouseDown(sender As Object, e As MouseEventArgs) Handles Label5.MouseDown
157 Dim flag As Boolean = e.Button = MouseButtons.Left
158 If flag Then
159 ' The following expression was wrapped in a checked-expression
160 Me.Point0 = New Point(0 - e.X, 0 - e.Y)
161 Me.Boolean0 = True
162 End If
163 End Sub
164
165 Private Sub Label5_MouseMove(sender As Object, e As MouseEventArgs) Handles Label5.MouseMove
166 Dim [boolean] As Boolean = Me.Boolean0
167 If [boolean] Then
168 Dim mousePosition As Point = Control.MousePosition
169 mousePosition.Offset(Me.Point0.X, Me.Point0.Y)
170 Me.Location = mousePosition
171 End If
172 End Sub
173
174 Private Sub Label5_MouseUp(sender As Object, e As MouseEventArgs) Handles Label5.MouseUp
175 Dim flag As Boolean = e.Button = MouseButtons.Left
176 If flag Then
177 Me.Boolean0 = False
178 End If
179 End Sub
180
181 Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
182 If CheckBox2.Checked Then
183 Me.pass.UseSystemPasswordChar = False
184 Else
185 Me.pass.UseSystemPasswordChar = True
186 End If
187 End Sub
188
189 Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
190 If CheckBox3.Checked = True Then
191 Me.bool_3 = True
192 Else
193 Me.TextBox1.Text = "#"
194 Me.Label25.Text = "#"
195 Me.Label29.Text = "#"
196 Me.bool_3 = False
197 End If
198 End Sub
199
200 Private Sub Label17_Click(sender As Object, e As EventArgs) Handles Label17.Click
201
202 End Sub
203
204 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
205
206 End Sub
207
208 Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs)
209
210 End Sub
211
212 Private Sub Label25_Click(sender As Object, e As EventArgs) Handles Label25.Click
213 Label25.Text = TextBox3.Lines.Count.ToString
214 End Sub
215End Class