un3LFkRk

1    Public Sub register(i As Integer)
2        Try
3            Dim random1 As Random = New Random()
4            Dim text As String = list(i)
5            Dim password As String = UserPass.Text + ABC(4)
6            Dim email As String = "y.fx." + ABC(6) + "@gmail.com"
7            Dim random As Random = New Random()
8            Dim address As String = proxies(random.[Next](0, proxies.Length - 1))
9            ServicePointManager.DefaultConnectionLimit = 300
10            ServicePointManager.UseNagleAlgorithm = False
11            ServicePointManager.Expect100Continue = False
12            Dim Spilt2 = randomtimeout.Text.Split(":")
13            Dim z8 As New Random
14            Dim z8en As Integer = z8.Next(1000, 10000)
15            Dim xrandomtimeout As String = Spilt2(1)
16            ServicePointManager.CheckCertificateRevocationList = False
17            Dim s As String = String.Concat(New String() {"email=", email, "&password=", password, "&username=", text, "&first_name=@y.fx The KinG !"})
18            Dim bytes As Byte() = Encoding.UTF8.GetBytes(s)
19            Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/"), HttpWebRequest)
20            httpWebRequest.Method = "POST"
21            httpWebRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:61.0) Gecko/20100101 Firefox/61.0"
22            httpWebRequest.Headers.Add("Accept-Language", "ar,en-US;q=0.7,en;q=0.3")
23            httpWebRequest.ContentType = "application/x-www-form-urlencoded"
24            httpWebRequest.Headers.Add("X-CSRFToken", "missing")
25            httpWebRequest.Headers.Add("Cookie", "mid=" + Me.mid + "; csrftoken=missing")
26            httpWebRequest.Proxy = New WebProxy(address)
27            If xrandomtimeout.Contains("yes") Then
28                httpWebRequest.Timeout = z8en
29                randomtimeoutcounts.Text = z8en
30            End If
31            httpWebRequest.ContentLength = CLng(bytes.Length)
32            Dim requestStream As Stream = httpWebRequest.GetRequestStream()
33            requestStream.Write(bytes, 0, bytes.Length)
34            requestStream.Flush()
35            requestStream.Close()
36            Dim text2 As String = New StreamReader(httpWebRequest.GetResponse().GetResponseStream()).ReadToEnd()
37            If text2.Contains("IP") Then
38                TextBox2.Text = "Banned"
39                TextBox2.ForeColor = Color.Red
40                My.Computer.FileSystem.WriteAllText(text + " info.txt", String.Concat(New String() {"<  [  @y.fx Registry Checker v0.2 ]  >" & vbCrLf & "Email : ", email & vbCrLf & "User : ", text, vbCrLf & "Pass : ", password, vbCrLf & vbCrLf & "---- Banned ----"}), False)
41                TextBox3.AppendText(text + vbCrLf)
42                Get_ID("6uto")
43                Me.login("user", "pass")
44                msg = "[ @y.fx Registry Checker v0.2 ]" & vbCrLf & "[ Username: @" + text + " ]" + vbCrLf & "[ Attempts: " + TextBox1.Text + " ]" + vbCrLf & "[ Status: Banned ]"
45                send(userID, msg)
46                MsgBox("Done: @" + text + vbCrLf + "Banned", MsgBoxStyle.OkOnly, "[ @y.fx Registry Checker v0.2 ]")
47                SurrogateEncoder()
48            ElseIf text2.Contains("challenge") Then
49                TextBox2.Text = "Need Number"
50                TextBox2.ForeColor = Color.Yellow
51                TextBox3.AppendText(text + vbCrLf)
52                My.Computer.FileSystem.WriteAllText(text + " info.txt", String.Concat(New String() {"<  [  @y.fx Registry Checker v0.2 ]  >" & vbCrLf & "Email : ", email & vbCrLf & "User : ", text, vbCrLf & "Pass : ", password, vbCrLf & vbCrLf & "---- Need Number ----"}), False)
53                Get_ID("6uto")
54                Me.login("user", "pass")
55                msg = "[ @y.fx Registry Checker v0.2 ]" & vbCrLf & "[ Username: @" + text + " ]" + vbCrLf & "[ Attempts: " + TextBox1.Text + " ]" + vbCrLf & "[ Status: Need Number ]"
56                send(userID, msg)
57                MsgBox("Done: @" + text + vbCrLf + "Need Number", MsgBoxStyle.OkOnly, "[ @y.fx Registry Checker v0.2 ]")
58                SurrogateEncoder()
59            ElseIf text2.Contains("""account_created"": true") Then
60                TextBox2.Text = "Not Banned"
61                TextBox2.ForeColor = Color.Lime
62                TextBox3.AppendText(text + vbCrLf)
63                My.Computer.FileSystem.WriteAllText(text + " info.txt", String.Concat(New String() {"<  [  @y.fx Registry Checker v0.2 ]  >" & vbCrLf & "Email : ", email & vbCrLf & "User : ", text, vbCrLf & "Pass : ", password, vbCrLf & vbCrLf & "---- Not Banned ----"}), False)
64                Get_ID("6uto")
65                Me.login("user", "pass")
66                msg = "[ @y.fx Registry Checker v0.2 ]" & vbCrLf & "[ Username: @" + text + " ]" + vbCrLf & "[ Attempts: " + TextBox1.Text + " ]" + vbCrLf & "[ Status: Not Banned ]"
67                send(userID, msg)
68                MsgBox("Done: @" + text + vbCrLf + "Not Banned", MsgBoxStyle.OkOnly, "[ @y.fx Registry Checker v0.2 ]")
69                SurrogateEncoder()
70            End If
71                    If Not Me.off Then
72            attempts2 += 1
73            If CheckBox2.Checked Then
74                TextBox1.Text = "Hidden"
75            Else
76                TextBox1.Text = attempts2
77            End If
78        End If
79        Catch ex As Exception
80        End Try
81    End Sub