книги хакеры / журнал хакер / специальные выпуски / Специальный выпуск 4_compressed

КОНСТРУКТОР

>СПЕЦВЫПУСК #4

001D

29

на палитра Standard (она выбрана по умолча-

нию). Кликни один раз на компоненту Edit (най-

ди по хинтам), а затем щелкни на главную фор-

му: там появится одна строка ввода. Можешь

потаскать ее по главной форме мышкой или

порастягивать.

Теперь зацени: слева на экране вертикальная

панель Object Inspector - очень важная и удоб-

ная фича: в ней отображаются все свойства

всех компонент твоей проги. Сейчас вверху

написано Edit1:tEdit (если ты последний раз

кликнул в строку ввода, иначе Form1:TForm1) -

это имя и тип выбранного сейчас компонента.

Ниже, во вкладке Properties, можно найти

свойство Text, сейчас там написано Edit1, а на

-

до все напрочь стереть - это свойство говорит,

что будет написано в строке ввода при запус

-

ке программы. Запусти программу и посмот-

ри, что получится. Теперь аналогично помести

на форму еще одну строку ввода и расположи

ее под первой: в первую юзер будет потом

впечатывать белиберду, а во вторую прога бу

-

äåò

писать

расшифровку. Сотри все в свойстве

Text.

Найди на палитре и помести на панель

кнопку (Button) и в свойстве Caption впиши “Do

it!” или что-нибудь такое - эта кнопь будет все

Внутри

запускать в твоей проге (свойство Caption у

везде кликал один раз). Перед тобой

откроет-

всех компонент отвечает за надпись, которая

ся окошко текстового реактора... то

åñòü ðå-

будет нарисована на компоненте; и еще: пока

Можно

запустить программулину и пощелкать

дактора, где будет написано:

вписывай те надписи на кнопках, которые

по кнопкам,

вписать чего-нибудь, но прога не

предлагаю я, чтобы мне было проще объяс-

дает результата, который ты от нее хотел: она

procedure

TForm1.Button2Click(Sender:

нить, позже ты все сможешь переделать по-

ни фига не перекодирует. Тут следует разоз-

TObject);

своему).

литься не на шутку и пойти бить морду подло-

begin

му автору статьи, который обещал, что кла-

end;

Далее надо как-то дать понять юзеру, в какую

виатура даже не понадобится, а кинул по всем

из строк писать лажовую строку, а в какой бу-

статьям, и прога вообще не заработала.

и еще всякой лабуды. Так вот, перед тобой

дет ответ. Для этого помести на форму два

процедура, которая будет выполняться после

компонента Label (иконка в виде буквы “А” на

Весь секрет того, что программа ни фига не

того, как кто-нибудь кликнет на кнопь “Выход”

палитре Standard), один левее первой строки

делает, заключается в том, что ее еще ничего

во время работы программы. Сейчас она пус-

ввода, другой левее второй. В первом в свой-

не просили делать. Поясню на примере. Мож-

тая, то есть ничего не делает, поэтому такая

стве Caption впиши “Вводи сюды:” или что-то

но сделать скриншот с десктопа, поставить

лажа и получалась - щелкаешь по ней, а ей

в этом роде, а во втором - “Ответ тут:”. Потом

его вместо обоев, скрыть значки, и что полу-

все по фигу. Ща все исправим: вписывай меж-

в низу формы помести еще две кнопки, в од-

чится: та же картинка, те же иконки, но сколь-

ду begin и end (то есть в “тело” процедуры) та-

ной впиши “Выход”, в другой “About”. Значе-

ко по ним ни кликай, ни одна прога не запус-

кую строку:

ние свойства Caption может быть любым, так

тится, а все потому, что и не должна запус-

Form1.Close;

что пиши по-русски или по-аглицки и любую

титься, так как никто ей не сказал, что если

фигню - что захочешь. Теперь размести все

какой-то урод будет по дурацким этим обоям

компоненты ровнее на форме (форму можешь

щелкать, ей надо запускаться, и вообще. Ну

Теперь, когда эта кнопь будет нажата, эта про-

растягивать мышью или устанавливать свой-

вот, надеюсь, я пояснил необходимость того,

цедура скажет главной форме (главная форма

ства Height и Width ручками в Object Inspector).

что сейчас тебе придется делать. Надо каждой

она потому и главная, что к ней все “крепит-

Если на какой-нибудь компонент щелкануть

кнопке сказать, что она должна делать, когда

ся”, и если ее закрыть - закроется вся прог-

правой кнопью крысы, то выскочит менюха, в

по ней кликают. Придется всерьез взяться за

рамма) “Закройся”, и все будет зашибись. За-

которой есть пункт Align, поэкспериментируй с

клаву.

пусти и полюбуйся на это.

ним - это выравнивание того компонента, ко-

торый у тебя сейчас выбран на форме (там ес-

Начнем с простого: хочется, чтобы при нажа-

Еще можно слепить панель, которая будет

ть выравнивания по левому краю, по правому,

тии на кнопку “Выход” прога закрывалась нап-

выскакивать при нажатии на кнопь “О проге..”

по центру и др.). К этому моменту у тебя дол-

рочь. Даблкликни на эту кнопку на главной

и содержать всякую лабуду. Все просто: в

жно получиться что-то типа того:

форме (заметь, ДАБЛКЛИКНИ, до этого ты

главном меню Дельфей выбираешь “Филе”, в

30

001E

КОНСТРУКТОР

>СПЕЦВЫПУСК #4

нем “New...”, выскочит окошко, в нем смело

запуском Дельфа что-то спросит - говори -

нижнюю строку (RusLet) - переключаешься на

выбирай вкладку “Forms”, там по умолчанию

Да) и насладись открывшимися возмож-

русский и повторяешь все как и для предыду-

выбран AboutBox, щелкай “ОК”. Дело в том,

ностями.

щей строки.

что в комплекте Дельфей есть некоторое ко-

личество готовых форм “специально для ле-

нивых”, их надо только подправить.

Итак, есть четыре компонента Label и один

Image. Сперва исправь свойства Caption у

всех Labelов - не бойся их растягивать, они

могут содержать несколько строк текста (для

этого надо свойство WordWrap поставить

True, а не False, как по умолчанию). Теперь

Image - выбирай свойство Picture, щелкай где

три точки и далее Load любую картинку (Bmp-

формата), размеры смотри в свойствах Height

и Width, можешь их изменить, но Дельфа сож-

мет картинку любого размера под те, что там

вписаны. И, наконец, даблклик по кнопке

“ÎÊ”

на панели

About

- и там в редакторе впи-

сывай

почти то

æå

самое, что и раньше:

AboutBox.Close;

Вот и настал тот момент, когда тебе все-таки

Дельфа, когда будет

обрабатывать эту

запись,

придется написать основной алгоритм прог-

будет читать так: “ага, написано const,

значит

(говоришь панельке

About закрыться при на-

раммы, иначе, как уже говорилось, само оно

дальше идут константы, клево, щас

должно

жатии).

не заработает. Даблклик на кнопке “Do it!”, и

быть имя первой константы, О-ппа,

написано

попадаешь в редактор.

EngLet, это оно и есть, вот двоеточие,

а после

Тут я хочу сказать об одной полезной фиче -

него должен быть тип указан. Во! Да тут так и

все названия по умолчанию в Дельфях - “го-

Сначала попробуем расшифровывать с ан-

написано: string, значит константа будет стро-

ворящие”, вроде Button1, Edit1 - сразу понят-

глийского на русский. Для этого придется за-

ковой, я потрясена! Теперь равно, а опосля и

но, о чем идет речь. Точно так же и с проце-

дать соответствие между английскими и рус-

значение должно быть в апострофах, и “;” - да

дурами, зацени: эта процедура называется

скими буквами на клаве. Мы поступим так:

тут все так и написано, а раз все верно, то я

“TAboutBox.OKButtonClick”, если ты знаешь

введем две строковые константы, в одной

ругаться не буду. Блин, да тут еще одна кон-

английский, сразу можешь врубиться, на фи-

последовательно укажем все символы русской

станта!..” и так далее, ну, примерно так, тока

га она нужна - вызывается, когда в AboutBoxе

раскладки клавы, а в другой - английской.

не по-русски, а по-своему, по-Дельфивски.

Clickнут по кнопке OK. По-моему - удобно, но

это - дело вкуса.

Итак, редакторе ползи наверх, пока не встре-

Апострофы по краям говорят-показывают гра-

тишь жирную надпись var. Над ней надо впи-

ницы строки, в английской раскладке на клаве

В левом верхнем углу этой формы у нас по

сать следующее:

встречается апостроф - найди его в строке

умолчанию написано About, но, выбрав в ин-

EngLet и поставь рядом еще один, теперь

спекторе AboutBox, можно поменять, как

const

Дельфа врубится, что здесь не конец строки, а

обычно, свойство Caption.

символ “апостроф”.

EngLet : string = ‘~!@#$%^&*()QWER-

Если ты был наблюдательным, ты просек, что

TYUIOP{}ASDFGHJKL:”ZXCVBNM<>?qwer-

Теперь найди процедуру TForm1.Button1Click

мы нигде еще не сказали, чтобы наша панель

tyuiop[]asdfghjkl;’’zxcvbnm,./’;

и дополни ее до следующего:

выскакивала при нажатии на соответствую-

щую кнопь. На главной форме даблкликни на

RusLet : string = ‘¨!”¹;%:?*()ЙЦУКЕН-

procedure

TForm1.Button1Click(Sender:

кнопень “О проге...” и в окне редактора впи-

ГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,йцу-

TObject);

ши в тело процедуры следующее:

кенгшщзхъфывапролджэячсмитьбю.~’;

AboutBox.Show;

var

Строки эти надо набирать так: верхнюю

i, j, flag

integer;

(EngLet)- переключаешься на английский, за-

Result

: string;

Это для всех форм одинаково - метод Show их

жимаешь shift и начинаешь слева направо

begin

показывает, а метод Close - закрывает.

последовательно нажимать клавиши той стро-

Result:=’’;

ки на клаве, где цифры, потом той, которая

for i:=1 to length(Form1.Edit1.Text) do

Сохрани проект - теперь у тебя спросят имя

ниже, и так далее, потом отпускаешь shift и

begin

для файла только что сделанной панели “О

повторяешь (управляющие кнопки, вроде tab,

for j:=1 to length(EngLet) do begin

проге...”. Запусти свое творение (если перед

enter и других, нажимать не надо); теперь

if EngLet[j]=Form1.Edit1.Text[i] then

КОНСТРУКТОР

>СПЕЦВЫПУСК #4

001F

31

break;

полученную

строку вписываем во

вторую

for i:=1 to length(Form1.Edit1.Text)

do

end;

строку ввода - в свойство Text компоненты

begin

Result := Concat( Result, RusLet[j] )

Edit1 на форме Form1, во как.

Flag:=0;

end;

for j:=1 to length(EngLet) do begin

Form1.Edit2.Text := Result;

Кидалово

if EngLet[j]=Form1.Edit1.Text[i]

then

end;

begin

Догадайся, где я тебя только что кинул!.. До-

Flag:=666;

Попробую объяснить, что все это значит.

гадался? Нет!

break;

После слова var Дельфа ищет объявление пе-

end;

ременных, как после const она ищет констан-

Правильный ответ такой (запусти прогу и

end;

ты. Мы с тобой хотим три целых переменных

проверь): если ввести “Dj,kf” то прога выдаст

if Flag=666 then Result := Concat(

(integer) и одну строковую (string) - так и пи-

“Вобла”, а если ввести “Dj,kf b gbdj”, то она

Result, RusLet[j] )

шем, и указываем имена. Что делается в те-

ответит

снова “Вобла”, а “gbdj” (пиво)

îíà

else Result := Concat(

Result,

ле этой процедуры: берем первую букву вве-

зажмет и

не отдаст.

Form1.Edit1.Text[i] );

денной строки, пусть ввели “Rthlsr”, значит

первая буква “R”, ищем ее в строке EngLet,

- Почему,

нехороший человек, ты меня

опять

end;

запоминаем, какой по счету она стоит там, и

кинул? -

вежливо, не ругаясь, спросишь

ìåíÿ

Запусти и убедись, теперь прога

работает

берем символ из строки RusLet с таким же

òû.

номером:

можешь

верно.

сам посмотреть там,

Сложно? Не

очень. А

главное

Чтобы прога стала

перево-

где ты объявил кон-

- результат:

òû êðóò!

Ó òåáÿ

станты

EngLet è

дить с русского

неправиль-

RusLet -

ïîä

буквой

есть настоящая грамотная

ного на английский

ïðà-

“R” написана

буква

серьезная прога. Можешь

вильный, скопируй

âñå, ÷òî

“К”, запомним ее, те-

находится

между

апостро-

выкладывать это файло на

ïåðü èùåì

вторую

фами в объявлении

строки

букву - “t”, находим

своем сайте и хвастать

EngLet, è

помести

перед

“и” и так далее, полу-

всем, что ты теперь

закрывающим апострофом

чаем “Кирдык”.

â

объявлении

строки

программер, а не просто

RusLet и наоборот (если бы

Найденные

символы

кул-хацкер. Удачи тебе, и, на-

строки

áûëè

такими:

мы будем

сохранять

деюсь, эта прога не будет

EngLet - ‘QWE’, à RusLet -

в переменную Result,

‘ЙЦУ’, то после этих опера-

поэтому

äëÿ

начала

для тебя последней :).

ций получилось бы: EngLet

присвоим

åé

пустую

-

‘QWEÉÖÓ’, à

строку. Теперь берем цикл for от первой до

- А чтобы ты внимательнее относился потом к

‘ÉÖÓQWE’).

последней буквы введенной строки (она хра-

написанию кода, потому что, чтобы найти

нится в свойстве Text компоненты Edit1, а

ошибку, нужно гораздо больше времени, чем

Теперь мелочи: свойство BorderStyle

функция length возвращает нам длину вве-

на то, чтобы написать здоровенную прогу

Form1 можно

поставить равным

денной в нее строки - для рассмотренного

всего с одной этой ошибкой, - отвечу тебе я.

чтобы основную панель нельзя было

примера она вернет 6, и цикл будет испол-

нуть. А в свойстве Icon можно

няться от одного до шести). Еще один цикл

Секрет в том, что когда мы во втором цикле

дартную иконку Дельфей в левом

for - начиная с первого символа, просматри-

ищем в строке EngLet символ “пробел”, мы

лу главной панели на любую другую.

ваем строку EngLet до конца (length(EngLet) и

его там не находим, огорчаемся и добавляем

проверяем оператором if, не совпадают ли та

â

переменную

Result

символ

EXE-файл своей проги ты найдешь на

буква, которую мы сейчас ищем

RusLet[length(Englett)+1], а это за пределами

той директории, куда ты сейвил

(Form1.Edit1.Text[i]), и та, на которую сейчас

нашей строки, и там лежит какая-то лажа.

Вот такие пироги

указывает счетчик j внутреннего цикла (а он

Поэтому поступим так - введем специальную

указывает на EngLet[j]); если совпадают - то

переменную Flag - флажок, который мы бу-

выскакиваем из цикла при помощи оператора

дем по умолчанию поднимать, а опускать -

Сложно? Не очень. А главное -

break, кричим во все горло “Rulezz!” и добав-

если нашли нужный символ в строке EngLet.

крут! У тебя есть настоящая

ляем найденную буковь (RusLet[i]) к строке

Потом если он окажется все еще поднятым

серьезная прога. Можешь

Result при помощи функции Concat (она бе-

после окончания цикла, мы будем добавлять

файло на своем сайте и хвастать

рет две строки, приписывает к концу первой

в Result не из RusLet[i], а прямо из

теперь программер, а не просто кул-

вторую и возвращает полученную строку. До-

Form1.Edit1.Text[i] - то есть, в нашем случае,

Удачи тебе, и, надеюсь, эта прога

гадайся, что вернет эта функция, если ее

добавлять пробел там, где надо.

для тебя последней :).

вызвать так: Concat( “Fu”, “ck off!” ) ). Вот и

все, а после того, как циклы завершатся, мы

Итак, исправь эту часть процедуры вот

32

0020

ЗАКРОМА РОДИНЫ

>СПЕЦВЫПУСК #4

ПРОГРАММИС

РЕСУРСЫ В

Horrific (smirnandr@mail.ru)

Êîìó áû

WWW.TORRY.RU

жешь их выложить здесь. Будь уверен, твою

жаловаться на

работу обязательно заметят. Если ты слишком

Я решил начать именно с этой странички. Хотя

жадный, чтобы даром отдавать кому-нибудь

недостаток

нет, страничкой это не назовешь - это просто

свой труд, то можешь назначить цену. И если

èíôû - òàê

чемодан какой-то. Чемодан информации. Если

твоя работа действительно стоящая, то ты

только не

ты пишешь свои проги на Delphi, то этот УРЛ -

сможешь прожить беззаботную жизнь - прав-

твой. Тут расположено громадное количество

да, недолгую :).

программерам.

компонентов, примеров, вспомогательных

Äëÿ íèõ â

прог, документации, книг и куча всякой всячи-

Очень сильно радует большое количество фри-

сетке просто

ны. И создал это чудо природы Maxim Peresada.

варных софтин, которые могут помочь в нелег-

Хотя, по моим сведениям, он русский, я все же

ком труде кодинга. Хотя некоторые из них боль-

море докумен-

написал его фамилию как она есть в оригинале

шие - хрен сольешь. Эту проблему можно ре-

тов, исходни-

на сайте, чтобы не обидеть человека.

шить с помощью громадного количества зер-

ков, компонен-

кал, подобрав наиболее быстрое из них. НО!

Самое, пожалуй, грустное для всех нас: несмот-

тов и другой

ря на российский адрес странички, все здесь на

ерунды. А если

английском. Так что убирай свою улыбку и за-

пасайся англо-русским словарем.

говорить о

начинающих -

Чтобы не заканчивать на такой страшной ноте,

ооо... Каждая

я еще раз похвалю www.torry.ru. Здесь есть

очень важный и очень полезный для нас раздел

вторая

- Humor. Сей хумор тоже на английском, но я

страничка

всем советую почитать этот раздел. Вот нес-

пытается обя-

колько хуморин в русском переводе и моей ин-

терпретации:

зательно нау-

У сайта не очень яркий и не очень привлека-

1. Корпорация Microsoft и Boeing Corp. рады

чить очередно-

тельный дизайн, зато навигация достаточно

го ламера уму-

удобная, за нее - 5 баллов :).

сообщить о месяце совместной программы. Вы

можете бесплатно пролететь на Boeing 797 бет-

разуму.

Очень важно, как мне кажется, и регулярное об-

òà. Æäåì âàñ!!!

Ó ìåíÿ çà 10

новление. Сайт обновляется не реже чем каж-

дую неделю, и количество информации очень

2. Чем отличается женщина и Windows 95? Ни-

лет програм-

быстро растет. Все новое можно легко найти в

чем. Обе они обладают способностью вешать

мерского ста-

специально отведенном разделе, и не надо ко-

на вас тонны бесполезной информации и триж-

жа собралось

пошиться среди бабушкиного белья.

ды просить подтверждения очевидных вещей.

громадное ко-

Приличное количество доступных компонентов.

3. Один ламер говорит другому: Вчера я вклю-

личество ссы-

Все очень удачно разложено по разделам. С

чил свой компьютер, и запустился Norton.

лок любого

другой стороны, поисковой системы на сайте

Смотрю, а у меня на левой панели диск С:\ и на

просто нет. Иногда бывает сложно сразу же

правой панели диск С:\. Я подумал, зачем мне

направления и

найти определенный файл, приходится беско-

два одинаковых диска С:\? Взял и с одного из

ориентации.

нечно ковыряться в этих самых удобных разде-

них все удалил.

Хочешь, я

лах. Maxim, правда, обещает исправить эту си-

туацию в ближайшее время.

4. Жена и муж (оба программисты) лежат в пос-

поделюсь

òåëè:

с тобой?

Если ты - программер со стажем, и у тебя ес-

Она: Вы хотите повторить процедуру?

ть свои наработки в виде компонентов, то мо-

Он: Функция не возвратила значение...

ЗАКРОМА РОДИНЫ

>СПЕЦВЫПУСК #4

0021

33

VR ONLINE

бовать от одного человека, да еще и без спон-

что это похоже на фантастику о бедном хаке-

соров.

ре и его друзьях. Не сказал бы, что бомба, но

http://www.crosswinds.net/~vrmag/

мне показалось интересным. Я его распечатал

Сейчас на страничке доступны 3 номера жур-

и сейчас читаю в свободное время. Не буду

Следующий неплохой ресурс. Он будет очень

нала. Мне удалось связаться с разработчиком

больше ничего говорить. Если захочешь, то

полезен программистам все того же Delphi,

(скажу сразу, что он единственный, кто быс-

сможешь сам все увидеть.

хотя и все остальные здесь найдут полезную

тро ответил на мой запрос), и он меня уверил,

ROMKA GRAPHICS.

инфу. Все пишется так, чтобы понимали прог-

что уже готов августовский номер, и мы его

раммеры любых отклонений (особенно люби-

увидим позже, потому что есть какие-то проб-

òåëè Ñ).

лемы с закачкой. Поверим ему на слово, но...

http://www.math.ut.ee/~romka/index_rus.htm

В отличие от предыдущей странички, дизайн

если обманет, то будет иметь дело со мной :).

Эта страничка посвящена программированию

мне понравился. Нельзя сказать, что отлич-

На данный момент в этом журнале описы-

на OpenGL. Первый взгляд говорит, что сайт

ный, но и не скажешь, что плохой. Неплохая

ваются следующие темы:

только начинает строиться. Информации не

навигация, все быстро грузится, а самое глав-

так уж и много, но она очень интересная и

íîå

- никаких баннеров и рекламы. Хотя нас-

1. Программирование на Delphi (общие сведе-

очень полезная. Сейчас здесь очень много

÷åò

рекламы я поторопился: хозяин ищет

ния и использование графики).

проблем, но будущее у странички есть.

спонсоров, и, вполне возможно, он их найдет,

2. Программирование в Internet или в локаль-

потому что его работа стоящая.

íîé ñåòè.

3. Программирование момедов. Эта тема бу-

дет полезна не только программистам, но и

юзерам.

4. ßçûê SQL.

5. Уроки программирования на OpenGL

6. Для создателей игр - DirectX.

Самая интересная для нас статья находится в

июльском номере - “Воровство паролей”.

Здесь рассказывается, как без проблем напи-

сать прогу, которая вытащит тебе все пароли,

даже если они не сохранены в pwl-файлах.

Немного оторвусь и расскажу, как это рабо-

тает. Окна пользовательского размера (95/98

и даже старые NT) при старте загружают в па-

мять все пароли и держат их там. Если поль-

Так уж получилось, что мне придется

больше

зователь ввел еще один пароль, то он тоже

ругать Ромку, чем хвалить. Но все же

ÿ ñîâå-

Âñÿ

информация здесь выполнена в виде жур-

остается в памяти, пока компьютер не перег-

тую тебе сюда заглянуть, особенно

åñëè òû

нала. Это и преимущество, и недостаток.

рузят. В этой статье показаны недокументиро-

собираешься заняться 3D графикой с

исполь-

Преимущество в том, что любая инфа сопро-

ванные функции, которые позволяют выта-

зованием OpenGL. Правда, как это ни пара-

вождается комментариями и пояснениями,

щить из кэша эти пароли.

доксально, и дизигн, и графика на паге здоро-

что очень полезно для программеров других

во хромают.

языков (отличных от Delphi) и самое главное -

Если у кого возникнут проблемы с написанием

ламеров :). Это хорошо, что здесь не забы-

кода, то он может скачать себе исходники в

Вся информация достаточно доступна для

вают про чайников. Если ты решил заняться

архиве. В каждой статье есть ссылка на гото-

программеров с небольшим стажем. Если ты

программированием и ничего в этом не ру-

вые исходники. Так что, если у тебя генети-

начинающий, то сначала посети “VR online” и

бишь, то здесь тебя научат.

ческая ошибка в ДНК, то скачай себе все ис-

только потом иди сюда, чтобы повысить свой

ходники и не мучай клаву :).

экспириенс. Исходные тексты демок написаны

Недостаток оформления в виде журнала - это

И напоследок: на все три выложенных на сай-

на С. Они очень просты и понятны, если

то, что очередного обновления приходится

имеешь какие-нибудь начальные знания языка

ждать целый месяц :). Желательно, чтобы

те номера разбит рассказ неизвестного авто-

С и OpenGL. А вот без базовых знаний тут ло-

журнал выходил почаще, но такое трудно тре-

ра - “Dark Horror”. Мой острый глаз говорит,

вить нечего :(.