Unclaimed Account Generator | Discord Account Generator [CODE]

[Devil 162]

Code:

 

Imports Newtonsoft.Json
Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Http
Imports System.Runtime.CompilerServices
Imports System.Text
Imports System.Threading.Tasks

Namespace Unclaimed
   Friend Class Program
       Public Class PostUnclaimed
           Public Property username() As String

           Public Property invite() As String

           Public Property consent() As Boolean

           Public Property captcha_key() As String
       End Class

       Public Class RegisterResp
           Public Property token() As String
       End Class

       
       
       Private Class c
           Public Shared As Program.<>c = New Program.<>c()

Public Shared __4_0 As Action(Of Integer)

           Friend Sub Mainb__4_0(p As Integer)
               Program.CreateAcc()
           End Sub
       End Class

       Private Shared Threads As Integer = 1

       Private Shared Invite As String = Nothing

       Private Shared Name As String = Nothing

       Private Shared Created As Integer = 0

       Private Shared Attempt As Integer = 0

       Private Shared Sub Main(args As String())
           Dim webClient As WebClient = New WebClient()
           File.WriteAllText("Proxies.txt", webClient.DownloadString("https://proxyscrape.com/proxies/HTTP_Working_Proxies.txt"))
           File.Create("Tokens.txt").Close()
           webClient.Dispose()
           Console.WriteLine("Enter an username.")
           Program.Name = Console.ReadLine()
           Console.WriteLine("Enter an invite.")
           Program.Invite = Console.ReadLine()
           Console.WriteLine("Enter an thread amount")
           Program.Threads = Integer.Parse(Console.ReadLine())
           Console.Clear()
           Dim arg_AB_0 As Integer = 0
           Dim arg_AB_1 As Integer = 2147483647
           Dim expr_81 As ParallelOptions = New ParallelOptions()
           expr_81.MaxDegreeOfParallelism = Program.Threads
           Dim expr_91 As Action(Of Integer) = Program.<> c.<> 9__4_0
           Dim arg_AB_3 As Action(Of Integer) = expr_91
           If expr_91 Is Nothing Then
               Dim expr_A5 As Action(Of Integer) = AddressOf Program.c. 9.b__4_0
arg_AB_3 = expr_A5
               Program.c.<>9__4_0 = expr_A5
           End If
           Parallel.[For](arg_AB_0, arg_AB_1, expr_81, arg_AB_3)
       End Sub

       Private Shared Async Sub CreateAcc()
           Try
               Dim arg_26_0 As Random = New Random()
               Dim array As String() = File.ReadAllLines("Proxies.txt")
               Dim num As Integer = arg_26_0.[Next](0, array.Length - 1)
               Dim text As String = array(num)
               Program.Attempt += 1
               Console.Title = String.Format("Attempts: {0} || Created: {1} ||  Creating using: {2}", Program.Attempt.ToString(), Program.Created.ToString(), text)
               Dim proxy As WebProxy = New WebProxy(text, False) With {.UseDefaultCredentials = True}
               Dim httpClient As HttpClient = Nothing
               Dim handler As HttpClientHandler = New HttpClientHandler() With {.Proxy = proxy, .PreAuthenticate = True, .UseDefaultCredentials = True}
               httpClient = New HttpClient(handler)
               Dim httpResponseMessage As HttpResponseMessage = Await httpClient.PostAsync("https://discordapp.com/api/auth/register", New StringContent(JsonConvert.SerializeObject(New Program.PostUnclaimed() With {.username = Program.Name, .invite = Program.Invite, .consent = True, .captcha_key = Nothing}), Encoding.UTF8, "application/json"))
               If httpResponseMessage.StatusCode = HttpStatusCode.OK Then
                   File.AppendAllText("Tokens.txt", JsonConvert.DeserializeObject(Of Program.RegisterResp)(httpResponseMessage.Content.ReadAsStringAsync().Result).token + Environment.NewLine)
                   Program.Created += 1
                   Console.Title = String.Format("Attempts: {0} || Created: {1}", Program.Attempt.ToString(), Program.Created.ToString())
               End If
               httpClient.Dispose()
               httpClient = Nothing
           Catch ex_1CC As Object
           End Try
       End Sub
   End Class
End Namespace

Cleaned a little bit

Enjoy, posted here to stop leechers  :kek:

 

Please like yeah init