LmvMTXSc

1Imports System.Net.Mail
2Imports System.IO, System.Net, System.Text, System.Threading, System.Security.Cryptography, Microsoft.VisualBasic.CompilerServices
3Public Class REG
4    Dim List, Proxies As String()
5    Dim Api, Uuid As String
6    Dim SwitchApi, ListLine, RequestsAttempts, ErrorsAttempts As Integer
7    Dim ClaimerStop As Boolean
8    Dim Point As New Point
9    Private Sub REG_Load(sender As Object, e As EventArgs) Handles MyBase.Load
10        Try
11            List = File.ReadAllLines("proxies.txt") : Proxies = File.ReadAllLines("proxies.txt")
12        Catch Ex As Exception : If Ex.Message.Contains("proxies.txt") Then
13                MsgBox("cannot find proxies.txt", MsgBoxStyle.Exclamation, "LT MAKER") : Me.Close()
14            ElseIf Ex.Message.Contains("proxies.txt") Then
15                MsgBox("cannot find proxies.txt", MsgBoxStyle.Exclamation, "LT MAKER") : Me.Close()
16            End If : End Try
17        Me.Width = 144
18        Me.Height = 131
19        Api = "https://i.instagram.com/api/v1/accounts/create_business/"
20        Uuid = Guid.NewGuid.ToString
21        Control.CheckForIllegalCrossThreadCalls = False : ServicePointManager.UseNagleAlgorithm = False : ServicePointManager.Expect100Continue = False : ServicePointManager.CheckCertificateRevocationList = False : ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
22        Dim UpdateCounterThread As New Thread(AddressOf UpdateCounter) : UpdateCounterThread.Start() : UpdateCounterThread.Priority = ThreadPriority.Lowest : End Sub
23    Sub Status(Username As String, PasswordAndEmail As String)
24        If ClaimerTargetCheckBox.Checked Then
25            ClaimerStop = True
26        End If
27        ClaimerAvailableAndTarget.Text = "@" + Username
28        MsgBox(" Registered : @" + Username + "" + vbNewLine + " Password : " + TextBox1.Text + vbCrLf + " Email : " + PasswordAndEmail + "@gmail.com", MsgBoxStyle.OkOnly, "LT MAKER")
29    End Sub
30
31    Function RandomLetterAndNumber(MaxSize As Integer) As String
32        Try
33            Dim LettersAndNumbers As Char() = New Char(61) {}
34            LettersAndNumbers = "abcdefghijklmnopqrstuvwxyz123456789".ToCharArray()
35            Dim Bytes As Byte() = New Byte(MaxSize - 1 + 1 - 1) {}
36            Dim RJ_1 As RNGCryptoServiceProvider = New RNGCryptoServiceProvider()
37            RJ_1.GetNonZeroBytes(Bytes)
38            Dim RandomLettersAndNumbers As StringBuilder = New StringBuilder(MaxSize)
39            For RJ_2 As Integer = 0 To Bytes.Length - 1
40                RandomLettersAndNumbers.Append(LettersAndNumbers(CInt(Bytes(RJ_2)) Mod LettersAndNumbers.Length))
41            Next : Return RandomLettersAndNumbers.ToString
42        Catch Ex As Exception
43            RandomLetterAndNumber(MaxSize)
44        End Try : Return False : End Function
45    Function RandomLetterAndNumber1(MaxSize As Integer) As String
46        Try
47            Dim LettersAndNumbers1 As Char() = New Char(61) {}
48            LettersAndNumbers1 = "abcdDefghijklmnopL!qrstuvwxyz123456789".ToCharArray()
49            Dim Bytes As Byte() = New Byte(MaxSize - 1 + 1 - 1) {}
50            Dim RJ_1 As RNGCryptoServiceProvider = New RNGCryptoServiceProvider()
51            RJ_1.GetNonZeroBytes(Bytes)
52            Dim RandomLettersAndNumbers1 As StringBuilder = New StringBuilder(MaxSize)
53            For RJ_2 As Integer = 0 To Bytes.Length - 1
54                RandomLettersAndNumbers1.Append(LettersAndNumbers1(CInt(Bytes(RJ_2)) Mod LettersAndNumbers1.Length))
55            Next : Return RandomLettersAndNumbers1.ToString
56        Catch Ex As Exception
57            RandomLetterAndNumber1(MaxSize)
58        End Try : Return False : End Function
59    Private Sub ClaimerTargetCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ClaimerTargetCheckBox.CheckedChanged
60        If ClaimerTargetCheckBox.Checked Then
61            ClaimerAvailableAndTarget.ReadOnly = False
62            ClaimerAvailableAndTarget.Text = ""
63        Else
64            ClaimerAvailableAndTarget.ReadOnly = True
65            ClaimerAvailableAndTarget.Text = ""
66        End If
67    End Sub
68
69
70
71    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
72        Dim RandomLettersAndNumbers As String = RandomLetterAndNumber(8)
73        Dim RandomLettersAndNumbers1 As String = RandomLetterAndNumber1(7)
74        If CheckBox3.Checked = True Then
75            ClaimerAvailableAndTarget.Text = RandomLettersAndNumbers
76            TextBox1.Text = RandomLettersAndNumbers1
77        Else
78            ClaimerAvailableAndTarget.Text = "Username"
79            TextBox1.Text = "Password"
80        End If
81    End Sub
82
83    Private Sub ClaimerHideCounterCheckBox_CheckedChanged(sender As Object, e As EventArgs)
84
85    End Sub
86
87    Sub UpdateCounter()
88        While True
89            If Not ClaimerHideCounterCheckBox.Checked Then ClaimerRequestsCounter.Text = RequestsAttempts.ToString : ClaimerErrorsCounter.Text = ErrorsAttempts.ToString
90            Thread.Sleep(250)
91        End While : End Sub
92    Sub ListScanSystem()
93        While Not ClaimerStop : Try
94                If ListLine >= List.Count Then
95                    ListLine = 0
96                End If
97                ListLine += 1
98                Dim Username As String = List(ListLine)
99                ApiCreateAccount(Username)
100            Catch Ex As Exception : End Try : End While : End Sub
101
102    Sub TargetScanSystem()
103        While Not ClaimerStop
104            Dim Username As String = ClaimerAvailableAndTarget.Text
105            ApiCreateAccount(Username)
106        End While : End Sub
107
108    Sub ApiCreateAccount(Username As String)
109        Try
110            Dim RandomLettersAndNumbers As String = RandomLetterAndNumber(15)
111            Dim Params As Byte() = Encoding.UTF8.GetBytes(String.Concat(New String() {"phone_id=", Uuid, "&device_id=", Uuid, "&_csrftoken=", "W5vorF3sik4QchrOf7esqGfcruojtABD", "&email=", RandomLettersAndNumbers + "@gmail.com", "&password=", TextBox1.Text, "&username=", Username, "&first_name=@30_X MAKER"}))
112            Dim HttpWebRequest As HttpWebRequest = CType(WebRequest.Create(Api), HttpWebRequest) : With HttpWebRequest
113                .Method = "POST"
114                .UserAgent = "Instagram 9.4.0 Android (18/4.3; 320dpi; 720x1280; Xiaomi; HM 1SW; armani; qcom; en_US)"
115                .Headers.Add("Cookie", "ds_user_id=" + RandomLettersAndNumbers)
116                .ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
117                .Proxy = New WebProxy(Proxies(New Random().[Next](0, Proxies.Length - 1)))
118                .ContentLength = CLng(Params.Length)
119                Dim RequestStream As Stream = .GetRequestStream()
120                RequestStream.Write(Params, 0, Params.Length)
121                RequestStream.Close()
122                Dim HttpWebResponse As HttpWebResponse
123                Try
124                    HttpWebResponse = CType(.GetResponse(), HttpWebResponse)
125                Catch Ex_1 As WebException
126                    HttpWebResponse = CType(Ex_1.Response, HttpWebResponse)
127                End Try
128                Dim Response As String = New StreamReader(HttpWebResponse.GetResponseStream()).ReadToEnd()
129                If SwitchApi = Proxies.Count Then
130                    SwitchApi = 0
131                    If Api = "https://i.instagram.com/api/v1/accounts/create_business/" Then
132                        Api = "https://i.instagram.com/api/v1/accounts/create/"
133                    Else
134                        Api = "https://i.instagram.com/api/v1/accounts/create_business/"
135                    End If
136                End If
137                If Response.Contains("taken") Or Response.Contains("held") Then
138                    RequestsAttempts += 1
139                    MsgBox("Username is taken")
140                    SwitchApi += 1
141                    Exit Try : ElseIf Response.Contains("wait") Then
142                    ErrorsAttempts += 1
143                    Exit Try : ElseIf Response.Contains("spam") Then
144                    ApiCreateAccount(Username)
145                    Exit Try : ElseIf Response.Contains("checkpoint_required") Or Response.Contains("""account_created"": true") Then
146                    Status(Username, RandomLettersAndNumbers)
147                    Exit Try : End If : HttpWebResponse.Close() : End With : Catch Ex_2 As WebException : Exit Try : End Try : End Sub
148    Private Sub ClaimerButton_Click(R As Object, J As EventArgs) Handles ClaimerButton.Click
149        If ClaimerButton.Text = "Create" Then
150            ClaimerStop = False : ClaimerThreads.Hide() : ClaimerButton.Text = "Creating.."
151            For Threads As Integer = 0 To Conversions.ToInteger(25)
152                If ClaimerTargetCheckBox.Checked Then
153                    Dim TargetScanSystemThread As New Thread(New ParameterizedThreadStart(AddressOf TargetScanSystem)) : TargetScanSystemThread.Start() : TargetScanSystemThread.Priority = ThreadPriority.Highest
154                Else
155                    Dim ListScanSystemThread As New Thread(New ParameterizedThreadStart(AddressOf ListScanSystem)) : ListScanSystemThread.Start() : ListScanSystemThread.Priority = ThreadPriority.Highest
156                End If : Next : ElseIf ClaimerButton.Text = "Creating.." Then
157            ClaimerStop = True : ClaimerThreads.Show() : ClaimerButton.Text = "Create"
158        End If : End Sub
159End Class