Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
21 ошибка прогр... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Имитационное мо... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Реклама
Сейчас на сайте
Гостей: 6
На сайте нет зарегистрированных пользователей

Пользователей: 13,361
новичок: uehuat
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Медиа плейер на Delphi + Пояснительная записка
Программа тестирования и обучающая программа по математике на Turbo Pasc...
Файл записей с выводом обратного заголовка на Turbo Pascal

Логическая бомба на Delphi
Привет читатель. Добро пожаловать на урок по изготовлению логической бомбы. Логическая бомба это (если я не ошибаюсь) то это разновидность вируса. Её принцип прост. Она запускает определённый программный код при выполнении определённых условий. Часто таким условием бывает время или дата.

И так приступим к программному коду:
0) Запусти Delphi.
1) Создай новый проект.
2) Удали Form из проекта. (project=>remove from project=>выбери форму=>OK=>появится окно, нужно согласиться=>всё! Форма удалена)
3) Откроем место для написания кода (project=>view source=>

Program log_bomb;//Название может быть любым
Uses windows, SysUtils; //Подключаемые модули, чем меньше , тем лучше.
Begin
//Если дата 11.11.1111 то срабатывает код написанный
If datetostr(date)=’11.11.1111’ then
Begin // Между begin
// Сам код, выполняющийся при выполнении условия
End;

Exit;
End.


Вот и всё.

А теперь несколько советов.

1) Всегда в конце лучше писать EXIT; Не пойман не уничтожен – закон вирусов.
2) Если надо чтобы программа срабатывала в определённое время. То надо писать следущее:

If timetostr(time)=’22:22’ then
Begin
// Код
End;


3) Иногда, когда подключаешь много модулей прога приобретает «Царский размер»
В этих случаях необходимо пользоваться ASPACK'ом. Он уменьшит размер примерно в два раза.

4) Всегда проверяй Автозагрузку. Может что-то подобное уже работает у тебя!!!!

Теперь я расскажу как сделать это двумя способами: через файл win.ini и через реестр. Приступим.

1) способ Через Win.ini

Для этого надо знать как работать с INI файлами.

Program INIFI;
Uses inifiles;

//Обьявляем переменную для работы с ini файлами
Var reg: tinifile;

Begin
//Выделяем память для переменной, открываем файл
reg:=tinifile.create('win.ini');
//Непосредственно прописываемся
reg.writestring('windows','run',application.ExeName);
//Освобождаем память
reg.free;
exit;
end.


Остановимся на этой строчке подробнее:

reg.writestring('windows','run',application.ExeName);

//Переменная reg запись строки типа string, куда указывается в скобках

reg.writestring()



Win.ini находится ВСЕГДА по адресу:
Имя_диска:Папка_виндыwin.ini

2) Способ Через реестр.

Очень похоже на способ 1), только работаем с реестром и другими переменными. Итак. Приступим.

Program regis;
Uses inifiles;

Var load: treginifile;

Begin
load:=treginifile.create;

//Выбираем ветвь реестра
load.RootKey:=hkey_local_machine;

//Выбираем ключ
load.OpenKey('softwaremicrosoftwindowscurrentversion',false);

//Прописываемся
load.WriteString('runServices','ssi',application.exename);

Load.free;
exit;
end.



Всё просто. Рассмотрим основные моменты:

Переменная.Rootkey:={Название ветви реестра}
Переменная.openkey(название ключа)
Опубликовал Kest October 25 2008 14:08:57 · 6 Комментариев · 12527 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Марат December 19 2009 13:09:57
У меня не получилосьsmiley
Kest December 19 2009 13:39:20
в чем проблема?
Гость January 03 2010 13:03:16
Логическая бомба это (если я не ошибаюсь) то это
разновидность вируса. Её принцип прост. Она запускает определённый программный
код при выполнении определённых условий.

AFAIK ошибаешся. Я всегда думал что логическая бомба это пассивный объект и никогда не выполняется, потому что содержит только данные, не код. Вредоносное действие основывается на особенностях обработки этих данных какой-либо вполне мирной программой. Например если есть программа, в файле данных которой есть сохраненный связный список (n элементов, каждый из которых хранит ссылку на следующий) и известно что программа не проводит необходимых проверок корректности файла, то можно создать бомбу - файл, содержащий замкнутый список, и тем самым загнать открывающую прогу в бесконечный цикл
Марат June 02 2010 16:34:44
Исправь пожалуйста: Uses Windows, SysUtils; , а то без SYSUTILS не компилитсяsmiley
Kest June 02 2010 20:04:02
Марат Июнь 02 2010 20:34:44
Исправь пожалуйста: Uses Windows, SysUtils; , а то без SYSUTILS не компилится


Это ты с декабря прошлого года что ли мучался? smiley
WETAL August 01 2010 08:27:56
Вот процедура даты без всяких Uses Windows, SysUtils
procedure Dates;
var
s:string;
dt:TDateTime;
begin
s:=DateTostr(dt);
end;
smiley
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
ZipTV
Borland Delphi 8 ...
Правила программи...
Редактор анимаций
Domen Name IP
Анимированное поя...
MP3 Архив v.2.0
Клавиатурный трен...
Delphi Быстрый Ст...
ADVstatusbar
Пишем программы и...
Мод "проверочный ...
CoolHints2k v1.03
Программирование ...
AUTOWEB
ЯЗЫК ПРОГРАММИРОВ...
Animation Effect ...
Динамические за...
EditNew
Профессиональное ...

Топ загрузок
Приложение Клие... 100771
Delphi 7 Enterp... 97787
Converter AMR<-... 20259
GPSS World Stud... 17014
Borland C++Buil... 14186
Borland Delphi ... 10267
Turbo Pascal fo... 7372
Калькулятор [Ис... 5968
Visual Studio 2... 5205
Microsoft SQL S... 3661
Случайные статьи
Процедуры put и se...
Высокоуровневые пр...
БЛОКИ
Тестирование, поис...
Контроль ошибок
протокол транспорт...
PNG
Комментарии
Данные инфографики...
Главная угроза веб...
• Management — гло...
Стандартные подпро...
Решение логических...
Аудит сайта
Syntax error
Онлайн казино Вулкан
Париматч: ставки н...
Обмен универсальны...
Продвижение транза...
PHP: удаление стро...
Типы блокировок в ...
Джет казино официа...
Колесо трактор
4.3. Смысл верифик...
Описание внешних ф...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?