· 5 years ago · Mar 10, 2020, 11:08 PM
1Imports System
2Imports System.IO
3Imports System.Net
4Imports System.Text
5Imports System.Threading
6Imports Microsoft.VisualBasic
7Imports Microsoft.VisualBasic.CompilerServices
8Module Module1
9 Sub New()
10 Module1.HTTP()
11 Module1.us = File.ReadAllLines("list.txt")
12 Module1.proxy = File.ReadAllLines("proxy.txt")
13 End Sub
14
15 ' Token: 0x06000012 RID: 18 RVA: 0x00002298 File Offset: 0x00000698
16 <STAThread()>
17 Public Sub Main()
18 Console.Title = "NWA - REGISTERY"
19 Console.SetWindowSize(40, 10)
20 Console.SetBufferSize(40, 10)
21 Console.ForegroundColor = ConsoleColor.Green
22 Console.WriteLine("Use proxies ? yes or no")
23 While True
24 Dim left As String = Console.ReadLine()
25 If Operators.CompareString(left, "auto", False) = 0 Then
26 Exit While
27 End If
28 If Operators.CompareString(left, "yes", False) = 0 Then
29 GoTo Block_2
30 End If
31 Console.ForegroundColor = ConsoleColor.Green
32 Console.WriteLine("please type yes .. NO proxies is not ready yet")
33 Console.ForegroundColor = ConsoleColor.Green
34 End While
35 Dim text As String = Module1.res()
36 My.Computer.FileSystem.WriteAllText("proxy.txt", text, False)
37 Interaction.MsgBox("Proxies uploaded", MsgBoxStyle.OkOnly, Nothing)
38 Module1.proxy = File.ReadAllLines("proxy.txt")
39 Console.Clear()
40 GoTo IL_BE
41Block_2:
42 Console.Clear()
43IL_BE:
44 Console.Write("Password : ")
45 Module1.passwordtext = Console.ReadLine()
46 Console.Write("Threads : ")
47 Module1.threadinteger = Conversions.ToInteger(Console.ReadLine())
48 Console.WriteLine("Write nwa to start ;)")
49 While True
50 Dim left2 As String = Console.ReadLine()
51 If Operators.CompareString(left2, "nwa", False) = 0 Then
52 Exit While
53 End If
54 Console.ForegroundColor = ConsoleColor.Green
55 Console.WriteLine("Write nwa to start ;)")
56 Console.ForegroundColor = ConsoleColor.Green
57 End While
58 Module1.stopped = False
59 Module1.bad = 0
60 Dim thread As Thread = New Thread(AddressOf Module1.started)
61 thread.Start()
62 Console.Clear()
63 Console.ForegroundColor = ConsoleColor.Green
64 Console.WriteLine("Started...")
65 Console.ForegroundColor = ConsoleColor.Green
66 While True
67 Dim left3 As String = Console.ReadLine()
68 If Operators.CompareString(left3, "clear", False) = 0 Then
69 Console.Clear()
70 Console.ForegroundColor = ConsoleColor.Green
71 Console.WriteLine("Started...")
72 Console.ForegroundColor = ConsoleColor.Green
73 End If
74 End While
75 End Sub
76
77 ' Token: 0x06000013 RID: 19 RVA: 0x00002444 File Offset: 0x00000844
78 Public Function res() As String
79 Dim result As String
80 Try
81 Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://proxyscrape.com/proxies/HTTP_Working_Proxies.txt"), HttpWebRequest)
82 httpWebRequest.Method = "GET"
83 Dim streamReader As StreamReader = New StreamReader(httpWebRequest.GetResponse().GetResponseStream())
84 result = streamReader.ReadToEnd()
85 Catch ex As Exception
86 result = "error"
87 Interaction.MsgBox("error", MsgBoxStyle.OkOnly, Nothing)
88 End Try
89 Return result
90 End Function
91
92 ' Token: 0x06000014 RID: 20 RVA: 0x000024BC File Offset: 0x000008BC
93 Public Sub check(i As Integer)
94 Try
95IL_00:
96 Dim text As String = Module1.us(i)
97 Dim random As Random = New Random()
98 Dim address As String = Module1.proxy(random.[Next](0, Module1.proxy.Length - 1))
99 ServicePointManager.DefaultConnectionLimit = 300
100 ServicePointManager.UseNagleAlgorithm = False
101 ServicePointManager.Expect100Continue = False
102 ServicePointManager.CheckCertificateRevocationList = False
103 Dim s As String = String.Concat(New String() {"email=sdfjbhsyfbhj33333333333333333333333333333333333333333333333333333333", text, "%40gmail.com&password=", Module1.passwordtext, "&username=", text, "&first_name=NWAfeaf3a&seamless_login_enabled=1&tos_version=row&opt_into_one_tap=false"})
104 Dim bytes As Byte() = Encoding.UTF8.GetBytes(s)
105 Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/"), HttpWebRequest)
106 httpWebRequest.Method = "POST"
107 httpWebRequest.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:73.0) Gecko/20100101 Firefox/73.0"
108 httpWebRequest.Headers.Add("Accept-Language", "ar,en-US;q=0.7,en;q=0.3")
109 httpWebRequest.ContentType = "application/x-www-form-urlencoded"
110 httpWebRequest.Headers.Add("X-CSRFToken", "JvNnhsZBksgs18mpkKeaEhQgpi1Teh5P")
111 httpWebRequest.Headers.Add("Cookie", "mid=" + "XmMBjwALAAEnNjsItzKwpztrvdFA" + "; csrftoken=JvNnhsZBksgs18mpkKeaEhQgpi1Teh5P")
112 httpWebRequest.Proxy = New WebProxy(address)
113 httpWebRequest.Timeout = 5000
114 httpWebRequest.ContentLength = CLng(bytes.Length)
115 Dim requestStream As Stream = httpWebRequest.GetRequestStream()
116 requestStream.Write(bytes, 0, bytes.Length)
117 requestStream.Flush()
118 requestStream.Close()
119 Dim text2 As String = New StreamReader(httpWebRequest.GetResponse().GetResponseStream()).ReadToEnd()
120 If text2.Contains("""account_created"": true") Then
121 Console.ForegroundColor = ConsoleColor.Green
122 Console.WriteLine("@" + text + " Claimed by NWA")
123 Console.ForegroundColor = ConsoleColor.White
124 My.Computer.FileSystem.WriteAllText(text + ".txt", String.Concat(New String() {"Email : sdfjbhsyfbhj33333333333333333333333333333333333333333333333333333333", text, "@gmail.com" & vbCrLf & "Username : ", text, vbCrLf & "Password : ", Module1.passwordtext}), False)
125 ElseIf text2.Contains("IP") Then
126 Console.ForegroundColor = ConsoleColor.Green
127 Console.WriteLine("username @" + text + " Claimed by NWA")
128 Console.ForegroundColor = ConsoleColor.White
129 My.Computer.FileSystem.WriteAllText(text + ".txt", String.Concat(New String() {"Email : sdfjbhsyfbhj33333333333333333333333333333333333333333333333333333333", text, "@gmail.com" & vbCrLf & "Username : ", text, vbCrLf & "Password : ", Module1.passwordtext, vbCrLf & vbCrLf & "Banned"}), False)
130 End If
131 Module1.conu(i)
132 Catch ex As Exception
133 GoTo IL_00
134 End Try
135 End Sub
136
137 ' Token: 0x06000015 RID: 21 RVA: 0x000027AC File Offset: 0x00000BAC
138 Public Function HTTP() As String
139 ' The following expression was wrapped in a checked-statement
140 Dim result As String
141 Try
142 Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://www.instagram.com/"), HttpWebRequest)
143 httpWebRequest.CookieContainer = New CookieContainer()
144 httpWebRequest.Credentials = CredentialCache.DefaultCredentials
145 Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
146 Dim responseStream As Stream = httpWebResponse.GetResponseStream()
147 Dim streamReader As StreamReader = New StreamReader(responseStream)
148 Dim text As String = streamReader.ReadToEnd()
149 streamReader.Close()
150 httpWebResponse.Close()
151 Dim num As Integer = httpWebResponse.Cookies.Count - 1
152 Dim num2 As Integer = 0
153 Dim num3 As Integer = num
154 For i As Integer = num2 To num3
155 Dim flag As Boolean = Operators.CompareString(httpWebResponse.Cookies(i).Name, "mid", False) = 0
156 If flag Then
157 Module1.mid = httpWebResponse.Cookies(i).Value
158 End If
159 Next
160 result = text
161 Catch ex As WebException
162 result = ex.Message
163 End Try
164 Return result
165 End Function
166
167 ' Token: 0x06000016 RID: 22 RVA: 0x000028A0 File Offset: 0x00000CA0
168 Public Sub conu(i As Integer)
169 If Module1.stopped Then
170 Return
171 End If
172 Module1.bad += 1
173 Console.Title = "NWA - " + Module1.bad.ToString()
174 End Sub
175
176 ' Token: 0x06000017 RID: 23 RVA: 0x000028D0 File Offset: 0x00000CD0
177 Public Sub started()
178 ' The following expression was wrapped in a checked-statement
179 Try
180 Dim num As Integer = 0
181 While Not Module1.stopped
182 Dim thread As Thread = New Thread(Sub(a0 As Object)
183 Module1.work(Conversions.ToInteger(a0))
184 End Sub)
185 thread.Start()
186 thread.Sleep(1)
187 num += 1
188 If num > Module1.threadinteger Then
189 If Module1.stopped Then
190 Exit While
191 End If
192 Exit While
193 End If
194 End While
195 Catch ex As Exception
196 End Try
197 End Sub
198
199 ' Token: 0x06000018 RID: 24 RVA: 0x0000293C File Offset: 0x00000D3C
200 Public Sub work(i As Integer)
201 ' The following expression was wrapped in a checked-statement
202 While Not Module1.stopped
203 Try
204 If Module1.stopped Then
205 Exit Try
206 End If
207 Module1.inte += 1
208 Module1.check(Module1.inte)
209 If Module1.inte > Module1.us.Length Then
210 Module1.inte = 0
211 End If
212 Thread.Sleep(0)
213 Catch ex As Exception
214 End Try
215 End While
216 End Sub
217
218 ' Token: 0x04000006 RID: 6
219 Public us As String()
220
221 ' Token: 0x04000007 RID: 7
222 Public proxy As String()
223
224 ' Token: 0x04000008 RID: 8
225 Public bad As Integer
226
227 ' Token: 0x04000009 RID: 9
228 Public inte As Integer
229
230 ' Token: 0x0400000A RID: 10
231 Public stopped As Boolean
232
233 ' Token: 0x0400000B RID: 11
234 Public passwordtext As String
235
236 ' Token: 0x0400000C RID: 12
237 Public threadinteger As Integer
238
239 ' Token: 0x0400000D RID: 13
240 Public mid As String
241End Module