Home

Page 188
Page 188
background image

Простые приемы работы с сетью 181

убедится в плохой защищенности его машины. С другой стороны, я не ду-
маю, что троянский

 кому-нибудь понравится. Тем более что после си-

него экрана перезагрузка может остановиться, а нам это не надо (забегу

вперед и скажу, что мы сами будем перегружать компьютер, где находится

сервер трояна ).

Теперь нужно выделить

 и перейти на вкладку Events в окне

Object Inspector. Дважды щелкните в строке

 и в созданной

процедуре (она будет вызываться, когда данные приходят в порт) напишите:

procedure

 TObject;

Socket:

var

s: String;

begin

 Socket

if

 then

end;

В первой строчке считывается состояние свойства ReceiveText объекта

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

После этого проверяется: если полученный текст равен букве R,

 нужно

отправить компьютер на перезагрузку.
Функция

 заставит Windows свернуться и выключить компью-

тер. Я вообще добрый дядька, поэтому использовал параметр

При использовании этого параметра перед перезагрузкой всем запущенным

приложениям полетит запрос о выключении, и пользователь сможет сохра-
нить свои измененные данные. Если вы злее меня, то можете использовать

 В этом случае компьютер выключится без предупреждения и со

скоростью света (если он умеет это делать сам, конечно), так что никто не

успеет даже глазом моргнуть.

Троян практически готов, сохраните его. Для этого выберите пункт Save All
в меню File. Сначала Delphi запросит имя формы. Можете оставить по умол-

чанию

 или ввести что-то свое и нажать Сохранить. Потом будет сделан

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

Наша программа будет невидима только на первый взгляд. В Windows 9x

ее можно будет увидеть в окне после нажатия <Ctrl>+<Alt>+<Del>, поэтому

имя программы не должно вызывать подозрения. В Windows 2000/XP програм-


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.