Introduction: How to Make a Trojan
How to make a trojan horse is for beginners, is really easy. I'm brazilian and have 13 years old, if a have problems with vocabulary... i'm sorry!
This is my first instructables, after i will go make a video, is very simple you can make in 10 minutes, in the first time you can make with 20 minutes is too easy. With this instructables you can joke your friends but this program works with virus but not a keylogger , only cd prank. How to make a Trojan is only for study not for malicious software. Let's go.
Step 1: You Need...
For make the trojan horse you need Borland Delphi 7 you can donwload trial version and complete version ( but you need to pay ) , under you have Borland web site link.
For donwload in this page you need a account
To Join - CLICK HERE!
After you Join you can go to donwload page clicking here
YOU ONLY NEED BORLAND DELPHI 7
This is Borland Web Site
Step 2: How To... Client
First we start with Client.
Heyyyy SEE THE PHOTOS UNDER!
2- Go to menu Component on Menu Tab
You can see the picture in the finish of the page.
- Install Package
- Go to folder bin
- and open the file dclsockets70.bpl
3- Go to internet tab
And Select ClientSocket and make on the form. Click on ClientSocket picture
In Object Inspector at Properties tab click on Port form and write 80
4- Now is easy, go to Events tab.
Click 2 times on "OnConnect" form
You need write
Now click on "OnConnecting"
Now click on "OnDisconnect" and write:
Now click on "OnError" and write:
label1.caption:='Fatal Error!! Oh my god!';
5- In the Connect button do 2 clicks.
Now look on Object Inspector and click on Propeties tab.
In Caption write: Connect
This makes the button in the program if to call to connect , make this with anothers buttons.
6- In the Open CD button write:
7- In the Close CD button write:
8- Now , all is ok! Go to file, save all and select one folder.
After go to play ( play button ) in the Delphi to compile.
And let's go to make the Server
Step 3: How To... Server!
9- Go to File>Close ALL
Go to File>New
And you have a new form.
10- Go in Internet Tab and click in Server Socket
11- Put the port 80 and go to tab Events in Object
12- In OnClientRead click 2 times.
if Socket.ReceiveText='opencd' then begin
MciSendString('Set CdAudio Door Open',nil,0,Handle);
if Socket.ReceiveText='closecd' then begin
MciSendString('Set CdAudio Door Closed',nil,0,Handle);
The Error??? Yes, go in uses and put MMSystem
14- Now go File>Save as
And save in one folder, now click in the play button for
15- And now test!
We have a be nice policy.
Please be positive and constructive.