Их разыскивают бойцы 139-го порта!

Xakep, номер #037, стр. 037-071-3

Исходники примера, как всегда, можно забрать с моего сайта www.cydsoft.com/vr-online.

P. S. Напоследок я хочу ответить на один часто задаваемый мне вопрос: если ты обладатель Kylix1 и RedHat 7.1, то при инсталляции тебе нужно запустить файл setup с ключом -m.

ЛИСТИНГ 1

procedure TfmMain.Button1Click(Sender: TObject);

var

Line,

FindResult: string;

iPos: Integer;

begin

ResultsMemo.Clear; //Очистка содержимого компонента TMemo

FindResult := IdWhoIs.WhoIs(Edit1.Text); //Запускаю поиск

//Дальше идет форматирование полученной информации.

while Length(FindResult) > 0 do

begin

iPos := Pos(#10, FindResult);

Line := Copy(FindResult, 1, iPos - 1);

ResultsMemo.Lines.Add(Line);

Delete(FindResult, 1, Length(Line)+1);

end;

end;

РУСИФИКАЦИЯ KYLIX

Для русификации Kylix необходимо открыть файл /etc/sysconfig/i18n и добавить в него следующие недостающие строки (если они не существуют):

LANG=ru

LANGUAGE=ru_RU.KOI8-R:ru

LC_CTYPE=ru_RU.KOI8-R

LC_NUMERIC=ru_RU.KOI8-R

LC_TIME=ru_RU.KOI8-R

LC_COLLATE=ru_RU.KOI8-R

LC_MONETARY=ru_RU.KOI8-R

LC_MESSAGES=ru_RU.KOI8-R

LC_ALL=ru_RU.KOI8-R

SYSFONT=UniCyr_8x16

SYSFONTACM=koi8-r

Если какие-то из этих строк уже есть, то их нужно изменить на указанные мной. Этого достаточно для RedHat 7.1. В других ОС семейства Linux может понадобится отредактировать следующие строки в файле /etc/X11/XF86Config:

XkbLayout "ru(winkeys)"

XkbOptions "grp:ctrl_shift_toggle"