книги хакеры / Защита_от_взлома_сокеты,_эксплойты,_shell_код_Фостер_Дж_

В предыдущем примере на печать выведена строка «gabe», а не «marshall», поскольку нумерация элементов в массиве начинается с [0][0], а не с [1][1].

Хэши, или ассоциативные массивы позволяют хранить данные в массиве, индексированном строкой, а не числом. В массиве, инициализированном, как это показано в примере 1.26, хранятся строки и соответствующие им числовые данные.

Пример 1.26. Хэши

@jobs = ("Coder", 21, "Programmer", 24, "Developer", 27);

Искать элемент в таком массиве можно, указывая вместо числового индекса строку. В примере 1.27 первая строка возвращает значение 27, вторая – 24, а третья – 21.

Пример 1.27. Задание строки для извлечения данных из ассоциативного массива

$jobs{"Developer"}; $jobs{"Programmer"}; $jobs{"Coder"};

В Perl есть средства для преобразования списков в хэши и наоборот. Это особенно полезно, когда надо извлечь сразу несколько значений или перебрать все элементы хэша. В следующем фрагменте код в строке 1 преобразует хэш в список, а код в строке 3 выполняет противоположную операцию. В строке 2 мы ссылаемся на третий элемент массива, равный 24, как следует из предыдущего примера.

1 @staticjobs = %jobs;

2 $staticjobs[3];

3 %jobscopy = @staticjobs;

Обратите внимание, что префиксы %, @ è $ обозначают разные типы данных. Крайне важно при обращении к конкретному типу указывать правильный префикс.

Âязыке Perl есть пять категорий операторов: арифметические, присваивания, логические, сравнения и строковые. Операторы применяются для инициализации, сравнения, вычислений и модификации выражений или переменных.

Âтаблице 1.1 перечислены арифметические операторы, имеющиеся в Perl.

Таблица 1.1. Арифметические операторы в Perl

Операторы присваивания применяются для инициализации и манипулирования скалярными переменными, но не массивами. Будучи похожи на арифметические операции, операторы присваивания записывают в имеющийся скаляр новое значение с помощью одного-единственного выражения. Например, если исходное значение скаляра $number равно 5, то в результате вычисления выражения $number += 2; ему будет присвоено значение 7. В таблице 1.2 перечислены все операторы присваивания.

Таблица 1.2. Операторы присваивания в Perl

Выражения, в которых встречаются логические операторы, чаще всего употребляются в начале той или иной управляющей структуры для выяснения того, по какому пути должно продолжиться исполнение программы. Оператор вычисляет значения двух выражений или переменных и возвращает true или false. В таблице 1.3 описаны все три логических оператора.

Таблица 1.3. Логические операторы в Perl

!Возвращает true, если выражение ложно !($cat == $dog)

Во многих программах для проверки и оценки различия между величинами применяются операторы сравнения. Важно понимать, что все операторы сравнения возвращают булевское значение: true или false. В таблице 1.4 пере- числены операторы сравнения для числовых и строковых величин.

Таблица 1.4. Операторы сравнения в Perl

Строковые операторы полезны для модификации и поиска внутри строки. Помимо операторов для поиска, сопоставления с образцом и замены к вашим услугам различные виды регулярных выражений. В таблице 1.5 пере- числены строковое операторы в языке Perl.

Таблица 1.5. Строковые операторы в Perl

Пример Perl3сценария

Пример 1.28 содержит 35 строк кода и служит для генерирования списка IPадресов, получающегося в результате анализа адреса тестируемой подсети. Поскольку Perl-сценарии почти никогда не имеют графического интерфейса, то разбор командной строки оказывается весьма важной задачей. Диапазоны разбирать традиционно трудно, поскольку они содержат несколько компонентов, для выделения которых нужно приложить немало усилий. А если не проявлять должной аккуратности, легко допустить ошибку.

Пример 1.28. Разбора IP*адреса подсети, указанного в командной строке

1 #!/usr/bin/perl

2if(@ARGV<2){print "Usage: $0 <network> <port>\nExample: $0 10.*.*.* 80 or 10.4.*.* 80 or 10.4.3.* 80\n";exit;}

3 else{

9{$ip2=1;$ip3=1;$ip4=1;$x='a';print "Сканирование сети класса A\n";}

10elsif($ip3 eq '*')

11{$ip3=1; $ip4=1; $x='b'; print "Сканирование сети класса B\n";}

12elsif($ip4 eq '*')

13{$ip4=1; $x='c'; print "Сканирование сети класса C\n";}

14

15while($ip2<255 && $x eq 'a')

16{

17while($ip3<255 && ($x eq 'a' || $x eq 'b'))

18{

19while($ip4<255)

20{

21$ipaddr="$ip1.$ip2.$ip3.$ip4";

22print "$ipaddr\n";

23#IP_connect($ipaddr);

24$ip4++;

25}

26$ip4=1;

27$ip3++;

28if($x eq 'c') {$ip3=255; $ip2=255;}

29}

30$ip4=1;

31$ip3=1;

32$ip2++;

33if($x eq 'c' || $x eq 'b') {$ip3=255; $ip2=255;}

34}

35}

Анализ

Строка 1 часто используется в Perl-сценариях на платформе UNIX и Linux для указания того, где искать сам интерпретатор Perl. Почти во всех дистрибутивах для Win32 она не нужна. В строке 2 проверяется, что сценарию передано по меньшей мере два аргумента, а если это не так, то на STDOUT выводится сообщение о порядке запуска.

Âстроках 5 и 6 аргументы, указанные в командной строке, копируются

âпеременные. Отметим, что до начала разбора никакого контроля значений аргументов не производится. Это сделано сознательно, поскольку основная цель данного упражнения – показать, как увеличить IP-адрес.

Âстроке 6 вызывается функция split, которая разбивает переданный IP-адрес

на четыре целых числа, которые можно увеличивать независимо друг от друга.

класс анализируемой сети, определяемый на основе числа звездочек в адресе. Оставшаяся часть программы состоит из вложенных циклов, внутри которых IP-адрес увеличивается, пока не будет исчерпан весь диапазон. В переменной $ip4 хранится последний из четырех октетов IP-адреса. Так, для адреса 10.9.5.123 последним октетом будет 123. $ip4 увеличивается в самом внутреннем цикле; когда будет достигнуто значение 255 (строка 19), происходит переход к следующей итерации объемлющего цикла, начинающегося в строке 17. В этом цикле увеличивается октет $ip3, если анализируемая сеть принадлежа-

ла классу A или B.

Строка 23 закомментарена и приведена лишь для того, чтобы показать, как легко можно было бы использовать сгенерированные IP-адреса. Самый внешний цикл исполняется лишь тогда, когда сеть принадлежит классу A. Обратите внимание, что в нем увеличивается второй, а не первый октет.

Специальные переменные

В языке Perl имеется также набор «специальных переменных». В них хранится динамически обновляемая информация о текущем экземпляре сценария и среде его выполнения. К специальным относятся, в частности, следующие переменные:

$0. Содержит имя исполняемого сценария, это бывает полезно, когда нужно упомянуть имя в сообщении или при разветвлении процесса;

$_. Часто используется при поиске и сопоставлении с образцом для строк, читаемых из стандартного ввода;

$/. Значение этой переменной содержит строку, используемую как разделитель записей во входном потоке. По умолчанию оно равно символу новой строки \n;

@ARGV. Массив ARGV содержит аргументы сценария, заданные в командной строке. Так, $ARGV[0] – это первый аргумент;

@INC. В отличие от описываемого ниже ассоциативного массива %INC, этот список содержит перечень каталогов, в которых ищутся включаемые с помощью функций do è require файлы;

%INC. Ассоциативный массив %INC содержит перечень всех включаемых файлов, которые нужны текущему сценарию для успешной компиляции и выполнения;

%ENV. Как и во многих других языках программирования, хэш %ENV содержит все переменные окружения;

STDIN. Является ссылкой на стандартный входной поток. Обычно это управляемая человеком консоль, и в этом случае признаком конца фай-

ла является нажатие предопределенной комбинации клавиш;

Описанные выше переменные STDxxx дают прекрасный пример инкапсуляции системных зависимостей. Например, в системах UNIX и Linux печать на STDOUT соответствует выводу в стандартную оболочку (shell), а в среде Microsoft Win32 – выводу в окно команд.

Сопоставление с образцом и подстановка

Постоянно и вполне заслуженно превозносимый механизм регулярных выражений в Perl превосходит имеющиеся в других языках аналоги, когда дело доходит до поиска в строках и сопоставления строк с образцом. В Perl встроены две важных функции: match (сопоставление) и subst (подстановка). Обе исключительно просты в использовании. Функция сопоставления принимает два аргумента: строку, в которой производится поиск, и искомый образец. Функция подстановки принимает те же два аргумента, а также строку, которую нужно подставить вместо найденного образца:

match($str, $pattern)

subst($str, $pattern, $substitution)

Помимо двух вышеупомянутых функций есть три вида сокращенной нотации. В приведенном ниже примере в первой строке проверяется, есть ли образец «hacker» в строке, хранящейся в переменной $code. В следующей строке, напротив, проверяется, что переменная $code не соответствует образцу «hacker» (в ней нет такой подстроки). Наконец, в третьей строке вместо подстроки «hacker» подставляется строка «cracker».

$code =~ m/hacker/; $code !~ m/hacker/;

$code =~ s/hacker/cracker/;

Следующее выражение соответствует любой латинской букве в верхнем или нижнем регистре.

/[A-Za-z]/

А это выражение соответствует всем строчным буквам и цифрам:

/[0-9a-z]/

Ниже приведен список модификаторов регулярных выражений в языке Perl:

/e. Сообщает, что правую часть регулярного выражения, например, в конструкции s/// необходимо вычислять во время выполнения, а не компиляции;

/ee. Аналогичен предыдущему с тем отличием, что строка справа от s/// должна быть сначала скомпилирована, а затем выполнена как код;

/g. Указывает, что необходимо найти все вхождения образца, а не останавливаться на первом;

/i. Сообщает, что при сопоставлении не следует учитывать регистр букв;

/m. Помогает при поиске в строках, содержащих внутри символы \n; интерпретирует метасимвол ^ так, чтобы он соответствовал образцу перед символом новой строки, а символ $ так, чтобы он соответствовал образцу после символа новой строки;

/o. Информирует о том, что регулярное выражение должно быть откомпилировано только один раз;

/s. Аналогичен /m, также помогает при поиске в строке с внутренними символами \n. Настраивает метасимвол '.' так, что он соответствует символу новой строки. Кроме того, включает режим игнорирования устаревшей переменной $*;

/x. Обычно используется для включения в регулярное выражение игнорируемых пробелов и комментариев. Хотя применяется и не часто, но способствует созданию понятного и хорошо документированного кода.

Канонические инструменты, написанные на Perl

В этом разделе мы продемонстрируем на примере нескольких сценариев некоторые наиболее важные и широко применяемые средства языка Perl. Профессионалы в области информационной безопасности часто пишут на Perl программы, доказывающие жизнеспособность той или иной идеи, когда не требуется особая эффективность, создают «эксплойты», утилиты для тестирования других программ и выявления уязвимостей в Web-приложениях, а также сложные инструменты на базе регулярных выражений. Как и в случае большинства других интерпретируемых языков, Perl-сценарии не могут быть в полном смысле откомпилированы, то есть превращены в двоичную форму. Компилируемые языки позволяют несколько повысить безопасность за счет того, что восстановить исходный текст программы нелегко.

Однако существует несколько программ для «компиляции» Perl-сценари- ев, точнее для превращения их в непосредственно исполняемые приложения. По большей части в них используется техника обертывания, когда базо-